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: SROAPRT2

Package: Surgery

Routine: SROAPRT2


Information

SROAPRT2 ;BIR/MAM - PRINT PREOP INFO (PAGE 2); JULY 19, 2011

Source Information

Source file <SROAPRT2.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 Y^DIQ  

Caller Graph

Legends:

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 SROAPAS  

Entry Points

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

External References

Name Field # of Occurrence
Y^DIQ OUT+4

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 OUT+4
^SRF - [#130] SROAPRT2+3

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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