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

BGP44T15.m

Go to the documentation of this file.
BGP44T15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1201,55048-0394-90 ",.01)
 ;;55048-0394-90
 ;;9002226.02101,"1201,55048-0394-90 ",.02)
 ;;55048-0394-90
 ;;9002226.02101,"1201,55048-0395-30 ",.01)
 ;;55048-0395-30
 ;;9002226.02101,"1201,55048-0395-30 ",.02)
 ;;55048-0395-30
 ;;9002226.02101,"1201,55048-0449-30 ",.01)
 ;;55048-0449-30
 ;;9002226.02101,"1201,55048-0449-30 ",.02)
 ;;55048-0449-30
 ;;9002226.02101,"1201,55048-0470-30 ",.01)
 ;;55048-0470-30
 ;;9002226.02101,"1201,55048-0470-30 ",.02)
 ;;55048-0470-30
 ;;9002226.02101,"1201,55048-0596-30 ",.01)
 ;;55048-0596-30
 ;;9002226.02101,"1201,55048-0596-30 ",.02)
 ;;55048-0596-30
 ;;9002226.02101,"1201,55048-0597-30 ",.01)
 ;;55048-0597-30
 ;;9002226.02101,"1201,55048-0597-30 ",.02)
 ;;55048-0597-30
 ;;9002226.02101,"1201,55048-0598-30 ",.01)
 ;;55048-0598-30
 ;;9002226.02101,"1201,55048-0598-30 ",.02)
 ;;55048-0598-30
 ;;9002226.02101,"1201,55048-0647-30 ",.01)
 ;;55048-0647-30
 ;;9002226.02101,"1201,55048-0647-30 ",.02)
 ;;55048-0647-30
 ;;9002226.02101,"1201,55048-0648-30 ",.01)
 ;;55048-0648-30
 ;;9002226.02101,"1201,55048-0648-30 ",.02)
 ;;55048-0648-30
 ;;9002226.02101,"1201,55048-0774-30 ",.01)
 ;;55048-0774-30
 ;;9002226.02101,"1201,55048-0774-30 ",.02)
 ;;55048-0774-30
 ;;9002226.02101,"1201,55048-0774-90 ",.01)
 ;;55048-0774-90
 ;;9002226.02101,"1201,55048-0774-90 ",.02)
 ;;55048-0774-90
 ;;9002226.02101,"1201,55048-0775-30 ",.01)
 ;;55048-0775-30
 ;;9002226.02101,"1201,55048-0775-30 ",.02)
 ;;55048-0775-30
 ;;9002226.02101,"1201,55048-0775-90 ",.01)
 ;;55048-0775-90
 ;;9002226.02101,"1201,55048-0775-90 ",.02)
 ;;55048-0775-90
 ;;9002226.02101,"1201,55048-0776-30 ",.01)
 ;;55048-0776-30
 ;;9002226.02101,"1201,55048-0776-30 ",.02)
 ;;55048-0776-30
 ;;9002226.02101,"1201,55048-0776-90 ",.01)
 ;;55048-0776-90
 ;;9002226.02101,"1201,55048-0776-90 ",.02)
 ;;55048-0776-90
 ;;9002226.02101,"1201,55048-0821-30 ",.01)
 ;;55048-0821-30
 ;;9002226.02101,"1201,55048-0821-30 ",.02)
 ;;55048-0821-30
 ;;9002226.02101,"1201,55048-0822-30 ",.01)
 ;;55048-0822-30
 ;;9002226.02101,"1201,55048-0822-30 ",.02)
 ;;55048-0822-30
 ;;9002226.02101,"1201,55048-0823-30 ",.01)
 ;;55048-0823-30
 ;;9002226.02101,"1201,55048-0823-30 ",.02)
 ;;55048-0823-30
 ;;9002226.02101,"1201,55048-0864-30 ",.01)
 ;;55048-0864-30
 ;;9002226.02101,"1201,55048-0864-30 ",.02)
 ;;55048-0864-30
 ;;9002226.02101,"1201,55048-0865-30 ",.01)
 ;;55048-0865-30
 ;;9002226.02101,"1201,55048-0865-30 ",.02)
 ;;55048-0865-30
 ;;9002226.02101,"1201,55048-0866-30 ",.01)
 ;;55048-0866-30
 ;;9002226.02101,"1201,55048-0866-30 ",.02)
 ;;55048-0866-30
 ;;9002226.02101,"1201,55111-0121-05 ",.01)
 ;;55111-0121-05
 ;;9002226.02101,"1201,55111-0121-05 ",.02)
 ;;55111-0121-05
 ;;9002226.02101,"1201,55111-0121-90 ",.01)
 ;;55111-0121-90
 ;;9002226.02101,"1201,55111-0121-90 ",.02)
 ;;55111-0121-90
 ;;9002226.02101,"1201,55111-0122-05 ",.01)
 ;;55111-0122-05
 ;;9002226.02101,"1201,55111-0122-05 ",.02)
 ;;55111-0122-05
 ;;9002226.02101,"1201,55111-0122-90 ",.01)
 ;;55111-0122-90
 ;;9002226.02101,"1201,55111-0122-90 ",.02)
 ;;55111-0122-90
 ;;9002226.02101,"1201,55111-0123-05 ",.01)
 ;;55111-0123-05
 ;;9002226.02101,"1201,55111-0123-05 ",.02)
 ;;55111-0123-05
 ;;9002226.02101,"1201,55111-0123-90 ",.01)
 ;;55111-0123-90
 ;;9002226.02101,"1201,55111-0123-90 ",.02)
 ;;55111-0123-90
 ;;9002226.02101,"1201,55111-0124-05 ",.01)
 ;;55111-0124-05
 ;;9002226.02101,"1201,55111-0124-05 ",.02)
 ;;55111-0124-05
 ;;9002226.02101,"1201,55111-0124-90 ",.01)
 ;;55111-0124-90
 ;;9002226.02101,"1201,55111-0124-90 ",.02)
 ;;55111-0124-90
 ;;9002226.02101,"1201,55111-0197-05 ",.01)
 ;;55111-0197-05
 ;;9002226.02101,"1201,55111-0197-05 ",.02)
 ;;55111-0197-05
 ;;9002226.02101,"1201,55111-0197-30 ",.01)
 ;;55111-0197-30
 ;;9002226.02101,"1201,55111-0197-30 ",.02)
 ;;55111-0197-30
 ;;9002226.02101,"1201,55111-0197-90 ",.01)
 ;;55111-0197-90
 ;;9002226.02101,"1201,55111-0197-90 ",.02)
 ;;55111-0197-90
 ;;9002226.02101,"1201,55111-0198-05 ",.01)
 ;;55111-0198-05
 ;;9002226.02101,"1201,55111-0198-05 ",.02)
 ;;55111-0198-05
 ;;9002226.02101,"1201,55111-0198-30 ",.01)
 ;;55111-0198-30
 ;;9002226.02101,"1201,55111-0198-30 ",.02)
 ;;55111-0198-30
 ;;9002226.02101,"1201,55111-0198-90 ",.01)
 ;;55111-0198-90
 ;;9002226.02101,"1201,55111-0198-90 ",.02)
 ;;55111-0198-90
 ;;9002226.02101,"1201,55111-0199-05 ",.01)
 ;;55111-0199-05
 ;;9002226.02101,"1201,55111-0199-05 ",.02)
 ;;55111-0199-05
 ;;9002226.02101,"1201,55111-0199-10 ",.01)
 ;;55111-0199-10
 ;;9002226.02101,"1201,55111-0199-10 ",.02)
 ;;55111-0199-10
 ;;9002226.02101,"1201,55111-0199-30 ",.01)
 ;;55111-0199-30
 ;;9002226.02101,"1201,55111-0199-30 ",.02)
 ;;55111-0199-30
 ;;9002226.02101,"1201,55111-0199-90 ",.01)
 ;;55111-0199-90
 ;;9002226.02101,"1201,55111-0199-90 ",.02)
 ;;55111-0199-90
 ;;9002226.02101,"1201,55111-0200-05 ",.01)
 ;;55111-0200-05
 ;;9002226.02101,"1201,55111-0200-05 ",.02)
 ;;55111-0200-05
 ;;9002226.02101,"1201,55111-0200-10 ",.01)
 ;;55111-0200-10
 ;;9002226.02101,"1201,55111-0200-10 ",.02)
 ;;55111-0200-10
 ;;9002226.02101,"1201,55111-0200-30 ",.01)
 ;;55111-0200-30
 ;;9002226.02101,"1201,55111-0200-30 ",.02)
 ;;55111-0200-30
 ;;9002226.02101,"1201,55111-0200-90 ",.01)
 ;;55111-0200-90
 ;;9002226.02101,"1201,55111-0200-90 ",.02)
 ;;55111-0200-90
 ;;9002226.02101,"1201,55111-0229-05 ",.01)
 ;;55111-0229-05
 ;;9002226.02101,"1201,55111-0229-05 ",.02)
 ;;55111-0229-05
 ;;9002226.02101,"1201,55111-0229-90 ",.01)
 ;;55111-0229-90
 ;;9002226.02101,"1201,55111-0229-90 ",.02)
 ;;55111-0229-90
 ;;9002226.02101,"1201,55111-0230-05 ",.01)
 ;;55111-0230-05
 ;;9002226.02101,"1201,55111-0230-05 ",.02)
 ;;55111-0230-05
 ;;9002226.02101,"1201,55111-0230-90 ",.01)
 ;;55111-0230-90
 ;;9002226.02101,"1201,55111-0230-90 ",.02)
 ;;55111-0230-90
 ;;9002226.02101,"1201,55111-0231-05 ",.01)
 ;;55111-0231-05
 ;;9002226.02101,"1201,55111-0231-05 ",.02)
 ;;55111-0231-05
 ;;9002226.02101,"1201,55111-0231-90 ",.01)
 ;;55111-0231-90
 ;;9002226.02101,"1201,55111-0231-90 ",.02)
 ;;55111-0231-90
 ;;9002226.02101,"1201,55111-0268-05 ",.01)
 ;;55111-0268-05
 ;;9002226.02101,"1201,55111-0268-05 ",.02)
 ;;55111-0268-05
 ;;9002226.02101,"1201,55111-0268-30 ",.01)
 ;;55111-0268-30
 ;;9002226.02101,"1201,55111-0268-30 ",.02)
 ;;55111-0268-30
 ;;9002226.02101,"1201,55111-0268-90 ",.01)
 ;;55111-0268-90
 ;;9002226.02101,"1201,55111-0268-90 ",.02)
 ;;55111-0268-90
 ;;9002226.02101,"1201,55111-0274-05 ",.01)
 ;;55111-0274-05
 ;;9002226.02101,"1201,55111-0274-05 ",.02)
 ;;55111-0274-05
 ;;9002226.02101,"1201,55111-0274-90 ",.01)
 ;;55111-0274-90
 ;;9002226.02101,"1201,55111-0274-90 ",.02)
 ;;55111-0274-90
 ;;9002226.02101,"1201,55289-0280-30 ",.01)
 ;;55289-0280-30
 ;;9002226.02101,"1201,55289-0280-30 ",.02)
 ;;55289-0280-30
 ;;9002226.02101,"1201,55289-0293-14 ",.01)
 ;;55289-0293-14
 ;;9002226.02101,"1201,55289-0293-14 ",.02)
 ;;55289-0293-14
 ;;9002226.02101,"1201,55289-0293-30 ",.01)
 ;;55289-0293-30
 ;;9002226.02101,"1201,55289-0293-30 ",.02)
 ;;55289-0293-30
 ;;9002226.02101,"1201,55289-0293-90 ",.01)
 ;;55289-0293-90
 ;;9002226.02101,"1201,55289-0293-90 ",.02)
 ;;55289-0293-90
 ;;9002226.02101,"1201,55289-0338-14 ",.01)
 ;;55289-0338-14
 ;;9002226.02101,"1201,55289-0338-14 ",.02)
 ;;55289-0338-14
 ;;9002226.02101,"1201,55289-0338-30 ",.01)
 ;;55289-0338-30
 ;;9002226.02101,"1201,55289-0338-30 ",.02)
 ;;55289-0338-30
 ;;9002226.02101,"1201,55289-0338-90 ",.01)
 ;;55289-0338-90
 ;;9002226.02101,"1201,55289-0338-90 ",.02)
 ;;55289-0338-90
 ;;9002226.02101,"1201,55289-0395-30 ",.01)
 ;;55289-0395-30
 ;;9002226.02101,"1201,55289-0395-30 ",.02)
 ;;55289-0395-30
 ;;9002226.02101,"1201,55289-0395-90 ",.01)
 ;;55289-0395-90
 ;;9002226.02101,"1201,55289-0395-90 ",.02)
 ;;55289-0395-90
 ;;9002226.02101,"1201,55289-0400-30 ",.01)
 ;;55289-0400-30
 ;;9002226.02101,"1201,55289-0400-30 ",.02)
 ;;55289-0400-30
 ;;9002226.02101,"1201,55289-0520-30 ",.01)
 ;;55289-0520-30
 ;;9002226.02101,"1201,55289-0520-30 ",.02)
 ;;55289-0520-30
 ;;9002226.02101,"1201,55289-0548-30 ",.01)
 ;;55289-0548-30
 ;;9002226.02101,"1201,55289-0548-30 ",.02)
 ;;55289-0548-30
 ;;9002226.02101,"1201,55289-0692-14 ",.01)
 ;;55289-0692-14
 ;;9002226.02101,"1201,55289-0692-14 ",.02)
 ;;55289-0692-14
 ;;9002226.02101,"1201,55289-0692-30 ",.01)
 ;;55289-0692-30
 ;;9002226.02101,"1201,55289-0692-30 ",.02)
 ;;55289-0692-30
 ;;9002226.02101,"1201,55289-0800-30 ",.01)
 ;;55289-0800-30
 ;;9002226.02101,"1201,55289-0800-30 ",.02)
 ;;55289-0800-30
 ;;9002226.02101,"1201,55289-0861-30 ",.01)
 ;;55289-0861-30
 ;;9002226.02101,"1201,55289-0861-30 ",.02)
 ;;55289-0861-30
 ;;9002226.02101,"1201,55289-0870-30 ",.01)
 ;;55289-0870-30
 ;;9002226.02101,"1201,55289-0870-30 ",.02)
 ;;55289-0870-30
 ;;9002226.02101,"1201,55289-0871-30 ",.01)
 ;;55289-0871-30
 ;;9002226.02101,"1201,55289-0871-30 ",.02)
 ;;55289-0871-30
 ;;9002226.02101,"1201,55289-0873-30 ",.01)
 ;;55289-0873-30
 ;;9002226.02101,"1201,55289-0873-30 ",.02)
 ;;55289-0873-30
 ;;9002226.02101,"1201,55289-0874-30 ",.01)
 ;;55289-0874-30
 ;;9002226.02101,"1201,55289-0874-30 ",.02)
 ;;55289-0874-30
 ;;9002226.02101,"1201,55289-0881-30 ",.01)
 ;;55289-0881-30
 ;;9002226.02101,"1201,55289-0881-30 ",.02)
 ;;55289-0881-30
 ;;9002226.02101,"1201,55289-0932-30 ",.01)
 ;;55289-0932-30
 ;;9002226.02101,"1201,55289-0932-30 ",.02)
 ;;55289-0932-30
 ;;9002226.02101,"1201,55289-0935-30 ",.01)
 ;;55289-0935-30
 ;;9002226.02101,"1201,55289-0935-30 ",.02)
 ;;55289-0935-30
 ;;9002226.02101,"1201,55289-0980-21 ",.01)
 ;;55289-0980-21
 ;;9002226.02101,"1201,55289-0980-21 ",.02)
 ;;55289-0980-21
 ;;9002226.02101,"1201,58016-0006-00 ",.01)
 ;;58016-0006-00
 ;;9002226.02101,"1201,58016-0006-00 ",.02)
 ;;58016-0006-00
 ;;9002226.02101,"1201,58016-0006-30 ",.01)
 ;;58016-0006-30
 ;;9002226.02101,"1201,58016-0006-30 ",.02)
 ;;58016-0006-30
 ;;9002226.02101,"1201,58016-0006-60 ",.01)
 ;;58016-0006-60
 ;;9002226.02101,"1201,58016-0006-60 ",.02)
 ;;58016-0006-60
 ;;9002226.02101,"1201,58016-0006-90 ",.01)
 ;;58016-0006-90
 ;;9002226.02101,"1201,58016-0006-90 ",.02)
 ;;58016-0006-90
 ;;9002226.02101,"1201,58016-0007-00 ",.01)
 ;;58016-0007-00
 ;;9002226.02101,"1201,58016-0007-00 ",.02)
 ;;58016-0007-00
 ;;9002226.02101,"1201,58016-0007-30 ",.01)
 ;;58016-0007-30
 ;;9002226.02101,"1201,58016-0007-30 ",.02)
 ;;58016-0007-30
 ;;9002226.02101,"1201,58016-0007-60 ",.01)
 ;;58016-0007-60
 ;;9002226.02101,"1201,58016-0007-60 ",.02)
 ;;58016-0007-60
 ;;9002226.02101,"1201,58016-0007-90 ",.01)
 ;;58016-0007-90
 ;;9002226.02101,"1201,58016-0007-90 ",.02)
 ;;58016-0007-90
 ;;9002226.02101,"1201,58016-0008-00 ",.01)
 ;;58016-0008-00
 ;;9002226.02101,"1201,58016-0008-00 ",.02)
 ;;58016-0008-00
 ;;9002226.02101,"1201,58016-0008-30 ",.01)
 ;;58016-0008-30
 ;;9002226.02101,"1201,58016-0008-30 ",.02)
 ;;58016-0008-30
 ;;9002226.02101,"1201,58016-0008-60 ",.01)
 ;;58016-0008-60
 ;;9002226.02101,"1201,58016-0008-60 ",.02)
 ;;58016-0008-60
 ;;9002226.02101,"1201,58016-0008-90 ",.01)
 ;;58016-0008-90
 ;;9002226.02101,"1201,58016-0008-90 ",.02)
 ;;58016-0008-90
 ;;9002226.02101,"1201,58016-0012-00 ",.01)
 ;;58016-0012-00
 ;;9002226.02101,"1201,58016-0012-00 ",.02)
 ;;58016-0012-00
 ;;9002226.02101,"1201,58016-0012-30 ",.01)
 ;;58016-0012-30
 ;;9002226.02101,"1201,58016-0012-30 ",.02)
 ;;58016-0012-30
 ;;9002226.02101,"1201,58016-0012-60 ",.01)
 ;;58016-0012-60
 ;;9002226.02101,"1201,58016-0012-60 ",.02)
 ;;58016-0012-60
 ;;9002226.02101,"1201,58016-0012-90 ",.01)
 ;;58016-0012-90
 ;;9002226.02101,"1201,58016-0012-90 ",.02)
 ;;58016-0012-90
 ;;9002226.02101,"1201,58016-0013-00 ",.01)
 ;;58016-0013-00
 ;;9002226.02101,"1201,58016-0013-00 ",.02)
 ;;58016-0013-00
 ;;9002226.02101,"1201,58016-0013-30 ",.01)
 ;;58016-0013-30
 ;;9002226.02101,"1201,58016-0013-30 ",.02)
 ;;58016-0013-30
 ;;9002226.02101,"1201,58016-0013-60 ",.01)
 ;;58016-0013-60
 ;;9002226.02101,"1201,58016-0013-60 ",.02)
 ;;58016-0013-60
 ;;9002226.02101,"1201,58016-0013-90 ",.01)
 ;;58016-0013-90
 ;;9002226.02101,"1201,58016-0013-90 ",.02)
 ;;58016-0013-90
 ;;9002226.02101,"1201,58016-0037-00 ",.01)
 ;;58016-0037-00
 ;;9002226.02101,"1201,58016-0037-00 ",.02)
 ;;58016-0037-00
 ;;9002226.02101,"1201,58016-0037-30 ",.01)
 ;;58016-0037-30
 ;;9002226.02101,"1201,58016-0037-30 ",.02)
 ;;58016-0037-30
 ;;9002226.02101,"1201,58016-0037-60 ",.01)
 ;;58016-0037-60
 ;;9002226.02101,"1201,58016-0037-60 ",.02)
 ;;58016-0037-60
 ;;9002226.02101,"1201,58016-0037-90 ",.01)
 ;;58016-0037-90
 ;;9002226.02101,"1201,58016-0037-90 ",.02)
 ;;58016-0037-90
 ;;9002226.02101,"1201,58016-0051-00 ",.01)
 ;;58016-0051-00
 ;;9002226.02101,"1201,58016-0051-00 ",.02)
 ;;58016-0051-00
 ;;9002226.02101,"1201,58016-0051-30 ",.01)
 ;;58016-0051-30
 ;;9002226.02101,"1201,58016-0051-30 ",.02)
 ;;58016-0051-30
 ;;9002226.02101,"1201,58016-0051-60 ",.01)
 ;;58016-0051-60
 ;;9002226.02101,"1201,58016-0051-60 ",.02)
 ;;58016-0051-60
 ;;9002226.02101,"1201,58016-0051-90 ",.01)
 ;;58016-0051-90
 ;;9002226.02101,"1201,58016-0051-90 ",.02)
 ;;58016-0051-90
 ;;9002226.02101,"1201,58016-0052-00 ",.01)
 ;;58016-0052-00
 ;;9002226.02101,"1201,58016-0052-00 ",.02)
 ;;58016-0052-00
 ;;9002226.02101,"1201,58016-0052-30 ",.01)
 ;;58016-0052-30
 ;;9002226.02101,"1201,58016-0052-30 ",.02)
 ;;58016-0052-30
 ;;9002226.02101,"1201,58016-0052-60 ",.01)
 ;;58016-0052-60
 ;;9002226.02101,"1201,58016-0052-60 ",.02)
 ;;58016-0052-60
 ;;9002226.02101,"1201,58016-0052-90 ",.01)
 ;;58016-0052-90