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

BGP06D22.m

Go to the documentation of this file.
BGP06D22 ;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,63874-0304-12 ",.01)
 ;;63874-0304-12
 ;;9002226.02101,"978,63874-0304-12 ",.02)
 ;;63874-0304-12
 ;;9002226.02101,"978,63874-0304-14 ",.01)
 ;;63874-0304-14
 ;;9002226.02101,"978,63874-0304-14 ",.02)
 ;;63874-0304-14
 ;;9002226.02101,"978,63874-0304-15 ",.01)
 ;;63874-0304-15
 ;;9002226.02101,"978,63874-0304-15 ",.02)
 ;;63874-0304-15
 ;;9002226.02101,"978,63874-0304-20 ",.01)
 ;;63874-0304-20
 ;;9002226.02101,"978,63874-0304-20 ",.02)
 ;;63874-0304-20
 ;;9002226.02101,"978,63874-0304-25 ",.01)
 ;;63874-0304-25
 ;;9002226.02101,"978,63874-0304-25 ",.02)
 ;;63874-0304-25
 ;;9002226.02101,"978,63874-0304-28 ",.01)
 ;;63874-0304-28
 ;;9002226.02101,"978,63874-0304-28 ",.02)
 ;;63874-0304-28
 ;;9002226.02101,"978,63874-0304-30 ",.01)
 ;;63874-0304-30
 ;;9002226.02101,"978,63874-0304-30 ",.02)
 ;;63874-0304-30
 ;;9002226.02101,"978,63874-0304-40 ",.01)
 ;;63874-0304-40
 ;;9002226.02101,"978,63874-0304-40 ",.02)
 ;;63874-0304-40
 ;;9002226.02101,"978,63874-0304-45 ",.01)
 ;;63874-0304-45
 ;;9002226.02101,"978,63874-0304-45 ",.02)
 ;;63874-0304-45
 ;;9002226.02101,"978,63874-0304-60 ",.01)
 ;;63874-0304-60
 ;;9002226.02101,"978,63874-0304-60 ",.02)
 ;;63874-0304-60
 ;;9002226.02101,"978,63874-0304-90 ",.01)
 ;;63874-0304-90
 ;;9002226.02101,"978,63874-0304-90 ",.02)
 ;;63874-0304-90
 ;;9002226.02101,"978,63874-0305-60 ",.01)
 ;;63874-0305-60
 ;;9002226.02101,"978,63874-0305-60 ",.02)
 ;;63874-0305-60
 ;;9002226.02101,"978,63874-0370-12 ",.01)
 ;;63874-0370-12
 ;;9002226.02101,"978,63874-0370-12 ",.02)
 ;;63874-0370-12
 ;;9002226.02101,"978,63874-0370-20 ",.01)
 ;;63874-0370-20
 ;;9002226.02101,"978,63874-0370-20 ",.02)
 ;;63874-0370-20
 ;;9002226.02101,"978,63874-0370-30 ",.01)
 ;;63874-0370-30
 ;;9002226.02101,"978,63874-0370-30 ",.02)
 ;;63874-0370-30
 ;;9002226.02101,"978,63874-0442-02 ",.01)
 ;;63874-0442-02
 ;;9002226.02101,"978,63874-0442-02 ",.02)
 ;;63874-0442-02
 ;;9002226.02101,"978,63874-0442-03 ",.01)
 ;;63874-0442-03
 ;;9002226.02101,"978,63874-0442-03 ",.02)
 ;;63874-0442-03
 ;;9002226.02101,"978,63874-0442-04 ",.01)
 ;;63874-0442-04
 ;;9002226.02101,"978,63874-0442-04 ",.02)
 ;;63874-0442-04
 ;;9002226.02101,"978,63874-0442-05 ",.01)
 ;;63874-0442-05
 ;;9002226.02101,"978,63874-0442-05 ",.02)
 ;;63874-0442-05
 ;;9002226.02101,"978,63874-0442-09 ",.01)
 ;;63874-0442-09
 ;;9002226.02101,"978,63874-0442-09 ",.02)
 ;;63874-0442-09
 ;;9002226.02101,"978,63874-0442-10 ",.01)
 ;;63874-0442-10
 ;;9002226.02101,"978,63874-0442-10 ",.02)
 ;;63874-0442-10
 ;;9002226.02101,"978,63874-0442-14 ",.01)
 ;;63874-0442-14
 ;;9002226.02101,"978,63874-0442-14 ",.02)
 ;;63874-0442-14
 ;;9002226.02101,"978,63874-0442-15 ",.01)
 ;;63874-0442-15
 ;;9002226.02101,"978,63874-0442-15 ",.02)
 ;;63874-0442-15
 ;;9002226.02101,"978,63874-0442-20 ",.01)
 ;;63874-0442-20
 ;;9002226.02101,"978,63874-0442-20 ",.02)
 ;;63874-0442-20
 ;;9002226.02101,"978,63874-0442-25 ",.01)
 ;;63874-0442-25
 ;;9002226.02101,"978,63874-0442-25 ",.02)
 ;;63874-0442-25
 ;;9002226.02101,"978,63874-0442-28 ",.01)
 ;;63874-0442-28
 ;;9002226.02101,"978,63874-0442-28 ",.02)
 ;;63874-0442-28
 ;;9002226.02101,"978,63874-0442-30 ",.01)
 ;;63874-0442-30
 ;;9002226.02101,"978,63874-0442-30 ",.02)
 ;;63874-0442-30
 ;;9002226.02101,"978,63874-0442-40 ",.01)
 ;;63874-0442-40
 ;;9002226.02101,"978,63874-0442-40 ",.02)
 ;;63874-0442-40
 ;;9002226.02101,"978,63874-0442-45 ",.01)
 ;;63874-0442-45
 ;;9002226.02101,"978,63874-0442-45 ",.02)
 ;;63874-0442-45
 ;;9002226.02101,"978,63874-0442-60 ",.01)
 ;;63874-0442-60
 ;;9002226.02101,"978,63874-0442-60 ",.02)
 ;;63874-0442-60
 ;;9002226.02101,"978,63874-0442-90 ",.01)
 ;;63874-0442-90
 ;;9002226.02101,"978,63874-0442-90 ",.02)
 ;;63874-0442-90
 ;;9002226.02101,"978,63874-0707-12 ",.01)
 ;;63874-0707-12
 ;;9002226.02101,"978,63874-0707-12 ",.02)
 ;;63874-0707-12
 ;;9002226.02101,"978,63874-0707-48 ",.01)
 ;;63874-0707-48
 ;;9002226.02101,"978,63874-0707-48 ",.02)
 ;;63874-0707-48
 ;;9002226.02101,"978,63874-0711-12 ",.01)
 ;;63874-0711-12
 ;;9002226.02101,"978,63874-0711-12 ",.02)
 ;;63874-0711-12
 ;;9002226.02101,"978,63874-0712-12 ",.01)
 ;;63874-0712-12
 ;;9002226.02101,"978,63874-0712-12 ",.02)
 ;;63874-0712-12
 ;;9002226.02101,"978,63874-0718-12 ",.01)
 ;;63874-0718-12
 ;;9002226.02101,"978,63874-0718-12 ",.02)
 ;;63874-0718-12
 ;;9002226.02101,"978,63874-0757-01 ",.01)
 ;;63874-0757-01
 ;;9002226.02101,"978,63874-0757-01 ",.02)
 ;;63874-0757-01
 ;;9002226.02101,"978,63874-0757-04 ",.01)
 ;;63874-0757-04
 ;;9002226.02101,"978,63874-0757-04 ",.02)
 ;;63874-0757-04
 ;;9002226.02101,"978,63874-0757-10 ",.01)
 ;;63874-0757-10
 ;;9002226.02101,"978,63874-0757-10 ",.02)
 ;;63874-0757-10
 ;;9002226.02101,"978,63874-0757-15 ",.01)
 ;;63874-0757-15
 ;;9002226.02101,"978,63874-0757-15 ",.02)
 ;;63874-0757-15
 ;;9002226.02101,"978,63874-0757-20 ",.01)
 ;;63874-0757-20
 ;;9002226.02101,"978,63874-0757-20 ",.02)
 ;;63874-0757-20
 ;;9002226.02101,"978,63874-0757-21 ",.01)
 ;;63874-0757-21
 ;;9002226.02101,"978,63874-0757-21 ",.02)
 ;;63874-0757-21
 ;;9002226.02101,"978,63874-0757-24 ",.01)
 ;;63874-0757-24
 ;;9002226.02101,"978,63874-0757-24 ",.02)
 ;;63874-0757-24
 ;;9002226.02101,"978,63874-0757-28 ",.01)
 ;;63874-0757-28
 ;;9002226.02101,"978,63874-0757-28 ",.02)
 ;;63874-0757-28
 ;;9002226.02101,"978,63874-0757-30 ",.01)
 ;;63874-0757-30
 ;;9002226.02101,"978,63874-0757-30 ",.02)
 ;;63874-0757-30
 ;;9002226.02101,"978,63874-0757-60 ",.01)
 ;;63874-0757-60
 ;;9002226.02101,"978,63874-0757-60 ",.02)
 ;;63874-0757-60
 ;;9002226.02101,"978,63874-0757-90 ",.01)
 ;;63874-0757-90
 ;;9002226.02101,"978,63874-0757-90 ",.02)
 ;;63874-0757-90
 ;;9002226.02101,"978,64980-0123-01 ",.01)
 ;;64980-0123-01
 ;;9002226.02101,"978,64980-0123-01 ",.02)
 ;;64980-0123-01
 ;;9002226.02101,"978,64980-0123-10 ",.01)
 ;;64980-0123-10
 ;;9002226.02101,"978,64980-0123-10 ",.02)
 ;;64980-0123-10
 ;;9002226.02101,"978,64980-0504-48 ",.01)
 ;;64980-0504-48
 ;;9002226.02101,"978,64980-0504-48 ",.02)
 ;;64980-0504-48
 ;;9002226.02101,"978,65162-0156-10 ",.01)
 ;;65162-0156-10
 ;;9002226.02101,"978,65162-0156-10 ",.02)
 ;;65162-0156-10
 ;;9002226.02101,"978,65162-0156-11 ",.01)
 ;;65162-0156-11
 ;;9002226.02101,"978,65162-0156-11 ",.02)
 ;;65162-0156-11
 ;;9002226.02101,"978,65162-0516-10 ",.01)
 ;;65162-0516-10
 ;;9002226.02101,"978,65162-0516-10 ",.02)
 ;;65162-0516-10
 ;;9002226.02101,"978,65162-0516-11 ",.01)
 ;;65162-0516-11
 ;;9002226.02101,"978,65162-0516-11 ",.02)
 ;;65162-0516-11
 ;;9002226.02101,"978,65162-0518-10 ",.01)
 ;;65162-0518-10
 ;;9002226.02101,"978,65162-0518-10 ",.02)
 ;;65162-0518-10
 ;;9002226.02101,"978,65162-0518-11 ",.01)
 ;;65162-0518-11
 ;;9002226.02101,"978,65162-0518-11 ",.02)
 ;;65162-0518-11
 ;;9002226.02101,"978,65162-0608-24 ",.01)
 ;;65162-0608-24
 ;;9002226.02101,"978,65162-0608-24 ",.02)
 ;;65162-0608-24
 ;;9002226.02101,"978,65224-0545-01 ",.01)
 ;;65224-0545-01
 ;;9002226.02101,"978,65224-0545-01 ",.02)
 ;;65224-0545-01
 ;;9002226.02101,"978,66267-0080-15 ",.01)
 ;;66267-0080-15
 ;;9002226.02101,"978,66267-0080-15 ",.02)
 ;;66267-0080-15
 ;;9002226.02101,"978,66267-0080-20 ",.01)
 ;;66267-0080-20
 ;;9002226.02101,"978,66267-0080-20 ",.02)
 ;;66267-0080-20
 ;;9002226.02101,"978,66267-0080-30 ",.01)
 ;;66267-0080-30
 ;;9002226.02101,"978,66267-0080-30 ",.02)
 ;;66267-0080-30
 ;;9002226.02101,"978,66267-0080-60 ",.01)
 ;;66267-0080-60
 ;;9002226.02101,"978,66267-0080-60 ",.02)
 ;;66267-0080-60
 ;;9002226.02101,"978,66267-0081-15 ",.01)
 ;;66267-0081-15
 ;;9002226.02101,"978,66267-0081-15 ",.02)
 ;;66267-0081-15
 ;;9002226.02101,"978,66267-0081-20 ",.01)
 ;;66267-0081-20
 ;;9002226.02101,"978,66267-0081-20 ",.02)
 ;;66267-0081-20
 ;;9002226.02101,"978,66267-0081-30 ",.01)
 ;;66267-0081-30
 ;;9002226.02101,"978,66267-0081-30 ",.02)
 ;;66267-0081-30
 ;;9002226.02101,"978,66267-0081-60 ",.01)
 ;;66267-0081-60
 ;;9002226.02101,"978,66267-0081-60 ",.02)
 ;;66267-0081-60
 ;;9002226.02101,"978,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"978,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"978,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"978,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"978,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"978,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"978,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"978,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"978,66267-0813-04 ",.01)
 ;;66267-0813-04
 ;;9002226.02101,"978,66267-0813-04 ",.02)
 ;;66267-0813-04
 ;;9002226.02101,"978,66267-0977-04 ",.01)
 ;;66267-0977-04
 ;;9002226.02101,"978,66267-0977-04 ",.02)
 ;;66267-0977-04
 ;;9002226.02101,"978,66336-0045-06 ",.01)
 ;;66336-0045-06
 ;;9002226.02101,"978,66336-0045-06 ",.02)
 ;;66336-0045-06
 ;;9002226.02101,"978,66336-0045-15 ",.01)
 ;;66336-0045-15
 ;;9002226.02101,"978,66336-0045-15 ",.02)
 ;;66336-0045-15
 ;;9002226.02101,"978,66336-0045-30 ",.01)
 ;;66336-0045-30
 ;;9002226.02101,"978,66336-0045-30 ",.02)
 ;;66336-0045-30
 ;;9002226.02101,"978,66336-0045-60 ",.01)
 ;;66336-0045-60
 ;;9002226.02101,"978,66336-0045-60 ",.02)
 ;;66336-0045-60
 ;;9002226.02101,"978,66336-0085-10 ",.01)
 ;;66336-0085-10
 ;;9002226.02101,"978,66336-0085-10 ",.02)
 ;;66336-0085-10
 ;;9002226.02101,"978,66336-0085-12 ",.01)
 ;;66336-0085-12
 ;;9002226.02101,"978,66336-0085-12 ",.02)
 ;;66336-0085-12
 ;;9002226.02101,"978,66336-0085-30 ",.01)
 ;;66336-0085-30
 ;;9002226.02101,"978,66336-0085-30 ",.02)
 ;;66336-0085-30
 ;;9002226.02101,"978,66336-0086-15 ",.01)
 ;;66336-0086-15
 ;;9002226.02101,"978,66336-0086-15 ",.02)
 ;;66336-0086-15
 ;;9002226.02101,"978,66336-0086-20 ",.01)
 ;;66336-0086-20
 ;;9002226.02101,"978,66336-0086-20 ",.02)
 ;;66336-0086-20
 ;;9002226.02101,"978,66336-0086-30 ",.01)
 ;;66336-0086-30
 ;;9002226.02101,"978,66336-0086-30 ",.02)
 ;;66336-0086-30
 ;;9002226.02101,"978,66336-0208-20 ",.01)
 ;;66336-0208-20
 ;;9002226.02101,"978,66336-0208-20 ",.02)
 ;;66336-0208-20
 ;;9002226.02101,"978,66336-0208-30 ",.01)
 ;;66336-0208-30
 ;;9002226.02101,"978,66336-0208-30 ",.02)
 ;;66336-0208-30
 ;;9002226.02101,"978,66336-0589-15 ",.01)
 ;;66336-0589-15
 ;;9002226.02101,"978,66336-0589-15 ",.02)
 ;;66336-0589-15
 ;;9002226.02101,"978,66336-0589-20 ",.01)
 ;;66336-0589-20
 ;;9002226.02101,"978,66336-0589-20 ",.02)
 ;;66336-0589-20
 ;;9002226.02101,"978,66336-0589-30 ",.01)
 ;;66336-0589-30
 ;;9002226.02101,"978,66336-0589-30 ",.02)
 ;;66336-0589-30
 ;;9002226.02101,"978,66336-0589-60 ",.01)
 ;;66336-0589-60
 ;;9002226.02101,"978,66336-0589-60 ",.02)
 ;;66336-0589-60
 ;;9002226.02101,"978,66336-0795-15 ",.01)
 ;;66336-0795-15
 ;;9002226.02101,"978,66336-0795-15 ",.02)
 ;;66336-0795-15
 ;;9002226.02101,"978,66336-0796-30 ",.01)
 ;;66336-0796-30
 ;;9002226.02101,"978,66336-0796-30 ",.02)
 ;;66336-0796-30
 ;;9002226.02101,"978,66346-0121-65 ",.01)
 ;;66346-0121-65
 ;;9002226.02101,"978,66346-0121-65 ",.02)
 ;;66346-0121-65
 ;;9002226.02101,"978,66346-0191-65 ",.01)
 ;;66346-0191-65
 ;;9002226.02101,"978,66346-0191-65 ",.02)
 ;;66346-0191-65
 ;;9002226.02101,"978,66375-0107-02 ",.01)
 ;;66375-0107-02
 ;;9002226.02101,"978,66375-0107-02 ",.02)
 ;;66375-0107-02
 ;;9002226.02101,"978,66375-0108-02 ",.01)
 ;;66375-0108-02
 ;;9002226.02101,"978,66375-0108-02 ",.02)
 ;;66375-0108-02
 ;;9002226.02101,"978,66424-0020-01 ",.01)
 ;;66424-0020-01
 ;;9002226.02101,"978,66424-0020-01 ",.02)
 ;;66424-0020-01
 ;;9002226.02101,"978,66424-0020-10 ",.01)
 ;;66424-0020-10
 ;;9002226.02101,"978,66424-0020-10 ",.02)
 ;;66424-0020-10
 ;;9002226.02101,"978,66424-0021-01 ",.01)
 ;;66424-0021-01
 ;;9002226.02101,"978,66424-0021-01 ",.02)
 ;;66424-0021-01
 ;;9002226.02101,"978,66424-0021-10 ",.01)
 ;;66424-0021-10
 ;;9002226.02101,"978,66424-0021-10 ",.02)
 ;;66424-0021-10
 ;;9002226.02101,"978,66553-0010-01 ",.01)
 ;;66553-0010-01
 ;;9002226.02101,"978,66553-0010-01 ",.02)
 ;;66553-0010-01
 ;;9002226.02101,"978,66869-0107-10 ",.01)
 ;;66869-0107-10
 ;;9002226.02101,"978,66869-0107-10 ",.02)
 ;;66869-0107-10
 ;;9002226.02101,"978,66869-0154-10 ",.01)
 ;;66869-0154-10
 ;;9002226.02101,"978,66869-0154-10 ",.02)
 ;;66869-0154-10
 ;;9002226.02101,"978,66869-0407-10 ",.01)
 ;;66869-0407-10
 ;;9002226.02101,"978,66869-0407-10 ",.02)
 ;;66869-0407-10
 ;;9002226.02101,"978,66869-0426-10 ",.01)
 ;;66869-0426-10
 ;;9002226.02101,"978,66869-0426-10 ",.02)
 ;;66869-0426-10
 ;;9002226.02101,"978,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"978,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;9002226.02101,"978,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"978,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"978,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"978,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"978,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"978,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"978,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"978,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"978,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"978,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"978,68025-0032-16 ",.01)
 ;;68025-0032-16
 ;;9002226.02101,"978,68025-0032-16 ",.02)
 ;;68025-0032-16
 ;;9002226.02101,"978,68032-0189-60 ",.01)
 ;;68032-0189-60
 ;;9002226.02101,"978,68032-0189-60 ",.02)
 ;;68032-0189-60