Routine: SDWLRPT1

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

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;Sort Records
EN
END
INIT	;Initialize variables
INIT1
PRINT	;Print Report
LINE	;Draw Line
HD	;Header

External References

Name	Field # of Occurrence
DD^%DT	INIT1, PRINT+16, HD+6
NOW^%DTC	INIT1
$$S^%ZTLOAD	EN+1, EN+3, EN+5, PRINT+3
$$EXTERNAL^DILFD	PRINT+24, PRINT+25
$$GET1^DIQ	SORT+17, SORT+18, PRINT+22
^DIR	PRINT+32
EN^SDWLKIL	END+4
ADD^VADPT	PRINT+10
DEM^VADPT	PRINT+10
ELIG^VADPT	SORT+15, PRINT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?80-$L("* No Patient Records to Report ")\2," No Patient Records to Report *" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,"* No Patient Records to Report *" Line Location: PRINT+4
Function Call: WRITE	Prompt: X,! Line Location: PRINT+6
Function Call: WRITE	Prompt: ?50,"Desired Date: ",SDWLAPTD Line Location: PRINT+18
Function Call: WRITE	Prompt: $S(SDWLSCP=1:"YES",1:"NO") Line Location: PRINT+22
Function Call: WRITE	Prompt: !,"Requested by: ",$$EXTERNAL^DILFD(409.3,11,,SDWLRBY) Line Location: PRINT+24
Function Call: WRITE	Prompt: ?35,"Requesting Provider: " Line Location: PRINT+25
Function Call: WRITE	Prompt: X Line Location: PRINT+25
Function Call: WRITE	Prompt: !,?10,"(Work): ",$P(SDWLPH,U,2) Line Location: PRINT+26
Function Call: WRITE	Prompt: !,"Disposition: ",$P(SDWLDISX,U,3)," (",SDWLDIDT,")" Line Location: PRINT+30
Function Call: WRITE	Prompt: !!," End of Report " Line Location: PRINT+34
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 Line Location: HD+7
Function Call: WRITE	Prompt: " to ",SDWLEDT Line Location: HD+8
Function Call: WRITE	Prompt: !?26,"Report Category: ",$S($P(SDWLCT1,U,1)="C":"CLINIC",1:"SPECIALTY") Line Location: HD+10
Function Call: WRITE	Prompt: " ALL" Line Location: HD+10
Function Call: WRITE	Prompt: !,?45,$S(SDWLF="C":$P(^SC(X,0),U,1),1:$P(^DIC(40.7,X,0),U,1)) Line Location: HD+13
Function Call: WRITE	Prompt: !,?35,"Status: ",$S(SDWLOPEN="O":"Open",1:"All") Line Location: HD+14
Function Call: WRITE	Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed") Line Location: HD+15
Routine Call	DIR Line Location: PRINT+32

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	INIT+14, SORT+20
^DIC(40.7 - [#40.7]	HD+13
^SC - [#44]	HD+13
^SDWL(409.3 - [#409.3]	SORT+1, SORT+2, PRINT+10, PRINT+14, PRINT+15, PRINT+27, PRINT+28, PRINT+29
^TMP("SDWLRPT1"	EN+6!, INIT+14, SORT+19, SORT+20*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+7, PRINT+8 , PRINT+9
^TMP("SDWLRQ1"	EN+6!

Label References

Name	Line Occurrences
END	EN+1, EN+3, EN+5, PRINT+3
HD	PRINT+2, PRINT+33
INIT	EN
INIT1	INIT+16
LINE	PRINT+4
PRINT	EN+4
SORT	EN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT1
CT1	INIT+2, END+3!
CT2	INIT+3, END+3!
DATE	INIT+4, END+3!
DFN	SORT+15, PRINT+1~, PRINT+10
>> DIR(0	PRINT+32*
>> DUOUT	PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+32*, PRINT+33
FORM	INIT+5, END+3!
I	HD+5, HD+13, END+3!
INS	INIT+6, END+3!
IOF	HD+1
IOSL	PRINT+32, PRINT+33
OPEN	INIT+7, END+3!
SDLTK	END+2!
SDLWDA	END+1!
SDLWDEAD	END+1!
SDWL	INIT+10*, END!
SDWLA	PRINT+3*, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+9, END!
SDWLAPTD	PRINT+14, PRINT+16, PRINT+18, END!
SDWLB	PRINT+5*, PRINT+6, PRINT+7, PRINT+8, PRINT+9, END!
SDWLBD	INIT+16, INIT+17, SORT+7, END!
SDWLBDT	HD+6*, HD+7, END!
SDWLC	PRINT+7*, PRINT+8, PRINT+9, END!
SDWLCAT	END!
SDWLCNT	SORT+1, SORT+20, PRINT+2*, END!
SDWLCOM	PRINT+14*, PRINT+23, END!
>> SDWLCT	INIT+15*
SDWLCT1	INIT+2*, INIT+12, SORT+8, SORT+16, HD+10, HD+11, END!
SDWLCT2	INIT+3*, INIT+15, SORT+9, HD+9, HD+13, END!
SDWLCT2(	INIT+15*, SORT+10
SDWLCTX	END!
SDWLD	PRINT+8*, PRINT+9, END!
>> SDWLDA	SORT+1*, SORT+2, SORT+19
>> SDWLDATE	INIT+4*, INIT+16, INIT+17, HD+6
>> SDWLDDT	PRINT+29*
SDWLDDUZ	PRINT+28*, PRINT+30!
>> SDWLDEAD	PRINT+13*
SDWLDFN	SORT+2, SORT+15, PRINT+10, END+1!
SDWLDIDT	PRINT+29*, PRINT+30!
SDWLDIS	PRINT+28*, PRINT+30!
SDWLDISX	PRINT+28*, PRINT+30!
>> SDWLDTP	INIT1*, HD+1
SDWLE	PRINT+9*, PRINT+10, PRINT+14, PRINT+15, PRINT+22, PRINT+27, PRINT+28, PRINT+29, END+1!
>> SDWLED	INIT+16, INIT+17, SORT+7
SDWLEDT	HD+6*, HD+8, END+1!
SDWLELIG	PRINT+11, PRINT+12, PRINT+19, END+1!
SDWLERR	SORT+2, SORT+5, SORT+7, SORT+8, SORT+10, SORT+11, SORT+12, SORT+13, SORT+14, END+1!
SDWLF	SORT+16, SORT+18, HD+11, HD+13, END+1!
SDWLFD	END+1!
>> SDWLFORM	INIT+5*, HD+15
SDWLI	INIT+10, INIT+14, INIT+15*, END+1!
SDWLIENS	SORT+17*, END+3!
SDWLIN	INIT+14*, END+1!
SDWLIN(	INIT+14*, SORT+5
SDWLIN("ALL"	INIT+11*
SDWLINS	INIT+6*, INIT+11, INIT+14, SORT+4, HD+3, HD+4, HD+5, END+1!
SDWLINST	END+1!
SDWLNAM	PRINT+11*, PRINT+17, END+2!
>> SDWLOPEN	INIT+7, INIT+13, SORT+13, HD+14
SDWLPD	END+2!
SDWLPG	INIT+8, HD+2, END+2!
SDWLPH	PRINT+16*, PRINT+26, END+2!
SDWLPROM	END+2!
SDWLPRV	END+2!
SDWLRBY	PRINT+15*, PRINT+24, END+2!
>> SDWLRPV	PRINT+15*, PRINT+25
SDWLSCC	SORT+15*, SORT+19, END+2!
>> SDWLSCN	SORT+15*
SDWLSCP	PRINT+21~, PRINT+22*
SDWLSIEN	SORT+18*, END+3!
SDWLSPT	PRINT+32, PRINT+33, END+2!
SDWLSSN	PRINT+14*, PRINT+18, END+2!
SDWLTAG	END+2!
SDWLTXP	INIT+12*, END+2!
SDWLTYP	SORT+8*, SORT+11, END+3!
SDWLTYPE	SORT+8*, SORT+10, SORT+18, END+3!
SDWLX	SORT+2*, SORT+5, SORT+7, SORT+8, SORT+12, SORT+13, SORT+17, SORT+19, SORT+20, END+3!
U	INIT+12, INIT+14, INIT+15, INIT+17, SORT+5, SORT+7, SORT+8, SORT+12, SORT+13, SORT+15 , SORT+16, SORT+17, SORT+19, SORT+20, PRINT+10, PRINT+14, PRINT+15, PRINT+19, PRINT+26, PRINT+28 , PRINT+29, PRINT+30, HD+6, HD+9, HD+10, HD+11, HD+13
>> VA("BID"	PRINT+14
>> VADM(1	PRINT+11
>> VAEL(1	PRINT+11
>> VAEL(3	SORT+15
VAPA	END+3!
VAPA(8	PRINT+16
VDAM	END+3!
>> X	SORT+17, SORT+19, PRINT+4, PRINT+6, PRINT+25, PRINT+32, HD+5, HD+9, HD+10, HD+12 , HD+13, HD+14, HD+15*
>> Y	INIT1, SORT+18, SORT+19, PRINT+16, HD+6
>> ZTSAVE	INIT+9
>> ZTSAVE(	INIT+10

Customize PDF page

Package: Scheduling

Routine: SDWLRPT1

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: