Routine: SDWLSC

Information

SDWLSC ;IOFO BAY PINES/DMR - WAITING LIST-RATED DISABILITY ;09/02/2004 2:10 PM

Source file <SDWLSC.m>

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIR
Registration	1	2^VADPT

Package	Total	Caller Graph
Scheduling	1	SDWLE111

Name	Comments	DBIA/ICR reference
SBR
SBR0

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT'S SERVICE CONNECTION AND RATED DISABILITIES:" Line Location: SDWLSC+26
Function Call: WRITE	Prompt: ! Line Location: SDWLSC+38
Function Call: WRITE	Prompt: !,"'PRIMARY ELIGIBILITY CODE' field is blank please update patient record." Line Location: SDWLSC+41
Function Call: WRITE	Prompt: !,"NO SERVICE CONNECTED DISABILITIES LISTED" Line Location: SDWLSC+46
Function Call: WRITE	Prompt: ! Line Location: SDWLSC+46
Function Call: WRITE	Prompt: !,*7,"ENTER (Y or N) PLEASE!" Line Location: SBR0+1
Routine Call	DIR Line Location: SBR0

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(31 - [#31]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SDWLSC+27, SDWLSC+28, SDWLSC+32, SDWLSC+33, SDWLSC+46
^SDWL(409.3 - [#409.3]	SDWLSC+25

Name	Line Occurrences
SBR	SDWLSC+47, SBR0+1

Name	Field # of Occurrence
^(	SDWLSC+28

Name	Field # of Occurrence
ANS	SDWLSC+31~, SBR+1, SBR0, SBR0+1, SBR0+2
>> DIR("A"	SBR0*
>> DIR("B"	SBR0*
>> DIR(0	SBR0*
NN	SDWLSC+31~, SDWLSC+32, SDWLSC+33
NUM	SDWLSC+31~, SDWLSC+34
SDELIG	SDWLSC+39~, SDWLSC+40*, SDWLSC+42, SDWLSC+44
SDPER	SDWLSC+31~
SDRAT	SDWLSC+31~, SDWLSC+34*, SDWLSC+36
SDREC	SDWLSC+31~, SDWLSC+33*, SDWLSC+34, SDWLSC+35, SDWLSC+36
SDSCFLD	SDWLSC+39~, SDWLSC+43, SDWLSC+45*, SDWLSC+48!, SBR+3
>> SDSCFLG	SDWLSC+41*
SDSER	SDWLSC+31~, SDWLSC+35*, SDWLSC+36
>> SDWLDA	SDWLSC+25
>> SDWLDFN	SDWLSC+22, SDWLSC+23, SDWLSC+27, SDWLSC+28, SDWLSC+32, SDWLSC+33, SDWLSC+40, SDWLSC+46, SBR+2
>> SDWLEDIT	SBR
>> SDWLNSC	SDWLSC+21, SDWLSC+25, SBR+2, SBR0+2
U	SDWLSC+25, SDWLSC+41
>> VAEL(1	SDWLSC+24, SDWLSC+29, SDWLSC+41, SDWLSC+42, SDWLSC+44
>> VAEL(3	SDWLSC+42, SDWLSC+44
X	SBR+1~, SBR+2*
>> Y	SBR0