Routine: SROPCE1

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

Package	Total	Caller Graph
Surgery	15	SROARPT SROMENU SRONEW SRONIN SRONOP SRONOP1 SROP SROVER1 SROVER3 SROWL SROWL0 SRSCHUN1 SRSRQST1 SRSUP1 SRSUPRQ

Entry Points

Name	Comments	DBIA/ICR reference
SC
HNC
ELIG	; output of eligibility and service connected conditions
END
REQ	; entry from new request entry
UPDX
IR
MST
AO
CV
WL	; entry from waiting list
EN1
PRESS
EC
SUP
ASK
BLDDR(DXPIECE,NEWSC)	;Build the DR string for updating DX/Service Indicators associations
PRJ
CLASS	; build classification array
UPDSC	;Update existing DX to Service Connected/Environmental Indicators associations.

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No classification information is required for this patient.",! Line Location: CLASS+2
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF,!,VADM(1)_" ("_VA("PID")_") ",$P(VAEL(6),"^",2),!!," * * * Eligibility Information and Service Connected Conditions * * *" Line Location: ELIG+7
Function Call: WRITE	Prompt: !!,?5,"Primary Eligibility: "_SRELIG,!,?5,"Combat Vet: "_SRCV,?22,"A/O Exp.: "_SRAO,?39,"M/S Trauma: "_SRMST Line Location: ELIG+8
Function Call: WRITE	Prompt: !,?5,"ION Rad.: "_SRIR,?22,"SWAC: "_SREC,?39,"H/N Cancer: "_SRHNC Line Location: ELIG+9
Function Call: WRITE	Prompt: !,?5,"PROJ 112/SHAD: "_SRPRJ Line Location: ELIG+10
Function Call: WRITE	Prompt: ! Line Location: ELIG+12
Function Call: WRITE	Prompt: "-" Line Location: ELIG+12
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: CLASS+2 SUP+11 UPDSC+12
Routine Call	DIR Line Location: ASK SC CV+1 AO IR EC PRJ MST HNC PRESS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	EN1+1, CLASS+1, CLASS+3, SUP, UPDX, CV, UPDSC+12
^SRO(133 - [#133]	EN1, EN1+1
^SRO(133.8 - [#133.8]	EN1+1, CLASS+4, CV

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	CLASS+2!, ELIG+5!, SUP+1, SUP+10!, END!, UPDSC+1!, UPDSC+2, UPDSC+12
DA(1	CLASS+2, SUP+1, SUP+10, UPDSC+2
>> DFN	CLASS+1*, ELIG+5, ELIG+6
DIC	ELIG+5*!
DIE	CLASS+2!, SUP+10!, END!, UPDSC+1!, UPDSC+2*
DIQ	ELIG+5*!
DIQ(0	ELIG+5*
DIR	ASK!, SUP+1!, SC!, CV+1!, AO!, IR!, EC!, PRJ!, MST!, HNC! , PRESS!
DIR("A"	ASK, SC, CV+1, AO, IR, EC, PRJ, MST, HNC, PRESS
DIR("B"	ASK, CV
DIR(0	ASK, SC, CV+1, AO, IR, EC, PRJ, MST, HNC, PRESS
DR	CLASS+2!, ELIG+5!, SUP+10!, END!, UPDSC+3!, BLDDR+1, BLDDR+2, BLDDR+3
DT	EN1+1
DTIME	UPDX+1
>> DTOUT	ASK, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> DUOUT	ASK, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
DXPIECE	BLDDR~, BLDDR+3, BLDDR+4!
>> I	ELIG+12, UPDSC+2, UPDSC+12*
IOF	ASK, ELIG+7, PRESS
NEWSC	BLDDR~, BLDDR+3, BLDDR+4!
SRAO	EN1+2~, ELIG+3*, ELIG+8
SRCL	EN1+2~, CLASS+1, CLASS+2
SRCL(1	SUP+4, AO+2, AO+3, UPDSC+4
SRCL(2	SUP+5, IR+2, IR+3, UPDSC+5
SRCL(3	SUP+2, SC+2, SC+3, UPDSC+6
SRCL(4	SUP+6, EC+2, EC+3, UPDSC+7
SRCL(5	ELIG+4, SUP+8, MST+2, MST+3, UPDSC+8
SRCL(6	ELIG+4, SUP+9, HNC+2, HNC+3, UPDSC+9
SRCL(7	SUP+3, CV+3, CV+4, UPDSC+10
SRCL(8	SUP+7, PRJ+2, PRJ+3, UPDSC+11
SRCV	EN1+2~, ELIG+3*, ELIG+8
SRCVD	CV~*
SRDR	EN1+2~, SUP+1, SUP+10, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2 , HNC+2*
SREC	EN1+2~, ELIG+6*, ELIG+9
SRELIG	EN1+2~, ELIG+2*, ELIG+8
SRHNC	EN1+2~, ELIG+4*, ELIG+9
SRIR	EN1+2~, ELIG+3*, ELIG+9
SRMST	EN1+2~, ELIG+4*, ELIG+8
>> SROFN	EN1+1, CLASS+2, CLASS+4, SUP+1, SUP+10, CV
SRPDATE	EN1+1~*
SRPERC	EN1+2~, ELIG+2*
SRPRJ	EN1+2~, ELIG+3*, ELIG+10
SRQ	EN1+2~, SUP+1, SUP+2, SUP+3, SUP+4, SUP+5, SUP+6, SUP+7, SUP+8, END , SC, CV+1, AO, IR, EC, PRJ, MST, HNC
SRREQ	END, REQ+1~*
SRSC	EN1+2~, ELIG+2*
SRSDATE	EN1+1~*, CLASS+1
>> SRSITE	EN1, EN1+1
>> SRSOUT	SUP+1*
>> SRSS	EN1+1, CLASS+2, CLASS+4, SUP+1, SUP+10, CV
>> SRTN	EN1+1, CLASS+1, CLASS+2, CLASS+3, SUP, SUP+1, SUP+10, UPDX, CV, UPDSC+2 , UPDSC+12
SRWLST	EN1+1, CLASS+2, CLASS+4, ASK, SUP+1, SUP+10, END, SC, SC+2, CV , CV+1, CV+3, AO, AO+2, IR, IR+2, EC, EC+2, PRJ, PRJ+2 , MST, MST+2, HNC, HNC+2, WL+1~*
SRX	EN1+2~
SRY	ELIG+1~, SUP*, SUP+1
SRY(2	ELIG+6
SRZ	END!
>> VA("PID"	ELIG+7
>> VADM(1	ELIG+7
VAEL	EN1+2~
VAEL(1	ELIG+2
VAEL(3	ELIG+2
VAEL(6	ELIG+7
VASV	EN1+2~
VASV(10	ELIG+3
VASV(11	ELIG+3
VASV(2	ELIG+3
VASV(3	ELIG+3
X	UPDX, END!, SC+1, CV+2, AO+1, IR+1, EC+1, PRJ+1, MST+1, HNC+1
Y	ASK, END!, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2, HNC+2
>> Z	UPDX+1*, UPDX+2, UPDX+3

Customize PDF page

Package: Surgery

Routine: SROPCE1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: