BGP8AX.m

BGP8AX ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2008;

 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP8AXA ;   BGP ABNORMAL GAIT OR MOBILITY

 D ^BGP8AXB ;   BGP ACUTE MENTAL HEALTH

 D ^BGP8AXC ;   BGP ALCOHOL DXS

 D ^BGP8AXD ;   BGP ALCOHOL PROCEDURES

 D ^BGP8AXE ;   BGP ALT CPT

 D ^BGP8AXF ;   BGP ALT LOINC

 D ^BGP8AXG ;   BGP AMI DXS (HEDIS)

 D ^BGP8AXH ;   BGP AMI DXS PAMT

 D ^BGP8AXI ;   BGP AMI IND 30

 D ^BGP8AXJ ;   BGP ASA ALLERGY 995.0-995.3

 D ^BGP8AXK ;   BGP AST CPT

 D ^BGP8AXL ;   BGP AST LOINC

 D ^BGP8AXM ;   BGP ASTHMA DXS

 D ^BGP8AXN ;   BGP ASTHMA INHALED STEROID NDC

 D ^BGP8AXO ;   BGP BE CPTS

 D ^BGP8AXP ;   BGP BILATERAL MASTECTOMY CPTS

 D ^BGP8AXQ ;   BGP BLOOD CULTURE LOINC

 D ^BGP8AXR ;   BGP BMD CPTS

 D ^BGP8AXS ;   BGP BMD DXS

 D ^BGP8AXT ;   BGP BMD PROCEDURES

 D ^BGP8AXU ;   BGP CABG CPTS

 D ^BGP8AXV ;   BGP CABG PROCS

 D ^BGP8AXW ;   BGP CAUSE OF INJURY ECODES

 D ^BGP8AXX ;   BGP CBC CPT

 D ^BGP8AXY ;   BGP CBC LOINC

 Q

BGP8AX    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2008;

 +1       ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP ABNORMAL GAIT OR MOBILITY

           DO ^BGP8AXA

 +2       ;   BGP ACUTE MENTAL HEALTH

           DO ^BGP8AXB

 +3       ;   BGP ALCOHOL DXS

           DO ^BGP8AXC

 +4       ;   BGP ALCOHOL PROCEDURES

           DO ^BGP8AXD

 +5       ;   BGP ALT CPT

           DO ^BGP8AXE

 +6       ;   BGP ALT LOINC

           DO ^BGP8AXF

 +7       ;   BGP AMI DXS (HEDIS)

           DO ^BGP8AXG

 +8       ;   BGP AMI DXS PAMT

           DO ^BGP8AXH

 +9       ;   BGP AMI IND 30

           DO ^BGP8AXI

 +10      ;   BGP ASA ALLERGY 995.0-995.3

           DO ^BGP8AXJ

 +11      ;   BGP AST CPT

           DO ^BGP8AXK

 +12      ;   BGP AST LOINC

           DO ^BGP8AXL

 +13      ;   BGP ASTHMA DXS

           DO ^BGP8AXM

 +14      ;   BGP ASTHMA INHALED STEROID NDC

           DO ^BGP8AXN

 +15      ;   BGP BE CPTS

           DO ^BGP8AXO

 +16      ;   BGP BILATERAL MASTECTOMY CPTS

           DO ^BGP8AXP

 +17      ;   BGP BLOOD CULTURE LOINC

           DO ^BGP8AXQ

 +18      ;   BGP BMD CPTS

           DO ^BGP8AXR

 +19      ;   BGP BMD DXS

           DO ^BGP8AXS

 +20      ;   BGP BMD PROCEDURES

           DO ^BGP8AXT

 +21      ;   BGP CABG CPTS

           DO ^BGP8AXU

 +22      ;   BGP CABG PROCS

           DO ^BGP8AXV

 +23      ;   BGP CAUSE OF INJURY ECODES

           DO ^BGP8AXW

 +24      ;   BGP CBC CPT

           DO ^BGP8AXX

 +25      ;   BGP CBC LOINC

           DO ^BGP8AXY

 +26       QUIT