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

BGP71T13.m

Go to the documentation of this file.
BGP71T13 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,24090-0471-88 ",.01)
 ;;24090-0471-88
 ;;9002226.02101,"1218,24090-0471-88 ",.02)
 ;;24090-0471-88
 ;;9002226.02101,"1218,24090-0473-88 ",.01)
 ;;24090-0473-88
 ;;9002226.02101,"1218,24090-0473-88 ",.02)
 ;;24090-0473-88
 ;;9002226.02101,"1218,24090-0479-88 ",.01)
 ;;24090-0479-88
 ;;9002226.02101,"1218,24090-0479-88 ",.02)
 ;;24090-0479-88
 ;;9002226.02101,"1218,24987-0087-30 ",.01)
 ;;24987-0087-30
 ;;9002226.02101,"1218,24987-0087-30 ",.02)
 ;;24987-0087-30
 ;;9002226.02101,"1218,24987-0095-30 ",.01)
 ;;24987-0095-30
 ;;9002226.02101,"1218,24987-0095-30 ",.02)
 ;;24987-0095-30
 ;;9002226.02101,"1218,24987-0097-30 ",.01)
 ;;24987-0097-30
 ;;9002226.02101,"1218,24987-0097-30 ",.02)
 ;;24987-0097-30
 ;;9002226.02101,"1218,27505-0100-01 ",.01)
 ;;27505-0100-01
 ;;9002226.02101,"1218,27505-0100-01 ",.02)
 ;;27505-0100-01
 ;;9002226.02101,"1218,27505-0101-01 ",.01)
 ;;27505-0101-01
 ;;9002226.02101,"1218,27505-0101-01 ",.02)
 ;;27505-0101-01
 ;;9002226.02101,"1218,27505-0102-01 ",.01)
 ;;27505-0102-01
 ;;9002226.02101,"1218,27505-0102-01 ",.02)
 ;;27505-0102-01
 ;;9002226.02101,"1218,29033-0028-01 ",.01)
 ;;29033-0028-01
 ;;9002226.02101,"1218,29033-0028-01 ",.02)
 ;;29033-0028-01
 ;;9002226.02101,"1218,29033-0029-01 ",.01)
 ;;29033-0029-01
 ;;9002226.02101,"1218,29033-0029-01 ",.02)
 ;;29033-0029-01
 ;;9002226.02101,"1218,29300-0126-01 ",.01)
 ;;29300-0126-01
 ;;9002226.02101,"1218,29300-0126-01 ",.02)
 ;;29300-0126-01
 ;;9002226.02101,"1218,29300-0126-13 ",.01)
 ;;29300-0126-13
 ;;9002226.02101,"1218,29300-0126-13 ",.02)
 ;;29300-0126-13
 ;;9002226.02101,"1218,29300-0127-01 ",.01)
 ;;29300-0127-01
 ;;9002226.02101,"1218,29300-0127-01 ",.02)
 ;;29300-0127-01
 ;;9002226.02101,"1218,29300-0127-13 ",.01)
 ;;29300-0127-13
 ;;9002226.02101,"1218,29300-0127-13 ",.02)
 ;;29300-0127-13
 ;;9002226.02101,"1218,29300-0187-01 ",.01)
 ;;29300-0187-01
 ;;9002226.02101,"1218,29300-0187-01 ",.02)
 ;;29300-0187-01
 ;;9002226.02101,"1218,29300-0187-05 ",.01)
 ;;29300-0187-05
 ;;9002226.02101,"1218,29300-0187-05 ",.02)
 ;;29300-0187-05
 ;;9002226.02101,"1218,29300-0187-13 ",.01)
 ;;29300-0187-13
 ;;9002226.02101,"1218,29300-0187-13 ",.02)
 ;;29300-0187-13
 ;;9002226.02101,"1218,29300-0188-01 ",.01)
 ;;29300-0188-01
 ;;9002226.02101,"1218,29300-0188-01 ",.02)
 ;;29300-0188-01
 ;;9002226.02101,"1218,29300-0188-05 ",.01)
 ;;29300-0188-05
 ;;9002226.02101,"1218,29300-0188-05 ",.02)
 ;;29300-0188-05
 ;;9002226.02101,"1218,29300-0188-13 ",.01)
 ;;29300-0188-13
 ;;9002226.02101,"1218,29300-0188-13 ",.02)
 ;;29300-0188-13
 ;;9002226.02101,"1218,29300-0189-01 ",.01)
 ;;29300-0189-01
 ;;9002226.02101,"1218,29300-0189-01 ",.02)
 ;;29300-0189-01
 ;;9002226.02101,"1218,29300-0189-05 ",.01)
 ;;29300-0189-05
 ;;9002226.02101,"1218,29300-0189-05 ",.02)
 ;;29300-0189-05
 ;;9002226.02101,"1218,29300-0189-13 ",.01)
 ;;29300-0189-13
 ;;9002226.02101,"1218,29300-0189-13 ",.02)
 ;;29300-0189-13
 ;;9002226.02101,"1218,30698-0458-01 ",.01)
 ;;30698-0458-01
 ;;9002226.02101,"1218,30698-0458-01 ",.02)
 ;;30698-0458-01
 ;;9002226.02101,"1218,30698-0459-01 ",.01)
 ;;30698-0459-01
 ;;9002226.02101,"1218,30698-0459-01 ",.02)
 ;;30698-0459-01
 ;;9002226.02101,"1218,30698-0460-01 ",.01)
 ;;30698-0460-01
 ;;9002226.02101,"1218,30698-0460-01 ",.02)
 ;;30698-0460-01
 ;;9002226.02101,"1218,31722-0347-01 ",.01)
 ;;31722-0347-01
 ;;9002226.02101,"1218,31722-0347-01 ",.02)
 ;;31722-0347-01
 ;;9002226.02101,"1218,31722-0348-01 ",.01)
 ;;31722-0348-01
 ;;9002226.02101,"1218,31722-0348-01 ",.02)
 ;;31722-0348-01
 ;;9002226.02101,"1218,31722-0349-01 ",.01)
 ;;31722-0349-01
 ;;9002226.02101,"1218,31722-0349-01 ",.02)
 ;;31722-0349-01
 ;;9002226.02101,"1218,33261-0221-30 ",.01)
 ;;33261-0221-30
 ;;9002226.02101,"1218,33261-0221-30 ",.02)
 ;;33261-0221-30
 ;;9002226.02101,"1218,33261-0221-60 ",.01)
 ;;33261-0221-60
 ;;9002226.02101,"1218,33261-0221-60 ",.02)
 ;;33261-0221-60
 ;;9002226.02101,"1218,33261-0221-90 ",.01)
 ;;33261-0221-90
 ;;9002226.02101,"1218,33261-0221-90 ",.02)
 ;;33261-0221-90
 ;;9002226.02101,"1218,33261-0334-00 ",.01)
 ;;33261-0334-00
 ;;9002226.02101,"1218,33261-0334-00 ",.02)
 ;;33261-0334-00
 ;;9002226.02101,"1218,33261-0334-30 ",.01)
 ;;33261-0334-30
 ;;9002226.02101,"1218,33261-0334-30 ",.02)
 ;;33261-0334-30
 ;;9002226.02101,"1218,33261-0334-60 ",.01)
 ;;33261-0334-60
 ;;9002226.02101,"1218,33261-0334-60 ",.02)
 ;;33261-0334-60
 ;;9002226.02101,"1218,33261-0334-90 ",.01)
 ;;33261-0334-90
 ;;9002226.02101,"1218,33261-0334-90 ",.02)
 ;;33261-0334-90
 ;;9002226.02101,"1218,33261-0336-30 ",.01)
 ;;33261-0336-30
 ;;9002226.02101,"1218,33261-0336-30 ",.02)
 ;;33261-0336-30
 ;;9002226.02101,"1218,33261-0336-60 ",.01)
 ;;33261-0336-60
 ;;9002226.02101,"1218,33261-0336-60 ",.02)
 ;;33261-0336-60
 ;;9002226.02101,"1218,33261-0336-90 ",.01)
 ;;33261-0336-90
 ;;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