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

BGP82S4.m

Go to the documentation of this file.
BGP82S4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,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-10 ",.01)
 ;;42291-0622-10
 ;;9002226.02101,"1227,42291-0622-10 ",.02)
 ;;42291-0622-10
 ;;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-10 ",.01)
 ;;42291-0623-10
 ;;9002226.02101,"1227,42291-0623-10 ",.02)
 ;;42291-0623-10
 ;;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,43063-0762-30 ",.01)
 ;;43063-0762-30
 ;;9002226.02101,"1227,43063-0762-30 ",.02)
 ;;43063-0762-30
 ;;9002226.02101,"1227,43353-0252-30 ",.01)
 ;;43353-0252-30
 ;;9002226.02101,"1227,43353-0252-30 ",.02)
 ;;43353-0252-30
 ;;9002226.02101,"1227,43353-0252-60 ",.01)
 ;;43353-0252-60
 ;;9002226.02101,"1227,43353-0252-60 ",.02)
 ;;43353-0252-60
 ;;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-0549-02 ",.01)
 ;;49884-0549-02
 ;;9002226.02101,"1227,49884-0549-02 ",.02)
 ;;49884-0549-02
 ;;9002226.02101,"1227,49884-0554-02 ",.01)
 ;;49884-0554-02
 ;;9002226.02101,"1227,49884-0554-02 ",.02)
 ;;49884-0554-02
 ;;9002226.02101,"1227,49884-0589-02 ",.01)
 ;;49884-0589-02
 ;;9002226.02101,"1227,49884-0589-02 ",.02)
 ;;49884-0589-02
 ;;9002226.02101,"1227,49884-0590-02 ",.01)
 ;;49884-0590-02
 ;;9002226.02101,"1227,49884-0590-02 ",.02)
 ;;49884-0590-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-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