Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^DIE  ^DIR  
Kernel 1 ENDR^%ZISS  
Surgery 1 HDR^SROAUTL  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS DISP+17, CHCK+1
^DIE SROACR1+4
^DIR SURE
HDR^SROAUTL DISP

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
Routine Call
  • DIE
  • Line Location:
    • SROACR1+4
Routine Call
  • DIR
  • Line Location:
    • SURE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROACR1+3, SROACR1+4, SROACR1+24, DISP+18

Label References

Name Line Occurrences
VL SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14
YN SROACR1+8, SROACR1+10, SROACR1+16, SROACR1+17, SROACR1+18, SROACR1+19, SROACR1+20, SROACR1+21, SROACR1+22, SROACR1+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SROACR1+4!*
DIE SROACR1+4!*
DIR SURE!
DIR("A" SURE*
DIR("B" SURE*
DIR(0 SURE*
DR SROACR1+4!*
>> DTOUT SURE
>> DUOUT SURE
>> I DISP+20*, DISP+22*
>> IORVOFF DISP+23, CHCK+3
>> IORVON DISP+18, CHCK+1, CHCK+3
>> J DISP+22*
>> LINE DISP+20*, DISP+22*
>> MOE DISP+24*, CHCK+4*
>> NYUK SROACR1+8*, SROACR1+9*, SROACR1+10*, SROACR1+11*, SROACR1+12*, SROACR1+13*, SROACR1+14*, SROACR1+15*, SROACR1+16*, SROACR1+17*
, SROACR1+18*, SROACR1+19*, SROACR1+20*, SROACR1+21*, SROACR1+22*, SROACR1+23*, YN+1, VL+1, VL+2
>> SHEMP SROACR1+8, SROACR1+9*, SROACR1+10, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15*, SROACR1+16, SROACR1+17
, SROACR1+18, SROACR1+19, SROACR1+20, SROACR1+21, SROACR1+22, SROACR1+23, YN+1*, VL+1*, VL+2*
>> SRA( SROACR1+4*, SROACR1+23
>> SRA(206 SROACR1+3*, CHCK+2
>> SRA(207 SROACR1+4*, SROACR1+5, SROACR1+6, SROACR1+7, SROACR1+8, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+16
, SROACR1+17, SROACR1+18, SROACR1+19, SROACR1+20, SROACR1+21, SROACR1+22
>> SRA(209 SROACR1+3*, SROACR1+9, SROACR1+10, SROACR1+15
>> SRAO(1 SROACR1+5*, DISP+4
>> SRAO(10 SROACR1+12*, DISP+14
>> SRAO(11 SROACR1+13*, DISP+15
>> SRAO(12 SROACR1+14*, DISP+16
>> SRAO(13 SROACR1+15*, DISP+3
>> SRAO(14 SROACR1+16*, DISP+4
>> SRAO(15 SROACR1+17*, DISP+5
>> SRAO(16 SROACR1+18*, DISP+6
>> SRAO(17 SROACR1+19*, DISP+7
>> SRAO(18 SROACR1+20*, DISP+8
>> SRAO(19 SROACR1+21*, DISP+9
>> SRAO(2 SROACR1+5*, DISP+5
>> SRAO(20 SROACR1+22*, DISP+10
>> SRAO(21 SROACR1+23*, DISP+11
>> SRAO(22 SROACR1+24*, DISP+12
>> SRAO(3 SROACR1+6*, DISP+6
>> SRAO(4 SROACR1+7*, DISP+7
>> SRAO(5 SROACR1+7*, DISP+8
>> SRAO(6 SROACR1+8*, DISP+10
>> SRAO(7 SROACR1+9*, DISP+11
>> SRAO(8 SROACR1+10*, DISP+12
>> SRAO(9 SROACR1+11*, DISP+13
SRCPB CHCK+2~*, CHCK+3
SRISCH CHCK+2~*, CHCK+3
>> SRL DISP+20*, DISP+21, DISP+22
>> SRPAGE DISP*
>> SRQ DISP+18*, DISP+20, DISP+21*, DISP+22*
>> SRSOUT SURE*
>> SRTN SROACR1+3, SROACR1+4, SROACR1+24, DISP+18
>> SRYN SURE*
>> X DISP+12*, DISP+17*, DISP+18*, DISP+19, DISP+21, DISP+22*, CHCK+1*
>> Y DISP+22*, SURE
>> Z DISP+18*, DISP+22*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All