Routine: SROCD3

Package	Total	Call Graph
VA Fileman	3	^DIE EN^DIQ1 ^DIR
Registration	2	DIS^DGRPDB (DEM,ELIG,SVC)^VADPT

Package	Total	Caller Graph
Surgery	2	SROCD0 SROCD2

Entry Points

External References

Name	Field # of Occurrence
DIS^DGRPDB	SCEI+12
^DIE	SUP+10, UPDSC+11
EN^DIQ1	SCEI+6
^DIR	ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC , PRESS
DEM^VADPT	SCEI+2
ELIG^VADPT	SCEI+2
SVC^VADPT	SCEI+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,VADM(1)_" ("_VA("PID")_") ",$P(VAEL(6),"^",2),!!," * * * Eligibility Information and Service Connected Conditions * * *" Line Location: SCEI+8
Function Call: WRITE	Prompt: !!,?5,"Primary Eligibility: "_SRELIG,!,?5,"Combat Vet: "_SRCV,?22,"A/O Exp.: "_SRAO,?39,"M/S Trauma: "_SRMST Line Location: SCEI+9
Function Call: WRITE	Prompt: !,?5,"ION Rad.: "_SRIR,?22,"SWAC: "_SREC,?39,"H/N Cancer: "_SRHNC Line Location: SCEI+10
Function Call: WRITE	Prompt: !,?5,"PROJ 112/SHAD: "_SRPRJ Line Location: SCEI+11
Function Call: WRITE	Prompt: ! Line Location: SCEI+13
Function Call: WRITE	Prompt: "-" Line Location: SCEI+13
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: SC+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: CV+2
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: AO+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: IR+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: EC+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: PRJ+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: MST+1
Function Call: WRITE	Prompt: !,$C(7),?15,"Enter YES or NO." Line Location: HNC+1
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: @IOF Line Location: PRESS+0
Routine Call	DIE Line Location: SUP+10 UPDSC+11
Routine Call	DIR Line Location: ASK UPDX+2 SC CV+1 AO IR EC PRJ MST HNC PRESS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SUP
^SRO(136 - [#136]	UPDX, CV, UPDSC+11

Label References

Name	Line Occurrences
AO	SUP+4, AO+1
BLDDR	UPDSC+3, UPDSC+4, UPDSC+5, UPDSC+6, UPDSC+7, UPDSC+8, UPDSC+9, UPDSC+10
CV	SUP+3, CV+2
EC	SUP+6, EC+1
END	SUP+1
HNC	SUP+9, HNC+1
IR	SUP+5, IR+1
MST	SUP+8, MST+1
PRJ	SUP+7, PRJ+1
SC	SUP+2, SC+1
UPDSC	UPDX+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SCEI+6!, SUP+1, SUP+10!, END!, CV, UPDSC+1!, UPDSC+2, UPDSC+11*
DA(1	UPDSC+2*
>> DFN	SCEI+6, SCEI+7
DIC	SCEI+6*!
DIE	SUP+10!, END!, UPDSC+1!, UPDSC+2
DIQ	SCEI+6*!
DIQ(0	SCEI+6*
DIR	ASK!, SUP+1!, UPDX+1!, UPDX+2!, SC!, CV+1!, AO!, IR!, EC!, PRJ! , MST!, HNC!, PRESS!
DIR("A"	ASK, UPDX+1, SC, CV+1, AO, IR, EC, PRJ, MST, HNC , PRESS*
DIR("B"	ASK, UPDX+2, CV*
DIR(0	ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC , PRESS*
DR	SCEI+6!, SUP+10!, END!, UPDSC+1!, BLDDR+1, BLDDR+2, BLDDR+3*
>> DTOUT	ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> DUOUT	ASK, UPDX+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
DXPIECE	BLDDR~, BLDDR+3, BLDDR+4!
>> I	SCEI+13, UPDSC+2, UPDSC+11*
IOF	SCEI+8, PRESS
NEWSC	BLDDR~, BLDDR+3, BLDDR+4!
SRAO	SCEI+1~, SCEI+4*, SCEI+9
>> SRCL(1	SUP+4, AO+2, AO+3, UPDSC+3
>> SRCL(2	SUP+5, IR+2, IR+3, UPDSC+4
>> SRCL(3	SUP+2, SC+2, SC+3, UPDSC+5
>> SRCL(4	SUP+6, EC+2, EC+3, UPDSC+6
>> SRCL(5	SCEI+5, SUP+8, MST+2, MST+3, UPDSC+7
>> SRCL(6	SCEI+5, SUP+9, HNC+2, HNC+3, UPDSC+8
>> SRCL(7	SUP+3, CV+3, CV+4, UPDSC+9
>> SRCL(8	SUP+7, PRJ+2, PRJ+3, UPDSC+10
SRCV	SCEI+1~, SCEI+4*, SCEI+9
SRCVD	CV~*
SRDR	SCEI+1~, SUP+1, SUP+10, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2 , HNC+2*
SREC	SCEI+1~, SCEI+7*, SCEI+10
SREEQ	SCEI+1~
SRELIG	SCEI+1~, SCEI+3*, SCEI+9
SRHNC	SCEI+1~, SCEI+5*, SCEI+10
SRIR	SCEI+1~, SCEI+4*, SCEI+10
SRMST	SCEI+1~, SCEI+5*, SCEI+9
SRPERC	SCEI+1~, SCEI+3*
SRPRJ	SCEI+1~, SCEI+4*, SCEI+11
SRQ	SCEI+1~, SUP+1, SUP+2, SUP+3, SUP+4, SUP+5, SUP+6, SUP+7, SUP+8, SC , CV+1, AO, IR, EC, PRJ, MST, HNC*
SRSC	SCEI+1~, SCEI+3*
>> SRTN	SUP, SUP+1, SUP+10, UPDX, UPDSC+2, UPDSC+11
SRY	SCEI+1~, SUP*, SUP+1
SRY(2	SCEI+7
SRZ	END!
>> VA("PID"	SCEI+8
VADM	SCEI+1~
VADM(1	SCEI+8
VAEL	SCEI+1~
VAEL(1	SCEI+3
VAEL(3	SCEI+3
VAEL(6	SCEI+8
VASV	SCEI+1~
VASV(10	SCEI+4
VASV(11	SCEI+4
VASV(2	SCEI+4
VASV(3	SCEI+4
X	END!, SC+1, CV+2, AO+1, IR+1, EC+1, PRJ+1, MST+1, HNC+1
Y	ASK, UPDX+3, END!, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2 , HNC+2

Customize PDF page

Package: Surgery

Routine: SROCD3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HNC
MST
END
UPDX
IR
SCEI	; output of SC/EI conditions
AO
PRJ
SC
PRESS
EC
SUP
ASK
BLDDR(DXPIECE,NEWSC)	;Build the DR string for updating DX/Service Indicators associations
CV
UPDSC	;Update existing DX to Service Connected/Environmental Indicators associations.