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

BGP06D14.m

Go to the documentation of this file.
BGP06D14 ;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,49999-0247-04 ",.01)
 ;;49999-0247-04
 ;;9002226.02101,"978,49999-0247-04 ",.02)
 ;;49999-0247-04
 ;;9002226.02101,"978,49999-0262-04 ",.01)
 ;;49999-0262-04
 ;;9002226.02101,"978,49999-0262-04 ",.02)
 ;;49999-0262-04
 ;;9002226.02101,"978,49999-0269-06 ",.01)
 ;;49999-0269-06
 ;;9002226.02101,"978,49999-0269-06 ",.02)
 ;;49999-0269-06
 ;;9002226.02101,"978,49999-0314-04 ",.01)
 ;;49999-0314-04
 ;;9002226.02101,"978,49999-0314-04 ",.02)
 ;;49999-0314-04
 ;;9002226.02101,"978,49999-0326-04 ",.01)
 ;;49999-0326-04
 ;;9002226.02101,"978,49999-0326-04 ",.02)
 ;;49999-0326-04
 ;;9002226.02101,"978,49999-0493-18 ",.01)
 ;;49999-0493-18
 ;;9002226.02101,"978,49999-0493-18 ",.02)
 ;;49999-0493-18
 ;;9002226.02101,"978,49999-0594-05 ",.01)
 ;;49999-0594-05
 ;;9002226.02101,"978,49999-0594-05 ",.02)
 ;;49999-0594-05
 ;;9002226.02101,"978,49999-0594-30 ",.01)
 ;;49999-0594-30
 ;;9002226.02101,"978,49999-0594-30 ",.02)
 ;;49999-0594-30
 ;;9002226.02101,"978,49999-0594-90 ",.01)
 ;;49999-0594-90
 ;;9002226.02101,"978,49999-0594-90 ",.02)
 ;;49999-0594-90
 ;;9002226.02101,"978,49999-0657-04 ",.01)
 ;;49999-0657-04
 ;;9002226.02101,"978,49999-0657-04 ",.02)
 ;;49999-0657-04
 ;;9002226.02101,"978,49999-0902-20 ",.01)
 ;;49999-0902-20
 ;;9002226.02101,"978,49999-0902-20 ",.02)
 ;;49999-0902-20
 ;;9002226.02101,"978,50111-0307-01 ",.01)
 ;;50111-0307-01
 ;;9002226.02101,"978,50111-0307-01 ",.02)
 ;;50111-0307-01
 ;;9002226.02101,"978,50111-0307-02 ",.01)
 ;;50111-0307-02
 ;;9002226.02101,"978,50111-0307-02 ",.02)
 ;;50111-0307-02
 ;;9002226.02101,"978,50111-0307-03 ",.01)
 ;;50111-0307-03
 ;;9002226.02101,"978,50111-0307-03 ",.02)
 ;;50111-0307-03
 ;;9002226.02101,"978,50111-0308-01 ",.01)
 ;;50111-0308-01
 ;;9002226.02101,"978,50111-0308-01 ",.02)
 ;;50111-0308-01
 ;;9002226.02101,"978,50111-0308-02 ",.01)
 ;;50111-0308-02
 ;;9002226.02101,"978,50111-0308-02 ",.02)
 ;;50111-0308-02
 ;;9002226.02101,"978,50111-0308-03 ",.01)
 ;;50111-0308-03
 ;;9002226.02101,"978,50111-0308-03 ",.02)
 ;;50111-0308-03
 ;;9002226.02101,"978,50111-0309-01 ",.01)
 ;;50111-0309-01
 ;;9002226.02101,"978,50111-0309-01 ",.02)
 ;;50111-0309-01
 ;;9002226.02101,"978,50111-0309-02 ",.01)
 ;;50111-0309-02
 ;;9002226.02101,"978,50111-0309-02 ",.02)
 ;;50111-0309-02
 ;;9002226.02101,"978,50111-0309-03 ",.01)
 ;;50111-0309-03
 ;;9002226.02101,"978,50111-0309-03 ",.02)
 ;;50111-0309-03
 ;;9002226.02101,"978,50111-0314-01 ",.01)
 ;;50111-0314-01
 ;;9002226.02101,"978,50111-0314-01 ",.02)
 ;;50111-0314-01
 ;;9002226.02101,"978,50111-0314-03 ",.01)
 ;;50111-0314-03
 ;;9002226.02101,"978,50111-0314-03 ",.02)
 ;;50111-0314-03
 ;;9002226.02101,"978,50383-0578-04 ",.01)
 ;;50383-0578-04
 ;;9002226.02101,"978,50383-0578-04 ",.02)
 ;;50383-0578-04
 ;;9002226.02101,"978,50383-0578-16 ",.01)
 ;;50383-0578-16
 ;;9002226.02101,"978,50383-0578-16 ",.02)
 ;;50383-0578-16
 ;;9002226.02101,"978,50383-0579-04 ",.01)
 ;;50383-0579-04
 ;;9002226.02101,"978,50383-0579-04 ",.02)
 ;;50383-0579-04
 ;;9002226.02101,"978,50383-0579-08 ",.01)
 ;;50383-0579-08
 ;;9002226.02101,"978,50383-0579-08 ",.02)
 ;;50383-0579-08
 ;;9002226.02101,"978,50383-0579-16 ",.01)
 ;;50383-0579-16
 ;;9002226.02101,"978,50383-0579-16 ",.02)
 ;;50383-0579-16
 ;;9002226.02101,"978,50383-0579-28 ",.01)
 ;;50383-0579-28
 ;;9002226.02101,"978,50383-0579-28 ",.02)
 ;;50383-0579-28
 ;;9002226.02101,"978,50383-0581-04 ",.01)
 ;;50383-0581-04
 ;;9002226.02101,"978,50383-0581-04 ",.02)
 ;;50383-0581-04
 ;;9002226.02101,"978,50383-0581-16 ",.01)
 ;;50383-0581-16
 ;;9002226.02101,"978,50383-0581-16 ",.02)
 ;;50383-0581-16
 ;;9002226.02101,"978,50383-0796-16 ",.01)
 ;;50383-0796-16
 ;;9002226.02101,"978,50383-0796-16 ",.02)
 ;;50383-0796-16
 ;;9002226.02101,"978,50383-0801-16 ",.01)
 ;;50383-0801-16
 ;;9002226.02101,"978,50383-0801-16 ",.02)
 ;;50383-0801-16
 ;;9002226.02101,"978,50383-0803-16 ",.01)
 ;;50383-0803-16
 ;;9002226.02101,"978,50383-0803-16 ",.02)
 ;;50383-0803-16
 ;;9002226.02101,"978,50383-0804-16 ",.01)
 ;;50383-0804-16
 ;;9002226.02101,"978,50383-0804-16 ",.02)
 ;;50383-0804-16
 ;;9002226.02101,"978,50383-0866-04 ",.01)
 ;;50383-0866-04
 ;;9002226.02101,"978,50383-0866-04 ",.02)
 ;;50383-0866-04
 ;;9002226.02101,"978,50383-0866-16 ",.01)
 ;;50383-0866-16
 ;;9002226.02101,"978,50383-0866-16 ",.02)
 ;;50383-0866-16
 ;;9002226.02101,"978,50383-0880-16 ",.01)
 ;;50383-0880-16
 ;;9002226.02101,"978,50383-0880-16 ",.02)
 ;;50383-0880-16
 ;;9002226.02101,"978,50428-4770-66 ",.01)
 ;;50428-4770-66
 ;;9002226.02101,"978,50428-4770-66 ",.02)
 ;;50428-4770-66
 ;;9002226.02101,"978,50428-4770-68 ",.01)
 ;;50428-4770-68
 ;;9002226.02101,"978,50428-4770-68 ",.02)
 ;;50428-4770-68
 ;;9002226.02101,"978,50428-4770-69 ",.01)
 ;;50428-4770-69
 ;;9002226.02101,"978,50428-4770-69 ",.02)
 ;;50428-4770-69
 ;;9002226.02101,"978,50428-4770-70 ",.01)
 ;;50428-4770-70
 ;;9002226.02101,"978,50428-4770-70 ",.02)
 ;;50428-4770-70
 ;;9002226.02101,"978,50428-4770-71 ",.01)
 ;;50428-4770-71
 ;;9002226.02101,"978,50428-4770-71 ",.02)
 ;;50428-4770-71
 ;;9002226.02101,"978,50428-4770-72 ",.01)
 ;;50428-4770-72
 ;;9002226.02101,"978,50428-4770-72 ",.02)
 ;;50428-4770-72
 ;;9002226.02101,"978,50428-4770-73 ",.01)
 ;;50428-4770-73
 ;;9002226.02101,"978,50428-4770-73 ",.02)
 ;;50428-4770-73
 ;;9002226.02101,"978,50428-4770-84 ",.01)
 ;;50428-4770-84
 ;;9002226.02101,"978,50428-4770-84 ",.02)
 ;;50428-4770-84
 ;;9002226.02101,"978,50486-0616-16 ",.01)
 ;;50486-0616-16
 ;;9002226.02101,"978,50486-0616-16 ",.02)
 ;;50486-0616-16
 ;;9002226.02101,"978,50486-0616-32 ",.01)
 ;;50486-0616-32
 ;;9002226.02101,"978,50486-0616-32 ",.02)
 ;;50486-0616-32
 ;;9002226.02101,"978,50486-0621-16 ",.01)
 ;;50486-0621-16
 ;;9002226.02101,"978,50486-0621-16 ",.02)
 ;;50486-0621-16
 ;;9002226.02101,"978,50580-0174-24 ",.01)
 ;;50580-0174-24
 ;;9002226.02101,"978,50580-0174-24 ",.02)
 ;;50580-0174-24
 ;;9002226.02101,"978,50580-0176-04 ",.01)
 ;;50580-0176-04
 ;;9002226.02101,"978,50580-0176-04 ",.02)
 ;;50580-0176-04
 ;;9002226.02101,"978,50580-0176-08 ",.01)
 ;;50580-0176-08
 ;;9002226.02101,"978,50580-0176-08 ",.02)
 ;;50580-0176-08
 ;;9002226.02101,"978,50580-0176-10 ",.01)
 ;;50580-0176-10
 ;;9002226.02101,"978,50580-0176-10 ",.02)
 ;;50580-0176-10
 ;;9002226.02101,"978,50580-0176-14 ",.01)
 ;;50580-0176-14
 ;;9002226.02101,"978,50580-0176-14 ",.02)
 ;;50580-0176-14
 ;;9002226.02101,"978,50580-0176-15 ",.01)
 ;;50580-0176-15
 ;;9002226.02101,"978,50580-0176-15 ",.02)
 ;;50580-0176-15
 ;;9002226.02101,"978,50580-0176-24 ",.01)
 ;;50580-0176-24
 ;;9002226.02101,"978,50580-0176-24 ",.02)
 ;;50580-0176-24
 ;;9002226.02101,"978,50580-0176-50 ",.01)
 ;;50580-0176-50
 ;;9002226.02101,"978,50580-0176-50 ",.02)
 ;;50580-0176-50
 ;;9002226.02101,"978,50580-0176-70 ",.01)
 ;;50580-0176-70
 ;;9002226.02101,"978,50580-0176-70 ",.02)
 ;;50580-0176-70
 ;;9002226.02101,"978,50580-0176-74 ",.01)
 ;;50580-0176-74
 ;;9002226.02101,"978,50580-0176-74 ",.02)
 ;;50580-0176-74
 ;;9002226.02101,"978,50580-0182-20 ",.01)
 ;;50580-0182-20
 ;;9002226.02101,"978,50580-0182-20 ",.02)
 ;;50580-0182-20
 ;;9002226.02101,"978,50580-0182-40 ",.01)
 ;;50580-0182-40
 ;;9002226.02101,"978,50580-0182-40 ",.02)
 ;;50580-0182-40
 ;;9002226.02101,"978,50580-0182-52 ",.01)
 ;;50580-0182-52
 ;;9002226.02101,"978,50580-0182-52 ",.02)
 ;;50580-0182-52
 ;;9002226.02101,"978,50580-0233-24 ",.01)
 ;;50580-0233-24
 ;;9002226.02101,"978,50580-0233-24 ",.02)
 ;;50580-0233-24
 ;;9002226.02101,"978,50580-0233-48 ",.01)
 ;;50580-0233-48
 ;;9002226.02101,"978,50580-0233-48 ",.02)
 ;;50580-0233-48
 ;;9002226.02101,"978,50580-0234-24 ",.01)
 ;;50580-0234-24
 ;;9002226.02101,"978,50580-0234-24 ",.02)
 ;;50580-0234-24
 ;;9002226.02101,"978,50580-0252-08 ",.01)
 ;;50580-0252-08
 ;;9002226.02101,"978,50580-0252-08 ",.02)
 ;;50580-0252-08
 ;;9002226.02101,"978,50580-0347-18 ",.01)
 ;;50580-0347-18
 ;;9002226.02101,"978,50580-0347-18 ",.02)
 ;;50580-0347-18
 ;;9002226.02101,"978,50580-0348-18 ",.01)
 ;;50580-0348-18
 ;;9002226.02101,"978,50580-0348-18 ",.02)
 ;;50580-0348-18
 ;;9002226.02101,"978,50580-0426-10 ",.01)
 ;;50580-0426-10
 ;;9002226.02101,"978,50580-0426-10 ",.02)
 ;;50580-0426-10
 ;;9002226.02101,"978,50580-0426-23 ",.01)
 ;;50580-0426-23
 ;;9002226.02101,"978,50580-0426-23 ",.02)
 ;;50580-0426-23
 ;;9002226.02101,"978,50580-0426-24 ",.01)
 ;;50580-0426-24
 ;;9002226.02101,"978,50580-0426-24 ",.02)
 ;;50580-0426-24
 ;;9002226.02101,"978,50580-0427-08 ",.01)
 ;;50580-0427-08
 ;;9002226.02101,"978,50580-0427-08 ",.02)
 ;;50580-0427-08
 ;;9002226.02101,"978,50580-0443-22 ",.01)
 ;;50580-0443-22
 ;;9002226.02101,"978,50580-0443-22 ",.02)
 ;;50580-0443-22
 ;;9002226.02101,"978,50580-0443-24 ",.01)
 ;;50580-0443-24
 ;;9002226.02101,"978,50580-0443-24 ",.02)
 ;;50580-0443-24
 ;;9002226.02101,"978,50580-0482-10 ",.01)
 ;;50580-0482-10
 ;;9002226.02101,"978,50580-0482-10 ",.02)
 ;;50580-0482-10
 ;;9002226.02101,"978,50580-0482-15 ",.01)
 ;;50580-0482-15
 ;;9002226.02101,"978,50580-0482-15 ",.02)
 ;;50580-0482-15
 ;;9002226.02101,"978,50580-0482-24 ",.01)
 ;;50580-0482-24
 ;;9002226.02101,"978,50580-0482-24 ",.02)
 ;;50580-0482-24
 ;;9002226.02101,"978,50580-0482-26 ",.01)
 ;;50580-0482-26
 ;;9002226.02101,"978,50580-0482-26 ",.02)
 ;;50580-0482-26
 ;;9002226.02101,"978,50580-0482-35 ",.01)
 ;;50580-0482-35
 ;;9002226.02101,"978,50580-0482-35 ",.02)
 ;;50580-0482-35
 ;;9002226.02101,"978,50580-0482-45 ",.01)
 ;;50580-0482-45
 ;;9002226.02101,"978,50580-0482-45 ",.02)
 ;;50580-0482-45
 ;;9002226.02101,"978,50580-0482-50 ",.01)
 ;;50580-0482-50
 ;;9002226.02101,"978,50580-0482-50 ",.02)
 ;;50580-0482-50
 ;;9002226.02101,"978,50580-0482-70 ",.01)
 ;;50580-0482-70
 ;;9002226.02101,"978,50580-0482-70 ",.02)
 ;;50580-0482-70
 ;;9002226.02101,"978,50580-0552-04 ",.01)
 ;;50580-0552-04
 ;;9002226.02101,"978,50580-0552-04 ",.02)
 ;;50580-0552-04
 ;;9002226.02101,"978,50580-0664-12 ",.01)
 ;;50580-0664-12
 ;;9002226.02101,"978,50580-0664-12 ",.02)
 ;;50580-0664-12
 ;;9002226.02101,"978,50580-0664-24 ",.01)
 ;;50580-0664-24
 ;;9002226.02101,"978,50580-0664-24 ",.02)
 ;;50580-0664-24
 ;;9002226.02101,"978,50580-0777-04 ",.01)
 ;;50580-0777-04
 ;;9002226.02101,"978,50580-0777-04 ",.02)
 ;;50580-0777-04
 ;;9002226.02101,"978,50580-0814-08 ",.01)
 ;;50580-0814-08
 ;;9002226.02101,"978,50580-0814-08 ",.02)
 ;;50580-0814-08
 ;;9002226.02101,"978,50580-0815-04 ",.01)
 ;;50580-0815-04
 ;;9002226.02101,"978,50580-0815-04 ",.02)
 ;;50580-0815-04
 ;;9002226.02101,"978,50580-0843-10 ",.01)
 ;;50580-0843-10
 ;;9002226.02101,"978,50580-0843-10 ",.02)
 ;;50580-0843-10
 ;;9002226.02101,"978,50580-0843-13 ",.01)
 ;;50580-0843-13
 ;;9002226.02101,"978,50580-0843-13 ",.02)
 ;;50580-0843-13
 ;;9002226.02101,"978,50580-0843-24 ",.01)
 ;;50580-0843-24
 ;;9002226.02101,"978,50580-0843-24 ",.02)
 ;;50580-0843-24
 ;;9002226.02101,"978,50580-0843-25 ",.01)
 ;;50580-0843-25
 ;;9002226.02101,"978,50580-0843-25 ",.02)
 ;;50580-0843-25
 ;;9002226.02101,"978,50580-0843-48 ",.01)
 ;;50580-0843-48
 ;;9002226.02101,"978,50580-0843-48 ",.02)
 ;;50580-0843-48
 ;;9002226.02101,"978,50580-0843-72 ",.01)
 ;;50580-0843-72
 ;;9002226.02101,"978,50580-0843-72 ",.02)
 ;;50580-0843-72
 ;;9002226.02101,"978,50991-0607-16 ",.01)
 ;;50991-0607-16
 ;;9002226.02101,"978,50991-0607-16 ",.02)
 ;;50991-0607-16
 ;;9002226.02101,"978,51079-0066-01 ",.01)
 ;;51079-0066-01
 ;;9002226.02101,"978,51079-0066-01 ",.02)
 ;;51079-0066-01
 ;;9002226.02101,"978,51079-0066-19 ",.01)
 ;;51079-0066-19
 ;;9002226.02101,"978,51079-0066-19 ",.02)
 ;;51079-0066-19
 ;;9002226.02101,"978,51079-0066-20 ",.01)
 ;;51079-0066-20
 ;;9002226.02101,"978,51079-0066-20 ",.02)
 ;;51079-0066-20
 ;;9002226.02101,"978,51079-0077-20 ",.01)
 ;;51079-0077-20
 ;;9002226.02101,"978,51079-0077-20 ",.02)
 ;;51079-0077-20
 ;;9002226.02101,"978,51079-0078-01 ",.01)
 ;;51079-0078-01
 ;;9002226.02101,"978,51079-0078-01 ",.02)
 ;;51079-0078-01
 ;;9002226.02101,"978,51079-0078-20 ",.01)
 ;;51079-0078-20
 ;;9002226.02101,"978,51079-0078-20 ",.02)
 ;;51079-0078-20
 ;;9002226.02101,"978,51079-0530-01 ",.01)
 ;;51079-0530-01
 ;;9002226.02101,"978,51079-0530-01 ",.02)
 ;;51079-0530-01
 ;;9002226.02101,"978,51079-0530-20 ",.01)
 ;;51079-0530-20
 ;;9002226.02101,"978,51079-0530-20 ",.02)
 ;;51079-0530-20
 ;;9002226.02101,"978,51079-0531-01 ",.01)
 ;;51079-0531-01
 ;;9002226.02101,"978,51079-0531-01 ",.02)
 ;;51079-0531-01
 ;;9002226.02101,"978,51079-0531-20 ",.01)
 ;;51079-0531-20
 ;;9002226.02101,"978,51079-0531-20 ",.02)
 ;;51079-0531-20
 ;;9002226.02101,"978,51079-0532-01 ",.01)
 ;;51079-0532-01
 ;;9002226.02101,"978,51079-0532-01 ",.02)
 ;;51079-0532-01
 ;;9002226.02101,"978,51079-0532-20 ",.01)
 ;;51079-0532-20
 ;;9002226.02101,"978,51079-0532-20 ",.02)
 ;;51079-0532-20
 ;;9002226.02101,"978,51079-0895-01 ",.01)
 ;;51079-0895-01
 ;;9002226.02101,"978,51079-0895-01 ",.02)
 ;;51079-0895-01
 ;;9002226.02101,"978,51079-0895-20 ",.01)
 ;;51079-0895-20
 ;;9002226.02101,"978,51079-0895-20 ",.02)
 ;;51079-0895-20
 ;;9002226.02101,"978,51079-0967-01 ",.01)
 ;;51079-0967-01
 ;;9002226.02101,"978,51079-0967-01 ",.02)
 ;;51079-0967-01
 ;;9002226.02101,"978,51079-0967-19 ",.01)
 ;;51079-0967-19
 ;;9002226.02101,"978,51079-0967-19 ",.02)
 ;;51079-0967-19
 ;;9002226.02101,"978,51079-0967-20 ",.01)
 ;;51079-0967-20
 ;;9002226.02101,"978,51079-0967-20 ",.02)
 ;;51079-0967-20