Routine: SROCL1

Package	Total	Call Graph
Surgery	2	SP^SROAL1 CARDIAC^SROAL11
VA Fileman	2	C^%DTC ^DIC

Package	Total	Caller Graph
Surgery	1	SROCLAB

Entry Points

Name	Comments	DBIA/ICR reference
LABCHK	; Get latest test values from patient's lab record.
CONCC	; update concurrent case
END
COMP
SP
SRAT	; Get test and data name(s) for test from file 139.2.
START
YEP
DEC	; convert to proper decimal place
DATA

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This selection loads the most recent cardiac lab data for tests performed",!,"preoperatively." Line Location: SROCL1+6
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: YEP+0
Function Call: WRITE	Prompt: !!,"Enter <RET> to automatically load cardiac lab data from the patient's lab",!,"record, or 'NO' to return to the menu." Line Location: YEP+1
Function Call: WRITE	Prompt: !!,"Lab data NOT loaded." Line Location: YEP+2
Function Call: WRITE	Prompt: !!,"No Date of Operation found !" Line Location: START+1
Function Call: WRITE	Prompt: !!,"..Searching lab record for latest test data...." Line Location: SRAT+1
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Routine Call	DIC Line Location: SRAT+2 SRAT+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	START
^LR - [#63]	LABCHK+1, COMP, DATA+8
^SRF - [#130]	START, START+1, SRAT+5
^SRO(139.2 - [#139.2]	SP

Name	Field # of Occurrence
DIC	SRAT+2!, SRAT+3!
DIC(0	SRAT+2, SRAT+3
DTIME	YEP, END
>> II	SP
IOF	END+1
>> SR1	DEC+2*
>> SR2	DEC+2*
SRAD	SROCL1+5!
SRAD(	LABCHK+3, DATA+8
>> SRADN	SP*
SRADT	SP!, DATA, DATA+8*
>> SRAIDT	LABCHK+1*, COMP, DATA, DATA+8
>> SRALR	START*, LABCHK+1, COMP, DATA+8
>> SRAOP	START+1*, START+2, START+3, START+4
>> SRASP	SP*
SRAT	SROCL1+5!, SRAT+4*, LABCHK+3, DATA+8, DEC+1, DEC+2
SRAT(	LABCHK+3, DATA+8, DEC+1, DEC+2
>> SRATN	SP*, LABCHK+1, COMP
SRBLUD	SROCL1+5~, SRAT+3*
>> SRCON	SRAT+5*, CONCC+1
>> SREND	SRAT+4*, LABCHK+1
SREND0	START+2~*, SRAT+4
SREND1	START+2~, START+3*, SRAT+4
>> SREND2	START+4*, SRAT+4
>> SRP	SRAT+2*, LABCHK+2
>> SRSER	SRAT+2*, LABCHK+2
>> SRSOUT	SROCL1+5, START+1, END
>> SRSP	LABCHK+1*, LABCHK+2
>> SRST	START+2*, LABCHK+1
>> SRTN	SROCL1+5, START, START+1, SRAT+5, CONCC+1*
>> SRTN1	CONCC+1*
>> SRX	COMP, DATA+1, DATA+2, DATA+3, DATA+4, DATA+5, DATA+6, DATA+7, DATA+8
>> SRYN	YEP, YEP+1, YEP+2
>> SRZ	DATA+2*, DATA+6
U	START+1
>> X	START+2, START+3, START+4, SRAT+2, SRAT+3, END*
X1	START+2, START+3, START+4, DATA+2~, DATA+4, DATA+6
X2	START+2, START+3, START+4, DATA+2~, DATA+5, DATA+6
>> Y	SRAT+2, SRAT+3