Routine: SDWLRAD

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT ^DIC YN^DICN ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Header
END
CT1
CT2
FORM	;Report Format
OPEN	;OPEN Wait List Entries
PRI	;Priority
CAT	;Report category selection
QUE	;Queue Report
DATE	;Date range selection
INS	;Get Institution
E1
HD
DIS	;Display Parameters

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
DD^%DT	DIS+6
^DIC	INS+1, CT1
YN^DICN	E1, OPEN+1, DIS+11
^DIR	CAT+3, PRI+3, FORM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !,"Beginning Date must be greater than Ending Date." Line Location: DATE+3
Function Call: WRITE	Prompt: !,"Print Report for ALL dates? " Line Location: E1+0
Function Call: WRITE	Prompt: !!," * Report Category Selection *" Line Location: CAT+1
Function Call: WRITE	Prompt: " Invalid Selection." Line Location: CAT+6
Function Call: WRITE	Prompt: !!,"Select Category for Report Output",! Line Location: CAT+7
Function Call: WRITE	Prompt: !!,"Do you want to 'OPEN' Wait List Entries " Line Location: OPEN+1
Function Call: WRITE	Prompt: !!,?80-$L("* Selected Report Parameters ")\2,"** Selected Report Parameters",! Line Location: DIS+1
Function Call: WRITE	Prompt: !,"Institution: ALL INSTITUTIONS" Line Location: DIS+5
Function Call: WRITE	Prompt: !,"Date Desired Range: " Line Location: DIS+6
Function Call: WRITE	Prompt: " ",SDWLBD," to ",SDWLED Line Location: DIS+6
Function Call: WRITE	Prompt: !,"Report Category: ",$S(SDWLCAT="C":" Clinic",1:" Service/Specialty") Line Location: DIS+7
Function Call: WRITE	Prompt: !,"Priority: ",$S(SDWLPRI="I":" Immediate",1:" Future") Line Location: DIS+8
Function Call: WRITE	Prompt: !,"Output Format: ",$S(SDWLFORM="D":" Detailed",1:" Summary") Line Location: DIS+9
Function Call: WRITE	Prompt: !,"Printing 'OPEN' Entries Only." Line Location: DIS+10
Function Call: WRITE	Prompt: !!,"Are these Parameters Correct " Line Location: DIS+11
Function Call: WRITE	Prompt: !," This Report will NOT be queued to print." Line Location: DIS+11
Function Call: WRITE	Prompt: !," This Report will NOT be queued and returning." Line Location: DIS+12
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: INS+1 CT1
Routine Call	DIR Line Location: CAT+3 PRI+3 FORM+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	E1, E1+1, E1+2, OPEN+1, OPEN+2, OPEN+3, DIS+11*, DIS+12
>> %DT	DATE+1*
>> %DT("A"	DATE+1, DATE+2!
>> %DT(0	DATE+2*!
DIC	EN+2!, INS+1, CT1, PRI+1!
DIC("A"	INS+1, CT1
DIC("S"	INS+1*
DIC(0	INS+1, CT1
DIE	EN+2!
DIR	EN+2!, PRI+1!
DIR("L"	CAT+2, PRI+2, FORM+1*
DIR(0	CAT+2, PRI+2, FORM+1*
DR	EN+2!
>> DUOUT	INS+2
>> E	EN+4, EN+5, EN+6, EN+7, EN+8, EN+10, DIS+5
IOF	HD
>> SDWLBD	DIS+6*
>> SDWLBDT	DATE+1*, DATE+2, DATE+3, DATE+4
>> SDWLCAT	CAT+2, CT1, CT1+1, CT1+2, CT1+3, DIS+7
>> SDWLDATE	DIS+6
>> SDWLE	EN+2, INS+1, INS+4, INS+5
>> SDWLED	DIS+6*
>> SDWLEDT	DATE+2*, DATE+3, DATE+4
>> SDWLERR	INS+5, DATE+1, E1+1, CAT+1, CAT+4, CAT+5, CT1+1, CT1+2, PRI+1, PRI+4 , PRI+5, OPEN+2, FORM+1, FORM+3, DIS+1, DIS+11, DIS+12*
>> SDWLF	CAT+9*, CT1
>> SDWLFORM	DIS+9
>> SDWLI	DIS+2*, DIS+3
>> SDWLINS	DIS+4
>> SDWLINST	EN+2, INS+4
>> SDWLOPEN	DIS+10
>> SDWLPRI	DIS+8
>> SDWLX	CAT+8*, CT1
U	DIS+6
>> X	CAT+4, CAT+5, CAT+6, CAT+8, CAT+9, PRI+4, PRI+5, PRI+6, FORM+3, FORM+4 , DIS+3*
>> Y	INS+1, INS+2, INS+3, INS+5, DATE+1, DATE+2, CT1, CT1+1, CT1+2, CT1+4 , DIS+6

Customize PDF page

Package: Scheduling

Routine: SDWLRAD

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CAT	EN+5, EN+6, CAT+6
CT1	CT1+4
CT2	CT1
DATE	EN+4, EN+5, DATE+2, DATE+3
DIS	EN+9
E1	DATE+1
END	INS+2, E1+2
FORM	EN+8
HD	EN+1
INS	EN+3, EN+4, INS+2, INS+5
OPEN	EN+7, EN+8
PRI	EN+6, EN+7
QUE	EN+10