BDM2TX.m

BDM2TX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JAN 26, 2010 ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,3**;JUN 14, 2007

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BDM2TXA ;   DM AUDIT TYPE I DXS

 D ^BDM2TXB ;   DM AUDIT TYPE II DXS

 D ^BDM2TXC ;   DM AUDIT PROBLEM DIABETES DX

 D ^BDM2TXD ;   DM AUDIT PROBLEM HTN DIAGNOSES

 D ^BDM2TXE ;   APCH DIABETIC EYE EXAM CPTS

 D ^BDM2TXF ;   DM AUDIT EYE EXAM CPTS

 D ^BDM2TXG ;   DM AUDIT EKG CPTS

 D ^BDM2TXH ;   DM AUDIT SEASONAL FLU CPTS

 D ^BDM2TXI ;   DM AUDIT TD CPTS

 D ^BDM2TXJ ;   DM AUDIT A/C RATIO LOINC

 D ^BDM2TXK ;   DM AUDIT DEPRESSIVE DISORDERS

 D ^BDM2TXL ;   DM AUDIT ESTIMATED GFR LOINC

 D ^BDM2TXM ;   DM AUDIT FLU CPTS

 D ^BDM2TXN ;   DM AUDIT P/C RATIO LOINC

 D ^BDM2TXO ;   DM AUDIT PNEUMO CPTS

 D ^BDM2TXP ;   DM AUDIT PROBLEM SMOKING DXS

 D ^BDM2TXQ ;   DM AUDIT PROBLEM TB DXS

 D ^BDM2TXR ;   DM AUDIT SMOKING RELATED DXS

 D ^BDM2TXS ;   DM AUDIT URINALYSIS LOINC

 D ^BDM2TXT ;   DM AUDIT URINE PROTEIN LOINC

 Q

BDM2TX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JAN 26, 2010 ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,3**;JUN 14, 2007

 +2       ;

 +3       ; See referenced routines to see taxonomies being loaded.

 +4       ;

START     ;

 +1       ;   DM AUDIT TYPE I DXS

           DO ^BDM2TXA

 +2       ;   DM AUDIT TYPE II DXS

           DO ^BDM2TXB

 +3       ;   DM AUDIT PROBLEM DIABETES DX

           DO ^BDM2TXC

 +4       ;   DM AUDIT PROBLEM HTN DIAGNOSES

           DO ^BDM2TXD

 +5       ;   APCH DIABETIC EYE EXAM CPTS

           DO ^BDM2TXE

 +6       ;   DM AUDIT EYE EXAM CPTS

           DO ^BDM2TXF

 +7       ;   DM AUDIT EKG CPTS

           DO ^BDM2TXG

 +8       ;   DM AUDIT SEASONAL FLU CPTS

           DO ^BDM2TXH

 +9       ;   DM AUDIT TD CPTS

           DO ^BDM2TXI

 +10      ;   DM AUDIT A/C RATIO LOINC

           DO ^BDM2TXJ

 +11      ;   DM AUDIT DEPRESSIVE DISORDERS

           DO ^BDM2TXK

 +12      ;   DM AUDIT ESTIMATED GFR LOINC

           DO ^BDM2TXL

 +13      ;   DM AUDIT FLU CPTS

           DO ^BDM2TXM

 +14      ;   DM AUDIT P/C RATIO LOINC

           DO ^BDM2TXN

 +15      ;   DM AUDIT PNEUMO CPTS

           DO ^BDM2TXO

 +16      ;   DM AUDIT PROBLEM SMOKING DXS

           DO ^BDM2TXP

 +17      ;   DM AUDIT PROBLEM TB DXS

           DO ^BDM2TXQ

 +18      ;   DM AUDIT SMOKING RELATED DXS

           DO ^BDM2TXR

 +19      ;   DM AUDIT URINALYSIS LOINC

           DO ^BDM2TXS

 +20      ;   DM AUDIT URINE PROTEIN LOINC

           DO ^BDM2TXT

 +21       QUIT