BUDE1 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON OCT 10, 2017 ;
;;12.0;IHS/RPMS UNIFORM DATA SYSTEM;;NOV 22, 2017;Build 75
;
; See referenced routines to see taxonomies being loaded.
;
START ;
D ^BUDE1A ; BUD 17 T6A LINE 1-2
D ^BUDE1B ; BUD 17 T6A LINE 3
D ^BUDE1C ; BUD 17 T6A LINE 4
D ^BUDE1D ; BUD 17 T6A LINE 4A
D ^BUDE1E ; BUD 17 T6A LINE 4B
D ^BUDE1F ; BUD 17 T6A LINE 5
D ^BUDE1G ; BUD 17 T6A LINE 6
D ^BUDE1H ; BUD 17 T6A LINE 7
D ^BUDE1I ; BUD 17 T6A LINE 8
D ^BUDE1J ; BUD 17 T6A LINE 9
D ^BUDE1K ; BUD 17 T6A LINE 10
D ^BUDE1L ; BUD 17 T6A LINE 11
D ^BUDE1M ; BUD 17 T6A LINE 12
D ^BUDE1N ; BUD 17 T6A LINE 13
D ^BUDE1O ; BUD 17 T6A LINE 14
D ^BUDE1P ; BUD 17 T6A LINE 14A
D ^BUDE1Q ; BUD 17 T6A LINE 15
D ^BUDE1R ; BUD 17 T6A LINE 16
D ^BUDE1S ; BUD 17 T6A LINE 17
D ^BUDE1T ; BUD 17 T6A LINE 18
D ^BUDE1U ; BUD 17 T6A LINE 19
D ^BUDE1V ; BUD 17 T6A LINE 19A
D ^BUDE1W ; BUD 17 T6A LINE 20A
D ^BUDE1X ; BUD 17 T6A LINE 20B
D ^BUDE1Y ; BUD 17 T6A LINE 20C
D ^BUDE1Z ; BUD 17 T6A LINE 20D
Q
BUDE1 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON OCT 10, 2017 ;
+1 ;;12.0;IHS/RPMS UNIFORM DATA SYSTEM;;NOV 22, 2017;Build 75
+2 ;
+3 ; See referenced routines to see taxonomies being loaded.
+4 ;
START ;
+1 ; BUD 17 T6A LINE 1-2
DO ^BUDE1A
+2 ; BUD 17 T6A LINE 3
DO ^BUDE1B
+3 ; BUD 17 T6A LINE 4
DO ^BUDE1C
+4 ; BUD 17 T6A LINE 4A
DO ^BUDE1D
+5 ; BUD 17 T6A LINE 4B
DO ^BUDE1E
+6 ; BUD 17 T6A LINE 5
DO ^BUDE1F
+7 ; BUD 17 T6A LINE 6
DO ^BUDE1G
+8 ; BUD 17 T6A LINE 7
DO ^BUDE1H
+9 ; BUD 17 T6A LINE 8
DO ^BUDE1I
+10 ; BUD 17 T6A LINE 9
DO ^BUDE1J
+11 ; BUD 17 T6A LINE 10
DO ^BUDE1K
+12 ; BUD 17 T6A LINE 11
DO ^BUDE1L
+13 ; BUD 17 T6A LINE 12
DO ^BUDE1M
+14 ; BUD 17 T6A LINE 13
DO ^BUDE1N
+15 ; BUD 17 T6A LINE 14
DO ^BUDE1O
+16 ; BUD 17 T6A LINE 14A
DO ^BUDE1P
+17 ; BUD 17 T6A LINE 15
DO ^BUDE1Q
+18 ; BUD 17 T6A LINE 16
DO ^BUDE1R
+19 ; BUD 17 T6A LINE 17
DO ^BUDE1S
+20 ; BUD 17 T6A LINE 18
DO ^BUDE1T
+21 ; BUD 17 T6A LINE 19
DO ^BUDE1U
+22 ; BUD 17 T6A LINE 19A
DO ^BUDE1V
+23 ; BUD 17 T6A LINE 20A
DO ^BUDE1W
+24 ; BUD 17 T6A LINE 20B
DO ^BUDE1X
+25 ; BUD 17 T6A LINE 20C
DO ^BUDE1Y
+26 ; BUD 17 T6A LINE 20D
DO ^BUDE1Z
+27 QUIT