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 |  Caller 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 Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROACAR  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS DISP+15, 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,"11. Bridge to transplant/Device:",?75,$P(SRAO(11),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," 1. Number with vein:",?34,$P(SRAO(1),"^"),?40,"12. TMR:",?75,$P(SRAO(12),"^")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," 2. Number with IMA:",?34,$P(SRAO(2),"^"),?40,"13. Maze procedure:",?61,$J($P(SRAO(13),"^"),17)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," 3. Number with Radial Artery:",?34,$P(SRAO(3),"^"),?40,"14. ASD repair:",?75,$P(SRAO(14),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," 4. Number with Other Artery:",?34,$P(SRAO(4),"^"),?40,"15. VSD repair:",?75,$P(SRAO(15),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," 5. Number with Other Conduit:",?34,$P(SRAO(5),"^"),?40,"16. Myectomy for IHSS:",?75,$P(SRAO(16),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,?40,"17. Myxoma resection:",?75,$P(SRAO(17),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !," 6. Aortic Valve Replacement:",?34,$P(SRAO(6),"^"),?40,"18. Other tumor resection:",?75,$P(SRAO(18),"^")
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !," 7. Mitral Valve Replacement:",?34,$P(SRAO(7),"^"),?40,"19. Cardiac transplant:",?75,$P(SRAO(19),"^")
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !," 8. Tricuspid Valve Replacement:",?34,$P(SRAO(8),"^"),?40,"20. Great Vessel Repair:",?75,$P(SRAO(20),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !," 9. Valve Repair: ",$J($P(SRAO(9),"^"),18),?40,"21. Endovascular Repair:",?75,$P(SRAO(21),"^")
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !,"10. LV Aneurysmectomy:",?34,$P(SRAO(10),"^"),?40,"22. Other cardiac procedures:"
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: ?75,$S(X="N":"NO",X="Y":"YES",1:""),!
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,IORVON_"* Other cardiac procedures (specify): "
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: X,!
  • Condition for execution: $L(X)<56
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: ?27,X
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: X,!
  • Line Location: DISP+19
Function Call: WRITE
  • Prompt: $E(X,1,J-1),!
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: X,!
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: DISP+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+22
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+22
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+19, DISP+16

Label References

Name Line Occurrences
YN SROACR1+6, SROACR1+8, SROACR1+9, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15, SROACR1+16, SROACR1+17
, SROACR1+18

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+18*, DISP+20*
>> IORVOFF DISP+21, CHCK+3
>> IORVON DISP+16, CHCK+1, CHCK+3
>> J DISP+20*
>> LINE DISP+18*, DISP+20*
>> MOE DISP+22*, CHCK+4*
>> NYUK SROACR1+6*, SROACR1+7*, SROACR1+8*, SROACR1+9*, SROACR1+10*, SROACR1+11*, SROACR1+12*, SROACR1+13*, SROACR1+14*, SROACR1+15*
, SROACR1+16*, SROACR1+17*, SROACR1+18*, YN+1
>> SHEMP SROACR1+6, SROACR1+8, SROACR1+9, SROACR1+10*, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15, SROACR1+16
, SROACR1+17, SROACR1+18, YN+1*
>> SRA( SROACR1+4*, SROACR1+18
>> 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+15
, SROACR1+16, SROACR1+17
>> SRA(209 SROACR1+3*, SROACR1+8, SROACR1+9, SROACR1+10
>> SRAO(1 SROACR1+5*, DISP+4
>> SRAO(10 SROACR1+8*, DISP+14
>> SRAO(11 SROACR1+8*, DISP+3
>> SRAO(12 SROACR1+9*, DISP+4
>> SRAO(13 SROACR1+10*, DISP+5
>> SRAO(14 SROACR1+11*, DISP+6
>> SRAO(15 SROACR1+12*, DISP+7
>> SRAO(16 SROACR1+13*, DISP+8
>> SRAO(17 SROACR1+14*, DISP+9
>> SRAO(18 SROACR1+15*, DISP+10
>> SRAO(19 SROACR1+16*, DISP+11
>> SRAO(2 SROACR1+5*, DISP+5
>> SRAO(20 SROACR1+17*, DISP+12
>> SRAO(21 SROACR1+18*, DISP+13
>> SRAO(22 SROACR1+19*, DISP+14
>> SRAO(3 SROACR1+5*, DISP+6
>> SRAO(4 SROACR1+5*, DISP+7
>> SRAO(5 SROACR1+5*, DISP+8
>> SRAO(6 SROACR1+6*, DISP+10
>> SRAO(7 SROACR1+6*, DISP+11
>> SRAO(8 SROACR1+6*, DISP+12
>> SRAO(9 SROACR1+7*, DISP+13
SRCPB CHCK+2~*, CHCK+3
SRISCH CHCK+2~*, CHCK+3
>> SRL DISP+18*, DISP+19, DISP+20
>> SRPAGE DISP*
>> SRQ DISP+16*, DISP+18, DISP+19*, DISP+20*
>> SRSOUT SURE*
>> SRTN SROACR1+3, SROACR1+4, SROACR1+19, DISP+16
>> SRYN SURE*
>> X DISP+14*, DISP+15*, DISP+16*, DISP+17, DISP+19, DISP+20*, CHCK+1*
>> Y DISP+20*, SURE
>> Z DISP+16*, DISP+20*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All