{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function send_event, get_property, set_property, center_window\r\nDECLARE Function Notes\r\nDECLARE SUBROUTINE obj_Call_Event\r\n$insert logical\r\n\r\n* ALWAYS CENTER\r\nvoid = center_window( @window )\r\n\r\nVoid = set_property( @window, '@called', 0 )\r\nif CreateParam<1,1> then \r\n   * called from note pointers new\r\n   Void = set_property( @window, '@called', true$ )\r\nend\r\n\r\nif CreateParam<1,2> then\r\n   * protect the prompts \r\n   * called from note pointers with an id passed\r\n   \r\n   IoOptions = get_property( @window, 'IOOPTIONS' )\r\n   IoOptions<2> = 2 ;* do not lock\r\n   Void = set_property( @window, 'IOOPTIONS', IoOptions )\r\n   \r\n   DisableFields = 'MESSAGE_TYPE':@rm:'MENU.FILE.SAVE_ROW':@rm:'MENU.FILE.CLEAR_FORM'\r\n   swap @rm with @rm:@window:'.' in DisableFields\r\n   DisableFields = @window:'.':DisableFields\r\n   Void = set_property( DisableFields, 'ENABLED', 0 )\r\n   \r\n   .seq->text = CreateParam<1,2>\r\n   .save_send->enabled = 0\r\n   void = send_event( @window, 'READ', '' )\r\nend else\r\n   .reply_button->enabled = 0\r\nend\r\n\r\nRETURN 1"
        }
    }
}