Routine: SDWLRPS1

Package	Total	Call Graph
VA Fileman	4	DD^%DT (,NOW)^%DTC $$EXTERNAL^DILFD ^DIR
Kernel	1	$$S^%ZTLOAD
Registration	1	(1,DEM,ELIG)^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;Sort Records
EN	;
PRA	;
HD1	;
PRT	;
INIT	;Initialize variables
PRT1	;
INIT1
END
LINE	;Draw Line
HD	;Header

External References

Name	Field # of Occurrence
DD^%DT	INIT1, HD+6
^%DTC	SORT+9
NOW^%DTC	INIT1
$$S^%ZTLOAD	EN+2, EN+5, EN+9, PRT1+3
$$EXTERNAL^DILFD	PRA+2, PRT1+8, HD+11
^DIR	PRA+5, PRT1+15
1^VADPT	PRT1+12
DEM^VADPT	PRT1+12
ELIG^VADPT	SORT+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* End of Report *" Line Location: EN+7
Function Call: WRITE	Prompt: !!,"* End of Report *" Line Location: EN+11
Function Call: WRITE	Prompt: !!,"* No Patients to Report *" Line Location: PRT+1
Function Call: WRITE	Prompt: !,"Institution: ",$P($G(^DIC(4,SDWLIN,0)),U,1),! Line Location: PRT+2
Function Call: WRITE	Prompt: !,$$EXTERNAL^DILFD(SDWLF,.01,,$P(^SDWL(SDWLF,SDWLSC,0),U,1)),?30,SDWLX Line Location: PRA+2
Function Call: WRITE	Prompt: !,?20,"Total #: ",SDWLXT Line Location: PRA+4
Function Call: WRITE	Prompt: ! Line Location: PRT1+5
Function Call: WRITE	Prompt: ?32,$E(SDWLODT,4,5),"/",$E(SDWLODT,6,7),"/",($E(SDWLODT,1,3)+1700) Line Location: PRT1+13
Function Call: WRITE	Prompt: !,"_______________________________________________________________________________" Line Location: LINE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+1
Function Call: WRITE	Prompt: !,SDWLDTP,?80-$L("Appointment Wait List Report")\2,"Appointment Wait List Report" Line Location: HD+1
Function Call: WRITE	Prompt: ?72,"Page: ",SDWLPG Line Location: HD+2
Function Call: WRITE	Prompt: !!,?30,"Institution: " Line Location: HD+3
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: HD+5
Function Call: WRITE	Prompt: ?45,X Line Location: HD+5
Function Call: WRITE	Prompt: !,?23,"Date Desired Range: ",SDWLBDT," to ",SDWLEDT Line Location: HD+7
Function Call: WRITE	Prompt: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="C":"CLINIC",1:"SPECIALTY") Line Location: HD+9
Function Call: WRITE	Prompt: " ALL" Line Location: HD+9
Function Call: WRITE	Prompt: !,?45,$$EXTERNAL^DILFD(SDWLF,.01,,X) Line Location: HD+11
Function Call: WRITE	Prompt: !,?36,"Status: ",$S(SDWLOPEN="O":"Open",1:"All") Line Location: HD+12
Function Call: WRITE	Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed") Line Location: HD+13
Function Call: WRITE	Prompt: ! Line Location: HD+14
Function Call: WRITE	Prompt: !!,"Name",?30,"Date Entered",?45,"Date Desired",?60,"# of Days Waiting",! Line Location: HD1+2
Routine Call	DIR Line Location: PRA+5 PRT1+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	INIT+14, PRT+2, PRT1+6
^SDWL(	PRA+2, PRT1+8
^SDWL(409.3 - [#409.3]	SORT+2, SORT+3, PRT1+11
^TMP("SDWLRPS1"	EN+12!, SORT+1!, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23*, PRT+1, PRT+2 , PRA+1, PRA+2, PRA+3, PRT1+3, PRT1+5, PRT1+7, PRT1+9, PRT1+10
^TMP("SDWLRPT1"	INIT+14*, END+1!

Label References

Name	Line Occurrences
END	EN+2, EN+5, EN+7, EN+8, EN+9
HD	EN+3, PRT1+16
HD1	PRT1+2, PRT1+15
INIT	EN+1
INIT1	INIT+16
PRA	PRT+3
PRT	EN+6
PRT1	EN+10
SORT	EN+4

Naked Globals

Name	Field # of Occurrence
^(	SORT+18, SORT+19, SORT+20, SORT+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT1
CT1	INIT+2, END!
CT2	INIT+3, END!
DATE	INIT+4, END!
DFN	SORT+17, PRT1+1~, PRT1+11, PRT1+12!
>> DIR(0	PRA+5, PRT1+15
DT	SORT+9
>> DUOUT	EN+7, PRT+1*
FORM	INIT+5, END!
I	HD+5, HD+11, END!
INS	INIT+6, END!
IOF	HD+1, HD1+1
IOSL	PRA+5, PRT1+15, PRT1+16
OPEN	INIT+7, END!
POP	EN+8, INIT+18~, PRT+2, PRA+5, PRT1+3, PRT1+5, PRT1+7, PRT1+9, PRT1+10, PRT1+11 , PRT1+15*
>> SDWL	INIT+10*
>> SDWLAPDT	SORT+9*
>> SDWLBD	INIT+16, INIT+17, SORT+8
>> SDWLBDT	HD+6*, HD+7
>> SDWLCT	INIT+15*
>> SDWLCT1	INIT+2*, INIT+12, SORT+10, SORT+11, HD+9
>> SDWLCT2	INIT+3*, INIT+15, SORT+12, HD+8, HD+11
>> SDWLCT2(	INIT+15*, SORT+13
>> SDWLDA	SORT+2, SORT+3, SORT+23, PRT1+10, PRT1+11
>> SDWLDATE	INIT+4*, INIT+16, INIT+17, HD+6
>> SDWLDDT	SORT+3, PRT1+11, PRT1+14
>> SDWLDFN	SORT+3*, SORT+17, SORT+20
>> SDWLDFNX	PRA+3*
>> SDWLDTP	INIT1*, HD+1
>> SDWLDWT	SORT+9*, SORT+23
>> SDWLED	INIT+16, INIT+17, SORT+8
>> SDWLEDT	HD+6*, HD+7
>> SDWLERR	SORT+3, SORT+6, SORT+8, SORT+10, SORT+13, SORT+14, SORT+15*, SORT+16
>> SDWLF	SORT+11*, PRA+2, PRT1+8, HD+11
>> SDWLFORM	INIT+5*, HD+13
>> SDWLI	INIT+10, INIT+14, INIT+15*
>> SDWLIN	INIT+14, PRT+2, PRA+1, PRA+2, PRA+3
>> SDWLIN(	INIT+14*, SORT+6
>> SDWLIN("ALL"	INIT+11*
>> SDWLINS	INIT+6, INIT+11, INIT+14, SORT+5, PRT1+5, PRT1+6, PRT1+7, PRT1+9, PRT1+10, HD+3 , HD+4, HD+5
>> SDWLODT	PRT1+11*, PRT1+13
>> SDWLOPDT	SORT+9*
>> SDWLOPEN	INIT+7, INIT+13, SORT+15, HD+12
>> SDWLPG	INIT+8, HD+2
>> SDWLSC	PRA+1, PRA+2, PRA+3, PRT1+7, PRT1+8, PRT1+9, PRT1+10
>> SDWLSCC	SORT+17, SORT+21, SORT+22, SORT+23, PRT1+3, PRT1+4, PRT1+5, PRT1+7, PRT1+9, PRT1+10
>> SDWLSCN	SORT+17*
>> SDWLSPT	PRA+5, PRT1+15
>> SDWLTXP	INIT+12*
>> SDWLTYP	SORT+10*, SORT+14
>> SDWLTYPE	SORT+10*, SORT+13, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23
>> SDWLWT	PRT1+9*, PRT1+10, PRT1+14
>> SDWLX	SORT+3, SORT+6, SORT+8, SORT+9, SORT+10, SORT+15, SORT+18, SORT+19, SORT+20, SORT+21 , SORT+22, SORT+23, PRA+1, PRA+2*
>> SDWLXT	PRA+1, PRA+2, PRA+4
>> SDWLXTT	PRA+3*
U	INIT+12, INIT+14, INIT+15, INIT+17, SORT+3, SORT+6, SORT+8, SORT+9, SORT+10, SORT+11 , SORT+15, SORT+17, SORT+18, SORT+19, SORT+20, SORT+21, SORT+22, SORT+23, PRT+2, PRA+2 , PRT1+6, PRT1+8, PRT1+11, HD+6, HD+8, HD+9
>> VA("BID"	PRT1+13
>> VADM(1	PRT1+13
>> VAEL(3	SORT+17
>> X	SORT+9, PRA+5, PRT1+11, PRT1+15, HD+5, HD+8, HD+9, HD+10, HD+11, HD+12* , HD+13*
X1	SORT+9*, END!
X2	SORT+9*, END!
>> Y	INIT1, HD+6
>> ZTSAVE	INIT+9
>> ZTSAVE(	INIT+10

Customize PDF page

Package: Scheduling

Routine: SDWLRPS1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: