BUDC1.m

BUDC1 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 25, 2016;

 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUDC1A ;    BUD HYSTERECTOMY CPTS UDS15

 D ^BUDC1B ;    BUD PAP CPT UDS15

 D ^BUDC1C ;    BUD CAD CPTS

 D ^BUDC1D ;    BUD COLO CPTS

 D ^BUDC1E ;    BUD SIG CPTS

 D ^BUDC1F ;    BUD FOBT CPTS

 D ^BUDC1G ;    BUD HIV DXS

 D ^BUDC1H ;    BUD HIV FU DXS

 D ^BUDC1I ;    BUD DEPRESSION/BIPOLAR DXS

 D ^BUDC1J ;    BUD ORAL EXAM CPTS

 D ^BUDC1K ;    BUD DIABETES DXS FOR TABLE 7

 D ^BUDC1L ;    BUD GEST/STEROID DM DX

 Q

BUDC1     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 25, 2016;

 +1       ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BUD HYSTERECTOMY CPTS UDS15

           DO ^BUDC1A

 +2       ;    BUD PAP CPT UDS15

           DO ^BUDC1B

 +3       ;    BUD CAD CPTS

           DO ^BUDC1C

 +4       ;    BUD COLO CPTS

           DO ^BUDC1D

 +5       ;    BUD SIG CPTS

           DO ^BUDC1E

 +6       ;    BUD FOBT CPTS

           DO ^BUDC1F

 +7       ;    BUD HIV DXS

           DO ^BUDC1G

 +8       ;    BUD HIV FU DXS

           DO ^BUDC1H

 +9       ;    BUD DEPRESSION/BIPOLAR DXS

           DO ^BUDC1I

 +10      ;    BUD ORAL EXAM CPTS

           DO ^BUDC1J

 +11      ;    BUD DIABETES DXS FOR TABLE 7

           DO ^BUDC1K

 +12      ;    BUD GEST/STEROID DM DX

           DO ^BUDC1L

 +13       QUIT