Routine: SROAL2

Package	Total	Call Graph
VA FileMan	3	C^%DTC ^DIC ^DIE
Surgery	2	^SROAL21 ($$LOCK,UNLOCK)^SROUTL

Package	Total	Caller Graph
Surgery	1	SROALAB

Entry Points

Name	Comments	DBIA/ICR reference
YEP
START
SRAT	; Get test from file 139.2.
END
SRADN	; Get data name(s) for test, make call to check lab record.
LABCHK	; Get test values from patient's lab record.
COMP
NS	; check for no sample
STAR	; questional result, require manual input
DATA	; Decide to save test result or not
TMCHK
CONV	; convert value to numeric for comparison

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This selection loads highest or lowest lab data for tests performed within",!,"30 days after the operation." Line Location: SROAL2+6
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: YEP+0
Function Call: WRITE	Prompt: !!,"Enter <RET> to automatically load postoperative 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: !!,"'Time the Operation Ends' must be entered before continuing." Line Location: START+1
Function Call: WRITE	Prompt: !!,"..Searching lab record for postoperative lab 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
Function Call: READ	Variable: SRYN Timeout: DTIME Line Location: TMCHK+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to input 'Time the Operation Ends' or ",!,"'NO' to return to the menu." Line Location: TMCHK+1
Routine Call	DIC Line Location: SRAT+2 SRAT+3
Routine Call	DIE Line Location: TMCHK+4

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

Name	Field # of Occurrence
>> DA	TMCHK+4*
DIC	SRAT+2!, SRAT+3!
DIC(0	SRAT+2, SRAT+3
>> DIE	TMCHK+4*
DR	TMCHK+4!*
DTIME	YEP, END, TMCHK
IOF	END+1
>> SR1	COMP+3*
>> SR2	COMP+3*
SRAD	SROAL2+5!
SRAD(	NS+1, STAR+1, DATA+3, DATA+10
>> SRADN	SRADN+1*
>> SRAIDT	LABCHK+1*, COMP, DATA+3, DATA+10
>> SRALR	START*, LABCHK+1, COMP, DATA+3, DATA+10
>> SRAOP	START+1, START+2, TMCHK+4
>> SRASP	SRAT+4, SRAT+5, LABCHK+3
SRAT	SROAL2+5!, SRAT+4, SRAT+5, SRADN+1, LABCHK+2, COMP+1, COMP+2, COMP+3, NS+1, STAR+1 , DATA+3, DATA+10
SRAT(	COMP+1, COMP+2, COMP+3, NS+1, STAR+1, DATA+3, DATA+10
>> SRATN	SRADN+1*, LABCHK+1, COMP
>> SRAVAL	COMP, DATA+2, DATA+3, DATA+10
SRBLUD	SROAL2+5~, SRAT+3*, LABCHK+2
SRELSE	CONV+1~
>> SREND	START+2*, LABCHK+1
>> SRFLG	SRAT+4, SRAT+5, LABCHK+1, COMP+1, COMP+2, COMP+3, NS+1, STAR+1, DATA+3, DATA+4 , DATA+7, DATA+10
>> SRP	SRAT+2*, LABCHK+2
>> SRSER	SRAT+2*, LABCHK+2
>> SRSOUT	SROAL2+5, START+1, END, TMCHK, TMCHK+2, TMCHK+4
>> SRSP	LABCHK+1*, LABCHK+2, LABCHK+3
>> SRST	START+2*, LABCHK+1
SRSWAP	DATA+1~, DATA+3, DATA+5, DATA+6, DATA+8, DATA+9*
>> SRT	DATA+2*, DATA+5, DATA+8
>> SRT1	DATA+3*, DATA+4, DATA+6, DATA+7, DATA+9
>> SRTN	SROAL2+5, START, START+1, SRAT+6, TMCHK+3, TMCHK+4
SRVAL	DATA+1~, DATA+6, DATA+9
>> SRX	LABCHK+1, DATA+2, DATA+6, DATA+9, CONV+1, CONV+2, CONV+3, CONV+4, CONV+5, CONV+6* , CONV+7*
>> SRYN	YEP, YEP+1, YEP+2, TMCHK, TMCHK+1, TMCHK+2
>> SRZ	DATA+2, CONV+1*
>> X	START+2, SRAT+2, SRAT+3, END*
X1	START+2, CONV+1~, CONV+4, CONV+6
X2	START+2, CONV+1~, CONV+5, CONV+6
>> Y	SRAT+2, SRAT+3