Routine: SDWLCU1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$TF^XUAF4
VA Fileman	2	$$GET1^DIQ ^DIR
Scheduling	1	^SDWLCU5

Package	Total	Caller Graph
Scheduling	1	SD WAIT LIST CLEANUP

Entry Points

Name	Comments	DBIA/ICR reference
NULL	;
QEND	;
EDIT	;
QUE1
START	;
INIT	;
QUE	;Queue Report
EXIT	;
SAVE	;
DISPLAY	;

External References

Name	Field # of Occurrence
^%ZIS	QUE+2
^%ZISC	QEND+2
^%ZTLOAD	QUE+7
$$GET1^DIQ	START+2, SAVE+7, SAVE+9
^DIR	EDIT+15
^SDWLCU5	INIT+6
$$TF^XUAF4	START+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," *** EWL CLEANUP RUN HAS FINISHED ***" Line Location: INIT+8
Function Call: WRITE	Prompt: !!,"==>> Run option until list is clean.",! Line Location: INIT+9
Function Call: WRITE	Prompt: # Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,COUNT,?10,"ENTRIES IN SD WAIT LIST POINT TO AN INSTITUTION WITH" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,?10,"A STATUS NOT EQUAL TO NATIONAL OR ISN'T A TREATING FACILITY." Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !!," CHECK KEY FIELDS FOR NULL VALUE ",!! Line Location: NULL+1
Function Call: WRITE	Prompt: !,"REQUEST QUEUED" Line Location: QUE+7
Routine Call	DIR Line Location: EDIT+15
Routine Call	%ZIS Line Location: QUE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCTM(404.51 - [#404.51]	SAVE+3
^SCTM(404.57 - [#404.57]	SAVE+5
^SDWL(409.3 - [#409.3]	START+1, START+3, SAVE+1, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7, SAVE+8 , SAVE+9
^SDWL(409.31 - [#409.31]	SAVE+7
^SDWL(409.32 - [#409.32]	SAVE+9
^TMP($J	INIT+3!, SAVE+1, SAVE+3, SAVE+5, SAVE+7, SAVE+9*, DISPLAY+1, DISPLAY+7, DISPLAY+8, DISPLAY+12 , DISPLAY+13, DISPLAY+17, DISPLAY+18, DISPLAY+22, DISPLAY+23, EXIT+1!

Label References

Name	Line Occurrences
@(	EDIT+16, EDIT+17, QUE1
DISPLAY	INIT+5, EDIT+16, EDIT+17
EDIT	EDIT+15
EXIT	INIT+10, EDIT+15
NULL	INIT+7
QEND	QUE+7
QUE1	QUE+2
SAVE	START+5
START	INIT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE+2!*
ANS	INIT+1*, EXIT+2!
C	EXIT+5!
CC	DISPLAY+1*, EXIT+2!
CLINIC	INIT+2, SAVE+9, EXIT+3!
CLINICN	INIT+2, SAVE+9, EXIT+3!
CLNAM	INIT+2, SAVE+9, EXIT+3!
CODE	INIT+1, START+2, START+5, EXIT+2!
COUNT	INIT+1, DISPLAY+1, DISPLAY+2, DISPLAY+4, EXIT+2!
COUNT1	DISPLAY+6, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+13, DISPLAY+15, DISPLAY+16, DISPLAY+18, DISPLAY+20, DISPLAY+21* , DISPLAY+23*, DISPLAY+25, EXIT+5!
CS	EXIT+5!
DIC	QEND+1!
DIE	QEND+1!
DIR	QEND+1!
DIR("A"	EDIT+14*
DIR("L"	EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13
DIR(0	EDIT+7*
DR	QEND+1!
>> DUOUT	EDIT+15
ENTRY	EXIT+5!
HEAD	EXIT+2!
IEN	INIT+1, START+3, SAVE+1, SAVE+2, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+7, SAVE+8 , SAVE+9, DISPLAY+8, DISPLAY+13, DISPLAY+18, DISPLAY+23, EXIT+2!
INCK	START+4*, START+5, EXIT+2!
INST	INIT+1, START+1, START+2, START+3, START+4, SAVE+3, SAVE+5, SAVE+7, SAVE+9, DISPLAY+6* , DISPLAY+7, DISPLAY+8, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+16, DISPLAY+17, DISPLAY+18, DISPLAY+21, DISPLAY+22* , DISPLAY+23, EXIT+2!, EXIT+4!
INST1	INIT+2*, EXIT+3!
INST2	INIT+2*, EXIT+3!
INST3	INIT+2*, EXIT+3!
INST4	INIT+2*, EXIT+3!
IO	QUE1
IO("Q"	QUE+7!
IOC	QUE+2!
IOP	QUE+2!
NAME	INIT+1*, EXIT+2!
NN	EXIT+2!
NUM	INIT+1*, EXIT+2!
PAT	EXIT+5!
POP	QUE+1~, QUE+2
POS	INIT+2, SAVE+5, EXIT+3!
POSNAM	INIT+2, SAVE+5, EXIT+3!
REC	INIT+1*, EXIT+2!
SDREC	EXIT+5!
SDWLDA	EXIT+5!
SDWLERR	INIT+3!, EXIT+4!
SDWLI	EXIT+5!
SDWLIENS	EXIT+5!
SDWLIN	EXIT+5!
SDWLINS	EXIT+5!
SDWLINSN	EXIT+6!
SDWLINST	EXIT+6!
SDWLIX	EXIT+6!
SDWLIZ	EXIT+6!
SDWLPO	EXIT+6!
SDWLR	EDIT+16, EDIT+17, EXIT+6!
SDWLSC	EXIT+6!
SDWLSCX	EXIT+6!
SDWLSPT	QUE+2!
SDWLSS	EXIT+6!
SDWLSSN	EXIT+7!
SDWLSSV	EXIT+7!
SDWLSSX	EXIT+7!
SDWLTM	EXIT+7!
SDWLTY	EDIT+16, EDIT+17, EXIT+7!
SER	INIT+2, SAVE+7, EXIT+3!
SERN	INIT+2, SAVE+7, EXIT+3!
SERNAM	INIT+2, SAVE+7, EXIT+3!
SSN	EXIT+4!
TAG	EXIT+7!
TEAM	INIT+2, SAVE+3, EXIT+3!, EXIT+4!
TEAMN	INIT+2, SAVE+3, EXIT+3!, EXIT+4!
TOTAL	INIT+1*, EXIT+2!
WLTC1	INIT+1, SAVE+2, DISPLAY+6, DISPLAY+9, EDIT+1, EDIT+3, EDIT+10, EXIT+2!
WLTC2	INIT+1, SAVE+4, DISPLAY+11, DISPLAY+14, EDIT+1, EDIT+4, EDIT+11, EXIT+2!
WLTC3	INIT+1, SAVE+6, DISPLAY+16, DISPLAY+19, EDIT+1, EDIT+5, EDIT+12, EXIT+2!
WLTC4	INIT+1, SAVE+8, DISPLAY+21, DISPLAY+24, EDIT+1, EDIT+6, EDIT+13, EXIT+2!
>> X	EDIT+2, EDIT+3, EDIT+4, EDIT+5, EDIT+6*, EDIT+7
>> Y	EDIT+15, EDIT+16, EDIT+17
ZCC	EXIT+7!
ZTDESC	QUE+3*, QEND+1!
ZTDTH	QUE+3*, QEND+1!
ZTIO	QUE+2!
ZTQUEUED	QUE+1~
ZTRTN	QUE+3*, QUE1, QEND+1!

Customize PDF page

Package: Scheduling

Routine: SDWLCU1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: