APCL3P21.m

APCL3P21 ; IHS/BJI/GRL - V3.0 PATCH 21 ENV/PRE/P0ST  [ 01/16/05  2:03 PM ]

 ;;3.0;IHS PCC REPORTS;**21**;FEB 05, 1997

 ;;

 ; The following line prevents the "Disable Options..." and "Move

 ; Routines..." questions from being asked during the install.

 F X="XPO1","XPZ1","XPZ2","XPI1" S XPDDIQ(X)=0

 I '$$INSTALLD("ATX*5.1*10") D SORRY(2)

 I '$$INSTALLD("APCL*3.0*20") D SORRY(2)

 Q

 ;

PRE ;EP

 F DA=1:1:900 S DIK="^APCLVSTS(" D ^DIK

 ;kill off lister entries

 F DA=1:1:40 S DIK="^APCLRECD(" D ^DIK

 F DA=1:1:40 S DIK="^APCLDMTX(" D ^DIK

 F DA=1:1:40 S DIK="^APCLBMI(" D ^DIK

 F DA=1:1:40 S DIK="^APCLCNTL(" D ^DIK

 F DA=1:1:40 S DIK="^APCLPDES(" D ^DIK

 K ^APCLBMI("H")

 S DA=$O(^DIC(19,"B","APCL DM2005 RUN AUDIT",0)) I DA S DIE="^DIC(19,",DR="2///@" D ^DIE K DIE,DA,DR

 Q

POST ;EP

 D ^APCLD8PS

 ;

 D POST^APCLCART  ;CALIFORNIA REPORT

 D TAXREAD

 D SETTAXL

 D HOME^%ZIS,DT^DICRW

 ;

 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM

 KILL ^TMP($J,"APCLBUL")

 D WRITEMSG,GETRECIP

 ;Change following lines as desired

SUBJECT S XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"

SENDER S XMDUZ="Cimarron Medical Informatics"

 S XMTEXT="^TMP($J,""APCLBUL"",",XMY(1)="",XMY(DUZ)=""

 I $E(IOST)="C" W !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key."

 D ^XMD

 KILL ^TMP($J,"APCLBUL"),APCLKEY

 Q

 ;

WRITEMSG ;

 S X=$O(^APCLPDES("B","V3P21",0))

 Q:'X

 S Y=0 F  S Y=$O(^APCLPDES(X,11,Y)) Q:Y'=+Y  S ^TMP($J,"APCLBUL",Y)=^APCLPDES(X,11,Y,0)

 Q

 ;

GETRECIP ;

 ;* * * Define key below to identify recipients * * *

 ;

 S CTR=0,APCLKEY="APCLZMENU"

 F  S CTR=$O(^XUSEC(APCLKEY,CTR)) Q:'CTR  S Y=CTR S XMY(Y)=""

 Q

INSTALLD(APCLSTAL) ;EP - Determine if patch APCLSTAL was installed, where

 ; APCLSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 ;

 NEW APCLY,DIC,X,Y

 S X=$P(APCLSTAL,"*",1)

 S DIC="^DIC(9.4,",DIC(0)="FM",D="C"

 D IX^DIC

 I Y<1 D IMES Q 0

 S DIC=DIC_+Y_",22,",X=$P(APCLSTAL,"*",2)

 D ^DIC

 I Y<1 D IMES Q 0

 S DIC=DIC_+Y_",""PAH"",",X=$P(APCLSTAL,"*",3)

 D ^DIC

 S APCLY=Y

 D IMES

 Q $S(APCLY<1:0,1:1)

IMES ;

 D MES^XPDUTL($$CJ^XLFSTR("Patch """_APCLSTAL_""" is"_$S(Y<1:" *NOT*",1:"")_" installed.",IOM))

 Q

SORRY(X) ;

 KILL DIFQ

 I X=3 S XPDQUIT=2 Q

 S XPDQUIT=X

 W *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 Q

TAXREAD ;

 S APCLPNSP=""

 S APCLTEXT="TAX" F APCLX=1:1 S APCLDATA=$P($T(@APCLTEXT+APCLX),";;",2) Q:APCLDATA=""  D

 .S APCLDA=$O(^ATXAX("B",$P(APCLDATA,"|"),0))

 .Q:APCLDA=""

 .S $P(^ATXAX(APCLDA,0),U,4)="n" W !,$P(APCLDATA,"|")  ;SET NO DELETE

 .S $P(^ATXAX(APCLDA,0),U,22)=$P(APCLDATA,"|",2) ;set read only

 .;set packages in multiple

 .K DIC,DA,DR

 .S APCLP=$P(APCLDATA,"|",3)

 .F APCLN=1:1 S APCLPP=$P(APCLP,"*",APCLN) Q:APCLPP=""  D

 ..S APCLPI=$O(^DIC(9.4,"C",APCLPP,0))

 ..Q:APCLPI=""  ;NO PACKAGE

 ..S X="`"_APCLPI,DIC="^ATXAX("_APCLDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002226,4101,0),U,2),DA(1)=APCLDA

 ..D ^DIC

 ..I Y=-1 W !,"updating package multiple for ",APCLPP," entry ",$P(^ATXAX(APCLDA,0),U)," failed"

 ..K DIC,DA,Y,X

 .Q

 Q

SETTAXL ;

 ;Q:'$D(^DD(9002228,4101,0))  ;taxonomy patch not yet installed

 S APCLTEXT="LABTAX" F APCLX=1:1 S APCLDATA=$P($T(@APCLTEXT+APCLX),";;",2) Q:APCLDATA=""  D

 .S APCLDA=$O(^ATXLAB("B",$P(APCLDATA,"|"),0))

 .Q:APCLDA=""

 .S $P(^ATXLAB(APCLDA,0),U,4)="n" W !,$P(APCLDATA,"|")  ;SET NO DELETE

 .S $P(^ATXLAB(APCLDA,0),U,22)=$P(APCLDATA,"|",2) ;set read only

 .S $P(^ATXLAB(APCLDA,0),U,11)=$P(APCLDATA,"|",4) ;set panel yes/no

 .;set packages in multiple

 .K DIC,DA,DR

 .S APCLP=$P(APCLDATA,"|",3)

 .F APCLN=1:1 S APCLPP=$P(APCLP,"*",APCLN) Q:APCLPP=""  D

 ..S APCLPI=$O(^DIC(9.4,"C",APCLPP,0))

 ..Q:APCLPI=""  ;NO PACKAGE

 ..S X="`"_APCLPI,DIC="^ATXLAB("_APCLDA_",41,",DIC(0)="L",DIC("P")=$P(^DD(9002228,4101,0),U,2),DA(1)=APCLDA

 ..D ^DIC

 ..I Y=-1 W !,"updating package multiple for ",APCLPP," entry ",$P(^ATXLAB(APCLDA,0),U)," failed"

 ..K DIC,DA,Y,X

 .Q

 Q

TAX ;

 ;;DM AUDIT INCRETIN MIMETIC|0|APCL*BDM

 ;;DM AUDIT DPP4 INHIBITOR DRUGS|0|APCL*BDM

 ;;DM AUDIT P/C RATIO LOINC|1|APCL*BDM

 ;;DM AUDIT P/C RATIO TAX|0|APCL*BDM

 ;;DM AUDIT A/C RATIO TAX|0|APCL*BDM

 ;;APCL DIABETES REG COMPLICATION|0|APCL*BDM

 ;;APCL DIABETES REG NEW CASE|0|APCL*BDM

 ;;DM AUDIT 75GM 2HR LOINC|1|APCL*APCH*BDM

 ;;DM AUDIT A/C RATIO LOINC|1|APCL*BDM

 ;;DM AUDIT ACARBOSE DRUGS|0|APCL*BDM

 ;;DM AUDIT ACE INHIBITORS|0|APCL*BDM

 ;;DM AUDIT ANTI-PLATELET DRUGS|0|APCL*BDM

 ;;DM AUDIT ASPIRIN DRUGS|0|APCL*BDM

 ;;DM AUDIT CESSATION HLTH FACTOR|0|APCL*BDM

 ;;DM AUDIT DENTAL EXAM ADA CODES|0|APCL*BDM

 ;;DM AUDIT DEPRESSIVE DISORDERS|1|APCL*BDM

 ;;DM AUDIT DIABETES EDUC TOPICS|0|APCL*BDM

 ;;DM AUDIT DIET EDUC TOPICS|0|APCL*BDM

 ;;DM AUDIT EKG CPTS|1|APCL*BDM

 ;;DM AUDIT ESTIMATED GFR LOINC|1|APCL*APCH

 ;;DM AUDIT EXCERCISE EDUC TOPICS|0|APCL*BDM

 ;;DM AUDIT EXERCISE EDUC TOPICS|0|APCL*BDM

 ;;DM AUDIT EYE EXAM DXS|1|APCL*BDM

 ;;DM AUDIT FASTING GLUC LOINC|1|APCL*APCH*BDM

 ;;DM AUDIT FLU CPTS|1|APCL*BDM

 ;;DM AUDIT INSULIN DRUGS|0|APCL*BDM

 ;;DM AUDIT LIPID LOWERING DRUGS|0|APCL*BDM

 ;;DM AUDIT MAMMOGRAM CPTS|1|APCL*BDM

 ;;DM AUDIT METFORMIN DRUGS|0|APCL*BDM

 ;;DM AUDIT ORAL HYPOGLYCEMICS|0|APCL*BDM

 ;;DM AUDIT OTHER EDUC TOPICS|0|APCL*BDM

 ;;DM AUDIT PAP CPTS|1|APCL*BDM

 ;;DM AUDIT PERIDONTAL ADA CODES|0|APCL*BDM

 ;;DM AUDIT PNEUMO CPTS|1|APCL*BDM

 ;;DM AUDIT PRE-DIABETES DXS|1|APCL*BDM*APCH

 ;;DM AUDIT PROBLEM DIABETES DX|1|APCL*BDM

 ;;DM AUDIT PROBLEM HTN DIAGNOSES|1|APCL*BDM

 ;;DM AUDIT PROBLEM SMOKING DXS|1|APCL*BDM

 ;;DM AUDIT PROBLEM TB DXS|1|APCL*BDM

 ;;DM AUDIT SDM PROVIDERS|0|APCL*BDM

 ;;DM AUDIT SELF MONITOR DRUGS|0|APCL*BDM

 ;;DM AUDIT SMOKING CESS EDUC|0|APCL*BDM

 ;;DM AUDIT SMOKING RELATED DXS|1|APCL*BDM

 ;;DM AUDIT STATIN DRUGS|0|APCL*BDM

 ;;DM AUDIT SULFONYLUREA DRUGS|0|APCL*BDM

 ;;DM AUDIT TB HEALTH FACTORS|0|APCL*BDM

 ;;DM AUDIT TD CPTS|1|APCL*BDM

 ;;DM AUDIT TOBACCO HLTH FACTORS|0|APCL*BDM

 ;;DM AUDIT GLITAZONE DRUGS|0|APCL*BDM

 ;;DM AUDIT TYPE I DXS|1|APCL*BDM

 ;;DM AUDIT TYPE II DXS|1|APCL*BDM

 ;;DM AUDIT MICROALBUMIN LOINC CODES|1|APCL*BDM

 ;;DM AUDIT URINALYSIS LOINC|1|APCL*BDM

 ;;DM AUDIT URINE PROTEIN LOINC|1|APCL*BDM

 ;;APCL CAR CNM|0|APCL

 ;;APCL CAR DENTISTS|0|APCL

 ;;APCL CAR FNP|0|APCL

 ;;APCL CAR LCSW|0|APCL

 ;;APCL CAR LVN|0|APCL

 ;;APCL CAR OTHER PROVIDERS|0|APCL

 ;;APCL CAR OTHER2|0|APCL

 ;;APCL CAR PA|0|APCL

 ;;APCL CAR PHYSICIANS|0|APCL

 ;;APCL CAR PSYCHIATRIST|0|APCL

 ;;APCL CAR PSYCHOLOGIST|0|APCL

 ;;APCL CAR PT ED|0|APCL

 ;;APCL CAR RDA|0|APCL

 ;;APCL CAR RN|0|APCL

 ;;

LABTAX ;;

 ;;APCH HCT/HGB TESTS|0|APCH|1

 ;;BGP QUANT URINE PROTEIN|0|APCL*BDM*BGP|1

 ;;DM AUDIT 2 HR GTT TAX|0|APCL*BDM|1

 ;;DM AUDIT LIPID PROFILE TAX|0|APCL*BDM|1

 ;;DM AUDIT PAP SMEAR TAX|0|APCL*BDM|1

 ;;DM AUDIT URINALYSIS TAX|0|APCL*BDM|1

 ;;

APCL3P21  ; IHS/BJI/GRL - V3.0 PATCH 21 ENV/PRE/P0ST  [ 01/16/05  2:03 PM ]

 +1       ;;3.0;IHS PCC REPORTS;**21**;FEB 05, 1997

 +2       ;;

 +3       ; The following line prevents the "Disable Options..." and "Move

 +4       ; Routines..." questions from being asked during the install.

 +5        FOR X="XPO1","XPZ1","XPZ2","XPI1"

               SET XPDDIQ(X)=0

 +6        IF '$$INSTALLD("ATX*5.1*10")

               DO SORRY(2)

 +7        IF '$$INSTALLD("APCL*3.0*20")

               DO SORRY(2)

 +8        QUIT 

 +9       ;

PRE       ;EP

 +1        FOR DA=1:1:900

               SET DIK="^APCLVSTS("

               DO ^DIK

 +2       ;kill off lister entries

 +3        FOR DA=1:1:40

               SET DIK="^APCLRECD("

               DO ^DIK

 +4        FOR DA=1:1:40

               SET DIK="^APCLDMTX("

               DO ^DIK

 +5        FOR DA=1:1:40

               SET DIK="^APCLBMI("

               DO ^DIK

 +6        FOR DA=1:1:40

               SET DIK="^APCLCNTL("

               DO ^DIK

 +7        FOR DA=1:1:40

               SET DIK="^APCLPDES("

               DO ^DIK

 +8        KILL ^APCLBMI("H")

 +9        SET DA=$ORDER(^DIC(19,"B","APCL DM2005 RUN AUDIT",0))

           IF DA

               SET DIE="^DIC(19,"

               SET DR="2///@"

               DO ^DIE

               KILL DIE,DA,DR

 +10       QUIT 

POST      ;EP

 +1        DO ^APCLD8PS

 +2       ;

 +3       ;CALIFORNIA REPORT

           DO POST^APCLCART

 +4        DO TAXREAD

 +5        DO SETTAXL

 +6        DO HOME^%ZIS

           DO DT^DICRW

 +7       ;

 +8        NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM

 +9        KILL ^TMP($JOB,"APCLBUL")

 +10       DO WRITEMSG

           DO GETRECIP

 +11      ;Change following lines as desired

SUBJECT    SET XMSUB="* * * IMPORTANT RPMS INFORMATION * * *"

SENDER     SET XMDUZ="Cimarron Medical Informatics"

 +1        SET XMTEXT="^TMP($J,""APCLBUL"","

           SET XMY(1)=""

           SET XMY(DUZ)=""

 +2        IF $EXTRACT(IOST)="C"

               WRITE !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key."

 +3        DO ^XMD

 +4        KILL ^TMP($JOB,"APCLBUL"),APCLKEY

 +5        QUIT 

 +6       ;

WRITEMSG  ;

 +1        SET X=$ORDER(^APCLPDES("B","V3P21",0))

 +2        IF 'X

               QUIT 

 +3        SET Y=0

           FOR 

               SET Y=$ORDER(^APCLPDES(X,11,Y))

               IF Y'=+Y

                   QUIT 

               SET ^TMP($JOB,"APCLBUL",Y)=^APCLPDES(X,11,Y,0)

 +4        QUIT 

 +5       ;

GETRECIP  ;

 +1       ;* * * Define key below to identify recipients * * *

 +2       ;

 +3        SET CTR=0

           SET APCLKEY="APCLZMENU"

 +4        FOR 

               SET CTR=$ORDER(^XUSEC(APCLKEY,CTR))

               IF 'CTR

                   QUIT 

               SET Y=CTR

               SET XMY(Y)=""

 +5        QUIT 

INSTALLD(APCLSTAL) ;EP - Determine if patch APCLSTAL was installed, where

 +1       ; APCLSTAL is the name of the INSTALL.  E.g "AG*6.0*11".

 +2       ;

 +3        NEW APCLY,DIC,X,Y

 +4        SET X=$PIECE(APCLSTAL,"*",1)

 +5        SET DIC="^DIC(9.4,"

           SET DIC(0)="FM"

           SET D="C"

 +6        DO IX^DIC

 +7        IF Y<1

               DO IMES

               QUIT 0

 +8        SET DIC=DIC_+Y_",22,"

           SET X=$PIECE(APCLSTAL,"*",2)

 +9        DO ^DIC

 +10       IF Y<1

               DO IMES

               QUIT 0

 +11       SET DIC=DIC_+Y_",""PAH"","

           SET X=$PIECE(APCLSTAL,"*",3)

 +12       DO ^DIC

 +13       SET APCLY=Y

 +14       DO IMES

 +15       QUIT $SELECT(APCLY<1:0,1:1)

IMES      ;

 +1        DO MES^XPDUTL($$CJ^XLFSTR("Patch """_APCLSTAL_""" is"_$SELECT(Y<1:" *NOT*",1:"")_" installed.",IOM))

 +2        QUIT 

SORRY(X)  ;

 +1        KILL DIFQ

 +2        IF X=3

               SET XPDQUIT=2

               QUIT 

 +3        SET XPDQUIT=X

 +4        WRITE *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)

 +5        QUIT 

TAXREAD   ;

 +1        SET APCLPNSP=""

 +2        SET APCLTEXT="TAX"

           FOR APCLX=1:1

               SET APCLDATA=$PIECE($TEXT(@APCLTEXT+APCLX),";;",2)

               IF APCLDATA=""

                   QUIT 

               Begin DoDot:1

 +3                SET APCLDA=$ORDER(^ATXAX("B",$PIECE(APCLDATA,"|"),0))

 +4                IF APCLDA=""

                       QUIT 

 +5       ;SET NO DELETE

                   SET $PIECE(^ATXAX(APCLDA,0),U,4)="n"

                   WRITE !,$PIECE(APCLDATA,"|")

 +6       ;set read only

                   SET $PIECE(^ATXAX(APCLDA,0),U,22)=$PIECE(APCLDATA,"|",2)

 +7       ;set packages in multiple

 +8                KILL DIC,DA,DR

 +9                SET APCLP=$PIECE(APCLDATA,"|",3)

 +10               FOR APCLN=1:1

                       SET APCLPP=$PIECE(APCLP,"*",APCLN)

                       IF APCLPP=""

                           QUIT 

                       Begin DoDot:2

 +11                       SET APCLPI=$ORDER(^DIC(9.4,"C",APCLPP,0))

 +12      ;NO PACKAGE

                           IF APCLPI=""

                               QUIT 

 +13                       SET X="`"_APCLPI

                           SET DIC="^ATXAX("_APCLDA_",41,"

                           SET DIC(0)="L"

                           SET DIC("P")=$PIECE(^DD(9002226,4101,0),U,2)

                           SET DA(1)=APCLDA

 +14                       DO ^DIC

 +15                       IF Y=-1

                               WRITE !,"updating package multiple for ",APCLPP," entry ",$PIECE(^ATXAX(APCLDA,0),U)," failed"

 +16                       KILL DIC,DA,Y,X

                       End DoDot:2

 +17               QUIT 

               End DoDot:1

 +18       QUIT 

SETTAXL   ;

 +1       ;Q:'$D(^DD(9002228,4101,0))  ;taxonomy patch not yet installed

 +2        SET APCLTEXT="LABTAX"

           FOR APCLX=1:1

               SET APCLDATA=$PIECE($TEXT(@APCLTEXT+APCLX),";;",2)

               IF APCLDATA=""

                   QUIT 

               Begin DoDot:1

 +3                SET APCLDA=$ORDER(^ATXLAB("B",$PIECE(APCLDATA,"|"),0))

 +4                IF APCLDA=""

                       QUIT 

 +5       ;SET NO DELETE

                   SET $PIECE(^ATXLAB(APCLDA,0),U,4)="n"

                   WRITE !,$PIECE(APCLDATA,"|")

 +6       ;set read only

                   SET $PIECE(^ATXLAB(APCLDA,0),U,22)=$PIECE(APCLDATA,"|",2)

 +7       ;set panel yes/no

                   SET $PIECE(^ATXLAB(APCLDA,0),U,11)=$PIECE(APCLDATA,"|",4)

 +8       ;set packages in multiple

 +9                KILL DIC,DA,DR

 +10               SET APCLP=$PIECE(APCLDATA,"|",3)

 +11               FOR APCLN=1:1

                       SET APCLPP=$PIECE(APCLP,"*",APCLN)

                       IF APCLPP=""

                           QUIT 

                       Begin DoDot:2

 +12                       SET APCLPI=$ORDER(^DIC(9.4,"C",APCLPP,0))

 +13      ;NO PACKAGE

                           IF APCLPI=""

                               QUIT 

 +14                       SET X="`"_APCLPI

                           SET DIC="^ATXLAB("_APCLDA_",41,"

                           SET DIC(0)="L"

                           SET DIC("P")=$PIECE(^DD(9002228,4101,0),U,2)

                           SET DA(1)=APCLDA

 +15                       DO ^DIC

 +16                       IF Y=-1

                               WRITE !,"updating package multiple for ",APCLPP," entry ",$PIECE(^ATXLAB(APCLDA,0),U)," failed"

 +17                       KILL DIC,DA,Y,X

                       End DoDot:2

 +18               QUIT 

               End DoDot:1

 +19       QUIT 

TAX       ;

 +1       ;;DM AUDIT INCRETIN MIMETIC|0|APCL*BDM

 +2       ;;DM AUDIT DPP4 INHIBITOR DRUGS|0|APCL*BDM

 +3       ;;DM AUDIT P/C RATIO LOINC|1|APCL*BDM

 +4       ;;DM AUDIT P/C RATIO TAX|0|APCL*BDM

 +5       ;;DM AUDIT A/C RATIO TAX|0|APCL*BDM

 +6       ;;APCL DIABETES REG COMPLICATION|0|APCL*BDM

 +7       ;;APCL DIABETES REG NEW CASE|0|APCL*BDM

 +8       ;;DM AUDIT 75GM 2HR LOINC|1|APCL*APCH*BDM

 +9       ;;DM AUDIT A/C RATIO LOINC|1|APCL*BDM

 +10      ;;DM AUDIT ACARBOSE DRUGS|0|APCL*BDM

 +11      ;;DM AUDIT ACE INHIBITORS|0|APCL*BDM

 +12      ;;DM AUDIT ANTI-PLATELET DRUGS|0|APCL*BDM

 +13      ;;DM AUDIT ASPIRIN DRUGS|0|APCL*BDM

 +14      ;;DM AUDIT CESSATION HLTH FACTOR|0|APCL*BDM

 +15      ;;DM AUDIT DENTAL EXAM ADA CODES|0|APCL*BDM

 +16      ;;DM AUDIT DEPRESSIVE DISORDERS|1|APCL*BDM

 +17      ;;DM AUDIT DIABETES EDUC TOPICS|0|APCL*BDM

 +18      ;;DM AUDIT DIET EDUC TOPICS|0|APCL*BDM

 +19      ;;DM AUDIT EKG CPTS|1|APCL*BDM

 +20      ;;DM AUDIT ESTIMATED GFR LOINC|1|APCL*APCH

 +21      ;;DM AUDIT EXCERCISE EDUC TOPICS|0|APCL*BDM

 +22      ;;DM AUDIT EXERCISE EDUC TOPICS|0|APCL*BDM

 +23      ;;DM AUDIT EYE EXAM DXS|1|APCL*BDM

 +24      ;;DM AUDIT FASTING GLUC LOINC|1|APCL*APCH*BDM

 +25      ;;DM AUDIT FLU CPTS|1|APCL*BDM

 +26      ;;DM AUDIT INSULIN DRUGS|0|APCL*BDM

 +27      ;;DM AUDIT LIPID LOWERING DRUGS|0|APCL*BDM

 +28      ;;DM AUDIT MAMMOGRAM CPTS|1|APCL*BDM

 +29      ;;DM AUDIT METFORMIN DRUGS|0|APCL*BDM

 +30      ;;DM AUDIT ORAL HYPOGLYCEMICS|0|APCL*BDM

 +31      ;;DM AUDIT OTHER EDUC TOPICS|0|APCL*BDM

 +32      ;;DM AUDIT PAP CPTS|1|APCL*BDM

 +33      ;;DM AUDIT PERIDONTAL ADA CODES|0|APCL*BDM

 +34      ;;DM AUDIT PNEUMO CPTS|1|APCL*BDM

 +35      ;;DM AUDIT PRE-DIABETES DXS|1|APCL*BDM*APCH

 +36      ;;DM AUDIT PROBLEM DIABETES DX|1|APCL*BDM

 +37      ;;DM AUDIT PROBLEM HTN DIAGNOSES|1|APCL*BDM

 +38      ;;DM AUDIT PROBLEM SMOKING DXS|1|APCL*BDM

 +39      ;;DM AUDIT PROBLEM TB DXS|1|APCL*BDM

 +40      ;;DM AUDIT SDM PROVIDERS|0|APCL*BDM

 +41      ;;DM AUDIT SELF MONITOR DRUGS|0|APCL*BDM

 +42      ;;DM AUDIT SMOKING CESS EDUC|0|APCL*BDM

 +43      ;;DM AUDIT SMOKING RELATED DXS|1|APCL*BDM

 +44      ;;DM AUDIT STATIN DRUGS|0|APCL*BDM

 +45      ;;DM AUDIT SULFONYLUREA DRUGS|0|APCL*BDM

 +46      ;;DM AUDIT TB HEALTH FACTORS|0|APCL*BDM

 +47      ;;DM AUDIT TD CPTS|1|APCL*BDM

 +48      ;;DM AUDIT TOBACCO HLTH FACTORS|0|APCL*BDM

 +49      ;;DM AUDIT GLITAZONE DRUGS|0|APCL*BDM

 +50      ;;DM AUDIT TYPE I DXS|1|APCL*BDM

 +51      ;;DM AUDIT TYPE II DXS|1|APCL*BDM

 +52      ;;DM AUDIT MICROALBUMIN LOINC CODES|1|APCL*BDM

 +53      ;;DM AUDIT URINALYSIS LOINC|1|APCL*BDM

 +54      ;;DM AUDIT URINE PROTEIN LOINC|1|APCL*BDM

 +55      ;;APCL CAR CNM|0|APCL

 +56      ;;APCL CAR DENTISTS|0|APCL

 +57      ;;APCL CAR FNP|0|APCL

 +58      ;;APCL CAR LCSW|0|APCL

 +59      ;;APCL CAR LVN|0|APCL

 +60      ;;APCL CAR OTHER PROVIDERS|0|APCL

 +61      ;;APCL CAR OTHER2|0|APCL

 +62      ;;APCL CAR PA|0|APCL

 +63      ;;APCL CAR PHYSICIANS|0|APCL

 +64      ;;APCL CAR PSYCHIATRIST|0|APCL

 +65      ;;APCL CAR PSYCHOLOGIST|0|APCL

 +66      ;;APCL CAR PT ED|0|APCL

 +67      ;;APCL CAR RDA|0|APCL

 +68      ;;APCL CAR RN|0|APCL

 +69      ;;

LABTAX    ;;

 +1       ;;APCH HCT/HGB TESTS|0|APCH|1

 +2       ;;BGP QUANT URINE PROTEIN|0|APCL*BDM*BGP|1

 +3       ;;DM AUDIT 2 HR GTT TAX|0|APCL*BDM|1

 +4       ;;DM AUDIT LIPID PROFILE TAX|0|APCL*BDM|1

 +5       ;;DM AUDIT PAP SMEAR TAX|0|APCL*BDM|1

 +6       ;;DM AUDIT URINALYSIS TAX|0|APCL*BDM|1

 +7       ;;