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

BGP48G3.m

Go to the documentation of this file.
BGP48G3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,"1202,00069-0807-60 ",.01)
 ;;00069-0807-60
 ;;9002226.02101,"1202,00069-0807-60 ",.02)
 ;;00069-0807-60
 ;;9002226.02101,"1202,00069-0808-60 ",.01)
 ;;00069-0808-60
 ;;9002226.02101,"1202,00069-0808-60 ",.02)
 ;;00069-0808-60
 ;;9002226.02101,"1202,00074-0522-60 ",.01)
 ;;00074-0522-60
 ;;9002226.02101,"1202,00074-0522-60 ",.02)
 ;;00074-0522-60
 ;;9002226.02101,"1202,00074-1940-63 ",.01)
 ;;00074-1940-63
 ;;9002226.02101,"1202,00074-1940-63 ",.02)
 ;;00074-1940-63
 ;;9002226.02101,"1202,00074-3333-30 ",.01)
 ;;00074-3333-30
 ;;9002226.02101,"1202,00074-3333-30 ",.02)
 ;;00074-3333-30
 ;;9002226.02101,"1202,00074-3956-46 ",.01)
 ;;00074-3956-46
 ;;9002226.02101,"1202,00074-3956-46 ",.02)
 ;;00074-3956-46
 ;;9002226.02101,"1202,00074-3959-77 ",.01)
 ;;00074-3959-77
 ;;9002226.02101,"1202,00074-3959-77 ",.02)
 ;;00074-3959-77
 ;;9002226.02101,"1202,00074-6633-22 ",.01)
 ;;00074-6633-22
 ;;9002226.02101,"1202,00074-6633-22 ",.02)
 ;;00074-6633-22
 ;;9002226.02101,"1202,00074-6633-30 ",.01)
 ;;00074-6633-30
 ;;9002226.02101,"1202,00074-6633-30 ",.02)
 ;;00074-6633-30
 ;;9002226.02101,"1202,00074-6799-22 ",.01)
 ;;00074-6799-22
 ;;9002226.02101,"1202,00074-6799-22 ",.02)
 ;;00074-6799-22
 ;;9002226.02101,"1202,00087-6614-43 ",.01)
 ;;00087-6614-43
 ;;9002226.02101,"1202,00087-6614-43 ",.02)
 ;;00087-6614-43
 ;;9002226.02101,"1202,00087-6615-43 ",.01)
 ;;00087-6615-43
 ;;9002226.02101,"1202,00087-6615-43 ",.02)
 ;;00087-6615-43
 ;;9002226.02101,"1202,00087-6632-41 ",.01)
 ;;00087-6632-41
 ;;9002226.02101,"1202,00087-6632-41 ",.02)
 ;;00087-6632-41
 ;;9002226.02101,"1202,00087-6633-41 ",.01)
 ;;00087-6633-41
 ;;9002226.02101,"1202,00087-6633-41 ",.02)
 ;;00087-6633-41
 ;;9002226.02101,"1202,00087-6650-01 ",.01)
 ;;00087-6650-01
 ;;9002226.02101,"1202,00087-6650-01 ",.02)
 ;;00087-6650-01
 ;;9002226.02101,"1202,00087-6651-01 ",.01)
 ;;00087-6651-01
 ;;9002226.02101,"1202,00087-6651-01 ",.02)
 ;;00087-6651-01
 ;;9002226.02101,"1202,00087-6652-01 ",.01)
 ;;00087-6652-01
 ;;9002226.02101,"1202,00087-6652-01 ",.02)
 ;;00087-6652-01
 ;;9002226.02101,"1202,00087-6653-01 ",.01)
 ;;00087-6653-01
 ;;9002226.02101,"1202,00087-6653-01 ",.02)
 ;;00087-6653-01
 ;;9002226.02101,"1202,00087-6665-15 ",.01)
 ;;00087-6665-15
 ;;9002226.02101,"1202,00087-6665-15 ",.02)
 ;;00087-6665-15
 ;;9002226.02101,"1202,00087-6671-17 ",.01)
 ;;00087-6671-17
 ;;9002226.02101,"1202,00087-6671-17 ",.02)
 ;;00087-6671-17
 ;;9002226.02101,"1202,00087-6672-17 ",.01)
 ;;00087-6672-17
 ;;9002226.02101,"1202,00087-6672-17 ",.02)
 ;;00087-6672-17
 ;;9002226.02101,"1202,00087-6673-17 ",.01)
 ;;00087-6673-17
 ;;9002226.02101,"1202,00087-6673-17 ",.02)
 ;;00087-6673-17
 ;;9002226.02101,"1202,00087-6674-17 ",.01)
 ;;00087-6674-17
 ;;9002226.02101,"1202,00087-6674-17 ",.02)
 ;;00087-6674-17
 ;;9002226.02101,"1202,00093-5385-06 ",.01)
 ;;00093-5385-06
 ;;9002226.02101,"1202,00093-5385-06 ",.02)
 ;;00093-5385-06
 ;;9002226.02101,"1202,00093-5530-06 ",.01)
 ;;00093-5530-06
 ;;9002226.02101,"1202,00093-5530-06 ",.02)
 ;;00093-5530-06
 ;;9002226.02101,"1202,00173-0108-55 ",.01)
 ;;00173-0108-55
 ;;9002226.02101,"1202,00173-0108-55 ",.02)
 ;;00173-0108-55
 ;;9002226.02101,"1202,00173-0108-56 ",.01)
 ;;00173-0108-56
 ;;9002226.02101,"1202,00173-0108-56 ",.02)
 ;;00173-0108-56
 ;;9002226.02101,"1202,00173-0113-18 ",.01)
 ;;00173-0113-18
 ;;9002226.02101,"1202,00173-0113-18 ",.02)
 ;;00173-0113-18
 ;;9002226.02101,"1202,00173-0470-01 ",.01)
 ;;00173-0470-01
 ;;9002226.02101,"1202,00173-0470-01 ",.02)
 ;;00173-0470-01
 ;;9002226.02101,"1202,00173-0471-00 ",.01)
 ;;00173-0471-00
 ;;9002226.02101,"1202,00173-0471-00 ",.02)
 ;;00173-0471-00
 ;;9002226.02101,"1202,00173-0501-00 ",.01)
 ;;00173-0501-00
 ;;9002226.02101,"1202,00173-0501-00 ",.02)
 ;;00173-0501-00
 ;;9002226.02101,"1202,00173-0595-00 ",.01)
 ;;00173-0595-00
 ;;9002226.02101,"1202,00173-0595-00 ",.02)
 ;;00173-0595-00
 ;;9002226.02101,"1202,00173-0595-02 ",.01)
 ;;00173-0595-02
 ;;9002226.02101,"1202,00173-0595-02 ",.02)
 ;;00173-0595-02
 ;;9002226.02101,"1202,00173-0661-00 ",.01)
 ;;00173-0661-00
 ;;9002226.02101,"1202,00173-0661-00 ",.02)
 ;;00173-0661-00
 ;;9002226.02101,"1202,00173-0661-01 ",.01)
 ;;00173-0661-01
 ;;9002226.02101,"1202,00173-0661-01 ",.02)
 ;;00173-0661-01
 ;;9002226.02101,"1202,00173-0662-00 ",.01)
 ;;00173-0662-00
 ;;9002226.02101,"1202,00173-0662-00 ",.02)
 ;;00173-0662-00
 ;;9002226.02101,"1202,00173-0663-00 ",.01)
 ;;00173-0663-00
 ;;9002226.02101,"1202,00173-0663-00 ",.02)
 ;;00173-0663-00
 ;;9002226.02101,"1202,00173-0664-00 ",.01)
 ;;00173-0664-00
 ;;9002226.02101,"1202,00173-0664-00 ",.02)
 ;;00173-0664-00
 ;;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-4050-91 ",.01)
 ;;00378-4050-91
 ;;9002226.02101,"1202,00378-4050-91 ",.02)
 ;;00378-4050-91
 ;;9002226.02101,"1202,00378-4105-91 ",.01)
 ;;00378-4105-91
 ;;9002226.02101,"1202,00378-4105-91 ",.02)
 ;;00378-4105-91
 ;;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,00597-0129-90 ",.01)
 ;;00597-0129-90
 ;;9002226.02101,"1202,00597-0129-90 ",.02)
 ;;00597-0129-90
 ;;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,13925-0500-60 ",.01)
 ;;13925-0500-60
 ;;9002226.02101,"1202,13925-0500-60 ",.02)
 ;;13925-0500-60
 ;;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,21695-0996-02 ",.01)
 ;;21695-0996-02