BITX.m

BITX ;IHS/CMI/MWR - ROUTINES TO CREATE FLU AND PNEUMO RISK TAXONOMIES; MAY 10, 2010

 ;;8.5;IMMUNIZATION;**9**;OCT 01,2014

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 03, 2010.

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 ;D ^BITXA ;     BI HIGH RISK FLU

 ;D ^BITXB ;     BI HIGH RISK PNEUMO

 ;D ^BITXC ;     BI HIGH RISK PNEUMO W/SMOKING

 ;

 ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR

 ;---> Distribute new taxonomy from Lori.

 D ^BITXD ;     SURVEILLANCE FLU CVX CODES

 Q

BITX      ;IHS/CMI/MWR - ROUTINES TO CREATE FLU AND PNEUMO RISK TAXONOMIES; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;**9**;OCT 01,2014

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 03, 2010.

 +4       ;

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

 +6       ;

START     ;

 +1       ;D ^BITXA ;     BI HIGH RISK FLU

 +2       ;D ^BITXB ;     BI HIGH RISK PNEUMO

 +3       ;D ^BITXC ;     BI HIGH RISK PNEUMO W/SMOKING

 +4       ;

 +5       ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR

 +6       ;---> Distribute new taxonomy from Lori.

 +7       ;     SURVEILLANCE FLU CVX CODES

           DO ^BITXD

 +8        QUIT