- BUDH1 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 30, 2018;
- ;;13.0;IHS/RPMS UNIFORM DATA SYSTEM;;OCT 12, 2018;Build 90
- ;
- ; See referenced routines to see taxonomies being loaded.
- ;
- START ;
- D ^BUDH1A ; BUD 18 T6A LINE 1-2
- D ^BUDH1B ; BUD 18 T6A LINE 3
- D ^BUDH1C ; BUD 18 T6A LINE 4
- D ^BUDH1D ; BUD 18 T6A LINE 4A
- D ^BUDH1E ; BUD 18 T6A LINE 4B
- D ^BUDH1F ; BUD 18 T6A LINE 5
- D ^BUDH1G ; BUD 18 T6A LINE 6
- D ^BUDH1H ; BUD 18 T6A LINE 7
- D ^BUDH1I ; BUD 18 T6A LINE 8
- D ^BUDH1J ; BUD 18 T6A LINE 9
- D ^BUDH1K ; BUD 18 T6A LINE 10
- D ^BUDH1L ; BUD 18 T6A LINE 11
- D ^BUDH1M ; BUD 18 T6A LINE 12
- D ^BUDH1N ; BUD 18 T6A LINE 13
- D ^BUDH1O ; BUD 18 T6A LINE 14
- D ^BUDH1P ; BUD 18 T6A LINE 14A
- D ^BUDH1Q ; BUD 18 T6A LINE 15
- D ^BUDH1R ; BUD 18 T6A LINE 16
- D ^BUDH1S ; BUD 18 T6A LINE 17
- D ^BUDH1T ; BUD 18 T6A LINE 18
- D ^BUDH1U ; BUD 18 T6A LINE 19
- D ^BUDH1V ; BUD 18 T6A LINE 19A
- D ^BUDH1W ; BUD 18 T6A LINE 20A
- D ^BUDH1X ; BUD 18 T6A LINE 20B
- D ^BUDH1Y ; BUD 18 T6A LINE 20C
- D ^BUDH1Z ; BUD 18 T6A LINE 20D
- Q
- BUDH1 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JUL 30, 2018;
- +1 ;;13.0;IHS/RPMS UNIFORM DATA SYSTEM;;OCT 12, 2018;Build 90
- +2 ;
- +3 ; See referenced routines to see taxonomies being loaded.
- +4 ;
- START ;
- +1 ; BUD 18 T6A LINE 1-2
- DO ^BUDH1A
- +2 ; BUD 18 T6A LINE 3
- DO ^BUDH1B
- +3 ; BUD 18 T6A LINE 4
- DO ^BUDH1C
- +4 ; BUD 18 T6A LINE 4A
- DO ^BUDH1D
- +5 ; BUD 18 T6A LINE 4B
- DO ^BUDH1E
- +6 ; BUD 18 T6A LINE 5
- DO ^BUDH1F
- +7 ; BUD 18 T6A LINE 6
- DO ^BUDH1G
- +8 ; BUD 18 T6A LINE 7
- DO ^BUDH1H
- +9 ; BUD 18 T6A LINE 8
- DO ^BUDH1I
- +10 ; BUD 18 T6A LINE 9
- DO ^BUDH1J
- +11 ; BUD 18 T6A LINE 10
- DO ^BUDH1K
- +12 ; BUD 18 T6A LINE 11
- DO ^BUDH1L
- +13 ; BUD 18 T6A LINE 12
- DO ^BUDH1M
- +14 ; BUD 18 T6A LINE 13
- DO ^BUDH1N
- +15 ; BUD 18 T6A LINE 14
- DO ^BUDH1O
- +16 ; BUD 18 T6A LINE 14A
- DO ^BUDH1P
- +17 ; BUD 18 T6A LINE 15
- DO ^BUDH1Q
- +18 ; BUD 18 T6A LINE 16
- DO ^BUDH1R
- +19 ; BUD 18 T6A LINE 17
- DO ^BUDH1S
- +20 ; BUD 18 T6A LINE 18
- DO ^BUDH1T
- +21 ; BUD 18 T6A LINE 19
- DO ^BUDH1U
- +22 ; BUD 18 T6A LINE 19A
- DO ^BUDH1V
- +23 ; BUD 18 T6A LINE 20A
- DO ^BUDH1W
- +24 ; BUD 18 T6A LINE 20B
- DO ^BUDH1X
- +25 ; BUD 18 T6A LINE 20C
- DO ^BUDH1Y
- +26 ; BUD 18 T6A LINE 20D
- DO ^BUDH1Z
- +27 QUIT