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

Package: Surgery

Routine: SROAOP1


Information

SROAOP1 ;BIR/MAM - SET OPERATION INFO ;02/28/07

Source Information

Source file <SROAOP1.m>

Entry Points

Name Comments DBIA/ICR reference
YN
LOOP ; break procedures
EMERG ; surgical priority

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," 1. Surgical Specialty: ",?33,$P(SRAO(1),"^"),!," 2. Principal Operation: ",?33,SROPS(1)
  • Line Location: SROAOP1+13
Function Call: WRITE
  • Prompt: !,?33,SROPS(2)
  • Line Location: SROAOP1+13
Function Call: WRITE
  • Prompt: !,?33,SROPS(2)
  • Line Location: SROAOP1+13
Function Call: WRITE
  • Prompt: !,?33,SROPS(2)
  • Line Location: SROAOP1+13
Function Call: WRITE
  • Prompt: !," 3. Robotic Assistance (Y/N):",?33,$P(SRAO(3),"^")
  • Line Location: SROAOP1+15
Function Call: WRITE
  • Prompt: !," 4. CPT Codes (view only):"
  • Line Location: SROAOP1+16
Function Call: WRITE
  • Prompt: !," 5. Other Procedures:"
  • Line Location: SROAOP1+18
Function Call: WRITE
  • Prompt: ?33,"***INFORMATION ENTERED***"
  • Condition for execution: $O(^SRF(SRTN,13,0))
  • Line Location: SROAOP1+18
Function Call: WRITE
  • Prompt: ?33,"***INFORMATION ENTERED***"
  • Line Location: SROAOP1+19
Function Call: WRITE
  • Prompt: !," 7. PGY of Primary Surgeon:",?33,$P(SRAO(7),"^"),!," 8. Surgical Priority:",?33,$P(SRAO(8),"^"),!," 9. Wound Classification: ",?33,$P(SRAO(9),"^")
  • Line Location: SROAOP1+31
Function Call: WRITE
  • Prompt: !,"10. ASA Classification:",?33,$P(SRAO(10),"^")
  • Line Location: SROAOP1+32
Function Call: WRITE
  • Prompt: !,"11. Princ. Anesthesia Technique: ",$P(SRAO(11),"^")
  • Line Location: SROAOP1+33
Function Call: WRITE
  • Prompt: !,"12. RBC Units Transfused:",?33,$P(SRAO(12),"^")
  • Line Location: SROAOP1+34
Function Call: WRITE
  • Prompt: !,"13. Intraop Disseminated Cancer:",?33,$P(SRAO(13),"^")
  • Line Location: SROAOP1+35
Function Call: WRITE
  • Prompt: !,"14. Intraoperative Ascites:",?33,$P(SRAO(14),"^")
  • Line Location: SROAOP1+36
Function Call: WRITE
  • Prompt: !
  • Line Location: SROAOP1+37
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROAOP1+37
Info |  Source |  Entry Points |  Interaction Calls