COMPILE ROUTINE FIX_NOTE_PTRS(Dummy) ROWDEF (CHARSTR) DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList $INSERT NOTES_EQU $INSERT NOTE_PTRS_EQU OPEN "NOTES" TO TableIn ELSE Send_Info('Puked on table open') GOTO Bail END OPEN 'NOTE_PTRS' TO PtrFile ELSE DEBUG READ Rec FROM PtrFile,'CAROL_H' THEN Rec<1> = FIELD(Rec<1>,@VM,1,11) debug WRITE Rec ON PtrFile,'CAROL_H' THEN NULL END a = XLATE('NOTE_PTRS','CAROL_H','','X') DEBUG GOTO Bail SelectSent = 'SELECT NOTES WITH SEND_TO "JOHN_N" AND WITH ENTRY_DATE > "8/12"' RList(SelectSent,5,'','','') READ NPRec FROM PTrFile,'JOHN_N' THEN RecCnt = 0 Done = 0 LOOP READNEXT NoteNo ELSE Done = 1 UNTIL Done READ NoteRec FROM TableIn,NoteNo THEN *IF NoteRec<4> = 'JOHN_N' THEN Subject = NoteRec<18> SentFrom = NoteRec<5> NPRec = INSERT( NPRec, note_ptrs_subject$, 1, 0, NoteRec<18> ) ;* Add the subject NPRec = INSERT( NPRec, note_ptrs_from$, 1, 0, NoteRec<5> ) NPRec = INSERT( NPRec, note_ptrs_date$, 1, 0, OCONV( NoteRec<2>,'D2/') ) NPRec = INSERT( NPRec, note_ptrs_time$, 1, 0, OCONV( NoteRec<3>,'MTH') ) NPRec = INSERT( NPRec, note_ptrs_new$, 1, 0, 'Yes' ) NPRec = INSERT( NPRec, note_ptrs_note_ids$, 1, 0, NoteNo ) IF NoteRec<19> NE '' AND NoteRec<20> NE '' THEN Attachment = 'No' END ELSE Attachment = 'Yes' END NPRec = INSERT( NPRec, note_ptrs_attachment$, 1, 0, Attachment ) *END END REPEAT WRITE NPRec ON PTrFile,'JOHN_N' ELSE NULL END * * * * * * * Bail: * * * * * * * END