11 lines
2.8 KiB
JSON
11 lines
2.8 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function msg, fieldcount, send_event, rds_comm, next_key, Get_Status, obj_RDS_Audit, RowExists\r\ndeclare subroutine forward_event, btree.extract, obj_WO_Step, Set_Status, ErrMsg, Set_Property, Post_Event\r\nDECLARE SUBROUTINE RDS_REACT_RUN, obj_WO_React\r\n\r\n$insert logical\r\n$insert msg_equates\r\n$insert prod_spec_equates\r\n$insert quote_spec_equ\r\n$INSERT RDS_EQUATES\r\n$insert wo_verify_equ\r\n\r\nequ CrLf$ to char(13):char(10)\r\n\r\n/*\t4/9/2015 JCH Added CassNo and PSNo parameters to obj_WO_React calls\t */\r\n\r\nCtrls = @WINDOW:'.WO':@RM\t\t\t\t\t; Props = 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.WO_STEP':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.RDS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.REACTOR':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.CASS_NO':@RM\t\t\t\t; Props := 'DEFPROP':@RM\r\nCtrls := @WINDOW:'.PSN'\t\t\t\t\t\t; Props := 'DEFPROP'\r\n\r\nVals = Get_Property(Ctrls,Props)\r\n\r\nWONo\t= Vals[1,@RM]\r\nWOStep\t= Vals[COL2()+1,@RM]\r\nRDSNo\t= Vals[COL2()+1,@RM]\r\nReactNo\t= Vals[COL2()+1,@RM]\r\nCassNo\t= Vals[COL2()+1,@RM]\r\nPSNo\t= Vals[COL2()+1,@RM]\r\n\r\n\r\nIF RowExists('REACT_RUN',RDSNo) ELSE\r\n\r\n\tMsg(@WINDOW,'','INVALID_RDS_NO')\r\n\tPost_Event(@WINDOW,'CLEAR')\t\r\n\t\r\n\tRETURN 0\r\n\t\r\nEND\r\n\r\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\r\nIF Get_Property(@WINDOW,'SAVEWARN') = 1 THEN\r\n\t\r\n\tVoid = RDS_Comm( 'STAMP_MOD' )\r\n\tVoid = RDS_Comm( 'WRITE_STAMP' )\r\n\t\t\r\n\tSet_Property(@WINDOW,'SAVEWARN',0)\t\t\t\t\t\t\t;* Added 9/18/2007\r\n\t\t\r\nEND\r\n\r\nOrgReactNo = XLATE('RDS',RDSNo,RDS_REACTOR$,'X')\r\n\r\nBEGIN CASE\r\n\tCASE OrgReactNo = '' AND ReactNo NE ''\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE '' AND ReactNo = ''\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE OrgReactNo NE ReactNo\r\n\t\tobj_WO_React('RemRdsNo',WONo:@RM:WOStep:@RM:OrgReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\tobj_WO_React('AddRdsNo',WONo:@RM:WOStep:@RM:ReactNo:@RM:RDSNo:@RM:CassNo:@RM:PSNo)\r\n\t\t\r\n\tCASE 1\r\n\t\tNULL\r\n\t\t\r\nEND CASE\r\n\r\n\r\nForward_Event()\t\r\n\r\nRDS_React_Run(RDSNo)\t;* Conversion of data to REACT_RUN and REACT_RUN_CI & Adds Sig to WO_MAT 3/18/2008 JCH\t \r\n\t\t\r\nRETURN 0\r\n"
|
|
}
|
|
}
|
|
} |