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

Package: Surgery

Routine: SROACS


Information

SROACS ;B'HAM ISC/MAM - SET SRAO ARRAY ; 4 MAR 1992 12:10 pm

Source Information

Source file <SROACS.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROAC  

Entry Points

Name Comments DBIA/ICR reference
DISP ; display complications
YN ; store answer

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,SRANAME,?65,"PAGE: 2 OF 2",!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"1. WOUND COMPLICATIONS:",?32,$P(SRAO(1),"^"),?39,"4. CNS COMPLICATIONS:",?76,$P(SRAO(4),"^")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," A. Superficial Infection:",?32,$P(SRAO("1A"),"^"),?39," A. Cerebral Vascular Accident:",?76,$P(SRAO("4A"),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," B. Deep Wound Infection:",?32,$P(SRAO("1B"),"^"),?39," B. Coma > 24 Hours:",?76,$P(SRAO("4B"),"^")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," C. Wound Dehiscence:",?32,$P(SRAO("1C"),"^"),?39," C. Neurological Deficits:",?76,$P(SRAO("4C"),"^"),!,?39," D. Other (ICD9): "_$P(SRAO("4D"),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !!,"2. RESPIRATORY COMPLICATIONS:",?32,$P(SRAO(2),"^"),?39,"5. CARDIAC COMPLICATIONS:",?76,$P(SRAO(5),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," A. Pneumonia:",?32,$P(SRAO("2A"),"^"),?39," A. Arrest Requiring CPR:",?76,$P(SRAO("5A"),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," B. Unplanned Intubation:",?32,$P(SRAO("2B"),"^"),?39," B. Myocardial Infarction:",?76,$P(SRAO("5B"),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !," C. Pulmonary Embolism:",?32,$P(SRAO("2C"),"^"),?39," C. Pulmonary Edema:",?76,$P(SRAO("5C"),"^"),!," D. On Ventilator > 48 Hours:",?32,$P(SRAO("2D"),"^"),?39," D. Other (ICD9): "_$P(SRAO("5D"),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !," E. Other (ICD9): "_$P(SRAO("2E"),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !!,"3. URINARY TRACT COMPLICATIONS: ",?32,$P(SRAO(3),"^"),?39,"6. OTHER COMPLICATIONS:",?76,$P(SRAO(6),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !," A. Renal Insufficiency: ",?32,$P(SRAO("3A"),"^"),?39," A. Ileus/Bowel Obstruction:",?76,$P(SRAO("6A"),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !," B. Acute Renal Failure:",?32,$P(SRAO("3B"),"^"),?39," B. Bleeding/Transfusions:",?76,$P(SRAO("6B"),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !," C. Urinary Tract Infection:",?32,$P(SRAO("3C"),"^"),?39," C. Graft/Prosthesis Failure:",?76,$P(SRAO("6C"),"^")
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !," D. Other (ICD9): ",$P(SRAO("3D"),"^"),?39," D. DVT/Thrombophlebitis:",?76,$P(SRAO("6D"),"^"),!,?39," E. Systemic Sepsis: ",?76,$P(SRAO("6E"),"^")
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,?39," F. Other (ICD9): "_$P(SRAO("6F"),"^")
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD9 - [#80] SROACS+5, SROACS+7, SROACS+9, SROACS+11, SROACS+14
^SRF - [#130] SROACS+2

Label References

Name Line Occurrences
YN SROACS+3, SROACS+4, SROACS+5, SROACS+6, SROACS+8, SROACS+10, SROACS+12, SROACS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I DISP+1*
IOF DISP+1
>> LINE DISP+17*
>> NYUK SROACS+3*, SROACS+4*, SROACS+5*, SROACS+6*, SROACS+8*, SROACS+10*, SROACS+12*, SROACS+13*, YN+1
>> SHEMP SROACS+3, SROACS+4, SROACS+5, SROACS+6, SROACS+8, SROACS+10, SROACS+12, SROACS+13, YN+1*
>> SRA(205 SROACS+2*, SROACS+3, SROACS+4, SROACS+5, SROACS+6, SROACS+7, SROACS+8, SROACS+9, SROACS+10, SROACS+11
, SROACS+12, SROACS+13, SROACS+14
>> SRANAME DISP+1
>> SRAO("1A" SROACS+3*, DISP+3
>> SRAO("1B" SROACS+3*, DISP+4
>> SRAO("1C" SROACS+3*, DISP+5
>> SRAO("2A" SROACS+4*, DISP+7
>> SRAO("2B" SROACS+4*, DISP+8
>> SRAO("2C" SROACS+4*, DISP+9
>> SRAO("2D" SROACS+5*, DISP+9
>> SRAO("2E" SROACS+5*, DISP+10
>> SRAO("3A" SROACS+6*, DISP+12
>> SRAO("3B" SROACS+6*, DISP+13
>> SRAO("3C" SROACS+6*, DISP+14
>> SRAO("3D" SROACS+7*, DISP+15
>> SRAO("4A" SROACS+8*, DISP+3
>> SRAO("4B" SROACS+8*, DISP+4
>> SRAO("4C" SROACS+8*, DISP+5
>> SRAO("4D" SROACS+9*, DISP+5
>> SRAO("5A" SROACS+10*, DISP+7
>> SRAO("5B" SROACS+10*, DISP+8
>> SRAO("5C" SROACS+10*, DISP+9
>> SRAO("5D" SROACS+11*, DISP+9
>> SRAO("6A" SROACS+12*, DISP+12
>> SRAO("6B" SROACS+12*, DISP+13
>> SRAO("6C" SROACS+13*, DISP+14
>> SRAO("6D" SROACS+13*, DISP+15
>> SRAO("6E" SROACS+13*, DISP+15
>> SRAO("6F" SROACS+14*, DISP+16
>> SRAO(1 SROACS+3*, DISP+2
>> SRAO(2 SROACS+4*, DISP+6
>> SRAO(3 SROACS+6*, DISP+11
>> SRAO(4 SROACS+8*, DISP+2
>> SRAO(5 SROACS+10*, DISP+6
>> SRAO(6 SROACS+12*, DISP+11
>> SRTN SROACS+2
>> X SROACS+5*, SROACS+7*, SROACS+9*, SROACS+11*, SROACS+14*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All