- BGPD4 ; IHS/CMI/LAB - indicator 4 ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;
- I4A ;EP ;EP - indicator 4a
- ;Q:'$D(BGPIND(9))
- Q:'BGPDMPAT ;not in the simple population for denominator
- S BGP4LP=$$LIPID(DFN,BGPEDATE)
- S BGP4TG=$$TRIG(DFN,BGPEDATE)
- S BGP4LDL=$$LDL(DFN,BGPEDATE)
- S BGP4HDL=$$HDL(DFN,BGPEDATE)
- S BGPL=9
- NUM ;
- S V=""
- I BGP4LP="",BGP4TG="",BGP4LDL="",BGP4HDL="" S P=5,V="" D ST Q ;none of the above E
- I BGP4LP S P=1,V="LP " D ST G LDS
- I BGP4TG,BGP4LDL,BGP4HDL S P=1,V="HDL,LDL,TG" D ST G LDS
- I BGP4LDL,(BGP4TG!(BGP4HDL)) S P=2,V="LDL & HDL/TG" D ST G LDS
- I 'BGP4LDL S P=3,V="TG or TG/HDL" D ST Q
- I BGP4LDL S P=4,V="LDL ONLY" D ST G LDS
- Q
- LDS ;
- S P=6 D ST
- I $P(BGP4LDL,U,2)]"" S P=7,V=V_" "_$P(BGP4LDL,U,2) D ST
- I $P(BGP4LDL,U,2)]"",+$P(BGP4LDL,U,2)<130 S P=8 D ST
- Q
- ST ;
- D S(BGPRPT,$S(BGPTIME=1:14,BGPTIME=0:44,BGPTIME=8:84,1:999),P,1)
- I $D(BGPLIST(BGPL)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",BGPL,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$P(V,U)
- Q
- LDSB ;
- S P=14 D ST
- I $P(BGP4LDL,U,2)]"" S P=15,V=V_" "_$P(BGP4LDL,U,2) D ST
- I $P(BGP4LDL,U,2)]"",$P(BGP4LDL,U,2)<130 S P=16 D ST
- Q
- LDSC ;
- S P=22 D ST
- I $P(BGP4LDL,U,2)]"" S P=23,V=V_" "_$P(BGP4LDL,U,2) D ST
- I $P(BGP4LDL,U,2)]"",$P(BGP4LDL,U,2)<130 S P=24 D ST
- Q
- I4B ;EP
- ;Q:'$D(BGPIND(10))
- Q:'BGPDMPAT ;not in the simple population for denominator
- Q:'BGP2BD
- S BGPL=10
- S V=""
- I BGP4LP="",BGP4TG="",BGP4LDL="",BGP4HDL="" S P=13,V="" D ST Q ;none of the above E
- I BGP4LP S P=9,V="LP " D ST G LDSB
- I BGP4TG,BGP4LDL,BGP4HDL S P=9,V="HDL,LDL,TG" D ST G LDSB
- I BGP4LDL,(BGP4TG!(BGP4HDL)) S P=10,V="LDL & HDL/TG" D ST G LDSB
- I 'BGP4LDL S P=11,V="TG or TG/HDL" D ST Q
- I BGP4LDL S P=12,V="LDL ONLY" D ST G LDSB
- K BGPL
- Q
- I4C ;EP
- ;Q:'$D(BGPIND(11))
- Q:'BGPDMPAT ;not in the simple population for denominator
- Q:'BGP2CD
- S BGPL=11
- S V=""
- I BGP4LP="",BGP4TG="",BGP4LDL="",BGP4HDL="" S P=21,V="" D ST Q ;none of the above E
- I BGP4LP S P=17,V="LP " D ST G LDSC
- I BGP4TG,BGP4LDL,BGP4HDL S P=17,V="HDL,LDL,TG" D ST G LDSC
- I BGP4LDL,(BGP4TG!(BGP4HDL)) S P=18,V="LDL & HDL/TG" D ST G LDSC
- I 'BGP4LDL S P=19,V="TG or TG/HDL" D ST Q
- I BGP4LDL S P=20,V="LDL ONLY" D ST G LDSC
- K BGPL
- 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
- LIPID(P,EDATE) ;
- NEW %,E,D,BGPG
- K BGPG
- S D=$$FMADD^XLFDT(EDATE,-365)
- S %=P_"^LAST LAB [DM AUDIT LIPID PROFILE TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")
- I $D(BGPG(1)) Q 1
- S E=+$$CODEN^ICPTCOD(80061),%=$$CPTI^BGPDU(P,D,EDATE,E)
- Q %
- TRIG(P,EDATE) ;
- NEW %,E,D,BGPG
- K BGPG
- S D=$$FMADD^XLFDT(EDATE,-365)
- S %=P_"^LAST LAB [DM AUDIT TRIGLYCERIDE TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")
- I $D(BGPG(1)) Q 1
- S E=+$$CODEN^ICPTCOD(84478),%=$$CPTI^BGPDU(P,D,EDATE,E)
- Q %
- HDL(P,EDATE) ;
- NEW %,E,D,BGPG
- K BGPG
- S D=$$FMADD^XLFDT(EDATE,-365)
- S %=P_"^LAST LAB [DM AUDIT HDL TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")
- I $D(BGPG(1)) Q 1
- Q ""
- LDL(P,EDATE) ;
- NEW %,E,D,BGPG
- K BGPG
- S D=$$FMADD^XLFDT(EDATE,-365)
- S %=P_"^LAST LAB [DM AUDIT LDL CHOLESTEROL TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")
- S %="" I $D(BGPG(1)) D Q %
- .S E=$P(^AUPNVLAB(+$P(BGPG(1),U,4),0),U,4)
- .I $$UP^XLFSTR(E)="COMMENT" S %=1 Q
- .I +E S %="1^"_E Q
- .S %=1
- S E=+$$CODEN^ICPTCOD(80061),%=$$CPTI^BGPDU(P,D,EDATE,E)
- Q %
- BGPD4 ; IHS/CMI/LAB - indicator 4 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +2 ;
- I4A ;EP ;EP - indicator 4a
- +1 ;Q:'$D(BGPIND(9))
- +2 ;not in the simple population for denominator
- IF 'BGPDMPAT
- QUIT
- +3 SET BGP4LP=$$LIPID(DFN,BGPEDATE)
- +4 SET BGP4TG=$$TRIG(DFN,BGPEDATE)
- +5 SET BGP4LDL=$$LDL(DFN,BGPEDATE)
- +6 SET BGP4HDL=$$HDL(DFN,BGPEDATE)
- +7 SET BGPL=9
- NUM ;
- +1 SET V=""
- +2 ;none of the above E
- IF BGP4LP=""
- IF BGP4TG=""
- IF BGP4LDL=""
- IF BGP4HDL=""
- SET P=5
- SET V=""
- DO ST
- QUIT
- +3 IF BGP4LP
- SET P=1
- SET V="LP "
- DO ST
- GOTO LDS
- +4 IF BGP4TG
- IF BGP4LDL
- IF BGP4HDL
- SET P=1
- SET V="HDL,LDL,TG"
- DO ST
- GOTO LDS
- +5 IF BGP4LDL
- IF (BGP4TG!(BGP4HDL))
- SET P=2
- SET V="LDL & HDL/TG"
- DO ST
- GOTO LDS
- +6 IF 'BGP4LDL
- SET P=3
- SET V="TG or TG/HDL"
- DO ST
- QUIT
- +7 IF BGP4LDL
- SET P=4
- SET V="LDL ONLY"
- DO ST
- GOTO LDS
- +8 QUIT
- LDS ;
- +1 SET P=6
- DO ST
- +2 IF $PIECE(BGP4LDL,U,2)]""
- SET P=7
- SET V=V_" "_$PIECE(BGP4LDL,U,2)
- DO ST
- +3 IF $PIECE(BGP4LDL,U,2)]""
- IF +$PIECE(BGP4LDL,U,2)<130
- SET P=8
- DO ST
- +4 QUIT
- ST ;
- +1 DO S(BGPRPT,$SELECT(BGPTIME=1:14,BGPTIME=0:44,BGPTIME=8:84,1:999),P,1)
- +2 IF $DATA(BGPLIST(BGPL))
- IF BGPTIME=1
- SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",BGPL,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$PIECE(V,U)
- +3 QUIT
- LDSB ;
- +1 SET P=14
- DO ST
- +2 IF $PIECE(BGP4LDL,U,2)]""
- SET P=15
- SET V=V_" "_$PIECE(BGP4LDL,U,2)
- DO ST
- +3 IF $PIECE(BGP4LDL,U,2)]""
- IF $PIECE(BGP4LDL,U,2)<130
- SET P=16
- DO ST
- +4 QUIT
- LDSC ;
- +1 SET P=22
- DO ST
- +2 IF $PIECE(BGP4LDL,U,2)]""
- SET P=23
- SET V=V_" "_$PIECE(BGP4LDL,U,2)
- DO ST
- +3 IF $PIECE(BGP4LDL,U,2)]""
- IF $PIECE(BGP4LDL,U,2)<130
- SET P=24
- DO ST
- +4 QUIT
- I4B ;EP
- +1 ;Q:'$D(BGPIND(10))
- +2 ;not in the simple population for denominator
- IF 'BGPDMPAT
- QUIT
- +3 IF 'BGP2BD
- QUIT
- +4 SET BGPL=10
- +5 SET V=""
- +6 ;none of the above E
- IF BGP4LP=""
- IF BGP4TG=""
- IF BGP4LDL=""
- IF BGP4HDL=""
- SET P=13
- SET V=""
- DO ST
- QUIT
- +7 IF BGP4LP
- SET P=9
- SET V="LP "
- DO ST
- GOTO LDSB
- +8 IF BGP4TG
- IF BGP4LDL
- IF BGP4HDL
- SET P=9
- SET V="HDL,LDL,TG"
- DO ST
- GOTO LDSB
- +9 IF BGP4LDL
- IF (BGP4TG!(BGP4HDL))
- SET P=10
- SET V="LDL & HDL/TG"
- DO ST
- GOTO LDSB
- +10 IF 'BGP4LDL
- SET P=11
- SET V="TG or TG/HDL"
- DO ST
- QUIT
- +11 IF BGP4LDL
- SET P=12
- SET V="LDL ONLY"
- DO ST
- GOTO LDSB
- +12 KILL BGPL
- +13 QUIT
- I4C ;EP
- +1 ;Q:'$D(BGPIND(11))
- +2 ;not in the simple population for denominator
- IF 'BGPDMPAT
- QUIT
- +3 IF 'BGP2CD
- QUIT
- +4 SET BGPL=11
- +5 SET V=""
- +6 ;none of the above E
- IF BGP4LP=""
- IF BGP4TG=""
- IF BGP4LDL=""
- IF BGP4HDL=""
- SET P=21
- SET V=""
- DO ST
- QUIT
- +7 IF BGP4LP
- SET P=17
- SET V="LP "
- DO ST
- GOTO LDSC
- +8 IF BGP4TG
- IF BGP4LDL
- IF BGP4HDL
- SET P=17
- SET V="HDL,LDL,TG"
- DO ST
- GOTO LDSC
- +9 IF BGP4LDL
- IF (BGP4TG!(BGP4HDL))
- SET P=18
- SET V="LDL & HDL/TG"
- DO ST
- GOTO LDSC
- +10 IF 'BGP4LDL
- SET P=19
- SET V="TG or TG/HDL"
- DO ST
- QUIT
- +11 IF BGP4LDL
- SET P=20
- SET V="LDL ONLY"
- DO ST
- GOTO LDSC
- +12 KILL BGPL
- +13 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
- LIPID(P,EDATE) ;
- +1 NEW %,E,D,BGPG
- +2 KILL BGPG
- +3 SET D=$$FMADD^XLFDT(EDATE,-365)
- +4 SET %=P_"^LAST LAB [DM AUDIT LIPID PROFILE TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)
- SET E=$$START1^APCLDF(%,"BGPG(")
- +5 IF $DATA(BGPG(1))
- QUIT 1
- +6 SET E=+$$CODEN^ICPTCOD(80061)
- SET %=$$CPTI^BGPDU(P,D,EDATE,E)
- +7 QUIT %
- TRIG(P,EDATE) ;
- +1 NEW %,E,D,BGPG
- +2 KILL BGPG
- +3 SET D=$$FMADD^XLFDT(EDATE,-365)
- +4 SET %=P_"^LAST LAB [DM AUDIT TRIGLYCERIDE TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)
- SET E=$$START1^APCLDF(%,"BGPG(")
- +5 IF $DATA(BGPG(1))
- QUIT 1
- +6 SET E=+$$CODEN^ICPTCOD(84478)
- SET %=$$CPTI^BGPDU(P,D,EDATE,E)
- +7 QUIT %
- HDL(P,EDATE) ;
- +1 NEW %,E,D,BGPG
- +2 KILL BGPG
- +3 SET D=$$FMADD^XLFDT(EDATE,-365)
- +4 SET %=P_"^LAST LAB [DM AUDIT HDL TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)
- SET E=$$START1^APCLDF(%,"BGPG(")
- +5 IF $DATA(BGPG(1))
- QUIT 1
- +6 QUIT ""
- LDL(P,EDATE) ;
- +1 NEW %,E,D,BGPG
- +2 KILL BGPG
- +3 SET D=$$FMADD^XLFDT(EDATE,-365)
- +4 SET %=P_"^LAST LAB [DM AUDIT LDL CHOLESTEROL TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)
- SET E=$$START1^APCLDF(%,"BGPG(")
- +5 SET %=""
- IF $DATA(BGPG(1))
- Begin DoDot:1
- +6 SET E=$PIECE(^AUPNVLAB(+$PIECE(BGPG(1),U,4),0),U,4)
- +7 IF $$UP^XLFSTR(E)="COMMENT"
- SET %=1
- QUIT
- +8 IF +E
- SET %="1^"_E
- QUIT
- +9 SET %=1
- End DoDot:1
- QUIT %
- +10 SET E=+$$CODEN^ICPTCOD(80061)
- SET %=$$CPTI^BGPDU(P,D,EDATE,E)
- +11 QUIT %
