BGP7KX.m

BGP7KX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP7KXA ;   BGP CREATININE LOINC CODES

 D ^BGP7KXB ;   BGP ASTHMA DXS

 D ^BGP7KXC ;   BGP ASTHMA INHALED STEROID NDC

 D ^BGP7KXD ;   BGP EMPHYSEMA DXS

 D ^BGP7KXF ;   BGP HEDIS ASTHMA LEUK NDC

 D ^BGP7KXG ;   BGP HEDIS ASTHMA INHALED NDC

 D ^BGP7KXH ;   BGP ASTHMA INHALED STEROID NDC

 D ^BGP7KXJ ;   BGP OSTEOARTHRITIS DXS

 D ^BGP7KXK ;   BGP CREATININE CPTS

 D ^BGP7KXL ;   BGP ESRD CPTS

 ;D ^BGP7KXM ;   BGP ESRD DXS

 D ^BGP7KXN ;   BGP CBC CPT

 D ^BGP7KXO ;   BGP CBC LOINC

 D ^BGP7KXP ;   BGP AST CPT

 D ^BGP7KXQ ;   BGP AST LOINC

 D ^BGP7KXR ;   BGP ALT CPT

 D ^BGP7KXS ;   BGP ALT LOINC

 D ^BGP7KXT ;   BGP LIVER FUNCTION LOINC

 D ^BGP7KXU ;   BGP RHEUMATOID ARTHRITIS DXS

 D ^BGP7KXV ;   BGP RA IM GOLD NDC

 D ^BGP7KXW ;   BGP RA AZATHIOPRINE NDC

 D ^BGP7KXX ;   BGP RA LEFLUNOMIDE NDC

 D ^BGP7KXY ;   BGP RA METHOTREXATE NDC

 D ^BGP7KXZ ;   BGP RA CYCLOSPORINE NDC

 Q

BGP7KX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 

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

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP CREATININE LOINC CODES

           DO ^BGP7KXA

 +2       ;   BGP ASTHMA DXS

           DO ^BGP7KXB

 +3       ;   BGP ASTHMA INHALED STEROID NDC

           DO ^BGP7KXC

 +4       ;   BGP EMPHYSEMA DXS

           DO ^BGP7KXD

 +5       ;   BGP HEDIS ASTHMA LEUK NDC

           DO ^BGP7KXF

 +6       ;   BGP HEDIS ASTHMA INHALED NDC

           DO ^BGP7KXG

 +7       ;   BGP ASTHMA INHALED STEROID NDC

           DO ^BGP7KXH

 +8       ;   BGP OSTEOARTHRITIS DXS

           DO ^BGP7KXJ

 +9       ;   BGP CREATININE CPTS

           DO ^BGP7KXK

 +10      ;   BGP ESRD CPTS

           DO ^BGP7KXL

 +11      ;D ^BGP7KXM ;   BGP ESRD DXS

 +12      ;   BGP CBC CPT

           DO ^BGP7KXN

 +13      ;   BGP CBC LOINC

           DO ^BGP7KXO

 +14      ;   BGP AST CPT

           DO ^BGP7KXP

 +15      ;   BGP AST LOINC

           DO ^BGP7KXQ

 +16      ;   BGP ALT CPT

           DO ^BGP7KXR

 +17      ;   BGP ALT LOINC

           DO ^BGP7KXS

 +18      ;   BGP LIVER FUNCTION LOINC

           DO ^BGP7KXT

 +19      ;   BGP RHEUMATOID ARTHRITIS DXS

           DO ^BGP7KXU

 +20      ;   BGP RA IM GOLD NDC

           DO ^BGP7KXV

 +21      ;   BGP RA AZATHIOPRINE NDC

           DO ^BGP7KXW

 +22      ;   BGP RA LEFLUNOMIDE NDC

           DO ^BGP7KXX

 +23      ;   BGP RA METHOTREXATE NDC

           DO ^BGP7KXY

 +24      ;   BGP RA CYCLOSPORINE NDC

           DO ^BGP7KXZ

 +25       QUIT