BUDH1.m

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