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

BGP14D3.m

Go to the documentation of this file.
BGP14D3 ; 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,"1106,00555-0588-01 ",.02)
 ;;00555-0588-01
 ;;9002226.02101,"1106,00555-0589-01 ",.01)
 ;;00555-0589-01
 ;;9002226.02101,"1106,00555-0589-01 ",.02)
 ;;00555-0589-01
 ;;9002226.02101,"1106,00555-0590-01 ",.01)
 ;;00555-0590-01
 ;;9002226.02101,"1106,00555-0590-01 ",.02)
 ;;00555-0590-01
 ;;9002226.02101,"1106,00597-0002-01 ",.01)
 ;;00597-0002-01
 ;;9002226.02101,"1106,00597-0002-01 ",.02)
 ;;00597-0002-01
 ;;9002226.02101,"1106,00597-0003-02 ",.01)
 ;;00597-0003-02
 ;;9002226.02101,"1106,00597-0003-02 ",.02)
 ;;00597-0003-02
 ;;9002226.02101,"1106,00597-0046-60 ",.01)
 ;;00597-0046-60
 ;;9002226.02101,"1106,00597-0046-60 ",.02)
 ;;00597-0046-60
 ;;9002226.02101,"1106,00597-0047-24 ",.01)
 ;;00597-0047-24
 ;;9002226.02101,"1106,00597-0047-24 ",.02)
 ;;00597-0047-24
 ;;9002226.02101,"1106,13411-0191-02 ",.01)
 ;;13411-0191-02
 ;;9002226.02101,"1106,13411-0191-02 ",.02)
 ;;13411-0191-02
 ;;9002226.02101,"1106,13411-0191-03 ",.01)
 ;;13411-0191-03
 ;;9002226.02101,"1106,13411-0191-03 ",.02)
 ;;13411-0191-03
 ;;9002226.02101,"1106,13411-0191-06 ",.01)
 ;;13411-0191-06
 ;;9002226.02101,"1106,13411-0191-06 ",.02)
 ;;13411-0191-06
 ;;9002226.02101,"1106,13411-0191-09 ",.01)
 ;;13411-0191-09
 ;;9002226.02101,"1106,13411-0191-09 ",.02)
 ;;13411-0191-09
 ;;9002226.02101,"1106,13411-0191-10 ",.01)
 ;;13411-0191-10
 ;;9002226.02101,"1106,13411-0191-10 ",.02)
 ;;13411-0191-10
 ;;9002226.02101,"1106,13411-0192-02 ",.01)
 ;;13411-0192-02
 ;;9002226.02101,"1106,13411-0192-02 ",.02)
 ;;13411-0192-02
 ;;9002226.02101,"1106,13411-0192-03 ",.01)
 ;;13411-0192-03
 ;;9002226.02101,"1106,13411-0192-03 ",.02)
 ;;13411-0192-03
 ;;9002226.02101,"1106,13411-0192-06 ",.01)
 ;;13411-0192-06
 ;;9002226.02101,"1106,13411-0192-06 ",.02)
 ;;13411-0192-06
 ;;9002226.02101,"1106,13411-0192-09 ",.01)
 ;;13411-0192-09
 ;;9002226.02101,"1106,13411-0192-09 ",.02)
 ;;13411-0192-09
 ;;9002226.02101,"1106,13411-0192-10 ",.01)
 ;;13411-0192-10
 ;;9002226.02101,"1106,13411-0192-10 ",.02)
 ;;13411-0192-10
 ;;9002226.02101,"1106,13411-0193-02 ",.01)
 ;;13411-0193-02
 ;;9002226.02101,"1106,13411-0193-02 ",.02)
 ;;13411-0193-02
 ;;9002226.02101,"1106,13411-0193-03 ",.01)
 ;;13411-0193-03
 ;;9002226.02101,"1106,13411-0193-03 ",.02)
 ;;13411-0193-03
 ;;9002226.02101,"1106,13411-0193-06 ",.01)
 ;;13411-0193-06
 ;;9002226.02101,"1106,13411-0193-06 ",.02)
 ;;13411-0193-06
 ;;9002226.02101,"1106,13411-0193-09 ",.01)
 ;;13411-0193-09
 ;;9002226.02101,"1106,13411-0193-09 ",.02)
 ;;13411-0193-09
 ;;9002226.02101,"1106,13411-0193-10 ",.01)
 ;;13411-0193-10
 ;;9002226.02101,"1106,13411-0193-10 ",.02)
 ;;13411-0193-10
 ;;9002226.02101,"1106,15584-0101-01 ",.01)
 ;;15584-0101-01
 ;;9002226.02101,"1106,15584-0101-01 ",.02)
 ;;15584-0101-01
 ;;9002226.02101,"1106,16590-0061-06 ",.01)
 ;;16590-0061-06
 ;;9002226.02101,"1106,16590-0061-06 ",.02)
 ;;16590-0061-06
 ;;9002226.02101,"1106,16590-0061-10 ",.01)
 ;;16590-0061-10
 ;;9002226.02101,"1106,16590-0061-10 ",.02)
 ;;16590-0061-10
 ;;9002226.02101,"1106,16590-0064-18 ",.01)
 ;;16590-0064-18
 ;;9002226.02101,"1106,16590-0064-18 ",.02)
 ;;16590-0064-18
 ;;9002226.02101,"1106,16590-0064-30 ",.01)
 ;;16590-0064-30
 ;;9002226.02101,"1106,16590-0064-30 ",.02)
 ;;16590-0064-30
 ;;9002226.02101,"1106,16590-0064-60 ",.01)
 ;;16590-0064-60
 ;;9002226.02101,"1106,16590-0064-60 ",.02)
 ;;16590-0064-60
 ;;9002226.02101,"1106,16590-0064-90 ",.01)
 ;;16590-0064-90
 ;;9002226.02101,"1106,16590-0064-90 ",.02)
 ;;16590-0064-90
 ;;9002226.02101,"1106,21695-0362-12 ",.01)
 ;;21695-0362-12
 ;;9002226.02101,"1106,21695-0362-12 ",.02)
 ;;21695-0362-12
 ;;9002226.02101,"1106,21695-0366-18 ",.01)
 ;;21695-0366-18
 ;;9002226.02101,"1106,21695-0366-18 ",.02)
 ;;21695-0366-18
 ;;9002226.02101,"1106,21695-0367-06 ",.01)
 ;;21695-0367-06
 ;;9002226.02101,"1106,21695-0367-06 ",.02)
 ;;21695-0367-06
 ;;9002226.02101,"1106,21695-0369-18 ",.01)
 ;;21695-0369-18
 ;;9002226.02101,"1106,21695-0369-18 ",.02)
 ;;21695-0369-18
 ;;9002226.02101,"1106,21695-0846-06 ",.01)
 ;;21695-0846-06
 ;;9002226.02101,"1106,21695-0846-06 ",.02)
 ;;21695-0846-06
 ;;9002226.02101,"1106,23490-7087-06 ",.01)
 ;;23490-7087-06
 ;;9002226.02101,"1106,23490-7087-06 ",.02)
 ;;23490-7087-06
 ;;9002226.02101,"1106,31722-0509-60 ",.01)
 ;;31722-0509-60
 ;;9002226.02101,"1106,31722-0509-60 ",.02)
 ;;31722-0509-60
 ;;9002226.02101,"1106,31722-0515-60 ",.01)
 ;;31722-0515-60
 ;;9002226.02101,"1106,31722-0515-60 ",.02)
 ;;31722-0515-60
 ;;9002226.02101,"1106,31722-0516-60 ",.01)
 ;;31722-0516-60
 ;;9002226.02101,"1106,31722-0516-60 ",.02)
 ;;31722-0516-60
 ;;9002226.02101,"1106,31722-0517-60 ",.01)
 ;;31722-0517-60
 ;;9002226.02101,"1106,31722-0517-60 ",.02)
 ;;31722-0517-60
 ;;9002226.02101,"1106,31722-0518-60 ",.01)
 ;;31722-0518-60
 ;;9002226.02101,"1106,31722-0518-60 ",.02)
 ;;31722-0518-60
 ;;9002226.02101,"1106,35356-0064-06 ",.01)
 ;;35356-0064-06
 ;;9002226.02101,"1106,35356-0064-06 ",.02)
 ;;35356-0064-06
 ;;9002226.02101,"1106,35356-0064-30 ",.01)
 ;;35356-0064-30
 ;;9002226.02101,"1106,35356-0064-30 ",.02)
 ;;35356-0064-30
 ;;9002226.02101,"1106,35356-0065-30 ",.01)
 ;;35356-0065-30
 ;;9002226.02101,"1106,35356-0065-30 ",.02)
 ;;35356-0065-30
 ;;9002226.02101,"1106,35356-0066-24 ",.01)
 ;;35356-0066-24
 ;;9002226.02101,"1106,35356-0066-24 ",.02)
 ;;35356-0066-24
 ;;9002226.02101,"1106,35356-0067-06 ",.01)
 ;;35356-0067-06
 ;;9002226.02101,"1106,35356-0067-06 ",.02)
 ;;35356-0067-06
 ;;9002226.02101,"1106,35356-0067-60 ",.01)
 ;;35356-0067-60
 ;;9002226.02101,"1106,35356-0067-60 ",.02)
 ;;35356-0067-60
 ;;9002226.02101,"1106,35356-0068-06 ",.01)
 ;;35356-0068-06
 ;;9002226.02101,"1106,35356-0068-06 ",.02)
 ;;35356-0068-06
 ;;9002226.02101,"1106,35356-0068-60 ",.01)
 ;;35356-0068-60
 ;;9002226.02101,"1106,35356-0068-60 ",.02)
 ;;35356-0068-60
 ;;9002226.02101,"1106,35356-0069-90 ",.01)
 ;;35356-0069-90
 ;;9002226.02101,"1106,35356-0069-90 ",.02)
 ;;35356-0069-90
 ;;9002226.02101,"1106,35356-0070-06 ",.01)
 ;;35356-0070-06
 ;;9002226.02101,"1106,35356-0070-06 ",.02)
 ;;35356-0070-06
 ;;9002226.02101,"1106,35356-0070-30 ",.01)
 ;;35356-0070-30
 ;;9002226.02101,"1106,35356-0070-30 ",.02)
 ;;35356-0070-30
 ;;9002226.02101,"1106,35356-0071-06 ",.01)
 ;;35356-0071-06
 ;;9002226.02101,"1106,35356-0071-06 ",.02)
 ;;35356-0071-06
 ;;9002226.02101,"1106,35356-0071-60 ",.01)
 ;;35356-0071-60
 ;;9002226.02101,"1106,35356-0071-60 ",.02)
 ;;35356-0071-60
 ;;9002226.02101,"1106,35356-0072-24 ",.01)
 ;;35356-0072-24
 ;;9002226.02101,"1106,35356-0072-24 ",.02)
 ;;35356-0072-24
 ;;9002226.02101,"1106,35356-0073-06 ",.01)
 ;;35356-0073-06
 ;;9002226.02101,"1106,35356-0073-06 ",.02)
 ;;35356-0073-06
 ;;9002226.02101,"1106,35356-0073-30 ",.01)
 ;;35356-0073-30
 ;;9002226.02101,"1106,35356-0073-30 ",.02)
 ;;35356-0073-30
 ;;9002226.02101,"1106,35356-0074-60 ",.01)
 ;;35356-0074-60
 ;;9002226.02101,"1106,35356-0074-60 ",.02)
 ;;35356-0074-60
 ;;9002226.02101,"1106,35356-0075-06 ",.01)
 ;;35356-0075-06
 ;;9002226.02101,"1106,35356-0075-06 ",.02)
 ;;35356-0075-06
 ;;9002226.02101,"1106,35356-0075-60 ",.01)
 ;;35356-0075-60
 ;;9002226.02101,"1106,35356-0075-60 ",.02)
 ;;35356-0075-60
 ;;9002226.02101,"1106,35356-0109-06 ",.01)
 ;;35356-0109-06
 ;;9002226.02101,"1106,35356-0109-06 ",.02)
 ;;35356-0109-06
 ;;9002226.02101,"1106,35356-0109-30 ",.01)
 ;;35356-0109-30
 ;;9002226.02101,"1106,35356-0109-30 ",.02)
 ;;35356-0109-30
 ;;9002226.02101,"1106,35356-0110-06 ",.01)
 ;;35356-0110-06
 ;;9002226.02101,"1106,35356-0110-06 ",.02)
 ;;35356-0110-06
 ;;9002226.02101,"1106,35356-0110-60 ",.01)
 ;;35356-0110-60
 ;;9002226.02101,"1106,35356-0110-60 ",.02)
 ;;35356-0110-60
 ;;9002226.02101,"1106,35356-0111-60 ",.01)
 ;;35356-0111-60
 ;;9002226.02101,"1106,35356-0111-60 ",.02)
 ;;35356-0111-60
 ;;9002226.02101,"1106,35356-0112-01 ",.01)
 ;;35356-0112-01
 ;;9002226.02101,"1106,35356-0112-01 ",.02)
 ;;35356-0112-01
 ;;9002226.02101,"1106,35356-0112-30 ",.01)
 ;;35356-0112-30
 ;;9002226.02101,"1106,35356-0112-30 ",.02)
 ;;35356-0112-30
 ;;9002226.02101,"1106,35356-0113-01 ",.01)
 ;;35356-0113-01
 ;;9002226.02101,"1106,35356-0113-01 ",.02)
 ;;35356-0113-01
 ;;9002226.02101,"1106,35356-0113-30 ",.01)
 ;;35356-0113-30
 ;;9002226.02101,"1106,35356-0113-30 ",.02)
 ;;35356-0113-30
 ;;9002226.02101,"1106,35356-0114-06 ",.01)
 ;;35356-0114-06
 ;;9002226.02101,"1106,35356-0114-06 ",.02)
 ;;35356-0114-06
 ;;9002226.02101,"1106,35356-0114-30 ",.01)
 ;;35356-0114-30
 ;;9002226.02101,"1106,35356-0114-30 ",.02)
 ;;35356-0114-30
 ;;9002226.02101,"1106,35356-0115-06 ",.01)
 ;;35356-0115-06
 ;;9002226.02101,"1106,35356-0115-06 ",.02)
 ;;35356-0115-06
 ;;9002226.02101,"1106,35356-0115-30 ",.01)
 ;;35356-0115-30
 ;;9002226.02101,"1106,35356-0115-30 ",.02)
 ;;35356-0115-30
 ;;9002226.02101,"1106,35356-0116-06 ",.01)
 ;;35356-0116-06
 ;;9002226.02101,"1106,35356-0116-06 ",.02)
 ;;35356-0116-06
 ;;9002226.02101,"1106,35356-0116-60 ",.01)
 ;;35356-0116-60
 ;;9002226.02101,"1106,35356-0116-60 ",.02)
 ;;35356-0116-60
 ;;9002226.02101,"1106,35356-0117-01 ",.01)
 ;;35356-0117-01
 ;;9002226.02101,"1106,35356-0117-01 ",.02)
 ;;35356-0117-01
 ;;9002226.02101,"1106,35356-0138-30 ",.01)
 ;;35356-0138-30
 ;;9002226.02101,"1106,35356-0138-30 ",.02)
 ;;35356-0138-30
 ;;9002226.02101,"1106,35356-0139-18 ",.01)
 ;;35356-0139-18
 ;;9002226.02101,"1106,35356-0139-18 ",.02)
 ;;35356-0139-18
 ;;9002226.02101,"1106,35356-0139-60 ",.01)
 ;;35356-0139-60
 ;;9002226.02101,"1106,35356-0139-60 ",.02)
 ;;35356-0139-60
 ;;9002226.02101,"1106,35356-0186-30 ",.01)
 ;;35356-0186-30
 ;;9002226.02101,"1106,35356-0186-30 ",.02)
 ;;35356-0186-30
 ;;9002226.02101,"1106,35356-0205-30 ",.01)
 ;;35356-0205-30
 ;;9002226.02101,"1106,35356-0205-30 ",.02)
 ;;35356-0205-30
 ;;9002226.02101,"1106,35356-0206-60 ",.01)
 ;;35356-0206-60
 ;;9002226.02101,"1106,35356-0206-60 ",.02)
 ;;35356-0206-60
 ;;9002226.02101,"1106,35356-0207-60 ",.01)
 ;;35356-0207-60
 ;;9002226.02101,"1106,35356-0207-60 ",.02)
 ;;35356-0207-60
 ;;9002226.02101,"1106,35356-0208-60 ",.01)
 ;;35356-0208-60
 ;;9002226.02101,"1106,35356-0208-60 ",.02)
 ;;35356-0208-60
 ;;9002226.02101,"1106,35356-0209-60 ",.01)
 ;;35356-0209-60
 ;;9002226.02101,"1106,35356-0209-60 ",.02)
 ;;35356-0209-60
 ;;9002226.02101,"1106,35356-0259-30 ",.01)
 ;;35356-0259-30
 ;;9002226.02101,"1106,35356-0259-30 ",.02)
 ;;35356-0259-30
 ;;9002226.02101,"1106,35356-0284-60 ",.01)
 ;;35356-0284-60
 ;;9002226.02101,"1106,35356-0284-60 ",.02)
 ;;35356-0284-60
 ;;9002226.02101,"1106,35356-0285-60 ",.01)
 ;;35356-0285-60
 ;;9002226.02101,"1106,35356-0285-60 ",.02)
 ;;35356-0285-60
 ;;9002226.02101,"1106,49702-0206-13 ",.01)
 ;;49702-0206-13
 ;;9002226.02101,"1106,49702-0206-13 ",.02)
 ;;49702-0206-13
 ;;9002226.02101,"1106,49999-0062-06 ",.01)
 ;;49999-0062-06
 ;;9002226.02101,"1106,49999-0062-06 ",.02)
 ;;49999-0062-06
 ;;9002226.02101,"1106,49999-0062-10 ",.01)
 ;;49999-0062-10
 ;;9002226.02101,"1106,49999-0062-10 ",.02)
 ;;49999-0062-10
 ;;9002226.02101,"1106,49999-0062-60 ",.01)
 ;;49999-0062-60
 ;;9002226.02101,"1106,49999-0062-60 ",.02)
 ;;49999-0062-60
 ;;9002226.02101,"1106,49999-0119-06 ",.01)
 ;;49999-0119-06
 ;;9002226.02101,"1106,49999-0119-06 ",.02)
 ;;49999-0119-06
 ;;9002226.02101,"1106,49999-0119-60 ",.01)
 ;;49999-0119-60
 ;;9002226.02101,"1106,49999-0119-60 ",.02)
 ;;49999-0119-60
 ;;9002226.02101,"1106,49999-0386-18 ",.01)
 ;;49999-0386-18
 ;;9002226.02101,"1106,49999-0386-18 ",.02)
 ;;49999-0386-18
 ;;9002226.02101,"1106,49999-0431-03 ",.01)
 ;;49999-0431-03
 ;;9002226.02101,"1106,49999-0431-03 ",.02)
 ;;49999-0431-03
 ;;9002226.02101,"1106,51129-2999-02 ",.01)
 ;;51129-2999-02
 ;;9002226.02101,"1106,51129-2999-02 ",.02)
 ;;51129-2999-02
 ;;9002226.02101,"1106,52959-0289-06 ",.01)
 ;;52959-0289-06
 ;;9002226.02101,"1106,52959-0289-06 ",.02)
 ;;52959-0289-06
 ;;9002226.02101,"1106,52959-0289-30 ",.01)
 ;;52959-0289-30
 ;;9002226.02101,"1106,52959-0289-30 ",.02)
 ;;52959-0289-30
 ;;9002226.02101,"1106,52959-0387-06 ",.01)
 ;;52959-0387-06
 ;;9002226.02101,"1106,52959-0387-06 ",.02)
 ;;52959-0387-06
 ;;9002226.02101,"1106,52959-0507-12 ",.01)
 ;;52959-0507-12
 ;;9002226.02101,"1106,52959-0507-12 ",.02)
 ;;52959-0507-12
 ;;9002226.02101,"1106,52959-0507-18 ",.01)
 ;;52959-0507-18
 ;;9002226.02101,"1106,52959-0507-18 ",.02)
 ;;52959-0507-18
 ;;9002226.02101,"1106,52959-0507-24 ",.01)
 ;;52959-0507-24
 ;;9002226.02101,"1106,52959-0507-24 ",.02)
 ;;52959-0507-24
 ;;9002226.02101,"1106,52959-0507-30 ",.01)
 ;;52959-0507-30