Routine: BGP0CPU3

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

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP0CP5 BGP0CP6

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

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

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: