BDMDBX.m

BDMDBX ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 31, 2014;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**7**;JUN 14, 2007;Build 24

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BDMDBXA ;   DM AUDIT TOBACCO USE CPTS

 Q

BDMDBX    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 31, 2014;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**7**;JUN 14, 2007;Build 24

 +2       ;

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

 +4       ;

START     ;

 +1       ;   DM AUDIT TOBACCO USE CPTS

           DO ^BDMDBXA

 +2        QUIT