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.
  1. BGP82S4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1227,21695-0196-01 ",.01)
  1. ;;21695-0196-01
  1. ;;9002226.02101,"1227,21695-0196-01 ",.02)
  1. ;;21695-0196-01
  1. ;;9002226.02101,"1227,21695-0197-01 ",.01)
  1. ;;21695-0197-01
  1. ;;9002226.02101,"1227,21695-0197-01 ",.02)
  1. ;;21695-0197-01
  1. ;;9002226.02101,"1227,21695-0221-30 ",.01)
  1. ;;21695-0221-30
  1. ;;9002226.02101,"1227,21695-0221-30 ",.02)
  1. ;;21695-0221-30
  1. ;;9002226.02101,"1227,21695-0291-01 ",.01)
  1. ;;21695-0291-01
  1. ;;9002226.02101,"1227,21695-0291-01 ",.02)
  1. ;;21695-0291-01
  1. ;;9002226.02101,"1227,21695-0361-60 ",.01)
  1. ;;21695-0361-60
  1. ;;9002226.02101,"1227,21695-0361-60 ",.02)
  1. ;;21695-0361-60
  1. ;;9002226.02101,"1227,21695-0565-30 ",.01)
  1. ;;21695-0565-30
  1. ;;9002226.02101,"1227,21695-0565-30 ",.02)
  1. ;;21695-0565-30
  1. ;;9002226.02101,"1227,23155-0062-01 ",.01)
  1. ;;23155-0062-01
  1. ;;9002226.02101,"1227,23155-0062-01 ",.02)
  1. ;;23155-0062-01
  1. ;;9002226.02101,"1227,23155-0063-01 ",.01)
  1. ;;23155-0063-01
  1. ;;9002226.02101,"1227,23155-0063-01 ",.02)
  1. ;;23155-0063-01
  1. ;;9002226.02101,"1227,27241-0015-31 ",.01)
  1. ;;27241-0015-31
  1. ;;9002226.02101,"1227,27241-0015-31 ",.02)
  1. ;;27241-0015-31
  1. ;;9002226.02101,"1227,27241-0016-03 ",.01)
  1. ;;27241-0016-03
  1. ;;9002226.02101,"1227,27241-0016-03 ",.02)
  1. ;;27241-0016-03
  1. ;;9002226.02101,"1227,27241-0016-09 ",.01)
  1. ;;27241-0016-09
  1. ;;9002226.02101,"1227,27241-0016-09 ",.02)
  1. ;;27241-0016-09
  1. ;;9002226.02101,"1227,27241-0017-03 ",.01)
  1. ;;27241-0017-03
  1. ;;9002226.02101,"1227,27241-0017-03 ",.02)
  1. ;;27241-0017-03
  1. ;;9002226.02101,"1227,27241-0017-09 ",.01)
  1. ;;27241-0017-09
  1. ;;9002226.02101,"1227,27241-0017-09 ",.02)
  1. ;;27241-0017-09
  1. ;;9002226.02101,"1227,27241-0018-03 ",.01)
  1. ;;27241-0018-03
  1. ;;9002226.02101,"1227,27241-0018-03 ",.02)
  1. ;;27241-0018-03
  1. ;;9002226.02101,"1227,27241-0018-09 ",.01)
  1. ;;27241-0018-09
  1. ;;9002226.02101,"1227,27241-0018-09 ",.02)
  1. ;;27241-0018-09
  1. ;;9002226.02101,"1227,27241-0018-90 ",.01)
  1. ;;27241-0018-90
  1. ;;9002226.02101,"1227,27241-0018-90 ",.02)
  1. ;;27241-0018-90
  1. ;;9002226.02101,"1227,29033-0001-01 ",.01)
  1. ;;29033-0001-01
  1. ;;9002226.02101,"1227,29033-0001-01 ",.02)
  1. ;;29033-0001-01
  1. ;;9002226.02101,"1227,29033-0002-01 ",.01)
  1. ;;29033-0002-01
  1. ;;9002226.02101,"1227,29033-0002-01 ",.02)
  1. ;;29033-0002-01
  1. ;;9002226.02101,"1227,29300-0220-10 ",.01)
  1. ;;29300-0220-10
  1. ;;9002226.02101,"1227,29300-0220-10 ",.02)
  1. ;;29300-0220-10
  1. ;;9002226.02101,"1227,29300-0220-13 ",.01)
  1. ;;29300-0220-13
  1. ;;9002226.02101,"1227,29300-0220-13 ",.02)
  1. ;;29300-0220-13
  1. ;;9002226.02101,"1227,29300-0220-19 ",.01)
  1. ;;29300-0220-19
  1. ;;9002226.02101,"1227,29300-0220-19 ",.02)
  1. ;;29300-0220-19
  1. ;;9002226.02101,"1227,31722-0726-10 ",.01)
  1. ;;31722-0726-10
  1. ;;9002226.02101,"1227,31722-0726-10 ",.02)
  1. ;;31722-0726-10
  1. ;;9002226.02101,"1227,31722-0726-30 ",.01)
  1. ;;31722-0726-30
  1. ;;9002226.02101,"1227,31722-0726-30 ",.02)
  1. ;;31722-0726-30
  1. ;;9002226.02101,"1227,31722-0726-90 ",.01)
  1. ;;31722-0726-90
  1. ;;9002226.02101,"1227,31722-0726-90 ",.02)
  1. ;;31722-0726-90
  1. ;;9002226.02101,"1227,31722-0727-30 ",.01)
  1. ;;31722-0727-30
  1. ;;9002226.02101,"1227,31722-0727-30 ",.02)
  1. ;;31722-0727-30
  1. ;;9002226.02101,"1227,31722-0727-90 ",.01)
  1. ;;31722-0727-90
  1. ;;9002226.02101,"1227,31722-0727-90 ",.02)
  1. ;;31722-0727-90
  1. ;;9002226.02101,"1227,31722-0728-30 ",.01)
  1. ;;31722-0728-30
  1. ;;9002226.02101,"1227,31722-0728-30 ",.02)
  1. ;;31722-0728-30
  1. ;;9002226.02101,"1227,31722-0728-90 ",.01)
  1. ;;31722-0728-90
  1. ;;9002226.02101,"1227,31722-0728-90 ",.02)
  1. ;;31722-0728-90
  1. ;;9002226.02101,"1227,33261-0873-01 ",.01)
  1. ;;33261-0873-01
  1. ;;9002226.02101,"1227,33261-0873-01 ",.02)
  1. ;;33261-0873-01
  1. ;;9002226.02101,"1227,33261-0874-01 ",.01)
  1. ;;33261-0874-01
  1. ;;9002226.02101,"1227,33261-0874-01 ",.02)
  1. ;;33261-0874-01
  1. ;;9002226.02101,"1227,33261-0969-00 ",.01)
  1. ;;33261-0969-00
  1. ;;9002226.02101,"1227,33261-0969-00 ",.02)
  1. ;;33261-0969-00
  1. ;;9002226.02101,"1227,33261-0969-30 ",.01)
  1. ;;33261-0969-30
  1. ;;9002226.02101,"1227,33261-0969-30 ",.02)
  1. ;;33261-0969-30
  1. ;;9002226.02101,"1227,33261-0969-60 ",.01)
  1. ;;33261-0969-60
  1. ;;9002226.02101,"1227,33261-0969-60 ",.02)
  1. ;;33261-0969-60
  1. ;;9002226.02101,"1227,33261-0969-90 ",.01)
  1. ;;33261-0969-90
  1. ;;9002226.02101,"1227,33261-0969-90 ",.02)
  1. ;;33261-0969-90
  1. ;;9002226.02101,"1227,33342-0102-07 ",.01)
  1. ;;33342-0102-07
  1. ;;9002226.02101,"1227,33342-0102-07 ",.02)
  1. ;;33342-0102-07
  1. ;;9002226.02101,"1227,33342-0102-10 ",.01)
  1. ;;33342-0102-10
  1. ;;9002226.02101,"1227,33342-0102-10 ",.02)
  1. ;;33342-0102-10
  1. ;;9002226.02101,"1227,33342-0102-15 ",.01)
  1. ;;33342-0102-15
  1. ;;9002226.02101,"1227,33342-0102-15 ",.02)
  1. ;;33342-0102-15
  1. ;;9002226.02101,"1227,33342-0110-07 ",.01)
  1. ;;33342-0110-07
  1. ;;9002226.02101,"1227,33342-0110-07 ",.02)
  1. ;;33342-0110-07
  1. ;;9002226.02101,"1227,33342-0110-10 ",.01)
  1. ;;33342-0110-10
  1. ;;9002226.02101,"1227,33342-0110-10 ",.02)
  1. ;;33342-0110-10
  1. ;;9002226.02101,"1227,33342-0111-07 ",.01)
  1. ;;33342-0111-07
  1. ;;9002226.02101,"1227,33342-0111-07 ",.02)
  1. ;;33342-0111-07
  1. ;;9002226.02101,"1227,33342-0111-10 ",.01)
  1. ;;33342-0111-10
  1. ;;9002226.02101,"1227,33342-0111-10 ",.02)
  1. ;;33342-0111-10
  1. ;;9002226.02101,"1227,35356-0099-14 ",.01)
  1. ;;35356-0099-14
  1. ;;9002226.02101,"1227,35356-0099-14 ",.02)
  1. ;;35356-0099-14
  1. ;;9002226.02101,"1227,35356-0126-60 ",.01)
  1. ;;35356-0126-60
  1. ;;9002226.02101,"1227,35356-0126-60 ",.02)
  1. ;;35356-0126-60
  1. ;;9002226.02101,"1227,35356-0157-01 ",.01)
  1. ;;35356-0157-01
  1. ;;9002226.02101,"1227,35356-0157-01 ",.02)
  1. ;;35356-0157-01
  1. ;;9002226.02101,"1227,35356-0494-01 ",.01)
  1. ;;35356-0494-01
  1. ;;9002226.02101,"1227,35356-0494-01 ",.02)
  1. ;;35356-0494-01
  1. ;;9002226.02101,"1227,35356-0904-60 ",.01)
  1. ;;35356-0904-60
  1. ;;9002226.02101,"1227,35356-0904-60 ",.02)
  1. ;;35356-0904-60
  1. ;;9002226.02101,"1227,42254-0263-30 ",.01)
  1. ;;42254-0263-30
  1. ;;9002226.02101,"1227,42254-0263-30 ",.02)
  1. ;;42254-0263-30
  1. ;;9002226.02101,"1227,42254-0263-90 ",.01)
  1. ;;42254-0263-90
  1. ;;9002226.02101,"1227,42254-0263-90 ",.02)
  1. ;;42254-0263-90
  1. ;;9002226.02101,"1227,42291-0621-10 ",.01)
  1. ;;42291-0621-10
  1. ;;9002226.02101,"1227,42291-0621-10 ",.02)
  1. ;;42291-0621-10
  1. ;;9002226.02101,"1227,42291-0621-30 ",.01)
  1. ;;42291-0621-30
  1. ;;9002226.02101,"1227,42291-0621-30 ",.02)
  1. ;;42291-0621-30
  1. ;;9002226.02101,"1227,42291-0621-55 ",.01)
  1. ;;42291-0621-55
  1. ;;9002226.02101,"1227,42291-0621-55 ",.02)
  1. ;;42291-0621-55
  1. ;;9002226.02101,"1227,42291-0621-90 ",.01)
  1. ;;42291-0621-90
  1. ;;9002226.02101,"1227,42291-0621-90 ",.02)
  1. ;;42291-0621-90
  1. ;;9002226.02101,"1227,42291-0622-10 ",.01)
  1. ;;42291-0622-10
  1. ;;9002226.02101,"1227,42291-0622-10 ",.02)
  1. ;;42291-0622-10
  1. ;;9002226.02101,"1227,42291-0622-30 ",.01)
  1. ;;42291-0622-30
  1. ;;9002226.02101,"1227,42291-0622-30 ",.02)
  1. ;;42291-0622-30
  1. ;;9002226.02101,"1227,42291-0622-90 ",.01)
  1. ;;42291-0622-90
  1. ;;9002226.02101,"1227,42291-0622-90 ",.02)
  1. ;;42291-0622-90
  1. ;;9002226.02101,"1227,42291-0623-10 ",.01)
  1. ;;42291-0623-10
  1. ;;9002226.02101,"1227,42291-0623-10 ",.02)
  1. ;;42291-0623-10
  1. ;;9002226.02101,"1227,42291-0623-30 ",.01)
  1. ;;42291-0623-30
  1. ;;9002226.02101,"1227,42291-0623-30 ",.02)
  1. ;;42291-0623-30
  1. ;;9002226.02101,"1227,42291-0623-90 ",.01)
  1. ;;42291-0623-90
  1. ;;9002226.02101,"1227,42291-0623-90 ",.02)
  1. ;;42291-0623-90
  1. ;;9002226.02101,"1227,42291-0813-90 ",.01)
  1. ;;42291-0813-90
  1. ;;9002226.02101,"1227,42291-0813-90 ",.02)
  1. ;;42291-0813-90
  1. ;;9002226.02101,"1227,42291-0814-90 ",.01)
  1. ;;42291-0814-90
  1. ;;9002226.02101,"1227,42291-0814-90 ",.02)
  1. ;;42291-0814-90
  1. ;;9002226.02101,"1227,42291-0815-90 ",.01)
  1. ;;42291-0815-90
  1. ;;9002226.02101,"1227,42291-0815-90 ",.02)
  1. ;;42291-0815-90
  1. ;;9002226.02101,"1227,42858-0701-01 ",.01)
  1. ;;42858-0701-01
  1. ;;9002226.02101,"1227,42858-0701-01 ",.02)
  1. ;;42858-0701-01
  1. ;;9002226.02101,"1227,42858-0702-01 ",.01)
  1. ;;42858-0702-01
  1. ;;9002226.02101,"1227,42858-0702-01 ",.02)
  1. ;;42858-0702-01
  1. ;;9002226.02101,"1227,43063-0380-15 ",.01)
  1. ;;43063-0380-15
  1. ;;9002226.02101,"1227,43063-0380-15 ",.02)
  1. ;;43063-0380-15
  1. ;;9002226.02101,"1227,43063-0380-30 ",.01)
  1. ;;43063-0380-30
  1. ;;9002226.02101,"1227,43063-0380-30 ",.02)
  1. ;;43063-0380-30
  1. ;;9002226.02101,"1227,43063-0381-21 ",.01)
  1. ;;43063-0381-21
  1. ;;9002226.02101,"1227,43063-0381-21 ",.02)
  1. ;;43063-0381-21
  1. ;;9002226.02101,"1227,43063-0381-30 ",.01)
  1. ;;43063-0381-30
  1. ;;9002226.02101,"1227,43063-0381-30 ",.02)
  1. ;;43063-0381-30
  1. ;;9002226.02101,"1227,43063-0762-30 ",.01)
  1. ;;43063-0762-30
  1. ;;9002226.02101,"1227,43063-0762-30 ",.02)
  1. ;;43063-0762-30
  1. ;;9002226.02101,"1227,43353-0252-30 ",.01)
  1. ;;43353-0252-30
  1. ;;9002226.02101,"1227,43353-0252-30 ",.02)
  1. ;;43353-0252-30
  1. ;;9002226.02101,"1227,43353-0252-60 ",.01)
  1. ;;43353-0252-60
  1. ;;9002226.02101,"1227,43353-0252-60 ",.02)
  1. ;;43353-0252-60
  1. ;;9002226.02101,"1227,43353-0291-80 ",.01)
  1. ;;43353-0291-80
  1. ;;9002226.02101,"1227,43353-0291-80 ",.02)
  1. ;;43353-0291-80
  1. ;;9002226.02101,"1227,43353-0879-09 ",.01)
  1. ;;43353-0879-09
  1. ;;9002226.02101,"1227,43353-0879-09 ",.02)
  1. ;;43353-0879-09
  1. ;;9002226.02101,"1227,47463-0530-30 ",.01)
  1. ;;47463-0530-30
  1. ;;9002226.02101,"1227,47463-0530-30 ",.02)
  1. ;;47463-0530-30
  1. ;;9002226.02101,"1227,47463-0531-30 ",.01)
  1. ;;47463-0531-30
  1. ;;9002226.02101,"1227,47463-0531-30 ",.02)
  1. ;;47463-0531-30
  1. ;;9002226.02101,"1227,49884-0010-02 ",.01)
  1. ;;49884-0010-02
  1. ;;9002226.02101,"1227,49884-0010-02 ",.02)
  1. ;;49884-0010-02
  1. ;;9002226.02101,"1227,49884-0011-02 ",.01)
  1. ;;49884-0011-02
  1. ;;9002226.02101,"1227,49884-0011-02 ",.02)
  1. ;;49884-0011-02
  1. ;;9002226.02101,"1227,49884-0303-02 ",.01)
  1. ;;49884-0303-02
  1. ;;9002226.02101,"1227,49884-0303-02 ",.02)
  1. ;;49884-0303-02
  1. ;;9002226.02101,"1227,49884-0304-02 ",.01)
  1. ;;49884-0304-02
  1. ;;9002226.02101,"1227,49884-0304-02 ",.02)
  1. ;;49884-0304-02
  1. ;;9002226.02101,"1227,49884-0549-02 ",.01)
  1. ;;49884-0549-02
  1. ;;9002226.02101,"1227,49884-0549-02 ",.02)
  1. ;;49884-0549-02
  1. ;;9002226.02101,"1227,49884-0554-02 ",.01)
  1. ;;49884-0554-02
  1. ;;9002226.02101,"1227,49884-0554-02 ",.02)
  1. ;;49884-0554-02
  1. ;;9002226.02101,"1227,49884-0589-02 ",.01)
  1. ;;49884-0589-02
  1. ;;9002226.02101,"1227,49884-0589-02 ",.02)
  1. ;;49884-0589-02
  1. ;;9002226.02101,"1227,49884-0590-02 ",.01)
  1. ;;49884-0590-02
  1. ;;9002226.02101,"1227,49884-0590-02 ",.02)
  1. ;;49884-0590-02
  1. ;;9002226.02101,"1227,49999-0300-28 ",.01)
  1. ;;49999-0300-28
  1. ;;9002226.02101,"1227,49999-0300-28 ",.02)
  1. ;;49999-0300-28
  1. ;;9002226.02101,"1227,49999-0614-01 ",.01)
  1. ;;49999-0614-01
  1. ;;9002226.02101,"1227,49999-0614-01 ",.02)
  1. ;;49999-0614-01
  1. ;;9002226.02101,"1227,49999-0614-12 ",.01)
  1. ;;49999-0614-12
  1. ;;9002226.02101,"1227,49999-0614-12 ",.02)
  1. ;;49999-0614-12
  1. ;;9002226.02101,"1227,49999-0819-60 ",.01)
  1. ;;49999-0819-60
  1. ;;9002226.02101,"1227,49999-0819-60 ",.02)
  1. ;;49999-0819-60
  1. ;;9002226.02101,"1227,49999-0884-30 ",.01)
  1. ;;49999-0884-30
  1. ;;9002226.02101,"1227,49999-0884-30 ",.02)
  1. ;;49999-0884-30
  1. ;;9002226.02101,"1227,49999-0884-90 ",.01)
  1. ;;49999-0884-90
  1. ;;9002226.02101,"1227,49999-0884-90 ",.02)
  1. ;;49999-0884-90
  1. ;;9002226.02101,"1227,49999-0921-30 ",.01)
  1. ;;49999-0921-30
  1. ;;9002226.02101,"1227,49999-0921-30 ",.02)
  1. ;;49999-0921-30
  1. ;;9002226.02101,"1227,49999-0952-30 ",.01)
  1. ;;49999-0952-30
  1. ;;9002226.02101,"1227,49999-0952-30 ",.02)
  1. ;;49999-0952-30
  1. ;;9002226.02101,"1227,49999-0984-60 ",.01)
  1. ;;49999-0984-60
  1. ;;9002226.02101,"1227,49999-0984-60 ",.02)
  1. ;;49999-0984-60
  1. ;;9002226.02101,"1227,49999-0985-60 ",.01)
  1. ;;49999-0985-60
  1. ;;9002226.02101,"1227,49999-0985-60 ",.02)
  1. ;;49999-0985-60
  1. ;;9002226.02101,"1227,50111-0459-01 ",.01)
  1. ;;50111-0459-01
  1. ;;9002226.02101,"1227,50111-0459-01 ",.02)
  1. ;;50111-0459-01
  1. ;;9002226.02101,"1227,50111-0459-02 ",.01)
  1. ;;50111-0459-02
  1. ;;9002226.02101,"1227,50111-0459-02 ",.02)
  1. ;;50111-0459-02
  1. ;;9002226.02101,"1227,50111-0459-03 ",.01)
  1. ;;50111-0459-03