Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls