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

BGP81W25.m

Go to the documentation of this file.
BGP81W25 ; 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,"1795,61919-0630-30 ",.02)
 ;;61919-0630-30
 ;;9002226.02101,"1795,61919-0630-60 ",.01)
 ;;61919-0630-60
 ;;9002226.02101,"1795,61919-0630-60 ",.02)
 ;;61919-0630-60
 ;;9002226.02101,"1795,61919-0646-30 ",.01)
 ;;61919-0646-30
 ;;9002226.02101,"1795,61919-0646-30 ",.02)
 ;;61919-0646-30
 ;;9002226.02101,"1795,61919-0752-30 ",.01)
 ;;61919-0752-30
 ;;9002226.02101,"1795,61919-0752-30 ",.02)
 ;;61919-0752-30
 ;;9002226.02101,"1795,62175-0490-64 ",.01)
 ;;62175-0490-64
 ;;9002226.02101,"1795,62175-0490-64 ",.02)
 ;;62175-0490-64
 ;;9002226.02101,"1795,62175-0490-70 ",.01)
 ;;62175-0490-70
 ;;9002226.02101,"1795,62175-0490-70 ",.02)
 ;;62175-0490-70
 ;;9002226.02101,"1795,62295-3019-07 ",.01)
 ;;62295-3019-07
 ;;9002226.02101,"1795,62295-3019-07 ",.02)
 ;;62295-3019-07
 ;;9002226.02101,"1795,62542-0301-04 ",.01)
 ;;62542-0301-04
 ;;9002226.02101,"1795,62542-0301-04 ",.02)
 ;;62542-0301-04
 ;;9002226.02101,"1795,62542-0301-16 ",.01)
 ;;62542-0301-16
 ;;9002226.02101,"1795,62542-0301-16 ",.02)
 ;;62542-0301-16
 ;;9002226.02101,"1795,62542-0301-17 ",.01)
 ;;62542-0301-17
 ;;9002226.02101,"1795,62542-0301-17 ",.02)
 ;;62542-0301-17
 ;;9002226.02101,"1795,62559-0570-01 ",.01)
 ;;62559-0570-01
 ;;9002226.02101,"1795,62559-0570-01 ",.02)
 ;;62559-0570-01
 ;;9002226.02101,"1795,62559-0571-01 ",.01)
 ;;62559-0571-01
 ;;9002226.02101,"1795,62559-0571-01 ",.02)
 ;;62559-0571-01
 ;;9002226.02101,"1795,62559-0572-01 ",.01)
 ;;62559-0572-01
 ;;9002226.02101,"1795,62559-0572-01 ",.02)
 ;;62559-0572-01
 ;;9002226.02101,"1795,62584-0739-01 ",.01)
 ;;62584-0739-01
 ;;9002226.02101,"1795,62584-0739-01 ",.02)
 ;;62584-0739-01
 ;;9002226.02101,"1795,62584-0739-11 ",.01)
 ;;62584-0739-11
 ;;9002226.02101,"1795,62584-0739-11 ",.02)
 ;;62584-0739-11
 ;;9002226.02101,"1795,62584-0741-01 ",.01)
 ;;62584-0741-01
 ;;9002226.02101,"1795,62584-0741-01 ",.02)
 ;;62584-0741-01
 ;;9002226.02101,"1795,62584-0741-11 ",.01)
 ;;62584-0741-11
 ;;9002226.02101,"1795,62584-0741-11 ",.02)
 ;;62584-0741-11
 ;;9002226.02101,"1795,62584-0886-01 ",.01)
 ;;62584-0886-01
 ;;9002226.02101,"1795,62584-0886-01 ",.02)
 ;;62584-0886-01
 ;;9002226.02101,"1795,62584-0886-11 ",.01)
 ;;62584-0886-11
 ;;9002226.02101,"1795,62584-0886-11 ",.02)
 ;;62584-0886-11
 ;;9002226.02101,"1795,62584-0887-11 ",.01)
 ;;62584-0887-11
 ;;9002226.02101,"1795,62584-0887-11 ",.02)
 ;;62584-0887-11
 ;;9002226.02101,"1795,62584-0887-21 ",.01)
 ;;62584-0887-21
 ;;9002226.02101,"1795,62584-0887-21 ",.02)
 ;;62584-0887-21
 ;;9002226.02101,"1795,63187-0038-10 ",.01)
 ;;63187-0038-10
 ;;9002226.02101,"1795,63187-0038-10 ",.02)
 ;;63187-0038-10
 ;;9002226.02101,"1795,63187-0038-30 ",.01)
 ;;63187-0038-30
 ;;9002226.02101,"1795,63187-0038-30 ",.02)
 ;;63187-0038-30
 ;;9002226.02101,"1795,63187-0733-20 ",.01)
 ;;63187-0733-20
 ;;9002226.02101,"1795,63187-0733-20 ",.02)
 ;;63187-0733-20
 ;;9002226.02101,"1795,63187-0763-30 ",.01)
 ;;63187-0763-30
 ;;9002226.02101,"1795,63187-0763-30 ",.02)
 ;;63187-0763-30
 ;;9002226.02101,"1795,63187-0829-10 ",.01)
 ;;63187-0829-10
 ;;9002226.02101,"1795,63187-0829-10 ",.02)
 ;;63187-0829-10
 ;;9002226.02101,"1795,63187-0829-15 ",.01)
 ;;63187-0829-15
 ;;9002226.02101,"1795,63187-0829-15 ",.02)
 ;;63187-0829-15
 ;;9002226.02101,"1795,63187-0829-30 ",.01)
 ;;63187-0829-30
 ;;9002226.02101,"1795,63187-0829-30 ",.02)
 ;;63187-0829-30
 ;;9002226.02101,"1795,63187-0840-03 ",.01)
 ;;63187-0840-03
 ;;9002226.02101,"1795,63187-0840-03 ",.02)
 ;;63187-0840-03
 ;;9002226.02101,"1795,63323-0234-20 ",.01)
 ;;63323-0234-20
 ;;9002226.02101,"1795,63323-0234-20 ",.02)
 ;;63323-0234-20
 ;;9002226.02101,"1795,63323-0246-01 ",.01)
 ;;63323-0246-01
 ;;9002226.02101,"1795,63323-0246-01 ",.02)
 ;;63323-0246-01
 ;;9002226.02101,"1795,63323-0268-01 ",.01)
 ;;63323-0268-01
 ;;9002226.02101,"1795,63323-0268-01 ",.02)
 ;;63323-0268-01
 ;;9002226.02101,"1795,63323-0366-01 ",.01)
 ;;63323-0366-01
 ;;9002226.02101,"1795,63323-0366-01 ",.02)
 ;;63323-0366-01
 ;;9002226.02101,"1795,63629-1266-02 ",.01)
 ;;63629-1266-02
 ;;9002226.02101,"1795,63629-1266-02 ",.02)
 ;;63629-1266-02
 ;;9002226.02101,"1795,63629-1266-03 ",.01)
 ;;63629-1266-03
 ;;9002226.02101,"1795,63629-1266-03 ",.02)
 ;;63629-1266-03
 ;;9002226.02101,"1795,63629-1266-04 ",.01)
 ;;63629-1266-04
 ;;9002226.02101,"1795,63629-1266-04 ",.02)
 ;;63629-1266-04
 ;;9002226.02101,"1795,63629-1299-01 ",.01)
 ;;63629-1299-01
 ;;9002226.02101,"1795,63629-1299-01 ",.02)
 ;;63629-1299-01
 ;;9002226.02101,"1795,63629-1349-01 ",.01)
 ;;63629-1349-01
 ;;9002226.02101,"1795,63629-1349-01 ",.02)
 ;;63629-1349-01
 ;;9002226.02101,"1795,63629-1349-02 ",.01)
 ;;63629-1349-02
 ;;9002226.02101,"1795,63629-1349-02 ",.02)
 ;;63629-1349-02
 ;;9002226.02101,"1795,63629-1349-03 ",.01)
 ;;63629-1349-03
 ;;9002226.02101,"1795,63629-1349-03 ",.02)
 ;;63629-1349-03
 ;;9002226.02101,"1795,63629-1349-04 ",.01)
 ;;63629-1349-04
 ;;9002226.02101,"1795,63629-1349-04 ",.02)
 ;;63629-1349-04
 ;;9002226.02101,"1795,63629-1349-05 ",.01)
 ;;63629-1349-05
 ;;9002226.02101,"1795,63629-1349-05 ",.02)
 ;;63629-1349-05
 ;;9002226.02101,"1795,63629-1533-01 ",.01)
 ;;63629-1533-01
 ;;9002226.02101,"1795,63629-1533-01 ",.02)
 ;;63629-1533-01
 ;;9002226.02101,"1795,63629-1533-02 ",.01)
 ;;63629-1533-02
 ;;9002226.02101,"1795,63629-1533-02 ",.02)
 ;;63629-1533-02
 ;;9002226.02101,"1795,63629-1533-03 ",.01)
 ;;63629-1533-03
 ;;9002226.02101,"1795,63629-1533-03 ",.02)
 ;;63629-1533-03
 ;;9002226.02101,"1795,63629-1533-04 ",.01)
 ;;63629-1533-04
 ;;9002226.02101,"1795,63629-1533-04 ",.02)
 ;;63629-1533-04
 ;;9002226.02101,"1795,63629-1588-01 ",.01)
 ;;63629-1588-01
 ;;9002226.02101,"1795,63629-1588-01 ",.02)
 ;;63629-1588-01
 ;;9002226.02101,"1795,63629-1588-02 ",.01)
 ;;63629-1588-02
 ;;9002226.02101,"1795,63629-1588-02 ",.02)
 ;;63629-1588-02
 ;;9002226.02101,"1795,63629-1588-03 ",.01)
 ;;63629-1588-03
 ;;9002226.02101,"1795,63629-1588-03 ",.02)
 ;;63629-1588-03
 ;;9002226.02101,"1795,63629-1591-01 ",.01)
 ;;63629-1591-01
 ;;9002226.02101,"1795,63629-1591-01 ",.02)
 ;;63629-1591-01
 ;;9002226.02101,"1795,63629-1591-02 ",.01)
 ;;63629-1591-02
 ;;9002226.02101,"1795,63629-1591-02 ",.02)
 ;;63629-1591-02
 ;;9002226.02101,"1795,63629-1591-03 ",.01)
 ;;63629-1591-03
 ;;9002226.02101,"1795,63629-1591-03 ",.02)
 ;;63629-1591-03
 ;;9002226.02101,"1795,63629-1591-04 ",.01)
 ;;63629-1591-04
 ;;9002226.02101,"1795,63629-1591-04 ",.02)
 ;;63629-1591-04
 ;;9002226.02101,"1795,63629-1591-05 ",.01)
 ;;63629-1591-05
 ;;9002226.02101,"1795,63629-1591-05 ",.02)
 ;;63629-1591-05
 ;;9002226.02101,"1795,63629-1591-06 ",.01)
 ;;63629-1591-06
 ;;9002226.02101,"1795,63629-1591-06 ",.02)
 ;;63629-1591-06
 ;;9002226.02101,"1795,63629-1607-01 ",.01)
 ;;63629-1607-01
 ;;9002226.02101,"1795,63629-1607-01 ",.02)
 ;;63629-1607-01
 ;;9002226.02101,"1795,63629-1607-02 ",.01)
 ;;63629-1607-02
 ;;9002226.02101,"1795,63629-1607-02 ",.02)
 ;;63629-1607-02
 ;;9002226.02101,"1795,63629-1607-03 ",.01)
 ;;63629-1607-03
 ;;9002226.02101,"1795,63629-1607-03 ",.02)
 ;;63629-1607-03
 ;;9002226.02101,"1795,63629-1734-01 ",.01)
 ;;63629-1734-01
 ;;9002226.02101,"1795,63629-1734-01 ",.02)
 ;;63629-1734-01
 ;;9002226.02101,"1795,63629-1734-02 ",.01)
 ;;63629-1734-02
 ;;9002226.02101,"1795,63629-1734-02 ",.02)
 ;;63629-1734-02
 ;;9002226.02101,"1795,63629-1734-03 ",.01)
 ;;63629-1734-03
 ;;9002226.02101,"1795,63629-1734-03 ",.02)
 ;;63629-1734-03
 ;;9002226.02101,"1795,63629-1742-01 ",.01)
 ;;63629-1742-01
 ;;9002226.02101,"1795,63629-1742-01 ",.02)
 ;;63629-1742-01
 ;;9002226.02101,"1795,63629-1742-02 ",.01)
 ;;63629-1742-02
 ;;9002226.02101,"1795,63629-1742-02 ",.02)
 ;;63629-1742-02
 ;;9002226.02101,"1795,63629-1742-03 ",.01)
 ;;63629-1742-03
 ;;9002226.02101,"1795,63629-1742-03 ",.02)
 ;;63629-1742-03
 ;;9002226.02101,"1795,63629-1742-04 ",.01)
 ;;63629-1742-04
 ;;9002226.02101,"1795,63629-1742-04 ",.02)
 ;;63629-1742-04
 ;;9002226.02101,"1795,63629-1742-05 ",.01)
 ;;63629-1742-05
 ;;9002226.02101,"1795,63629-1742-05 ",.02)
 ;;63629-1742-05
 ;;9002226.02101,"1795,63629-1742-06 ",.01)
 ;;63629-1742-06
 ;;9002226.02101,"1795,63629-1742-06 ",.02)
 ;;63629-1742-06
 ;;9002226.02101,"1795,63629-1742-07 ",.01)
 ;;63629-1742-07
 ;;9002226.02101,"1795,63629-1742-07 ",.02)
 ;;63629-1742-07
 ;;9002226.02101,"1795,63629-1742-08 ",.01)
 ;;63629-1742-08
 ;;9002226.02101,"1795,63629-1742-08 ",.02)
 ;;63629-1742-08
 ;;9002226.02101,"1795,63629-1751-01 ",.01)
 ;;63629-1751-01
 ;;9002226.02101,"1795,63629-1751-01 ",.02)
 ;;63629-1751-01
 ;;9002226.02101,"1795,63629-1751-02 ",.01)
 ;;63629-1751-02
 ;;9002226.02101,"1795,63629-1751-02 ",.02)
 ;;63629-1751-02
 ;;9002226.02101,"1795,63629-1775-01 ",.01)
 ;;63629-1775-01
 ;;9002226.02101,"1795,63629-1775-01 ",.02)
 ;;63629-1775-01
 ;;9002226.02101,"1795,63629-1775-02 ",.01)
 ;;63629-1775-02
 ;;9002226.02101,"1795,63629-1775-02 ",.02)
 ;;63629-1775-02
 ;;9002226.02101,"1795,63629-1775-03 ",.01)
 ;;63629-1775-03
 ;;9002226.02101,"1795,63629-1775-03 ",.02)
 ;;63629-1775-03
 ;;9002226.02101,"1795,63629-1855-01 ",.01)
 ;;63629-1855-01
 ;;9002226.02101,"1795,63629-1855-01 ",.02)
 ;;63629-1855-01
 ;;9002226.02101,"1795,63629-1855-02 ",.01)
 ;;63629-1855-02
 ;;9002226.02101,"1795,63629-1855-02 ",.02)
 ;;63629-1855-02
 ;;9002226.02101,"1795,63629-1856-01 ",.01)
 ;;63629-1856-01
 ;;9002226.02101,"1795,63629-1856-01 ",.02)
 ;;63629-1856-01
 ;;9002226.02101,"1795,63629-1856-02 ",.01)
 ;;63629-1856-02
 ;;9002226.02101,"1795,63629-1856-02 ",.02)
 ;;63629-1856-02
 ;;9002226.02101,"1795,63629-1868-01 ",.01)
 ;;63629-1868-01
 ;;9002226.02101,"1795,63629-1868-01 ",.02)
 ;;63629-1868-01
 ;;9002226.02101,"1795,63629-1868-02 ",.01)
 ;;63629-1868-02
 ;;9002226.02101,"1795,63629-1868-02 ",.02)
 ;;63629-1868-02
 ;;9002226.02101,"1795,63629-1870-01 ",.01)
 ;;63629-1870-01
 ;;9002226.02101,"1795,63629-1870-01 ",.02)
 ;;63629-1870-01
 ;;9002226.02101,"1795,63629-1870-02 ",.01)
 ;;63629-1870-02
 ;;9002226.02101,"1795,63629-1870-02 ",.02)
 ;;63629-1870-02
 ;;9002226.02101,"1795,63629-2959-01 ",.01)
 ;;63629-2959-01
 ;;9002226.02101,"1795,63629-2959-01 ",.02)
 ;;63629-2959-01
 ;;9002226.02101,"1795,63629-2982-01 ",.01)
 ;;63629-2982-01
 ;;9002226.02101,"1795,63629-2982-01 ",.02)
 ;;63629-2982-01
 ;;9002226.02101,"1795,63629-2982-02 ",.01)
 ;;63629-2982-02
 ;;9002226.02101,"1795,63629-2982-02 ",.02)
 ;;63629-2982-02
 ;;9002226.02101,"1795,63629-3341-01 ",.01)
 ;;63629-3341-01
 ;;9002226.02101,"1795,63629-3341-01 ",.02)
 ;;63629-3341-01
 ;;9002226.02101,"1795,63629-3341-02 ",.01)
 ;;63629-3341-02
 ;;9002226.02101,"1795,63629-3341-02 ",.02)
 ;;63629-3341-02
 ;;9002226.02101,"1795,63629-3341-03 ",.01)
 ;;63629-3341-03
 ;;9002226.02101,"1795,63629-3341-03 ",.02)
 ;;63629-3341-03
 ;;9002226.02101,"1795,63629-3341-04 ",.01)
 ;;63629-3341-04
 ;;9002226.02101,"1795,63629-3341-04 ",.02)
 ;;63629-3341-04
 ;;9002226.02101,"1795,63629-3860-01 ",.01)
 ;;63629-3860-01
 ;;9002226.02101,"1795,63629-3860-01 ",.02)
 ;;63629-3860-01
 ;;9002226.02101,"1795,63629-3860-02 ",.01)
 ;;63629-3860-02
 ;;9002226.02101,"1795,63629-3860-02 ",.02)
 ;;63629-3860-02
 ;;9002226.02101,"1795,63629-4121-01 ",.01)
 ;;63629-4121-01
 ;;9002226.02101,"1795,63629-4121-01 ",.02)
 ;;63629-4121-01
 ;;9002226.02101,"1795,63629-4929-01 ",.01)
 ;;63629-4929-01
 ;;9002226.02101,"1795,63629-4929-01 ",.02)
 ;;63629-4929-01
 ;;9002226.02101,"1795,63629-4929-02 ",.01)
 ;;63629-4929-02
 ;;9002226.02101,"1795,63629-4929-02 ",.02)
 ;;63629-4929-02
 ;;9002226.02101,"1795,63629-4929-03 ",.01)
 ;;63629-4929-03
 ;;9002226.02101,"1795,63629-4929-03 ",.02)
 ;;63629-4929-03