Routine: SDWLSCPE

Package	Total	Call Graph
VA Fileman	5	^DIC ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Registration	1	(1,DEM)^VADPT
Scheduling	1	EN^SDWLD

Package	Total	Caller Graph
Scheduling	1	SD WAIT LIST SC PRIORITY EDIT

Entry Points

Name	Comments	DBIA/ICR reference
PAT1
EN	;Called from option file.
PAT	;PATIENT LOOK-UP
EDIT	;EDIT PRIORITY
DIE(DA,SDWLDIS)	; Update file 409.3 with SERVICE CONNECTED PRIORITY data.
EN1
END	;QUIT OPTION
GETDATA	;PATIENT DATA RETRIEVAL
HD	;HEADER
DIS	;DISPLAY DATA FOR PATIENT

External References

Name	Field # of Occurrence
^DIC	PAT+2
^DIE	DIE+3
$$EXTERNAL^DILFD	EDIT+4
$$GET1^DIQ	PAT+4, PAT+5
^DIR	EN+3, EN1+1, EN1+4, EN1+34, EDIT+6
EN^SDWLD	DIS+3
1^VADPT	EN+3, EN+5, PAT+6
DEM^VADPT	EN+3, EN+5

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+3
Function Call: WRITE	Prompt: !,VADM(1),?40,VA("PID") Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Patient has no Wait List Entries to edit." 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: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED" Line Location: PAT+5
Function Call: WRITE	Prompt: !,"Invalid Entry. Service Connected Percentage greater than 49%" Line Location: EDIT+7
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+2
Function Call: WRITE	Prompt: !!,?80-$L("Wait List - SERVICE CONNECTED PRIORITY")\2,"Wait List - SERVICE CONNECTED PRIORITY",!! Line Location: HD+2
Routine Call	DIE Line Location: DIE+3
Routine Call	DIC Line Location: PAT+2
Routine Call	DIR Line Location: EN+3 EN1+1 EN1+4 EN1+34 EDIT+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN+3, EN1+23, GETDATA+2, GETDATA+6
^TMP("SDWLD"	EN1+18, EN1+19

Label References

Name	Line Occurrences
DIE	EDIT+11
DIS	EN+5, EN+17
EDIT	EN1+32, EDIT+7
EN	EN1+35
EN1	EN+5, EN1+7, EN1+10, EN1+13
END	EN+13, EN1+1, EN1+4, EN1+11, EN1+24, EN1+32, EN1+34, EN1+35
GETDATA	EN1+28
HD	EN+3, EN+5, EN+9
PAT	EN+13, PAT+5
PAT1	PAT+2, PAT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DIE~
>> DFN	EN+2, EN+3, EN+5, PAT+2*, PAT+3, PAT+4, PAT+5
DIC	EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, PAT+2*, EDIT+2!, END+1!
DIC(0	PAT+2*
DIE	EN+5!, EN+6!, EN1!, EN1+33!, EDIT+2!, DIE+1*, END+1!
DIR	EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, EDIT+2!, END+1!
DIR("A"	EN1+2, EN1+3, EDIT+3*
DIR("B"	EDIT+4*
DIR(0	EN+3, EN1+1, EN1+2, EN1+3, EN1+34, EDIT+5
DR	EN+5!, EN+6!, EN1!, EN1+14!, EN1+33!, EDIT+2!, DIE+2*, END+1!
DT	GETDATA+5
DUOUT	EN+3, EN+4, EN1+6, EN1+23, EN1+24, EN1+32, EN1+34, EDIT+8, EDIT+9, END+1!
DUZ	GETDATA+5, EDIT+2
IOF	HD+2
SDWLBDT	EN+5~*
SDWLCL	GETDATA+3*, END+2!
SDWLCN	EN1, EN1+2, DIS+2*, END+1!
SDWLDA	EN1+19*, EN1+23, GETDATA+2, GETDATA+6, EDIT+11, END+2!
SDWLDAPT	GETDATA+5*, END+2!
SDWLDATA	GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, END+2!
SDWLDFN	EN+5, EN+13, EN1+18, EN1+19, PAT+2, DIS+3, END+1!, END+2!
SDWLDIS	DIE~
SDWLDISC	DIS+2*, DIS+4!
SDWLDISP	END+2!
SDWLDUZ	GETDATA+5, EDIT+2, END+2!
SDWLEDT	EN+5, GETDATA+5, END+2!
SDWLERR	EN+1, EN+2, EN+5, EN1!, EN1+6, EN1+7, EN1+9, EN1+10, EN1+11, EN1+13 , EN1+18, EDIT+2, END+2!
SDWLHDR	DIS+2*, END+3!
SDWLIN	GETDATA+3*, END+2!
SDWLLIST	EN+1, EN+5, END+1!
SDWLNAM	PAT+4*, END+2!
SDWLOP	EN+9*, 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*, END+3!
SDWLSCP	GETDATA+6*, EDIT+4, EDIT+7, END+1!
SDWLSCPX	EDIT+10*, EDIT+11, END+1!
SDWLSP	GETDATA+4*, END+3!
SDWLSS	GETDATA+4*, END+3!
SDWLST	GETDATA+3, GETDATA+5, END+3!
SDWLTY	GETDATA+3*, END+3!
SDWLY	EN1+4, EN1+12, EN1+13, EN1+18, EN1+19, END+3!
SDWSLCN	END+2!
U	PAT+2, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+6
VA	DIS+4!
VA("PID"	EN+3, EN+5, DIS+3
VADM	EN+5!, DIS+4!
VADM(1	EN+3, EN+5, DIS+3
VAIN	DIS+4!
X	EN1!, EN1+4, EN1+6, EN1+9, PAT+5*, EDIT+7, EDIT+8, EDIT+9, EDIT+10, END+3!
Y	EN1!, EN1+4, PAT+2, END+3!

Customize PDF page

Package: Scheduling

Routine: SDWLSCPE

Information

Source Information

Call Graph

Call Graph Total: 7

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

Local Variables

Legend: