BGP9PX.m

BGP9PX ; 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 ^BGP9PXA ;   BGP RA MYCOPHENOLATE NDC

 D ^BGP9PXB ;   BGP RA PENICILLAMINE NDC

 D ^BGP9PXC ;   BGP RA SULFASALAZINE NDC

 D ^BGP9PXD ;   BGP RECTAL PROCEDURE CODES

 D ^BGP9PXE ;   BGP RHEUMATOID ARTHRITIS DXS

 D ^BGP9PXF ;   BGP RUBELLA EVIDENCE

 D ^BGP9PXG ;   BGP SIG CPTS

 D ^BGP9PXH ;   BGP SIG PROCS

 D ^BGP9PXI ;   BGP SINUS BRADYCARDIA DXS

 D ^BGP9PXJ ;   BGP SMOKELESS TOBACCO CPTS

 D ^BGP9PXK ;   BGP SMOKER CPTS

 D ^BGP9PXL ;   BGP SMOKING CPTS

 D ^BGP9PXM ;   BGP ST ELEVATION DX

 D ^BGP9PXN ;   BGP SUBSTANCE ABUSE

 D ^BGP9PXO ;   BGP SYSTOLIC BP CPTS

 D ^BGP9PXP ;   BGP THROMBOLYTIC AGENT CLASS

 D ^BGP9PXQ ;   BGP TIA DXS

 D ^BGP9PXR ;   BGP TOBACCO CESS DENTAL CODE

 D ^BGP9PXS ;   BGP TOBACCO DXS

 D ^BGP9PXT ;   BGP TOBACCO USE CPTS

 D ^BGP9PXU ;   BGP TOBACCO USER HLTH FACTORS

 D ^BGP9PXV ;   BGP TOBACCO USER DXS

 D ^BGP9PXW ;   BGP TOTAL COLECTOMY CPTS

 D ^BGP9PXX ;   BGP TOTAL COLECTOMY PROCS

 D ^BGP9PXY ;   BGP TOTAL CHOLESTEROL LOINC

 D ^BGP9PXZ ;   BGP TRIGLYCERIDE LOINC CODES

 Q

BGP9PX    ; 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 RA MYCOPHENOLATE NDC

           DO ^BGP9PXA

 +2       ;   BGP RA PENICILLAMINE NDC

           DO ^BGP9PXB

 +3       ;   BGP RA SULFASALAZINE NDC

           DO ^BGP9PXC

 +4       ;   BGP RECTAL PROCEDURE CODES

           DO ^BGP9PXD

 +5       ;   BGP RHEUMATOID ARTHRITIS DXS

           DO ^BGP9PXE

 +6       ;   BGP RUBELLA EVIDENCE

           DO ^BGP9PXF

 +7       ;   BGP SIG CPTS

           DO ^BGP9PXG

 +8       ;   BGP SIG PROCS

           DO ^BGP9PXH

 +9       ;   BGP SINUS BRADYCARDIA DXS

           DO ^BGP9PXI

 +10      ;   BGP SMOKELESS TOBACCO CPTS

           DO ^BGP9PXJ

 +11      ;   BGP SMOKER CPTS

           DO ^BGP9PXK

 +12      ;   BGP SMOKING CPTS

           DO ^BGP9PXL

 +13      ;   BGP ST ELEVATION DX

           DO ^BGP9PXM

 +14      ;   BGP SUBSTANCE ABUSE

           DO ^BGP9PXN

 +15      ;   BGP SYSTOLIC BP CPTS

           DO ^BGP9PXO

 +16      ;   BGP THROMBOLYTIC AGENT CLASS

           DO ^BGP9PXP

 +17      ;   BGP TIA DXS

           DO ^BGP9PXQ

 +18      ;   BGP TOBACCO CESS DENTAL CODE

           DO ^BGP9PXR

 +19      ;   BGP TOBACCO DXS

           DO ^BGP9PXS

 +20      ;   BGP TOBACCO USE CPTS

           DO ^BGP9PXT

 +21      ;   BGP TOBACCO USER HLTH FACTORS

           DO ^BGP9PXU

 +22      ;   BGP TOBACCO USER DXS

           DO ^BGP9PXV

 +23      ;   BGP TOTAL COLECTOMY CPTS

           DO ^BGP9PXW

 +24      ;   BGP TOTAL COLECTOMY PROCS

           DO ^BGP9PXX

 +25      ;   BGP TOTAL CHOLESTEROL LOINC

           DO ^BGP9PXY

 +26      ;   BGP TRIGLYCERIDE LOINC CODES

           DO ^BGP9PXZ

 +27       QUIT