Routine: BGP2CPU2

Package	Total	Call Graph
IHS GPRA Information System	4	(HDR,L1H)^BGP2CP GETTXT^BGP2CPU4 $$DSCH^BGP2CU $$DATE^BGP2UTL
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
IHS Patient	1	$$DOD^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$UP^XLFSTR
Patient Care Component Reports	1	$$PRIMPOV^APCLV

Package	Total	Caller Graph
IHS GPRA Information System	6	BGP2CP1 BGP2CP2 BGP2CP3 BGP2CP4 BGP2CP5 BGP2CP6

Entry Points

Name	Comments	DBIA/ICR reference
WPPDPOV(V)	;EP
WST	;EP write out st segment elevation
WHF	;EP - write out HF diagnosis
PACE	;
WLBBB	;EP - write out lbbb on ecg
WTT(V)	;EP - write transferred to
WLVS	;EP write out lvs FUNCTION
WOTHPROS	;EP
WLVAD	;EP
WPRINPRO	;EP
WCOMFORT(X)	;EP - write out comfort message
WDSCHINT	;EP - write out discharge instructions
WCS	;EP -write out circulatory shock
WDOD(V)	;EP - write dod
OTHDPOVS(V)	;EP write out other discharge povs
WFIB	;EP - write out fib meds
WNMIACE	;EP - write out nmi ACE/ARB
WDT(V)	;EP - write discharge type at column 3
WBRADY5	;EP write out bradycardia data
WBRADY6	;EP write out bradycardia data
W23RD	;EP write out 2/3 degree
CTR(X,Y)	;EP - Center X in a field Y wide.
WPCI	;EP write out

External References

Name	Field # of Occurrence
$$PRIMPOV^APCLV	WPPDPOV+2
$$DOD^AUPNPAT	WDOD+2, WDOD+3
HDR^BGP2CP	WNMIACE+2, WNMIACE+5, WNMIACE+9, WNMIACE+12, WLVS+2, WLVS+6, WDSCHINT+1, WLVAD+1, WCOMFORT+2, WCOMFORT+4 , WDOD+1, WDT+1, WTT+1, WPPDPOV+1, OTHDPOVS+7, WPCI+1, WPCI+5, WFIB+3, WFIB+10, WFIB+17 , WFIB+21, WLBBB+1, WST+1, WST+5, WCS+1, WHF+1, WHF+6, WHF+8, W23RD+1, W23RD+9 , WBRADY6+1, WBRADY6+5, WBRADY6+7, WBRADY5+1, WBRADY5+5, WBRADY5+7, WPRINPRO+9, WOTHPROS+26
L1H^BGP2CP	WNMIACE+2, WNMIACE+5, WNMIACE+9, WNMIACE+12, WLVS+2, WLVS+6, WDSCHINT+1, WLVAD+1, WCOMFORT+2, WCOMFORT+4 , WDOD+1, WDT+1, WTT+1, WPPDPOV+1, OTHDPOVS+7, WPCI+1, WPCI+5, WFIB+3, WFIB+21, WLBBB+1 , WST+1, WST+5, WCS+1, WHF+1, WHF+6, WHF+8, W23RD+1, W23RD+9, WBRADY6+1, WBRADY6+5 , WBRADY6+7, WBRADY5+1, WBRADY5+5, WBRADY5+7, WPRINPRO+9, WOTHPROS+26
GETTXT^BGP2CPU4	WFIB+8, WFIB+15
$$DSCH^BGP2CU	WPRINPRO+3, WOTHPROS+3, WOTHPROS+14
$$DATE^BGP2UTL	WDOD+3
$$ICDDX^ICDCODE	OTHDPOVS+13
$$CPT^ICPTCOD	WOTHPROS+21
$$VAL^XBDIQ1	WDT+2, WTT+2, OTHDPOVS+14, WPRINPRO+8, WOTHPROS+11, WOTHPROS+21
$$UP^XLFSTR	OTHDPOVS+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"CPT: ",BGPACPT Line Location: WNMIACE+4
Function Call: WRITE	Prompt: !!?2,"NMI Refusal: Yes" Line Location: WNMIACE+6
Function Call: WRITE	Prompt: !!?4,"CPT: ",BGPACPT Line Location: WNMIACE+13
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if this was" Line Location: WNMIACE+14
Function Call: WRITE	Prompt: !,"documented by a physician/APN/PA before it is used to exclude patients" Line Location: WNMIACE+15
Function Call: WRITE	Prompt: !,"from the denominator." Line Location: WNMIACE+16
Function Call: WRITE	Prompt: !!?2,"Evaluation of LVS Function? " Line Location: WLVS+3
Function Call: WRITE	Prompt: !!?2,"Discharge Instructions? ",BGPPED,! Line Location: WDSCHINT+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[1:"*",1:""),"LVAD/Heart Transplant? ",BGPLVAD Line Location: WLVAD+2
Function Call: WRITE	Prompt: !!?2,"Comfort Measures? ",X Line Location: WCOMFORT+5
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if" Line Location: WCOMFORT+6
Function Call: WRITE	Prompt: !,"this was documented by a physician/APN/PA before it is used" Line Location: WCOMFORT+7
Function Call: WRITE	Prompt: !,"to exclude patients from the denominator. " Line Location: WCOMFORT+8
Function Call: WRITE	Prompt: !?2,$S(BGPPEX[2:"*",1:""),"Discharge Type: ",$$VAL^XBDIQ1(9000010.02,V,.06) Line Location: WDT+2
Function Call: WRITE	Prompt: !?2,"Transferred to: ",$$VAL^XBDIQ1(9000010.02,V,.09) Line Location: WTT+2
Function Call: WRITE	Prompt: !?2,"Primary Discharge POV: "_$$PRIMPOV^APCLV(V,"C")," ",$$PRIMPOV^APCLV(V,"N") Line Location: WPPDPOV+2
Function Call: WRITE	Prompt: !!?2,"Other Discharge POVs for this visit:",$S(C=0:" None",1:"") Line Location: OTHDPOVS+8
Function Call: WRITE	Prompt: !!?2,"PCI: " Line Location: WPCI+2
Function Call: WRITE	Prompt: ?4,BGPPCI Line Location: WPCI+3
Function Call: WRITE	Prompt: !,"NOTE: For this to be used to exclude patients from the denominator, it must " Line Location: WPCI+6
Function Call: WRITE	Prompt: !,"be described as non-primary by a physician/APN/PA. For this to be used to " Line Location: WPCI+7
Function Call: WRITE	Prompt: !,"include patients in the numerator, the PCI must be performed within 90 " Line Location: WPCI+8
Function Call: WRITE	Prompt: !,"minutes of hospital arrival. The patient's chart must be reviewed to make" Line Location: WPCI+9
Function Call: WRITE	Prompt: !,"these determinations.",! Line Location: WPCI+10
Function Call: WRITE	Prompt: !!?2,"Fibronolytic Therapy Rx Status? " Line Location: WFIB+4
Function Call: WRITE	Prompt: !?4,"Outpatient Rx: " Line Location: WFIB+5
Function Call: WRITE	Prompt: !?4,BGPLETXT(BGPZZ) Line Location: WFIB+10
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WFIB+11
Function Call: WRITE	Prompt: !?4,"IV/Unit Dose: " Line Location: WFIB+12
Function Call: WRITE	Prompt: BGPUD Line Location: WFIB+12
Function Call: WRITE	Prompt: !?4,BGPLETXT(BGPZZ) Line Location: WFIB+17
Function Call: WRITE	Prompt: !?4,BGPUD(X) Line Location: WFIB+18
Function Call: WRITE	Prompt: !?4,"Procedure: ",BGPTAPRO Line Location: WFIB+19
Function Call: WRITE	Prompt: !,"NOTE: In order to be included in the numerator, the therapy must have been" Line Location: WFIB+22
Function Call: WRITE	Prompt: !,"received within 30 minutes or less from hospital arrival. The patient's" Line Location: WFIB+23
Function Call: WRITE	Prompt: !,"chart must be reviewed to make this determination.",! Line Location: WFIB+24
Function Call: WRITE	Prompt: !!?2,"LBBB on ECG: " Line Location: WLBBB+2
Function Call: WRITE	Prompt: !?4,BGPLBDX Line Location: WLBBB+3
Function Call: WRITE	Prompt: !?4,BGPLBPC(X) Line Location: WLBBB+4
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if other" Line Location: WLBBB+6
Function Call: WRITE	Prompt: !,"ST-Segment Elevations or LBBB on ECGs are noted and which was performed" Line Location: WLBBB+7
Function Call: WRITE	Prompt: !,"closest to hospital arrival." Line Location: WLBBB+8
Function Call: WRITE	Prompt: !!?2,"ST-Segment Elevation: " Line Location: WST+2
Function Call: WRITE	Prompt: ?4,BGPST1 Line Location: WST+3
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if other" Line Location: WST+6
Function Call: WRITE	Prompt: !,"ST-Segment Elevations or LBBB on ECGs are noted and which was performed" Line Location: WST+7
Function Call: WRITE	Prompt: !,"closest to hospital arrival." Line Location: WST+8
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["B":"*",1:""),"Circulatory Shock? " Line Location: WCS+2
Function Call: WRITE	Prompt: " No, Not recorded" Line Location: WCS+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WCS+4
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if the patient" Line Location: WCS+5
Function Call: WRITE	Prompt: !,"should be excluded if circulatory shock occurred on on arrival or within 24" Line Location: WCS+6
Function Call: WRITE	Prompt: !,"hours after arrival." Line Location: WCS+7
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["A":"*",1:""),"Heart Failure? " Line Location: WHF+2
Function Call: WRITE	Prompt: " No, Not recorded" Line Location: WHF+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WHF+4
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if the patient" Line Location: WHF+9
Function Call: WRITE	Prompt: !,"should be excluded if heart failure occurred on on arrival or within 24 " Line Location: WHF+10
Function Call: WRITE	Prompt: !,"hours after arrival." Line Location: WHF+11
Function Call: WRITE	Prompt: !!?2,"2nd/3rd Degree heart Block? " Line Location: W23RD+2
Function Call: WRITE	Prompt: " No, Not recorded" Line Location: W23RD+3
Function Call: WRITE	Prompt: " Yes. " Line Location: W23RD+4
Function Call: WRITE	Prompt: " Yes, but pacemaker present " Line Location: W23RD+5
Function Call: WRITE	Prompt: !?4,BGP23RD(X) Line Location: W23RD+6
Function Call: WRITE	Prompt: !?4,BGP23RD(X) Line Location: W23RD+7
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if the patient" Line Location: W23RD+10
Function Call: WRITE	Prompt: !,"should be excluded if the patient has a 2nd/3rd degree heart block " Line Location: W23RD+11
Function Call: WRITE	Prompt: !,"on ECG during stay AND does not have a pacemaker (also see Pacemaker" Line Location: W23RD+12
Function Call: WRITE	Prompt: !,"below)." Line Location: W23RD+13
Function Call: WRITE	Prompt: !!?2,"Pacemaker? ",$S($P(BGPPACE,U,2)]"":$P(BGPPACE,U,2),1:"No, Not recorded") Line Location: PACE+1
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[9:"*",1:""),"Bradycardia? " Line Location: WBRADY6+2
Function Call: WRITE	Prompt: " No, Not recorded" Line Location: WBRADY6+3
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if the patient" Line Location: WBRADY6+8
Function Call: WRITE	Prompt: !,"should be excluded if bradycardia occurred on arrival or within" Line Location: WBRADY6+9
Function Call: WRITE	Prompt: !,"24 hours after arrival AND if patient was not on a beta blocker at" Line Location: WBRADY6+10
Function Call: WRITE	Prompt: !,"the time of bradycardia (also see Beta Blocker Rx Status below)." Line Location: WBRADY6+11
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[9:"*",1:""),"Bradycardia? " Line Location: WBRADY5+2
Function Call: WRITE	Prompt: " No, Not recorded" Line Location: WBRADY5+3
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if the" Line Location: WBRADY5+8
Function Call: WRITE	Prompt: !,"patient should be excluded if bradycardia occurred on day of discharge" Line Location: WBRADY5+9
Function Call: WRITE	Prompt: !,"or day prior to discharge AND if patient was not on a beta blocker at" Line Location: WBRADY5+10
Function Call: WRITE	Prompt: !,"the time of bradycardia (also see Beta Blocker Rx Status below)." Line Location: WBRADY5+11
Function Call: WRITE	Prompt: !?2,"Principle Procedure: ",BGPC Line Location: WPRINPRO+10
Function Call: WRITE	Prompt: !?2,"Other Procedures for this Visit:" Line Location: WOTHPROS+27
Function Call: WRITE	Prompt: !?4,BGPXX(BGPX) Line Location: WOTHPROS+28

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	WOTHPROS+21
^AUPNVCPT("AD"	WOTHPROS+18, WOTHPROS+20
^AUPNVPOV - [#9000010.07]	OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13
^AUPNVPOV("AD"	OTHDPOVS+2, OTHDPOVS+9
^AUPNVPRC - [#9000010.08]	WPRINPRO+6, WPRINPRO+7, WOTHPROS+6, WOTHPROS+7, WOTHPROS+10
^AUPNVPRC("AA"	WPRINPRO+4, WPRINPRO+5, WOTHPROS+4, WOTHPROS+5
^AUPNVSIT - [#9000010]	WPRINPRO+3, WOTHPROS+3, WOTHPROS+8, WOTHPROS+9, WOTHPROS+14, WOTHPROS+17, WOTHPROS+19
^AUPNVSIT("AA"	WOTHPROS+15, WOTHPROS+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BD	WOTHPROS+13~
>> BGP23RD	W23RD+3, W23RD+4, W23RD+5, W23RD+7, W23RD+8
>> BGP23RD(	W23RD+7
>> BGPACPT	WNMIACE+4, WNMIACE+13
>> BGPB	WPRINPRO+3, WPRINPRO+4, WPRINPRO+5, WOTHPROS+3, WOTHPROS+4, WOTHPROS+5, WOTHPROS+14, WOTHPROS+15, WOTHPROS+16, WOTHPROS+21
>> BGPBRADY	WBRADY6+3, WBRADY5+3
>> BGPBRADY(	WBRADY6+4, WBRADY6+6, WBRADY5+4, WBRADY5+6
>> BGPC	WPRINPRO+2, WPRINPRO+8, WPRINPRO+10, WOTHPROS+2, WOTHPROS+11, WOTHPROS+21*
>> BGPDATA	WNMIACE+1, WFIB+5, WFIB+20, WCS+3, WHF+3
>> BGPDATA(	WNMIACE+8, WNMIACE+10, WLVS+1, WLVS+5, WLVS+7, WFIB+1, WFIB+6, WFIB+7, WCS+4, WHF+5 , WHF+7
>> BGPE	WPRINPRO+3, WPRINPRO+4, WOTHPROS+3, WOTHPROS+4, WOTHPROS+14*, WOTHPROS+15
>> BGPIOSL	WNMIACE+2, WNMIACE+5, WNMIACE+12, WLVS+2, WDSCHINT+1, WLVAD+1, WCOMFORT+2, WCOMFORT+4, WDOD+1, WDT+1 , WTT+1, WPPDPOV+1, OTHDPOVS+7, WPCI+1, WPCI+5, WFIB+3, WFIB+10, WFIB+17, WFIB+21, WLBBB+1 , WST+1, WST+5, WCS+1, WHF+1, WHF+6, WHF+8, W23RD+1, W23RD+9, WBRADY6+1, WBRADY6+5 , WBRADY6+7, WBRADY5+1, WBRADY5+5, WBRADY5+7, WPRINPRO+9, WOTHPROS+26
>> BGPLBDX	WLBBB+3, WLBBB+5
>> BGPLBPC	WLBBB+5
>> BGPLBPC(	WLBBB+4
>> BGPLEC	WFIB+7, WFIB+14
>> BGPLETP("ICL"	WFIB+7, WFIB+14
>> BGPLETP("LGTH"	WFIB+7, WFIB+14
>> BGPLETP("NRQ"	WFIB+7, WFIB+14
>> BGPLETP("TXT"	WFIB+7, WFIB+14
BGPLETXT	WFIB+7!, WFIB+14!
BGPLETXT(	WFIB+9, WFIB+10, WFIB+16, WFIB+17
>> BGPLVAD	WLVAD+2
>> BGPNOBA	WDT+2, WTT+2, WPPDPOV+2
>> BGPPACE	W23RD+4, W23RD+5, PACE+1
>> BGPPCI	WPCI+3, WPCI+4
>> BGPPED	WDSCHINT+2
>> BGPPEX	WLVAD+2, WDT+2, WCS+2, WHF+2, WBRADY6+2, WBRADY5+2
>> BGPQUIT	WNMIACE+2, WNMIACE+5, WNMIACE+9, WNMIACE+12, WLVS+2, WLVS+6, WDSCHINT+1, WLVAD+1, WCOMFORT+2, WCOMFORT+4 , WDOD+1, WDT+1, WTT+1, WPPDPOV+1, OTHDPOVS+7, WPCI+1, WPCI+5, WFIB+3, WFIB+6, WFIB+9 , WFIB+10, WFIB+13, WFIB+16, WFIB+17, WFIB+21, WLBBB+1, WST+1, WST+5, WCS+1, WHF+1 , WHF+6, WHF+8, W23RD+1, W23RD+9, WBRADY6+1, WBRADY6+5, WBRADY6+7, WBRADY5+1, WBRADY5+5, WBRADY5+7 , WPRINPRO+9, WOTHPROS+26
>> BGPST1	WST+3, WST+4
>> BGPTAPRO	WFIB+19, WFIB+20
>> BGPUD	WFIB+12, WFIB+20
>> BGPUD(	WFIB+2, WFIB+13, WFIB+14
>> BGPVINP	WPRINPRO+3, WOTHPROS+3, WOTHPROS+14
>> BGPVSIT	OTHDPOVS+2, OTHDPOVS+9, WPRINPRO+3, WOTHPROS+3, WOTHPROS+14
>> BGPX	WOTHPROS+28*
BGPXX	WNMIACE+8, WNMIACE+10, WLVS+5, WLVS+7, WFIB+6, WFIB+7, WFIB+13, WFIB+14, WHF+5, WHF+7 , WBRADY6+4, WBRADY6+6, WBRADY5+4*, WBRADY5+6, WPRINPRO+1!, WOTHPROS+1!
BGPXX(	WOTHPROS+11, WOTHPROS+21, WOTHPROS+25, WOTHPROS+28
>> BGPZZ	WFIB+9, WFIB+10, WFIB+16, WFIB+17
C	WLVS+1, OTHDPOVS+1~, OTHDPOVS+2, OTHDPOVS+5, OTHDPOVS+7, OTHDPOVS+8, OTHDPOVS+9, OTHDPOVS+12, WFIB+1, WFIB+2* , WFIB+3, WOTHPROS+25*, WOTHPROS+26
D	WOTHPROS+13~
>> DFN	WPRINPRO+4, WPRINPRO+5, WOTHPROS+4, WOTHPROS+5, WOTHPROS+15, WOTHPROS+16
ED	WOTHPROS+13~
>> I	OTHDPOVS+13*, OTHDPOVS+15
IOSL	WNMIACE+9, WLVS+6
>> N	OTHDPOVS+14*, OTHDPOVS+15
U	OTHDPOVS+4, OTHDPOVS+11, OTHDPOVS+13, PACE+1, WPRINPRO+3, WPRINPRO+7, WOTHPROS+3, WOTHPROS+7, WOTHPROS+9, WOTHPROS+10 , WOTHPROS+14, WOTHPROS+19, WOTHPROS+21
V	WDOD~, WDOD+2, WDOD+3, WDT~, WDT+2, WTT~, WTT+2, WPPDPOV~, WPPDPOV+2, OTHDPOVS~ , WOTHPROS+7, WOTHPROS+8, WOTHPROS+9, WOTHPROS+13~, WOTHPROS+16, WOTHPROS+17, WOTHPROS+18, WOTHPROS+19, WOTHPROS+20
X	WLVS+1, WCOMFORT~, WCOMFORT+1, WCOMFORT+5, OTHDPOVS+1~, OTHDPOVS+2, OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+9, OTHDPOVS+10 , OTHDPOVS+11, OTHDPOVS+13, OTHDPOVS+14, CTR~, CTR+1, WFIB+1, WFIB+2, WLBBB+4, WCS+4, W23RD+7 , WPRINPRO+5, WPRINPRO+6, WPRINPRO+7, WPRINPRO+8, WOTHPROS+5, WOTHPROS+6, WOTHPROS+7, WOTHPROS+10, WOTHPROS+11, WOTHPROS+20* , WOTHPROS+21, WOTHPROS+25*
Y	CTR~, CTR+1, WFIB+2*, WOTHPROS+13~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP2CPU2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: