Routine: SDWLMR

Information

SDWLMR ;;IOFO BAY PINES/TEH - WAIT LIST - DISPOSITION WAIT LIST ENTRY;06/12/2002 ; 20 Aug 2002 2:10 PM

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+19
Function Call: WRITE	Prompt: ! Line Location: EN+19
Function Call: WRITE	Prompt: !,"Invalid Entry " Line Location: EN+25
Function Call: WRITE	Prompt: !,"Another Terminal is Editting this Entry! Try Later." Line Location: EN+30
Function Call: WRITE	Prompt: !,"Wait List: ",$$EXTERNAL^DILFD(409.3,4,,SDWLTY),?40,"Date Entered: ",$$GET1^DIQ(409.3,SDWLDA,14,,,) Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Priority: ",$$GET1^DIQ(409.3,SDWLDA,SDWLPRI,,,),?20,"Institution: ",$$GET1^DIQ(409.3,SDWLDA,SDWLIN,,,) Line Location: DISP+2
Function Call: WRITE	Prompt: ?40,"Entered By: ",$$GET1^DIQ(409.3,SDWLDA,9,,,) Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Requesting Provider: ",$$GET1^DIQ(409.3,SDWLDA,15,,,),?40,"Date Desired: ",$$GET1^DIQ(409.3,SDWLDA,16,,,) Line Location: DISP+4
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	DIE Line Location: EDIT+2 EDIT+3 EDIT+4
Routine Call	DIC Line Location: PAT+2
Routine Call	DIR Line Location: EN+19

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

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.3 - [#409.3]	EN+30, EN+51, GETDATA+2
^TMP("SDWLD"	EN+25, EN+26

Name	Field # of Occurrence
>> DA	EDIT+2*
DFN	PAT+4~*
>> DIC	PAT+2*
>> DIC("A"	PAT+2*
>> DIC(0	PAT+2*
>> DIE	EDIT+2*
>> DIR("A"	EN+17, EN+18
>> DIR(0	EN+17, EN+18
>> DR	EDIT+2, EDIT+3, EDIT+4*
DT	GETDATA+9
>> DUOUT	EN+30*, EN+31
DUZ	GETDATA+9
IOF	HD+2
>> SDWLCL	GETDATA+3*
SDWLCN	EN+2~, EN+16, EN+17
SDWLDA	EN+2~, EN+8, EN+26, EN+30, EN+51, PAT+4, GETDATA+2, DISP+1, DISP+2, DISP+3 , DISP+4, EDIT+2
>> SDWLDAPT	GETDATA+9*
>> SDWLDATA	GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+9
SDWLDFN	EN+2~, EN+8, EN+25, EN+26, PAT+4*, DIS+2
>> SDWLDUZ	GETDATA+9*
>> SDWLEDT	GETDATA+9*
>> SDWLIN	GETDATA+3*, DISP+2
>> SDWLPRI	GETDATA+4*, DISP+2
>> SDWLPROV	GETDATA+9*
SDWLPS	EN+2~, EN+16*, EN+17, EN+18, EN+20, EN+21
>> SDWLRB	GETDATA+4*
>> SDWLSC	GETDATA+4*, GETDATA+7
>> SDWLSP	GETDATA+4*, GETDATA+5
>> SDWLSS	GETDATA+4*, GETDATA+6
>> SDWLST	GETDATA+3, GETDATA+8, GETDATA+9
>> SDWLTY	GETDATA+3*, DISP+1
>> SDWLTYN	GETDATA+5, GETDATA+6, GETDATA+7, GETDATA+8
SDWLY	EN+2~, EN+19, EN+20, EN+21, EN+25, EN+26
U	PAT+4, GETDATA+3, GETDATA+4, GETDATA+9
>> VA("PID"	DIS+2
>> VADM(1	DIS+2
>> Y	EN+19, PAT+3, PAT+4