{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "DECLARE FUNCTION Msg, fieldcount, verifile, send_event, findwindow, rowexists, Notes_Comm, Get_Status\r\nDECLARE SUBROUTINE Forward_Event, record_lock, obj_Notes_Sent, Set_Property, obj_Notes, ErrMsg\r\n\r\n$INSERT note_ptrs_equ\r\n$INSERT msg_equates\r\n\r\nNoteID = Get_Property(@WINDOW:'.SEQ','TEXT')\r\n\r\nIF Rowexists( 'NOTES',NoteID) THEN\r\n   RETURN 0\r\nEND\r\n\r\nvoid = Utility( 'CURSOR', 'H' )\r\n\r\nOPEN 'NOTE_PTRS' TO NotePtrTable ELSE\r\n   void = Msg( '', 'Unable to open NOTE POINTER FILE.' )\r\n   RETURN 0\r\nEND\r\n  \r\nTIarray = Notes_Comm( 'STRIP_DUPS' )\t; *TIARRAY = All the users from Users & Groups minus duplicates\r\n\r\nIF (TIarray) THEN\r\n\tStList = TIArray\r\n\tStCnt = FieldCount( StList, @vm )\r\n\tSendToIconv = ''\r\n\t\r\n\tSet_Property(@WINDOW:'.ENTRY_ID','TEXT',@USER4)\t\t\t\t;* .entry_id->text = @user4\r\n\tSet_Property(@WINDOW:'.SEND_TO_INTERNAL','ARRAY',TIarray)\t;* .send_to_internal->array = TIarray\t\r\n\t\r\n\tForward_Event()\t\t\t\t\t\t\t\t\t\t\t\t; *This saves the message\r\n\t\r\n\tobj_Notes('PostEMail',NoteID)\r\n\t\r\n\tIF Get_Status(errCode) THEN\r\n\t\tErrMsg(errCode)\r\n\tEND\r\n   \r\n\tFOR I = 1 TO StCnt\r\n  \r\n\t\tThisSendTo = StList<1,I>\r\n\t\t\r\n\t\tIF LEN(ThisSendTo) THEN\r\n\t\t\t    \r\n\t\t\tRecipient\t= ThisSendTo\r\n\t\t\tCurrDTM\t\t= OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTHS')\r\n \r\n\t\t\tobj_Notes_Sent('Create',Recipient:@RM:NoteID:@RM:CurrDTM)\r\n\t\t\r\n\t\tEND\r\n\tNEXT I\r\n\r\n\tIF Get_Property(@WINDOW, '@DontClose' ) ELSE\r\n\t\tvoid = Send_Event( @WINDOW, 'CLOSE' )\r\n\tEND\r\nEND \r\n      \r\nvoid = Utility( 'CURSOR', 'A' )\r\n\r\nRETURN 0"
        }
    }
}