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

BGP82B8.m

Go to the documentation of this file.
BGP82B8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"544,68180-0837-11 ",.02)
 ;;68180-0837-11
 ;;9002226.02101,"544,68180-0837-13 ",.01)
 ;;68180-0837-13
 ;;9002226.02101,"544,68180-0837-13 ",.02)
 ;;68180-0837-13
 ;;9002226.02101,"544,68180-0843-13 ",.01)
 ;;68180-0843-13
 ;;9002226.02101,"544,68180-0843-13 ",.02)
 ;;68180-0843-13
 ;;9002226.02101,"544,68180-0844-13 ",.01)
 ;;68180-0844-13
 ;;9002226.02101,"544,68180-0844-13 ",.02)
 ;;68180-0844-13
 ;;9002226.02101,"544,68180-0846-13 ",.01)
 ;;68180-0846-13
 ;;9002226.02101,"544,68180-0846-13 ",.02)
 ;;68180-0846-13
 ;;9002226.02101,"544,68180-0848-13 ",.01)
 ;;68180-0848-13
 ;;9002226.02101,"544,68180-0848-13 ",.02)
 ;;68180-0848-13
 ;;9002226.02101,"544,68180-0853-13 ",.01)
 ;;68180-0853-13
 ;;9002226.02101,"544,68180-0853-13 ",.02)
 ;;68180-0853-13
 ;;9002226.02101,"544,68180-0854-13 ",.01)
 ;;68180-0854-13
 ;;9002226.02101,"544,68180-0854-13 ",.02)
 ;;68180-0854-13
 ;;9002226.02101,"544,68180-0864-11 ",.01)
 ;;68180-0864-11
 ;;9002226.02101,"544,68180-0864-11 ",.02)
 ;;68180-0864-11
 ;;9002226.02101,"544,68180-0864-13 ",.01)
 ;;68180-0864-13
 ;;9002226.02101,"544,68180-0864-13 ",.02)
 ;;68180-0864-13
 ;;9002226.02101,"544,68180-0865-11 ",.01)
 ;;68180-0865-11
 ;;9002226.02101,"544,68180-0865-11 ",.02)
 ;;68180-0865-11
 ;;9002226.02101,"544,68180-0865-13 ",.01)
 ;;68180-0865-13
 ;;9002226.02101,"544,68180-0865-13 ",.02)
 ;;68180-0865-13
 ;;9002226.02101,"544,68180-0866-11 ",.01)
 ;;68180-0866-11
 ;;9002226.02101,"544,68180-0866-11 ",.02)
 ;;68180-0866-11
 ;;9002226.02101,"544,68180-0866-13 ",.01)
 ;;68180-0866-13
 ;;9002226.02101,"544,68180-0866-13 ",.02)
 ;;68180-0866-13
 ;;9002226.02101,"544,68180-0875-13 ",.01)
 ;;68180-0875-13
 ;;9002226.02101,"544,68180-0875-13 ",.02)
 ;;68180-0875-13
 ;;9002226.02101,"544,68180-0876-11 ",.01)
 ;;68180-0876-11
 ;;9002226.02101,"544,68180-0876-11 ",.02)
 ;;68180-0876-11
 ;;9002226.02101,"544,68180-0876-13 ",.01)
 ;;68180-0876-13
 ;;9002226.02101,"544,68180-0876-13 ",.02)
 ;;68180-0876-13
 ;;9002226.02101,"544,68180-0877-11 ",.01)
 ;;68180-0877-11
 ;;9002226.02101,"544,68180-0877-11 ",.02)
 ;;68180-0877-11
 ;;9002226.02101,"544,68180-0877-13 ",.01)
 ;;68180-0877-13
 ;;9002226.02101,"544,68180-0877-13 ",.02)
 ;;68180-0877-13
 ;;9002226.02101,"544,68180-0882-13 ",.01)
 ;;68180-0882-13
 ;;9002226.02101,"544,68180-0882-13 ",.02)
 ;;68180-0882-13
 ;;9002226.02101,"544,68180-0886-13 ",.01)
 ;;68180-0886-13
 ;;9002226.02101,"544,68180-0886-13 ",.02)
 ;;68180-0886-13
 ;;9002226.02101,"544,68180-0892-11 ",.01)
 ;;68180-0892-11
 ;;9002226.02101,"544,68180-0892-11 ",.02)
 ;;68180-0892-11
 ;;9002226.02101,"544,68180-0892-13 ",.01)
 ;;68180-0892-13
 ;;9002226.02101,"544,68180-0892-13 ",.02)
 ;;68180-0892-13
 ;;9002226.02101,"544,68180-0893-11 ",.01)
 ;;68180-0893-11
 ;;9002226.02101,"544,68180-0893-11 ",.02)
 ;;68180-0893-11
 ;;9002226.02101,"544,68180-0893-13 ",.01)
 ;;68180-0893-13
 ;;9002226.02101,"544,68180-0893-13 ",.02)
 ;;68180-0893-13
 ;;9002226.02101,"544,68180-0897-13 ",.01)
 ;;68180-0897-13
 ;;9002226.02101,"544,68180-0897-13 ",.02)
 ;;68180-0897-13
 ;;9002226.02101,"544,68180-0898-13 ",.01)
 ;;68180-0898-13
 ;;9002226.02101,"544,68180-0898-13 ",.02)
 ;;68180-0898-13
 ;;9002226.02101,"544,68180-0899-13 ",.01)
 ;;68180-0899-13
 ;;9002226.02101,"544,68180-0899-13 ",.02)
 ;;68180-0899-13
 ;;9002226.02101,"544,68180-0902-13 ",.01)
 ;;68180-0902-13
 ;;9002226.02101,"544,68180-0902-13 ",.02)
 ;;68180-0902-13
 ;;9002226.02101,"544,68462-0132-79 ",.01)
 ;;68462-0132-79
 ;;9002226.02101,"544,68462-0132-79 ",.02)
 ;;68462-0132-79
 ;;9002226.02101,"544,68462-0132-81 ",.01)
 ;;68462-0132-81
 ;;9002226.02101,"544,68462-0132-81 ",.02)
 ;;68462-0132-81
 ;;9002226.02101,"544,68462-0303-29 ",.01)
 ;;68462-0303-29
 ;;9002226.02101,"544,68462-0303-29 ",.02)
 ;;68462-0303-29
 ;;9002226.02101,"544,68462-0303-84 ",.01)
 ;;68462-0303-84
 ;;9002226.02101,"544,68462-0303-84 ",.02)
 ;;68462-0303-84
 ;;9002226.02101,"544,68462-0305-29 ",.01)
 ;;68462-0305-29
 ;;9002226.02101,"544,68462-0305-29 ",.02)
 ;;68462-0305-29
 ;;9002226.02101,"544,68462-0305-84 ",.01)
 ;;68462-0305-84
 ;;9002226.02101,"544,68462-0305-84 ",.02)
 ;;68462-0305-84
 ;;9002226.02101,"544,68462-0309-29 ",.01)
 ;;68462-0309-29
 ;;9002226.02101,"544,68462-0309-29 ",.02)
 ;;68462-0309-29
 ;;9002226.02101,"544,68462-0309-84 ",.01)
 ;;68462-0309-84
 ;;9002226.02101,"544,68462-0309-84 ",.02)
 ;;68462-0309-84
 ;;9002226.02101,"544,68462-0316-29 ",.01)
 ;;68462-0316-29
 ;;9002226.02101,"544,68462-0316-29 ",.02)
 ;;68462-0316-29
 ;;9002226.02101,"544,68462-0316-84 ",.01)
 ;;68462-0316-84
 ;;9002226.02101,"544,68462-0316-84 ",.02)
 ;;68462-0316-84
 ;;9002226.02101,"544,68462-0318-29 ",.01)
 ;;68462-0318-29
 ;;9002226.02101,"544,68462-0318-29 ",.02)
 ;;68462-0318-29
 ;;9002226.02101,"544,68462-0318-84 ",.01)
 ;;68462-0318-84
 ;;9002226.02101,"544,68462-0318-84 ",.02)
 ;;68462-0318-84
 ;;9002226.02101,"544,68462-0388-29 ",.01)
 ;;68462-0388-29
 ;;9002226.02101,"544,68462-0388-29 ",.02)
 ;;68462-0388-29
 ;;9002226.02101,"544,68462-0388-84 ",.01)
 ;;68462-0388-84
 ;;9002226.02101,"544,68462-0388-84 ",.02)
 ;;68462-0388-84
 ;;9002226.02101,"544,68462-0394-29 ",.01)
 ;;68462-0394-29
 ;;9002226.02101,"544,68462-0394-29 ",.02)
 ;;68462-0394-29
 ;;9002226.02101,"544,68462-0394-84 ",.01)
 ;;68462-0394-84
 ;;9002226.02101,"544,68462-0394-84 ",.02)
 ;;68462-0394-84
 ;;9002226.02101,"544,68462-0556-29 ",.01)
 ;;68462-0556-29
 ;;9002226.02101,"544,68462-0556-29 ",.02)
 ;;68462-0556-29
 ;;9002226.02101,"544,68462-0556-84 ",.01)
 ;;68462-0556-84
 ;;9002226.02101,"544,68462-0556-84 ",.02)
 ;;68462-0556-84
 ;;9002226.02101,"544,68462-0565-29 ",.01)
 ;;68462-0565-29
 ;;9002226.02101,"544,68462-0565-29 ",.02)
 ;;68462-0565-29
 ;;9002226.02101,"544,68462-0637-29 ",.01)
 ;;68462-0637-29
 ;;9002226.02101,"544,68462-0637-29 ",.02)
 ;;68462-0637-29
 ;;9002226.02101,"544,68462-0637-84 ",.01)
 ;;68462-0637-84
 ;;9002226.02101,"544,68462-0637-84 ",.02)
 ;;68462-0637-84
 ;;9002226.02101,"544,68462-0646-91 ",.01)
 ;;68462-0646-91
 ;;9002226.02101,"544,68462-0646-91 ",.02)
 ;;68462-0646-91
 ;;9002226.02101,"544,68462-0646-93 ",.01)
 ;;68462-0646-93
 ;;9002226.02101,"544,68462-0646-93 ",.02)
 ;;68462-0646-93
 ;;9002226.02101,"544,68462-0672-91 ",.01)
 ;;68462-0672-91
 ;;9002226.02101,"544,68462-0672-91 ",.02)
 ;;68462-0672-91
 ;;9002226.02101,"544,68462-0672-95 ",.01)
 ;;68462-0672-95
 ;;9002226.02101,"544,68462-0672-95 ",.02)
 ;;68462-0672-95
 ;;9002226.02101,"544,68462-0719-29 ",.01)
 ;;68462-0719-29
 ;;9002226.02101,"544,68462-0719-29 ",.02)
 ;;68462-0719-29
 ;;9002226.02101,"544,68462-0719-84 ",.01)
 ;;68462-0719-84
 ;;9002226.02101,"544,68462-0719-84 ",.02)
 ;;68462-0719-84
 ;;9002226.02101,"544,68462-0720-29 ",.01)
 ;;68462-0720-29
 ;;9002226.02101,"544,68462-0720-29 ",.02)
 ;;68462-0720-29
 ;;9002226.02101,"544,68462-0720-84 ",.01)
 ;;68462-0720-84
 ;;9002226.02101,"544,68462-0720-84 ",.02)
 ;;68462-0720-84
 ;;9002226.02101,"544,68462-0733-29 ",.01)
 ;;68462-0733-29
 ;;9002226.02101,"544,68462-0733-29 ",.02)
 ;;68462-0733-29
 ;;9002226.02101,"544,68462-0733-84 ",.01)
 ;;68462-0733-84
 ;;9002226.02101,"544,68462-0733-84 ",.02)
 ;;68462-0733-84
 ;;9002226.02101,"544,75854-0601-01 ",.01)
 ;;75854-0601-01
 ;;9002226.02101,"544,75854-0601-01 ",.02)
 ;;75854-0601-01
 ;;9002226.02101,"544,76388-0283-01 ",.01)
 ;;76388-0283-01
 ;;9002226.02101,"544,76388-0283-01 ",.02)
 ;;76388-0283-01