BGP6JX.m

BGP6JX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 09, 2006 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;;;BGP6;;APR 09, 2006

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP6JXA ;   BGP RA CYCLOSPORINE NDC

 D ^BGP6JXB ;   BGP RA PENICILLAMINE NDC

 D ^BGP6JXC ;   BGP RA SULFASALAZINE NDC

 D ^BGP6JXD ;   BGP RA AZATHIOPRINE NDC

 D ^BGP6JXE ;   BGP RA IM GOLD NDC

 D ^BGP6JXF ;   BGP ESRD CPTS

 D ^BGP6JXG ;   BGP OA GLUCOCORTICOIDS CLASS

 D ^BGP6JXH ;   BGP URINE GLUCOSE LOINC

 D ^BGP6JXI ;   BGP HYSTERECTOMY CPTS

 D ^BGP6JXJ ;   BGP POTASSIUM LOINC

 D ^BGP6JXK ;   BGP RA MYCOPHENOLATE NDC

 D ^BGP6JXL ;   BGP RHEUMATOID ARTHRITIS DXS

 D ^BGP6JXM ;   BGP RA IM GOLD NDC

 D ^BGP6JXN ;   BGP CPT HIV TESTS

 D ^BGP6JXO ;   BGP CABG CPTS

 D ^BGP6JXP ;   BGP LBBB ON ECG CPT

 D ^BGP6JXQ ;   BGP ST ELEVATION DX

 D ^BGP6JXR ;   BGP THROMBOLYTIC AGENT CLASS

 D ^BGP6JXS ;   BGP LVAD/HEART TRANSPLANT PROC

 D ^BGP6JXT ;   BGP CMS PNEUMONIA DXS

 D ^BGP6JXU ;   BGP CMS ABG LOINC

 D ^BGP6JXV ;   BGP BLOOD CULTURE LOINC

 D ^BGP6JXW ;   BGP LBBB ON ECG PROC

 Q

BGP6JX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 09, 2006 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;;;BGP6;;APR 09, 2006

 +3       ;

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

 +5       ;

START     ;

 +1       ;   BGP RA CYCLOSPORINE NDC

           DO ^BGP6JXA

 +2       ;   BGP RA PENICILLAMINE NDC

           DO ^BGP6JXB

 +3       ;   BGP RA SULFASALAZINE NDC

           DO ^BGP6JXC

 +4       ;   BGP RA AZATHIOPRINE NDC

           DO ^BGP6JXD

 +5       ;   BGP RA IM GOLD NDC

           DO ^BGP6JXE

 +6       ;   BGP ESRD CPTS

           DO ^BGP6JXF

 +7       ;   BGP OA GLUCOCORTICOIDS CLASS

           DO ^BGP6JXG

 +8       ;   BGP URINE GLUCOSE LOINC

           DO ^BGP6JXH

 +9       ;   BGP HYSTERECTOMY CPTS

           DO ^BGP6JXI

 +10      ;   BGP POTASSIUM LOINC

           DO ^BGP6JXJ

 +11      ;   BGP RA MYCOPHENOLATE NDC

           DO ^BGP6JXK

 +12      ;   BGP RHEUMATOID ARTHRITIS DXS

           DO ^BGP6JXL

 +13      ;   BGP RA IM GOLD NDC

           DO ^BGP6JXM

 +14      ;   BGP CPT HIV TESTS

           DO ^BGP6JXN

 +15      ;   BGP CABG CPTS

           DO ^BGP6JXO

 +16      ;   BGP LBBB ON ECG CPT

           DO ^BGP6JXP

 +17      ;   BGP ST ELEVATION DX

           DO ^BGP6JXQ

 +18      ;   BGP THROMBOLYTIC AGENT CLASS

           DO ^BGP6JXR

 +19      ;   BGP LVAD/HEART TRANSPLANT PROC

           DO ^BGP6JXS

 +20      ;   BGP CMS PNEUMONIA DXS

           DO ^BGP6JXT

 +21      ;   BGP CMS ABG LOINC

           DO ^BGP6JXU

 +22      ;   BGP BLOOD CULTURE LOINC

           DO ^BGP6JXV

 +23      ;   BGP LBBB ON ECG PROC

           DO ^BGP6JXW

 +24       QUIT