BGP0Z.m

BGP0Z ;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 ^BGP0ZA ;    BGP RA LEFLUNOMIDE NDC

 D ^BGP0ZB ;    BGP RA METHOTREXATE NDC

 D ^BGP0ZC ;    BGP RA MYCOPHENOLATE NDC

 D ^BGP0ZD ;    BGP RA OA NSAID NDC

 D ^BGP0ZE ;    BGP RA PENICILLAMINE NDC

 D ^BGP0ZF ;    BGP RA SULFASALAZINE NDC

 D ^BGP0ZG ;    BGP RETINAL EXAM CPTS

 D ^BGP0ZH ;    BGP RHEUMATOID ARTHRITIS DXS

 D ^BGP0ZI ;    BGP RUBELLA EVIDENCE

 D ^BGP0ZJ ;    BGP SIG CPTS

 D ^BGP0ZK ;    BGP SIG PROCS

 D ^BGP0ZL ;    BGP SINUS BRADYCARDIA DXS

 D ^BGP0ZM ;    BGP SMOKELESS TOBACCO CPTS

 D ^BGP0ZN ;    BGP SMOKER CPTS

 D ^BGP0ZO ;    BGP SMOKER ONLY DXS

 D ^BGP0ZP ;    BGP SMOKING CPTS

 D ^BGP0ZQ ;    BGP ST ELEVATION DX

 D ^BGP0ZR ;    BGP SUBSTANCE ABUSE

 D ^BGP0ZS ;    BGP SYSTOLIC BP CPTS

 D ^BGP0ZT ;    BGP THROMBOLYTIC AGENT CLASS

 D ^BGP0ZU ;    BGP TIA DXS

 D ^BGP0ZV ;    BGP TOBACCO CESS CPTS

 D ^BGP0ZW ;    BGP TOBACCO CESS DENTAL CODE

 D ^BGP0ZX ;    BGP TOBACCO DXS

 D ^BGP0ZY ;    BGP TOBACCO SCREEN CPTS

 Q

BGP0Z     ;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 RA LEFLUNOMIDE NDC

           DO ^BGP0ZA

 +2       ;    BGP RA METHOTREXATE NDC

           DO ^BGP0ZB

 +3       ;    BGP RA MYCOPHENOLATE NDC

           DO ^BGP0ZC

 +4       ;    BGP RA OA NSAID NDC

           DO ^BGP0ZD

 +5       ;    BGP RA PENICILLAMINE NDC

           DO ^BGP0ZE

 +6       ;    BGP RA SULFASALAZINE NDC

           DO ^BGP0ZF

 +7       ;    BGP RETINAL EXAM CPTS

           DO ^BGP0ZG

 +8       ;    BGP RHEUMATOID ARTHRITIS DXS

           DO ^BGP0ZH

 +9       ;    BGP RUBELLA EVIDENCE

           DO ^BGP0ZI

 +10      ;    BGP SIG CPTS

           DO ^BGP0ZJ

 +11      ;    BGP SIG PROCS

           DO ^BGP0ZK

 +12      ;    BGP SINUS BRADYCARDIA DXS

           DO ^BGP0ZL

 +13      ;    BGP SMOKELESS TOBACCO CPTS

           DO ^BGP0ZM

 +14      ;    BGP SMOKER CPTS

           DO ^BGP0ZN

 +15      ;    BGP SMOKER ONLY DXS

           DO ^BGP0ZO

 +16      ;    BGP SMOKING CPTS

           DO ^BGP0ZP

 +17      ;    BGP ST ELEVATION DX

           DO ^BGP0ZQ

 +18      ;    BGP SUBSTANCE ABUSE

           DO ^BGP0ZR

 +19      ;    BGP SYSTOLIC BP CPTS

           DO ^BGP0ZS

 +20      ;    BGP THROMBOLYTIC AGENT CLASS

           DO ^BGP0ZT

 +21      ;    BGP TIA DXS

           DO ^BGP0ZU

 +22      ;    BGP TOBACCO CESS CPTS

           DO ^BGP0ZV

 +23      ;    BGP TOBACCO CESS DENTAL CODE

           DO ^BGP0ZW

 +24      ;    BGP TOBACCO DXS

           DO ^BGP0ZX

 +25      ;    BGP TOBACCO SCREEN CPTS

           DO ^BGP0ZY

 +26       QUIT