BGPD24 ; IHS/CMI/LAB - indicator 24 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;
I24 ;EP ;EP - indicator 24
S (BGPP,BGPP1)=""
;Q:'$D(BGPIND(24))
I BGPAGEB>64 D
.D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),1,1)
.S BGPP=$$PNEU(DFN,BGPEDATE) ;pneumovax anytime in lifetime
.I BGPP]"" D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),2,1)
.;I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP
.S BGPP1=$$FLU(DFN,BGPEDATE)
.I BGPP1]"" D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),3,1)
.I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP_" "_BGPP1
I $$DM^BGPD1(DFN,BGPEDATE),BGPAGEB>17 D
.D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),5,1)
.S BGPP=$$PNEU(DFN,BGPEDATE) ;pneumovax anytime in lifetime
.I BGPP]"" D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),6,1)
.;I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP
.S BGPP1=$$FLU(DFN,BGPEDATE)
.I BGPP1]"" D S(BGPRPT,$S(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),7,1)
.I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)="DM "_BGPP_" "_BGPP1
Q
S(R,N,P,V) ;
I 'V Q ;no value to add
S $P(^BGPD(R,N),U,P)=$P($G(^BGPD(R,N)),U,P)+V
Q
;
FLU(P,ED) ;
NEW BDATE,EDATE S BDATE=$$FMADD^XLFDT(ED,-365)
NEW BGPG,X,E
S EDATE=$$FMTE^XLFDT(ED),BDATE=$$FMTE^XLFDT(BDATE)
S X=P_"^LAST IMM "_$S($$BI:88,1:12)_";DURING "_BDATE_"-"_EDATE S E=$$START1^APCLDF(X,"BGPG(")
I $D(BGPG(1)) Q " Flu Vaccine"
K BGPG S %=P_"^LAST PROCEDURE 99.52;DURING "_BDATE_"-"_EDATE,E=$$START1^APCLDF(%,"BGPG(")
I $D(BGPG(1)) Q " Flu Vaccine"
K BGPG S %=P_"^LAST DX V04.8;DURING "_BDATE_"-"_EDATE,E=$$START1^APCLDF(%,"BGPG(")
I $D(BGPG(1)) Q " Flu Vaccine"
K BGPG S %=P_"^LAST DX V06.6;DURING "_BDATE_"-"_EDATE,E=$$START1^APCLDF(%,"BGPG(")
I $D(BGPG(1)) Q " Flu Vaccine"
S T=$O(^ATXAX("B","BGP CPT FLU",0))
I T D I X]"" Q " Flu Vaccine"
.S X=$$CPT^BGPDU(P,,ED,T,4)
Q ""
PNEU(P,EDATE) ;
NEW BGPG,X,E
S EDATE=$$FMTE^XLFDT(EDATE)
S X=P_"^LAST IMM "_$S($$BI:33,1:19)_";DURING "_$$FMTE^XLFDT($$DOB^AUPNPAT(P))_"-"_EDATE S E=$$START1^APCLDF(X,"BGPG(")
I $D(BGPG(1)) Q "Pneumovax"
Q ""
BI() ;
Q $S($O(^AUTTIMM(0))>100:1,1:0)
;
BGPD24 ; IHS/CMI/LAB - indicator 24 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;
I24 ;EP ;EP - indicator 24
+1 SET (BGPP,BGPP1)=""
+2 ;Q:'$D(BGPIND(24))
+3 IF BGPAGEB>64
Begin DoDot:1
+4 DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),1,1)
+5 ;pneumovax anytime in lifetime
SET BGPP=$$PNEU(DFN,BGPEDATE)
+6 IF BGPP]""
DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),2,1)
+7 ;I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP
+8 SET BGPP1=$$FLU(DFN,BGPEDATE)
+9 IF BGPP1]""
DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),3,1)
+10 IF $DATA(BGPLIST(24))
IF BGPTIME=1
SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP_" "_BGPP1
End DoDot:1
+11 IF $$DM^BGPD1(DFN,BGPEDATE)
IF BGPAGEB>17
Begin DoDot:1
+12 DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),5,1)
+13 ;pneumovax anytime in lifetime
SET BGPP=$$PNEU(DFN,BGPEDATE)
+14 IF BGPP]""
DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),6,1)
+15 ;I $D(BGPLIST(24)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=BGPP
+16 SET BGPP1=$$FLU(DFN,BGPEDATE)
+17 IF BGPP1]""
DO S(BGPRPT,$SELECT(BGPTIME=1:17,BGPTIME=0:47,BGPTIME=8:87,1:999),7,1)
+18 IF $DATA(BGPLIST(24))
IF BGPTIME=1
SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",24,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)="DM "_BGPP_" "_BGPP1
End DoDot:1
+19 QUIT
S(R,N,P,V) ;
+1 ;no value to add
IF 'V
QUIT
+2 SET $PIECE(^BGPD(R,N),U,P)=$PIECE($GET(^BGPD(R,N)),U,P)+V
+3 QUIT
+4 ;
FLU(P,ED) ;
+1 NEW BDATE,EDATE
SET BDATE=$$FMADD^XLFDT(ED,-365)
+2 NEW BGPG,X,E
+3 SET EDATE=$$FMTE^XLFDT(ED)
SET BDATE=$$FMTE^XLFDT(BDATE)
+4 SET X=P_"^LAST IMM "_$SELECT($$BI:88,1:12)_";DURING "_BDATE_"-"_EDATE
SET E=$$START1^APCLDF(X,"BGPG(")
+5 IF $DATA(BGPG(1))
QUIT " Flu Vaccine"
+6 KILL BGPG
SET %=P_"^LAST PROCEDURE 99.52;DURING "_BDATE_"-"_EDATE
SET E=$$START1^APCLDF(%,"BGPG(")
+7 IF $DATA(BGPG(1))
QUIT " Flu Vaccine"
+8 KILL BGPG
SET %=P_"^LAST DX V04.8;DURING "_BDATE_"-"_EDATE
SET E=$$START1^APCLDF(%,"BGPG(")
+9 IF $DATA(BGPG(1))
QUIT " Flu Vaccine"
+10 KILL BGPG
SET %=P_"^LAST DX V06.6;DURING "_BDATE_"-"_EDATE
SET E=$$START1^APCLDF(%,"BGPG(")
+11 IF $DATA(BGPG(1))
QUIT " Flu Vaccine"
+12 SET T=$ORDER(^ATXAX("B","BGP CPT FLU",0))
+13 IF T
Begin DoDot:1
+14 SET X=$$CPT^BGPDU(P,,ED,T,4)
End DoDot:1
IF X]""
QUIT " Flu Vaccine"
+15 QUIT ""
PNEU(P,EDATE) ;
+1 NEW BGPG,X,E
+2 SET EDATE=$$FMTE^XLFDT(EDATE)
+3 SET X=P_"^LAST IMM "_$SELECT($$BI:33,1:19)_";DURING "_$$FMTE^XLFDT($$DOB^AUPNPAT(P))_"-"_EDATE
SET E=$$START1^APCLDF(X,"BGPG(")
+4 IF $DATA(BGPG(1))
QUIT "Pneumovax"
+5 QUIT ""
BI() ;
+1 QUIT $SELECT($ORDER(^AUTTIMM(0))>100:1,1:0)
+2 ;
