Routine: SROAPCA1

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

Package	Total	Caller Graph
Surgery	3	SROAPCA SROAPCA3 SROAPCA4

Entry Points

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*

Customize PDF page

Package: Surgery

Routine: SROAPCA1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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