- 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