Routine: SDWLEC

Information

SDWLEC ;;IOFO BAY PINES/ESW - CLOSED WAITING LIST-EDIT;06/12/2002 ; 20 Aug 2002 2:10 PM ; Compiled April 16, 2007 10:48:37

Package	Total	Call Graph
Scheduling	4	EN^SDWLD (PCM,PCMD)^SDWLE1 EN^SDWLE10 EN^SDWLKIL
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Registration	1	1^VADPT

Package	Total	Caller Graph
Scheduling	1	SD WAIT LIST OPEN CLOSED ENTRY

Name	Comments	DBIA/ICR reference
OPT	;
PAT1
EN	;ENTRY POINT - INTIALIZE VARIABLES
END	;
EDITC(SDWLDA,SDCAN)	;edit closed entry
ENO
EN1
SB1
PAT	;SELECT PATIENT
HD
DIS	;DISPLAY DATA FOR PATIENT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PATIENT: ",VADM(1),?40,VA("PID") Line Location: EN+4
Function Call: WRITE	Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED" Line Location: EN+4
Function Call: WRITE	Prompt: !!,"PATIENT: ",VADM(1),?40,VA("PID") Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: EN1+8
Function Call: WRITE	Prompt: ! Line Location: EN1+8
Function Call: WRITE	Prompt: *7," ??" Line Location: EN1+10
Function Call: WRITE	Prompt: *7," ??" Line Location: EN1+12
Function Call: WRITE	Prompt: !,"ANOTHER TERMINAL IS EDITING THIS ENTRY. TRY LATER." Line Location: ENO+9
Function Call: WRITE	Prompt: !,"This process has been canceled." Line Location: ENO+13
Function Call: WRITE	Prompt: !,"The requested entry has been opened." Line Location: ENO+14
Function Call: WRITE	Prompt: !,*7,"PATIENT'S DATE OF DEATH HAS BEEN RECORDED" Line Location: PAT+3
Function Call: WRITE	Prompt: !,"Reopen comment required to open this entry. Reopen reason: O - Other.",! Line Location: EDITC+2
Function Call: WRITE	Prompt: !,"At least 10 char comment required" Line Location: EDITC+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HD+0
Function Call: WRITE	Prompt: !,?80-$L("Scheduling/PCMM Open Closed Wait Entry")\2,"Scheduling/PCMM Open Closed Wait List Entry",!! Line Location: HD+0
Routine Call	DIE Line Location: EDITC+10 EDITC+11 EDITC+12 EDITC+13
Routine Call	DIC Line Location: PAT+2
Routine Call	DIR Line Location: EN+4 EN1+8 EDITC+5

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

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN1+2, ENO+9, ENO+12, HD+1
^TMP("SDWLD"	EN+5!, EN1+11, EN1+13, ENO+5

Name	Field # of Occurrence
%	EN+1~
DA	ENO+4~, ENO+5, EDITC+1~, EDITC+10
DFN	EN+3, EN+4, EN+6, OPT+2, EN1+2, EN1+11, EN1+13, ENO+2!, ENO+5, PAT+2* , PAT+3, DIS+3, SB1, HD+1
DIC	PAT+1~, PAT+2*
DIC(0	PAT+2*
DIE	EDITC+1~, EDITC+10*
DIR	EN1+8!, EDITC+1~
DIR("?"	EN1+5, EN1+6
DIR("A"	EN1+5, EN1+6, EN1+7, EDITC+5
DIR("B"	EDITC+5*
DIR(0	EN+4, EN1+5, EN1+6, EN1+7, EDITC+5*
DR	EDITC+1~, EDITC+10, EDITC+11, EDITC+12, EDITC+13
DTOUT	EN+1~, EN1+9
>> DUOUT	EN+4, EN1+9, EN1+13, ENO+1, ENO+9, ENO+10, SB1
IOF	HD
SDCAN	ENO+3~, ENO+12, ENO+13, EDITC~, EDITC+4, EDITC+8
SDWLCM	EDITC+1~, EDITC+9*
SDWLCN	OPT+1~, EN1*, EN1+2, EN1+3, EN1+5
SDWLDA	ENO+5*, ENO+9, ENO+12, EDITC~, EDITC+10
SDWLDFN	EN+4, OPT+1~, OPT+2, PAT+2*
SDWLEDIT	ENO+5*, ENO+12!
SDWLERR	OPT+1~, EN1, EN1+10, EN1+11, EN1+12, EN1+13, ENO, ENO+1, ENO+2, ENO+12*
SDWLHDR	EN+1~, DIS+2*
SDWLLIST	EN+3!, EN+4, HD+1
SDWLNAM	EN+1~, PAT+4*
SDWLNEW	OPT+1~, EN1*
>> SDWLOPT	EN+2, EN1+4
SDWLPOS	EN+1~, EN+4, OPT+4
SDWLPS	OPT+1~, EN1+3*, EN1+4, EN1+5, EN1+6, EN1+7, EN1+10, EN1+12, ENO, ENO+3
SDWLSSN	EN+1~, PAT+4*
SDWLTEM	EN+1~, EN+4, OPT+4
SDWLWTE	OPT+1~, EN1*
U	PAT+2
VA	EN+1~, PAT1!
VA("PID"	EN+4, EN1+2, PAT+4, DIS+3, HD+2
VA(1	PAT+4
VADM	EN+1~, PAT1!
VADM(1	EN+4, EN1+2, DIS+3, HD+2
VAERR	PAT1!
VAIN	PAT1!
X	EN+1~, EN1+4, EN1+11, EN1+13, ENO+1, ENO+3, ENO+5, PAT+3, EDITC+7, SB1*
Y	PAT+2, EDITC+1~, EDITC+4*, EDITC+5, EDITC+6, EDITC+8, EDITC+9