{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function get_property, rowexists, msg, dialog_box\r\n$insert msg_equates\r\n\r\nControlID = .control_id->text\r\nif ControlID then\r\n    if rowexists( 'SPC_REACTOR_PARTICLES', ControlID ) then\r\n        Qbf = get_property( @window, 'QBFLIST' )\r\n        if Qbf then\r\n            convert @fm to @vm in Qbf\r\n        end else\r\n            Qbf = ''\r\n        end\r\n        RetVal = dialog_box( 'NOTES_ATTACH', @window, 'SPC_REACTOR_PARTICLES*':ControlID:'*':Qbf )\r\n    end else\r\n        MsgInfo = ''\r\n        MsgInfo<mtext$> = 'You must save this Reactor Particle SPC Control entry first...' \r\n        MsgInfo<micon$> = 'H'\r\n        Void = msg( '', MsgInfo )\r\n    end\r\nend else\r\n    MsgInfo = ''\r\n    MsgInfo<mtext$> = 'You must have a Reactor Particle SPC Control entry present...' \r\n    MsgInfo<micon$> = 'H'\r\n    Void = msg( '', MsgInfo )\r\nend\r\nRETURN 0"
        }
    }
}