Routine: SDWLDISP

Information

SDWLDISP ;;IOFO BAY PINES/TEH - WAIT LIST - DISPOSITION WAIT LIST ENTRY;06/12/2002 ; 20 Aug 2002 2:10 PM ; Compiled January 26, 2007 10:21:25

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Scheduling	5	EN^SDWLD DIS^SDWLE6 $$EN^SDWLE7 (APPTD,DATP)^SDWLEVAL $$CHKENC^SDWLQSC1
VA FileMan	5	^DIC ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Registration	1	(1,DEM)^VADPT

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: 4

Package	Total	Caller Graph
Scheduling	3	SD WAIT LIST DISPOSITION SD WAIT LIST DISPOSITION ENTRY SDWLAPI
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
EN1
PAT	;PATIENT LOOK-UP
PAT1
DIS	;DISPLAY DATA FOR PATIENT
GETDATA	;PATIENT DATA RETRIEVAL
EDIT	;ENTER/EDIT DISPOSITION
PKAPP(SDWLDA,SDWLTY,SDWLDATA)	;identify appointemnt to close with
SING(SDWLDA,SDWLTY,SDWLDATA)	;called for filing with appointment if any
HD	;HEADER
END	;QUIT OPTION

External References

Name	Field # of Occurrence
^DIC	PAT+2
^DIE	EDIT+18, EDIT+19, EDIT+20, EDIT+21, PKAPP+22, PKAPP+23, PKAPP+24, PKAPP+25, SING+1, SING+2 , SING+3, SING+4, SING+10
$$EXTERNAL^DILFD	EDIT+3
$$GET1^DIQ	PAT+4, PAT+5, PKAPP+5, PKAPP+6, PKAPP+7, PKAPP+8
^DIR	EN+4, EN1+1, EN1+4, EN1+35, EDIT+8, PKAPP+19
EN^SDWLD	DIS+3
DIS^SDWLE6	EDIT+25
$$EN^SDWLE7	EDIT+16
APPTD^SDWLEVAL	PKAPP+14, PKAPP+15
DATP^SDWLEVAL	SING+7
$$CHKENC^SDWLQSC1	PKAPP+10
1^VADPT	EN+4, EN+6, PAT+6
DEM^VADPT	EN+4, EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,VADM(1),?40,VA("PID"),*7,!,"This Patient has NO entries on the Electronic Wait List." Line Location: EN+4
Function Call: WRITE	Prompt: !,VADM(1),?40,VA("PID") Line Location: EN+6
Function Call: WRITE	Prompt: !!,"Patient has no Wait List Entries to Disposition." Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: EN1+4
Function Call: WRITE	Prompt: *7," Invalid Entry" Line Location: EN1+7
Function Call: WRITE	Prompt: *7," Invalid Entry" Line Location: EN1+10
Function Call: WRITE	Prompt: " Invalid Entry " Line Location: EN1+18
Function Call: WRITE	Prompt: !,"Another User is Editing this Entry. Try Later." Line Location: EN1+23
Function Call: WRITE	Prompt: !,"* Patient has been removed from Wait List. *" Line Location: EN1+33
Function Call: WRITE	Prompt: !!,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED" Line Location: PAT+5
Function Call: WRITE	Prompt: *7,"Invalid Entry" Line Location: EDIT+14
Function Call: WRITE	Prompt: !,"Disposition canceled by user",! Line Location: PKAPP+15
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+2
Function Call: WRITE	Prompt: !!,?80-$L("Wait List - Disposition Patient")\2,"Wait List - Disposition Patient",!! Line Location: HD+2
Routine Call	DIC Line Location: PAT+2
Routine Call	DIE Line Location: EDIT+18 EDIT+19 EDIT+20 EDIT+21 PKAPP+22 PKAPP+23 PKAPP+24 PKAPP+25 SING+1 SING+2 SING+3 SING+4 SING+10
Routine Call	DIR Line Location: EN+4 EN1+1 EN1+4 EN1+35 EDIT+8 PKAPP+19

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SDWL(409.3 - [#409.3]	Classic Fileman Calls, EXTERNAL^DILFD, GET1^DIQ
^SDWL(409.31 - [#409.31]	GET1^DIQ
^SDWL(409.32 - [#409.32]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN+4, EN1+23, GETDATA+2, GETDATA+7, EDIT+22!, EDIT+23!, SING+16!, SING+18!
^SDWL(409.32 - [#409.32]	GETDATA+6
^TMP("SDWLD"	EN1+18, EN1+19
^TMP($J	PKAPP+12, PKAPP+15, PKAPP+17, SING+17

Label References

Name	Line Occurrences
DIS	EN+6, EN+18
EDIT	EN1+32, EDIT+14
EN	EN1+36
EN1	EN+6, EN1+7, EN1+10, EN1+13
END	EN+14, EN1+1, EN1+4, EN1+11, EN1+24, EN1+32, EN1+35, EN1+36
GETDATA	EN1+28
HD	EN+4, EN+6, EN+10
PAT	EN+14
PAT1	PAT+2, PAT+3
PKAPP	EDIT+15
SING	PKAPP+14, PKAPP+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT+2~, EDIT+18, PKAPP+22, SING+1, SING+8
>> DFN	EN+3, EN+4, EN+6, PAT+2*, PAT+3, PAT+4, PAT+5, PKAPP+10
DIC	EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, PAT+2*, EDIT+2~, END+1!
DIC(0	PAT+2*
DIE	EN+6!, EN+7!, EN1!, EN1+34!, EDIT+2~, EDIT+18, PKAPP+22, SING+1, SING+8, END+1!
DIE("NO^"	EDIT+17*
DIR	EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, EDIT+2~, PKAPP+16!, END+1!
DIR("?"	PKAPP+18*
DIR("A"	EN1+2, EN1+3, PKAPP+18*
DIR("B"	EDIT+3, PKAPP+17
DIR("L"	EDIT+5, EDIT+6, EDIT+7*
DIR(0	EN+4, EN1+1, EN1+2, EN1+3, EN1+35, EDIT+4, PKAPP+18*
DR	EN+6!, EN+7!, EN1!, EN1+14!, EN1+34!, EDIT+2~, EDIT+18, EDIT+19, EDIT+20, EDIT+21 , PKAPP+22, PKAPP+23, PKAPP+24, PKAPP+25, SING+1, SING+2, SING+3, SING+4, SING+9*, END+1!
DT	GETDATA+5, SING+9
DUOUT	EN+4, EN+5, EN1+6, EN1+23, EN1+24, EN1+32, EN1+35, EDIT+9, EDIT+10, END+1!
DUZ	GETDATA+5, EDIT+2, SING+9
IOF	HD+2
PROC	PKAPP+4~*, PKAPP+10
SDA	PKAPP+17~*, PKAPP+18, SING+7~, SING+8
SDA(1	SING+9
SDA(13	SING+9
SDA(14	SING+9
SDA(15	SING+9
SDA(16	SING+9
SDA(2	SING+9
SDA(3	SING+9
SDAP	PKAPP+10~, PKAPP+12, PKAPP+13, PKAPP+15, PKAPP+20, PKAPP+21, SING+7
SDCL	PKAPP+4~, PKAPP+6, PKAPP+10
SDDS	PKAPP+10~*
SDORG	PKAPP+4~, PKAPP+8*, PKAPP+10
SDPCL	PKAPP+4~, PKAPP+5*, PKAPP+6
SDPSP	PKAPP+4~, PKAPP+5*, PKAPP+7
SDSP	PKAPP+4~, PKAPP+7, PKAPP+10
>> SDWLBDT	EN+6*
SDWLCL	GETDATA+3*, END+2!
>> SDWLCN	EN1, EN1+2, DIS+2*
SDWLDA	EN1+19*, EN1+23, GETDATA+2, GETDATA+7, EDIT+15, EDIT+18, EDIT+22, EDIT+23, EDIT+25, PKAPP~ , PKAPP+5, PKAPP+8, PKAPP+14, PKAPP+20, PKAPP+22, SING~, SING+1, SING+8, SING+16, SING+18 , END+2!
SDWLDAPT	GETDATA+5*, END+2!
SDWLDATA	GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, EDIT+15, PKAPP~, PKAPP+14, PKAPP+20, SING~, SING+12 , SING+14, END+2!
SDWLDFN	EN+6, EN+14, EN1+18, EN1+19, PAT+2, DIS+3, EDIT+23, SING+11~, SING+17*, SING+18 , END+1!, END+2!
SDWLDISC	DIS+2*, DIS+4!
SDWLDISP	GETDATA+7, EDIT+3, EDIT+13, EDIT+15, EDIT+16, PKAPP+11, SING+7, END+2!
SDWLDUZ	GETDATA+5, EDIT+2, END+2!
SDWLEDT	EN+6, GETDATA+5, END+2!
SDWLERR	EN+1, EN+3, EN+6, EN1!, EN1+6, EN1+7, EN1+9, EN1+10, EN1+11, EN1+13 , EN1+18, EN1+32, EDIT+2, EDIT+13, EDIT+14, EDIT+16, END+2!
SDWLHDR	DIS+2*, END+3!
SDWLIN	GETDATA+3*, END+2!
>> SDWLLIST	EN+2, EN+6
SDWLNAM	PAT+4*, END+2!
SDWLOP	EN+10*, END+2!
SDWLPRI	GETDATA+4*, END+2!
SDWLPROV	GETDATA+5*, END+3!
SDWLPS	EN1*, EN1+1, EN1+2, EN1+3, EN1+5, EN1+8, EN1+12, END+3!
SDWLRB	GETDATA+4*, END+3!
SDWLSC	GETDATA+4*, GETDATA+6, END+3!
SDWLSCL	GETDATA+6, EDIT+22, SING+11~, SING+12, SING+16, END+1!
SDWLSP	GETDATA+4*, END+3!
SDWLSS	GETDATA+4, EDIT+23, SING+11~, SING+14, SING+18, END+3!
SDWLST	GETDATA+3, GETDATA+5, END+3!
SDWLTY	GETDATA+3*, EDIT+7, EDIT+13, EDIT+15, PKAPP~, PKAPP+6, PKAPP+7, PKAPP+14, PKAPP+20, SING~ , END+3!
SDWLY	EN1+4, EN1+12, EN1+13, EN1+18, EN1+19, END+3!
SDWSLCN	END+2!
SS	PKAPP+17~
STR	PKAPP+17~
U	PAT+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6, GETDATA+7, SING+12, SING+14, SING+17
VA	DIS+4!
VA("PID"	EN+4, EN+6, DIS+3
VADM	EN+6!, DIS+4!
VADM(1	EN+4, EN+6, DIS+3
VAIN	DIS+4!
X	EN1!, EN1+4, EN1+6, EN1+9, PAT+5*, EDIT+9, EDIT+10, EDIT+13, PKAPP+16!, PKAPP+20 , END+3!
Y	EN1!, EN1+4, PAT+2, END+3!

Customize PDF page

Package: Scheduling