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

BGP14C14.m

Go to the documentation of this file.
BGP14C14 ; 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,"1105,55289-0338-30 ",.01)
 ;;55289-0338-30
 ;;9002226.02101,"1105,55289-0338-30 ",.02)
 ;;55289-0338-30
 ;;9002226.02101,"1105,55289-0338-90 ",.01)
 ;;55289-0338-90
 ;;9002226.02101,"1105,55289-0338-90 ",.02)
 ;;55289-0338-90
 ;;9002226.02101,"1105,55289-0395-30 ",.01)
 ;;55289-0395-30
 ;;9002226.02101,"1105,55289-0395-30 ",.02)
 ;;55289-0395-30
 ;;9002226.02101,"1105,55289-0395-90 ",.01)
 ;;55289-0395-90
 ;;9002226.02101,"1105,55289-0395-90 ",.02)
 ;;55289-0395-90
 ;;9002226.02101,"1105,55289-0400-30 ",.01)
 ;;55289-0400-30
 ;;9002226.02101,"1105,55289-0400-30 ",.02)
 ;;55289-0400-30
 ;;9002226.02101,"1105,55289-0476-30 ",.01)
 ;;55289-0476-30
 ;;9002226.02101,"1105,55289-0476-30 ",.02)
 ;;55289-0476-30
 ;;9002226.02101,"1105,55289-0520-30 ",.01)
 ;;55289-0520-30
 ;;9002226.02101,"1105,55289-0520-30 ",.02)
 ;;55289-0520-30
 ;;9002226.02101,"1105,55289-0548-30 ",.01)
 ;;55289-0548-30
 ;;9002226.02101,"1105,55289-0548-30 ",.02)
 ;;55289-0548-30
 ;;9002226.02101,"1105,55289-0692-14 ",.01)
 ;;55289-0692-14
 ;;9002226.02101,"1105,55289-0692-14 ",.02)
 ;;55289-0692-14
 ;;9002226.02101,"1105,55289-0692-30 ",.01)
 ;;55289-0692-30
 ;;9002226.02101,"1105,55289-0692-30 ",.02)
 ;;55289-0692-30
 ;;9002226.02101,"1105,55289-0740-60 ",.01)
 ;;55289-0740-60
 ;;9002226.02101,"1105,55289-0740-60 ",.02)
 ;;55289-0740-60
 ;;9002226.02101,"1105,55289-0800-30 ",.01)
 ;;55289-0800-30
 ;;9002226.02101,"1105,55289-0800-30 ",.02)
 ;;55289-0800-30
 ;;9002226.02101,"1105,55289-0861-30 ",.01)
 ;;55289-0861-30
 ;;9002226.02101,"1105,55289-0861-30 ",.02)
 ;;55289-0861-30
 ;;9002226.02101,"1105,55289-0870-30 ",.01)
 ;;55289-0870-30
 ;;9002226.02101,"1105,55289-0870-30 ",.02)
 ;;55289-0870-30
 ;;9002226.02101,"1105,55289-0871-30 ",.01)
 ;;55289-0871-30
 ;;9002226.02101,"1105,55289-0871-30 ",.02)
 ;;55289-0871-30
 ;;9002226.02101,"1105,55289-0873-30 ",.01)
 ;;55289-0873-30
 ;;9002226.02101,"1105,55289-0873-30 ",.02)
 ;;55289-0873-30
 ;;9002226.02101,"1105,55289-0874-30 ",.01)
 ;;55289-0874-30
 ;;9002226.02101,"1105,55289-0874-30 ",.02)
 ;;55289-0874-30
 ;;9002226.02101,"1105,55289-0881-30 ",.01)
 ;;55289-0881-30
 ;;9002226.02101,"1105,55289-0881-30 ",.02)
 ;;55289-0881-30
 ;;9002226.02101,"1105,55289-0932-30 ",.01)
 ;;55289-0932-30
 ;;9002226.02101,"1105,55289-0932-30 ",.02)
 ;;55289-0932-30
 ;;9002226.02101,"1105,55289-0935-30 ",.01)
 ;;55289-0935-30
 ;;9002226.02101,"1105,55289-0935-30 ",.02)
 ;;55289-0935-30
 ;;9002226.02101,"1105,55289-0980-21 ",.01)
 ;;55289-0980-21
 ;;9002226.02101,"1105,55289-0980-21 ",.02)
 ;;55289-0980-21
 ;;9002226.02101,"1105,55887-0192-90 ",.01)
 ;;55887-0192-90
 ;;9002226.02101,"1105,55887-0192-90 ",.02)
 ;;55887-0192-90
 ;;9002226.02101,"1105,55887-0203-30 ",.01)
 ;;55887-0203-30
 ;;9002226.02101,"1105,55887-0203-30 ",.02)
 ;;55887-0203-30
 ;;9002226.02101,"1105,55887-0203-90 ",.01)
 ;;55887-0203-90
 ;;9002226.02101,"1105,55887-0203-90 ",.02)
 ;;55887-0203-90
 ;;9002226.02101,"1105,55887-0350-30 ",.01)
 ;;55887-0350-30
 ;;9002226.02101,"1105,55887-0350-30 ",.02)
 ;;55887-0350-30
 ;;9002226.02101,"1105,55887-0350-60 ",.01)
 ;;55887-0350-60
 ;;9002226.02101,"1105,55887-0350-60 ",.02)
 ;;55887-0350-60
 ;;9002226.02101,"1105,55887-0350-90 ",.01)
 ;;55887-0350-90
 ;;9002226.02101,"1105,55887-0350-90 ",.02)
 ;;55887-0350-90
 ;;9002226.02101,"1105,55887-0369-30 ",.01)
 ;;55887-0369-30
 ;;9002226.02101,"1105,55887-0369-30 ",.02)
 ;;55887-0369-30
 ;;9002226.02101,"1105,55887-0369-60 ",.01)
 ;;55887-0369-60
 ;;9002226.02101,"1105,55887-0369-60 ",.02)
 ;;55887-0369-60
 ;;9002226.02101,"1105,55887-0369-90 ",.01)
 ;;55887-0369-90
 ;;9002226.02101,"1105,55887-0369-90 ",.02)
 ;;55887-0369-90
 ;;9002226.02101,"1105,55887-0624-20 ",.01)
 ;;55887-0624-20
 ;;9002226.02101,"1105,55887-0624-20 ",.02)
 ;;55887-0624-20
 ;;9002226.02101,"1105,55887-0624-30 ",.01)
 ;;55887-0624-30
 ;;9002226.02101,"1105,55887-0624-30 ",.02)
 ;;55887-0624-30
 ;;9002226.02101,"1105,55887-0624-40 ",.01)
 ;;55887-0624-40
 ;;9002226.02101,"1105,55887-0624-40 ",.02)
 ;;55887-0624-40
 ;;9002226.02101,"1105,55887-0624-60 ",.01)
 ;;55887-0624-60
 ;;9002226.02101,"1105,55887-0624-60 ",.02)
 ;;55887-0624-60
 ;;9002226.02101,"1105,55887-0624-82 ",.01)
 ;;55887-0624-82
 ;;9002226.02101,"1105,55887-0624-82 ",.02)
 ;;55887-0624-82
 ;;9002226.02101,"1105,55887-0624-90 ",.01)
 ;;55887-0624-90
 ;;9002226.02101,"1105,55887-0624-90 ",.02)
 ;;55887-0624-90
 ;;9002226.02101,"1105,55887-0858-10 ",.01)
 ;;55887-0858-10
 ;;9002226.02101,"1105,55887-0858-10 ",.02)
 ;;55887-0858-10
 ;;9002226.02101,"1105,55887-0858-30 ",.01)
 ;;55887-0858-30
 ;;9002226.02101,"1105,55887-0858-30 ",.02)
 ;;55887-0858-30
 ;;9002226.02101,"1105,55887-0858-60 ",.01)
 ;;55887-0858-60
 ;;9002226.02101,"1105,55887-0858-60 ",.02)
 ;;55887-0858-60
 ;;9002226.02101,"1105,55887-0858-90 ",.01)
 ;;55887-0858-90
 ;;9002226.02101,"1105,55887-0858-90 ",.02)
 ;;55887-0858-90
 ;;9002226.02101,"1105,55887-0929-90 ",.01)
 ;;55887-0929-90
 ;;9002226.02101,"1105,55887-0929-90 ",.02)
 ;;55887-0929-90
 ;;9002226.02101,"1105,55887-0974-30 ",.01)
 ;;55887-0974-30
 ;;9002226.02101,"1105,55887-0974-30 ",.02)
 ;;55887-0974-30
 ;;9002226.02101,"1105,57866-3932-01 ",.01)
 ;;57866-3932-01
 ;;9002226.02101,"1105,57866-3932-01 ",.02)
 ;;57866-3932-01
 ;;9002226.02101,"1105,57866-6400-01 ",.01)
 ;;57866-6400-01
 ;;9002226.02101,"1105,57866-6400-01 ",.02)
 ;;57866-6400-01
 ;;9002226.02101,"1105,57866-6500-01 ",.01)
 ;;57866-6500-01
 ;;9002226.02101,"1105,57866-6500-01 ",.02)
 ;;57866-6500-01
 ;;9002226.02101,"1105,57866-6601-01 ",.01)
 ;;57866-6601-01
 ;;9002226.02101,"1105,57866-6601-01 ",.02)
 ;;57866-6601-01
 ;;9002226.02101,"1105,57866-7982-01 ",.01)
 ;;57866-7982-01
 ;;9002226.02101,"1105,57866-7982-01 ",.02)
 ;;57866-7982-01
 ;;9002226.02101,"1105,57866-7983-01 ",.01)
 ;;57866-7983-01
 ;;9002226.02101,"1105,57866-7983-01 ",.02)
 ;;57866-7983-01
 ;;9002226.02101,"1105,57866-7986-01 ",.01)
 ;;57866-7986-01
 ;;9002226.02101,"1105,57866-7986-01 ",.02)
 ;;57866-7986-01
 ;;9002226.02101,"1105,57866-8615-01 ",.01)
 ;;57866-8615-01
 ;;9002226.02101,"1105,57866-8615-01 ",.02)
 ;;57866-8615-01
 ;;9002226.02101,"1105,58016-0006-00 ",.01)
 ;;58016-0006-00
 ;;9002226.02101,"1105,58016-0006-00 ",.02)
 ;;58016-0006-00
 ;;9002226.02101,"1105,58016-0006-30 ",.01)
 ;;58016-0006-30
 ;;9002226.02101,"1105,58016-0006-30 ",.02)
 ;;58016-0006-30
 ;;9002226.02101,"1105,58016-0006-60 ",.01)
 ;;58016-0006-60
 ;;9002226.02101,"1105,58016-0006-60 ",.02)
 ;;58016-0006-60
 ;;9002226.02101,"1105,58016-0006-90 ",.01)
 ;;58016-0006-90
 ;;9002226.02101,"1105,58016-0006-90 ",.02)
 ;;58016-0006-90
 ;;9002226.02101,"1105,58016-0007-00 ",.01)
 ;;58016-0007-00
 ;;9002226.02101,"1105,58016-0007-00 ",.02)
 ;;58016-0007-00
 ;;9002226.02101,"1105,58016-0007-30 ",.01)
 ;;58016-0007-30
 ;;9002226.02101,"1105,58016-0007-30 ",.02)
 ;;58016-0007-30
 ;;9002226.02101,"1105,58016-0007-60 ",.01)
 ;;58016-0007-60
 ;;9002226.02101,"1105,58016-0007-60 ",.02)
 ;;58016-0007-60
 ;;9002226.02101,"1105,58016-0007-90 ",.01)
 ;;58016-0007-90
 ;;9002226.02101,"1105,58016-0007-90 ",.02)
 ;;58016-0007-90
 ;;9002226.02101,"1105,58016-0008-00 ",.01)
 ;;58016-0008-00
 ;;9002226.02101,"1105,58016-0008-00 ",.02)
 ;;58016-0008-00
 ;;9002226.02101,"1105,58016-0008-30 ",.01)
 ;;58016-0008-30
 ;;9002226.02101,"1105,58016-0008-30 ",.02)
 ;;58016-0008-30
 ;;9002226.02101,"1105,58016-0008-60 ",.01)
 ;;58016-0008-60
 ;;9002226.02101,"1105,58016-0008-60 ",.02)
 ;;58016-0008-60
 ;;9002226.02101,"1105,58016-0008-90 ",.01)
 ;;58016-0008-90
 ;;9002226.02101,"1105,58016-0008-90 ",.02)
 ;;58016-0008-90
 ;;9002226.02101,"1105,58016-0012-00 ",.01)
 ;;58016-0012-00
 ;;9002226.02101,"1105,58016-0012-00 ",.02)
 ;;58016-0012-00
 ;;9002226.02101,"1105,58016-0012-30 ",.01)
 ;;58016-0012-30
 ;;9002226.02101,"1105,58016-0012-30 ",.02)
 ;;58016-0012-30
 ;;9002226.02101,"1105,58016-0012-60 ",.01)
 ;;58016-0012-60
 ;;9002226.02101,"1105,58016-0012-60 ",.02)
 ;;58016-0012-60
 ;;9002226.02101,"1105,58016-0012-90 ",.01)
 ;;58016-0012-90
 ;;9002226.02101,"1105,58016-0012-90 ",.02)
 ;;58016-0012-90
 ;;9002226.02101,"1105,58016-0013-00 ",.01)
 ;;58016-0013-00
 ;;9002226.02101,"1105,58016-0013-00 ",.02)
 ;;58016-0013-00
 ;;9002226.02101,"1105,58016-0013-30 ",.01)
 ;;58016-0013-30
 ;;9002226.02101,"1105,58016-0013-30 ",.02)
 ;;58016-0013-30
 ;;9002226.02101,"1105,58016-0013-60 ",.01)
 ;;58016-0013-60
 ;;9002226.02101,"1105,58016-0013-60 ",.02)
 ;;58016-0013-60
 ;;9002226.02101,"1105,58016-0013-90 ",.01)
 ;;58016-0013-90
 ;;9002226.02101,"1105,58016-0013-90 ",.02)
 ;;58016-0013-90
 ;;9002226.02101,"1105,58016-0037-00 ",.01)
 ;;58016-0037-00
 ;;9002226.02101,"1105,58016-0037-00 ",.02)
 ;;58016-0037-00
 ;;9002226.02101,"1105,58016-0037-30 ",.01)
 ;;58016-0037-30
 ;;9002226.02101,"1105,58016-0037-30 ",.02)
 ;;58016-0037-30
 ;;9002226.02101,"1105,58016-0037-60 ",.01)
 ;;58016-0037-60
 ;;9002226.02101,"1105,58016-0037-60 ",.02)
 ;;58016-0037-60
 ;;9002226.02101,"1105,58016-0037-90 ",.01)
 ;;58016-0037-90
 ;;9002226.02101,"1105,58016-0037-90 ",.02)
 ;;58016-0037-90
 ;;9002226.02101,"1105,58016-0051-00 ",.01)
 ;;58016-0051-00
 ;;9002226.02101,"1105,58016-0051-00 ",.02)
 ;;58016-0051-00
 ;;9002226.02101,"1105,58016-0051-30 ",.01)
 ;;58016-0051-30
 ;;9002226.02101,"1105,58016-0051-30 ",.02)
 ;;58016-0051-30
 ;;9002226.02101,"1105,58016-0051-60 ",.01)
 ;;58016-0051-60
 ;;9002226.02101,"1105,58016-0051-60 ",.02)
 ;;58016-0051-60
 ;;9002226.02101,"1105,58016-0051-90 ",.01)
 ;;58016-0051-90
 ;;9002226.02101,"1105,58016-0051-90 ",.02)
 ;;58016-0051-90
 ;;9002226.02101,"1105,58016-0052-00 ",.01)
 ;;58016-0052-00
 ;;9002226.02101,"1105,58016-0052-00 ",.02)
 ;;58016-0052-00
 ;;9002226.02101,"1105,58016-0052-30 ",.01)
 ;;58016-0052-30
 ;;9002226.02101,"1105,58016-0052-30 ",.02)
 ;;58016-0052-30
 ;;9002226.02101,"1105,58016-0052-60 ",.01)
 ;;58016-0052-60
 ;;9002226.02101,"1105,58016-0052-60 ",.02)
 ;;58016-0052-60
 ;;9002226.02101,"1105,58016-0052-90 ",.01)
 ;;58016-0052-90
 ;;9002226.02101,"1105,58016-0052-90 ",.02)
 ;;58016-0052-90
 ;;9002226.02101,"1105,58016-0071-00 ",.01)
 ;;58016-0071-00
 ;;9002226.02101,"1105,58016-0071-00 ",.02)
 ;;58016-0071-00
 ;;9002226.02101,"1105,58016-0071-30 ",.01)
 ;;58016-0071-30
 ;;9002226.02101,"1105,58016-0071-30 ",.02)
 ;;58016-0071-30
 ;;9002226.02101,"1105,58016-0071-60 ",.01)
 ;;58016-0071-60
 ;;9002226.02101,"1105,58016-0071-60 ",.02)
 ;;58016-0071-60
 ;;9002226.02101,"1105,58016-0071-90 ",.01)
 ;;58016-0071-90
 ;;9002226.02101,"1105,58016-0071-90 ",.02)
 ;;58016-0071-90
 ;;9002226.02101,"1105,58016-0364-00 ",.01)
 ;;58016-0364-00
 ;;9002226.02101,"1105,58016-0364-00 ",.02)
 ;;58016-0364-00
 ;;9002226.02101,"1105,58016-0364-30 ",.01)
 ;;58016-0364-30
 ;;9002226.02101,"1105,58016-0364-30 ",.02)
 ;;58016-0364-30
 ;;9002226.02101,"1105,58016-0364-60 ",.01)
 ;;58016-0364-60
 ;;9002226.02101,"1105,58016-0364-60 ",.02)
 ;;58016-0364-60
 ;;9002226.02101,"1105,58016-0364-90 ",.01)
 ;;58016-0364-90
 ;;9002226.02101,"1105,58016-0364-90 ",.02)
 ;;58016-0364-90
 ;;9002226.02101,"1105,58016-0365-00 ",.01)
 ;;58016-0365-00
 ;;9002226.02101,"1105,58016-0365-00 ",.02)
 ;;58016-0365-00
 ;;9002226.02101,"1105,58016-0365-30 ",.01)
 ;;58016-0365-30
 ;;9002226.02101,"1105,58016-0365-30 ",.02)
 ;;58016-0365-30
 ;;9002226.02101,"1105,58016-0365-60 ",.01)
 ;;58016-0365-60
 ;;9002226.02101,"1105,58016-0365-60 ",.02)
 ;;58016-0365-60
 ;;9002226.02101,"1105,58016-0365-90 ",.01)
 ;;58016-0365-90
 ;;9002226.02101,"1105,58016-0365-90 ",.02)
 ;;58016-0365-90
 ;;9002226.02101,"1105,58016-0385-00 ",.01)
 ;;58016-0385-00
 ;;9002226.02101,"1105,58016-0385-00 ",.02)
 ;;58016-0385-00
 ;;9002226.02101,"1105,58016-0385-30 ",.01)
 ;;58016-0385-30
 ;;9002226.02101,"1105,58016-0385-30 ",.02)
 ;;58016-0385-30
 ;;9002226.02101,"1105,58016-0385-60 ",.01)
 ;;58016-0385-60
 ;;9002226.02101,"1105,58016-0385-60 ",.02)
 ;;58016-0385-60
 ;;9002226.02101,"1105,58016-0385-90 ",.01)
 ;;58016-0385-90
 ;;9002226.02101,"1105,58016-0385-90 ",.02)
 ;;58016-0385-90
 ;;9002226.02101,"1105,58016-0425-00 ",.01)
 ;;58016-0425-00
 ;;9002226.02101,"1105,58016-0425-00 ",.02)
 ;;58016-0425-00
 ;;9002226.02101,"1105,58016-0425-30 ",.01)
 ;;58016-0425-30
 ;;9002226.02101,"1105,58016-0425-30 ",.02)
 ;;58016-0425-30
 ;;9002226.02101,"1105,58016-0425-60 ",.01)
 ;;58016-0425-60
 ;;9002226.02101,"1105,58016-0425-60 ",.02)
 ;;58016-0425-60
 ;;9002226.02101,"1105,58016-0425-90 ",.01)
 ;;58016-0425-90
 ;;9002226.02101,"1105,58016-0425-90 ",.02)
 ;;58016-0425-90