Routine: SDAMLD

Package	Total	Call Graph
VA Fileman	6	(C,NOW)^%DTC ^DIC DT^DICRW (,IXALL)^DIK EN1^DIP (DT,EN)^DIQ
Scheduling	3	EN^SDAMQ (,HEAD)^SDAMXLD DATE^SDUTL
Kernel	1	^%ZTLOAD
MailMan	1	^XMD
Registration	1	($$FDATE,$$FTIME,$$UPPER)^VALM1

Package	Total	Caller Graph
Scheduling	3	SDAM APPT UPDATE PRINT SDAM APPT UPDATE PURGE SDAM APPT UPDATE VIEW

Entry Points

Name	Comments	DBIA/ICR reference
A	;
Q3
EN
Q4
SHOW
BULL	; Bulletin for purge
SETLN	; Setting TMP global for bulletin
1	;;Update Appointment Status
3	;;View Log Date (date range)
2	;;View Log Date (single entry)
EN4	;
4	;;Purge log entries (data will be kept for current+1 FYs)
LAST()	; ; input - no input (user selection of last) ; output - the latest date, beginning day or -100 days
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
Q2
SELECT

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: !!,"Select APPOINTMENT DATE: "_$S(SDEF]"":SDEF_"// ",1:"") Line Location: SELECT+0
Function Call: WRITE	Prompt: $E("LAST",$L(SDWHEN)+1,4) Line Location: SELECT+4
Function Call: WRITE	Prompt: !,*7,"o update has not completed in the last 100 days" Line Location: SELECT+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: SHOW+0
Function Call: WRITE	Prompt: "Appointment Status Log" Line Location: SHOW+0
Function Call: WRITE	Prompt: !,"This option will not purge dates beyond " Line Location: 4+4
Function Call: WRITE	Prompt: "." Line Location: 4+4
Routine Call	DIC Line Location: A+1 SELECT+6

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SHOW
^DOPT(	EN+1*
^SDD(409.65 - [#409.65]	EN4+3, LAST+5
^TMP("SDAMLBL"	BULL+2!, BULL+12!, SETLN+2*

Name	Field # of Occurrence
^(	EN4+3

Name	Field # of Occurrence
>> %	BULL+8
>> %DT(0	4+5*
BEGDATE	3+2~, 3+5, 4+2~
>> BY	3+4*
D0	SELECT+4, SELECT+6, SHOW+1*, Q2!
DA	SHOW+1, Q2!, EN4+1~, EN4+3*
>> DHD	3+5*
DIC	A+1, SELECT+6!, SHOW+1, Q2!, 3+6
DIC(0	A+1, SELECT+6
DIK	EN, EN4+1~, EN4+2
DT	4+3, LAST+5
DTIME	SELECT
DUZ	BULL+5
DXS	SHOW!
ENDDATE	3+2~, 3+5, 4+2~
>> FLDS	3+4*
>> FR	3+4*
>> I	EN+1*
IO("Q"	QUE+3!
IOF	SHOW
>> L	3+4*
LAST	LAST+4~, LAST+5*, LAST+6
>> LAST1	LAST+5*
SDBD	3+2~, 3+4, 4+2~, EN4+3, BULL+10
SDCNT	4+5, EN4+1~, EN4+2, EN4+3*, BULL+10
SDED	3+2~, 3+3, 3+4, 4+2~, 4+5, 4+6, BULL+10
SDEF	2+2, SELECT, SELECT+2, SELECT+3, SHOW, Q2!
SDI	EN4+1~, EN4+3, LAST+4~, LAST+5
SDLFY	4+2~, 4+4*
SDLIM	4+2~, 4+3*, 4+4
SDLN	BULL+1~, BULL+3, SETLN+1, SETLN+2
SDMAX	4+2~, 4+4, 4+6, EN4+3
SDMSG	BULL+1~, BULL+7, BULL+8, BULL+9, BULL+10, SETLN+2
SDT00	3+2~, 3+3, 4+2~, 4+5
SDWHEN	SELECT, SELECT+1, SELECT+2, SELECT+3, SELECT+4, SELECT+6, Q2!
>> TO	3+4*
U	LAST+5
X	EN, EN+1, SELECT+6, SHOW, Q2!, 3+2~, 4+2~, 4+4, 4+5, LAST+5 , QUE+5
>> X1	4+4, LAST+5
>> X2	4+4, LAST+5
>> XMDUZ	BULL+6*
XMSUB	BULL+3*, BULL+12!
XMTEXT	BULL+4*, BULL+12!
XMY	BULL+3!, BULL+12!
XMY(	BULL+5*
Y	EN+1, A+1, SELECT+6, Q2!, 4+2~, 4+4, 4+7*
>> ZTDESC	QUE+4*
>> ZTIO	QUE+4*
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7

Name	Field # of Occurrence
$T(	EN, A+1
$T(@I	EN+1