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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROUTC

Package: Surgery

Routine: SROUTC


Information

SROUTC ;BIR/SJA - OUTCOMES DATA ;09/28/2011

Source Information

Source file <SROUTC.m>

Entry Points

Name Comments DBIA/ICR reference
DISP
YN ; store answer
UPDT645 ; update field 645
UP422 ; update field 422
UPDATE
EM13
EM8
EM11
IP
DEL ; delete existing Post/Intraoperative occurrences.
MAP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Perioperative (30 day) Occurrences:",!,"-----------------------------------"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"1. Myocardial Infarction: ",?35,$P(SRAO(1),"^"),?40," 9. Tracheostomy: ",?76,$P(SRAO(9),"^")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"2. Endocarditis: ",?35,$P(SRAO(2),"^"),?40,"10. Out Of OR Unplanned Intubation:",?76,$P(SRAO(10),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"3. Superficial Incisional SSI: ",?35,$P(SRAO(3),"^"),?40,"11. Stroke/CVA: ",?76,$P(SRAO(11),"^")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,"4. Mediastinitis: ",?35,$P(SRAO(4),"^"),?40,"12. Coma >= 24 hr: ",?76,$P(SRAO(12),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"5. Cardiac arrest requiring CPR: ",?35,$P(SRAO(5),"^"),?40,"13. New Mech Circ Support: ",?76,$P(SRAO(13),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"6. Reoperation for bleeding: ",?35,$P(SRAO(6),"^"),?40,"14. Postop Atrial Fibrillation: ",?76,$P(SRAO(14),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,"7. On ventilator >= 48 hr: ",?35,$P(SRAO(7),"^"),?40,"15. Wound Disruption: ",?76,$P(SRAO(15),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"8. Repeat cardiac surg procedure: ",?35,$P(SRAO(8),"^"),?40,"16. Renal failure require dialysis: ",$P(SRAO(16),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call