- BKMVQCR9 ;PRXM/HC/BWF - BKMV Quality of Care Report; [ 1/19/2005 7:16 PM ]
- ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
- ; Quality of Care Audit Report
- Q
- ARVCALC ; EP - ARV Calculation
- N ARVTOT,DFN,PTOTAL,CNT1,CNT2,CNT3,VSTDT,TEST,CNTM02,CNTM03,CNTM05
- S PTOTAL=$G(^TMP("BKMVQCR",$J,"HIVTOT1"))
- S ARVTOT=0,DFN=0,(CNT1,CNT2,CNT3)=0
- F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
- .S VSTDT="",CNTM02=0,CNTM03=0,CNTM05=0
- .F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM02",VSTDT)) Q:VSTDT="" D
- ..S TEST=""
- ..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM02",VSTDT,TEST)) Q:TEST="" S CNTM02=CNTM02+1
- .F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM03",VSTDT)) Q:VSTDT="" D
- ..S TEST=""
- ..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM03",VSTDT,TEST)) Q:TEST="" S CNTM03=CNTM03+1
- .F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM05",VSTDT)) Q:VSTDT="" D
- ..S TEST=""
- ..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM05",VSTDT,TEST)) Q:TEST="" S CNTM05=CNTM05+1
- .I CNTM02+CNTM03+CNTM05=0 Q
- .S ARVTOT=ARVTOT+1
- .I CNTM02+CNTM03+CNTM05=1 S CNT2=CNT2+1 Q
- .; 3 different criteria will classify medications as HAART
- .I CNTM03>2 S CNT1=CNT1+1 Q
- .I CNTM05>1,CNTM03>0 S CNT1=CNT1+1 Q
- .I CNTM03>1,CNTM02+CNTM05>0 S CNT1=CNT1+1 Q
- .S CNT3=CNT3+1
- I ARVTOT=0 Q
- S ^TMP("BKMVQCR",$J,"ARVT","TOTAL","CNT")=ARVTOT
- S ^TMP("BKMVQCR",$J,"ARVT","TOTAL","PERC")=ARVTOT/PTOTAL*100
- S ^TMP("BKMVQCR",$J,"ARVT","HAART","CNT")=CNT1
- S ^TMP("BKMVQCR",$J,"ARVT","HAART","PERC")=CNT1/ARVTOT*100
- S ^TMP("BKMVQCR",$J,"ARVT","MONO","CNT")=CNT2
- S ^TMP("BKMVQCR",$J,"ARVT","MONO","PERC")=CNT2/ARVTOT*100
- S ^TMP("BKMVQCR",$J,"ARVT","OTHER","CNT")=CNT3
- S ^TMP("BKMVQCR",$J,"ARVT","OTHER","PERC")=CNT3/ARVTOT*100
- Q
- PCP ; EP - PCP Calculation
- N PCPTOT,CD4TOT
- S CD4TOT=$G(^TMP("BKMVQCR",$J,"CD4T","BET50/200 ANY","CNT"))
- I CD4TOT<1 Q
- S PCPTOT=$G(^TMP("BKMVQCR",$J,"HIVCHK","PCPPTCNT"))
- S ^TMP("BKMVQCR",$J,"PCPT","TOTAL","CNT")=PCPTOT
- S ^TMP("BKMVQCR",$J,"PCPT","TOTAL","PERC")=PCPTOT/CD4TOT*100
- Q
- MAC ; EP - MAC Calculation
- N MACTOT,CD4TOT
- S CD4TOT=$G(^TMP("BKMVQCR",$J,"CD4T","LT50 ANY","CNT"))
- I CD4TOT<1 Q
- S MACTOT=$G(^TMP("BKMVQCR",$J,"HIVCHK","MACPTCNT"))
- S ^TMP("BKMVQCR",$J,"MACT","TOTAL","CNT")=MACTOT
- S ^TMP("BKMVQCR",$J,"MACT","TOTAL","PERC")=MACTOT/CD4TOT*100
- Q
- TOBCALC ; EP - Tobacco use Calculation
- N DFN,CNT1,CNT2,CNT3,CNT4,PTOTAL,TOBTOT
- S PTOTAL=$G(^TMP("BKMVQCR",$J,"HIVTOT1"))
- I PTOTAL=0 Q
- S TOBTOT=$G(^TMP("BKMVQCR",$J,"HIVCHK","TOBTOT"))
- I TOBTOT<1 Q
- S DFN=0,(CNT1,CNT2,CNT3,CNT4)=0
- F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
- .I '$D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"TOB")) Q ; Only sub-total those who have been screened
- .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"TOBUSER")) S CNT1=CNT1+1 D Q ; Current Tobacco User
- ..;Only count tobacco counseling on current tobacco users
- ..I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"TOBED")) S CNT2=CNT2+1
- ..Q
- .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"TOBNONUSER")) S CNT3=CNT3+1 Q ; Non-Current Tobacco User
- .S CNT4=CNT4+1 ; Screened, but not documented as to Current or Non-Current Tobacco User
- S ^TMP("BKMVQCR",$J,"TOBT","SCREEN","CNT")=TOBTOT
- S ^TMP("BKMVQCR",$J,"TOBT","SCREEN","PERC")=TOBTOT/PTOTAL*100
- S ^TMP("BKMVQCR",$J,"TOBT","USER","CNT")=CNT1
- S ^TMP("BKMVQCR",$J,"TOBT","USER","PERC")=CNT1/TOBTOT*100
- S ^TMP("BKMVQCR",$J,"TOBT","ED","CNT")=CNT2
- S ^TMP("BKMVQCR",$J,"TOBT","ED","PERC")=CNT2/TOBTOT*100
- S ^TMP("BKMVQCR",$J,"TOBT","NON","CNT")=CNT3
- S ^TMP("BKMVQCR",$J,"TOBT","NON","PERC")=CNT3/TOBTOT*100
- S ^TMP("BKMVQCR",$J,"TOBT","UNK","CNT")=CNT4
- S ^TMP("BKMVQCR",$J,"TOBT","UNK","PERC")=CNT4/TOBTOT*100
- Q
- SUBCALC ; EP - Substance abuse Calculation
- N DFN,PTOTAL,CNT1,CNT2,CNT3,CNT4
- S PTOTAL=$G(^TMP("BKMVQCR",$J,"HIVTOT1"))
- I PTOTAL=0 Q
- S DFN=0,CNT1=0,CNT2=0
- F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
- . I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"SUBS01")) S CNT1=CNT1+1
- I CNT1<1 Q
- S DFN=0
- F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
- . I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"SUBS01CURR")) S CNT2=CNT2+1
- ; No info on how to calculate 'Not Current', or 'IV'. Assume 0 for now.
- S CNT3=0,CNT4=0
- S ^TMP("BKMVQCR",$J,"SUBST","TOTAL","CNT")=CNT1
- S ^TMP("BKMVQCR",$J,"SUBST","TOTAL","PERC")=CNT1/PTOTAL*100
- S ^TMP("BKMVQCR",$J,"SUBST","CURRENT","CNT")=CNT2
- S ^TMP("BKMVQCR",$J,"SUBST","CURRENT","PERC")=CNT2/CNT1*100
- ; Can't calculate yet.
- ;S ^TMP("BKMVQCR",$J,"SUBST","IV","CNT")=CNT3
- ;S ^TMP("BKMVQCR",$J,"SUBST","IV","PERC")=CNT3/CNT2*100
- ;S ^TMP("BKMVQCR",$J,"SUBST","NOT","CNT")=CNT4
- ;S ^TMP("BKMVQCR",$J,"SUBST","NOT","PERC")=CNT4/CNT1*100
- S ^TMP("BKMVQCR",$J,"SUBST","UNK","CNT")=CNT1-(CNT2+CNT4)
- S ^TMP("BKMVQCR",$J,"SUBST","UNK","PERC")=CNT1-(CNT2+CNT4)/CNT1*100
- Q
- BKMVQCR9 ;PRXM/HC/BWF - BKMV Quality of Care Report; [ 1/19/2005 7:16 PM ]
- +1 ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
- +2 ; Quality of Care Audit Report
- +3 QUIT
- ARVCALC ; EP - ARV Calculation
- +1 NEW ARVTOT,DFN,PTOTAL,CNT1,CNT2,CNT3,VSTDT,TEST,CNTM02,CNTM03,CNTM05
- +2 SET PTOTAL=$GET(^TMP("BKMVQCR",$JOB,"HIVTOT1"))
- +3 SET ARVTOT=0
- SET DFN=0
- SET (CNT1,CNT2,CNT3)=0
- +4 FOR
- SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
- IF 'DFN
- QUIT
- Begin DoDot:1
- +5 SET VSTDT=""
- SET CNTM02=0
- SET CNTM03=0
- SET CNTM05=0
- +6 FOR
- SET VSTDT=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM02",VSTDT))
- IF VSTDT=""
- QUIT
- Begin DoDot:2
- +7 SET TEST=""
- +8 FOR
- SET TEST=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM02",VSTDT,TEST))
- IF TEST=""
- QUIT
- SET CNTM02=CNTM02+1
- End DoDot:2
- +9 FOR
- SET VSTDT=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM03",VSTDT))
- IF VSTDT=""
- QUIT
- Begin DoDot:2
- +10 SET TEST=""
- +11 FOR
- SET TEST=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM03",VSTDT,TEST))
- IF TEST=""
- QUIT
- SET CNTM03=CNTM03+1
- End DoDot:2
- +12 FOR
- SET VSTDT=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM05",VSTDT))
- IF VSTDT=""
- QUIT
- Begin DoDot:2
- +13 SET TEST=""
- +14 FOR
- SET TEST=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM05",VSTDT,TEST))
- IF TEST=""
- QUIT
- SET CNTM05=CNTM05+1
- End DoDot:2
- +15 IF CNTM02+CNTM03+CNTM05=0
- QUIT
- +16 SET ARVTOT=ARVTOT+1
- +17 IF CNTM02+CNTM03+CNTM05=1
- SET CNT2=CNT2+1
- QUIT
- +18 ; 3 different criteria will classify medications as HAART
- +19 IF CNTM03>2
- SET CNT1=CNT1+1
- QUIT
- +20 IF CNTM05>1
- IF CNTM03>0
- SET CNT1=CNT1+1
- QUIT
- +21 IF CNTM03>1
- IF CNTM02+CNTM05>0
- SET CNT1=CNT1+1
- QUIT
- +22 SET CNT3=CNT3+1
- End DoDot:1
- +23 IF ARVTOT=0
- QUIT
- +24 SET ^TMP("BKMVQCR",$JOB,"ARVT","TOTAL","CNT")=ARVTOT
- +25 SET ^TMP("BKMVQCR",$JOB,"ARVT","TOTAL","PERC")=ARVTOT/PTOTAL*100
- +26 SET ^TMP("BKMVQCR",$JOB,"ARVT","HAART","CNT")=CNT1
- +27 SET ^TMP("BKMVQCR",$JOB,"ARVT","HAART","PERC")=CNT1/ARVTOT*100
- +28 SET ^TMP("BKMVQCR",$JOB,"ARVT","MONO","CNT")=CNT2
- +29 SET ^TMP("BKMVQCR",$JOB,"ARVT","MONO","PERC")=CNT2/ARVTOT*100
- +30 SET ^TMP("BKMVQCR",$JOB,"ARVT","OTHER","CNT")=CNT3
- +31 SET ^TMP("BKMVQCR",$JOB,"ARVT","OTHER","PERC")=CNT3/ARVTOT*100
- +32 QUIT
- PCP ; EP - PCP Calculation
- +1 NEW PCPTOT,CD4TOT
- +2 SET CD4TOT=$GET(^TMP("BKMVQCR",$JOB,"CD4T","BET50/200 ANY","CNT"))
- +3 IF CD4TOT<1
- QUIT
- +4 SET PCPTOT=$GET(^TMP("BKMVQCR",$JOB,"HIVCHK","PCPPTCNT"))
- +5 SET ^TMP("BKMVQCR",$JOB,"PCPT","TOTAL","CNT")=PCPTOT
- +6 SET ^TMP("BKMVQCR",$JOB,"PCPT","TOTAL","PERC")=PCPTOT/CD4TOT*100
- +7 QUIT
- MAC ; EP - MAC Calculation
- +1 NEW MACTOT,CD4TOT
- +2 SET CD4TOT=$GET(^TMP("BKMVQCR",$JOB,"CD4T","LT50 ANY","CNT"))
- +3 IF CD4TOT<1
- QUIT
- +4 SET MACTOT=$GET(^TMP("BKMVQCR",$JOB,"HIVCHK","MACPTCNT"))
- +5 SET ^TMP("BKMVQCR",$JOB,"MACT","TOTAL","CNT")=MACTOT
- +6 SET ^TMP("BKMVQCR",$JOB,"MACT","TOTAL","PERC")=MACTOT/CD4TOT*100
- +7 QUIT
- TOBCALC ; EP - Tobacco use Calculation
- +1 NEW DFN,CNT1,CNT2,CNT3,CNT4,PTOTAL,TOBTOT
- +2 SET PTOTAL=$GET(^TMP("BKMVQCR",$JOB,"HIVTOT1"))
- +3 IF PTOTAL=0
- QUIT
- +4 SET TOBTOT=$GET(^TMP("BKMVQCR",$JOB,"HIVCHK","TOBTOT"))
- +5 IF TOBTOT<1
- QUIT
- +6 SET DFN=0
- SET (CNT1,CNT2,CNT3,CNT4)=0
- +7 FOR
- SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
- IF 'DFN
- QUIT
- Begin DoDot:1
- +8 ; Only sub-total those who have been screened
- IF '$DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"TOB"))
- QUIT
- +9 ; Current Tobacco User
- IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"TOBUSER"))
- SET CNT1=CNT1+1
- Begin DoDot:2
- +10 ;Only count tobacco counseling on current tobacco users
- +11 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"TOBED"))
- SET CNT2=CNT2+1
- +12 QUIT
- End DoDot:2
- QUIT
- +13 ; Non-Current Tobacco User
- IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"TOBNONUSER"))
- SET CNT3=CNT3+1
- QUIT
- +14 ; Screened, but not documented as to Current or Non-Current Tobacco User
- SET CNT4=CNT4+1
- End DoDot:1
- +15 SET ^TMP("BKMVQCR",$JOB,"TOBT","SCREEN","CNT")=TOBTOT
- +16 SET ^TMP("BKMVQCR",$JOB,"TOBT","SCREEN","PERC")=TOBTOT/PTOTAL*100
- +17 SET ^TMP("BKMVQCR",$JOB,"TOBT","USER","CNT")=CNT1
- +18 SET ^TMP("BKMVQCR",$JOB,"TOBT","USER","PERC")=CNT1/TOBTOT*100
- +19 SET ^TMP("BKMVQCR",$JOB,"TOBT","ED","CNT")=CNT2
- +20 SET ^TMP("BKMVQCR",$JOB,"TOBT","ED","PERC")=CNT2/TOBTOT*100
- +21 SET ^TMP("BKMVQCR",$JOB,"TOBT","NON","CNT")=CNT3
- +22 SET ^TMP("BKMVQCR",$JOB,"TOBT","NON","PERC")=CNT3/TOBTOT*100
- +23 SET ^TMP("BKMVQCR",$JOB,"TOBT","UNK","CNT")=CNT4
- +24 SET ^TMP("BKMVQCR",$JOB,"TOBT","UNK","PERC")=CNT4/TOBTOT*100
- +25 QUIT
- SUBCALC ; EP - Substance abuse Calculation
- +1 NEW DFN,PTOTAL,CNT1,CNT2,CNT3,CNT4
- +2 SET PTOTAL=$GET(^TMP("BKMVQCR",$JOB,"HIVTOT1"))
- +3 IF PTOTAL=0
- QUIT
- +4 SET DFN=0
- SET CNT1=0
- SET CNT2=0
- +5 FOR
- SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
- IF 'DFN
- QUIT
- Begin DoDot:1
- +6 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"SUBS01"))
- SET CNT1=CNT1+1
- End DoDot:1
- +7 IF CNT1<1
- QUIT
- +8 SET DFN=0
- +9 FOR
- SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
- IF 'DFN
- QUIT
- Begin DoDot:1
- +10 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"SUBS01CURR"))
- SET CNT2=CNT2+1
- End DoDot:1
- +11 ; No info on how to calculate 'Not Current', or 'IV'. Assume 0 for now.
- +12 SET CNT3=0
- SET CNT4=0
- +13 SET ^TMP("BKMVQCR",$JOB,"SUBST","TOTAL","CNT")=CNT1
- +14 SET ^TMP("BKMVQCR",$JOB,"SUBST","TOTAL","PERC")=CNT1/PTOTAL*100
- +15 SET ^TMP("BKMVQCR",$JOB,"SUBST","CURRENT","CNT")=CNT2
- +16 SET ^TMP("BKMVQCR",$JOB,"SUBST","CURRENT","PERC")=CNT2/CNT1*100
- +17 ; Can't calculate yet.
- +18 ;S ^TMP("BKMVQCR",$J,"SUBST","IV","CNT")=CNT3
- +19 ;S ^TMP("BKMVQCR",$J,"SUBST","IV","PERC")=CNT3/CNT2*100
- +20 ;S ^TMP("BKMVQCR",$J,"SUBST","NOT","CNT")=CNT4
- +21 ;S ^TMP("BKMVQCR",$J,"SUBST","NOT","PERC")=CNT4/CNT1*100
- +22 SET ^TMP("BKMVQCR",$JOB,"SUBST","UNK","CNT")=CNT1-(CNT2+CNT4)
- +23 SET ^TMP("BKMVQCR",$JOB,"SUBST","UNK","PERC")=CNT1-(CNT2+CNT4)/CNT1*100
- +24 QUIT
