Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROAL1

Package: Surgery

Routine: SROAL1


Information

SROAL1 ;BIR/ADM - LOAD PREOPERATIVE LAB DATA ;02/14/07

Source Information

Source file <SROAL1.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROALAB  SROCL1  

Entry Points

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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All