BMCTX.m

BMCTX ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BMCTXA ;    BMC 3RD PARTY LIABILITY ALERT

 D ^BMCTXB ;    BMC COSMETIC CPT PROCEDURES

 D ^BMCTXC ;    BMC EXCLUDED CPT PROCEDURES

 D ^BMCTXD ;    BMC EXPERIMENTAL CPT PROC

 D ^BMCTXE ;    BMC HIGH COST PROCEDURES

 D ^BMCTXF ;    BMC POTENTIAL HIGH COST DX

 Q

BMCTX     ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BMC 3RD PARTY LIABILITY ALERT

           DO ^BMCTXA

 +2       ;    BMC COSMETIC CPT PROCEDURES

           DO ^BMCTXB

 +3       ;    BMC EXCLUDED CPT PROCEDURES

           DO ^BMCTXC

 +4       ;    BMC EXPERIMENTAL CPT PROC

           DO ^BMCTXD

 +5       ;    BMC HIGH COST PROCEDURES

           DO ^BMCTXE

 +6       ;    BMC POTENTIAL HIGH COST DX

           DO ^BMCTXF

 +7        QUIT