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

BGP2TJ3.m

Go to the documentation of this file.
BGP2TJ3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"1202,00173-0672-00 ",.01)
 ;;00173-0672-00
 ;;9002226.02101,"1202,00173-0672-00 ",.02)
 ;;00173-0672-00
 ;;9002226.02101,"1202,00173-0679-00 ",.01)
 ;;00173-0679-00
 ;;9002226.02101,"1202,00173-0679-00 ",.02)
 ;;00173-0679-00
 ;;9002226.02101,"1202,00173-0687-00 ",.01)
 ;;00173-0687-00
 ;;9002226.02101,"1202,00173-0687-00 ",.02)
 ;;00173-0687-00
 ;;9002226.02101,"1202,00173-0691-00 ",.01)
 ;;00173-0691-00
 ;;9002226.02101,"1202,00173-0691-00 ",.02)
 ;;00173-0691-00
 ;;9002226.02101,"1202,00173-0691-20 ",.01)
 ;;00173-0691-20
 ;;9002226.02101,"1202,00173-0691-20 ",.02)
 ;;00173-0691-20
 ;;9002226.02101,"1202,00173-0714-00 ",.01)
 ;;00173-0714-00
 ;;9002226.02101,"1202,00173-0714-00 ",.02)
 ;;00173-0714-00
 ;;9002226.02101,"1202,00173-0721-00 ",.01)
 ;;00173-0721-00
 ;;9002226.02101,"1202,00173-0721-00 ",.02)
 ;;00173-0721-00
 ;;9002226.02101,"1202,00173-0727-00 ",.01)
 ;;00173-0727-00
 ;;9002226.02101,"1202,00173-0727-00 ",.02)
 ;;00173-0727-00
 ;;9002226.02101,"1202,00173-0742-00 ",.01)
 ;;00173-0742-00
 ;;9002226.02101,"1202,00173-0742-00 ",.02)
 ;;00173-0742-00
 ;;9002226.02101,"1202,00378-5040-91 ",.01)
 ;;00378-5040-91
 ;;9002226.02101,"1202,00378-5040-91 ",.02)
 ;;00378-5040-91
 ;;9002226.02101,"1202,00378-5041-91 ",.01)
 ;;00378-5041-91
 ;;9002226.02101,"1202,00378-5041-91 ",.02)
 ;;00378-5041-91
 ;;9002226.02101,"1202,00378-5042-91 ",.01)
 ;;00378-5042-91
 ;;9002226.02101,"1202,00378-5042-91 ",.02)
 ;;00378-5042-91
 ;;9002226.02101,"1202,00378-5043-91 ",.01)
 ;;00378-5043-91
 ;;9002226.02101,"1202,00378-5043-91 ",.02)
 ;;00378-5043-91
 ;;9002226.02101,"1202,00378-6106-91 ",.01)
 ;;00378-6106-91
 ;;9002226.02101,"1202,00378-6106-91 ",.02)
 ;;00378-6106-91
 ;;9002226.02101,"1202,00378-8886-93 ",.01)
 ;;00378-8886-93
 ;;9002226.02101,"1202,00378-8886-93 ",.02)
 ;;00378-8886-93
 ;;9002226.02101,"1202,00378-8887-93 ",.01)
 ;;00378-8887-93
 ;;9002226.02101,"1202,00378-8887-93 ",.02)
 ;;00378-8887-93
 ;;9002226.02101,"1202,00378-8888-93 ",.01)
 ;;00378-8888-93
 ;;9002226.02101,"1202,00378-8888-93 ",.02)
 ;;00378-8888-93
 ;;9002226.02101,"1202,00378-8889-93 ",.01)
 ;;00378-8889-93
 ;;9002226.02101,"1202,00378-8889-93 ",.02)
 ;;00378-8889-93
 ;;9002226.02101,"1202,00490-7026-00 ",.01)
 ;;00490-7026-00
 ;;9002226.02101,"1202,00490-7026-00 ",.02)
 ;;00490-7026-00
 ;;9002226.02101,"1202,00490-7026-30 ",.01)
 ;;00490-7026-30
 ;;9002226.02101,"1202,00490-7026-30 ",.02)
 ;;00490-7026-30
 ;;9002226.02101,"1202,00490-7026-60 ",.01)
 ;;00490-7026-60
 ;;9002226.02101,"1202,00490-7026-60 ",.02)
 ;;00490-7026-60
 ;;9002226.02101,"1202,00490-7026-90 ",.01)
 ;;00490-7026-90
 ;;9002226.02101,"1202,00490-7026-90 ",.02)
 ;;00490-7026-90
 ;;9002226.02101,"1202,00490-7028-00 ",.01)
 ;;00490-7028-00
 ;;9002226.02101,"1202,00490-7028-00 ",.02)
 ;;00490-7028-00
 ;;9002226.02101,"1202,00490-7028-02 ",.01)
 ;;00490-7028-02
 ;;9002226.02101,"1202,00490-7028-02 ",.02)
 ;;00490-7028-02
 ;;9002226.02101,"1202,00490-7028-30 ",.01)
 ;;00490-7028-30
 ;;9002226.02101,"1202,00490-7028-30 ",.02)
 ;;00490-7028-30
 ;;9002226.02101,"1202,00490-7028-60 ",.01)
 ;;00490-7028-60
 ;;9002226.02101,"1202,00490-7028-60 ",.02)
 ;;00490-7028-60
 ;;9002226.02101,"1202,00490-7028-90 ",.01)
 ;;00490-7028-90
 ;;9002226.02101,"1202,00490-7028-90 ",.02)
 ;;00490-7028-90
 ;;9002226.02101,"1202,00555-0588-01 ",.01)
 ;;00555-0588-01
 ;;9002226.02101,"1202,00555-0588-01 ",.02)
 ;;00555-0588-01
 ;;9002226.02101,"1202,00555-0589-01 ",.01)
 ;;00555-0589-01
 ;;9002226.02101,"1202,00555-0589-01 ",.02)
 ;;00555-0589-01
 ;;9002226.02101,"1202,00555-0590-01 ",.01)
 ;;00555-0590-01
 ;;9002226.02101,"1202,00555-0590-01 ",.02)
 ;;00555-0590-01
 ;;9002226.02101,"1202,00597-0002-01 ",.01)
 ;;00597-0002-01
 ;;9002226.02101,"1202,00597-0002-01 ",.02)
 ;;00597-0002-01
 ;;9002226.02101,"1202,00597-0003-02 ",.01)
 ;;00597-0003-02
 ;;9002226.02101,"1202,00597-0003-02 ",.02)
 ;;00597-0003-02
 ;;9002226.02101,"1202,00597-0046-01 ",.01)
 ;;00597-0046-01
 ;;9002226.02101,"1202,00597-0046-01 ",.02)
 ;;00597-0046-01
 ;;9002226.02101,"1202,00597-0046-46 ",.01)
 ;;00597-0046-46
 ;;9002226.02101,"1202,00597-0046-46 ",.02)
 ;;00597-0046-46
 ;;9002226.02101,"1202,00597-0046-60 ",.01)
 ;;00597-0046-60
 ;;9002226.02101,"1202,00597-0046-60 ",.02)
 ;;00597-0046-60
 ;;9002226.02101,"1202,00597-0046-61 ",.01)
 ;;00597-0046-61
 ;;9002226.02101,"1202,00597-0046-61 ",.02)
 ;;00597-0046-61
 ;;9002226.02101,"1202,00597-0047-24 ",.01)
 ;;00597-0047-24
 ;;9002226.02101,"1202,00597-0047-24 ",.02)
 ;;00597-0047-24
 ;;9002226.02101,"1202,00597-0123-30 ",.01)
 ;;00597-0123-30
 ;;9002226.02101,"1202,00597-0123-30 ",.02)
 ;;00597-0123-30
 ;;9002226.02101,"1202,13411-0191-02 ",.01)
 ;;13411-0191-02
 ;;9002226.02101,"1202,13411-0191-02 ",.02)
 ;;13411-0191-02
 ;;9002226.02101,"1202,13411-0191-03 ",.01)
 ;;13411-0191-03
 ;;9002226.02101,"1202,13411-0191-03 ",.02)
 ;;13411-0191-03
 ;;9002226.02101,"1202,13411-0191-06 ",.01)
 ;;13411-0191-06
 ;;9002226.02101,"1202,13411-0191-06 ",.02)
 ;;13411-0191-06
 ;;9002226.02101,"1202,13411-0191-09 ",.01)
 ;;13411-0191-09
 ;;9002226.02101,"1202,13411-0191-09 ",.02)
 ;;13411-0191-09
 ;;9002226.02101,"1202,13411-0191-10 ",.01)
 ;;13411-0191-10
 ;;9002226.02101,"1202,13411-0191-10 ",.02)
 ;;13411-0191-10
 ;;9002226.02101,"1202,13411-0192-02 ",.01)
 ;;13411-0192-02
 ;;9002226.02101,"1202,13411-0192-02 ",.02)
 ;;13411-0192-02
 ;;9002226.02101,"1202,13411-0192-03 ",.01)
 ;;13411-0192-03
 ;;9002226.02101,"1202,13411-0192-03 ",.02)
 ;;13411-0192-03
 ;;9002226.02101,"1202,13411-0192-06 ",.01)
 ;;13411-0192-06
 ;;9002226.02101,"1202,13411-0192-06 ",.02)
 ;;13411-0192-06
 ;;9002226.02101,"1202,13411-0192-09 ",.01)
 ;;13411-0192-09
 ;;9002226.02101,"1202,13411-0192-09 ",.02)
 ;;13411-0192-09
 ;;9002226.02101,"1202,13411-0192-10 ",.01)
 ;;13411-0192-10
 ;;9002226.02101,"1202,13411-0192-10 ",.02)
 ;;13411-0192-10
 ;;9002226.02101,"1202,13411-0193-02 ",.01)
 ;;13411-0193-02
 ;;9002226.02101,"1202,13411-0193-02 ",.02)
 ;;13411-0193-02
 ;;9002226.02101,"1202,13411-0193-03 ",.01)
 ;;13411-0193-03
 ;;9002226.02101,"1202,13411-0193-03 ",.02)
 ;;13411-0193-03
 ;;9002226.02101,"1202,13411-0193-06 ",.01)
 ;;13411-0193-06
 ;;9002226.02101,"1202,13411-0193-06 ",.02)
 ;;13411-0193-06
 ;;9002226.02101,"1202,13411-0193-09 ",.01)
 ;;13411-0193-09
 ;;9002226.02101,"1202,13411-0193-09 ",.02)
 ;;13411-0193-09
 ;;9002226.02101,"1202,13411-0193-10 ",.01)
 ;;13411-0193-10
 ;;9002226.02101,"1202,13411-0193-10 ",.02)
 ;;13411-0193-10
 ;;9002226.02101,"1202,15584-0101-01 ",.01)
 ;;15584-0101-01
 ;;9002226.02101,"1202,15584-0101-01 ",.02)
 ;;15584-0101-01
 ;;9002226.02101,"1202,16590-0061-06 ",.01)
 ;;16590-0061-06
 ;;9002226.02101,"1202,16590-0061-06 ",.02)
 ;;16590-0061-06
 ;;9002226.02101,"1202,16590-0061-10 ",.01)
 ;;16590-0061-10
 ;;9002226.02101,"1202,16590-0061-10 ",.02)
 ;;16590-0061-10
 ;;9002226.02101,"1202,16590-0061-20 ",.01)
 ;;16590-0061-20
 ;;9002226.02101,"1202,16590-0061-20 ",.02)
 ;;16590-0061-20
 ;;9002226.02101,"1202,16590-0061-30 ",.01)
 ;;16590-0061-30
 ;;9002226.02101,"1202,16590-0061-30 ",.02)
 ;;16590-0061-30
 ;;9002226.02101,"1202,16590-0064-18 ",.01)
 ;;16590-0064-18
 ;;9002226.02101,"1202,16590-0064-18 ",.02)
 ;;16590-0064-18
 ;;9002226.02101,"1202,16590-0064-30 ",.01)
 ;;16590-0064-30
 ;;9002226.02101,"1202,16590-0064-30 ",.02)
 ;;16590-0064-30
 ;;9002226.02101,"1202,16590-0064-60 ",.01)
 ;;16590-0064-60
 ;;9002226.02101,"1202,16590-0064-60 ",.02)
 ;;16590-0064-60
 ;;9002226.02101,"1202,16590-0064-90 ",.01)
 ;;16590-0064-90
 ;;9002226.02101,"1202,16590-0064-90 ",.02)
 ;;16590-0064-90
 ;;9002226.02101,"1202,21695-0362-12 ",.01)
 ;;21695-0362-12
 ;;9002226.02101,"1202,21695-0362-12 ",.02)
 ;;21695-0362-12
 ;;9002226.02101,"1202,21695-0366-18 ",.01)
 ;;21695-0366-18
 ;;9002226.02101,"1202,21695-0366-18 ",.02)
 ;;21695-0366-18
 ;;9002226.02101,"1202,21695-0367-06 ",.01)
 ;;21695-0367-06
 ;;9002226.02101,"1202,21695-0367-06 ",.02)
 ;;21695-0367-06
 ;;9002226.02101,"1202,21695-0369-18 ",.01)
 ;;21695-0369-18
 ;;9002226.02101,"1202,21695-0369-18 ",.02)
 ;;21695-0369-18
 ;;9002226.02101,"1202,21695-0846-06 ",.01)
 ;;21695-0846-06
 ;;9002226.02101,"1202,21695-0846-06 ",.02)
 ;;21695-0846-06
 ;;9002226.02101,"1202,23490-7087-06 ",.01)
 ;;23490-7087-06
 ;;9002226.02101,"1202,23490-7087-06 ",.02)
 ;;23490-7087-06
 ;;9002226.02101,"1202,31722-0509-60 ",.01)
 ;;31722-0509-60
 ;;9002226.02101,"1202,31722-0509-60 ",.02)
 ;;31722-0509-60
 ;;9002226.02101,"1202,31722-0515-60 ",.01)
 ;;31722-0515-60
 ;;9002226.02101,"1202,31722-0515-60 ",.02)
 ;;31722-0515-60
 ;;9002226.02101,"1202,31722-0516-60 ",.01)
 ;;31722-0516-60
 ;;9002226.02101,"1202,31722-0516-60 ",.02)
 ;;31722-0516-60
 ;;9002226.02101,"1202,31722-0517-60 ",.01)
 ;;31722-0517-60
 ;;9002226.02101,"1202,31722-0517-60 ",.02)
 ;;31722-0517-60
 ;;9002226.02101,"1202,31722-0518-60 ",.01)
 ;;31722-0518-60
 ;;9002226.02101,"1202,31722-0518-60 ",.02)
 ;;31722-0518-60
 ;;9002226.02101,"1202,35356-0064-06 ",.01)
 ;;35356-0064-06
 ;;9002226.02101,"1202,35356-0064-06 ",.02)
 ;;35356-0064-06
 ;;9002226.02101,"1202,35356-0064-30 ",.01)
 ;;35356-0064-30
 ;;9002226.02101,"1202,35356-0064-30 ",.02)
 ;;35356-0064-30
 ;;9002226.02101,"1202,35356-0065-30 ",.01)
 ;;35356-0065-30
 ;;9002226.02101,"1202,35356-0065-30 ",.02)
 ;;35356-0065-30
 ;;9002226.02101,"1202,35356-0066-24 ",.01)
 ;;35356-0066-24
 ;;9002226.02101,"1202,35356-0066-24 ",.02)
 ;;35356-0066-24
 ;;9002226.02101,"1202,35356-0067-06 ",.01)
 ;;35356-0067-06
 ;;9002226.02101,"1202,35356-0067-06 ",.02)
 ;;35356-0067-06
 ;;9002226.02101,"1202,35356-0067-60 ",.01)
 ;;35356-0067-60
 ;;9002226.02101,"1202,35356-0067-60 ",.02)
 ;;35356-0067-60
 ;;9002226.02101,"1202,35356-0068-06 ",.01)
 ;;35356-0068-06
 ;;9002226.02101,"1202,35356-0068-06 ",.02)
 ;;35356-0068-06
 ;;9002226.02101,"1202,35356-0068-60 ",.01)
 ;;35356-0068-60
 ;;9002226.02101,"1202,35356-0068-60 ",.02)
 ;;35356-0068-60
 ;;9002226.02101,"1202,35356-0069-90 ",.01)
 ;;35356-0069-90
 ;;9002226.02101,"1202,35356-0069-90 ",.02)
 ;;35356-0069-90
 ;;9002226.02101,"1202,35356-0070-06 ",.01)
 ;;35356-0070-06
 ;;9002226.02101,"1202,35356-0070-06 ",.02)
 ;;35356-0070-06
 ;;9002226.02101,"1202,35356-0070-30 ",.01)
 ;;35356-0070-30
 ;;9002226.02101,"1202,35356-0070-30 ",.02)
 ;;35356-0070-30
 ;;9002226.02101,"1202,35356-0071-06 ",.01)
 ;;35356-0071-06
 ;;9002226.02101,"1202,35356-0071-06 ",.02)
 ;;35356-0071-06
 ;;9002226.02101,"1202,35356-0071-60 ",.01)
 ;;35356-0071-60
 ;;9002226.02101,"1202,35356-0071-60 ",.02)
 ;;35356-0071-60
 ;;9002226.02101,"1202,35356-0072-24 ",.01)
 ;;35356-0072-24
 ;;9002226.02101,"1202,35356-0072-24 ",.02)
 ;;35356-0072-24
 ;;9002226.02101,"1202,35356-0073-06 ",.01)
 ;;35356-0073-06
 ;;9002226.02101,"1202,35356-0073-06 ",.02)
 ;;35356-0073-06
 ;;9002226.02101,"1202,35356-0073-30 ",.01)
 ;;35356-0073-30
 ;;9002226.02101,"1202,35356-0073-30 ",.02)
 ;;35356-0073-30
 ;;9002226.02101,"1202,35356-0074-60 ",.01)
 ;;35356-0074-60
 ;;9002226.02101,"1202,35356-0074-60 ",.02)
 ;;35356-0074-60
 ;;9002226.02101,"1202,35356-0075-06 ",.01)
 ;;35356-0075-06
 ;;9002226.02101,"1202,35356-0075-06 ",.02)
 ;;35356-0075-06
 ;;9002226.02101,"1202,35356-0075-60 ",.01)
 ;;35356-0075-60
 ;;9002226.02101,"1202,35356-0075-60 ",.02)
 ;;35356-0075-60
 ;;9002226.02101,"1202,35356-0109-06 ",.01)
 ;;35356-0109-06
 ;;9002226.02101,"1202,35356-0109-06 ",.02)
 ;;35356-0109-06
 ;;9002226.02101,"1202,35356-0109-30 ",.01)
 ;;35356-0109-30
 ;;9002226.02101,"1202,35356-0109-30 ",.02)
 ;;35356-0109-30
 ;;9002226.02101,"1202,35356-0110-06 ",.01)
 ;;35356-0110-06
 ;;9002226.02101,"1202,35356-0110-06 ",.02)
 ;;35356-0110-06
 ;;9002226.02101,"1202,35356-0110-60 ",.01)
 ;;35356-0110-60
 ;;9002226.02101,"1202,35356-0110-60 ",.02)
 ;;35356-0110-60
 ;;9002226.02101,"1202,35356-0111-60 ",.01)
 ;;35356-0111-60
 ;;9002226.02101,"1202,35356-0111-60 ",.02)
 ;;35356-0111-60
 ;;9002226.02101,"1202,35356-0112-01 ",.01)
 ;;35356-0112-01
 ;;9002226.02101,"1202,35356-0112-01 ",.02)
 ;;35356-0112-01
 ;;9002226.02101,"1202,35356-0112-30 ",.01)
 ;;35356-0112-30
 ;;9002226.02101,"1202,35356-0112-30 ",.02)
 ;;35356-0112-30
 ;;9002226.02101,"1202,35356-0113-01 ",.01)
 ;;35356-0113-01
 ;;9002226.02101,"1202,35356-0113-01 ",.02)
 ;;35356-0113-01
 ;;9002226.02101,"1202,35356-0113-30 ",.01)
 ;;35356-0113-30
 ;;9002226.02101,"1202,35356-0113-30 ",.02)
 ;;35356-0113-30
 ;;9002226.02101,"1202,35356-0114-06 ",.01)
 ;;35356-0114-06
 ;;9002226.02101,"1202,35356-0114-06 ",.02)
 ;;35356-0114-06
 ;;9002226.02101,"1202,35356-0114-30 ",.01)
 ;;35356-0114-30
 ;;9002226.02101,"1202,35356-0114-30 ",.02)
 ;;35356-0114-30
 ;;9002226.02101,"1202,35356-0115-06 ",.01)
 ;;35356-0115-06
 ;;9002226.02101,"1202,35356-0115-06 ",.02)
 ;;35356-0115-06
 ;;9002226.02101,"1202,35356-0115-30 ",.01)
 ;;35356-0115-30
 ;;9002226.02101,"1202,35356-0115-30 ",.02)
 ;;35356-0115-30
 ;;9002226.02101,"1202,35356-0116-06 ",.01)
 ;;35356-0116-06
 ;;9002226.02101,"1202,35356-0116-06 ",.02)
 ;;35356-0116-06
 ;;9002226.02101,"1202,35356-0116-60 ",.01)
 ;;35356-0116-60
 ;;9002226.02101,"1202,35356-0116-60 ",.02)
 ;;35356-0116-60
 ;;9002226.02101,"1202,35356-0117-01 ",.01)
 ;;35356-0117-01
 ;;9002226.02101,"1202,35356-0117-01 ",.02)
 ;;35356-0117-01
 ;;9002226.02101,"1202,35356-0138-30 ",.01)
 ;;35356-0138-30
 ;;9002226.02101,"1202,35356-0138-30 ",.02)
 ;;35356-0138-30
 ;;9002226.02101,"1202,35356-0139-18 ",.01)
 ;;35356-0139-18