{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "DECLARE FUNCTION RowExists, Send_Event\r\nDECLARE SUBROUTINE ErrMsg\r\n\r\n$insert lsl_common\r\n$insert logical\r\n\r\nif rowexists( 'NOTES', .seq->text ) then\r\n\r\n\tErrMsg('Contact FI immediately.  Your are looking at the bug in the eMail system.')\r\n\t\r\n\t@@window->savewarn = 0\r\n\tVoid = send_event( @window, 'CLEAR', 0, 1, 1, '' )\r\n\tvoid = send_event( @window, 'CLOSE' )\r\n\tMisc@<CenterWindow$> = false$\r\n\treturn 0\r\nend else\r\n   return 1\r\nend\r\n"
        }
    }
}