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

Package: Surgery

Routine: SROACR1


Information

SROACR1 ;BIR/MAM - OPERATIVE DATA, PAGE 1 ;06/28/06

Source Information

Source file <SROACR1.m>

Entry Points

Name Comments DBIA/ICR reference
DISP
CHCK ; compare ischemic time to CPB time
YN ; store answer
VL ; valve values translation
SURE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Cardiac surgical procedures with or without cardiopulmonary bypass "
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"CABG distal anastomoses:",?40,"13. Maze procedure:",?61,$J($P(SRAO(13),"^"),17)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," 1. Number with vein:",?33,$P(SRAO(1),"^"),?40,"14. ASD repair:",?70,$P(SRAO(14),"^")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," 2. Number with IMA:",?33,$P(SRAO(2),"^"),?40,"15. VSD repair:",?70,$P(SRAO(15),"^")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," 3. Number with Radial Artery:",?33,$P(SRAO(3),"^"),?40,"16. Myectomy:",?70,$P(SRAO(16),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," 4. Number with Other Artery:",?33,$P(SRAO(4),"^"),?40,"17. Myxoma resection:",?70,$P(SRAO(17),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," 5. Number with Other Conduit:",?33,$P(SRAO(5),"^"),?40,"18. Other tumor resection:",?70,$P(SRAO(18),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,?40,"19. Cardiac transplant:",?70,$P(SRAO(19),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !," 6. LV Aneurysmectomy:",?33,$P(SRAO(6),"^"),?40,"20. Great Vessel Repair:",?70,$P(SRAO(20),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !," 7. Bridge to transplant/Device:",?33,$E($P(SRAO(7),"^"),1,5),?40,"21. Endovascular Repair:",?70,$P(SRAO(21),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !," 8. TMR:",?33,$P(SRAO(8),"^"),?40,"22. Other cardiac procedures:"
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?70,$S(X="N":"NO",X="Y":"YES",1:"")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !!," 9. Aortic Valve Procedure:",?33,$P(SRAO(9),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"10. Mitral Valve Procedure:",?33,$P(SRAO(10),"^")
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,"11. Tricuspid Valve Procedure:",?33,$P(SRAO(11),"^")
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: !,"12. Pulmonary Valve Procedure:",?33,$P(SRAO(12),"^"),!
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !,IORVON_"* Other cardiac procedures (specify): "
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: X,!
  • Condition for execution: $L(X)<56
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: ?27,X
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: X,!
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: $E(X,1,J-1),!
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: X,!
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !,IORVON_"*** NOTE: Ischemic Time is greater than CPB Time!! Please check. ***"_IORVOFF,!
  • Line Location: CHCK+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CHCK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SURE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SURE+0
Info |  Source |  Entry Points |  Interaction Calls