Routine: SDWLRPS2

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

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	INIT+17
^%DTC	SORT+7
NOW^%DTC	INIT+17
$$S^%ZTLOAD	EN+2, EN+5, EN+7, PRT1+2
$$EXTERNAL^DILFD	PRA+3
$$GET1^DIQ	PRT+1, HD+4
^DIR	SCR
1^VADPT	PRT1+10
DEM^VADPT	PRT1+10
ELIG^VADPT	SORT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Institution: ",$$GET1^DIQ(4,SDWLIN_",",".01"),! Line Location: PRT+1
Function Call: WRITE	Prompt: !,$$EXTERNAL^DILFD(409.3,SDWLSCX,,SDWLSC),?30,SDWLX Line Location: PRA+3
Function Call: WRITE	Prompt: !,?21,"Total #: ",SDWLXT Line Location: PRA+5
Function Call: WRITE	Prompt: ! Line Location: PRT1+4
Function Call: WRITE	Prompt: !,"* No Patient Records to Report *" 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+11
Function Call: WRITE	Prompt: !,"_______________________________________________________________________________" Line Location: LINE+1
Function Call: WRITE	Prompt: ! Line Location: SCR+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+1
Function Call: WRITE	Prompt: !,SDWLDTP,?80-$L("PCMM ASSIGNMENT Wait List Report")\2,"PCMM ASSIGNMENT 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+4
Function Call: WRITE	Prompt: ?45,$$GET1^DIQ(4,X_",",".01") Line Location: HD+4
Function Call: WRITE	Prompt: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="T":"TEAM",1:"POSITION") Line Location: HD+6
Function Call: WRITE	Prompt: " ALL" Line Location: HD+6
Function Call: WRITE	Prompt: !,?45,X Line Location: HD+8
Function Call: WRITE	Prompt: !,?36,"Status: ",$S(SDWLOPEN="O":"Open",1:"All") Line Location: HD+9
Function Call: WRITE	Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed") Line Location: HD+10
Function Call: WRITE	Prompt: !!,"Name",?30,"Date Entered",?45,"# of Days Waiting",!! Line Location: HD1+1
Routine Call	DIR Line Location: SCR

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SDWL(409.3 - [#409.3]	EXTERNAL^DILFD

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
END	EN+2, EN+5, EN+6, EN+7
HD	EN+3, PRA+6, PRT1+5, PRT1+13
HD1	PRA+6, PRT1+5, PRT1+13
INIT	EN+1
PRA	PRT+2
PRT	EN+6
PRT1	EN+8
SCR	PRA+6, PRT1+5, PRT1+13
SORT	EN+4

Naked Globals

Name	Field # of Occurrence
^(	SORT+16, SORT+17, SORT+18, SORT+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Scheduling

Routine: SDWLRPS2

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: