BDMDG2.m

BDMDG2 ; IHS/CMI/LAB - IHS Diabetes Audit 2019 ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**12**;JUN 14, 2007;Build 51

 ;

 ;W:$D(IOF) @IOF

REGASK ;

 W !,$$CTR("ASSESSMENT OF DIABETES CARE, 2019")

 W !,$$CTR("DIABETES E-AUDIT")

 W !!,"This option is used to run the 2019 Electronic Diabetes Audit for a"

 W !,"predefined set of patients.  The patients selected are 'Active Diabetic"

 W !,"Patients' as defined by the Clinical Reporting system (GPRA).  In "

 W !,"addition you can optionally only include the patient if they are an"

 W !,"active member of the Diabetes register."

 W !,"The definition used to select patients is the following:"

 W !?3,"1. Must reside in a community specified in the official GPRA "

 W !?6,"community taxonomy."

 W !?3,"2. Must be alive on the audit date."

 W !?3,"3. Indian/Alaska Natives Only - based on Classification of 01."

 W !?3,"4. Must have 2 visits to medical clinics in the 3 years prior to the"

 W !?6,"audit date. At least one visit must include: 01 General,"

 W !?6,"06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med,"

 W !?6,"20 Pediatrics, 24 Well Child, 28 Family Practice, 57 EPSDT,"

 W !?6,"70 Women's Health, 80 Urgent, 89 Evening."

 W !?3,"5. The patient must have been diagnosed with diabetes at"

 W !?6,"least 1 year prior to the audit date."

 W !?3,"6. The patient must have had at least 2 visits during the"

 W !?6,"year prior to the Audit date, AND 2 DM-related visits ever."

 W !

 K DIR S DIR(0)="E",DIR("A")="Please press enter to continue" D ^DIR K DIR

 W !!

COMM ;get gpra community taxonomy

 W !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report.  You should have created this taxonomy using QMAN.",!

 K BDMTAX

 S BDMTAXI=""

 D ^XBFMK

 S DIC("S")="I $P(^(0),U,15)=9999999.05",DIC="^ATXAX(",DIC(0)="AEMQ",DIC("A")="Enter the Name of the Community Taxonomy: "

 S B=$P($G(^BGPSITE(DUZ(2),0)),U,5) I B S DIC("B")=$P(^ATXAX(B,0),U)

 D ^DIC K DIC

 I Y=-1 Q

 S BDMTAXI=+Y

COM1 S X=0

 F  S X=$O(^ATXAX(BDMTAXI,21,X)) Q:'X  D

 .S BDMTAX($P(^ATXAX(BDMTAXI,21,X,0),U))=""

 .Q

 I '$D(BDMTAX) W !!,"There are no communities in that taxonomy." G COMM

BEN ;

 S BDMBEN=1

ACT ;

 S BDMACTI=0 I BDMDMRG="" Q

 S DIR(0)="Y",DIR("A")="Include only ACTIVE members of the "_$P(^ACM(41.1,BDMDMRG,0),U)_" register",DIR("B")="N" KILL DA

 D ^DIR KILL DIR

 I $D(DIRUT) G COMM

 S BDMACTI=Y

PREG ;

 S BDMPREG="",BDMSTP=0

 S DIR(0)="S^I:Include Pregnant Patients;E:Exclude Pregnant Patients",DIR("A")="Select whether to include or exclude pregnant patients in the audit"

 S DIR("B")="E" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) G ACT

 S BDMPREG=Y

 Q

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

BDMDG2    ; IHS/CMI/LAB - IHS Diabetes Audit 2019 ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**12**;JUN 14, 2007;Build 51

 +2       ;

 +3       ;W:$D(IOF) @IOF

REGASK    ;

 +1        WRITE !,$$CTR("ASSESSMENT OF DIABETES CARE, 2019")

 +2        WRITE !,$$CTR("DIABETES E-AUDIT")

 +3        WRITE !!,"This option is used to run the 2019 Electronic Diabetes Audit for a"

 +4        WRITE !,"predefined set of patients.  The patients selected are 'Active Diabetic"

 +5        WRITE !,"Patients' as defined by the Clinical Reporting system (GPRA).  In "

 +6        WRITE !,"addition you can optionally only include the patient if they are an"

 +7        WRITE !,"active member of the Diabetes register."

 +8        WRITE !,"The definition used to select patients is the following:"

 +9        WRITE !?3,"1. Must reside in a community specified in the official GPRA "

 +10       WRITE !?6,"community taxonomy."

 +11       WRITE !?3,"2. Must be alive on the audit date."

 +12       WRITE !?3,"3. Indian/Alaska Natives Only - based on Classification of 01."

 +13       WRITE !?3,"4. Must have 2 visits to medical clinics in the 3 years prior to the"

 +14       WRITE !?6,"audit date. At least one visit must include: 01 General,"

 +15       WRITE !?6,"06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med,"

 +16       WRITE !?6,"20 Pediatrics, 24 Well Child, 28 Family Practice, 57 EPSDT,"

 +17       WRITE !?6,"70 Women's Health, 80 Urgent, 89 Evening."

 +18       WRITE !?3,"5. The patient must have been diagnosed with diabetes at"

 +19       WRITE !?6,"least 1 year prior to the audit date."

 +20       WRITE !?3,"6. The patient must have had at least 2 visits during the"

 +21       WRITE !?6,"year prior to the Audit date, AND 2 DM-related visits ever."

 +22       WRITE !

 +23       KILL DIR

           SET DIR(0)="E"

           SET DIR("A")="Please press enter to continue"

           DO ^DIR

           KILL DIR

 +24       WRITE !!

COMM      ;get gpra community taxonomy

 +1        WRITE !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report.  You should have created this taxonomy using QMAN.",!

 +2        KILL BDMTAX

 +3        SET BDMTAXI=""

 +4        DO ^XBFMK

 +5        SET DIC("S")="I $P(^(0),U,15)=9999999.05"

           SET DIC="^ATXAX("

           SET DIC(0)="AEMQ"

           SET DIC("A")="Enter the Name of the Community Taxonomy: "

 +6        SET B=$PIECE($GET(^BGPSITE(DUZ(2),0)),U,5)

           IF B

               SET DIC("B")=$PIECE(^ATXAX(B,0),U)

 +7        DO ^DIC

           KILL DIC

 +8        IF Y=-1

               QUIT 

 +9        SET BDMTAXI=+Y

COM1       SET X=0

 +1        FOR 

               SET X=$ORDER(^ATXAX(BDMTAXI,21,X))

               IF 'X

                   QUIT 

               Begin DoDot:1

 +2                SET BDMTAX($PIECE(^ATXAX(BDMTAXI,21,X,0),U))=""

 +3                QUIT 

               End DoDot:1

 +4        IF '$DATA(BDMTAX)

               WRITE !!,"There are no communities in that taxonomy."

               GOTO COMM

BEN       ;

 +1        SET BDMBEN=1

ACT       ;

 +1        SET BDMACTI=0

           IF BDMDMRG=""

               QUIT 

 +2        SET DIR(0)="Y"

           SET DIR("A")="Include only ACTIVE members of the "_$PIECE(^ACM(41.1,BDMDMRG,0),U)_" register"

           SET DIR("B")="N"

           KILL DA

 +3        DO ^DIR

           KILL DIR

 +4        IF $DATA(DIRUT)

               GOTO COMM

 +5        SET BDMACTI=Y

PREG      ;

 +1        SET BDMPREG=""

           SET BDMSTP=0

 +2        SET DIR(0)="S^I:Include Pregnant Patients;E:Exclude Pregnant Patients"

           SET DIR("A")="Select whether to include or exclude pregnant patients in the audit"

 +3        SET DIR("B")="E"

           KILL DA

           DO ^DIR

           KILL DIR

 +4        IF $DATA(DIRUT)

               GOTO ACT

 +5        SET BDMPREG=Y

 +6        QUIT 

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------