11 lines
1.9 KiB
JSON
11 lines
1.9 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_REACTOR_PARTICLES', .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 FOR PARTICLES/HAZE\r\n Delta = .delta->text\r\n TermNo = .term_no->text\r\n RPMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactPartMax$, 'X' )\r\n Haze = iconv( .haze->text, 'MD2' )\r\n RHMax = xlate( 'CONFIG', 'SPC_LIMITS', ReactHazeMax$, 'X' )\r\n * CURRENTLY DO NOT FORCE THE OCAP CAUSE WE NEED TO FIGURE OUT\r\n * HOW WE ARE CONTROLING THE REACTORS\r\n * IF TERMNO THEN THEY HAVE ALREADY GONE THROUGH THE OCAP AND EVERYTHING IS OK\r\n *if ( Delta > RPMax ) or ( Haze > RHMax ) and ( TermNo = '' ) then\r\n * * OCAP REQUIRED\r\n * MsgInfo = ''\r\n * Text = 'Please follow the Reactor Particle/Haze \"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_REACTOR_PARTICLES_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 Reactor Particle SPC Control entry first...' \r\n MsgInfo<micon$> = 'H'\r\n Void = msg( '', MsgInfo )\r\n end\r\nend\r\nreturn 0"
|
|
}
|
|
}
|
|
} |