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

Package: Surgery

Routine: SROAPCA2


Information

SROAPCA2 ;BIR/MAM - PRINT OPERATIVE DATA ;06/28/06

Source Information

Source file <SROAPCA2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 2 PAGE^SROAPCA  ^SROAPCA3  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROAPCA1  

Entry Points

Name Comments DBIA/ICR reference
YN ; store answer

External References

Name Field # of Occurrence
Y^DIQ SROAPCA2+29, SROAPCA2+30
PAGE^SROAPCA SROAPCA2+57
^SROAPCA3 SROAPCA2+58

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"VI. OPERATIVE DATA"
  • Line Location: SROAPCA2+32
Function Call: WRITE
  • Prompt: !,"Cardiac surgical procedures with or without cardiopulmonary bypass",!,"CABG distal anastomoses:",?40,"Bridge to transplant/Device:",?75,$P(SRAO(11),"^")
  • Line Location: SROAPCA2+33
Function Call: WRITE
  • Prompt: !,?2,"Number with Vein:",?33,$P(SRAO(1),"^"),?40,"TMR:",?75,$P(SRAO(12),"^")
  • Line Location: SROAPCA2+34
Function Call: WRITE
  • Prompt: !,?2,"Number with IMA:",?33,$P(SRAO(2),"^"),?40,"Maze procedure:",?61,$J($P(SRAO(13),"^"),17)
  • Line Location: SROAPCA2+35
Function Call: WRITE
  • Prompt: !,?2,"Number with Radial Artery:",?33,$P(SRAO(3),"^"),?40,"ASD repair:",?75,$P(SRAO(14),"^")
  • Line Location: SROAPCA2+36
Function Call: WRITE
  • Prompt: !,?2,"Number with Other Artery:",?33,$P(SRAO(4),"^"),?40,"VSD repair:",?75,$P(SRAO(15),"^")
  • Line Location: SROAPCA2+37
Function Call: WRITE
  • Prompt: !,?2,"Number with Other Conduit:",?33,$P(SRAO(5),"^"),?40,"Myectomy for IHSS:",?75,$P(SRAO(16),"^")
  • Line Location: SROAPCA2+38
Function Call: WRITE
  • Prompt: !,"Aortic Valve Replacement:",?33,$P(SRAO(6),"^"),?40,"Myxoma resection:",?75,$P(SRAO(17),"^")
  • Line Location: SROAPCA2+39
Function Call: WRITE
  • Prompt: !,"Mitral Valve Replacement:",?33,$P(SRAO(7),"^"),?40,"Other tumor resection:",?75,$P(SRAO(18),"^")
  • Line Location: SROAPCA2+40
Function Call: WRITE
  • Prompt: !,"Tricuspid Valve Replacement:",?33,$P(SRAO(8),"^"),?40,"Cardiac transplant:",?75,$P(SRAO(19),"^")
  • Line Location: SROAPCA2+41
Function Call: WRITE
  • Prompt: !,"Valve Repair:",?33,$P(SRAO(9),"^"),?40,"Great Vessel Repair:",?75,$P(SRAO(21),"^")
  • Line Location: SROAPCA2+42
Function Call: WRITE
  • Prompt: !,"LV Aneurysmectomy:",?33,$P(SRAO(10),"^"),?40,"Endovascular Repair:",?75,$P(SRAO("21H"),"^")
  • Line Location: SROAPCA2+43
Function Call: WRITE
  • Prompt: !,?40,"Other Cardiac procedure(s):",?75,$P(SRAO(29),"^")
  • Line Location: SROAPCA2+44
Function Call: WRITE
  • Prompt: X,!
  • Condition for execution: $L(X)<49
  • Line Location: SROAPCA2+45
Function Call: WRITE
  • Prompt: ?29,X
  • Line Location: SROAPCA2+46
Function Call: WRITE
  • Prompt: X,!
  • Line Location: SROAPCA2+48
Function Call: WRITE
  • Prompt: $E(X,1,J-1),!
  • Line Location: SROAPCA2+49
Function Call: WRITE
  • Prompt: X
  • Line Location: SROAPCA2+49
Function Call: WRITE
  • Prompt: !!,"Indicate other cardiac procedures only if done with cardiopulmonary bypass"
  • Line Location: SROAPCA2+50
Function Call: WRITE
  • Prompt: !,"Foreign body removal:",?33,$P(SRAO(22),"^")
  • Line Location: SROAPCA2+51
Function Call: WRITE
  • Prompt: !,"Pericardiectomy:",?33,$P(SRAO(23),"^")
  • Line Location: SROAPCA2+52
Function Call: WRITE
  • Prompt: !!,"Other Operative Data details"
  • Line Location: SROAPCA2+53
Function Call: WRITE
  • Prompt: !,"Total CPB Time: ",?20,$P(SRAO(24),"^")_" min",?42,"Total Ischemic Time: ",$P(SRAO(25),"^")_" min"
  • Line Location: SROAPCA2+54
Function Call: WRITE
  • Prompt: !,"Incision Type: ",?25,$P(SRAO(26),"^")
  • Line Location: SROAPCA2+55
Function Call: WRITE
  • Prompt: !,"Conversion Off Pump to CPB: ",$P(SRAO(27),"^")
  • Line Location: SROAPCA2+56

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 SROAPCA2+29, SROAPCA2+30
^SRF - [#130] SROAPCA2+2, SROAPCA2+22

Label References

Name Line Occurrences
YN SROAPCA2+8, SROAPCA2+9, SROAPCA2+10, SROAPCA2+12, SROAPCA2+13, SROAPCA2+14, SROAPCA2+16, SROAPCA2+17, SROAPCA2+18, SROAPCA2+19
, SROAPCA2+20, SROAPCA2+21, SROAPCA2+23, SROAPCA2+24, SROAPCA2+25, SROAPCA2+26, SROAPCA2+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C SROAPCA2+29*, SROAPCA2+30*
>> I SROAPCA2+47*, SROAPCA2+49*
IOSL SROAPCA2+57
>> J SROAPCA2+49*
>> LINE SROAPCA2+47*, SROAPCA2+49*
>> NYUK SROAPCA2+8*, SROAPCA2+9*, SROAPCA2+10*, SROAPCA2+11*, SROAPCA2+12*, SROAPCA2+13*, SROAPCA2+14*, SROAPCA2+15*, SROAPCA2+16*, SROAPCA2+17*
, SROAPCA2+18*, SROAPCA2+19*, SROAPCA2+20*, SROAPCA2+21*, SROAPCA2+22*, SROAPCA2+23*, SROAPCA2+24*, SROAPCA2+25*, SROAPCA2+26*, SROAPCA2+31*
, YN+1
>> SHEMP SROAPCA2+8, SROAPCA2+9, SROAPCA2+10, SROAPCA2+12, SROAPCA2+13, SROAPCA2+14, SROAPCA2+15*, SROAPCA2+16, SROAPCA2+17, SROAPCA2+18
, SROAPCA2+19, SROAPCA2+20, SROAPCA2+21, SROAPCA2+23, SROAPCA2+24, SROAPCA2+25, SROAPCA2+26, SROAPCA2+31, YN+1*
SRA SROAPCA2+58!
SRA( SROAPCA2+2*, SROAPCA2+24
SRA(206 SROAPCA2+2*, SROAPCA2+27, SROAPCA2+28
SRA(207 SROAPCA2+2*, SROAPCA2+3, SROAPCA2+4, SROAPCA2+5, SROAPCA2+6, SROAPCA2+7, SROAPCA2+8, SROAPCA2+9, SROAPCA2+10, SROAPCA2+11
, SROAPCA2+12, SROAPCA2+16, SROAPCA2+17, SROAPCA2+18, SROAPCA2+19, SROAPCA2+20, SROAPCA2+21, SROAPCA2+23, SROAPCA2+25, SROAPCA2+26
, SROAPCA2+29, SROAPCA2+30
SRA(209 SROAPCA2+2*, SROAPCA2+13, SROAPCA2+14, SROAPCA2+15, SROAPCA2+31
SRAO SROAPCA2+58!
SRAO("21H" SROAPCA2+24*, SROAPCA2+43
SRAO(1 SROAPCA2+3*, SROAPCA2+34
SRAO(10 SROAPCA2+12*, SROAPCA2+43
SRAO(11 SROAPCA2+13*, SROAPCA2+33
SRAO(12 SROAPCA2+14*, SROAPCA2+34
SRAO(13 SROAPCA2+15*, SROAPCA2+35
SRAO(14 SROAPCA2+16*, SROAPCA2+36
SRAO(15 SROAPCA2+17*, SROAPCA2+37
SRAO(16 SROAPCA2+18*, SROAPCA2+38
SRAO(17 SROAPCA2+19*, SROAPCA2+39
SRAO(18 SROAPCA2+20*, SROAPCA2+40
SRAO(19 SROAPCA2+21*, SROAPCA2+41
SRAO(2 SROAPCA2+4*, SROAPCA2+35
SRAO(20 SROAPCA2+22*, SROAPCA2+45
SRAO(21 SROAPCA2+23*, SROAPCA2+42
SRAO(22 SROAPCA2+25*, SROAPCA2+51
SRAO(23 SROAPCA2+26*, SROAPCA2+52
SRAO(24 SROAPCA2+27*, SROAPCA2+54
SRAO(25 SROAPCA2+28*, SROAPCA2+54
SRAO(26 SROAPCA2+29*, SROAPCA2+55
SRAO(27 SROAPCA2+30*, SROAPCA2+56
SRAO(29 SROAPCA2+31*, SROAPCA2+44
SRAO(3 SROAPCA2+5*, SROAPCA2+36
SRAO(4 SROAPCA2+6*, SROAPCA2+37
SRAO(5 SROAPCA2+7*, SROAPCA2+38
SRAO(6 SROAPCA2+8*, SROAPCA2+39
SRAO(7 SROAPCA2+9*, SROAPCA2+40
SRAO(8 SROAPCA2+10*, SROAPCA2+41
SRAO(9 SROAPCA2+11*, SROAPCA2+42
>> SRL SROAPCA2+47*, SROAPCA2+48, SROAPCA2+49
>> SRQ SROAPCA2+45*, SROAPCA2+47, SROAPCA2+48*, SROAPCA2+49*
>> SRSOUT SROAPCA2+57
>> SRTN SROAPCA2+2, SROAPCA2+22
>> X SROAPCA2+45*, SROAPCA2+46, SROAPCA2+48, SROAPCA2+49*
>> Y SROAPCA2+29*, SROAPCA2+30*, SROAPCA2+49*
>> Z SROAPCA2+45*, SROAPCA2+49*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All