BGP7GX.m

BGP7GX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 27, 2006 ;

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

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP7GXA ;   BGP SIG CPTS

 D ^BGP7GXB ;   BGP BE CPTS

 D ^BGP7GXC ;   BGP COLO CPTS

 D ^BGP7GXD ;   BGP ALCOHOL DXS

 D ^BGP7GXE ;   BGP ALCOHOL PROCEDURES

 D ^BGP7GXF ;   BGP DV DXS

 D ^BGP7GXG ;   BGP MOOD DISORDERS

 D ^BGP7GXH ;   BGP TOTAL CHOLESTEROL LOINC

 D ^BGP7GXI ;   BGP HYPERTENSION DXS

 D ^BGP7GXJ ;   BGP AMI IND 30

 D ^BGP7GXK ;   BGP AMI DXS PAMT

 D ^BGP7GXL ;   BGP MYOPATHY/MYALGIA

 D ^BGP7GXM ;   BGP HEDIS ASTHMA NDC

 D ^BGP7GXN ;   BGP HEDIS PRIMARY ASTHMA NDC

 D ^BGP7GXO ;   BGP HEDIS OTHER NDC AVOID ELD

 D ^BGP7GXP ;   BGP CREATINE KINASE LOINC

 D ^BGP7GXQ ;   BGP HEDIS ORAL ESTROGEN NDC

 Q

BGP7GX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 27, 2006 ;

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

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP SIG CPTS

           DO ^BGP7GXA

 +2       ;   BGP BE CPTS

           DO ^BGP7GXB

 +3       ;   BGP COLO CPTS

           DO ^BGP7GXC

 +4       ;   BGP ALCOHOL DXS

           DO ^BGP7GXD

 +5       ;   BGP ALCOHOL PROCEDURES

           DO ^BGP7GXE

 +6       ;   BGP DV DXS

           DO ^BGP7GXF

 +7       ;   BGP MOOD DISORDERS

           DO ^BGP7GXG

 +8       ;   BGP TOTAL CHOLESTEROL LOINC

           DO ^BGP7GXH

 +9       ;   BGP HYPERTENSION DXS

           DO ^BGP7GXI

 +10      ;   BGP AMI IND 30

           DO ^BGP7GXJ

 +11      ;   BGP AMI DXS PAMT

           DO ^BGP7GXK

 +12      ;   BGP MYOPATHY/MYALGIA

           DO ^BGP7GXL

 +13      ;   BGP HEDIS ASTHMA NDC

           DO ^BGP7GXM

 +14      ;   BGP HEDIS PRIMARY ASTHMA NDC

           DO ^BGP7GXN

 +15      ;   BGP HEDIS OTHER NDC AVOID ELD

           DO ^BGP7GXO

 +16      ;   BGP CREATINE KINASE LOINC

           DO ^BGP7GXP

 +17      ;   BGP HEDIS ORAL ESTROGEN NDC

           DO ^BGP7GXQ

 +18       QUIT