Routine: SROAPCA

Package	Total	Call Graph
Surgery	3	^SROAPCA1 ^SROSTOP $$SITE^SROVAR
Registration	1	ADD^VADPT
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Surgery	5	SROAPAS SROAPCA1 SROAPCA2 SROAPCA3 SROAPCA4

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; display fields
H485
PAGE
YN	; store answer

External References

Name	Field # of Occurrence
Y^DIQ	SROAPCA+20
^SROAPCA1	DISP+16
^SROSTOP	PAGE+1
$$SITE^SROVAR	SROAPCA+8
ADD^VADPT	SROAPCA+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: SROAPCA+4
Function Call: WRITE	Prompt: !,?5,"VA CONTINUOUS IMPROVEMENT IN CARDIAC SURGERY PROGRAM (CICSP/CICSP-X)",! Line Location: SROAPCA+4
Function Call: WRITE	Prompt: ! Line Location: SROAPCA+5
Function Call: WRITE	Prompt: "=" Line Location: SROAPCA+5
Function Call: WRITE	Prompt: !,"I. IDENTIFYING DATA",?60,"Case #: "_SRTN Line Location: SROAPCA+6
Function Call: WRITE	Prompt: !,"Patient: "_SRANM,?60,"Fac./Div. #: "_STATNUM Line Location: SROAPCA+9
Function Call: WRITE	Prompt: !,"Surgery Date: "_SRADATE,?25,"Address: "_VAPA(1) Line Location: SROAPCA+10
Function Call: WRITE	Prompt: !,"Phone: "_SRSPH1,?25,"Zip Code: "_SRZIP Line Location: SROAPCA+12
Function Call: WRITE	Prompt: ?53,"Date of Birth: ",$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) Line Location: SROAPCA+13
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: "=" Line Location: DISP+1
Function Call: WRITE	Prompt: !,"II. CLINICAL DATA" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Gender:",?26,$P(SRAO(2),"^"),?40,"PCI: ",$J($P(SRAO(16),"^"),34) Line Location: DISP+3
Function Call: WRITE	Prompt: !,"Age:",?26,SRAO(3),?40,"Prior MI:",$J($P(SRAO(17),"^"),30) Line Location: DISP+4
Function Call: WRITE	Prompt: !,"Height:",?26,$P(SRAO(4),"^"),?40,"# of prior heart surgeries:",?75,$P(SRAO(18),"^") Line Location: DISP+5
Function Call: WRITE	Prompt: !,"Weight:",?26,$P(SRAO(5),"^"),?40,"Prior heart surgeries: " Line Location: DISP+6
Function Call: WRITE	Prompt: !,"Diabetes:",?26,$P(SRAO(6),"^"),?40,"Peripheral Vascular Disease:",?75,$P(SRAO(19),"^") Line Location: DISP+7
Function Call: WRITE	Prompt: !,"COPD:",?26,$P(SRAO(7),"^"),?40,"Cerebral Vascular Disease:",?75,$P(SRAO(20),"^") Line Location: DISP+8
Function Call: WRITE	Prompt: !,"FEV1:",?26,$P(SRAO(8),"^")_$S($P(SRAO(8),"^")="":"",$P(SRAO(8),"^")="NS":"",1:" liters"),?40,"Angina (use CCS Class):",?75,$P(SRAO(21),"^") Line Location: DISP+9
Function Call: WRITE	Prompt: !,"Cardiomegaly (X-ray): ",?26,$P(SRAO(9),"^"),?40,"CHF (use NYHA Class):",?75,$P(SRAO(22),"^") Line Location: DISP+10
Function Call: WRITE	Prompt: !,"Pulmonary Rales:",?26,$P(SRAO(10),"^"),?40,"Current Diuretic Use:",?75,$P(SRAO(23),"^") Line Location: DISP+11
Function Call: WRITE	Prompt: !,"Current Smoker: ",$J($P(SRAO(11),"^"),22),?40,"Current Digoxin Use:",?75,$P(SRAO(24),"^") Line Location: DISP+12
Function Call: WRITE	Prompt: !,"Active Endocarditis:",?26,$P(SRAO(29),"^"),?40,"IV NTG 48 Hours Preceding Surgery:",?75,$P(SRAO(25),"^") Line Location: DISP+13
Function Call: WRITE	Prompt: !,"Resting ST Depression:",?26,$P(SRAO(14),"^"),?40,"Preop circulatory Device:",?74,$P(SRAO(26),"^") Line Location: DISP+14
Function Call: WRITE	Prompt: !,"Functional Status: ",$J($P(SRAO(15),"^"),18),?40,"Hypertension:",?75,$P(SRAO(27),"^") Line Location: DISP+15
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: @IOF,!,SRANM,! Line Location: PAGE+2
Function Call: WRITE	Prompt: "=" Line Location: PAGE+2
Function Call: WRITE	Prompt: $J(X,16) Line Location: H485+2
Function Call: WRITE	Prompt: $J($P(X,",")_",",16) Line Location: H485+3
Function Call: WRITE	Prompt: !,?41,$P(X,", ",2,9) Line Location: H485+3
Function Call: WRITE	Prompt: !,?41,$P(X,", ",2,4)_",",!,?41,$P(X,", ",5,9) Line Location: H485+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SROAPCA+20
^SRF - [#130]	SROAPCA+2, SROAPCA+17

Label References

Name	Line Occurrences
H485	DISP+6
YN	SROAPCA+18, SROAPCA+19, SROAPCA+21, SROAPCA+26, SROAPCA+27, SROAPCA+28, SROAPCA+30, SROAPCA+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	SROAPCA+15
>> C	SROAPCA+20, H485+1
DTIME	PAGE
>> I	SROAPCA+2, H485, H485+1
IOF	SROAPCA+4, PAGE+2
IOST	PAGE
>> LN	SROAPCA+2*
>> MOE	SROAPCA+5, DISP+1, PAGE+2*
>> NYUK	SROAPCA+14, SROAPCA+15, SROAPCA+16, SROAPCA+18, SROAPCA+19, SROAPCA+21, SROAPCA+22, SROAPCA+23, SROAPCA+24, SROAPCA+25 , SROAPCA+26, SROAPCA+27, SROAPCA+28, SROAPCA+29, SROAPCA+30, SROAPCA+31, YN+1
>> SHEMP	SROAPCA+18, SROAPCA+19, SROAPCA+21, SROAPCA+24, SROAPCA+26, SROAPCA+27, SROAPCA+28, SROAPCA+30, SROAPCA+31, YN+1 , H485, H485+1, H485+2
SRA	DISP+16!
SRA(	SROAPCA+2*, SROAPCA+20
SRA(0	SROAPCA+3, SROAPCA+14
SRA(200	SROAPCA+17*, SROAPCA+18, SROAPCA+21
SRA(206	SROAPCA+15, SROAPCA+16, SROAPCA+19, SROAPCA+21, SROAPCA+22, SROAPCA+23, SROAPCA+24, SROAPCA+25, SROAPCA+26, SROAPCA+27 , SROAPCA+28, SROAPCA+30, SROAPCA+31, H485
SRA(209	SROAPCA+17*, SROAPCA+18, SROAPCA+29
>> SRADATE	SROAPCA+3*, SROAPCA+10, SROAPCA+14
>> SRANM	SROAPCA+9, PAGE+2
SRAO	DISP+16!
SRAO(1	SROAPCA+14*
SRAO(10	SROAPCA+19*, DISP+11
SRAO(11	SROAPCA+20*, DISP+12
SRAO(14	SROAPCA+21*, DISP+14
SRAO(15	SROAPCA+21*, DISP+15
SRAO(16	SROAPCA+22*, DISP+3
SRAO(17	SROAPCA+23*, DISP+4
SRAO(18	SROAPCA+24*, DISP+5
SRAO(19	SROAPCA+26*, DISP+7
SRAO(2	SROAPCA+14*, DISP+3
SRAO(20	SROAPCA+26*, DISP+8
SRAO(21	SROAPCA+27*, DISP+9
SRAO(22	SROAPCA+27*, DISP+10
SRAO(23	SROAPCA+27*, DISP+11
SRAO(24	SROAPCA+27*, DISP+12
SRAO(25	SROAPCA+28*, DISP+13
SRAO(26	SROAPCA+29*, DISP+14
SRAO(27	SROAPCA+30*, DISP+15
SRAO(29	SROAPCA+31*, DISP+13
SRAO(3	SROAPCA+15*, DISP+4
SRAO(4	SROAPCA+15*, DISP+5
SRAO(5	SROAPCA+16*, DISP+6
SRAO(6	SROAPCA+18*, DISP+7
SRAO(7	SROAPCA+18*, DISP+8
SRAO(8	SROAPCA+19*, DISP+9
SRAO(9	SROAPCA+19*, DISP+10
>> SRHALT	PAGE+1
>> SRSOUT	PAGE, PAGE+1
SRSPH1	SROAPCA+7~, SROAPCA+11, SROAPCA+12
>> SRTN	SROAPCA+2, SROAPCA+6, SROAPCA+17
SRZIP	SROAPCA+7~, SROAPCA+11, SROAPCA+12
>> STATNUM	SROAPCA+8*, SROAPCA+9
>> VADM(3	SROAPCA+13
>> VADM(5	SROAPCA+14
>> VAPA(1	SROAPCA+10
>> VAPA(11	SROAPCA+11
>> VAPA(6	SROAPCA+11
>> VAPA(8	SROAPCA+11
>> X	SROAPCA+3, SROAPCA+13, PAGE, H485, H485+1, H485+2*, H485+3, H485+4
>> Y	SROAPCA+20*
>> ZTQUEUED	PAGE+1

Customize PDF page

Package: Surgery

Routine: SROAPCA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: