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

BGP51X3.m

Go to the documentation of this file.
BGP51X3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,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,00527-1905-06 ",.01)
 ;;00527-1905-06
 ;;9002226.02101,"1202,00527-1905-06 ",.02)
 ;;00527-1905-06
 ;;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-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-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
 ;;9002226.02101,"1202,21695-0996-02 ",.02)
 ;;21695-0996-02
 ;;9002226.02101,"1202,21695-0996-60 ",.01)
 ;;21695-0996-60
 ;;9002226.02101,"1202,21695-0996-60 ",.02)
 ;;21695-0996-60
 ;;9002226.02101,"1202,23490-7087-06 ",.01)
 ;;23490-7087-06
 ;;9002226.02101,"1202,23490-7087-06 ",.02)
 ;;23490-7087-06
 ;;9002226.02101,"1202,31722-0505-60 ",.01)
 ;;31722-0505-60
 ;;9002226.02101,"1202,31722-0505-60 ",.02)
 ;;31722-0505-60
 ;;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,31722-0557-60 ",.01)
 ;;31722-0557-60
 ;;9002226.02101,"1202,31722-0557-60 ",.02)
 ;;31722-0557-60
 ;;9002226.02101,"1202,31722-0753-60 ",.01)
 ;;31722-0753-60
 ;;9002226.02101,"1202,31722-0753-60 ",.02)
 ;;31722-0753-60
 ;;9002226.02101,"1202,31722-0754-30 ",.01)
 ;;31722-0754-30
 ;;9002226.02101,"1202,31722-0754-30 ",.02)
 ;;31722-0754-30
 ;;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-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-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
 ;;9002226.02101,"1202,35356-0139-18 ",.02)
 ;;35356-0139-18
 ;;9002226.02101,"1202,35356-0139-60 ",.01)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0139-60 ",.02)
 ;;35356-0139-60
 ;;9002226.02101,"1202,35356-0186-30 ",.01)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0186-30 ",.02)
 ;;35356-0186-30
 ;;9002226.02101,"1202,35356-0205-30 ",.01)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0205-30 ",.02)
 ;;35356-0205-30
 ;;9002226.02101,"1202,35356-0207-60 ",.01)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0207-60 ",.02)
 ;;35356-0207-60
 ;;9002226.02101,"1202,35356-0208-60 ",.01)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0208-60 ",.02)
 ;;35356-0208-60
 ;;9002226.02101,"1202,35356-0209-60 ",.01)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0209-60 ",.02)
 ;;35356-0209-60
 ;;9002226.02101,"1202,35356-0259-30 ",.01)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0259-30 ",.02)
 ;;35356-0259-30
 ;;9002226.02101,"1202,35356-0284-60 ",.01)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0284-60 ",.02)
 ;;35356-0284-60
 ;;9002226.02101,"1202,35356-0285-60 ",.01)
 ;;35356-0285-60
 ;;9002226.02101,"1202,35356-0285-60 ",.02)
 ;;35356-0285-60
 ;;9002226.02101,"1202,42254-0381-02 ",.01)
 ;;42254-0381-02
 ;;9002226.02101,"1202,42254-0381-02 ",.02)
 ;;42254-0381-02
 ;;9002226.02101,"1202,42254-0381-06 ",.01)
 ;;42254-0381-06
 ;;9002226.02101,"1202,42254-0381-06 ",.02)
 ;;42254-0381-06
 ;;9002226.02101,"1202,42291-0363-60 ",.01)
 ;;42291-0363-60
 ;;9002226.02101,"1202,42291-0363-60 ",.02)
 ;;42291-0363-60
 ;;9002226.02101,"1202,42799-0113-01 ",.01)
 ;;42799-0113-01
 ;;9002226.02101,"1202,42799-0113-01 ",.02)
 ;;42799-0113-01
 ;;9002226.02101,"1202,42799-0403-01 ",.01)
 ;;42799-0403-01
 ;;9002226.02101,"1202,42799-0403-01 ",.02)
 ;;42799-0403-01