BDMD4X.m

BDMD4X ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 31, 2012;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**5**;JUN 14, 2007

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BDMD4XA ;   DM AUDIT TOBACCO USE CPTS

 Q

BDMD4X    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 31, 2012;

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

 +2       ;

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

 +4       ;

START     ;

 +1       ;   DM AUDIT TOBACCO USE CPTS

           DO ^BDMD4XA

 +2        QUIT