Routine: SDWLD

Information

SDWLD ;;IOFO BAY PINES/TEH - DISPLAY PENDING APPOINTMENTS;06/12/2002 ; 20 Aug 2002 2:10 PM ; Compiled September 25, 2006 13:39:47

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	^%DT $$EXTERNAL^DILFD $$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Scheduling	5	SDWLDISP SDWLE SDWLEC SDWLMR SDWLSCPE

Entry Points

Name	Comments	DBIA/ICR reference
EN(SDWLDFN,SDWLSSN,SDWLNAM,SDTP)	;ENTRY POINT - INTIALIZE VARIABLES
GETDATA(SDTP)	;GET PATIENT DATA FROM SD WAIT LIST FILE (^SDWL(409.3)
SEL1(SDDENT)
DIS	;DISPLAY PATIENT DATA
DISPD	;DISPLAY WAIT LIST DATA
HD1	;TOF HEADER INFORMATION
HD2	;DATA HEADER

External References

Name	Field # of Occurrence
^%DT	SEL1, SEL1+1
$$EXTERNAL^DILFD	DISPD+5, DISPD+8, DISPD+11, DISPD+14, DISPD+16, DISPD+21
$$GET1^DIQ	DISPD+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry Date range required for closed EWL selection" Line Location: GETDATA+6
Function Call: WRITE	Prompt: !,?5,SDWLNAM,?35,SDWLSSN,! Line Location: DIS+1
Function Call: WRITE	Prompt: !,"Patient Currently is on Waiting List for the Following",! Line Location: DIS+2
Function Call: WRITE	Prompt: !,"Patient is on closed Waiting List for the Following",! Line Location: DIS+3
Function Call: WRITE	Prompt: !!,?80-$L(SDWLHDR_$S($D(SDWLOP):" - "_SDWLOP,1:""))\2,SDWLHDR Line Location: HD1+2
Function Call: WRITE	Prompt: " - ",SDWLOP Condition for execution: $D(SDWLOP) Line Location: HD1+2
Function Call: WRITE	Prompt: ! Line Location: HD1+3
Function Call: WRITE	Prompt: !," #",?4,"Wait List Type",?22,"P",?26,"Waiting",?51,"Institution" Line Location: HD2+1
Function Call: WRITE	Prompt: ?65,"Status" Condition for execution: $D(SDWLDISC) Line Location: HD2+1
Function Call: WRITE	Prompt: ?74,"Date" Line Location: HD2+2
Function Call: WRITE	Prompt: !,?28,"For",?73,"Entered" Line Location: HD2+3

FileNo	Call Tags
^SDWL(409.3 - [#409.3]	EXTERNAL^DILFD
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DISPD+20
^SC - [#44]	GETDATA+16, DISPD+19
^SCTM(404.51 - [#404.51]	DISPD+12
^SCTM(404.57 - [#404.57]	DISPD+12
^SDWL(409.3 - [#409.3]	EN+4, GETDATA+8, GETDATA+9, GETDATA+12, GETDATA+13, DISPD+21
^TMP("SDWLD"	EN+4!, GETDATA+17*, DISPD+2, DISPD+3

Label References

Name	Line Occurrences
DIS	EN+8
DISPD	EN+10
GETDATA	EN+5
HD1	EN+7
HD2	EN+9
SEL1	GETDATA+5, SEL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SEL1*
>> %DT("A"	SEL1, SEL1+1!
>> %DT(0	SEL1!, SEL1+1*!
DD	DISPD+18~*
DIR	SEL1!
MM	DISPD+18~*
SDBEG	GETDATA+5~, GETDATA+7*, GETDATA+14
SDDENT	GETDATA+5~, GETDATA+6, GETDATA+7, SEL1~, SEL1+1, SEL1+2
SDEND	GETDATA+5~, GETDATA+7*, GETDATA+14
SDTP	EN~, EN+2*, EN+3, EN+5, GETDATA~, GETDATA+5, GETDATA+11, GETDATA+14, DIS+2
SDWLBDT	SEL1~*, SEL1+1, SEL1+2
SDWLCL	GETDATA+15, GETDATA+16, DISPD+3, DISPD+19, DISPD+25!
SDWLCLN	GETDATA+16, DISPD+19, DISPD+25!
>> SDWLCN	DISPD+1, DISPD+22, DISPD+23
>> SDWLCNT	EN+6, GETDATA+4, GETDATA+17, DISPD+1, DISPD+2, DISPD+3
SDWLDA	GETDATA+8, GETDATA+9, GETDATA+12, GETDATA+13, GETDATA+17, DISPD+3, DISPD+21, DISPD+25!
SDWLDATA	GETDATA+9*, GETDATA+11, GETDATA+14, GETDATA+15, GETDATA+17, GETDATA+18!
SDWLDFN	EN~, EN+4, GETDATA+8, GETDATA+17, DISPD+2, DISPD+3
SDWLDIS	DISPD+21~*
>> SDWLDISC	SEL1*, DISPD+23, HD2+1
SDWLDISN	DISPD+21*, DISPD+25!
SDWLDSP	DISPD+4~*, DISPD+23
SDWLDT	GETDATA+14, GETDATA+15, GETDATA+17, DISPD+1, DISPD+5*, DISPD+18, DISPD+25!
SDWLDTP	DISPD+18*, DISPD+24, DISPD+25!
>> SDWLEDT	SEL1+1*, SEL1+2
>> SDWLHDR	HD1+1*, HD1+2
SDWLIN	DISPD+3*, DISPD+20, DISPD+25!
SDWLINN	DISPD+20*, DISPD+23, DISPD+25!
SDWLNAM	EN~, DIS+1
>> SDWLOP	HD1+2
>> SDWLPOS	GETDATA+13*
SDWLPRI	DISPD+3*, DISPD+5, DISPD+23, DISPD+25!, DISPD+26!
SDWLPRIN	DISPD+5*, DISPD+25!
SDWLSC	DISPD+7*, DISPD+16, DISPD+25!
SDWLSCO	DISPD+4~, DISPD+6*, DISPD+17
SDWLSP	DISPD+7*, DISPD+11, DISPD+12, DISPD+25!
SDWLSPO	DISPD+4~, DISPD+6*, DISPD+13
SDWLSS	DISPD+7*, DISPD+14, DISPD+25!
SDWLSSN	EN~, DIS+1
SDWLSSO	DISPD+4~, DISPD+6*, DISPD+15
SDWLST	DISPD+7*, DISPD+8, DISPD+25!
SDWLSTO	DISPD+4~, DISPD+6*, DISPD+9
SDWLTY	DISPD+3*, DISPD+5, DISPD+25!
SDWLTYN	DISPD+5*, DISPD+23, DISPD+25!
SDWLWR	DISPD+7, DISPD+8, DISPD+9, DISPD+11, DISPD+12, DISPD+13, DISPD+14, DISPD+15, DISPD+16, DISPD+17 , DISPD+23, DISPD+26!
SDWLWTE	GETDATA+4~, GETDATA+12
>> SDWLX	DISPD+12*
U	GETDATA+7, GETDATA+11, GETDATA+14, GETDATA+15, GETDATA+16, SEL1+2, DISPD+3, DISPD+4, DISPD+5, DISPD+6 , DISPD+7, DISPD+12, DISPD+20, DISPD+21
>> X	DISPD+3*, DISPD+4, DISPD+5, DISPD+6, DISPD+7
>> Y	SEL1, SEL1+1
YY	DISPD+18~*

Customize PDF page

Package: Scheduling