BDM208.m

BDM208 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 08, 2014;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**8**;JUN 14, 2007;Build 53

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BDM208A ;   DM AUDIT PNEUMO IZ CPTS

 D ^BDM208B ;   DM AUDIT TD/TDAP CPTS

 D ^BDM208C ;   DM AUDIT CPT FOOT EXAM

 I '$O(^ATXAX("B","DM AUDIT REFRACTION DXS",0)) D ^BDM208D ;   DM AUDIT REFRACTION DXS

 I '$O(^ATXAX("B","DM AUDIT ABNORMAL GLUCOSE",0)) D ^BDM208E ;   DM AUDIT ABNORMAL GLUCOSE

 I '$O(^ATXAX("B","DM AUDIT IGT DXS",0)) D ^BDM208F ;   DM AUDIT IGT DXS

 I '$O(^ATXAX("B","DM AUDIT METABOLIC SYNDROME",0)) D ^BDM208G ;   DM AUDIT METABOLIC SYNDROME

 I '$O(^ATXAX("B","DM AUDIT TUBERCULOSIS DXS",0)) D ^BDM208H ;   DM AUDIT TUBERCULOSIS DXS

 D ^BDM208I ;   DM AUDIT EYE EXAM CPTS

 Q

BDM208    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 08, 2014;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**8**;JUN 14, 2007;Build 53

 +2       ;

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

 +4       ;

START     ;

 +1       ;   DM AUDIT PNEUMO IZ CPTS

           DO ^BDM208A

 +2       ;   DM AUDIT TD/TDAP CPTS

           DO ^BDM208B

 +3       ;   DM AUDIT CPT FOOT EXAM

           DO ^BDM208C

 +4       ;   DM AUDIT REFRACTION DXS

           IF '$ORDER(^ATXAX("B","DM AUDIT REFRACTION DXS",0))

               DO ^BDM208D

 +5       ;   DM AUDIT ABNORMAL GLUCOSE

           IF '$ORDER(^ATXAX("B","DM AUDIT ABNORMAL GLUCOSE",0))

               DO ^BDM208E

 +6       ;   DM AUDIT IGT DXS

           IF '$ORDER(^ATXAX("B","DM AUDIT IGT DXS",0))

               DO ^BDM208F

 +7       ;   DM AUDIT METABOLIC SYNDROME

           IF '$ORDER(^ATXAX("B","DM AUDIT METABOLIC SYNDROME",0))

               DO ^BDM208G

 +8       ;   DM AUDIT TUBERCULOSIS DXS

           IF '$ORDER(^ATXAX("B","DM AUDIT TUBERCULOSIS DXS",0))

               DO ^BDM208H

 +9       ;   DM AUDIT EYE EXAM CPTS

           DO ^BDM208I

 +10       QUIT