Routine: SDWLI

Package	Total	Call Graph
VA Fileman	5	(,DD)^%DT ^DIC $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR
Kernel	1	(ENS,KILL)^%ZISS
Registration	1	(1,DEM)^VADPT
Scheduling	1	$$GETTRN^SDWLIFT1

Package	Total	Caller Graph
Scheduling	1	SD WAIT LIST INQUIRY

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;Display Wait List Data
EN	;NEW AND INITIALIZE VARIABLES
PAT	;PATIENT LOOK-UP
EN1
END	;
PATEND
GETFILE	;GET DATA - OPTIONAL DATE RANGE IF SDWLDBT AND SDWLEDT VALID DATE RANGE
SEL
SEL1
HD	;Header

External References

Name	Field # of Occurrence
^%DT	SEL1, SEL1+1
DD^%DT	DISP+35, DISP+36
ENS^%ZISS	DISP+48
KILL^%ZISS	DISP+48
^DIC	PAT+4
$$EXTERNAL^DILFD	DISP+18, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+24, DISP+25, DISP+32, DISP+33
$$GET1^DIQ	GETFILE+7, GETFILE+15, DISP+29, DISP+36, DISP+37, DISP+39, DISP+42, DISP+44, DISP+45
GETS^DIQ	DISP+49
^DIR	EN+4, SEL+2, DISP+1, DISP+51
$$GETTRN^SDWLIFT1	DISP+48
1^VADPT	EN+6, PAT+8
DEM^VADPT	EN+6, HD+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"This Patient has NO entries on the Electronic Wait List." Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: SEL+2
Function Call: WRITE	Prompt: ! Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"No 'OPEN' Wait List Records to Display.",!! Line Location: DISP+1
Function Call: WRITE	Prompt: X Line Location: DISP+19
Function Call: WRITE	Prompt: !,"Priority - ",$$EXTERNAL^DILFD(409.3,10,,SDWLPRI) Line Location: DISP+20
Function Call: WRITE	Prompt: !,"Service Connected Priority - ",$$EXTERNAL^DILFD(409.3,15,,SDWLSCP) Line Location: DISP+21
Function Call: WRITE	Prompt: "Institution - ",$$EXTERNAL^DILFD(409.3,2,,SDWLIN) Line Location: DISP+22
Function Call: WRITE	Prompt: X Line Location: DISP+23
Function Call: WRITE	Prompt: !,"Requested By - ",$$EXTERNAL^DILFD(409.3,11,,SDWLPRV),?55,"Date Desired - ",SDWLDTD Line Location: DISP+24
Function Call: WRITE	Prompt: !,"Provider - ",$$EXTERNAL^DILFD(409.3,12,,SDWLPROV) Line Location: DISP+25
Function Call: WRITE	Prompt: !,"Comments - ",SDWLCOM Line Location: DISP+26
Function Call: WRITE	Prompt: !,"Reopen Reason: ",$P(SDOP,U) Line Location: DISP+27
Function Call: WRITE	Prompt: !,"Reopen comment: ",$P(SDOP,U,2) Line Location: DISP+28
Function Call: WRITE	Prompt: !,"Non Removal Reason - ",SDREMR,!,"Non Remove Reason entered by - ",$$GET1^DIQ(200,SDREMU_",",.01,"I") Line Location: DISP+29
Function Call: WRITE	Prompt: !,"Non Removal Comment - ",SDREMRC Line Location: DISP+30
Function Call: WRITE	Prompt: !,"Disposition - ",$$EXTERNAL^DILFD(409.3,21,,SDWLDIS),?51,"Disposition Date - ",SDWLDIDT Line Location: DISP+32
Function Call: WRITE	Prompt: Y Line Location: DISP+35
Function Call: WRITE	Prompt: Y,?30,"For clinic: " Line Location: DISP+36
Function Call: WRITE	Prompt: SDC Line Location: DISP+36
Function Call: WRITE	Prompt: !,"Appointment Status: Canceled by Clinic" Line Location: DISP+41
Function Call: WRITE	Prompt: !,IOINHI,"In transfer to ",SDWLINNM," (",SDWLSTN,")",IOINORM Line Location: DISP+48
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+1
Function Call: WRITE	Prompt: !!,?80-$L("Wait List - Inquiry")\2,"Wait List - Inquiry ",! Line Location: HD+1
Function Call: WRITE	Prompt: !! Line Location: HD+3
Function Call: WRITE	Prompt: !,VADM(1),?40 Condition for execution: $D(VADM) Line Location: HD+5
Function Call: WRITE	Prompt: VA("PID") Line Location: HD+5
Function Call: WRITE	Prompt: !! Line Location: HD+6
Routine Call	DIC Line Location: PAT+4
Routine Call	DIR Line Location: EN+4 SEL+2 DISP+1 DISP+51

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DIC(40.7 - [#40.7]	GET1^DIQ
^SDWL(409.3 - [#409.3]	EXTERNAL^DILFD, GET1^DIQ, GETS^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN+4, GETFILE+2, GETFILE+3, GETFILE+5, GETFILE+7, GETFILE+8, GETFILE+9, GETFILE+10, GETFILE+12, GETFILE+13 , DISP+16
^TMP("SDWLI"	EN+6!, EN+8!, GETFILE+2!, GETFILE+23, GETFILE+25, GETFILE+26, GETFILE+27, GETFILE+29, GETFILE+30, DISP+1 , DISP+2, DISP+4, DISP+5, DISP+7, DISP+27, DISP+29, DISP+32, DISP+34

Label References

Name	Line Occurrences
DISP	EN1+2
EN	EN+16, EN1+2
EN1	EN+6
END	EN+5, EN+6, EN+18, EN1+3
GETFILE	EN1+1
HD	EN+4, EN+6, EN+12
PAT	EN+17
PATEND	PAT+5
SEL	EN+6, EN+16, SEL1
SEL1	SEL+4, SEL1+1

Naked Globals

Name	Field # of Occurrence
^("SDAPT"	GETFILE+5, DISP+34
^("SDOP"	DISP+27
^(1	GETFILE+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+1~, SEL1*
%DT("A"	SEL1, SEL1+1!
%DT(0	SEL1!, SEL1+1*!
DD	EN+1~, DISP+12, DISP+13
DFN	EN+3, EN+4, EN+6, PAT+4, HD+4~
DIC	EN+6!, EN+7!, EN1!, PAT+2!, PAT+4*, END+1!
DIC("S"	PAT+2!, PAT+3*
DIC(0	PAT+4*
DIE	EN+6!, EN+7!, EN1!, DISP+50!, END+1!
DIR	EN+6!, EN+7!, EN1!, SEL1!, DISP+1!, DISP+50!, DISP+51!, END+1!
DIR("?"	SEL+1*
DIR("A"	SEL*
DIR("B"	SEL*
DIR(0	EN+4, SEL, DISP+1, DISP+51
DR	EN+6!, EN+7!, EN1!, DISP+50!, END+1!
DUOUT	EN+4, EN+5, EN+6, EN+16, EN+19, EN1+2, PAT+7, SEL+3, DISP+1, DISP+2 , DISP+52, DISP+53*, HD+7!, END+1!
IOF	HD+1
>> IOINHI	DISP+48
>> IOINORM	DISP+48
MM	DISP+12, DISP+13, END+5!
SAPS	DISP+41~*
SDAIN	DISP+37~*, DISP+38
SDAP	DISP+34~*, DISP+35, DISP+36, DISP+37, DISP+39, DISP+41
SDC	DISP+36~*
SDCR	DISP+39~*, DISP+40
SDLWEDT	END+3!
SDLWP	END+3!
SDLWPRV	END+3!
SDLWST	END+3!
SDLWX	END+4!
SDNOK	GETFILE+17, GETFILE+18, GETFILE+19, END+2!
SDOP	GETFILE+7~, GETFILE+27, DISP+27~, DISP+28
SDOP1	GETFILE+7~*
SDREM	GETFILE+13*, GETFILE+28, GETFILE+31!
SDREMD	GETFILE+13*, GETFILE+14, END+5!
SDREMDD	GETFILE+14, GETFILE+29, DISP+6, DISP+31, END+5!
SDREMR	GETFILE+15, GETFILE+29, DISP+6, DISP+29, END+5!
SDREMRC	GETFILE+15, GETFILE+29, DISP+6, DISP+30, END+5!
SDREMU	GETFILE+13, GETFILE+29, DISP+6, DISP+29, END+5!
SDSWLTYP	END+4!
SDWLAPP	GETFILE+5~, GETFILE+6, GETFILE+26
SDWLBDT	EN+6, EN+8, SEL1*, SEL1+1, GETFILE+19, END+2!, END+4!
SDWLCL	DISP+7*, DISP+50!, END+2!
SDWLCLPT	DISP+3~, DISP+42*, DISP+43, DISP+44, DISP+45
SDWLCN	DISP+1*, END+2!
SDWLCNT	GETFILE+2, GETFILE+23, GETFILE+25, GETFILE+26, GETFILE+27, GETFILE+29, GETFILE+30, DISP+1, DISP+2, DISP+4 , DISP+5, DISP+7, DISP+17, DISP+27, DISP+29, DISP+32, DISP+34, END+2!
SDWLCOM	DISP+9*, DISP+26, DISP+50!, END+2!
SDWLCT	DISP+1*, END+2!
SDWLDA	GETFILE+2, GETFILE+3, GETFILE+5, GETFILE+7, GETFILE+8, GETFILE+9, GETFILE+10, GETFILE+12, GETFILE+13, GETFILE+15 , GETFILE+23, DISP+7, DISP+16, DISP+42, DISP+48, DISP+49, END+2!
SDWLDATA	GETFILE+3*, GETFILE+4, GETFILE+6, GETFILE+13, GETFILE+16, GETFILE+17, GETFILE+23, END+2!
SDWLDDT	GETFILE+10*, GETFILE+11, END+2!
SDWLDDUZ	GETFILE+9, GETFILE+25, DISP+11, DISP+33, END+2!
SDWLDFN	EN+6, EN+17, EN+18, PAT+4, PAT+5, GETFILE+2, HD+3, HD+4, END+1!, END+2!
SDWLDIDT	GETFILE+11, GETFILE+25, DISP+11, DISP+32, DISP+50!, END+2!
SDWLDIS	GETFILE+9, GETFILE+25, DISP+11, DISP+32, DISP+50!, END+2!
SDWLDISC	SEL1*, END+4!
SDWLDISX	GETFILE+2!, GETFILE+9, GETFILE+24, GETFILE+31!, DISP+3~, DISP+4, DISP+11, DISP+50!, END+2!
SDWLDRG	EN1!, SEL!, SEL1+1*, GETFILE+3, GETFILE+17, END+3!
SDWLDT	GETFILE+16, GETFILE+19, DISP+1, DISP+12*, DISP+50!, END+3!
SDWLDTD	DISP+13*, DISP+24, DISP+50!, END+3!
SDWLDTP	DISP+12*, DISP+18, END+3!
SDWLDUZ	DISP+10*, DISP+23, DISP+50!, END+3!
SDWLEDT	EN+6, EN+8, SEL1+1*, GETFILE+19, END+5!
SDWLERR	EN+1, EN+2, EN+3, EN+6, END+4!
SDWLIN	DISP+7*, DISP+22, DISP+45, DISP+50!, END+3!
SDWLINNM	DISP+48, DISP+50!
SDWLLIST	EN+2, EN+6, END+5!
SDWLP	DISP+20*, DISP+22, END+4!
SDWLPRI	DISP+7*, DISP+20, DISP+50!, END+3!
SDWLPRON	END+4!
SDWLPROV	GETFILE+17, DISP+10, DISP+25, DISP+50!, END+3!
SDWLPRV	DISP+10*, DISP+24, DISP+25, DISP+50!
SDWLR	DISP+3~, DISP+5*, DISP+6
SDWLSC	GETFILE+16*, END+3!
SDWLSCP	DISP+15~, DISP+16*, DISP+21
SDWLSP	GETFILE+16*, END+3!
SDWLSS	GETFILE+16*, END+3!
SDWLST	GETFILE+16*, END+5!
SDWLSTN	DISP+48, DISP+50!
SDWLTY	DISP+7*, DISP+8, DISP+9, DISP+18, DISP+50!, END+3!
SDWLTYN	DISP+9*, DISP+19, DISP+50!, END+4!
SDWLTYP	DISP+8*, DISP+19, END+4!
SDWLX	DISP+10*, END+5!
SDWLY	PAT+3, SEL+2*, SEL+4, GETFILE+3, END+4!
SDWRB	DISP+24*, END+4!
SDXSCAT	END+4!
U	PAT+4, GETFILE+3, GETFILE+4, GETFILE+6, GETFILE+7, GETFILE+9, GETFILE+10, GETFILE+13, GETFILE+16, GETFILE+17 , GETFILE+29, DISP+6, DISP+7, DISP+8, DISP+9, DISP+10, DISP+11, DISP+12, DISP+13, DISP+16 , DISP+27, DISP+28, DISP+36, DISP+37, DISP+39, DISP+41
VA	END+5!
VA("PID"	HD+5
VADM	EN+6!, EN+7!, HD+5
VADM(1	HD+5
X	SEL+3, DISP+7, DISP+8, DISP+9, DISP+10, DISP+12, DISP+13, DISP+19, DISP+23*, DISP+52 , END+5!
Y	PAT+4, PAT+6, SEL+2, SEL1, SEL1+1, DISP+35, DISP+36, DISP+53, END+5!
YY	DISP+12, DISP+13, END+5!

Customize PDF page

Package: Scheduling

Routine: SDWLI

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: