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

BGP13D22.m

Go to the documentation of this file.
BGP13D22 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"994,61392-0209-60 ",.01)
 ;;61392-0209-60
 ;;9002226.02101,"994,61392-0209-60 ",.02)
 ;;61392-0209-60
 ;;9002226.02101,"994,61392-0209-90 ",.01)
 ;;61392-0209-90
 ;;9002226.02101,"994,61392-0209-90 ",.02)
 ;;61392-0209-90
 ;;9002226.02101,"994,61392-0209-91 ",.01)
 ;;61392-0209-91
 ;;9002226.02101,"994,61392-0209-91 ",.02)
 ;;61392-0209-91
 ;;9002226.02101,"994,61392-0220-15 ",.01)
 ;;61392-0220-15
 ;;9002226.02101,"994,61392-0220-15 ",.02)
 ;;61392-0220-15
 ;;9002226.02101,"994,61392-0220-30 ",.01)
 ;;61392-0220-30
 ;;9002226.02101,"994,61392-0220-30 ",.02)
 ;;61392-0220-30
 ;;9002226.02101,"994,61392-0220-31 ",.01)
 ;;61392-0220-31
 ;;9002226.02101,"994,61392-0220-31 ",.02)
 ;;61392-0220-31
 ;;9002226.02101,"994,61392-0220-32 ",.01)
 ;;61392-0220-32
 ;;9002226.02101,"994,61392-0220-32 ",.02)
 ;;61392-0220-32
 ;;9002226.02101,"994,61392-0220-39 ",.01)
 ;;61392-0220-39
 ;;9002226.02101,"994,61392-0220-39 ",.02)
 ;;61392-0220-39
 ;;9002226.02101,"994,61392-0220-45 ",.01)
 ;;61392-0220-45
 ;;9002226.02101,"994,61392-0220-45 ",.02)
 ;;61392-0220-45
 ;;9002226.02101,"994,61392-0220-51 ",.01)
 ;;61392-0220-51
 ;;9002226.02101,"994,61392-0220-51 ",.02)
 ;;61392-0220-51
 ;;9002226.02101,"994,61392-0220-54 ",.01)
 ;;61392-0220-54
 ;;9002226.02101,"994,61392-0220-54 ",.02)
 ;;61392-0220-54
 ;;9002226.02101,"994,61392-0220-56 ",.01)
 ;;61392-0220-56
 ;;9002226.02101,"994,61392-0220-56 ",.02)
 ;;61392-0220-56
 ;;9002226.02101,"994,61392-0220-60 ",.01)
 ;;61392-0220-60
 ;;9002226.02101,"994,61392-0220-60 ",.02)
 ;;61392-0220-60
 ;;9002226.02101,"994,61392-0220-90 ",.01)
 ;;61392-0220-90
 ;;9002226.02101,"994,61392-0220-90 ",.02)
 ;;61392-0220-90
 ;;9002226.02101,"994,61392-0220-91 ",.01)
 ;;61392-0220-91
 ;;9002226.02101,"994,61392-0220-91 ",.02)
 ;;61392-0220-91
 ;;9002226.02101,"994,61392-0223-30 ",.01)
 ;;61392-0223-30
 ;;9002226.02101,"994,61392-0223-30 ",.02)
 ;;61392-0223-30
 ;;9002226.02101,"994,61392-0223-31 ",.01)
 ;;61392-0223-31
 ;;9002226.02101,"994,61392-0223-31 ",.02)
 ;;61392-0223-31
 ;;9002226.02101,"994,61392-0223-32 ",.01)
 ;;61392-0223-32
 ;;9002226.02101,"994,61392-0223-32 ",.02)
 ;;61392-0223-32
 ;;9002226.02101,"994,61392-0223-39 ",.01)
 ;;61392-0223-39
 ;;9002226.02101,"994,61392-0223-39 ",.02)
 ;;61392-0223-39
 ;;9002226.02101,"994,61392-0223-45 ",.01)
 ;;61392-0223-45
 ;;9002226.02101,"994,61392-0223-45 ",.02)
 ;;61392-0223-45
 ;;9002226.02101,"994,61392-0223-51 ",.01)
 ;;61392-0223-51
 ;;9002226.02101,"994,61392-0223-51 ",.02)
 ;;61392-0223-51
 ;;9002226.02101,"994,61392-0223-54 ",.01)
 ;;61392-0223-54
 ;;9002226.02101,"994,61392-0223-54 ",.02)
 ;;61392-0223-54
 ;;9002226.02101,"994,61392-0223-56 ",.01)
 ;;61392-0223-56
 ;;9002226.02101,"994,61392-0223-56 ",.02)
 ;;61392-0223-56
 ;;9002226.02101,"994,61392-0223-60 ",.01)
 ;;61392-0223-60
 ;;9002226.02101,"994,61392-0223-60 ",.02)
 ;;61392-0223-60
 ;;9002226.02101,"994,61392-0223-90 ",.01)
 ;;61392-0223-90
 ;;9002226.02101,"994,61392-0223-90 ",.02)
 ;;61392-0223-90
 ;;9002226.02101,"994,61392-0223-91 ",.01)
 ;;61392-0223-91
 ;;9002226.02101,"994,61392-0223-91 ",.02)
 ;;61392-0223-91
 ;;9002226.02101,"994,61787-0471-04 ",.01)
 ;;61787-0471-04
 ;;9002226.02101,"994,61787-0471-04 ",.02)
 ;;61787-0471-04
 ;;9002226.02101,"994,61787-0866-04 ",.01)
 ;;61787-0866-04
 ;;9002226.02101,"994,61787-0866-04 ",.02)
 ;;61787-0866-04
 ;;9002226.02101,"994,61787-0866-16 ",.01)
 ;;61787-0866-16
 ;;9002226.02101,"994,61787-0866-16 ",.02)
 ;;61787-0866-16
 ;;9002226.02101,"994,63629-1343-01 ",.01)
 ;;63629-1343-01
 ;;9002226.02101,"994,63629-1343-01 ",.02)
 ;;63629-1343-01
 ;;9002226.02101,"994,63629-1343-02 ",.01)
 ;;63629-1343-02
 ;;9002226.02101,"994,63629-1343-02 ",.02)
 ;;63629-1343-02
 ;;9002226.02101,"994,63629-1343-03 ",.01)
 ;;63629-1343-03
 ;;9002226.02101,"994,63629-1343-03 ",.02)
 ;;63629-1343-03
 ;;9002226.02101,"994,63629-1343-04 ",.01)
 ;;63629-1343-04
 ;;9002226.02101,"994,63629-1343-04 ",.02)
 ;;63629-1343-04
 ;;9002226.02101,"994,63629-1349-01 ",.01)
 ;;63629-1349-01
 ;;9002226.02101,"994,63629-1349-01 ",.02)
 ;;63629-1349-01
 ;;9002226.02101,"994,63629-1349-02 ",.01)
 ;;63629-1349-02
 ;;9002226.02101,"994,63629-1349-02 ",.02)
 ;;63629-1349-02
 ;;9002226.02101,"994,63629-1349-03 ",.01)
 ;;63629-1349-03
 ;;9002226.02101,"994,63629-1349-03 ",.02)
 ;;63629-1349-03
 ;;9002226.02101,"994,63629-1533-01 ",.01)
 ;;63629-1533-01
 ;;9002226.02101,"994,63629-1533-01 ",.02)
 ;;63629-1533-01
 ;;9002226.02101,"994,63629-1533-02 ",.01)
 ;;63629-1533-02
 ;;9002226.02101,"994,63629-1533-02 ",.02)
 ;;63629-1533-02
 ;;9002226.02101,"994,63629-1588-01 ",.01)
 ;;63629-1588-01
 ;;9002226.02101,"994,63629-1588-01 ",.02)
 ;;63629-1588-01
 ;;9002226.02101,"994,63629-1588-02 ",.01)
 ;;63629-1588-02
 ;;9002226.02101,"994,63629-1588-02 ",.02)
 ;;63629-1588-02
 ;;9002226.02101,"994,63629-1588-03 ",.01)
 ;;63629-1588-03
 ;;9002226.02101,"994,63629-1588-03 ",.02)
 ;;63629-1588-03
 ;;9002226.02101,"994,63629-1591-01 ",.01)
 ;;63629-1591-01
 ;;9002226.02101,"994,63629-1591-01 ",.02)
 ;;63629-1591-01
 ;;9002226.02101,"994,63629-1591-02 ",.01)
 ;;63629-1591-02
 ;;9002226.02101,"994,63629-1591-02 ",.02)
 ;;63629-1591-02
 ;;9002226.02101,"994,63629-1591-03 ",.01)
 ;;63629-1591-03
 ;;9002226.02101,"994,63629-1591-03 ",.02)
 ;;63629-1591-03
 ;;9002226.02101,"994,63629-1591-04 ",.01)
 ;;63629-1591-04
 ;;9002226.02101,"994,63629-1591-04 ",.02)
 ;;63629-1591-04
 ;;9002226.02101,"994,63629-1607-01 ",.01)
 ;;63629-1607-01
 ;;9002226.02101,"994,63629-1607-01 ",.02)
 ;;63629-1607-01
 ;;9002226.02101,"994,63629-1607-02 ",.01)
 ;;63629-1607-02
 ;;9002226.02101,"994,63629-1607-02 ",.02)
 ;;63629-1607-02
 ;;9002226.02101,"994,63629-1607-03 ",.01)
 ;;63629-1607-03
 ;;9002226.02101,"994,63629-1607-03 ",.02)
 ;;63629-1607-03
 ;;9002226.02101,"994,63629-1742-01 ",.01)
 ;;63629-1742-01
 ;;9002226.02101,"994,63629-1742-01 ",.02)
 ;;63629-1742-01
 ;;9002226.02101,"994,63629-1742-02 ",.01)
 ;;63629-1742-02
 ;;9002226.02101,"994,63629-1742-02 ",.02)
 ;;63629-1742-02
 ;;9002226.02101,"994,63629-1742-03 ",.01)
 ;;63629-1742-03
 ;;9002226.02101,"994,63629-1742-03 ",.02)
 ;;63629-1742-03
 ;;9002226.02101,"994,63629-1742-04 ",.01)
 ;;63629-1742-04
 ;;9002226.02101,"994,63629-1742-04 ",.02)
 ;;63629-1742-04
 ;;9002226.02101,"994,63629-1742-05 ",.01)
 ;;63629-1742-05
 ;;9002226.02101,"994,63629-1742-05 ",.02)
 ;;63629-1742-05
 ;;9002226.02101,"994,63629-1742-06 ",.01)
 ;;63629-1742-06
 ;;9002226.02101,"994,63629-1742-06 ",.02)
 ;;63629-1742-06
 ;;9002226.02101,"994,63629-1751-01 ",.01)
 ;;63629-1751-01
 ;;9002226.02101,"994,63629-1751-01 ",.02)
 ;;63629-1751-01
 ;;9002226.02101,"994,63629-1751-02 ",.01)
 ;;63629-1751-02
 ;;9002226.02101,"994,63629-1751-02 ",.02)
 ;;63629-1751-02
 ;;9002226.02101,"994,63629-1855-01 ",.01)
 ;;63629-1855-01
 ;;9002226.02101,"994,63629-1855-01 ",.02)
 ;;63629-1855-01
 ;;9002226.02101,"994,63629-1855-02 ",.01)
 ;;63629-1855-02
 ;;9002226.02101,"994,63629-1855-02 ",.02)
 ;;63629-1855-02
 ;;9002226.02101,"994,63629-1868-01 ",.01)
 ;;63629-1868-01
 ;;9002226.02101,"994,63629-1868-01 ",.02)
 ;;63629-1868-01
 ;;9002226.02101,"994,63629-1868-02 ",.01)
 ;;63629-1868-02
 ;;9002226.02101,"994,63629-1868-02 ",.02)
 ;;63629-1868-02
 ;;9002226.02101,"994,63629-1870-01 ",.01)
 ;;63629-1870-01
 ;;9002226.02101,"994,63629-1870-01 ",.02)
 ;;63629-1870-01
 ;;9002226.02101,"994,63629-1870-02 ",.01)
 ;;63629-1870-02
 ;;9002226.02101,"994,63629-1870-02 ",.02)
 ;;63629-1870-02
 ;;9002226.02101,"994,63629-2959-01 ",.01)
 ;;63629-2959-01
 ;;9002226.02101,"994,63629-2959-01 ",.02)
 ;;63629-2959-01
 ;;9002226.02101,"994,63629-2982-01 ",.01)
 ;;63629-2982-01
 ;;9002226.02101,"994,63629-2982-01 ",.02)
 ;;63629-2982-01
 ;;9002226.02101,"994,63629-2982-02 ",.01)
 ;;63629-2982-02
 ;;9002226.02101,"994,63629-2982-02 ",.02)
 ;;63629-2982-02
 ;;9002226.02101,"994,63717-0570-04 ",.01)
 ;;63717-0570-04
 ;;9002226.02101,"994,63717-0570-04 ",.02)
 ;;63717-0570-04
 ;;9002226.02101,"994,63717-0571-06 ",.01)
 ;;63717-0571-06
 ;;9002226.02101,"994,63717-0571-06 ",.02)
 ;;63717-0571-06
 ;;9002226.02101,"994,63717-0576-04 ",.01)
 ;;63717-0576-04
 ;;9002226.02101,"994,63717-0576-04 ",.02)
 ;;63717-0576-04
 ;;9002226.02101,"994,63717-0577-06 ",.01)
 ;;63717-0577-06
 ;;9002226.02101,"994,63717-0577-06 ",.02)
 ;;63717-0577-06
 ;;9002226.02101,"994,63717-0580-04 ",.01)
 ;;63717-0580-04
 ;;9002226.02101,"994,63717-0580-04 ",.02)
 ;;63717-0580-04
 ;;9002226.02101,"994,63717-0581-06 ",.01)
 ;;63717-0581-06
 ;;9002226.02101,"994,63717-0581-06 ",.02)
 ;;63717-0581-06
 ;;9002226.02101,"994,63717-0585-04 ",.01)
 ;;63717-0585-04
 ;;9002226.02101,"994,63717-0585-04 ",.02)
 ;;63717-0585-04
 ;;9002226.02101,"994,63717-0710-04 ",.01)
 ;;63717-0710-04
 ;;9002226.02101,"994,63717-0710-04 ",.02)
 ;;63717-0710-04
 ;;9002226.02101,"994,63739-0213-10 ",.01)
 ;;63739-0213-10
 ;;9002226.02101,"994,63739-0213-10 ",.02)
 ;;63739-0213-10
 ;;9002226.02101,"994,63739-0213-15 ",.01)
 ;;63739-0213-15
 ;;9002226.02101,"994,63739-0213-15 ",.02)
 ;;63739-0213-15
 ;;9002226.02101,"994,63739-0389-10 ",.01)
 ;;63739-0389-10
 ;;9002226.02101,"994,63739-0389-10 ",.02)
 ;;63739-0389-10
 ;;9002226.02101,"994,63824-0184-64 ",.01)
 ;;63824-0184-64
 ;;9002226.02101,"994,63824-0184-64 ",.02)
 ;;63824-0184-64
 ;;9002226.02101,"994,63874-0005-01 ",.01)
 ;;63874-0005-01
 ;;9002226.02101,"994,63874-0005-01 ",.02)
 ;;63874-0005-01
 ;;9002226.02101,"994,63874-0005-02 ",.01)
 ;;63874-0005-02
 ;;9002226.02101,"994,63874-0005-02 ",.02)
 ;;63874-0005-02
 ;;9002226.02101,"994,63874-0005-06 ",.01)
 ;;63874-0005-06
 ;;9002226.02101,"994,63874-0005-06 ",.02)
 ;;63874-0005-06
 ;;9002226.02101,"994,63874-0005-09 ",.01)
 ;;63874-0005-09
 ;;9002226.02101,"994,63874-0005-09 ",.02)
 ;;63874-0005-09
 ;;9002226.02101,"994,63874-0005-10 ",.01)
 ;;63874-0005-10
 ;;9002226.02101,"994,63874-0005-10 ",.02)
 ;;63874-0005-10
 ;;9002226.02101,"994,63874-0005-12 ",.01)
 ;;63874-0005-12
 ;;9002226.02101,"994,63874-0005-12 ",.02)
 ;;63874-0005-12
 ;;9002226.02101,"994,63874-0005-14 ",.01)
 ;;63874-0005-14
 ;;9002226.02101,"994,63874-0005-14 ",.02)
 ;;63874-0005-14
 ;;9002226.02101,"994,63874-0005-15 ",.01)
 ;;63874-0005-15
 ;;9002226.02101,"994,63874-0005-15 ",.02)
 ;;63874-0005-15
 ;;9002226.02101,"994,63874-0005-20 ",.01)
 ;;63874-0005-20
 ;;9002226.02101,"994,63874-0005-20 ",.02)
 ;;63874-0005-20
 ;;9002226.02101,"994,63874-0005-21 ",.01)
 ;;63874-0005-21
 ;;9002226.02101,"994,63874-0005-21 ",.02)
 ;;63874-0005-21
 ;;9002226.02101,"994,63874-0005-24 ",.01)
 ;;63874-0005-24
 ;;9002226.02101,"994,63874-0005-24 ",.02)
 ;;63874-0005-24
 ;;9002226.02101,"994,63874-0005-25 ",.01)
 ;;63874-0005-25
 ;;9002226.02101,"994,63874-0005-25 ",.02)
 ;;63874-0005-25
 ;;9002226.02101,"994,63874-0005-28 ",.01)
 ;;63874-0005-28
 ;;9002226.02101,"994,63874-0005-28 ",.02)
 ;;63874-0005-28
 ;;9002226.02101,"994,63874-0005-30 ",.01)
 ;;63874-0005-30
 ;;9002226.02101,"994,63874-0005-30 ",.02)
 ;;63874-0005-30
 ;;9002226.02101,"994,63874-0005-40 ",.01)
 ;;63874-0005-40
 ;;9002226.02101,"994,63874-0005-40 ",.02)
 ;;63874-0005-40
 ;;9002226.02101,"994,63874-0005-45 ",.01)
 ;;63874-0005-45
 ;;9002226.02101,"994,63874-0005-45 ",.02)
 ;;63874-0005-45
 ;;9002226.02101,"994,63874-0005-60 ",.01)
 ;;63874-0005-60
 ;;9002226.02101,"994,63874-0005-60 ",.02)
 ;;63874-0005-60
 ;;9002226.02101,"994,63874-0005-90 ",.01)
 ;;63874-0005-90
 ;;9002226.02101,"994,63874-0005-90 ",.02)
 ;;63874-0005-90
 ;;9002226.02101,"994,63874-0006-01 ",.01)
 ;;63874-0006-01
 ;;9002226.02101,"994,63874-0006-01 ",.02)
 ;;63874-0006-01
 ;;9002226.02101,"994,63874-0006-02 ",.01)
 ;;63874-0006-02
 ;;9002226.02101,"994,63874-0006-02 ",.02)
 ;;63874-0006-02
 ;;9002226.02101,"994,63874-0006-07 ",.01)
 ;;63874-0006-07
 ;;9002226.02101,"994,63874-0006-07 ",.02)
 ;;63874-0006-07
 ;;9002226.02101,"994,63874-0006-10 ",.01)
 ;;63874-0006-10
 ;;9002226.02101,"994,63874-0006-10 ",.02)
 ;;63874-0006-10
 ;;9002226.02101,"994,63874-0006-12 ",.01)
 ;;63874-0006-12
 ;;9002226.02101,"994,63874-0006-12 ",.02)
 ;;63874-0006-12
 ;;9002226.02101,"994,63874-0006-14 ",.01)
 ;;63874-0006-14
 ;;9002226.02101,"994,63874-0006-14 ",.02)
 ;;63874-0006-14
 ;;9002226.02101,"994,63874-0006-15 ",.01)
 ;;63874-0006-15
 ;;9002226.02101,"994,63874-0006-15 ",.02)
 ;;63874-0006-15
 ;;9002226.02101,"994,63874-0006-20 ",.01)
 ;;63874-0006-20
 ;;9002226.02101,"994,63874-0006-20 ",.02)
 ;;63874-0006-20
 ;;9002226.02101,"994,63874-0006-25 ",.01)
 ;;63874-0006-25