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 |  Local Variables  | All
Print Page as PDF
Routine: SROAPS2

Package: Surgery

Routine: SROAPS2


SROAPS2 ;BIR/MAM - PREOP INFO (PAGE 2) ;07/18/2011

Source Information

Source file <SROAPS2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Surgery 1 HDR^SROAUTL  
VA FileMan 1 Y^DIQ  

Caller Graph


Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROAPR2  

Entry Points

Name Comments DBIA/ICR reference
OUT(SRFLD,SRY) ; get data in output form

External References

Name Field # of Occurrence

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROAPS2+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROAPS2+3
Function Call: WRITE
  • Prompt: !,"1. RENAL:",?(38-$L($P(SRAO(1),"^"))),$P(SRAO(1),"^"),?40,"3. NUTRITIONAL/IMMUNE/OTHER:",?(79-$L($P(SRAO(3),"^"))),$P(SRAO(3),"^")
  • Line Location: PRE2+29
Function Call: WRITE
  • Prompt: !," A. Acute Renal Failure:",?(38-$L($P(SRAO("1A"),"^"))),$P(SRAO("1A"),"^"),?40," A. Disseminated Cancer:",?(79-$L($P(SRAO("3A"),"^"))),$P(SRAO("3A"),"^")
  • Line Location: PRE2+30
Function Call: WRITE
  • Prompt: !," B. Currently on Dialysis:",?(38-$L($P(SRAO("1B"),"^"))),$P(SRAO("1B"),"^"),?40," B. Open Wound:",?(79-$L($P(SRAO("3B"),"^"))),$P(SRAO("3B"),"^")
  • Line Location: PRE2+31
Function Call: WRITE
  • Prompt: !,?40," C. Steroid Use for Chronic Cond.:",?(79-$L($P(SRAO("3C"),"^"))),$P(SRAO("3C"),"^")
  • Line Location: PRE2+32
Function Call: WRITE
  • Prompt: !,?40," D. Weight Loss > 10%:",?(79-$L($P(SRAO("3D"),"^"))),$P(SRAO("3D"),"^")
  • Line Location: PRE2+33
Function Call: WRITE
  • Prompt: !,"2. CENTRAL NERVOUS SYSTEM:",?(38-$L($P(SRAO(2),"^"))),$P(SRAO(2),"^"),?40," E. Bleeding Disorders:",?(79-$L($P(SRAO("3E"),"^"))),$P(SRAO("3E"),"^")
  • Line Location: PRE2+34
Function Call: WRITE
  • Prompt: !," A. Impaired Sensorium: ",?(38-$L($P(SRAO("2A"),"^"))),$P(SRAO("2A"),"^"),?40," F. Bleed Due To Med:",?(79-$L($P(SRAO("3F"),"^"))),$P(SRAO("3F"),"^")
  • Line Location: PRE2+35
Function Call: WRITE
  • Prompt: !," B. Coma:",?(38-$L($P(SRAO("2B"),"^"))),$P(SRAO("2B"),"^"),?40," G. Transfusion > 4 RBC Units:",?(79-$L($P(SRAO("3G"),"^"))),$P(SRAO("3G"),"^")
  • Line Location: PRE2+36
Function Call: WRITE
  • Prompt: !," C. Hemiplegia:",?(38-$L($P(SRAO("2C"),"^"))),$P(SRAO("2C"),"^"),?40," H. Chemo for Malig Last 90 Days:",?(79-$L($P(SRAO("3H"),"^"))),$P(SRAO("3H"),"^")
  • Line Location: PRE2+37
Function Call: WRITE
  • Prompt: !," D. CVD Repair/Obstruct:",?(38-$L($P(SRAO("2D"),"^"))),$P(SRAO("2D"),"^"),?40," I. Radiotherapy W/I 90 Days:",?(79-$L($P(SRAO("3I"),"^"))),$P(SRAO("3I"),"^")
  • Line Location: PRE2+38
Function Call: WRITE
  • Prompt: !," E. History of CVD:",?(38-$L($P(SRAO("2E"),"^"))),$P(SRAO("2E"),"^"),?40," J. Preoperative Sepsis:",?(79-$L($P(SRAO("3J"),"^"))),$P(SRAO("3J"),"^")
  • Line Location: PRE2+39
Function Call: WRITE
  • Prompt: !," F. Tumor Involving CNS:",?(38-$L($P(SRAO("2F"),"^"))),$P(SRAO("2F"),"^"),?40," K. Pregnancy:",?(79-$L($P(SRAO("3K"),"^"))),$P(SRAO("3K"),"^")
  • Line Location: PRE2+40
Function Call: WRITE
  • Prompt: !," G. Impaired Cognitive Function:",?(38-$L($P(SRAO("2G"),"^"))),$P(SRAO("2G"),"^")
  • Line Location: PRE2+41
Function Call: WRITE
  • Prompt: ?40," L. History of Cancer:",?(79-$L($P(SRAO("3L"),"^"))),$P(SRAO("3L"),"^")
  • Line Location: PRE2+42
Function Call: WRITE
  • Prompt: !,?40," M. History of Radiation Therapy:",?(79-$L($P(SRAO("3M"),"^"))),$P(SRAO("3M"),"^")
  • Line Location: PRE2+43
Function Call: WRITE
  • Prompt: !,?40," N. Num of Prior Surg in Same OP:",?(79-$L($P(SRAO("3N"),"^"))),$P(SRAO("3N"),"^")
  • Line Location: PRE2+44

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 OUT+7
^SRF - [#130] PRE2*, PRE2+1, PRE2+2

Label References

Name Line Occurrences
$$OUT PRE2+3, PRE2+4, PRE2+5, PRE2+6, PRE2+7, PRE2+8, PRE2+9, PRE2+10, PRE2+11, PRE2+12
PRE2+13, PRE2+14, PRE2+15, PRE2+16, PRE2+17, PRE2+18, PRE2+19, PRE2+20, PRE2+21, PRE2+22
PRE2+23, PRE2+24, PRE2+25, PRE2+26, PRE2+27, PRE2+28

Local Variables


>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C OUT+1~, OUT+7*
>> I SROAPS2+3*
SRA PRE2+28!
SRA( PRE2+1*, PRE2+11, PRE2+12, PRE2+25
SRA(200 PRE2+1*, PRE2+3, PRE2+4, PRE2+5, PRE2+6, PRE2+7, PRE2+8, PRE2+9, PRE2+10, PRE2+13
PRE2+15, PRE2+16, PRE2+17, PRE2+18, PRE2+19, PRE2+20, PRE2+21
SRA(204 PRE2+2*, PRE2+22
SRA(206 PRE2+1*, PRE2+23, PRE2+24
SRA(210 PRE2+1*, PRE2+14, PRE2+26, PRE2+27, PRE2+28
>> SRAO("1A" PRE2+4*, PRE2+30
>> SRAO("1B" PRE2+5*, PRE2+31
>> SRAO("2A" PRE2+8*, PRE2+35
>> SRAO("2B" PRE2+9*, PRE2+36
>> SRAO("2C" PRE2+10*, PRE2+37
>> SRAO("2D" PRE2+11*, PRE2+38
>> SRAO("2E" PRE2+12*, PRE2+39
>> SRAO("2F" PRE2+13*, PRE2+40
>> SRAO("2G" PRE2+14*, PRE2+41
>> SRAO("3A" PRE2+15*, PRE2+30
>> SRAO("3B" PRE2+16*, PRE2+31
>> SRAO("3C" PRE2+17*, PRE2+32
>> SRAO("3D" PRE2+18*, PRE2+33
>> SRAO("3E" PRE2+19*, PRE2+34
>> SRAO("3F" PRE2+20*, PRE2+35
>> SRAO("3G" PRE2+21*, PRE2+36
>> SRAO("3H" PRE2+22*, PRE2+37
>> SRAO("3I" PRE2+23*, PRE2+38
>> SRAO("3J" PRE2+24*, PRE2+39
>> SRAO("3K" PRE2+25*, PRE2+40
>> SRAO("3L" PRE2+26*, PRE2+42
>> SRAO("3M" PRE2+27*, PRE2+43
>> SRAO("3N" PRE2+28*, PRE2+44
>> SRAO(1 PRE2+3*, PRE2+29
>> SRAO(2 PRE2+6*, PRE2+34
>> SRAO(3 PRE2+7*, PRE2+29
SRFLD OUT~, OUT+2, OUT+3, OUT+4, OUT+5, OUT+6, OUT+7
>> SRTN PRE2PRE2+1, PRE2+2
SRX PRE2~, PRE2+3*, PRE2+4*, PRE2+5*, PRE2+6*, PRE2+7*, PRE2+8*, PRE2+9*, PRE2+10*, PRE2+11*
PRE2+12*, PRE2+13*, PRE2+14*, PRE2+15*, PRE2+16*, PRE2+17*, PRE2+18*, PRE2+19*, PRE2+20*, PRE2+21*
PRE2+22*, PRE2+23*, PRE2+24*, PRE2+25*, PRE2+26*, PRE2+27*, PRE2+28*
SRY OUT~, OUT+2, OUT+3, OUT+4, OUT+5, OUT+6, OUT+7
>> VADM(5 PRE2
Y PRE2~*, PRE2+3*, PRE2+4*, PRE2+5*, PRE2+6*, PRE2+7*, PRE2+8*, PRE2+9*, PRE2+10*, PRE2+11*
PRE2+12*, PRE2+13*, PRE2+14*, PRE2+15*, PRE2+16*, PRE2+17*, PRE2+18*, PRE2+19*, PRE2+20*, PRE2+21*
PRE2+22*, PRE2+23*, PRE2+24*, PRE2+25*, PRE2+26*, PRE2+27*, PRE2+28*, OUT+1~, OUT+2*, OUT+3*
, OUT+4*, OUT+5*, OUT+7*, OUT+8*, OUT+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All