BGP50.m

BGP50 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;

 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP50A ;    BGP CPT FOOT EXAM

 D ^BGP50B ;    BGP CPT BILAT FOOT AMP

 D ^BGP50C ;    BGP ESRD CPTS

 D ^BGP50D ;    BGP LDL CPTS

 D ^BGP50E ;    BGP BP MEASURED CPT

 D ^BGP50F ;    BGP RASA NDC

 D ^BGP50G ;    BGP CPT FLU

 D ^BGP50H ;    BGP PNEUMO IZ CPTS

 D ^BGP50I ;    BGP COLO CPTS

 D ^BGP50J ;    BGP TOBACCO SCREEN CPTS

 D ^BGP50K ;    BGP TOBACCO USER CPTS

 D ^BGP50L ;    BGP TOBACCO USE CPTS

 D ^BGP50M ;    BGP PQA STATIN NDC

 D ^BGP50N ;    BGP CD4 CPTS

 D ^BGP50O ;    BGP HEP C CONF CPTS

 D ^BGP50P ;    BGP CHLAMYDIA CPTS

 D ^BGP50Q ;    BGP PQA BENZODIAZ NDC

 D ^BGP50R ;    BGP PNEUMO IZ CPT DEV

 D ^BGP50S ;    BGP OPEN ANGLE GLAUCOMA DXS

 D ^BGP50T ;    BGP FLU IZ CVX CODES

 D ^BGP50U ;    BGP ALT LOINC

 D ^BGP50V ;    BGP AST LOINC

 D ^BGP50W ;    BGP CBC LOINC

 D ^BGP50X ;    BGP CREATININE LOINC CODES

 D ^BGP50Y ;    BGP GLUCOSE LOINC

 D ^BGP50Z ;    BGP HEP C TEST LOINC CODES

 Q

BGP50     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;

 +1       ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BGP CPT FOOT EXAM

           DO ^BGP50A

 +2       ;    BGP CPT BILAT FOOT AMP

           DO ^BGP50B

 +3       ;    BGP ESRD CPTS

           DO ^BGP50C

 +4       ;    BGP LDL CPTS

           DO ^BGP50D

 +5       ;    BGP BP MEASURED CPT

           DO ^BGP50E

 +6       ;    BGP RASA NDC

           DO ^BGP50F

 +7       ;    BGP CPT FLU

           DO ^BGP50G

 +8       ;    BGP PNEUMO IZ CPTS

           DO ^BGP50H

 +9       ;    BGP COLO CPTS

           DO ^BGP50I

 +10      ;    BGP TOBACCO SCREEN CPTS

           DO ^BGP50J

 +11      ;    BGP TOBACCO USER CPTS

           DO ^BGP50K

 +12      ;    BGP TOBACCO USE CPTS

           DO ^BGP50L

 +13      ;    BGP PQA STATIN NDC

           DO ^BGP50M

 +14      ;    BGP CD4 CPTS

           DO ^BGP50N

 +15      ;    BGP HEP C CONF CPTS

           DO ^BGP50O

 +16      ;    BGP CHLAMYDIA CPTS

           DO ^BGP50P

 +17      ;    BGP PQA BENZODIAZ NDC

           DO ^BGP50Q

 +18      ;    BGP PNEUMO IZ CPT DEV

           DO ^BGP50R

 +19      ;    BGP OPEN ANGLE GLAUCOMA DXS

           DO ^BGP50S

 +20      ;    BGP FLU IZ CVX CODES

           DO ^BGP50T

 +21      ;    BGP ALT LOINC

           DO ^BGP50U

 +22      ;    BGP AST LOINC

           DO ^BGP50V

 +23      ;    BGP CBC LOINC

           DO ^BGP50W

 +24      ;    BGP CREATININE LOINC CODES

           DO ^BGP50X

 +25      ;    BGP GLUCOSE LOINC

           DO ^BGP50Y

 +26      ;    BGP HEP C TEST LOINC CODES

           DO ^BGP50Z

 +27       QUIT