BJPCTX.m

BJPCTX ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 25, 2008;

 ;;1.0;IHS PCC SUITE;**1**;MAR 14, 2008

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BJPCTXA ;   BGP PAP SMEAR DXS

 D ^BJPCTXB ;   BGP CPT MAMMOGRAM

 D ^BJPCTXC ;   APCH TD CPTS

 D ^BJPCTXD ;   APCH DIABETIC EYE EXAM CPTS

 D ^BJPCTXE ;   BGP TOBACCO USE CPTS

 D ^BJPCTXF ;   APCD DIABETIC RETINOPATHY DXS

 Q

BJPCTX    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 25, 2008;

 +1       ;;1.0;IHS PCC SUITE;**1**;MAR 14, 2008

 +2       ;

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

 +4       ;

START     ;

 +1       ;   BGP PAP SMEAR DXS

           DO ^BJPCTXA

 +2       ;   BGP CPT MAMMOGRAM

           DO ^BJPCTXB

 +3       ;   APCH TD CPTS

           DO ^BJPCTXC

 +4       ;   APCH DIABETIC EYE EXAM CPTS

           DO ^BJPCTXD

 +5       ;   BGP TOBACCO USE CPTS

           DO ^BJPCTXE

 +6       ;   APCD DIABETIC RETINOPATHY DXS

           DO ^BJPCTXF

 +7        QUIT