11 lines
5.2 KiB
JSON
11 lines
5.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "$insert msg_equates\r\n$insert lsl_users_equ\r\n$insert prod_spec_equ\r\n$insert rds_equ\r\ndeclare function dialog_box, msg, rds_comm2, start_window\r\nequ CrLf$ to char(13):char(10)\r\n\r\nCurStatus = .status->value\r\nif CurStatus = 'C' then\r\n CurReactor = .reactor->text\r\n if CurReactor <> '' else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must enter the reactor number before signing.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\n return 0\r\n end\r\n RetVar = rds_comm2( \"SIGN_HOLD_CHECK\" )\r\n if RetVar = 1 then\r\n\t PSNId = .psn->text\r\n\t PSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\t\r\n\t \r\n\t * IF THERE ARE PRE_EPI_VER INSTRUCTIONS THEN SHOW USER\r\n\t \r\n IF Xlate( 'PROD_SPEC', PSNId, prod_spec_pre_epi_ver_inst$, 'X' ) NE '' THEN\r\n Yes = dialog_box( 'RDS_VER', @window, PSNId:'*':prod_spec_pre_epi_ver_inst$ )\r\n IF NOT(Yes) THEN Return 0\t\t;* User pressed the 'No' button\r\n\t END\r\n\t \r\n\t Valid = dialog_box( 'QUOTE_SIG_PWD_ENTRY', @window, @user4:@vm:xlate( 'LSL_USERS', @user4, lsl_users_password$, 'X' ) )\r\n\t if Valid then\r\n\t .pre_epi_sig->text = @user4\r\n\t .pre_epi_sig_name->text = oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n\t .pre_epi_sig_date->text = oconv( date(), 'D2/' )\r\n\t .pre_epi_sig_time->text = oconv( time(), 'MTH' )\r\n\t .status->value = 'E'\r\n\t ***** THE CODE FROM HERE DOWN TO NEXT COMMENT GOES IN THE WO_VERIFY\r\n\t ***** WHEN I GET TO THE MAINTENANCE STUFF\r\n\t\t PSNId = .psn->text\r\n\t\t PSNRec = xlate( 'PROD_SPEC', PSNId, '', 'X' )\r\n\t\t Dopant = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t\t Restricter = PSNRec<PROD_SPEC_WAND_RESTRICTER$>\r\n\t\t Ratios = PSNRec<PROD_SPEC_RATIOS$>\r\n\t\t PINSusceptor = PSNRec<PROD_SPEC_PINNED_SUSCEPTOR$>\r\n\t\t TubePressure = PSNRec<PROD_SPEC_TUBE_PRESSURE_TYPE$>\r\n\t\t LastDopant = xlate( 'CONFIG', 'DOPANT':CurReactor, 1, 'X' )\r\n\t\t LastRestricter = xlate( 'CONFIG', 'RESTRICTER':CurReactor, 1, 'X' )\t\t \r\n\t\t LastRatios = xlate( 'CONFIG', 'RATIOS':CurReactor, 1, 'X' )\t\t \r\n\t\t LastPINSusceptor = xlate( 'CONFIG', 'PIN_SUSCEPTOR':CurReactor, 1, 'X' )\t\t \t\t \r\n\t\t LastTubePressure = xlate( 'CONFIG', 'TUBE_PRESSURE':CurReactor, 1, 'X' )\t\t \t\t \r\n\t\t MsgText = ''\r\n\t\t if ( Dopant <> LastDopant ) and ( LastDopant <> '' ) then\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' was ':LastDopant\r\n\t\t MsgText := ' and the current PSN requires ':Dopant:CrLf$\r\n\t\t end\r\n\t\t if ( Restricter <> LastRestricter ) and ( LastRestricter <> '' ) then\r\n\t\t if LastRestricter then\r\n\t\t RStmt = 'required a'\r\n\t\t end else\r\n\t\t RStmt = 'did not require a'\t\t \r\n\t\t end\r\n\t\t if Restricter then\r\n\t\t RStmt2 = 'required a'\r\n\t\t end else\r\n\t\t RStmt2 = 'does not require a'\t\t \r\n\t\t end\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' ':RStmt:' wand restricter'\r\n\t\t MsgText := ' and the current PSN ':RStmt2:' wand restricter':CrLf$\r\n\t\t end\r\n\t\t if ( PinSusceptor <> LastPinSusceptor ) and ( LastPinSusceptor <> '' ) then\r\n\t\t if LastPinSusceptor then\r\n\t\t RStmt = 'required a'\r\n\t\t end else\r\n\t\t RStmt = 'did not require a'\t\t \r\n\t\t end\r\n\t\t if PinSusceptor then\r\n\t\t RStmt2 = 'required a'\r\n\t\t end else\r\n\t\t RStmt2 = 'does not require a'\t\t \r\n\t\t end\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' ':RStmt:' pinned susceptor'\r\n\t\t MsgText := ' and the current PSN ':RStmt2:' pinned susceptor':CrLf$\r\n\t\t end\r\n\t\t if ( TubePressure <> LastTubePressure ) and ( LastTubePressure <> '' ) then\r\n\t\t MsgText := 'The last box that ran through reactor ':CurReactor:' was set up for ':LastTubePressure:' tube type'\r\n\t\t MsgText := ' and the current PSN requires ':TubePressure:' tube type.':CrLf$\r\n\t\t end\r\n\t\t if ( Ratios <> LastRatios ) and ( LastRatios <> '' ) then\r\n\t\t for i = 1 to 10\r\n\t\t * ONLY TEN RATIOS\r\n\t\t if Ratios<1,i> <> LastRatios<1,i> then\r\n\t\t MsgText := 'Ratio ':i:' should be set to ':Ratios<1,i>:CrLf$\r\n\t\t end\r\n\t\t next i\r\n\t\t end\r\n\t if MsgText <> '' then\r\n\t MsgText := 'Please verify the above information and contact maintenance and/or engineering.'\r\n\t MsgInfo = ''\r\n\t MsgInfo<mtext$> = MsgText\r\n\t MsgInfo<micon$> = '!'\r\n\t Void = msg( '', MsgInfo )\r\n\t end\r\n\t ***** TO HERE WILL GO IN THE WO_VERIFY TABLE\r\n\t @@window->savewarn = 1\r\n\t end\r\n end else\r\n * WILL POPUP ERROR\r\n end\r\nend else\r\n * THIS RDS HAS ALREADY GONE THROUGH THE PRE EPI INSPRECTION\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'This RDS has already gone through the Pre-Epi Insprection process.'\r\n MsgInfo<micon$> = '!'\r\n Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |