Routine: SDAMQ1

Name	Comments	DBIA/ICR reference
TEXT	;
ADD	; -- add log entries
UPD(SDBEG,SDEND,SDATE,SDFLD,SDADD)	; -- update date fields in 409.65 ; input: SDBEG := begin date ; SDEND := end date ; SDATE := date/time of processing(i.e. NOW) ; SDFLD := date field to update ; SDADD := flag to add entry [optional]
BULLQ
BULL	; -- send bulletin ; use site specified mg

Name	Field # of Occurrence
C^%DTC	ADD+5, UPD+15
^DIC	ADD+3, UPD+13
^DIE	ADD+4, UPD+14
BULL^SDAMQ3	TEXT+15
LINE^SDAMQ3	TEXT+19, TEXT+22
SET^SDAMQ3	TEXT+1, TEXT+2, TEXT+3, TEXT+4, TEXT+5, TEXT+6, TEXT+7, TEXT+8, TEXT+9, TEXT+14 , TEXT+18, TEXT+21
BULL^SDAMQ4	TEXT+16
BULL^SDAMQ5	TEXT+17
XMY^SDUTL2	BULL+3
$$FDATE^VALM1	TEXT+9
$$FTIME^VALM1	TEXT+3, TEXT+4
^XMD	BULL+7

FileNo	Call Tags
^SDD(409.65 - [#409.65]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	BULL+3
^TMP("SDAM NOT UPDATED"	UPD+14
^TMP("SDAMTEXT"	BULL+6!, BULLQ!
^TMP("SDSTATS"	TEXT+12

Name	Line Occurrences
BULLQ	BULL+4
TEXT	BULL+7

Name	Field # of Occurrence
DA	ADD+1~, ADD+4, UPD+7~, UPD+14
DIC	ADD+1~, ADD+3!, UPD+7~, UPD+11, UPD+13!
DIC(0	ADD+3, UPD+11, UPD+12*
DIE	ADD+1~, ADD+4, UPD+7~, UPD+14
DLAYGO	ADD+3!, UPD+12, UPD+13!
DR	ADD+1~, ADD+4, UPD+7~, UPD+14
SDADD	UPD~, UPD+8~*, UPD+12
SDATE	UPD~, UPD+9
SDBEG	TEXT+9, ADD+2, UPD~, UPD+9
SDDR	UPD+7~, UPD+9*, UPD+14
SDDT	ADD+1~, ADD+2, ADD+3, ADD+5, UPD+7~, UPD+9, UPD+10, UPD+11, UPD+14, UPD+15
SDEND	TEXT+9, ADD+3, UPD~, UPD+10
>> SDFIN	TEXT+4
SDFLD	UPD~, UPD+9, UPD+14
SDIVNM	TEXT+10~, TEXT+11, TEXT+12, TEXT+14, TEXT+15, TEXT+16, TEXT+17
SDLN	BULL+2~, BULL+6*, TEXT+15, TEXT+16, TEXT+17
>> SDSTART	TEXT+3
SDTOT	TEXT+10~, TEXT+15, TEXT+16, TEXT+17
SDTOT("DIV"	TEXT+13*, TEXT+19, TEXT+20
SDTOT("OVERALL"	TEXT+11, TEXT+20, TEXT+22
U	BULL+3
X	TEXT+11, TEXT+13, TEXT+20, ADD+1~, ADD+3, ADD+5, UPD+7~, UPD+11*, UPD+15
X1	ADD+1~, ADD+5, UPD+7~, UPD+15
X2	ADD+1~, ADD+5, UPD+7~, UPD+15
XMDUZ	BULL+2~
XMSUB	BULL+2~, BULL+5*
XMTEXT	BULL+2~, BULL+6*
XMY	BULL+2~, BULL+4
>> Y	ADD+4, UPD+14

Information