BUDE3.m

BUDE3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 09, 2018;

 ;;12.0;IHS/RPMS UNIFORM DATA SYSTEM;**1**;NOV 22, 2017;Build 1

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUDE3A ;    BUD 17 T6A LINE 4B

 D ^BUDE3B ;    BUD 17 T6A LINE 7

 D ^BUDE3C ;    BUD 17 T6A LINE 10

 D ^BUDE3D ;    BUD 17 T6A LINE 16

 Q

BUDE3     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 09, 2018;

 +1       ;;12.0;IHS/RPMS UNIFORM DATA SYSTEM;**1**;NOV 22, 2017;Build 1

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BUD 17 T6A LINE 4B

           DO ^BUDE3A

 +2       ;    BUD 17 T6A LINE 7

           DO ^BUDE3B

 +3       ;    BUD 17 T6A LINE 10

           DO ^BUDE3C

 +4       ;    BUD 17 T6A LINE 16

           DO ^BUDE3D

 +5        QUIT