Routine: SROCD

Package	Total	Call Graph
Surgery	6	^SROCD1 ^SROCD2 ^SROERR0 ^SROPS1 ^SROVAR ^SRSKILL
VA Fileman	3	^DIE D^DIQ ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	4	SRCODING EDIT SROCD0 SROCD2 SROCDX

Entry Points

External References

Name	Field # of Occurrence
^DIE	OSCEI+11
D^DIQ	BEG+2
^DIR	SURE+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
^SROCD1	BEG+4
^SROCD2	EDIT
^SROERR0	END
^SROPS1	SROCD+3
^SROVAR	SROCD+2
^SRSKILL	END
DEM^VADPT	BEG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!,SRNM_" Case #"_SRTN,! Line Location: HDR+0
Function Call: WRITE	Prompt: $P(SRSDATE,"@")_" "_SRHDR(1) Line Location: HDR+1
Function Call: WRITE	Prompt: !,?15,SRHDR(2) Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,SRHDR(3) Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "-" Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Please supply the following required information related to this diagnosis:",! Line Location: OSCEI+1
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
Routine Call	DIE Line Location: OSCEI+11
Routine Call	DIR Line Location: SURE+2 SC CV+1 AO IR EC PRJ MST HNC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(136 - [#136]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	BEG+1, BEG+2, BEG+3, SURE+1, HDR+1
^SRO(136 - [#136]	BEG+4, BEG+5, SURE+3, CV
^TMP("SRED1"	SURE+3*, END+2!

Label References

Name	Line Occurrences
AO	OSCEI+5, AO+1
BRK	HDR+1
CV	OSCEI+4, CV+2
EC	OSCEI+7, EC+1
EDIT	EDIT+1
END	EDIT
HDR	SURE
HNC	OSCEI+10, HNC+1
IR	OSCEI+6, IR+1
MST	OSCEI+9, MST+1
PRJ	OSCEI+8, PRJ+1
SC	OSCEI+3, SC+1
SURE	BEG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADCNT	END+1!
DA	OSCEI+1!, OSCEI+2, OSCEI+11!, CV
DA(1	OSCEI+2, OSCEI+11, CV
>> DFN	BEG+2*
DIE	OSCEI+1!, OSCEI+11*!
DIR	SURE!, SURE+2!, OSCEI+1!, OSCEI+11!, SC!, CV+1!, AO!, IR!, EC!, PRJ! , MST!, HNC!
DIR("A"	SURE+1, SURE+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
DIR("B"	SURE+2, CV
DIR(0	SURE+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC*
DR	OSCEI+1!, OSCEI+11*!
>> DTOUT	SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> DUOUT	SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> I	HDR+3, BRK+3
IOF	END+2, HDR
>> J	BRK+3*
>> K	BRK+2, BRK+3
REC	END+1!
S	BEG~
S(0	BEG+2*
SR2	BEG~, BEG+1*
SRADIAG	END+1!
SRADX	END+1!
SRASDX	END+1!
>> SRCL(1	OSCEI+5, AO+2*
>> SRCL(2	OSCEI+6, IR+2*
>> SRCL(3	OSCEI+3, SC+2*
>> SRCL(4	OSCEI+7, EC+2*
>> SRCL(5	OSCEI+9, MST+2*
>> SRCL(6	OSCEI+10, HNC+2*
>> SRCL(7	OSCEI+4, CV+3*
>> SRCL(8	OSCEI+8, PRJ+2*
SRCMOD	BEG~
SRCOMMA	END+1!
SRCVD	CV~*
>> SRDA	OSCEI+2, OSCEI+11
>> SRDATE	BEG+2*
SRDES	BEG~
SRDIAGS	END+1!
SRDIRX	END+1!
SRDR	OSCEI+2, OSCEI+11!, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2, HNC+2*
SRDX	BEG~, END+1!
SRDX1	END+1!
SRDX2	END+1!
SRDXCNT	END+1!
SREDIT	BEG~, BEG+1, BEG+5, EDIT, SURE+3
SRHDR	BEG~
SRHDR(	BRK+2, BRK+3
SRHDR(1	HDR+1, BRK+1*
SRHDR(2	HDR+2
SRHDR(3	HDR+2
SRICD9	END+1!
SRMOD	BEG~, BEG+1*
SRMSG	END+1!
SRNM	BEG~, BEG+2*, HDR
>> SRNON	BEG+3*
SROCNTR	END+1!
SROCPT2	END+1!
SRODIR	END+1!
SROERR	END*, END+1!
SROFLG	END+1!
SROICD	END+1!
SRPADX	END+1!
SRPROC	BEG~, HDR+1*, BRK+1, BRK+2
>> SRQ	OSCEI+2, OSCEI+3, OSCEI+4, OSCEI+5, OSCEI+6, OSCEI+7, OSCEI+8, OSCEI+9, SC, CV+1* , AO, IR, EC, PRJ, MST, HNC
SRS	BEG~, BEG+1*
>> SRSDATE	BEG+2*, HDR+1
SRSEL	BEG~
SRSEL(	OSCEI+2, OSCEI+11
>> SRSITE	SROCD+2
>> SRSOUT	BEG+1*, EDIT
SRTMP	END+1!
>> SRTN	SROCD+3, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, SURE+1, SURE+3, END, HDR , HDR+1, OSCEI+2, OSCEI+11
SRTXT	BEG~
SUB4	END+1!
U	OSCEI+2, OSCEI+11
>> VA("PID"	BEG+2
>> VADM(1	BEG+2
>> X	BRK+2, BRK+3, SC+1, CV+2, AO+1, IR+1, EC+1, PRJ+1, MST+1, HNC+1
>> XQUIT	SROCD+2, SROCD+3
>> Y	BEG+2, SURE+3, BRK+3, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2 , HNC+2

Customize PDF page

Package: Surgery

Routine: SROCD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HNC
SURE
END
HDR
OSCEI	; update SC/EI info on other diagnosis
EDIT
IR
MST
BEG
AO
PRJ
BRK	; break procedure if greater than 65 characters
EC
SC
CV