Routine: BGP0CPU3

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Local Variables

Information

BGP0CPU3 ; IHS/CMI/LAB - calc CMS measures ;

Source Information

Source file <BGP0CPU3.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS GPRA Information System	4	(HDR,L1H)^BGP0CP ($$DSCH,$$PNEUMODX)^BGP0CU $$DATE^BGP0UTL $$LASTDXI^BGP0UTL1
DRG Grouper	1	$$ICDDX^ICDCODE
IHS Patient	1	$$DOD^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$UP^XLFSTR
Patient Care Component Reports	1	($$PRIMPOV,$$VD)^APCLV

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP0CP5 BGP0CP6

Entry Points

Name	Comments	DBIA/ICR reference
WCHEST	;EP - write out chest xray data
WPPDPOV(V)	;EP
WOTHINF	;EP
WPNEUMO	;EP
WHOS2DAY	;EP
WPSEUDO	;EP
WFLU	;EP
EXCL487	;EP
WDT9(V)	;EP - write discharge type at column 3
CTR(X,Y)	;EP - Center X in a field Y wide.
WTT(V)	;EP - write transferred to
WADMDX	;EP
WEXCL1	;EP
WCOMFORT(X)	;EP - write out comfort message
WPRIORHO	;EP
WERPNEU	;EP
WDOD(V)	;EP - write dod
OTHDPOVS(V)	;EP write out other discharge povs
WPNEUPOV(V)	;EP
WABGPO	;EP - write out chest xray data
WANTIRX	;EP
WERBC	;EP
WDT(V)	;EP - write discharge type at column 3
WWOUND	;EP - write transferred to
WCYSTIC	;EP
WNURSHOM	;EP

External References

Name	Field # of Occurrence
$$PRIMPOV^APCLV	WPPDPOV+2
$$VD^APCLV	WADMDX+2
$$DOD^AUPNPAT	WDOD+2, WDOD+3
HDR^BGP0CP	EXCL487+1, WFLU+2, WWOUND+1, WNURSHOM+1, WHOS2DAY+1, WPRIORHO+1, WEXCL1+2, WOTHINF+1, WPSEUDO+1, WERBC+2 , WANTIRX+2, WPNEUMO+2, WCYSTIC+1, WADMDX+1, WERPNEU+1, WCHEST+3, WABGPO+2, WCOMFORT+2, WCOMFORT+4, WDOD+1 , WDT+1, WDT9+1, WTT+1, WPNEUPOV+1, WPPDPOV+1, OTHDPOVS+7
L1H^BGP0CP	EXCL487+1, WFLU+2, WWOUND+1, WNURSHOM+1, WHOS2DAY+1, WPRIORHO+1, WEXCL1+2, WOTHINF+1, WPSEUDO+1, WERBC+2 , WANTIRX+2, WPNEUMO+2, WCYSTIC+1, WADMDX+1, WERPNEU+1, WCHEST+3, WABGPO+2, WCOMFORT+2, WCOMFORT+4, WDOD+1 , WDT+1, WDT9+1, WTT+1, WPNEUPOV+1, WPPDPOV+1, OTHDPOVS+7
$$DSCH^BGP0CU	EXCL487+2
$$PNEUMODX^BGP0CU	WPNEUPOV+2
$$DATE^BGP0UTL	WDOD+3
$$LASTDXI^BGP0UTL1	EXCL487+2
$$ICDDX^ICDCODE	WADMDX+2, OTHDPOVS+13
$$VAL^XBDIQ1	EXCL487+2, WADMDX+2, WDT+2, WDT9+2, WTT+2, OTHDPOVS+14
$$UP^XLFSTR	OTHDPOVS+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["L":"*",1:""),"Influenza Dx: "_$S(BGPPEX["L":"Yes, 487.0 "_BGPN,1:"No") Line Location: EXCL487+3
Function Call: WRITE	Prompt: !!?2,"Influenza IZ Status? " Line Location: WFLU+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WFLU+5
Function Call: WRITE	Prompt: !,"NOTE: If Influenza vaccine received prior to admission, in order to be " Line Location: WFLU+6
Function Call: WRITE	Prompt: !,"included in the CMS measure, it must be determined if the patient received" Line Location: WFLU+7
Function Call: WRITE	Prompt: "it during the CURRENT flu season. The CMS Data Abstraction Guidelines" Line Location: WFLU+8
Function Call: WRITE	Prompt: !,"define current flu season as beginning when this season's flu vaccine " Line Location: WFLU+9
Function Call: WRITE	Prompt: !,"is made available to the public, e.g. if the vaccine is available in" Line Location: WFLU+10
Function Call: WRITE	Prompt: !,"September, then the flu season is September-February. However, for this " Line Location: WFLU+11
Function Call: WRITE	Prompt: !,"measure, the hospitals are only responsible for discharges October-February." Line Location: WFLU+12
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["J":"*",1:""),"Home Wound Care? ",$P(X,U,2) Line Location: WWOUND+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["H":"*",1:""),"Nursing Home Visit? ",$P(X,U,2) Line Location: WNURSHOM+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["G":"*",1:""),"Hospitalized for 2 days in past 3 months? ",$P(X,U,2) Line Location: WHOS2DAY+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX["F"!(BGPPEX["G"):"*",1:""),"Prior Hospitalization? ",$S(X]""!(Y]""):"Yes",1:"No") Line Location: WPRIORHO+2
Function Call: WRITE	Prompt: !?4,"Hospital Stay prior 14 days: ",$S(X]"":"Yes, ",1:"No "),$P(X,U,2) Line Location: WPRIORHO+3
Function Call: WRITE	Prompt: !?4,"Hospitalized at least 2 days: ",$S(Y]"":"Yes",1:"No") Line Location: WPRIORHO+4
Function Call: WRITE	Prompt: !?6,$P(Y,U,2)," ",$P(Y,U,3) Line Location: WPRIORHO+4
Function Call: WRITE	Prompt: !!?2,$S(BGPAST:"*",1:""),"HIV Positive/AIDS, Systemic Chemotherapy/Immunosuppressive Therapy," Line Location: WEXCL1+5
Function Call: WRITE	Prompt: !?2,"Leukemia, Lymphoma, Radiation Therapy, or Chronic Dialysis? " Line Location: WEXCL1+6
Function Call: WRITE	Prompt: !?4,"No, Not recorded." Line Location: WEXCL1+7
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WEXCL1+8
Function Call: WRITE	Prompt: !!?2,"Other Suspected Source of Infection? " Line Location: WOTHINF+2
Function Call: WRITE	Prompt: !?4,"Admitting Diagnosis: ["_$P(X,U,2)_"]" Line Location: WOTHINF+3
Function Call: WRITE	Prompt: !,"NOTE: If patient had other suspected source of infection, this criterion " Line Location: WOTHINF+5
Function Call: WRITE	Prompt: !,"should only be used to exclude patients when the patient did not receive" Line Location: WOTHINF+6
Function Call: WRITE	Prompt: !,"an antibiotic regimen recommended for pneumonia but did receive" Line Location: WOTHINF+7
Function Call: WRITE	Prompt: !,"antibiotics within the first 24 hours of hospitalization." Line Location: WOTHINF+8
Function Call: WRITE	Prompt: !!?2,"Pseudomonas Risk? " Line Location: WPSEUDO+2
Function Call: WRITE	Prompt: !?4,$P(BGPPSE,U,2) Line Location: WPSEUDO+3
Function Call: WRITE	Prompt: !?4,$P(BGPCOPD,U,2) Line Location: WPSEUDO+4
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[6:"*",1:""),"ER Visit with Blood Culture Status: " Line Location: WERBC+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WERBC+4
Function Call: WRITE	Prompt: ! Line Location: WERBC+5
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[8!(BGPPEX[7):"*",1:""),"Recent Antibiotic Rx Status: " Line Location: WANTIRX+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WANTIRX+4
Function Call: WRITE	Prompt: !!?2,"Pneumovax Status? " Line Location: WPNEUMO+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WPNEUMO+4
Function Call: WRITE	Prompt: ! Line Location: WPNEUMO+5
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[5:"*",1:""),"Cystic Fibrosis? ",$P(X,U,2) Line Location: WCYSTIC+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[3:"*",1:""),"Admitting Dx? ",$$VAL^XBDIQ1(9000010.02,BGPVINP,.12)_" "_$P($$ICDDX^ICDCODE($P(^AUPNVINP(BGPVINP,0),U,12),$$VD^APCLV(BGPVSIT)),U,4) Line Location: WADMDX+2
Function Call: WRITE	Prompt: !!?2,$S(BGPPEX[4:"*",1:""),"ER Visit w/ No Pneumonia DX? ",$P(X,U,2) Line Location: WERPNEU+2
Function Call: WRITE	Prompt: !!?2,"Chest X-ray/CT Scan? " Line Location: WCHEST+4
Function Call: WRITE	Prompt: !?4,BGPDATA(X,Y) Line Location: WCHEST+6
Function Call: WRITE	Prompt: !?4,BGPSCAN(X,Y) Line Location: WCHEST+7
Function Call: WRITE	Prompt: !!?2,"ABG/PO Status? " Line Location: WABGPO+3
Function Call: WRITE	Prompt: !?4,BGPDATA(X) Line Location: WABGPO+5
Function Call: WRITE	Prompt: !,"NOTE: The patient's chart needs to be reviewed to determine if" Line Location: WABGPO+6
Function Call: WRITE	Prompt: !,"the oxygen saturation was performed either within 24 hours prior" Line Location: WABGPO+7
Function Call: WRITE	Prompt: !,"to arrival or within 24 hours after hospital arrival." Line Location: WABGPO+8
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,$S(BGPPEX[9:"*",1:""),"Discharge Type: ",$$VAL^XBDIQ1(9000010.02,V,.06) Line Location: WDT9+2
Function Call: WRITE	Prompt: !?2,"Transferred to: ",$$VAL^XBDIQ1(9000010.02,V,.09) Line Location: WTT+2
Function Call: WRITE	Prompt: !?2,"Pneumonia Discharge POV:" Line Location: WPNEUPOV+3
Function Call: WRITE	Prompt: !?4,$P(X,U) Line Location: WPNEUPOV+4
Function Call: WRITE	Prompt: !?4,$P(X,U,2) Line Location: WPNEUPOV+4
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

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	WADMDX+2
^AUPNVPOV - [#9000010.07]	OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13
^AUPNVPOV("AD"	OTHDPOVS+2, OTHDPOVS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGPAST	WEXCL1+3, WEXCL1+4, WEXCL1+5
>> BGPCOPD	WPSEUDO+4, WPSEUDO+5
>> BGPDATA	WFLU+4, WFLU+5, WEXCL1+7, WEXCL1+8, WERBC+4, WANTIRX+4, WPNEUMO+4, WCHEST+5, WABGPO+4, WABGPO+5
>> BGPDATA(	WFLU+1, WFLU+5, WEXCL1+1, WEXCL1+8, WERBC+1, WERBC+4, WANTIRX+1, WANTIRX+4, WPNEUMO+1, WPNEUMO+4 , WCHEST+1, WCHEST+6, WABGPO+1, WABGPO+5
>> BGPIOSL	EXCL487+1, WFLU+2, WWOUND+1, WNURSHOM+1, WHOS2DAY+1, WPRIORHO+1, WEXCL1+2, WOTHINF+1, WPSEUDO+1, WERBC+2 , WANTIRX+2, WPNEUMO+2, WCYSTIC+1, WADMDX+1, WERPNEU+1, WCHEST+3, WABGPO+2, WCOMFORT+2, WCOMFORT+4, WDOD+1 , WDT+1, WDT9+1, WTT+1, WPNEUPOV+1, WPPDPOV+1, OTHDPOVS+7
>> BGPN	EXCL487+2*, EXCL487+3
>> BGPNOBA	WDT+2, WDT9+2, WPNEUPOV+3, WPPDPOV+2
>> BGPPEX	EXCL487+3, WWOUND+2, WNURSHOM+2, WHOS2DAY+2, WPRIORHO+2, WEXCL1+4, WERBC+3, WANTIRX+3, WCYSTIC+2, WADMDX+2 , WERPNEU+2, WDT+2, WDT9+2
>> BGPPSE	WPSEUDO+3, WPSEUDO+5
>> BGPQUIT	EXCL487+1, WFLU+2, WWOUND+1, WNURSHOM+1, WHOS2DAY+1, WPRIORHO+1, WEXCL1+2, WOTHINF+1, WPSEUDO+1, WERBC+2 , WANTIRX+2, WPNEUMO+2, WCYSTIC+1, WADMDX+1, WERPNEU+1, WCHEST+3, WABGPO+2, WCOMFORT+2, WCOMFORT+4, WDOD+1 , WDT+1, WDT9+1, WTT+1, WPNEUPOV+1, WPPDPOV+1, OTHDPOVS+7
>> BGPSCAN	WCHEST+5
>> BGPSCAN(	WCHEST+2, WCHEST+7
>> BGPVINP	EXCL487+2, WADMDX+2
>> BGPVSIT	WADMDX+2, OTHDPOVS+2, OTHDPOVS+9
>> BGPVSIT0	EXCL487+2
>> BGPXX	EXCL487+2*
C	WFLU+1, WFLU+2, WEXCL1+1, WEXCL1+2, WERBC+1, WERBC+2, WANTIRX+1, WANTIRX+2, WPNEUMO+1, WPNEUMO+2 , WCHEST+1, WCHEST+2, WCHEST+3, WABGPO+1, WABGPO+2, OTHDPOVS+1~, OTHDPOVS+2, OTHDPOVS+5, OTHDPOVS+7, OTHDPOVS+8 , OTHDPOVS+9, OTHDPOVS+12
>> DFN	EXCL487+2
>> I	OTHDPOVS+13*, OTHDPOVS+15
>> N	OTHDPOVS+14*, OTHDPOVS+15
U	EXCL487+2, WWOUND+2, WNURSHOM+2, WHOS2DAY+2, WPRIORHO+3, WPRIORHO+4, WOTHINF+3, WPSEUDO+3, WPSEUDO+4, WCYSTIC+2 , WADMDX+2, WERPNEU+2, WPNEUPOV+4, OTHDPOVS+4, OTHDPOVS+11, OTHDPOVS+13
V	WDOD~, WDOD+2, WDOD+3, WDT~, WDT+2, WDT9~, WDT9+2, WTT~, WTT+2, WPNEUPOV~ , WPNEUPOV+2, WPPDPOV~, WPPDPOV+2, OTHDPOVS~
X	WFLU+1, WFLU+5, WWOUND+2, WNURSHOM+2, WHOS2DAY+2, WPRIORHO+2, WPRIORHO+3, WEXCL1+1, WEXCL1+8, WOTHINF+3 , WOTHINF+4, WERBC+1, WERBC+4, WANTIRX+1, WANTIRX+4, WPNEUMO+1, WPNEUMO+4, WCYSTIC+2, WERPNEU+2, WCHEST+1* , WCHEST+2, WCHEST+6, WCHEST+7, WABGPO+1, WABGPO+5, WCOMFORT~, WCOMFORT+1, WCOMFORT+5, WPNEUPOV+2, WPNEUPOV+4 , CTR~, CTR+1, OTHDPOVS+1~, OTHDPOVS+2, OTHDPOVS+3, OTHDPOVS+4, OTHDPOVS+9, OTHDPOVS+10, OTHDPOVS+11, OTHDPOVS+13 , OTHDPOVS+14
Y	WPRIORHO+2, WPRIORHO+4, WCHEST+1, WCHEST+2, WCHEST+6, WCHEST+7, CTR~, CTR+1

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP0CPU3

Call Graph Total: 9

Caller Graph Total: 2