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: BGP0CPU3

Package: IHS GPRA Information System

Routine: BGP0CPU3


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

Global Variables Directly Accessed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All