BUD4TX.m

BUD4TX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 02, 2004 ;

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

 ;;;BUD4;;NOV 02, 2004

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUD4TXA ;   BUD L26 CPTS

 D ^BUD4TXB ;   BUD CPT PAP 04

 D ^BUD4TXC ;   BGP PAP LOINC CODES

 D ^BUD4TXD ;   BUD IMM CPTS

 D ^BUD4TXE ;   BUD CPT HIV TESTS

 D ^BUD4TXF ;   BGP HIV TEST LOINC CODES

 Q

BUD4TX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 02, 2004 ;

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

 +2       ;;;BUD4;;NOV 02, 2004

 +3       ;

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

 +5       ;

START     ;

 +1       ;   BUD L26 CPTS

           DO ^BUD4TXA

 +2       ;   BUD CPT PAP 04

           DO ^BUD4TXB

 +3       ;   BGP PAP LOINC CODES

           DO ^BUD4TXC

 +4       ;   BUD IMM CPTS

           DO ^BUD4TXD

 +5       ;   BUD CPT HIV TESTS

           DO ^BUD4TXE

 +6       ;   BGP HIV TEST LOINC CODES

           DO ^BUD4TXF

 +7        QUIT