Routine: SROAL1

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

Package	Total	Caller Graph
Surgery	2	SROALAB SROCL1

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	START+2, SRAT+5, SRAT+6, CREAT+5
^DIC	SRAT+2, SRAT+3, CREAT+1
^DIE	TMCHK+5
^SROAL11	SRAT+7
N4^SROAL11	CONCC+1
$$LOCK^SROUTL	SRAT+7, TMCHK+4, CREAT+7
UNLOCK^SROUTL	SRAT+7, TMCHK+4, CREAT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This selection loads the most recent lab data for tests performed",!,"within 90 days before the operation unless otherwise specified." Line Location: SROAL1+6
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: YEP+0
Function Call: WRITE	Prompt: !!,"Enter <RET> to automatically load preoperative 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: !!,"The 'Time the Operation Began' must be entered before continuing." Line Location: START+1
Function Call: WRITE	Prompt: !!,"..Searching lab record for latest preoperative 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	Timeout: DTIME Variable: SRYN Line Location: TMCHK+0
Function Call: WRITE	Prompt: !!,"The time that the operation began must be entered prior to capturing the",!,"preoperative lab data. Enter 'YES' to input 'Time the Operation Began',",!,"or 'NO' to return to the menu." Line Location: TMCHK+2
Routine Call	DIE Line Location: TMCHK+5
Routine Call	DIC Line Location: SRAT+2 SRAT+3 CREAT+1

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
COMP	LABCHK+2, LABCHK+3
CONCC	SRAT+7
DATA	COMP
DEC	DATA+8
END	YEP, YEP+2, START+1
LABCHK	SP, CREAT+6
NS	SP+1
SP	SRAT+4, SRAT+5, SRAT+6
TMCHK	START+1, TMCHK+2
YEP	YEP+1

Naked Globals

Name	Field # of Occurrence
^(	SP, LABCHK+1, CREAT+6
^("LR"	START, CREAT+4
^(0	LABCHK+1
^(202	CREAT+7*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	TMCHK+5*
DIC	SRAT+2!, SRAT+3!, CREAT+1!*
DIC(0	SRAT+2, SRAT+3, CREAT+1*
>> DIE	TMCHK+5*
DR	TMCHK+5!*
DT	CREAT+3
DTIME	YEP, END, TMCHK
IOF	END+1
>> SR1	DEC+2*
>> SR2	DEC+2*
SRAD	SROAL1+5!
SRAD(	NS+1, DATA+8, CREAT+7
>> SRADN	SP, CREAT+6
SRADT	SP!, DATA, DATA+8*, CREAT+6!
>> SRAIDT	LABCHK+1*, COMP, DATA, DATA+8
>> SRALR	START, LABCHK+1, COMP, DATA+8, CREAT+4
>> SRAOP	START+1, START+2, SRAT+5, SRAT+6, TMCHK+6, CREAT+5*
>> SRAOPDT	CREAT+3*, CREAT+5
>> SRASP	SP, LABCHK+3, CREAT+6
SRAT	SROAL1+5!, SRAT+4, SRAT+5, SRAT+6, SP, LABCHK+2, NS+1, DATA+8, DEC+1, DEC+2 , CREAT+6, CREAT+7
SRAT(	NS+1, DATA+8, DEC+1, DEC+2, CREAT+7
>> SRATN	SP, LABCHK+1, COMP, CREAT+6
SRBLUD	SROAL1+5~, SRAT+3*, LABCHK+2
>> SRCON	SRAT+7*, CONCC+1
>> SREND	START+2, SRAT+5, SRAT+6, LABCHK+1, CREAT+5
SRLB	CREAT+2*, CREAT+3, CREAT+6, CREAT+7, CREAT+8!
SRP	SRAT+2, LABCHK+2, CREAT+1~
SRSER	SRAT+2, LABCHK+2, CREAT+1~
>> SRSOUT	SROAL1+5, START+1, END, TMCHK, TMCHK+3, TMCHK+6, CREAT+4*
>> SRSP	LABCHK+1*, LABCHK+2, LABCHK+3
>> SRST	START+2, LABCHK+1, CREAT+5
>> SRTN	SROAL1+5, START, START+1, SRAT+7, CONCC+1*, TMCHK+4, TMCHK+5, TMCHK+6, CREAT+3, CREAT+4 , CREAT+7
>> 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, TMCHK, TMCHK+1, TMCHK+2, TMCHK+3
>> SRZ	DATA+2*, DATA+6
>> VALUE	CREAT+3*
>> X	START+2, SRAT+2, SRAT+3, SRAT+5, SRAT+6, END, CREAT+1, CREAT+5
X1	START+2, SRAT+5, SRAT+6, DATA+2~, DATA+4, DATA+6, CREAT+5*
X2	START+2, SRAT+5, SRAT+6, DATA+2~, DATA+5, DATA+6, CREAT+5*
>> Y	SRAT+2, SRAT+3, CREAT+1

Customize PDF page

Package: Surgery

Routine: SROAL1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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