BGP0Y.m

BGP0Y ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BGP0YA ;    BGP TOBACCO USE CPTS

 D ^BGP0YB ;    BGP TOBACCO USER CPTS

 D ^BGP0YC ;    BGP TOBACCO USER DXS

 D ^BGP0YD ;    BGP TOTAL CHOLESTEROL LOINC

 D ^BGP0YE ;    BGP TOTAL COLECTOMY CPTS

 D ^BGP0YF ;    BGP TOTAL COLECTOMY PROCS

 D ^BGP0YG ;    BGP TRIGLYCERIDE LOINC CODES

 D ^BGP0YH ;    BGP UNI MASTECTOMY PROCEDURES

 D ^BGP0YI ;    BGP URI DXS

 D ^BGP0YJ ;    BGP URINE GLUCOSE LOINC

 D ^BGP0YK ;    BGP URINE PROTEIN LOINC CODES

 D ^BGP0YL ;    BGP VARICELLA CONTRA

 D ^BGP0YM ;    BGP VARICELLA EVIDENCE

 D ^BGP0YN ;    BGP VIRAL LOAD LOINC CODES

 D ^BGP0YO ;    DM AUDIT FASTING GLUC LOINC

 D ^BGP0YP ;    DM AUDIT URINALYSIS LOINC

 D ^BGP0YQ ;    SURVEILLANCE CPT H1N1

 D ^BGP0YR ;    SURVEILLANCE DIABETES

 Q

BGP0Y     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 +1       ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BGP TOBACCO USE CPTS

           DO ^BGP0YA

 +2       ;    BGP TOBACCO USER CPTS

           DO ^BGP0YB

 +3       ;    BGP TOBACCO USER DXS

           DO ^BGP0YC

 +4       ;    BGP TOTAL CHOLESTEROL LOINC

           DO ^BGP0YD

 +5       ;    BGP TOTAL COLECTOMY CPTS

           DO ^BGP0YE

 +6       ;    BGP TOTAL COLECTOMY PROCS

           DO ^BGP0YF

 +7       ;    BGP TRIGLYCERIDE LOINC CODES

           DO ^BGP0YG

 +8       ;    BGP UNI MASTECTOMY PROCEDURES

           DO ^BGP0YH

 +9       ;    BGP URI DXS

           DO ^BGP0YI

 +10      ;    BGP URINE GLUCOSE LOINC

           DO ^BGP0YJ

 +11      ;    BGP URINE PROTEIN LOINC CODES

           DO ^BGP0YK

 +12      ;    BGP VARICELLA CONTRA

           DO ^BGP0YL

 +13      ;    BGP VARICELLA EVIDENCE

           DO ^BGP0YM

 +14      ;    BGP VIRAL LOAD LOINC CODES

           DO ^BGP0YN

 +15      ;    DM AUDIT FASTING GLUC LOINC

           DO ^BGP0YO

 +16      ;    DM AUDIT URINALYSIS LOINC

           DO ^BGP0YP

 +17      ;    SURVEILLANCE CPT H1N1

           DO ^BGP0YQ

 +18      ;    SURVEILLANCE DIABETES

           DO ^BGP0YR

 +19       QUIT