BGP6GX.m

BGP6GX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JAN 10, 2006 ;

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

 ;;;BGP6;;JAN 10, 2006

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP6GXA ;   BGP TOTAL CHOLECTOMY PROCS

 D ^BGP6GXB ;   BGP BE CPTS

 D ^BGP6GXC ;   BGP COLO CPTS

 D ^BGP6GXD ;   BGP HYSTERECTOMY PROCEDURES

 D ^BGP6GXE ;   BGP HYPOTENSION DXS

 D ^BGP6GXG ;   BGP PHARYNGITIS DXS

 D ^BGP6GXH ;   BGP GROUP A STREP CPT

 D ^BGP6GXI ;   BGP GROUP A STREP LOINC

 D ^BGP6GXJ ;   BGP HEDIS ASTHMA LEUK NDC

 D ^BGP6GXK ;   BGP CHLAMYDIA CPTS

 D ^BGP6GXL ;   BGP CD4 CPTS

 D ^BGP6GXM ;   BGP URI DXS

 D ^BGP6GXN ;   BGP ESRD DXS

 D ^BGP6GXO ;   BGP ESRD DXS

 D ^BGP6GXP ;   BGP HEDIS ASTHMA INHALED NDC

 D ^BGP6GXQ ;   BGP HEDIS ASTHMA INHALED NDC

 D ^BGP6GXR ;   BGP NEPHROPATHY CPTS

 D ^BGP6GXS ;   BGP ALT LOINC

 D ^BGP6GXT ;   BGP AST LOINC

 D ^BGP6GXU ;   BGP LIVER FUNCTION LOINC

 D ^BGP6GXX ;   BGP RA LEFLUNOMIDE NDC

 D ^BGP6GXY ;   BGP RA METHOTREXATE NDC

 Q

BGP6GX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JAN 10, 2006 ;

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

 +2       ;;;BGP6;;JAN 10, 2006

 +3       ;

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

 +5       ;

START     ;

 +1       ;   BGP TOTAL CHOLECTOMY PROCS

           DO ^BGP6GXA

 +2       ;   BGP BE CPTS

           DO ^BGP6GXB

 +3       ;   BGP COLO CPTS

           DO ^BGP6GXC

 +4       ;   BGP HYSTERECTOMY PROCEDURES

           DO ^BGP6GXD

 +5       ;   BGP HYPOTENSION DXS

           DO ^BGP6GXE

 +6       ;   BGP PHARYNGITIS DXS

           DO ^BGP6GXG

 +7       ;   BGP GROUP A STREP CPT

           DO ^BGP6GXH

 +8       ;   BGP GROUP A STREP LOINC

           DO ^BGP6GXI

 +9       ;   BGP HEDIS ASTHMA LEUK NDC

           DO ^BGP6GXJ

 +10      ;   BGP CHLAMYDIA CPTS

           DO ^BGP6GXK

 +11      ;   BGP CD4 CPTS

           DO ^BGP6GXL

 +12      ;   BGP URI DXS

           DO ^BGP6GXM

 +13      ;   BGP ESRD DXS

           DO ^BGP6GXN

 +14      ;   BGP ESRD DXS

           DO ^BGP6GXO

 +15      ;   BGP HEDIS ASTHMA INHALED NDC

           DO ^BGP6GXP

 +16      ;   BGP HEDIS ASTHMA INHALED NDC

           DO ^BGP6GXQ

 +17      ;   BGP NEPHROPATHY CPTS

           DO ^BGP6GXR

 +18      ;   BGP ALT LOINC

           DO ^BGP6GXS

 +19      ;   BGP AST LOINC

           DO ^BGP6GXT

 +20      ;   BGP LIVER FUNCTION LOINC

           DO ^BGP6GXU

 +21      ;   BGP RA LEFLUNOMIDE NDC

           DO ^BGP6GXX

 +22      ;   BGP RA METHOTREXATE NDC

           DO ^BGP6GXY

 +23       QUIT