BDMDCX.m

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

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BDMDCXA ;   DM AUDIT TOBACCO USE CPTS

 Q

BDMDCX    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 31, 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 TOBACCO USE CPTS

           DO ^BDMDCXA

 +2        QUIT