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

BGP72E4.m

Go to the documentation of this file.
BGP72E4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1227,16729-0119-10 ",.01)
 ;;16729-0119-10
 ;;9002226.02101,"1227,16729-0119-10 ",.02)
 ;;16729-0119-10
 ;;9002226.02101,"1227,16729-0119-15 ",.01)
 ;;16729-0119-15
 ;;9002226.02101,"1227,16729-0119-15 ",.02)
 ;;16729-0119-15
 ;;9002226.02101,"1227,16729-0119-17 ",.01)
 ;;16729-0119-17
 ;;9002226.02101,"1227,16729-0119-17 ",.02)
 ;;16729-0119-17
 ;;9002226.02101,"1227,21695-0196-01 ",.01)
 ;;21695-0196-01
 ;;9002226.02101,"1227,21695-0196-01 ",.02)
 ;;21695-0196-01
 ;;9002226.02101,"1227,21695-0197-01 ",.01)
 ;;21695-0197-01
 ;;9002226.02101,"1227,21695-0197-01 ",.02)
 ;;21695-0197-01
 ;;9002226.02101,"1227,21695-0221-30 ",.01)
 ;;21695-0221-30
 ;;9002226.02101,"1227,21695-0221-30 ",.02)
 ;;21695-0221-30
 ;;9002226.02101,"1227,21695-0291-01 ",.01)
 ;;21695-0291-01
 ;;9002226.02101,"1227,21695-0291-01 ",.02)
 ;;21695-0291-01
 ;;9002226.02101,"1227,21695-0361-60 ",.01)
 ;;21695-0361-60
 ;;9002226.02101,"1227,21695-0361-60 ",.02)
 ;;21695-0361-60
 ;;9002226.02101,"1227,21695-0565-30 ",.01)
 ;;21695-0565-30
 ;;9002226.02101,"1227,21695-0565-30 ",.02)
 ;;21695-0565-30
 ;;9002226.02101,"1227,23155-0062-01 ",.01)
 ;;23155-0062-01
 ;;9002226.02101,"1227,23155-0062-01 ",.02)
 ;;23155-0062-01
 ;;9002226.02101,"1227,23155-0063-01 ",.01)
 ;;23155-0063-01
 ;;9002226.02101,"1227,23155-0063-01 ",.02)
 ;;23155-0063-01
 ;;9002226.02101,"1227,27241-0015-31 ",.01)
 ;;27241-0015-31
 ;;9002226.02101,"1227,27241-0015-31 ",.02)
 ;;27241-0015-31
 ;;9002226.02101,"1227,27241-0016-03 ",.01)
 ;;27241-0016-03
 ;;9002226.02101,"1227,27241-0016-03 ",.02)
 ;;27241-0016-03
 ;;9002226.02101,"1227,27241-0016-09 ",.01)
 ;;27241-0016-09
 ;;9002226.02101,"1227,27241-0016-09 ",.02)
 ;;27241-0016-09
 ;;9002226.02101,"1227,27241-0017-03 ",.01)
 ;;27241-0017-03
 ;;9002226.02101,"1227,27241-0017-03 ",.02)
 ;;27241-0017-03
 ;;9002226.02101,"1227,27241-0017-09 ",.01)
 ;;27241-0017-09
 ;;9002226.02101,"1227,27241-0017-09 ",.02)
 ;;27241-0017-09
 ;;9002226.02101,"1227,27241-0018-03 ",.01)
 ;;27241-0018-03
 ;;9002226.02101,"1227,27241-0018-03 ",.02)
 ;;27241-0018-03
 ;;9002226.02101,"1227,27241-0018-09 ",.01)
 ;;27241-0018-09
 ;;9002226.02101,"1227,27241-0018-09 ",.02)
 ;;27241-0018-09
 ;;9002226.02101,"1227,27241-0018-90 ",.01)
 ;;27241-0018-90
 ;;9002226.02101,"1227,27241-0018-90 ",.02)
 ;;27241-0018-90
 ;;9002226.02101,"1227,29033-0001-01 ",.01)
 ;;29033-0001-01
 ;;9002226.02101,"1227,29033-0001-01 ",.02)
 ;;29033-0001-01
 ;;9002226.02101,"1227,29033-0002-01 ",.01)
 ;;29033-0002-01
 ;;9002226.02101,"1227,29033-0002-01 ",.02)
 ;;29033-0002-01
 ;;9002226.02101,"1227,29300-0220-10 ",.01)
 ;;29300-0220-10
 ;;9002226.02101,"1227,29300-0220-10 ",.02)
 ;;29300-0220-10
 ;;9002226.02101,"1227,29300-0220-13 ",.01)
 ;;29300-0220-13
 ;;9002226.02101,"1227,29300-0220-13 ",.02)
 ;;29300-0220-13
 ;;9002226.02101,"1227,29300-0220-19 ",.01)
 ;;29300-0220-19
 ;;9002226.02101,"1227,29300-0220-19 ",.02)
 ;;29300-0220-19
 ;;9002226.02101,"1227,31722-0726-10 ",.01)
 ;;31722-0726-10
 ;;9002226.02101,"1227,31722-0726-10 ",.02)
 ;;31722-0726-10
 ;;9002226.02101,"1227,31722-0726-30 ",.01)
 ;;31722-0726-30
 ;;9002226.02101,"1227,31722-0726-30 ",.02)
 ;;31722-0726-30
 ;;9002226.02101,"1227,31722-0726-90 ",.01)
 ;;31722-0726-90
 ;;9002226.02101,"1227,31722-0726-90 ",.02)
 ;;31722-0726-90
 ;;9002226.02101,"1227,31722-0727-30 ",.01)
 ;;31722-0727-30
 ;;9002226.02101,"1227,31722-0727-30 ",.02)
 ;;31722-0727-30
 ;;9002226.02101,"1227,31722-0727-90 ",.01)
 ;;31722-0727-90
 ;;9002226.02101,"1227,31722-0727-90 ",.02)
 ;;31722-0727-90
 ;;9002226.02101,"1227,31722-0728-30 ",.01)
 ;;31722-0728-30
 ;;9002226.02101,"1227,31722-0728-30 ",.02)
 ;;31722-0728-30
 ;;9002226.02101,"1227,31722-0728-90 ",.01)
 ;;31722-0728-90
 ;;9002226.02101,"1227,31722-0728-90 ",.02)
 ;;31722-0728-90
 ;;9002226.02101,"1227,33261-0873-01 ",.01)
 ;;33261-0873-01
 ;;9002226.02101,"1227,33261-0873-01 ",.02)
 ;;33261-0873-01
 ;;9002226.02101,"1227,33261-0874-01 ",.01)
 ;;33261-0874-01
 ;;9002226.02101,"1227,33261-0874-01 ",.02)
 ;;33261-0874-01
 ;;9002226.02101,"1227,33261-0969-00 ",.01)
 ;;33261-0969-00
 ;;9002226.02101,"1227,33261-0969-00 ",.02)
 ;;33261-0969-00
 ;;9002226.02101,"1227,33261-0969-30 ",.01)
 ;;33261-0969-30
 ;;9002226.02101,"1227,33261-0969-30 ",.02)
 ;;33261-0969-30
 ;;9002226.02101,"1227,33261-0969-60 ",.01)
 ;;33261-0969-60
 ;;9002226.02101,"1227,33261-0969-60 ",.02)
 ;;33261-0969-60
 ;;9002226.02101,"1227,33261-0969-90 ",.01)
 ;;33261-0969-90
 ;;9002226.02101,"1227,33261-0969-90 ",.02)
 ;;33261-0969-90
 ;;9002226.02101,"1227,33342-0102-07 ",.01)
 ;;33342-0102-07
 ;;9002226.02101,"1227,33342-0102-07 ",.02)
 ;;33342-0102-07
 ;;9002226.02101,"1227,33342-0102-10 ",.01)
 ;;33342-0102-10
 ;;9002226.02101,"1227,33342-0102-10 ",.02)
 ;;33342-0102-10
 ;;9002226.02101,"1227,33342-0102-15 ",.01)
 ;;33342-0102-15
 ;;9002226.02101,"1227,33342-0102-15 ",.02)
 ;;33342-0102-15
 ;;9002226.02101,"1227,33342-0110-07 ",.01)
 ;;33342-0110-07
 ;;9002226.02101,"1227,33342-0110-07 ",.02)
 ;;33342-0110-07
 ;;9002226.02101,"1227,33342-0110-10 ",.01)
 ;;33342-0110-10
 ;;9002226.02101,"1227,33342-0110-10 ",.02)
 ;;33342-0110-10
 ;;9002226.02101,"1227,33342-0111-07 ",.01)
 ;;33342-0111-07
 ;;9002226.02101,"1227,33342-0111-07 ",.02)
 ;;33342-0111-07
 ;;9002226.02101,"1227,33342-0111-10 ",.01)
 ;;33342-0111-10
 ;;9002226.02101,"1227,33342-0111-10 ",.02)
 ;;33342-0111-10
 ;;9002226.02101,"1227,35356-0099-14 ",.01)
 ;;35356-0099-14
 ;;9002226.02101,"1227,35356-0099-14 ",.02)
 ;;35356-0099-14
 ;;9002226.02101,"1227,35356-0126-60 ",.01)
 ;;35356-0126-60
 ;;9002226.02101,"1227,35356-0126-60 ",.02)
 ;;35356-0126-60
 ;;9002226.02101,"1227,35356-0157-01 ",.01)
 ;;35356-0157-01
 ;;9002226.02101,"1227,35356-0157-01 ",.02)
 ;;35356-0157-01
 ;;9002226.02101,"1227,35356-0494-01 ",.01)
 ;;35356-0494-01
 ;;9002226.02101,"1227,35356-0494-01 ",.02)
 ;;35356-0494-01
 ;;9002226.02101,"1227,35356-0904-60 ",.01)
 ;;35356-0904-60
 ;;9002226.02101,"1227,35356-0904-60 ",.02)
 ;;35356-0904-60
 ;;9002226.02101,"1227,42254-0263-30 ",.01)
 ;;42254-0263-30
 ;;9002226.02101,"1227,42254-0263-30 ",.02)
 ;;42254-0263-30
 ;;9002226.02101,"1227,42254-0263-90 ",.01)
 ;;42254-0263-90
 ;;9002226.02101,"1227,42254-0263-90 ",.02)
 ;;42254-0263-90
 ;;9002226.02101,"1227,42291-0621-10 ",.01)
 ;;42291-0621-10
 ;;9002226.02101,"1227,42291-0621-10 ",.02)
 ;;42291-0621-10
 ;;9002226.02101,"1227,42291-0621-30 ",.01)
 ;;42291-0621-30
 ;;9002226.02101,"1227,42291-0621-30 ",.02)
 ;;42291-0621-30
 ;;9002226.02101,"1227,42291-0621-55 ",.01)
 ;;42291-0621-55
 ;;9002226.02101,"1227,42291-0621-55 ",.02)
 ;;42291-0621-55
 ;;9002226.02101,"1227,42291-0621-90 ",.01)
 ;;42291-0621-90
 ;;9002226.02101,"1227,42291-0621-90 ",.02)
 ;;42291-0621-90
 ;;9002226.02101,"1227,42291-0622-30 ",.01)
 ;;42291-0622-30
 ;;9002226.02101,"1227,42291-0622-30 ",.02)
 ;;42291-0622-30
 ;;9002226.02101,"1227,42291-0622-90 ",.01)
 ;;42291-0622-90
 ;;9002226.02101,"1227,42291-0622-90 ",.02)
 ;;42291-0622-90
 ;;9002226.02101,"1227,42291-0623-30 ",.01)
 ;;42291-0623-30
 ;;9002226.02101,"1227,42291-0623-30 ",.02)
 ;;42291-0623-30
 ;;9002226.02101,"1227,42291-0623-90 ",.01)
 ;;42291-0623-90
 ;;9002226.02101,"1227,42291-0623-90 ",.02)
 ;;42291-0623-90
 ;;9002226.02101,"1227,42291-0813-90 ",.01)
 ;;42291-0813-90
 ;;9002226.02101,"1227,42291-0813-90 ",.02)
 ;;42291-0813-90
 ;;9002226.02101,"1227,42291-0814-90 ",.01)
 ;;42291-0814-90
 ;;9002226.02101,"1227,42291-0814-90 ",.02)
 ;;42291-0814-90
 ;;9002226.02101,"1227,42291-0815-90 ",.01)
 ;;42291-0815-90
 ;;9002226.02101,"1227,42291-0815-90 ",.02)
 ;;42291-0815-90
 ;;9002226.02101,"1227,42858-0701-01 ",.01)
 ;;42858-0701-01
 ;;9002226.02101,"1227,42858-0701-01 ",.02)
 ;;42858-0701-01
 ;;9002226.02101,"1227,42858-0702-01 ",.01)
 ;;42858-0702-01
 ;;9002226.02101,"1227,42858-0702-01 ",.02)
 ;;42858-0702-01
 ;;9002226.02101,"1227,43063-0380-15 ",.01)
 ;;43063-0380-15
 ;;9002226.02101,"1227,43063-0380-15 ",.02)
 ;;43063-0380-15
 ;;9002226.02101,"1227,43063-0380-30 ",.01)
 ;;43063-0380-30
 ;;9002226.02101,"1227,43063-0380-30 ",.02)
 ;;43063-0380-30
 ;;9002226.02101,"1227,43063-0381-21 ",.01)
 ;;43063-0381-21
 ;;9002226.02101,"1227,43063-0381-21 ",.02)
 ;;43063-0381-21
 ;;9002226.02101,"1227,43063-0381-30 ",.01)
 ;;43063-0381-30
 ;;9002226.02101,"1227,43063-0381-30 ",.02)
 ;;43063-0381-30
 ;;9002226.02101,"1227,43353-0291-80 ",.01)
 ;;43353-0291-80
 ;;9002226.02101,"1227,43353-0291-80 ",.02)
 ;;43353-0291-80
 ;;9002226.02101,"1227,43353-0879-09 ",.01)
 ;;43353-0879-09
 ;;9002226.02101,"1227,43353-0879-09 ",.02)
 ;;43353-0879-09
 ;;9002226.02101,"1227,47463-0530-30 ",.01)
 ;;47463-0530-30
 ;;9002226.02101,"1227,47463-0530-30 ",.02)
 ;;47463-0530-30
 ;;9002226.02101,"1227,47463-0531-30 ",.01)
 ;;47463-0531-30
 ;;9002226.02101,"1227,47463-0531-30 ",.02)
 ;;47463-0531-30
 ;;9002226.02101,"1227,49884-0010-02 ",.01)
 ;;49884-0010-02
 ;;9002226.02101,"1227,49884-0010-02 ",.02)
 ;;49884-0010-02
 ;;9002226.02101,"1227,49884-0011-02 ",.01)
 ;;49884-0011-02
 ;;9002226.02101,"1227,49884-0011-02 ",.02)
 ;;49884-0011-02
 ;;9002226.02101,"1227,49884-0303-02 ",.01)
 ;;49884-0303-02
 ;;9002226.02101,"1227,49884-0303-02 ",.02)
 ;;49884-0303-02
 ;;9002226.02101,"1227,49884-0304-02 ",.01)
 ;;49884-0304-02
 ;;9002226.02101,"1227,49884-0304-02 ",.02)
 ;;49884-0304-02
 ;;9002226.02101,"1227,49884-0554-02 ",.01)
 ;;49884-0554-02
 ;;9002226.02101,"1227,49884-0554-02 ",.02)
 ;;49884-0554-02
 ;;9002226.02101,"1227,49999-0300-28 ",.01)
 ;;49999-0300-28
 ;;9002226.02101,"1227,49999-0300-28 ",.02)
 ;;49999-0300-28
 ;;9002226.02101,"1227,49999-0533-30 ",.01)
 ;;49999-0533-30
 ;;9002226.02101,"1227,49999-0533-30 ",.02)
 ;;49999-0533-30
 ;;9002226.02101,"1227,49999-0533-90 ",.01)
 ;;49999-0533-90
 ;;9002226.02101,"1227,49999-0533-90 ",.02)
 ;;49999-0533-90
 ;;9002226.02101,"1227,49999-0614-01 ",.01)
 ;;49999-0614-01
 ;;9002226.02101,"1227,49999-0614-01 ",.02)
 ;;49999-0614-01
 ;;9002226.02101,"1227,49999-0614-12 ",.01)
 ;;49999-0614-12
 ;;9002226.02101,"1227,49999-0614-12 ",.02)
 ;;49999-0614-12
 ;;9002226.02101,"1227,49999-0819-60 ",.01)
 ;;49999-0819-60
 ;;9002226.02101,"1227,49999-0819-60 ",.02)
 ;;49999-0819-60
 ;;9002226.02101,"1227,49999-0884-30 ",.01)
 ;;49999-0884-30
 ;;9002226.02101,"1227,49999-0884-30 ",.02)
 ;;49999-0884-30
 ;;9002226.02101,"1227,49999-0884-90 ",.01)
 ;;49999-0884-90
 ;;9002226.02101,"1227,49999-0884-90 ",.02)
 ;;49999-0884-90
 ;;9002226.02101,"1227,49999-0921-30 ",.01)
 ;;49999-0921-30
 ;;9002226.02101,"1227,49999-0921-30 ",.02)
 ;;49999-0921-30
 ;;9002226.02101,"1227,49999-0952-30 ",.01)
 ;;49999-0952-30
 ;;9002226.02101,"1227,49999-0952-30 ",.02)
 ;;49999-0952-30
 ;;9002226.02101,"1227,49999-0984-60 ",.01)
 ;;49999-0984-60
 ;;9002226.02101,"1227,49999-0984-60 ",.02)
 ;;49999-0984-60
 ;;9002226.02101,"1227,49999-0985-60 ",.01)
 ;;49999-0985-60
 ;;9002226.02101,"1227,49999-0985-60 ",.02)
 ;;49999-0985-60
 ;;9002226.02101,"1227,50111-0459-01 ",.01)
 ;;50111-0459-01
 ;;9002226.02101,"1227,50111-0459-01 ",.02)
 ;;50111-0459-01
 ;;9002226.02101,"1227,50111-0459-02 ",.01)
 ;;50111-0459-02
 ;;9002226.02101,"1227,50111-0459-02 ",.02)
 ;;50111-0459-02
 ;;9002226.02101,"1227,50111-0459-03 ",.01)
 ;;50111-0459-03
 ;;9002226.02101,"1227,50111-0459-03 ",.02)
 ;;50111-0459-03
 ;;9002226.02101,"1227,50111-0482-01 ",.01)
 ;;50111-0482-01
 ;;9002226.02101,"1227,50111-0482-01 ",.02)
 ;;50111-0482-01
 ;;9002226.02101,"1227,50111-0482-02 ",.01)
 ;;50111-0482-02
 ;;9002226.02101,"1227,50111-0482-02 ",.02)
 ;;50111-0482-02
 ;;9002226.02101,"1227,50111-0482-03 ",.01)
 ;;50111-0482-03