Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BKMVQCR4

BKMVQCR4.m

Go to the documentation of this file.
  1. 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
  1. ; Quality of Care Audit Report
  1. Q
  1. ARVM03 ; EP - ARV Therapy
  1. ; M.03 TAXONOMIES
  1. N ARVM03DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
  1. S ARVM03DT=$$FMADD^XLFDT(EDATE,-183)
  1. S SITETAX="BKMV NRTI MEDS"
  1. S NDCTAX="BKMV NRTI MED NDCS"
  1. S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM03"",VSTDT,TEST)"
  1. S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM03CNT"")"
  1. S DFN=0,@TOTPTS=0
  1. F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
  1. .D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM03DT,GLOBAL)
  1. .D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM03DT,GLOBAL)
  1. .; Store Medication refusals in same global as regular Medications.
  1. .D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM03DT,GLOBAL)
  1. .D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM03DT,GLOBAL)
  1. .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM03")) S @TOTPTS=@TOTPTS+1
  1. Q
  1. ARVM02 ; EP - ARV Therapy
  1. ; M.02 TAXONOMIES
  1. N ARVM02DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
  1. S ARVM02DT=$$FMADD^XLFDT(EDATE,-183)
  1. S SITETAX="BKMV NNRTI MEDS"
  1. S NDCTAX="BKMV NNRTI MED NDCS"
  1. S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM02"",VSTDT,TEST)"
  1. S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM02CNT"")"
  1. S DFN=0,@TOTPTS=0
  1. F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
  1. .D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM02DT,GLOBAL)
  1. .D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM02DT,GLOBAL)
  1. .; Store Medication refusals in same global as regular Medications.
  1. .D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM02DT,GLOBAL)
  1. .D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM02DT,GLOBAL)
  1. .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM02")) S @TOTPTS=@TOTPTS+1
  1. Q
  1. ARVM05 ; EP - ARV Therapy
  1. ; M.05 TAXONOMIES
  1. N ARVM05DT,SITETAX,NDCTAX,GLOBAL,TOTPTS,DFN
  1. S ARVM05DT=$$FMADD^XLFDT(EDATE,-183)
  1. S SITETAX="BKMV PI MEDS"
  1. S NDCTAX="BKMV PI MED NDCS"
  1. S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""ARVM05"",VSTDT,TEST)"
  1. S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""ARVM05CNT"")"
  1. S DFN=0,@TOTPTS=0
  1. F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
  1. .D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,ARVM05DT,GLOBAL)
  1. .D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,ARVM05DT,GLOBAL)
  1. .; Store Medication refusals in same global as regular Medications.
  1. .D REFUSAL^BKMIXX2(DFN,50,SITETAX,EDATE,ARVM05DT,GLOBAL)
  1. .D REFUSAL^BKMIXX2(DFN,50,NDCTAX,EDATE,ARVM05DT,GLOBAL)
  1. .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"ARVM05")) S @TOTPTS=@TOTPTS+1
  1. Q
  1. PCP ; EP - PCP Prophylaxis
  1. N SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
  1. S SITETAX="BKMV PCP PROPH MEDS"
  1. S NDCTAX="BKMV PCP PROPH MED NDCS"
  1. S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""PCP"",VSTDT,TEST)"
  1. S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""PCPPTCNT"")"
  1. S DFN=0,@TOTPTS=0
  1. F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
  1. .I '$D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS")) Q
  1. .S VSTDT=""
  1. .S FOUND=0
  1. .; Find earliest CD4 Absolute with results between 50 and 199.
  1. .F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT)) Q:VSTDT="" D Q:FOUND
  1. ..S TEST=""
  1. ..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)) Q:TEST="" D Q:FOUND
  1. ...S RESULT=$P($G(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)),U)
  1. ...I RESULT="" Q
  1. ...I RESULT'<200 Q
  1. ...I RESULT<50 Q
  1. ...S FOUND=1
  1. .I 'FOUND Q
  1. .; select meds prescribed since the defined CD4 visit
  1. .D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
  1. .D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
  1. .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"PCP")) S @TOTPTS=@TOTPTS+1
  1. Q
  1. MAC ; EP - MAC Prophylaxis
  1. N SITETAX,NDCTAX,GLOBAL,DFN,VSTDT,TEST,RESULT,TOTPTS,FOUND
  1. S SITETAX="BKMV MAC PROPH MEDS"
  1. S NDCTAX="BKMV MAC PROPH MED NDCS"
  1. S GLOBAL="^TMP(""BKMVQCR"",$J,""HIVCHK"",DFN,""MAC"",VSTDT,TEST)"
  1. S TOTPTS="^TMP(""BKMVQCR"",$J,""HIVCHK"",""MACPTCNT"")"
  1. S DFN=0,@TOTPTS=0
  1. F S DFN=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN)) Q:'DFN D
  1. .I '$D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS")) Q
  1. .S VSTDT=""
  1. .S FOUND=0
  1. .; Find earliest CD4 Absolute with results less than 50.
  1. .F S VSTDT=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT)) Q:VSTDT="" D Q:FOUND
  1. ..S TEST=""
  1. ..F S TEST=$O(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST)) Q:TEST="" D Q:FOUND
  1. ...S RESULT=$G(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"CD4ABS",VSTDT,TEST))
  1. ...I RESULT="" Q
  1. ...I RESULT'<50 Q
  1. ...S FOUND=1
  1. .I 'FOUND Q
  1. .; select meds prescribed since the defined CD4 visit
  1. .D MEDTAX^BKMIXX(DFN,SITETAX,EDATE,VSTDT,GLOBAL)
  1. .D NDCTAX^BKMIXX1(DFN,NDCTAX,EDATE,VSTDT,GLOBAL)
  1. .I $D(^TMP("BKMVQCR",$J,"HIVCHK",DFN,"MAC")) S @TOTPTS=@TOTPTS+1
  1. Q