BKMVQCR4 ;PRXM/HC/BWF - BKMV Quality of Care Report; [ 1/19/2005 7:16 PM ] ; 13 Apr 2005 4:47 PM
;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
; Quality of Care Audit Report
Q
ARVM03 ; EP - ARV Therapy
; M.03 TAXONOMIES
N ARVM03DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
S ARVM03DT=$$FMADD^XLFDT(EDATE,-183)
S SITETAX="BKMV NRTI MEDS"
S NDCTAX="BKMV NRTI MED NDCS"
S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM03"",VSTDT,TEST)"
S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM03CNT"")"
S DFN=0,@TOTPTS=0
F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
.D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM03DT,GLOBAL)
.D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM03DT,GLOBAL)
.; Store Medication refusals in same global as regular Medications.
.D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM03DT,GLOBAL)
.D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM03DT,GLOBAL)
.I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM03")) S @TOTPTS=@TOTPTS+1
Q
ARVM02 ; EP - ARV Therapy
; M.02 TAXONOMIES
N ARVM02DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
S ARVM02DT=$$FMADD^XLFDT(EDATE,-183)
S SITETAX="BKMV NNRTI MEDS"
S NDCTAX="BKMV NNRTI MED NDCS"
S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM02"",VSTDT,TEST)"
S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM02CNT"")"
S DFN=0,@TOTPTS=0
F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
.D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM02DT,GLOBAL)
.D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM02DT,GLOBAL)
.; Store Medication refusals in same global as regular Medications.
.D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM02DT,GLOBAL)
.D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM02DT,GLOBAL)
.I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM02")) S @TOTPTS=@TOTPTS+1
Q
ARVM05 ; EP - ARV Therapy
; M.05 TAXONOMIES
N ARVM05DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
S ARVM05DT=$$FMADD^XLFDT(EDATE,-183)
S SITETAX="BKMV PI MEDS"
S NDCTAX="BKMV PI MED NDCS"
S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM05"",VSTDT,TEST)"
S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM05CNT"")"
S DFN=0,@TOTPTS=0
F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
.D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM05DT,GLOBAL)
.D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM05DT,GLOBAL)
.; Store Medication refusals in same global as regular Medications.
.D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM05DT,GLOBAL)
.D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM05DT,GLOBAL)
.I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM05")) S @TOTPTS=@TOTPTS+1
Q
PCP ; EP - PCP Prophylaxis
N SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
S SITETAX="BKMV PCP PROPH MEDS"
S NDCTAX="BKMV PCP PROPH MED NDCS"
S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""PCP"",VSTDT,TEST)"
S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""PCPPTCNT"")"
S DFN=0,@TOTPTS=0
F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
.I '$D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS")) Q
.S VSTDT=""
.S FOUND=0
.; Find earliest CD4 Absolute with results between 50 and 199.
.F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT)) Q:VSTDT="" D Q:FOUND
..S TEST=""
..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)) Q:TEST="" D Q:FOUND
...S RESULT=$P($G(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)),U)
...I RESULT="" Q
...I RESULT'<200 Q
...I RESULT<50 Q
...S FOUND=1
.I 'FOUND Q
.; select meds prescribed since the defined CD4 visit
.D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
.D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
.I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"PCP")) S @TOTPTS=@TOTPTS+1
Q
MAC ; EP - MAC Prophylaxis
N SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
S SITETAX="BKMV MAC PROPH MEDS"
S NDCTAX="BKMV MAC PROPH MED NDCS"
S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""MAC"",VSTDT,TEST)"
S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""MACPTCNT"")"
S DFN=0,@TOTPTS=0
F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
.I '$D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS")) Q
.S VSTDT=""
.S FOUND=0
.; Find earliest CD4 Absolute with results less than 50.
.F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT)) Q:VSTDT="" D Q:FOUND
..S TEST=""
..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)) Q:TEST="" D Q:FOUND
...S RESULT=$G(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST))
...I RESULT="" Q
...I RESULT'<50 Q
...S FOUND=1
.I 'FOUND Q
.; select meds prescribed since the defined CD4 visit
.D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
.D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
.I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"MAC")) S @TOTPTS=@TOTPTS+1
Q
BKMVQCR4 ;PRXM/HC/BWF - BKMV Quality of Care Report; [ 1/19/2005 7:16 PM ] ; 13 Apr 2005 4:47 PM
+1 ;;2.1;HIV MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ; Quality of Care Audit Report
+3 QUIT
ARVM03 ; EP - ARV Therapy
+1 ; M.03 TAXONOMIES
+2 NEW ARVM03DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
+3 SET ARVM03DT=$$FMADD^XLFDT(EDATE,-183)
+4 SET SITETAX="BKMV NRTI MEDS"
+5 SET NDCTAX="BKMV NRTI MED NDCS"
+6 SET GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM03"",VSTDT,TEST)"
+7 SET TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM03CNT"")"
+8 SET DFN=0
SET @TOTPTS=0
+9 FOR
SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
IF 'DFN
QUIT
Begin DoDot:1
+10 DO MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM03DT,GLOBAL)
+11 DO NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM03DT,GLOBAL)
+12 ; Store Medication refusals in same global as regular Medications.
+13 DO REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM03DT,GLOBAL)
+14 DO REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM03DT,GLOBAL)
+15 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM03"))
SET @TOTPTS=@TOTPTS+1
End DoDot:1
+16 QUIT
ARVM02 ; EP - ARV Therapy
+1 ; M.02 TAXONOMIES
+2 NEW ARVM02DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
+3 SET ARVM02DT=$$FMADD^XLFDT(EDATE,-183)
+4 SET SITETAX="BKMV NNRTI MEDS"
+5 SET NDCTAX="BKMV NNRTI MED NDCS"
+6 SET GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM02"",VSTDT,TEST)"
+7 SET TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM02CNT"")"
+8 SET DFN=0
SET @TOTPTS=0
+9 FOR
SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
IF 'DFN
QUIT
Begin DoDot:1
+10 DO MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM02DT,GLOBAL)
+11 DO NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM02DT,GLOBAL)
+12 ; Store Medication refusals in same global as regular Medications.
+13 DO REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM02DT,GLOBAL)
+14 DO REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM02DT,GLOBAL)
+15 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM02"))
SET @TOTPTS=@TOTPTS+1
End DoDot:1
+16 QUIT
ARVM05 ; EP - ARV Therapy
+1 ; M.05 TAXONOMIES
+2 NEW ARVM05DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
+3 SET ARVM05DT=$$FMADD^XLFDT(EDATE,-183)
+4 SET SITETAX="BKMV PI MEDS"
+5 SET NDCTAX="BKMV PI MED NDCS"
+6 SET GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM05"",VSTDT,TEST)"
+7 SET TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM05CNT"")"
+8 SET DFN=0
SET @TOTPTS=0
+9 FOR
SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
IF 'DFN
QUIT
Begin DoDot:1
+10 DO MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM05DT,GLOBAL)
+11 DO NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM05DT,GLOBAL)
+12 ; Store Medication refusals in same global as regular Medications.
+13 DO REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM05DT,GLOBAL)
+14 DO REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM05DT,GLOBAL)
+15 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"ARVM05"))
SET @TOTPTS=@TOTPTS+1
End DoDot:1
+16 QUIT
PCP ; EP - PCP Prophylaxis
+1 NEW SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
+2 SET SITETAX="BKMV PCP PROPH MEDS"
+3 SET NDCTAX="BKMV PCP PROPH MED NDCS"
+4 SET GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""PCP"",VSTDT,TEST)"
+5 SET TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""PCPPTCNT"")"
+6 SET DFN=0
SET @TOTPTS=0
+7 FOR
SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
IF 'DFN
QUIT
Begin DoDot:1
+8 IF '$DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS"))
QUIT
+9 SET VSTDT=""
+10 SET FOUND=0
+11 ; Find earliest CD4 Absolute with results between 50 and 199.
+12 FOR
SET VSTDT=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT))
IF VSTDT=""
QUIT
Begin DoDot:2
+13 SET TEST=""
+14 FOR
SET TEST=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST))
IF TEST=""
QUIT
Begin DoDot:3
+15 SET RESULT=$PIECE($GET(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)),U)
+16 IF RESULT=""
QUIT
+17 IF RESULT'<200
QUIT
+18 IF RESULT<50
QUIT
+19 SET FOUND=1
End DoDot:3
IF FOUND
QUIT
End DoDot:2
IF FOUND
QUIT
+20 IF 'FOUND
QUIT
+21 ; select meds prescribed since the defined CD4 visit
+22 DO MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
+23 DO NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
+24 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"PCP"))
SET @TOTPTS=@TOTPTS+1
End DoDot:1
+25 QUIT
MAC ; EP - MAC Prophylaxis
+1 NEW SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
+2 SET SITETAX="BKMV MAC PROPH MEDS"
+3 SET NDCTAX="BKMV MAC PROPH MED NDCS"
+4 SET GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""MAC"",VSTDT,TEST)"
+5 SET TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""MACPTCNT"")"
+6 SET DFN=0
SET @TOTPTS=0
+7 FOR
SET DFN=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN))
IF 'DFN
QUIT
Begin DoDot:1
+8 IF '$DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS"))
QUIT
+9 SET VSTDT=""
+10 SET FOUND=0
+11 ; Find earliest CD4 Absolute with results less than 50.
+12 FOR
SET VSTDT=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT))
IF VSTDT=""
QUIT
Begin DoDot:2
+13 SET TEST=""
+14 FOR
SET TEST=$ORDER(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST))
IF TEST=""
QUIT
Begin DoDot:3
+15 SET RESULT=$GET(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST))
+16 IF RESULT=""
QUIT
+17 IF RESULT'<50
QUIT
+18 SET FOUND=1
End DoDot:3
IF FOUND
QUIT
End DoDot:2
IF FOUND
QUIT
+19 IF 'FOUND
QUIT
+20 ; select meds prescribed since the defined CD4 visit
+21 DO MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
+22 DO NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
+23 IF $DATA(^TMP("BKMVQCR",$JOB,"HIVCHK",DFN,"MAC"))
SET @TOTPTS=@TOTPTS+1
End DoDot:1
+24 QUIT
