84 lines
1.6 KiB
Plaintext
84 lines
1.6 KiB
Plaintext
COMPILE ROUTINE FIX_NOTES(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList,Btree.Extract, Set_Status, Get_Status
|
|
|
|
|
|
$INSERT NOTES_EQU
|
|
|
|
|
|
OPEN 'NOTES' TO FileIn ELSE
|
|
Send_Info('Puked on NOTES table open.')
|
|
GOTO Bail
|
|
END
|
|
|
|
SELECT FileIn
|
|
|
|
/*
|
|
equ NOTES_MESSAGE_TYPE$ to 1
|
|
equ NOTES_ENTRY_DATE$ to 2
|
|
equ NOTES_ENTRY_TIME$ to 3
|
|
equ NOTES_SEND_TO$ to 4
|
|
equ NOTES_FROM$ to 5
|
|
equ NOTES_COMPANY$ to 6
|
|
equ NOTES_PHONE$ to 7
|
|
equ NOTES_INTL_PHONE$ to 8
|
|
equ NOTES_MESSAGE$ to 9
|
|
equ NOTES_ENTRY_ID$ to 10
|
|
equ NOTES_PT_PHONED$ to 11
|
|
equ NOTES_PT_CALL_BACK$ to 12
|
|
equ NOTES_PT_RET_CALL$ to 13
|
|
equ NOTES_PT_WANTS_SEE$ to 14
|
|
equ NOTES_PT_WILL_CALL$ to 15
|
|
equ NOTES_PT_WAS_IN$ to 16
|
|
equ NOTES_PT_URGENT$ to 17
|
|
equ NOTES_SUBJECT$ to 18
|
|
equ NOTES_ATTACH_WINDOW$ to 19
|
|
equ NOTES_ATTACH_KEYS$ to 20
|
|
equ NOTES_MSG_GROUPS_IDS$ to 21
|
|
*/
|
|
|
|
DEBUG
|
|
|
|
CutOffDt = ICONV('12/31/2013','D') ;* Purge up to and including this entry date
|
|
|
|
Done = 0
|
|
RecCnt = 0
|
|
FixCnt = 0
|
|
LOOP
|
|
READNEXT NoteID ELSE Done = 1
|
|
UNTIL Done
|
|
READ NoteRec FROM FileIn,NoteID THEN
|
|
RecCnt += 1
|
|
IF NoteRec<NOTES_ENTRY_DATE$> LE CutOffDt THEN
|
|
|
|
FixCnt += 1
|
|
|
|
EntryDate = OCONV(NoteRec<NOTES_ENTRY_DATE$>,'D4/')
|
|
EntryID = NoteRec<NOTES_ENTRY_ID$>
|
|
From = NoteRec<NOTES_FROM$>
|
|
Subject = NoteRec<NOTES_SUBJECT$>
|
|
|
|
*Send_Dyn(NoteID:' ':EntryID:' ':From:' ':Subject)
|
|
|
|
*DELETE FileIn,NoteID THEN
|
|
|
|
Send_Info(RecCnt:' ':FixCnt)
|
|
*END
|
|
|
|
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
GOTO BAIL
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|