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

Call Graph Total: 6

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROAPCA  SROAPCA3  SROAPCA4  

Entry Points

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

External References

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

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:",?30,$P(SRAO(1),"^"),?41,"Native Coronaries:"
  • Line Location: SROAPCA1+24
Function Call: WRITE
  • Prompt: !,"LVEDP:",?30,SRX
  • 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,SRX
  • 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:",?30,$J(SRX,3)
  • Line Location: SROAPCA1+32
Function Call: WRITE
  • Prompt: !,"PAW Mean Pressure:",?30,$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:",?30,$P(SRAO(7),"^")
  • Line Location: SROAPCA1+41
Function Call: WRITE
  • Prompt: !,"Aortic stenosis:",?30,$P(SRAO(8),"^")
  • Line Location: SROAPCA1+42
Function Call: WRITE
  • Prompt: !!,"V. OPERATIVE RISK SUMMARY DATA"
  • Line Location: SROAPCA1+49
Function Call: WRITE
  • Prompt: !,?5,"ASA Classification:",?35,$P(SRAO(1),"^")
  • Line Location: SROAPCA1+50
Function Call: WRITE
  • Prompt: ?57,"("_X_")"
  • Line Location: SROAPCA1+51
Function Call: WRITE
  • Prompt: !,?5,"Principal CPT Code:",?35,X,!,?5,"Other Procedures CPT Codes: "
  • Line Location: SROAPCA1+54
Function Call: WRITE
  • Prompt: ";"
  • Condition for execution: CNT>35
  • Line Location: SROAPCA1+58
Function Call: WRITE
  • Prompt: ?(CNT),CPT
  • Line Location: SROAPCA1+58
Function Call: WRITE
  • Prompt: !,?5,"Wound Classification:",?35,Y
  • Line Location: SROAPCA1+61
Function Call: WRITE
  • Prompt: " mm Hg"
  • Line Location: MMHG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 SROAPCA1+60, OUT+2
^SRF - [#130] SROAPCA1+2, SROAPCA1+22, SROAPCA1+45, SROAPCA1+48, SROAPCA1+60
^SRO(136 - [#136] SROAPCA1+52, SROAPCA1+55

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+45, SROAPCA1+46
DT SROAPCA1+22, SROAPCA1+47, SROAPCA1+48
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 SROAPCA1+60*, OUT+1~, OUT+2*
>> CNT SROAPCA1+55*, SROAPCA1+57*, SROAPCA1+58*, SROAPCA1+59*
>> CPT SROAPCA1+55*, SROAPCA1+56*, SROAPCA1+57*, SROAPCA1+58, SROAPCA1+59
>> I SROAPCA1+2*
IOSL SROAPCA1+3, SROAPCA1+5, SROAPCA1+43, SROAPCA1+62
>> LN SROAPCA1+38, SROAPCA1+41
>> NYUK SROAPCA1+11*, YN+1, LVLV+1, LV+2, LV+3, LV+4
>> OTH SROAPCA1+55*, SROAPCA1+56
SHEMP SROAPCA1+11, YN+1*, LV!*, LV+1*, LV+2*, LV+3*, LV+4*
SRA SROAPCA1+63!
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
SRA(208 SROAPCA1+46, SROAPCA1+47
SRA(209 SROAPCA1+6, SROAPCA1+13, SROAPCA1+18, SROAPCA1+19, SROAPCA1+20
SRAO SROAPCA1+44!, SROAPCA1+63!
SRAO("3A" SROAPCA1+47*, SROAPCA1+51
SRAO(0 SROAPCA1+48*
SRAO(1 SROAPCA1+6*, SROAPCA1+24, SROAPCA1+45*, SROAPCA1+50
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+46*, SROAPCA1+51
SRAO(3 SROAPCA1+8*, SROAPCA1+27
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+56*
SRFLD OUT~, OUT+2
>> SRSOUT SROAPCA1+3, SROAPCA1+5, SROAPCA1+43, SROAPCA1+62
>> SRTN SROAPCA1+2, SROAPCA1+22, SROAPCA1+45, SROAPCA1+48, SROAPCA1+52, SROAPCA1+55, SROAPCA1+60
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+45*, SROAPCA1+46*, SROAPCA1+47*, SROAPCA1+48*, MMHG
SRY OUT~, OUT+2
>> X SROAPCA1+22, SROAPCA1+47, SROAPCA1+48, SROAPCA1+51*, SROAPCA1+52*, SROAPCA1+53*, SROAPCA1+54, 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+45*, SROAPCA1+46*, SROAPCA1+47*, SROAPCA1+48*
SROAPCA1+52*, SROAPCA1+56*, SROAPCA1+60*, SROAPCA1+61, DTDT+1, OUT+1~, OUT+2*, OUT+3*, OUT+4
, NS*
>> Z DT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All