Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP61E13

BGP61E13.m

Go to the documentation of this file.
BGP61E13 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1218,33261-0336-90 ",.02)
 ;;33261-0336-90
 ;;9002226.02101,"1218,33261-0349-30 ",.01)
 ;;33261-0349-30
 ;;9002226.02101,"1218,33261-0349-30 ",.02)
 ;;33261-0349-30
 ;;9002226.02101,"1218,33261-0349-60 ",.01)
 ;;33261-0349-60
 ;;9002226.02101,"1218,33261-0349-60 ",.02)
 ;;33261-0349-60
 ;;9002226.02101,"1218,33261-0349-90 ",.01)
 ;;33261-0349-90
 ;;9002226.02101,"1218,33261-0349-90 ",.02)
 ;;33261-0349-90
 ;;9002226.02101,"1218,33261-0517-00 ",.01)
 ;;33261-0517-00
 ;;9002226.02101,"1218,33261-0517-00 ",.02)
 ;;33261-0517-00
 ;;9002226.02101,"1218,33261-0517-30 ",.01)
 ;;33261-0517-30
 ;;9002226.02101,"1218,33261-0517-30 ",.02)
 ;;33261-0517-30
 ;;9002226.02101,"1218,33261-0517-60 ",.01)
 ;;33261-0517-60
 ;;9002226.02101,"1218,33261-0517-60 ",.02)
 ;;33261-0517-60
 ;;9002226.02101,"1218,33261-0517-90 ",.01)
 ;;33261-0517-90
 ;;9002226.02101,"1218,33261-0517-90 ",.02)
 ;;33261-0517-90
 ;;9002226.02101,"1218,33261-0537-00 ",.01)
 ;;33261-0537-00
 ;;9002226.02101,"1218,33261-0537-00 ",.02)
 ;;33261-0537-00
 ;;9002226.02101,"1218,33261-0537-30 ",.01)
 ;;33261-0537-30
 ;;9002226.02101,"1218,33261-0537-30 ",.02)
 ;;33261-0537-30
 ;;9002226.02101,"1218,33261-0537-60 ",.01)
 ;;33261-0537-60
 ;;9002226.02101,"1218,33261-0537-60 ",.02)
 ;;33261-0537-60
 ;;9002226.02101,"1218,33261-0537-90 ",.01)
 ;;33261-0537-90
 ;;9002226.02101,"1218,33261-0537-90 ",.02)
 ;;33261-0537-90
 ;;9002226.02101,"1218,33261-0544-00 ",.01)
 ;;33261-0544-00
 ;;9002226.02101,"1218,33261-0544-00 ",.02)
 ;;33261-0544-00
 ;;9002226.02101,"1218,33261-0544-30 ",.01)
 ;;33261-0544-30
 ;;9002226.02101,"1218,33261-0544-30 ",.02)
 ;;33261-0544-30
 ;;9002226.02101,"1218,33261-0544-60 ",.01)
 ;;33261-0544-60
 ;;9002226.02101,"1218,33261-0544-60 ",.02)
 ;;33261-0544-60
 ;;9002226.02101,"1218,33261-0544-90 ",.01)
 ;;33261-0544-90
 ;;9002226.02101,"1218,33261-0544-90 ",.02)
 ;;33261-0544-90
 ;;9002226.02101,"1218,33261-0545-00 ",.01)
 ;;33261-0545-00
 ;;9002226.02101,"1218,33261-0545-00 ",.02)
 ;;33261-0545-00
 ;;9002226.02101,"1218,33261-0545-30 ",.01)
 ;;33261-0545-30
 ;;9002226.02101,"1218,33261-0545-30 ",.02)
 ;;33261-0545-30
 ;;9002226.02101,"1218,33261-0545-60 ",.01)
 ;;33261-0545-60
 ;;9002226.02101,"1218,33261-0545-60 ",.02)
 ;;33261-0545-60
 ;;9002226.02101,"1218,33261-0545-90 ",.01)
 ;;33261-0545-90
 ;;9002226.02101,"1218,33261-0545-90 ",.02)
 ;;33261-0545-90
 ;;9002226.02101,"1218,33261-0642-30 ",.01)
 ;;33261-0642-30
 ;;9002226.02101,"1218,33261-0642-30 ",.02)
 ;;33261-0642-30
 ;;9002226.02101,"1218,33261-0642-60 ",.01)
 ;;33261-0642-60
 ;;9002226.02101,"1218,33261-0642-60 ",.02)
 ;;33261-0642-60
 ;;9002226.02101,"1218,33261-0642-90 ",.01)
 ;;33261-0642-90
 ;;9002226.02101,"1218,33261-0642-90 ",.02)
 ;;33261-0642-90
 ;;9002226.02101,"1218,33261-0643-30 ",.01)
 ;;33261-0643-30
 ;;9002226.02101,"1218,33261-0643-30 ",.02)
 ;;33261-0643-30
 ;;9002226.02101,"1218,33261-0643-60 ",.01)
 ;;33261-0643-60
 ;;9002226.02101,"1218,33261-0643-60 ",.02)
 ;;33261-0643-60
 ;;9002226.02101,"1218,33261-0643-90 ",.01)
 ;;33261-0643-90
 ;;9002226.02101,"1218,33261-0643-90 ",.02)
 ;;33261-0643-90
 ;;9002226.02101,"1218,33261-0848-00 ",.01)
 ;;33261-0848-00
 ;;9002226.02101,"1218,33261-0848-00 ",.02)
 ;;33261-0848-00
 ;;9002226.02101,"1218,33261-0848-30 ",.01)
 ;;33261-0848-30
 ;;9002226.02101,"1218,33261-0848-30 ",.02)
 ;;33261-0848-30
 ;;9002226.02101,"1218,33261-0848-60 ",.01)
 ;;33261-0848-60
 ;;9002226.02101,"1218,33261-0848-60 ",.02)
 ;;33261-0848-60
 ;;9002226.02101,"1218,33261-0848-90 ",.01)
 ;;33261-0848-90
 ;;9002226.02101,"1218,33261-0848-90 ",.02)
 ;;33261-0848-90
 ;;9002226.02101,"1218,33261-0855-00 ",.01)
 ;;33261-0855-00
 ;;9002226.02101,"1218,33261-0855-00 ",.02)
 ;;33261-0855-00
 ;;9002226.02101,"1218,33261-0855-30 ",.01)
 ;;33261-0855-30
 ;;9002226.02101,"1218,33261-0855-30 ",.02)
 ;;33261-0855-30
 ;;9002226.02101,"1218,33261-0855-60 ",.01)
 ;;33261-0855-60
 ;;9002226.02101,"1218,33261-0855-60 ",.02)
 ;;33261-0855-60
 ;;9002226.02101,"1218,33261-0855-90 ",.01)
 ;;33261-0855-90
 ;;9002226.02101,"1218,33261-0855-90 ",.02)
 ;;33261-0855-90
 ;;9002226.02101,"1218,33261-0856-30 ",.01)
 ;;33261-0856-30
 ;;9002226.02101,"1218,33261-0856-30 ",.02)
 ;;33261-0856-30
 ;;9002226.02101,"1218,33261-0856-60 ",.01)
 ;;33261-0856-60
 ;;9002226.02101,"1218,33261-0856-60 ",.02)
 ;;33261-0856-60
 ;;9002226.02101,"1218,33261-0856-90 ",.01)
 ;;33261-0856-90
 ;;9002226.02101,"1218,33261-0856-90 ",.02)
 ;;33261-0856-90
 ;;9002226.02101,"1218,33261-0898-00 ",.01)
 ;;33261-0898-00
 ;;9002226.02101,"1218,33261-0898-00 ",.02)
 ;;33261-0898-00
 ;;9002226.02101,"1218,33261-0898-30 ",.01)
 ;;33261-0898-30
 ;;9002226.02101,"1218,33261-0898-30 ",.02)
 ;;33261-0898-30
 ;;9002226.02101,"1218,33261-0898-60 ",.01)
 ;;33261-0898-60
 ;;9002226.02101,"1218,33261-0898-60 ",.02)
 ;;33261-0898-60
 ;;9002226.02101,"1218,33261-0898-90 ",.01)
 ;;33261-0898-90
 ;;9002226.02101,"1218,33261-0898-90 ",.02)
 ;;33261-0898-90
 ;;9002226.02101,"1218,33261-0918-30 ",.01)
 ;;33261-0918-30
 ;;9002226.02101,"1218,33261-0918-30 ",.02)
 ;;33261-0918-30
 ;;9002226.02101,"1218,33261-0918-60 ",.01)
 ;;33261-0918-60
 ;;9002226.02101,"1218,33261-0918-60 ",.02)
 ;;33261-0918-60
 ;;9002226.02101,"1218,33261-0918-90 ",.01)
 ;;33261-0918-90
 ;;9002226.02101,"1218,33261-0918-90 ",.02)
 ;;33261-0918-90
 ;;9002226.02101,"1218,33261-0942-00 ",.01)
 ;;33261-0942-00
 ;;9002226.02101,"1218,33261-0942-00 ",.02)
 ;;33261-0942-00
 ;;9002226.02101,"1218,33261-0942-30 ",.01)
 ;;33261-0942-30
 ;;9002226.02101,"1218,33261-0942-30 ",.02)
 ;;33261-0942-30
 ;;9002226.02101,"1218,33261-0942-60 ",.01)
 ;;33261-0942-60
 ;;9002226.02101,"1218,33261-0942-60 ",.02)
 ;;33261-0942-60
 ;;9002226.02101,"1218,33261-0942-90 ",.01)
 ;;33261-0942-90
 ;;9002226.02101,"1218,33261-0942-90 ",.02)
 ;;33261-0942-90
 ;;9002226.02101,"1218,33261-0975-30 ",.01)
 ;;33261-0975-30
 ;;9002226.02101,"1218,33261-0975-30 ",.02)
 ;;33261-0975-30
 ;;9002226.02101,"1218,33261-0975-60 ",.01)
 ;;33261-0975-60
 ;;9002226.02101,"1218,33261-0975-60 ",.02)
 ;;33261-0975-60
 ;;9002226.02101,"1218,33261-0975-90 ",.01)
 ;;33261-0975-90
 ;;9002226.02101,"1218,33261-0975-90 ",.02)
 ;;33261-0975-90
 ;;9002226.02101,"1218,33261-0986-30 ",.01)
 ;;33261-0986-30
 ;;9002226.02101,"1218,33261-0986-30 ",.02)
 ;;33261-0986-30
 ;;9002226.02101,"1218,33261-0986-60 ",.01)
 ;;33261-0986-60
 ;;9002226.02101,"1218,33261-0986-60 ",.02)
 ;;33261-0986-60
 ;;9002226.02101,"1218,33261-0986-90 ",.01)
 ;;33261-0986-90
 ;;9002226.02101,"1218,33261-0986-90 ",.02)
 ;;33261-0986-90
 ;;9002226.02101,"1218,33358-0037-00 ",.01)
 ;;33358-0037-00
 ;;9002226.02101,"1218,33358-0037-00 ",.02)
 ;;33358-0037-00
 ;;9002226.02101,"1218,33358-0037-30 ",.01)
 ;;33358-0037-30
 ;;9002226.02101,"1218,33358-0037-30 ",.02)
 ;;33358-0037-30
 ;;9002226.02101,"1218,33358-0037-60 ",.01)
 ;;33358-0037-60
 ;;9002226.02101,"1218,33358-0037-60 ",.02)
 ;;33358-0037-60
 ;;9002226.02101,"1218,33358-0038-00 ",.01)
 ;;33358-0038-00
 ;;9002226.02101,"1218,33358-0038-00 ",.02)
 ;;33358-0038-00
 ;;9002226.02101,"1218,33358-0038-30 ",.01)
 ;;33358-0038-30
 ;;9002226.02101,"1218,33358-0038-30 ",.02)
 ;;33358-0038-30
 ;;9002226.02101,"1218,33358-0038-60 ",.01)
 ;;33358-0038-60
 ;;9002226.02101,"1218,33358-0038-60 ",.02)
 ;;33358-0038-60
 ;;9002226.02101,"1218,33358-0039-00 ",.01)
 ;;33358-0039-00
 ;;9002226.02101,"1218,33358-0039-00 ",.02)
 ;;33358-0039-00
 ;;9002226.02101,"1218,33358-0039-30 ",.01)
 ;;33358-0039-30
 ;;9002226.02101,"1218,33358-0039-30 ",.02)
 ;;33358-0039-30
 ;;9002226.02101,"1218,33358-0192-30 ",.01)
 ;;33358-0192-30
 ;;9002226.02101,"1218,33358-0192-30 ",.02)
 ;;33358-0192-30
 ;;9002226.02101,"1218,33358-0193-30 ",.01)
 ;;33358-0193-30
 ;;9002226.02101,"1218,33358-0193-30 ",.02)
 ;;33358-0193-30
 ;;9002226.02101,"1218,33358-0194-30 ",.01)
 ;;33358-0194-30
 ;;9002226.02101,"1218,33358-0194-30 ",.02)
 ;;33358-0194-30
 ;;9002226.02101,"1218,33358-0242-00 ",.01)
 ;;33358-0242-00
 ;;9002226.02101,"1218,33358-0242-00 ",.02)
 ;;33358-0242-00
 ;;9002226.02101,"1218,33358-0242-01 ",.01)
 ;;33358-0242-01
 ;;9002226.02101,"1218,33358-0242-01 ",.02)
 ;;33358-0242-01
 ;;9002226.02101,"1218,33358-0242-30 ",.01)
 ;;33358-0242-30
 ;;9002226.02101,"1218,33358-0242-30 ",.02)
 ;;33358-0242-30
 ;;9002226.02101,"1218,33358-0242-60 ",.01)
 ;;33358-0242-60
 ;;9002226.02101,"1218,33358-0242-60 ",.02)
 ;;33358-0242-60
 ;;9002226.02101,"1218,33358-0242-90 ",.01)
 ;;33358-0242-90
 ;;9002226.02101,"1218,33358-0242-90 ",.02)
 ;;33358-0242-90
 ;;9002226.02101,"1218,33358-0243-00 ",.01)
 ;;33358-0243-00
 ;;9002226.02101,"1218,33358-0243-00 ",.02)
 ;;33358-0243-00
 ;;9002226.02101,"1218,33358-0243-30 ",.01)
 ;;33358-0243-30
 ;;9002226.02101,"1218,33358-0243-30 ",.02)
 ;;33358-0243-30
 ;;9002226.02101,"1218,35356-0362-30 ",.01)
 ;;35356-0362-30
 ;;9002226.02101,"1218,35356-0362-30 ",.02)
 ;;35356-0362-30
 ;;9002226.02101,"1218,35356-0362-60 ",.01)
 ;;35356-0362-60
 ;;9002226.02101,"1218,35356-0362-60 ",.02)
 ;;35356-0362-60
 ;;9002226.02101,"1218,35356-0415-30 ",.01)
 ;;35356-0415-30
 ;;9002226.02101,"1218,35356-0415-30 ",.02)
 ;;35356-0415-30
 ;;9002226.02101,"1218,35356-0490-30 ",.01)
 ;;35356-0490-30
 ;;9002226.02101,"1218,35356-0490-30 ",.02)
 ;;35356-0490-30
 ;;9002226.02101,"1218,35356-0512-18 ",.01)
 ;;35356-0512-18
 ;;9002226.02101,"1218,35356-0512-18 ",.02)
 ;;35356-0512-18
 ;;9002226.02101,"1218,35356-0512-30 ",.01)
 ;;35356-0512-30
 ;;9002226.02101,"1218,35356-0512-30 ",.02)
 ;;35356-0512-30
 ;;9002226.02101,"1218,35356-0512-60 ",.01)
 ;;35356-0512-60
 ;;9002226.02101,"1218,35356-0512-60 ",.02)
 ;;35356-0512-60
 ;;9002226.02101,"1218,35356-0513-30 ",.01)
 ;;35356-0513-30
 ;;9002226.02101,"1218,35356-0513-30 ",.02)
 ;;35356-0513-30
 ;;9002226.02101,"1218,35356-0513-60 ",.01)
 ;;35356-0513-60
 ;;9002226.02101,"1218,35356-0513-60 ",.02)
 ;;35356-0513-60
 ;;9002226.02101,"1218,35356-0518-30 ",.01)
 ;;35356-0518-30
 ;;9002226.02101,"1218,35356-0518-30 ",.02)
 ;;35356-0518-30
 ;;9002226.02101,"1218,35356-0526-00 ",.01)
 ;;35356-0526-00
 ;;9002226.02101,"1218,35356-0526-00 ",.02)
 ;;35356-0526-00
 ;;9002226.02101,"1218,35356-0526-30 ",.01)
 ;;35356-0526-30
 ;;9002226.02101,"1218,35356-0526-30 ",.02)
 ;;35356-0526-30
 ;;9002226.02101,"1218,35356-0526-60 ",.01)
 ;;35356-0526-60
 ;;9002226.02101,"1218,35356-0526-60 ",.02)
 ;;35356-0526-60
 ;;9002226.02101,"1218,35356-0526-90 ",.01)
 ;;35356-0526-90
 ;;9002226.02101,"1218,35356-0526-90 ",.02)
 ;;35356-0526-90
 ;;9002226.02101,"1218,35356-0737-30 ",.01)
 ;;35356-0737-30
 ;;9002226.02101,"1218,35356-0737-30 ",.02)
 ;;35356-0737-30
 ;;9002226.02101,"1218,35356-0738-00 ",.01)
 ;;35356-0738-00
 ;;9002226.02101,"1218,35356-0738-00 ",.02)
 ;;35356-0738-00
 ;;9002226.02101,"1218,35356-0782-30 ",.01)
 ;;35356-0782-30
 ;;9002226.02101,"1218,35356-0782-30 ",.02)
 ;;35356-0782-30
 ;;9002226.02101,"1218,35356-0782-60 ",.01)
 ;;35356-0782-60
 ;;9002226.02101,"1218,35356-0782-60 ",.02)
 ;;35356-0782-60
 ;;9002226.02101,"1218,35356-0782-90 ",.01)
 ;;35356-0782-90
 ;;9002226.02101,"1218,35356-0782-90 ",.02)
 ;;35356-0782-90
 ;;9002226.02101,"1218,35356-0859-30 ",.01)
 ;;35356-0859-30
 ;;9002226.02101,"1218,35356-0859-30 ",.02)
 ;;35356-0859-30
 ;;9002226.02101,"1218,35356-0888-30 ",.01)
 ;;35356-0888-30
 ;;9002226.02101,"1218,35356-0888-30 ",.02)
 ;;35356-0888-30
 ;;9002226.02101,"1218,35356-0888-60 ",.01)
 ;;35356-0888-60
 ;;9002226.02101,"1218,35356-0888-60 ",.02)
 ;;35356-0888-60
 ;;9002226.02101,"1218,35356-0888-90 ",.01)
 ;;35356-0888-90
 ;;9002226.02101,"1218,35356-0888-90 ",.02)
 ;;35356-0888-90
 ;;9002226.02101,"1218,35356-0889-30 ",.01)
 ;;35356-0889-30
 ;;9002226.02101,"1218,35356-0889-30 ",.02)
 ;;35356-0889-30
 ;;9002226.02101,"1218,35356-0889-60 ",.01)
 ;;35356-0889-60
 ;;9002226.02101,"1218,35356-0889-60 ",.02)
 ;;35356-0889-60
 ;;9002226.02101,"1218,35356-0889-90 ",.01)
 ;;35356-0889-90
 ;;9002226.02101,"1218,35356-0889-90 ",.02)
 ;;35356-0889-90
 ;;9002226.02101,"1218,35356-0898-30 ",.01)
 ;;35356-0898-30
 ;;9002226.02101,"1218,35356-0898-30 ",.02)
 ;;35356-0898-30
 ;;9002226.02101,"1218,35356-0898-60 ",.01)
 ;;35356-0898-60
 ;;9002226.02101,"1218,35356-0898-60 ",.02)
 ;;35356-0898-60
 ;;9002226.02101,"1218,35356-0898-90 ",.01)
 ;;35356-0898-90
 ;;9002226.02101,"1218,35356-0898-90 ",.02)
 ;;35356-0898-90
 ;;9002226.02101,"1218,35356-0908-30 ",.01)
 ;;35356-0908-30
 ;;9002226.02101,"1218,35356-0908-30 ",.02)
 ;;35356-0908-30
 ;;9002226.02101,"1218,35356-0908-60 ",.01)
 ;;35356-0908-60