ATXFD.m

ATXFD ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 02, 2018;

 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^ATXFDA ;    BGP CHD DXS

 D ^ATXFDB ;    BGP IVD DXS

 D ^ATXFDC ;    BGP SEXUAL ACTIVITY DXS

 D ^ATXFDD ;    BGP LEFT EYE ENUCLEATION PROCS

 D ^ATXFDE ;    BGP RIGHT EYE ENUCLEATION PROC

 D ^ATXFDF ;    BGP DM MACULAR EDEMA DX

 D ^ATXFDG ;    BGP DM RETINOPATHY DX

 D ^ATXFDH ;    BGP LOWER EXT AMP ANY CPT

 D ^ATXFDI ;    BGP LOWER EXT AMP ANY DX

 D ^ATXFDJ ;    BGP LOWER EXT AMP ANY PROC ICD

 Q

ATXFD     ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 02, 2018;

 +1       ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47

 +2       ;

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

 +4       ;

START     ;

 +1       ;    BGP CHD DXS

           DO ^ATXFDA

 +2       ;    BGP IVD DXS

           DO ^ATXFDB

 +3       ;    BGP SEXUAL ACTIVITY DXS

           DO ^ATXFDC

 +4       ;    BGP LEFT EYE ENUCLEATION PROCS

           DO ^ATXFDD

 +5       ;    BGP RIGHT EYE ENUCLEATION PROC

           DO ^ATXFDE

 +6       ;    BGP DM MACULAR EDEMA DX

           DO ^ATXFDF

 +7       ;    BGP DM RETINOPATHY DX

           DO ^ATXFDG

 +8       ;    BGP LOWER EXT AMP ANY CPT

           DO ^ATXFDH

 +9       ;    BGP LOWER EXT AMP ANY DX

           DO ^ATXFDI

 +10      ;    BGP LOWER EXT AMP ANY PROC ICD

           DO ^ATXFDJ

 +11       QUIT