Routine: SDWLRQ1

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT ^DIC YN^DICN $$EXTERNAL^DILFD ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Scheduling	1	SD WAIT LIST APPT REPORT

Entry Points

External References

Name	Field # of Occurrence
^%DT	DATE+6, DATE+10
DD^%DT	DA
^%ZIS	QUE+2
^%ZISC	END+3
^%ZTLOAD	QUE+8
^DIC	IN, CT1
YN^DICN	DATE+2, OPEN+1, PR+2
$$EXTERNAL^DILFD	CT+4
^DIR	CAT+4, FORM+3, PR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," * Report Category Selection *" Line Location: CAT+2
Function Call: WRITE	Prompt: *7 Line Location: CAT+5
Function Call: WRITE	Prompt: *7 Line Location: CAT+6
Function Call: WRITE	Prompt: *7," Invalid Selection." Line Location: CAT+8
Function Call: WRITE	Prompt: !!,"Select Category for Report Output",! Line Location: CAT+9
Function Call: WRITE	Prompt: !,"This Entry is Required." Line Location: CT1+1
Function Call: WRITE	Prompt: !!,"Print Report for ALL dates? " Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+6
Function Call: WRITE	Prompt: !,"Beginning Date must be greater than Ending Date." Line Location: DATE+12
Function Call: WRITE	Prompt: !!,"Do you want only 'OPEN' Wait List Entries " Line Location: OPEN+1
Function Call: WRITE	Prompt: " Response must be 'YES' or 'NO'." Line Location: OPEN+2
Function Call: WRITE	Prompt: *7,"?? " Line Location: OPEN+3
Function Call: WRITE	Prompt: *7,"Required!" Line Location: FORM+6
Function Call: WRITE	Prompt: !!,?80-$L("* Selected Report Parameters ")\2," Selected Report Parameters *",! Line Location: DIS+1
Function Call: WRITE	Prompt: !,?33 Condition for execution: I>1 Line Location: IS+3
Function Call: WRITE	Prompt: SDWLY(I) Line Location: IS+3
Function Call: WRITE	Prompt: !,?20,"Institution: ALL " Line Location: IS+5
Function Call: WRITE	Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36 Line Location: CT+3
Function Call: WRITE	Prompt: "All " Line Location: CT+3
Function Call: WRITE	Prompt: !,?35 Condition for execution: I>1 Line Location: CT+4
Function Call: WRITE	Prompt: $$EXTERNAL^DILFD(SDWLF,.01,,SDWLY(I)) Line Location: CT+4
Function Call: WRITE	Prompt: !,?16,"Report Category: " Line Location: CT+5
Function Call: WRITE	Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36 Line Location: CT+5
Function Call: WRITE	Prompt: $S(SDWLCT1["C":"Clinic",1:"Service Specialty"),!,?36 Line Location: CT+5
Function Call: WRITE	Prompt: !,?13,"Date Desired Range: " Line Location: DA+0
Function Call: WRITE	Prompt: " ",SDWLBD Line Location: DA+1
Function Call: WRITE	Prompt: " to ",SDWLED Line Location: DA+2
Function Call: WRITE	Prompt: !,?18,"Output Format: ",$S(SDWLFORM="D":" Detailed",1:" Summary") Line Location: OP+0
Function Call: WRITE	Prompt: !,?25,"Printing 'OPEN' Entries Only." Line Location: PR+0
Function Call: WRITE	Prompt: !,?25,"Printing ALL Entries." Line Location: PR+1
Function Call: WRITE	Prompt: !!,"Are these Parameters Correct " Line Location: PR+2
Function Call: WRITE	Prompt: !," This Report will NOT be queued to print." Line Location: PR+2
Function Call: WRITE	Prompt: !,"REQUEST QUEUED" Line Location: QUE+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+0
Function Call: WRITE	Prompt: !,?80-$L("Appointment Wait List Report")\2,"Appointment Wait List Report" Line Location: HD+0
Routine Call	DIC Line Location: IN CT1
Routine Call	DIR Line Location: CAT+4 FORM+3 PR+3
Routine Call	%ZIS Line Location: QUE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SDWLRQ1"	EN+3!, IN+3, IN2, CAT+15, CT1, CT1+1, CT2, DATE+3, DATE+13, OPEN+4 , FORM+7*, DIS+3, QUE+4, QUE+5

Label References

Name	Line Occurrences
1	2
2	2, 3
3	4
4	5
@(	DIS+4, QUE1
CAT	2, CAT+8, CT1+1
CT1	CT1+3, CT2
CT2	CT1+2
CT3	CT1
DATE	3, DATE+10, DATE+11, DATE+12
DIS	6
E1	DATE+3, DATE+8
EN	6
END	1, 3, 6, QUE+8
FORM	5, FORM+6
HD	EN+2
IN	IN+4
IN2	IN+1
IN3	IN+3
INS	1
OPEN	4, OPEN+2
QUE	6+1
QUE1	QUE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DATE+2, DATE+3, DATE+4, DATE+5, OPEN+1, OPEN+2, OPEN+3, OPEN+4, PR+2*
%DT	DATE+1!, DATE+6*
%DT("A"	DATE+6, DATE+10!
%DT(0	DATE+10*!
%ZIS	QUE+2!*
DIC	EN+3!, IN, CAT+1!, CAT+14!, CT1, END+2!
DIC("A"	IN, CAT+15, CT1+3*
DIC("S"	IN*
DIC(0	IN, CT1
DIE	EN+3!, CAT+1!, END+2!
DIR	EN+3!, CAT+1!, CAT+14!, END+2!
DIR("L"	CAT+3, FORM+1, FORM+2*
DIR(0	CAT+3, FORM+1, PR+3*
DR	EN+3!, CAT+1!, CAT+14!, END+2!
>> DUOUT	1, 2, 3, 4, 5, IN, IN+1, DATE+9, DATE+11, FORM+5*
I	IS+1, IS+3, CT+2, CT+4, END+1!
IO	QUE1
IO("Q"	QUE+8!
IOC	QUE+2!
IOF	HD
IOP	QUE+2!
IOST	QUE1
POP	QUE+1~, QUE+2
SDLFD	END+2!
>> SDWLBD	DA*, DA+1
>> SDWLBDT	DATE+8*, DATE+10, DATE+12, DATE+13
>> SDWLCAT	CAT+3, CT1+3, CT2
>> SDWLCT1	CT+1, CT+3, CT+5
>> SDWLCT2	CT, CT+2, CT+5
SDWLCTX	CAT+13*, CAT+15, END+2!
SDWLDAT	END+2!
SDWLDATE	DA, END+1!
>> SDWLE	CAT+15, CT1, CT1+3
SDWLED	DA*, DA+2, END+1!
>> SDWLEDT	DATE+10*, DATE+12, DATE+13
SDWLERR	EN+3, 2, 3, 4, 5, 6, INS+2, IN, IN+4, CAT+2 , CAT+3, CAT+5, CAT+6, DATE+6, DATE+7, OPEN+3, FORM+1, DIS+1, PR+2, PR+3 , END+2!
SDWLF	CAT+11, CAT+15, CT1, CT+1, CT+4, END+2!
>> SDWLFD	CAT+12*, CAT+15
SDWLFORM	FORM+4*, FORM+6, FORM+7, OP, QUE+3, END+1!
SDWLI	DIS+2*, DIS+3, END+2!
>> SDWLINS	IS, IS+1, IS+5
SDWLINST	EN+3, INS+1~, IN+2, IN+3, IN+4*, IN2, END+2!
SDWLOPEN	PR, END+1!
SDWLPRI	END+1!
SDWLPROM	INS+2, IN, IN+4, END+2!
SDWLSPT	QUE1*!
SDWLTAG	DIS+4*, END+2!
SDWLTASK	QUE+4*, QUE+5, QUE+6, END+1!
>> SDWLTK	QUE+5*, QUE+6
SDWLX	CAT+10*, CAT+15, CT1+3, END+2!
SDWLY	IS+1!, IS+3, IS+4!, CT+2!, CT+4, END+1!, END+2!
SDWLY(	IS+1, IS+3, CT+2, CT+4
U	IS+1, CT+1, CT+2, DA
WDWLBD	END+1!
X	CAT+5, CAT+6, CAT+7, CAT+8, CAT+10, CAT+11, CAT+12, CAT+13, DATE+1!, DATE+7 , FORM+4, FORM+5, DIS+3, CT+3, PR+3
Y	IN, IN+1, IN+2, IN+3, IN+4, CT1, CT1+1, CT1+2, CT1+3, DATE+1! , DATE+8, DATE+10, DA
ZCODE	EN+1~
ZTDESC	EN+1~, QUE+3*
ZTDTH	EN+1~, QUE+3*
ZTIO	EN+1~, QUE+2!
ZTQUEDED	EN+1~
ZTQUEUED	QUE+1~, END+3
ZTREQ	EN+1~, END+3*
ZTRTN	EN+1~, QUE+3*, QUE1
ZTSAVE	EN+1~
ZTSAVE(	QUE+6*
ZTSAVE("SDWLF"	QUE+7*
ZTSK	EN+1~

Customize PDF page

Package: Scheduling

Routine: SDWLRQ1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
IN2
CAT	;Report category selection
QUE1
DATE	;Date range selection
OPEN	;OPEN Wait List Entries
HD
DIS	;Display Parameters
PR
DA
1
3
2
5
4
6
E1
EN	;Header
END	;
FORM	;Report Format
IS
IN
IN3
CT
CT1
CT2
CT3
INS	;Get Institution
QUE	;Queue Report
OP