BUD9TX.m

BUD9TX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 28, 2009 ;

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUD9TXA ;   BUD CPT HIV TESTS

 D ^BUD9TXB ;   BUD CPT PAP 03

 D ^BUD9TXC ;   BUD CPT PAP 04

 D ^BUD9TXD ;   BUD CPT PAP 05

 D ^BUD9TXE ;   BUD CPT PAP 07

 D ^BUD9TXF ;   BUD IMM CPTS

 D ^BUD9TXG ;   BUD L26 CPTS

 D ^BUD9TXH ;   BUD TABLE 6 LINE 16

 D ^BUD9TXI ;   BUD TABLE 6 LINE 17

 D ^BUD9TXJ ;   BUD TABLE 6 LINE 19

 D ^BUD9TXK ;   BUD TABLE 6 LINE 20

 D ^BUD9TXL ;   BUD CPT PAP 08

 D ^BUD9TXM ;   BUD HYSTERECTOMY CPTS

 D ^BUD9TXN ;   BUD HYSTERECTOMY PROCEDURES

 D ^BUD9TXO ;   BUD IPV EVID DISEASE

 D ^BUD9TXP ;   BUD CPT PAP TABLE 6B 09

 D ^BUD9TXQ ;   BUD HYPERTENSION DXS

 D ^BUD9TXR ;   BUD CPT NORMAL DIASTOLIC

 D ^BUD9TXS ;   BUD CPT NORMAL SYSTOLIC

 D ^BUD9TXT ;   BUD DIASTOLIC BP CPTS

 D ^BUD9TXU ;   BUD SYSTOLIC BP CPTS

 D ^BUD9TXV ;   BUD GEST/STEROID DM DX

 D ^BUD9TXW ;   BUD HGBA1C CPTS

 D ^BUD9TXX ;   BUD CPT PAP 09

 D ^BUD9TXY ;   BUD 09 CPT IMM LINE 24

 D ^BUD9TXZ ;   BUD DIABETES DXS FOR TABLE 7

 Q

BUD9TX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 28, 2009 ;

 +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 CPT HIV TESTS

           DO ^BUD9TXA

 +2       ;   BUD CPT PAP 03

           DO ^BUD9TXB

 +3       ;   BUD CPT PAP 04

           DO ^BUD9TXC

 +4       ;   BUD CPT PAP 05

           DO ^BUD9TXD

 +5       ;   BUD CPT PAP 07

           DO ^BUD9TXE

 +6       ;   BUD IMM CPTS

           DO ^BUD9TXF

 +7       ;   BUD L26 CPTS

           DO ^BUD9TXG

 +8       ;   BUD TABLE 6 LINE 16

           DO ^BUD9TXH

 +9       ;   BUD TABLE 6 LINE 17

           DO ^BUD9TXI

 +10      ;   BUD TABLE 6 LINE 19

           DO ^BUD9TXJ

 +11      ;   BUD TABLE 6 LINE 20

           DO ^BUD9TXK

 +12      ;   BUD CPT PAP 08

           DO ^BUD9TXL

 +13      ;   BUD HYSTERECTOMY CPTS

           DO ^BUD9TXM

 +14      ;   BUD HYSTERECTOMY PROCEDURES

           DO ^BUD9TXN

 +15      ;   BUD IPV EVID DISEASE

           DO ^BUD9TXO

 +16      ;   BUD CPT PAP TABLE 6B 09

           DO ^BUD9TXP

 +17      ;   BUD HYPERTENSION DXS

           DO ^BUD9TXQ

 +18      ;   BUD CPT NORMAL DIASTOLIC

           DO ^BUD9TXR

 +19      ;   BUD CPT NORMAL SYSTOLIC

           DO ^BUD9TXS

 +20      ;   BUD DIASTOLIC BP CPTS

           DO ^BUD9TXT

 +21      ;   BUD SYSTOLIC BP CPTS

           DO ^BUD9TXU

 +22      ;   BUD GEST/STEROID DM DX

           DO ^BUD9TXV

 +23      ;   BUD HGBA1C CPTS

           DO ^BUD9TXW

 +24      ;   BUD CPT PAP 09

           DO ^BUD9TXX

 +25      ;   BUD 09 CPT IMM LINE 24

           DO ^BUD9TXY

 +26      ;   BUD DIABETES DXS FOR TABLE 7

           DO ^BUD9TXZ

 +27       QUIT