BUD8TX.m

BUD8TX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 11, 2008 ;

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUD8TXA ;   BUD CPT HIV TESTS

 D ^BUD8TXB ;   BUD CPT PAP 03

 D ^BUD8TXC ;   BUD CPT PAP 04

 D ^BUD8TXD ;   BUD CPT PAP 05

 D ^BUD8TXE ;   BUD CPT PAP 07

 D ^BUD8TXF ;   BUD IMM CPTS

 D ^BUD8TXG ;   BUD L26 CPTS

 D ^BUD8TXH ;   BUD TABLE 6 LINE 16

 D ^BUD8TXI ;   BUD TABLE 6 LINE 17

 D ^BUD8TXJ ;   BUD TABLE 6 LINE 19

 D ^BUD8TXK ;   BUD TABLE 6 LINE 20

 D ^BUD8TXL ;   BUD CPT PAP 08

 D ^BUD8TXM ;   BUD HYSTERECTOMY CPTS

 D ^BUD8TXN ;   BUD HYSTERECTOMY PROCEDURES

 D ^BUD8TXO ;   BUD IPV EVID DISEASE

 D ^BUD8TXP ;   BUD IPV EVID DISEASE

 D ^BUD8TXQ ;   BUD HYPERTENSION DXS

 D ^BUD8TXR ;   BUD CPT NORMAL DIASTOLIC

 D ^BUD8TXS ;   BUD CPT NORMAL SYSTOLIC

 D ^BUD8TXT ;   BUD DIASTOLIC BP CPTS

 D ^BUD8TXU ;   BUD SYSTOLIC BP CPTS

 D ^BUD8TXV ;   BUD GEST/STEROID DM DX

 D ^BUD8TXW ;   BUD HGBA1C CPTS

 Q

BUD8TX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 11, 2008 ;

 +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 ^BUD8TXA

 +2       ;   BUD CPT PAP 03

           DO ^BUD8TXB

 +3       ;   BUD CPT PAP 04

           DO ^BUD8TXC

 +4       ;   BUD CPT PAP 05

           DO ^BUD8TXD

 +5       ;   BUD CPT PAP 07

           DO ^BUD8TXE

 +6       ;   BUD IMM CPTS

           DO ^BUD8TXF

 +7       ;   BUD L26 CPTS

           DO ^BUD8TXG

 +8       ;   BUD TABLE 6 LINE 16

           DO ^BUD8TXH

 +9       ;   BUD TABLE 6 LINE 17

           DO ^BUD8TXI

 +10      ;   BUD TABLE 6 LINE 19

           DO ^BUD8TXJ

 +11      ;   BUD TABLE 6 LINE 20

           DO ^BUD8TXK

 +12      ;   BUD CPT PAP 08

           DO ^BUD8TXL

 +13      ;   BUD HYSTERECTOMY CPTS

           DO ^BUD8TXM

 +14      ;   BUD HYSTERECTOMY PROCEDURES

           DO ^BUD8TXN

 +15      ;   BUD IPV EVID DISEASE

           DO ^BUD8TXO

 +16      ;   BUD IPV EVID DISEASE

           DO ^BUD8TXP

 +17      ;   BUD HYPERTENSION DXS

           DO ^BUD8TXQ

 +18      ;   BUD CPT NORMAL DIASTOLIC

           DO ^BUD8TXR

 +19      ;   BUD CPT NORMAL SYSTOLIC

           DO ^BUD8TXS

 +20      ;   BUD DIASTOLIC BP CPTS

           DO ^BUD8TXT

 +21      ;   BUD SYSTOLIC BP CPTS

           DO ^BUD8TXU

 +22      ;   BUD GEST/STEROID DM DX

           DO ^BUD8TXV

 +23      ;   BUD HGBA1C CPTS

           DO ^BUD8TXW

 +24       QUIT