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

BGP06D21.m

Go to the documentation of this file.
BGP06D21 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"978,61392-0220-54 ",.01)
 ;;61392-0220-54
 ;;9002226.02101,"978,61392-0220-54 ",.02)
 ;;61392-0220-54
 ;;9002226.02101,"978,61392-0220-56 ",.01)
 ;;61392-0220-56
 ;;9002226.02101,"978,61392-0220-56 ",.02)
 ;;61392-0220-56
 ;;9002226.02101,"978,61392-0220-60 ",.01)
 ;;61392-0220-60
 ;;9002226.02101,"978,61392-0220-60 ",.02)
 ;;61392-0220-60
 ;;9002226.02101,"978,61392-0220-90 ",.01)
 ;;61392-0220-90
 ;;9002226.02101,"978,61392-0220-90 ",.02)
 ;;61392-0220-90
 ;;9002226.02101,"978,61392-0220-91 ",.01)
 ;;61392-0220-91
 ;;9002226.02101,"978,61392-0220-91 ",.02)
 ;;61392-0220-91
 ;;9002226.02101,"978,61392-0223-30 ",.01)
 ;;61392-0223-30
 ;;9002226.02101,"978,61392-0223-30 ",.02)
 ;;61392-0223-30
 ;;9002226.02101,"978,61392-0223-31 ",.01)
 ;;61392-0223-31
 ;;9002226.02101,"978,61392-0223-31 ",.02)
 ;;61392-0223-31
 ;;9002226.02101,"978,61392-0223-32 ",.01)
 ;;61392-0223-32
 ;;9002226.02101,"978,61392-0223-32 ",.02)
 ;;61392-0223-32
 ;;9002226.02101,"978,61392-0223-39 ",.01)
 ;;61392-0223-39
 ;;9002226.02101,"978,61392-0223-39 ",.02)
 ;;61392-0223-39
 ;;9002226.02101,"978,61392-0223-45 ",.01)
 ;;61392-0223-45
 ;;9002226.02101,"978,61392-0223-45 ",.02)
 ;;61392-0223-45
 ;;9002226.02101,"978,61392-0223-51 ",.01)
 ;;61392-0223-51
 ;;9002226.02101,"978,61392-0223-51 ",.02)
 ;;61392-0223-51
 ;;9002226.02101,"978,61392-0223-54 ",.01)
 ;;61392-0223-54
 ;;9002226.02101,"978,61392-0223-54 ",.02)
 ;;61392-0223-54
 ;;9002226.02101,"978,61392-0223-56 ",.01)
 ;;61392-0223-56
 ;;9002226.02101,"978,61392-0223-56 ",.02)
 ;;61392-0223-56
 ;;9002226.02101,"978,61392-0223-60 ",.01)
 ;;61392-0223-60
 ;;9002226.02101,"978,61392-0223-60 ",.02)
 ;;61392-0223-60
 ;;9002226.02101,"978,61392-0223-90 ",.01)
 ;;61392-0223-90
 ;;9002226.02101,"978,61392-0223-90 ",.02)
 ;;61392-0223-90
 ;;9002226.02101,"978,61392-0223-91 ",.01)
 ;;61392-0223-91
 ;;9002226.02101,"978,61392-0223-91 ",.02)
 ;;61392-0223-91
 ;;9002226.02101,"978,61787-0471-04 ",.01)
 ;;61787-0471-04
 ;;9002226.02101,"978,61787-0471-04 ",.02)
 ;;61787-0471-04
 ;;9002226.02101,"978,61787-0866-04 ",.01)
 ;;61787-0866-04
 ;;9002226.02101,"978,61787-0866-04 ",.02)
 ;;61787-0866-04
 ;;9002226.02101,"978,61787-0866-16 ",.01)
 ;;61787-0866-16
 ;;9002226.02101,"978,61787-0866-16 ",.02)
 ;;61787-0866-16
 ;;9002226.02101,"978,63629-1343-01 ",.01)
 ;;63629-1343-01
 ;;9002226.02101,"978,63629-1343-01 ",.02)
 ;;63629-1343-01
 ;;9002226.02101,"978,63629-1343-02 ",.01)
 ;;63629-1343-02
 ;;9002226.02101,"978,63629-1343-02 ",.02)
 ;;63629-1343-02
 ;;9002226.02101,"978,63629-1343-03 ",.01)
 ;;63629-1343-03
 ;;9002226.02101,"978,63629-1343-03 ",.02)
 ;;63629-1343-03
 ;;9002226.02101,"978,63629-1343-04 ",.01)
 ;;63629-1343-04
 ;;9002226.02101,"978,63629-1343-04 ",.02)
 ;;63629-1343-04
 ;;9002226.02101,"978,63629-1349-01 ",.01)
 ;;63629-1349-01
 ;;9002226.02101,"978,63629-1349-01 ",.02)
 ;;63629-1349-01
 ;;9002226.02101,"978,63629-1349-02 ",.01)
 ;;63629-1349-02
 ;;9002226.02101,"978,63629-1349-02 ",.02)
 ;;63629-1349-02
 ;;9002226.02101,"978,63629-1349-03 ",.01)
 ;;63629-1349-03
 ;;9002226.02101,"978,63629-1349-03 ",.02)
 ;;63629-1349-03
 ;;9002226.02101,"978,63629-1533-01 ",.01)
 ;;63629-1533-01
 ;;9002226.02101,"978,63629-1533-01 ",.02)
 ;;63629-1533-01
 ;;9002226.02101,"978,63629-1533-02 ",.01)
 ;;63629-1533-02
 ;;9002226.02101,"978,63629-1533-02 ",.02)
 ;;63629-1533-02
 ;;9002226.02101,"978,63629-1588-01 ",.01)
 ;;63629-1588-01
 ;;9002226.02101,"978,63629-1588-01 ",.02)
 ;;63629-1588-01
 ;;9002226.02101,"978,63629-1588-02 ",.01)
 ;;63629-1588-02
 ;;9002226.02101,"978,63629-1588-02 ",.02)
 ;;63629-1588-02
 ;;9002226.02101,"978,63629-1588-03 ",.01)
 ;;63629-1588-03
 ;;9002226.02101,"978,63629-1588-03 ",.02)
 ;;63629-1588-03
 ;;9002226.02101,"978,63629-1591-01 ",.01)
 ;;63629-1591-01
 ;;9002226.02101,"978,63629-1591-01 ",.02)
 ;;63629-1591-01
 ;;9002226.02101,"978,63629-1591-02 ",.01)
 ;;63629-1591-02
 ;;9002226.02101,"978,63629-1591-02 ",.02)
 ;;63629-1591-02
 ;;9002226.02101,"978,63629-1591-03 ",.01)
 ;;63629-1591-03
 ;;9002226.02101,"978,63629-1591-03 ",.02)
 ;;63629-1591-03
 ;;9002226.02101,"978,63629-1591-04 ",.01)
 ;;63629-1591-04
 ;;9002226.02101,"978,63629-1591-04 ",.02)
 ;;63629-1591-04
 ;;9002226.02101,"978,63629-1607-01 ",.01)
 ;;63629-1607-01
 ;;9002226.02101,"978,63629-1607-01 ",.02)
 ;;63629-1607-01
 ;;9002226.02101,"978,63629-1607-02 ",.01)
 ;;63629-1607-02
 ;;9002226.02101,"978,63629-1607-02 ",.02)
 ;;63629-1607-02
 ;;9002226.02101,"978,63629-1607-03 ",.01)
 ;;63629-1607-03
 ;;9002226.02101,"978,63629-1607-03 ",.02)
 ;;63629-1607-03
 ;;9002226.02101,"978,63629-1742-01 ",.01)
 ;;63629-1742-01
 ;;9002226.02101,"978,63629-1742-01 ",.02)
 ;;63629-1742-01
 ;;9002226.02101,"978,63629-1742-02 ",.01)
 ;;63629-1742-02
 ;;9002226.02101,"978,63629-1742-02 ",.02)
 ;;63629-1742-02
 ;;9002226.02101,"978,63629-1742-03 ",.01)
 ;;63629-1742-03
 ;;9002226.02101,"978,63629-1742-03 ",.02)
 ;;63629-1742-03
 ;;9002226.02101,"978,63629-1742-04 ",.01)
 ;;63629-1742-04
 ;;9002226.02101,"978,63629-1742-04 ",.02)
 ;;63629-1742-04
 ;;9002226.02101,"978,63629-1751-01 ",.01)
 ;;63629-1751-01
 ;;9002226.02101,"978,63629-1751-01 ",.02)
 ;;63629-1751-01
 ;;9002226.02101,"978,63629-1751-02 ",.01)
 ;;63629-1751-02
 ;;9002226.02101,"978,63629-1751-02 ",.02)
 ;;63629-1751-02
 ;;9002226.02101,"978,63629-1855-01 ",.01)
 ;;63629-1855-01
 ;;9002226.02101,"978,63629-1855-01 ",.02)
 ;;63629-1855-01
 ;;9002226.02101,"978,63629-1855-02 ",.01)
 ;;63629-1855-02
 ;;9002226.02101,"978,63629-1855-02 ",.02)
 ;;63629-1855-02
 ;;9002226.02101,"978,63629-1868-01 ",.01)
 ;;63629-1868-01
 ;;9002226.02101,"978,63629-1868-01 ",.02)
 ;;63629-1868-01
 ;;9002226.02101,"978,63629-1868-02 ",.01)
 ;;63629-1868-02
 ;;9002226.02101,"978,63629-1868-02 ",.02)
 ;;63629-1868-02
 ;;9002226.02101,"978,63629-1870-01 ",.01)
 ;;63629-1870-01
 ;;9002226.02101,"978,63629-1870-01 ",.02)
 ;;63629-1870-01
 ;;9002226.02101,"978,63629-1870-02 ",.01)
 ;;63629-1870-02
 ;;9002226.02101,"978,63629-1870-02 ",.02)
 ;;63629-1870-02
 ;;9002226.02101,"978,63629-2959-01 ",.01)
 ;;63629-2959-01
 ;;9002226.02101,"978,63629-2959-01 ",.02)
 ;;63629-2959-01
 ;;9002226.02101,"978,63629-2982-01 ",.01)
 ;;63629-2982-01
 ;;9002226.02101,"978,63629-2982-01 ",.02)
 ;;63629-2982-01
 ;;9002226.02101,"978,63629-2982-02 ",.01)
 ;;63629-2982-02
 ;;9002226.02101,"978,63629-2982-02 ",.02)
 ;;63629-2982-02
 ;;9002226.02101,"978,63717-0570-04 ",.01)
 ;;63717-0570-04
 ;;9002226.02101,"978,63717-0570-04 ",.02)
 ;;63717-0570-04
 ;;9002226.02101,"978,63717-0571-06 ",.01)
 ;;63717-0571-06
 ;;9002226.02101,"978,63717-0571-06 ",.02)
 ;;63717-0571-06
 ;;9002226.02101,"978,63717-0576-04 ",.01)
 ;;63717-0576-04
 ;;9002226.02101,"978,63717-0576-04 ",.02)
 ;;63717-0576-04
 ;;9002226.02101,"978,63717-0577-06 ",.01)
 ;;63717-0577-06
 ;;9002226.02101,"978,63717-0577-06 ",.02)
 ;;63717-0577-06
 ;;9002226.02101,"978,63717-0580-04 ",.01)
 ;;63717-0580-04
 ;;9002226.02101,"978,63717-0580-04 ",.02)
 ;;63717-0580-04
 ;;9002226.02101,"978,63717-0581-06 ",.01)
 ;;63717-0581-06
 ;;9002226.02101,"978,63717-0581-06 ",.02)
 ;;63717-0581-06
 ;;9002226.02101,"978,63717-0585-04 ",.01)
 ;;63717-0585-04
 ;;9002226.02101,"978,63717-0585-04 ",.02)
 ;;63717-0585-04
 ;;9002226.02101,"978,63717-0710-04 ",.01)
 ;;63717-0710-04
 ;;9002226.02101,"978,63717-0710-04 ",.02)
 ;;63717-0710-04
 ;;9002226.02101,"978,63739-0213-10 ",.01)
 ;;63739-0213-10
 ;;9002226.02101,"978,63739-0213-10 ",.02)
 ;;63739-0213-10
 ;;9002226.02101,"978,63739-0213-15 ",.01)
 ;;63739-0213-15
 ;;9002226.02101,"978,63739-0213-15 ",.02)
 ;;63739-0213-15
 ;;9002226.02101,"978,63739-0389-10 ",.01)
 ;;63739-0389-10
 ;;9002226.02101,"978,63739-0389-10 ",.02)
 ;;63739-0389-10
 ;;9002226.02101,"978,63868-0314-10 ",.01)
 ;;63868-0314-10
 ;;9002226.02101,"978,63868-0314-10 ",.02)
 ;;63868-0314-10
 ;;9002226.02101,"978,63874-0005-01 ",.01)
 ;;63874-0005-01
 ;;9002226.02101,"978,63874-0005-01 ",.02)
 ;;63874-0005-01
 ;;9002226.02101,"978,63874-0005-02 ",.01)
 ;;63874-0005-02
 ;;9002226.02101,"978,63874-0005-02 ",.02)
 ;;63874-0005-02
 ;;9002226.02101,"978,63874-0005-06 ",.01)
 ;;63874-0005-06
 ;;9002226.02101,"978,63874-0005-06 ",.02)
 ;;63874-0005-06
 ;;9002226.02101,"978,63874-0005-09 ",.01)
 ;;63874-0005-09
 ;;9002226.02101,"978,63874-0005-09 ",.02)
 ;;63874-0005-09
 ;;9002226.02101,"978,63874-0005-10 ",.01)
 ;;63874-0005-10
 ;;9002226.02101,"978,63874-0005-10 ",.02)
 ;;63874-0005-10
 ;;9002226.02101,"978,63874-0005-12 ",.01)
 ;;63874-0005-12
 ;;9002226.02101,"978,63874-0005-12 ",.02)
 ;;63874-0005-12
 ;;9002226.02101,"978,63874-0005-14 ",.01)
 ;;63874-0005-14
 ;;9002226.02101,"978,63874-0005-14 ",.02)
 ;;63874-0005-14
 ;;9002226.02101,"978,63874-0005-15 ",.01)
 ;;63874-0005-15
 ;;9002226.02101,"978,63874-0005-15 ",.02)
 ;;63874-0005-15
 ;;9002226.02101,"978,63874-0005-20 ",.01)
 ;;63874-0005-20
 ;;9002226.02101,"978,63874-0005-20 ",.02)
 ;;63874-0005-20
 ;;9002226.02101,"978,63874-0005-21 ",.01)
 ;;63874-0005-21
 ;;9002226.02101,"978,63874-0005-21 ",.02)
 ;;63874-0005-21
 ;;9002226.02101,"978,63874-0005-24 ",.01)
 ;;63874-0005-24
 ;;9002226.02101,"978,63874-0005-24 ",.02)
 ;;63874-0005-24
 ;;9002226.02101,"978,63874-0005-25 ",.01)
 ;;63874-0005-25
 ;;9002226.02101,"978,63874-0005-25 ",.02)
 ;;63874-0005-25
 ;;9002226.02101,"978,63874-0005-28 ",.01)
 ;;63874-0005-28
 ;;9002226.02101,"978,63874-0005-28 ",.02)
 ;;63874-0005-28
 ;;9002226.02101,"978,63874-0005-30 ",.01)
 ;;63874-0005-30
 ;;9002226.02101,"978,63874-0005-30 ",.02)
 ;;63874-0005-30
 ;;9002226.02101,"978,63874-0005-40 ",.01)
 ;;63874-0005-40
 ;;9002226.02101,"978,63874-0005-40 ",.02)
 ;;63874-0005-40
 ;;9002226.02101,"978,63874-0005-45 ",.01)
 ;;63874-0005-45
 ;;9002226.02101,"978,63874-0005-45 ",.02)
 ;;63874-0005-45
 ;;9002226.02101,"978,63874-0005-60 ",.01)
 ;;63874-0005-60
 ;;9002226.02101,"978,63874-0005-60 ",.02)
 ;;63874-0005-60
 ;;9002226.02101,"978,63874-0005-90 ",.01)
 ;;63874-0005-90
 ;;9002226.02101,"978,63874-0005-90 ",.02)
 ;;63874-0005-90
 ;;9002226.02101,"978,63874-0006-01 ",.01)
 ;;63874-0006-01
 ;;9002226.02101,"978,63874-0006-01 ",.02)
 ;;63874-0006-01
 ;;9002226.02101,"978,63874-0006-02 ",.01)
 ;;63874-0006-02
 ;;9002226.02101,"978,63874-0006-02 ",.02)
 ;;63874-0006-02
 ;;9002226.02101,"978,63874-0006-07 ",.01)
 ;;63874-0006-07
 ;;9002226.02101,"978,63874-0006-07 ",.02)
 ;;63874-0006-07
 ;;9002226.02101,"978,63874-0006-10 ",.01)
 ;;63874-0006-10
 ;;9002226.02101,"978,63874-0006-10 ",.02)
 ;;63874-0006-10
 ;;9002226.02101,"978,63874-0006-12 ",.01)
 ;;63874-0006-12
 ;;9002226.02101,"978,63874-0006-12 ",.02)
 ;;63874-0006-12
 ;;9002226.02101,"978,63874-0006-14 ",.01)
 ;;63874-0006-14
 ;;9002226.02101,"978,63874-0006-14 ",.02)
 ;;63874-0006-14
 ;;9002226.02101,"978,63874-0006-15 ",.01)
 ;;63874-0006-15
 ;;9002226.02101,"978,63874-0006-15 ",.02)
 ;;63874-0006-15
 ;;9002226.02101,"978,63874-0006-20 ",.01)
 ;;63874-0006-20
 ;;9002226.02101,"978,63874-0006-20 ",.02)
 ;;63874-0006-20
 ;;9002226.02101,"978,63874-0006-25 ",.01)
 ;;63874-0006-25
 ;;9002226.02101,"978,63874-0006-25 ",.02)
 ;;63874-0006-25
 ;;9002226.02101,"978,63874-0006-28 ",.01)
 ;;63874-0006-28
 ;;9002226.02101,"978,63874-0006-28 ",.02)
 ;;63874-0006-28
 ;;9002226.02101,"978,63874-0006-30 ",.01)
 ;;63874-0006-30
 ;;9002226.02101,"978,63874-0006-30 ",.02)
 ;;63874-0006-30
 ;;9002226.02101,"978,63874-0006-60 ",.01)
 ;;63874-0006-60
 ;;9002226.02101,"978,63874-0006-60 ",.02)
 ;;63874-0006-60
 ;;9002226.02101,"978,63874-0077-30 ",.01)
 ;;63874-0077-30
 ;;9002226.02101,"978,63874-0077-30 ",.02)
 ;;63874-0077-30
 ;;9002226.02101,"978,63874-0077-50 ",.01)
 ;;63874-0077-50
 ;;9002226.02101,"978,63874-0077-50 ",.02)
 ;;63874-0077-50
 ;;9002226.02101,"978,63874-0204-12 ",.01)
 ;;63874-0204-12
 ;;9002226.02101,"978,63874-0204-12 ",.02)
 ;;63874-0204-12
 ;;9002226.02101,"978,63874-0204-18 ",.01)
 ;;63874-0204-18
 ;;9002226.02101,"978,63874-0204-18 ",.02)
 ;;63874-0204-18
 ;;9002226.02101,"978,63874-0204-24 ",.01)
 ;;63874-0204-24
 ;;9002226.02101,"978,63874-0204-24 ",.02)
 ;;63874-0204-24
 ;;9002226.02101,"978,63874-0204-38 ",.01)
 ;;63874-0204-38
 ;;9002226.02101,"978,63874-0204-38 ",.02)
 ;;63874-0204-38
 ;;9002226.02101,"978,63874-0204-48 ",.01)
 ;;63874-0204-48
 ;;9002226.02101,"978,63874-0204-48 ",.02)
 ;;63874-0204-48
 ;;9002226.02101,"978,63874-0209-12 ",.01)
 ;;63874-0209-12
 ;;9002226.02101,"978,63874-0209-12 ",.02)
 ;;63874-0209-12
 ;;9002226.02101,"978,63874-0209-18 ",.01)
 ;;63874-0209-18
 ;;9002226.02101,"978,63874-0209-18 ",.02)
 ;;63874-0209-18
 ;;9002226.02101,"978,63874-0209-24 ",.01)
 ;;63874-0209-24
 ;;9002226.02101,"978,63874-0209-24 ",.02)
 ;;63874-0209-24
 ;;9002226.02101,"978,63874-0303-20 ",.01)
 ;;63874-0303-20
 ;;9002226.02101,"978,63874-0303-20 ",.02)
 ;;63874-0303-20
 ;;9002226.02101,"978,63874-0303-30 ",.01)
 ;;63874-0303-30
 ;;9002226.02101,"978,63874-0303-30 ",.02)
 ;;63874-0303-30
 ;;9002226.02101,"978,63874-0304-01 ",.01)
 ;;63874-0304-01
 ;;9002226.02101,"978,63874-0304-01 ",.02)
 ;;63874-0304-01
 ;;9002226.02101,"978,63874-0304-02 ",.01)
 ;;63874-0304-02
 ;;9002226.02101,"978,63874-0304-02 ",.02)
 ;;63874-0304-02
 ;;9002226.02101,"978,63874-0304-09 ",.01)
 ;;63874-0304-09
 ;;9002226.02101,"978,63874-0304-09 ",.02)
 ;;63874-0304-09
 ;;9002226.02101,"978,63874-0304-10 ",.01)
 ;;63874-0304-10
 ;;9002226.02101,"978,63874-0304-10 ",.02)
 ;;63874-0304-10