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

Call Graph

VA Fileman

^DIE EN^DIQ1 ^DIR

Registration

DIS^DGRPDB (DEM,ELIG,SVC)^VADPT

Scheduling

CL^SDCO21

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

Package

Total

Caller Graph

Surgery

SROARPT SROMENU SRONEW SRONIN SRONOP SRONOP1 SROP SROVER1
SROVER3 SROWL SROWL0 SRSCHUN1 SRSRQST1 SRSUP1 SRSUPRQ

Entry Points

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

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:

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.