BGP9YX.m

BGP9YX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP9YXA ;   BGP ABNORMAL GAIT OR MOBILITY

 D ^BGP9YXB ;   BGP ABORTION PROCEDURES

 D ^BGP9YXC ;   BGP ACUTE MENTAL HEALTH

 D ^BGP9YXD ;   BGP ALCOHOL DXS

 D ^BGP9YXE ;   BGP ALCOHOL HLTH FACTOR

 D ^BGP9YXF ;   BGP ALCOHOL PROCEDURES

 D ^BGP9YXG ;   BGP ALCOHOL SCREEN ICDS

 D ^BGP9YXH ;   BGP ALCOHOL SCREENING CPTS

 D ^BGP9YXI ;   BGP ALT CPT

 D ^BGP9YXJ ;   BGP ALT LOINC

 D ^BGP9YXK ;   BGP AMI DXS (HEDIS)

 D ^BGP9YXL ;   BGP AMI DXS PAMT

 D ^BGP9YXM ;   BGP AMI IND 30

 D ^BGP9YXN ;   BGP ANTIDEPRESSANT VA CLASS

 D ^BGP9YXO ;   BGP ASA ALLERGY 995.0-995.3

 D ^BGP9YXP ;   BGP AST CPT

 D ^BGP9YXQ ;   BGP AST LOINC

 D ^BGP9YXR ;   BGP ASTHMA CONTROLLER NDC

 D ^BGP9YXS ;   BGP ASTHMA DXS

 D ^BGP9YXT ;   BGP ASTHMA INHALED STEROID NDC

 D ^BGP9YXU ;   BGP ASTHMA LEUKOTRIENE NDC

 Q

BGP9YX    ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP ABNORMAL GAIT OR MOBILITY

           DO ^BGP9YXA

 +2       ;   BGP ABORTION PROCEDURES

           DO ^BGP9YXB

 +3       ;   BGP ACUTE MENTAL HEALTH

           DO ^BGP9YXC

 +4       ;   BGP ALCOHOL DXS

           DO ^BGP9YXD

 +5       ;   BGP ALCOHOL HLTH FACTOR

           DO ^BGP9YXE

 +6       ;   BGP ALCOHOL PROCEDURES

           DO ^BGP9YXF

 +7       ;   BGP ALCOHOL SCREEN ICDS

           DO ^BGP9YXG

 +8       ;   BGP ALCOHOL SCREENING CPTS

           DO ^BGP9YXH

 +9       ;   BGP ALT CPT

           DO ^BGP9YXI

 +10      ;   BGP ALT LOINC

           DO ^BGP9YXJ

 +11      ;   BGP AMI DXS (HEDIS)

           DO ^BGP9YXK

 +12      ;   BGP AMI DXS PAMT

           DO ^BGP9YXL

 +13      ;   BGP AMI IND 30

           DO ^BGP9YXM

 +14      ;   BGP ANTIDEPRESSANT VA CLASS

           DO ^BGP9YXN

 +15      ;   BGP ASA ALLERGY 995.0-995.3

           DO ^BGP9YXO

 +16      ;   BGP AST CPT

           DO ^BGP9YXP

 +17      ;   BGP AST LOINC

           DO ^BGP9YXQ

 +18      ;   BGP ASTHMA CONTROLLER NDC

           DO ^BGP9YXR

 +19      ;   BGP ASTHMA DXS

           DO ^BGP9YXS

 +20      ;   BGP ASTHMA INHALED STEROID NDC

           DO ^BGP9YXT

 +21      ;   BGP ASTHMA LEUKOTRIENE NDC

           DO ^BGP9YXU

 +22       QUIT