BUD2Z.m

BUD2Z ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2013;

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BUD2ZA ;    BGPMU LIPID LOWERING NDCS

 D ^BUD2ZB ;    BUD CAD DXS

 D ^BUD2ZC ;    BUD CAD CPTS

 D ^BUD2ZD ;    BGPMU IVD ANTIPLATELET NDCS

 D ^BUD2ZE ;    BUD CABG PTCA CPTS

 D ^BUD2ZF ;    BUD CABG PTCA DXS

 D ^BUD2ZG ;    BUD CABG PTCA PROCS

 D ^BUD2ZH ;    BUD COLORECTAL CANCER DXS

 D ^BUD2ZI ;    BUD COLORECTAL CANCER CPTS

 D ^BUD2ZJ ;    BUD COLORECTAL CANCER PROCS

 D ^BUD2ZK ;    BUD CARDIAC SURGERY DXS

 D ^BUD2ZL ;    BUD IVD DXS

 D ^BUD2ZM ;    BUD 12 CPT IMM LINE 24

 D ^BUD2ZN ;    BUD FOBT CPTS

 D ^BUD2ZO ;    BUD COLO CPTS

 D ^BUD2ZP ;    BUD CAD CPTS

 D ^BUD2ZQ ;    BUD CABG PTCA PROCS

 D ^BUD2ZR ;    BUD SIG CPTS

 D ^BUD2ZS ;    BUD IVD CPTS

 D ^BUD2ZT ;    BUD IVD CPTS

 Q

BUD2Z     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2013;

 +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       ;    BGPMU LIPID LOWERING NDCS

           DO ^BUD2ZA

 +2       ;    BUD CAD DXS

           DO ^BUD2ZB

 +3       ;    BUD CAD CPTS

           DO ^BUD2ZC

 +4       ;    BGPMU IVD ANTIPLATELET NDCS

           DO ^BUD2ZD

 +5       ;    BUD CABG PTCA CPTS

           DO ^BUD2ZE

 +6       ;    BUD CABG PTCA DXS

           DO ^BUD2ZF

 +7       ;    BUD CABG PTCA PROCS

           DO ^BUD2ZG

 +8       ;    BUD COLORECTAL CANCER DXS

           DO ^BUD2ZH

 +9       ;    BUD COLORECTAL CANCER CPTS

           DO ^BUD2ZI

 +10      ;    BUD COLORECTAL CANCER PROCS

           DO ^BUD2ZJ

 +11      ;    BUD CARDIAC SURGERY DXS

           DO ^BUD2ZK

 +12      ;    BUD IVD DXS

           DO ^BUD2ZL

 +13      ;    BUD 12 CPT IMM LINE 24

           DO ^BUD2ZM

 +14      ;    BUD FOBT CPTS

           DO ^BUD2ZN

 +15      ;    BUD COLO CPTS

           DO ^BUD2ZO

 +16      ;    BUD CAD CPTS

           DO ^BUD2ZP

 +17      ;    BUD CABG PTCA PROCS

           DO ^BUD2ZQ

 +18      ;    BUD SIG CPTS

           DO ^BUD2ZR

 +19      ;    BUD IVD CPTS

           DO ^BUD2ZS

 +20      ;    BUD IVD CPTS

           DO ^BUD2ZT

 +21       QUIT