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 |  Local Variables |  All
Print Page as PDF
Routine: BGP0CPU2

Package: IHS GPRA Information System

Routine: BGP0CPU2


Information

BGP0CPU2 ; IHS/CMI/LAB - calc CMS measures 02 Jul 2009 9:24 AM ;

Source Information

Source file <BGP0CPU2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS GPRA Information System 4 (HDR,L1H)^BGP0CP  GETTXT^BGP0CPU4  $$DSCH^BGP0CU  $$DATE^BGP0UTL  
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  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
IHS GPRA Information System 6 BGP0CP1  BGP0CP2  BGP0CP3  BGP0CP4  BGP0CP5  BGP0CP6  

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^BGP0CP 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^BGP0CP 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^BGP0CPU4 WFIB+8, WFIB+15
$$DSCH^BGP0CU WPRINPRO+3, WOTHPROS+3, WOTHPROS+14
$$DATE^BGP0UTL 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All