11 lines
1.6 KiB
JSON
11 lines
1.6 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function rowexists, msg, dialog_box\r\ndeclare subroutine forward_event\r\n\r\n$insert spc_limits_equ\r\n$insert msg_equates\r\nequ CrLf$ to char(13):char(10)\r\n\r\nif rowexists( 'SPC_CLEAN_HF', .control_id->text ) then\r\n return 1\r\nend else\r\n if .tech_sig->text <> '' then\r\n * NOW CHECK TO SEE IF THE OCAP IS REQUIRED\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n HFMax = xlate( 'CONFIG', 'SPC_LIMITS', HFParticleMax$, 'X' )\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n if ( Delta > HFMax ) and ( TermNo = '' ) then\r\n * OCAP REQUIRED\r\n MsgInfo = ''\r\n Text = 'Please follow the HF \"Out of Control Action Plan\".':CrLf$\r\n Text:= 'This will guide you to a term number...Click OK to view OCAP.' \r\n MsgInfo<mtext$> = Text\r\n MsgInfo<micon$> = '!'\r\n Void = msg( @window, MsgInfo )\r\n RetValue = Dialog_Box( 'SPC_OCAP', @window, 'SPC_SC1_HF_OCAP':char(245):'*CENTER' )\r\n\t .term_no->enabled = 1\r\n\t .term_no->text = RetValue\r\n Void = set_property( \"SYSTEM\", \"FOCUS\", @window:'.TERM_NO' )\t \r\n end else\r\n .entry_id->text = @user4\r\n return 1\r\n end\r\n end else\r\n MsgInfo = ''\r\n MsgInfo<mtext$> = 'You must sign this HF SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0"
|
|
}
|
|
}
|
|
} |