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

Package: Surgery

Routine: SROAPCA1


Information

SROAPCA1 ;BIR/MAM - PRINT CARDIAC CATH INFO ;02/05/08

Source Information

Source file <SROAPCA1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 4 PAGE^SROAPCA  ^SROAPCA2  LAB^SROAPCA4  (SSOTH,SSPRIN)^SROCPT0  
DRG Grouper 1 $$CPT^ICPTCOD  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROAPCA  SROAPCA3  SROAPCA4  

Entry Points

Name Comments DBIA/ICR reference
MMHG
YN ; store answer
OUT(SRFLD,SRY) ; get data in output form
LV
DT
NS

External References

Name Field # of Occurrence
Y^DIQ OUT+2
$$CPT^ICPTCOD SROAPCA1+56, SROAPCA1+60
PAGE^SROAPCA SROAPCA1+3, SROAPCA1+5, SROAPCA1+43, SROAPCA1+70
^SROAPCA2 SROAPCA1+71
LAB^SROAPCA4 SROAPCA1+4
SSOTH^SROCPT0 SROAPCA1+60
SSPRIN^SROCPT0 SROAPCA1+56

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"IV. CARDIAC CATHETERIZATION AND ANGIOGRAPHIC DATA"
  • Line Location: SROAPCA1+21
Function Call: WRITE
  • Prompt: !,"Cardiac Catheterization Date: ",$E(Y,1,8)
  • Line Location: SROAPCA1+23
Function Call: WRITE
  • Prompt: !,"Procedure:",?26,$P(SRAO(1),"^"),?41,"Native Coronaries:"
  • Line Location: SROAPCA1+24
Function Call: WRITE
  • Prompt: !,"LVEDP:",?26,$J(SRX,3)
  • Line Location: SROAPCA1+25
Function Call: WRITE
  • Prompt: ?41,"Left Main Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+26
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+26
Function Call: WRITE
  • Prompt: !,"Aortic Systolic Pressure:",?26,$J(SRX,3)
  • Line Location: SROAPCA1+27
Function Call: WRITE
  • Prompt: ?41,"LAD Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+28
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+28
Function Call: WRITE
  • Prompt: !,?41,"Right Coronary Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+29
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+29
Function Call: WRITE
  • Prompt: !,"For patients having right heart cath:"
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: ?41,"Circumflex Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: ?41,"Circumflex Stenosis:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+30
Function Call: WRITE
  • Prompt: !,"PA Systolic Pressure:",?26,$J(SRX,3)
  • Line Location: SROAPCA1+32
Function Call: WRITE
  • Prompt: !,"PAW Mean Pressure:",?26,$J(SRX,3)
  • Line Location: SROAPCA1+33
Function Call: WRITE
  • Prompt: ?41,"If a Re-do, indicate stenosis",!,?44," in graft to:"
  • Line Location: SROAPCA1+34
Function Call: WRITE
  • Prompt: !,?41,"LAD:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+35
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+35
Function Call: WRITE
  • Prompt: !,?41,"Right coronary (include PDA): ",$J(SRX,3)
  • Line Location: SROAPCA1+36
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+36
Function Call: WRITE
  • Prompt: !,?41,"Circumflex:",?71,$J(SRX,3)
  • Line Location: SROAPCA1+37
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+37
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: SROAPCA1+38
Function Call: WRITE
  • Prompt: !,"LV Contraction Grade (from contrast or radionuclide angiogram or 2D Echo):",!,?7,"Grade",?17,"Ejection Fraction Range",?51,"Definition"
  • Line Location: SROAPCA1+39
Function Call: WRITE
  • Prompt: !,?8,$P(SRAO(6),"^")
  • Line Location: SROAPCA1+40
Function Call: WRITE
  • Prompt: !,LN,!,"Mitral Regurgitation:",?26,$P(SRAO(7),"^")
  • Line Location: SROAPCA1+41
Function Call: WRITE
  • Prompt: !,"Aortic stenosis:",?26,$P(SRAO(8),"^")
  • Line Location: SROAPCA1+42
Function Call: WRITE
  • Prompt: !!,"V. OPERATIVE RISK SUMMARY DATA"
  • Line Location: SROAPCA1+50
Function Call: WRITE
  • Prompt: ?40,"(Operation Began: "_X_")"
  • Line Location: SROAPCA1+50
Function Call: WRITE
  • Prompt: !,?5,"Physician's Preoperative"
  • Line Location: SROAPCA1+51
Function Call: WRITE
  • Prompt: ?40,"(Operation Ended: "_X_")"
  • Line Location: SROAPCA1+51
Function Call: WRITE
  • Prompt: !,?7,"Estimate of Operative Mortality: "_$P(SRAO(1),"^")
  • Line Location: SROAPCA1+52
Function Call: WRITE
  • Prompt: "%"
  • Line Location: SROAPCA1+52
Function Call: WRITE
  • Prompt: ?57,"("_X_")"
  • Line Location: SROAPCA1+53
Function Call: WRITE
  • Prompt: !,?5,"ASA Classification:",?35,$P(SRAO(2),"^")
  • Line Location: SROAPCA1+54
Function Call: WRITE
  • Prompt: ?57,"("_X_")"
  • Line Location: SROAPCA1+55
Function Call: WRITE
  • Prompt: !,?5,"Principal CPT Code:",?35,X,!,?5,"Other Procedures CPT Codes: "
  • Line Location: SROAPCA1+58
Function Call: WRITE
  • Prompt: ";"
  • Condition for execution: CNT>35
  • Line Location: SROAPCA1+62
Function Call: WRITE
  • Prompt: ?(CNT),CPT
  • Line Location: SROAPCA1+62
Function Call: WRITE
  • Prompt: !,?5,"Preoperative Risk Factors: "
  • Line Location: SROAPCA1+64
Function Call: WRITE
  • Prompt: ?25,X
  • Line Location: SROAPCA1+66
Function Call: WRITE
  • Prompt: X,!
  • Line Location: SROAPCA1+68
Function Call: WRITE
  • Prompt: $E(X,1,J-1),!,?5
  • Line Location: SROAPCA1+69
Function Call: WRITE
  • Prompt: X
  • Line Location: SROAPCA1+69
Function Call: WRITE
  • Prompt: " mm Hg"
  • Line Location: MMHG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 OUT+2
^SRF - [#130] SROAPCA1+2, SROAPCA1+22, SROAPCA1+45, SROAPCA1+49, SROAPCA1+51, SROAPCA1+65
^SRO(136 - [#136] SROAPCA1+56, SROAPCA1+59

Label References

Name Line Occurrences
$$OUT SROAPCA1+7, SROAPCA1+8, SROAPCA1+9, SROAPCA1+10, SROAPCA1+12, SROAPCA1+13, SROAPCA1+14, SROAPCA1+15, SROAPCA1+16, SROAPCA1+17
, SROAPCA1+18, SROAPCA1+19, SROAPCA1+20, SROAPCA1+44, SROAPCA1+45, SROAPCA1+46
DT SROAPCA1+22, SROAPCA1+47, SROAPCA1+48, SROAPCA1+49, SROAPCA1+51
LV SROAPCA1+11
MMHG SROAPCA1+25, SROAPCA1+27, SROAPCA1+32, SROAPCA1+33
NS SROAPCA1+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C OUT+1~, OUT+2*
>> CNT SROAPCA1+59*, SROAPCA1+61*, SROAPCA1+62*, SROAPCA1+63*
>> CPT SROAPCA1+59*, SROAPCA1+60*, SROAPCA1+61*, SROAPCA1+62, SROAPCA1+63
>> I SROAPCA1+2*, SROAPCA1+67*, SROAPCA1+69*
IOSL SROAPCA1+3, SROAPCA1+5, SROAPCA1+43, SROAPCA1+70
>> J SROAPCA1+69*
>> LINE SROAPCA1+67*, SROAPCA1+69*
>> LN SROAPCA1+38, SROAPCA1+41
>> NYUK SROAPCA1+11*, YN+1, LV, LV+1, LV+2, LV+3, LV+4
>> OTH SROAPCA1+59*, SROAPCA1+60
SHEMP SROAPCA1+11, YN+1*, LV!*, LV+1*, LV+2*, LV+3*, LV+4*
SRA SROAPCA1+71!
SRA( SROAPCA1+2*
SRA(206 SROAPCA1+7, SROAPCA1+8, SROAPCA1+9, SROAPCA1+10, SROAPCA1+11, SROAPCA1+12, SROAPCA1+14, SROAPCA1+15, SROAPCA1+16, SROAPCA1+17
, SROAPCA1+44, SROAPCA1+47
SRA(208 SROAPCA1+46, SROAPCA1+48
SRA(209 SROAPCA1+6, SROAPCA1+13, SROAPCA1+18, SROAPCA1+19, SROAPCA1+20
SRAO SROAPCA1+44!, SROAPCA1+71!
SRAO("1A" SROAPCA1+47*, SROAPCA1+53
SRAO("3A" SROAPCA1+48*, SROAPCA1+55
SRAO(0 SROAPCA1+49*, SROAPCA1+50
SRAO(1 SROAPCA1+6*, SROAPCA1+24, SROAPCA1+44*, SROAPCA1+52
SRAO(10 SROAPCA1+15*, SROAPCA1+28
SRAO(11 SROAPCA1+16*, SROAPCA1+29
SRAO(12 SROAPCA1+17*, SROAPCA1+30
SRAO(13 SROAPCA1+18*, SROAPCA1+35
SRAO(14 SROAPCA1+19*, SROAPCA1+36
SRAO(15 SROAPCA1+20*, SROAPCA1+37
SRAO(2 SROAPCA1+7*, SROAPCA1+25, SROAPCA1+45*, SROAPCA1+54
SRAO(3 SROAPCA1+8*, SROAPCA1+27, SROAPCA1+46*, SROAPCA1+55
SRAO(4 SROAPCA1+9*, SROAPCA1+32
SRAO(5 SROAPCA1+10*, SROAPCA1+33
SRAO(6 SROAPCA1+11*, SROAPCA1+40
SRAO(7 SROAPCA1+12*, SROAPCA1+41
SRAO(8 SROAPCA1+13*, SROAPCA1+42
SRAO(9 SROAPCA1+14*, SROAPCA1+26
>> SRDA SROAPCA1+60*
SRFLD OUT~, OUT+2
>> SRL SROAPCA1+67*, SROAPCA1+68, SROAPCA1+69
>> SRQ SROAPCA1+65*, SROAPCA1+67, SROAPCA1+68*, SROAPCA1+69*
>> SRSOUT SROAPCA1+3, SROAPCA1+5, SROAPCA1+43, SROAPCA1+70
>> SRTN SROAPCA1+2, SROAPCA1+22, SROAPCA1+45, SROAPCA1+49, SROAPCA1+51, SROAPCA1+56, SROAPCA1+59, SROAPCA1+65
SRX SROAPCA1+2~, SROAPCA1+7*, SROAPCA1+8*, SROAPCA1+9*, SROAPCA1+10*, SROAPCA1+12*, SROAPCA1+13*, SROAPCA1+14*, SROAPCA1+15*, SROAPCA1+16*
, SROAPCA1+17*, SROAPCA1+18*, SROAPCA1+19*, SROAPCA1+20*, SROAPCA1+25*, SROAPCA1+26*, SROAPCA1+27*, SROAPCA1+28*, SROAPCA1+29*, SROAPCA1+30*
, SROAPCA1+32*, SROAPCA1+33*, SROAPCA1+35*, SROAPCA1+36*, SROAPCA1+37*, SROAPCA1+44*, SROAPCA1+45*, SROAPCA1+46*, SROAPCA1+47*, SROAPCA1+48*
, SROAPCA1+49*, MMHG
SRY OUT~, OUT+2
>> X SROAPCA1+22, SROAPCA1+47, SROAPCA1+48, SROAPCA1+49, SROAPCA1+50*, SROAPCA1+51, SROAPCA1+53*, SROAPCA1+55*, SROAPCA1+56*, SROAPCA1+57*
, SROAPCA1+58, SROAPCA1+65*, SROAPCA1+66, SROAPCA1+68, SROAPCA1+69*, DT*, DT+1*
Y SROAPCA1+6*, SROAPCA1+7*, SROAPCA1+8*, SROAPCA1+9*, SROAPCA1+10*, SROAPCA1+12*, SROAPCA1+13*, SROAPCA1+14*, SROAPCA1+15*, SROAPCA1+16*
, SROAPCA1+17*, SROAPCA1+18*, SROAPCA1+19*, SROAPCA1+20*, SROAPCA1+22*, SROAPCA1+23, SROAPCA1+44*, SROAPCA1+45*, SROAPCA1+46*, SROAPCA1+47*
, SROAPCA1+48*, SROAPCA1+49*, SROAPCA1+51*, SROAPCA1+56*, SROAPCA1+60*, SROAPCA1+69*, DT, DT+1, OUT+1~, OUT+2*
, OUT+3*, OUT+4, NS*
>> Z SROAPCA1+65*, SROAPCA1+69*, DT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All