BGP1C2 ; IHS/CMI/LAB - calc CMS measures 26 Sep 2004 11:28 AM 04 May 2010 2:38 PM ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
HFALL ;EP
;was there an AMI pov on this visit
Q:'$$HFDX^BGP1CU(BGPVSIT)
I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
I $$LVADEX^BGP1CU(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP)) Q ;
S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=""
Q
;
HF1 ;EP
S BGPEX=""
Q:'$$HFDX^BGP1CU(BGPVSIT)
I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
I '$$REGDSCH^BGP1CU(BGPVINP) Q ;not regular discharge so don't count this patient
I $$LVADEX^BGP1CU(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=1
HF1A ;
I $G(BGPEXCL),BGPEX]"" Q
S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
Q
;
HF2 ;EP
S BGPEX=""
Q:'$$HFDX^BGP1CU(BGPVSIT)
I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
I $$LVADEX^BGP1CU(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=1
I $$DEATHAMA^BGP1CU(BGPVINP) S BGPEX=BGPEX_"|2" ;HF exclusion 2 death or ama
HF2A ;
I $G(BGPEXCL),BGPEX]"" Q
S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
Q
;
HF3 ;EP
S BGPEX=""
Q:'$$HFDX^BGP1CU(BGPVSIT)
I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
K BGPDATA S BGPLVSD=0
D LVSD^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
I $D(BGPDATA) S BGPLVSD=1
K BGPDATA S BGPEJEC=0
D EJECFRAC^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
I $D(BGPDATA) S BGPEJEC=1
I 'BGPLVSD,'BGPEJEC Q ;no lsvd or ejection fraction
I $$LVADEX^BGP1CU(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=1
I $$DEATHAMA^BGP1CU(BGPVINP) S BGPEX=BGPEX_"|2" ;HF exclusion 2 death or ama
I $$ACEALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP)),$$ARBALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=BGPEX_"|6"
I $$SAORSTEN^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=BGPEX_"|7"
HF3A ;
I $G(BGPEXCL),BGPEX]"" Q
S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
Q
;
;
HF4 ;EP
S BGPEX=""
Q:'$$HFDX^BGP1CU(BGPVSIT)
I $$AGE^AUPNPAT(DFN,$P($P(BGPVSIT0,U),"."))<18 Q ; no one under 18 at admission date
K BGPDATA
D SMOKER^BGP1CU2(DFN,$$FMADD^XLFDT($P($P(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
I '$D(BGPDATA) Q ;not a smoker
I $$LVADEX^BGP1CU(DFN,$P($P(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP)) S BGPEX=1
I $$DEATHAMA^BGP1CU(BGPVINP) S BGPEX=BGPEX_"|2" ;HF exclusion 2 death or ama
HF4A ;
I $G(BGPEXCL),BGPEX]"" Q
S ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$P(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
Q
;
BGP1C2 ; IHS/CMI/LAB - calc CMS measures 26 Sep 2004 11:28 AM 04 May 2010 2:38 PM ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+2 ;
HFALL ;EP
+1 ;was there an AMI pov on this visit
+2 IF '$$HFDX^BGP1CU(BGPVSIT)
QUIT
+3 ; no one under 18 at admission date
IF $$AGE^AUPNPAT(DFN,$PIECE($PIECE(BGPVSIT0,U),"."))<18
QUIT
+4 ;
IF $$LVADEX^BGP1CU(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP))
QUIT
+5 SET ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$PIECE(^DPT(DFN,0),U),DFN,BGPVSIT)=""
+6 QUIT
+7 ;
HF1 ;EP
+1 SET BGPEX=""
+2 IF '$$HFDX^BGP1CU(BGPVSIT)
QUIT
+3 ; no one under 18 at admission date
IF $$AGE^AUPNPAT(DFN,$PIECE($PIECE(BGPVSIT0,U),"."))<18
QUIT
+4 ;not regular discharge so don't count this patient
IF '$$REGDSCH^BGP1CU(BGPVINP)
QUIT
+5 IF $$LVADEX^BGP1CU(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=1
HF1A ;
+1 IF $GET(BGPEXCL)
IF BGPEX]""
QUIT
+2 SET ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$PIECE(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
+3 QUIT
+4 ;
HF2 ;EP
+1 SET BGPEX=""
+2 IF '$$HFDX^BGP1CU(BGPVSIT)
QUIT
+3 ; no one under 18 at admission date
IF $$AGE^AUPNPAT(DFN,$PIECE($PIECE(BGPVSIT0,U),"."))<18
QUIT
+4 IF $$LVADEX^BGP1CU(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=1
+5 ;HF exclusion 2 death or ama
IF $$DEATHAMA^BGP1CU(BGPVINP)
SET BGPEX=BGPEX_"|2"
HF2A ;
+1 IF $GET(BGPEXCL)
IF BGPEX]""
QUIT
+2 SET ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$PIECE(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
+3 QUIT
+4 ;
HF3 ;EP
+1 SET BGPEX=""
+2 IF '$$HFDX^BGP1CU(BGPVSIT)
QUIT
+3 ; no one under 18 at admission date
IF $$AGE^AUPNPAT(DFN,$PIECE($PIECE(BGPVSIT0,U),"."))<18
QUIT
+4 KILL BGPDATA
SET BGPLVSD=0
+5 DO LVSD^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
+6 IF $DATA(BGPDATA)
SET BGPLVSD=1
+7 KILL BGPDATA
SET BGPEJEC=0
+8 DO EJECFRAC^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
+9 IF $DATA(BGPDATA)
SET BGPEJEC=1
+10 ;no lsvd or ejection fraction
IF 'BGPLVSD
IF 'BGPEJEC
QUIT
+11 IF $$LVADEX^BGP1CU(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=1
+12 ;HF exclusion 2 death or ama
IF $$DEATHAMA^BGP1CU(BGPVINP)
SET BGPEX=BGPEX_"|2"
+13 IF $$ACEALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP))
IF $$ARBALLEG^BGP1CU1(DFN,$$DOB^AUPNPAT(DFN),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=BGPEX_"|6"
+14 IF $$SAORSTEN^BGP1CU1(DFN,$$FMADD^XLFDT($$DSCH^BGP1CU(BGPVINP),-365),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=BGPEX_"|7"
HF3A ;
+1 IF $GET(BGPEXCL)
IF BGPEX]""
QUIT
+2 SET ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$PIECE(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
+3 QUIT
+4 ;
+5 ;
HF4 ;EP
+1 SET BGPEX=""
+2 IF '$$HFDX^BGP1CU(BGPVSIT)
QUIT
+3 ; no one under 18 at admission date
IF $$AGE^AUPNPAT(DFN,$PIECE($PIECE(BGPVSIT0,U),"."))<18
QUIT
+4 KILL BGPDATA
+5 DO SMOKER^BGP1CU2(DFN,$$FMADD^XLFDT($PIECE($PIECE(^AUPNVSIT(BGPVSIT,0),U),"."),-365),$$DSCH^BGP1CU(BGPVINP),.BGPDATA)
+6 ;not a smoker
IF '$DATA(BGPDATA)
QUIT
+7 IF $$LVADEX^BGP1CU(DFN,$PIECE($PIECE(BGPVSIT0,U),"."),$$DSCH^BGP1CU(BGPVINP))
SET BGPEX=1
+8 ;HF exclusion 2 death or ama
IF $$DEATHAMA^BGP1CU(BGPVINP)
SET BGPEX=BGPEX_"|2"
HF4A ;
+1 IF $GET(BGPEXCL)
IF BGPEX]""
QUIT
+2 SET ^XTMP("BGP1C1",BGPJ,BGPH,"LIST",BGPIND,BGPPLSTL,$PIECE(^DPT(DFN,0),U),DFN,BGPVSIT)=BGPEX
+3 QUIT
+4 ;
