{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function rowexists\r\ndeclare subroutine create_note\r\n$insert quote_sigs_equ\r\n\r\nif rowexists( 'CUST_INQUIRY', .cust_inquiry_id->text ) else\r\n   .entry_id->text = @user4\r\n   * send a message to prod/eng group\r\n   Subject = 'New Customer Inquiry'\r\n   Note    = 'Customer Inquiry was entered by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n   * XLATE ENGINEERING PEOPLE\r\n   SendTo  = xlate( 'CONFIG', 'QUOTE_SIGS', InqEngSigners$, 'X' )\r\n   create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nOrigEngSig = get_property( @window, '@OrigEngSig' )      \r\nCurEngSig  = .eng_signature->text\r\nif OrigEngSig = '' and ( CurEngSig <> '' ) then\r\n   * send a message back to marketing group\r\n   Subject = 'Customer Inquiry Signed'\r\n   Note    = 'Customer Inquiry was signed by ':oconv( @user4, '[XLATE_CONV,LSL_USERS*FIRST_LAST]' )\r\n   * XLATE MARKETING PEOPLE\r\n   SendTo  = xlate( 'CONFIG', 'QUOTE_SIGS', InqMktSigners$, 'X' )\r\n   create_note( SendTo, @user4, Subject, Note, 'CUST_INQUIRY', .cust_inquiry_id->text )\r\nend\r\nreturn 1"
        }
    }
}