- 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