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

BGP73F85.m

Go to the documentation of this file.
  1. BGP73F85 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"868,68308-0710-10 ",.02)
  1. ;;68308-0710-10
  1. ;;9002226.02101,"868,68308-0715-10 ",.01)
  1. ;;68308-0715-10
  1. ;;9002226.02101,"868,68308-0715-10 ",.02)
  1. ;;68308-0715-10
  1. ;;9002226.02101,"868,68308-0775-60 ",.01)
  1. ;;68308-0775-60
  1. ;;9002226.02101,"868,68308-0775-60 ",.02)
  1. ;;68308-0775-60
  1. ;;9002226.02101,"868,68330-0001-01 ",.01)
  1. ;;68330-0001-01
  1. ;;9002226.02101,"868,68330-0001-01 ",.02)
  1. ;;68330-0001-01
  1. ;;9002226.02101,"868,68330-0001-10 ",.01)
  1. ;;68330-0001-10
  1. ;;9002226.02101,"868,68330-0001-10 ",.02)
  1. ;;68330-0001-10
  1. ;;9002226.02101,"868,68330-0002-01 ",.01)
  1. ;;68330-0002-01
  1. ;;9002226.02101,"868,68330-0002-01 ",.02)
  1. ;;68330-0002-01
  1. ;;9002226.02101,"868,68330-0002-10 ",.01)
  1. ;;68330-0002-10
  1. ;;9002226.02101,"868,68330-0002-10 ",.02)
  1. ;;68330-0002-10
  1. ;;9002226.02101,"868,68330-0003-01 ",.01)
  1. ;;68330-0003-01
  1. ;;9002226.02101,"868,68330-0003-01 ",.02)
  1. ;;68330-0003-01
  1. ;;9002226.02101,"868,68330-0003-10 ",.01)
  1. ;;68330-0003-10
  1. ;;9002226.02101,"868,68330-0003-10 ",.02)
  1. ;;68330-0003-10
  1. ;;9002226.02101,"868,68330-0004-01 ",.01)
  1. ;;68330-0004-01
  1. ;;9002226.02101,"868,68330-0004-01 ",.02)
  1. ;;68330-0004-01
  1. ;;9002226.02101,"868,68330-0004-10 ",.01)
  1. ;;68330-0004-10
  1. ;;9002226.02101,"868,68330-0004-10 ",.02)
  1. ;;68330-0004-10
  1. ;;9002226.02101,"868,68330-0015-25 ",.01)
  1. ;;68330-0015-25
  1. ;;9002226.02101,"868,68330-0015-25 ",.02)
  1. ;;68330-0015-25
  1. ;;9002226.02101,"868,68382-0015-01 ",.01)
  1. ;;68382-0015-01
  1. ;;9002226.02101,"868,68382-0015-01 ",.02)
  1. ;;68382-0015-01
  1. ;;9002226.02101,"868,68382-0015-18 ",.01)
  1. ;;68382-0015-18
  1. ;;9002226.02101,"868,68382-0015-18 ",.02)
  1. ;;68382-0015-18
  1. ;;9002226.02101,"868,68382-0016-01 ",.01)
  1. ;;68382-0016-01
  1. ;;9002226.02101,"868,68382-0016-01 ",.02)
  1. ;;68382-0016-01
  1. ;;9002226.02101,"868,68382-0016-18 ",.01)
  1. ;;68382-0016-18
  1. ;;9002226.02101,"868,68382-0016-18 ",.02)
  1. ;;68382-0016-18
  1. ;;9002226.02101,"868,68382-0017-01 ",.01)
  1. ;;68382-0017-01
  1. ;;9002226.02101,"868,68382-0017-01 ",.02)
  1. ;;68382-0017-01
  1. ;;9002226.02101,"868,68382-0017-18 ",.01)
  1. ;;68382-0017-18
  1. ;;9002226.02101,"868,68382-0017-18 ",.02)
  1. ;;68382-0017-18
  1. ;;9002226.02101,"868,68382-0707-18 ",.01)
  1. ;;68382-0707-18
  1. ;;9002226.02101,"868,68382-0707-18 ",.02)
  1. ;;68382-0707-18
  1. ;;9002226.02101,"868,68382-0761-14 ",.01)
  1. ;;68382-0761-14
  1. ;;9002226.02101,"868,68382-0761-14 ",.02)
  1. ;;68382-0761-14
  1. ;;9002226.02101,"868,68382-0762-14 ",.01)
  1. ;;68382-0762-14
  1. ;;9002226.02101,"868,68382-0762-14 ",.02)
  1. ;;68382-0762-14
  1. ;;9002226.02101,"868,68382-0763-14 ",.01)
  1. ;;68382-0763-14
  1. ;;9002226.02101,"868,68382-0763-14 ",.02)
  1. ;;68382-0763-14
  1. ;;9002226.02101,"868,68382-0764-05 ",.01)
  1. ;;68382-0764-05
  1. ;;9002226.02101,"868,68382-0764-05 ",.02)
  1. ;;68382-0764-05
  1. ;;9002226.02101,"868,68382-0764-06 ",.01)
  1. ;;68382-0764-06
  1. ;;9002226.02101,"868,68382-0764-06 ",.02)
  1. ;;68382-0764-06
  1. ;;9002226.02101,"868,68382-0765-05 ",.01)
  1. ;;68382-0765-05
  1. ;;9002226.02101,"868,68382-0765-05 ",.02)
  1. ;;68382-0765-05
  1. ;;9002226.02101,"868,68382-0765-06 ",.01)
  1. ;;68382-0765-06
  1. ;;9002226.02101,"868,68382-0765-06 ",.02)
  1. ;;68382-0765-06
  1. ;;9002226.02101,"868,68382-0782-01 ",.01)
  1. ;;68382-0782-01
  1. ;;9002226.02101,"868,68382-0782-01 ",.02)
  1. ;;68382-0782-01
  1. ;;9002226.02101,"868,68387-0117-30 ",.01)
  1. ;;68387-0117-30
  1. ;;9002226.02101,"868,68387-0117-30 ",.02)
  1. ;;68387-0117-30
  1. ;;9002226.02101,"868,68387-0190-20 ",.01)
  1. ;;68387-0190-20
  1. ;;9002226.02101,"868,68387-0190-20 ",.02)
  1. ;;68387-0190-20
  1. ;;9002226.02101,"868,68387-0190-21 ",.01)
  1. ;;68387-0190-21
  1. ;;9002226.02101,"868,68387-0190-21 ",.02)
  1. ;;68387-0190-21
  1. ;;9002226.02101,"868,68387-0190-30 ",.01)
  1. ;;68387-0190-30
  1. ;;9002226.02101,"868,68387-0190-30 ",.02)
  1. ;;68387-0190-30
  1. ;;9002226.02101,"868,68387-0190-40 ",.01)
  1. ;;68387-0190-40
  1. ;;9002226.02101,"868,68387-0190-40 ",.02)
  1. ;;68387-0190-40
  1. ;;9002226.02101,"868,68387-0380-20 ",.01)
  1. ;;68387-0380-20
  1. ;;9002226.02101,"868,68387-0380-20 ",.02)
  1. ;;68387-0380-20
  1. ;;9002226.02101,"868,68387-0385-20 ",.01)
  1. ;;68387-0385-20
  1. ;;9002226.02101,"868,68387-0385-20 ",.02)
  1. ;;68387-0385-20
  1. ;;9002226.02101,"868,68387-0385-30 ",.01)
  1. ;;68387-0385-30
  1. ;;9002226.02101,"868,68387-0385-30 ",.02)
  1. ;;68387-0385-30
  1. ;;9002226.02101,"868,68387-0385-60 ",.01)
  1. ;;68387-0385-60
  1. ;;9002226.02101,"868,68387-0385-60 ",.02)
  1. ;;68387-0385-60
  1. ;;9002226.02101,"868,68387-0390-20 ",.01)
  1. ;;68387-0390-20
  1. ;;9002226.02101,"868,68387-0390-20 ",.02)
  1. ;;68387-0390-20
  1. ;;9002226.02101,"868,68387-0390-28 ",.01)
  1. ;;68387-0390-28
  1. ;;9002226.02101,"868,68387-0390-28 ",.02)
  1. ;;68387-0390-28
  1. ;;9002226.02101,"868,68387-0430-30 ",.01)
  1. ;;68387-0430-30
  1. ;;9002226.02101,"868,68387-0430-30 ",.02)
  1. ;;68387-0430-30
  1. ;;9002226.02101,"868,68387-0430-40 ",.01)
  1. ;;68387-0430-40
  1. ;;9002226.02101,"868,68387-0430-40 ",.02)
  1. ;;68387-0430-40
  1. ;;9002226.02101,"868,68387-0470-14 ",.01)
  1. ;;68387-0470-14
  1. ;;9002226.02101,"868,68387-0470-14 ",.02)
  1. ;;68387-0470-14
  1. ;;9002226.02101,"868,68387-0470-20 ",.01)
  1. ;;68387-0470-20
  1. ;;9002226.02101,"868,68387-0470-20 ",.02)
  1. ;;68387-0470-20
  1. ;;9002226.02101,"868,68387-0534-01 ",.01)
  1. ;;68387-0534-01
  1. ;;9002226.02101,"868,68387-0534-01 ",.02)
  1. ;;68387-0534-01
  1. ;;9002226.02101,"868,68387-0535-15 ",.01)
  1. ;;68387-0535-15
  1. ;;9002226.02101,"868,68387-0535-15 ",.02)
  1. ;;68387-0535-15
  1. ;;9002226.02101,"868,68387-0535-20 ",.01)
  1. ;;68387-0535-20
  1. ;;9002226.02101,"868,68387-0535-20 ",.02)
  1. ;;68387-0535-20
  1. ;;9002226.02101,"868,68387-0565-06 ",.01)
  1. ;;68387-0565-06
  1. ;;9002226.02101,"868,68387-0565-06 ",.02)
  1. ;;68387-0565-06
  1. ;;9002226.02101,"868,68387-0580-15 ",.01)
  1. ;;68387-0580-15
  1. ;;9002226.02101,"868,68387-0580-15 ",.02)
  1. ;;68387-0580-15
  1. ;;9002226.02101,"868,68453-0112-10 ",.01)
  1. ;;68453-0112-10
  1. ;;9002226.02101,"868,68453-0112-10 ",.02)
  1. ;;68453-0112-10
  1. ;;9002226.02101,"868,68453-0113-10 ",.01)
  1. ;;68453-0113-10
  1. ;;9002226.02101,"868,68453-0113-10 ",.02)
  1. ;;68453-0113-10
  1. ;;9002226.02101,"868,68453-0115-05 ",.01)
  1. ;;68453-0115-05
  1. ;;9002226.02101,"868,68453-0115-05 ",.02)
  1. ;;68453-0115-05
  1. ;;9002226.02101,"868,68453-0142-03 ",.01)
  1. ;;68453-0142-03
  1. ;;9002226.02101,"868,68453-0142-03 ",.02)
  1. ;;68453-0142-03
  1. ;;9002226.02101,"868,68462-0339-01 ",.01)
  1. ;;68462-0339-01
  1. ;;9002226.02101,"868,68462-0339-01 ",.02)
  1. ;;68462-0339-01
  1. ;;9002226.02101,"868,68462-0339-05 ",.01)
  1. ;;68462-0339-05
  1. ;;9002226.02101,"868,68462-0339-05 ",.02)
  1. ;;68462-0339-05
  1. ;;9002226.02101,"868,68462-0340-01 ",.01)
  1. ;;68462-0340-01
  1. ;;9002226.02101,"868,68462-0340-01 ",.02)
  1. ;;68462-0340-01
  1. ;;9002226.02101,"868,68462-0340-05 ",.01)
  1. ;;68462-0340-05
  1. ;;9002226.02101,"868,68462-0340-05 ",.02)
  1. ;;68462-0340-05
  1. ;;9002226.02101,"868,68645-0030-20 ",.01)
  1. ;;68645-0030-20
  1. ;;9002226.02101,"868,68645-0030-20 ",.02)
  1. ;;68645-0030-20
  1. ;;9002226.02101,"868,68774-0120-60 ",.01)
  1. ;;68774-0120-60
  1. ;;9002226.02101,"868,68774-0120-60 ",.02)
  1. ;;68774-0120-60
  1. ;;9002226.02101,"868,68774-0122-60 ",.01)
  1. ;;68774-0122-60
  1. ;;9002226.02101,"868,68774-0122-60 ",.02)
  1. ;;68774-0122-60
  1. ;;9002226.02101,"868,68774-0302-29 ",.01)
  1. ;;68774-0302-29
  1. ;;9002226.02101,"868,68774-0302-29 ",.02)
  1. ;;68774-0302-29
  1. ;;9002226.02101,"868,68774-0302-35 ",.01)
  1. ;;68774-0302-35
  1. ;;9002226.02101,"868,68774-0302-35 ",.02)
  1. ;;68774-0302-35
  1. ;;9002226.02101,"868,68774-0303-29 ",.01)
  1. ;;68774-0303-29
  1. ;;9002226.02101,"868,68774-0303-29 ",.02)
  1. ;;68774-0303-29
  1. ;;9002226.02101,"868,68774-0303-35 ",.01)
  1. ;;68774-0303-35
  1. ;;9002226.02101,"868,68774-0303-35 ",.02)
  1. ;;68774-0303-35
  1. ;;9002226.02101,"868,68820-0063-06 ",.01)
  1. ;;68820-0063-06
  1. ;;9002226.02101,"868,68820-0063-06 ",.02)
  1. ;;68820-0063-06
  1. ;;9002226.02101,"868,68820-0063-19 ",.01)
  1. ;;68820-0063-19
  1. ;;9002226.02101,"868,68820-0063-19 ",.02)
  1. ;;68820-0063-19
  1. ;;9002226.02101,"868,68820-0064-17 ",.01)
  1. ;;68820-0064-17
  1. ;;9002226.02101,"868,68820-0064-17 ",.02)
  1. ;;68820-0064-17
  1. ;;9002226.02101,"868,68820-0064-37 ",.01)
  1. ;;68820-0064-37
  1. ;;9002226.02101,"868,68820-0064-37 ",.02)
  1. ;;68820-0064-37
  1. ;;9002226.02101,"868,68820-0065-17 ",.01)
  1. ;;68820-0065-17
  1. ;;9002226.02101,"868,68820-0065-17 ",.02)
  1. ;;68820-0065-17
  1. ;;9002226.02101,"868,68820-0065-37 ",.01)
  1. ;;68820-0065-37
  1. ;;9002226.02101,"868,68820-0065-37 ",.02)
  1. ;;68820-0065-37
  1. ;;9002226.02101,"868,69007-0822-30 ",.01)
  1. ;;69007-0822-30
  1. ;;9002226.02101,"868,69007-0822-30 ",.02)
  1. ;;69007-0822-30
  1. ;;9002226.02101,"868,69097-0226-70 ",.01)
  1. ;;69097-0226-70
  1. ;;9002226.02101,"868,69097-0226-70 ",.02)
  1. ;;69097-0226-70
  1. ;;9002226.02101,"868,69097-0227-70 ",.01)
  1. ;;69097-0227-70
  1. ;;9002226.02101,"868,69097-0227-70 ",.02)
  1. ;;69097-0227-70
  1. ;;9002226.02101,"868,69235-0310-50 ",.01)
  1. ;;69235-0310-50
  1. ;;9002226.02101,"868,69235-0310-50 ",.02)
  1. ;;69235-0310-50
  1. ;;9002226.02101,"868,69489-0111-60 ",.01)
  1. ;;69489-0111-60
  1. ;;9002226.02101,"868,69489-0111-60 ",.02)
  1. ;;69489-0111-60
  1. ;;9002226.02101,"868,69543-0101-10 ",.01)
  1. ;;69543-0101-10
  1. ;;9002226.02101,"868,69543-0101-10 ",.02)
  1. ;;69543-0101-10
  1. ;;9002226.02101,"868,69543-0101-50 ",.01)
  1. ;;69543-0101-50
  1. ;;9002226.02101,"868,69543-0101-50 ",.02)
  1. ;;69543-0101-50
  1. ;;9002226.02101,"868,69543-0102-10 ",.01)
  1. ;;69543-0102-10
  1. ;;9002226.02101,"868,69543-0102-10 ",.02)
  1. ;;69543-0102-10
  1. ;;9002226.02101,"868,69543-0102-50 ",.01)
  1. ;;69543-0102-50
  1. ;;9002226.02101,"868,69543-0102-50 ",.02)
  1. ;;69543-0102-50
  1. ;;9002226.02101,"868,69654-0501-05 ",.01)
  1. ;;69654-0501-05
  1. ;;9002226.02101,"868,69654-0501-05 ",.02)
  1. ;;69654-0501-05
  1. ;;9002226.02101,"868,69668-0431-01 ",.01)
  1. ;;69668-0431-01
  1. ;;9002226.02101,"868,69668-0431-01 ",.02)
  1. ;;69668-0431-01
  1. ;;9002226.02101,"868,69668-0432-01 ",.01)
  1. ;;69668-0432-01
  1. ;;9002226.02101,"868,69668-0432-01 ",.02)
  1. ;;69668-0432-01
  1. ;;9002226.02101,"868,69668-0433-01 ",.01)
  1. ;;69668-0433-01
  1. ;;9002226.02101,"868,69668-0433-01 ",.02)
  1. ;;69668-0433-01
  1. ;;9002226.02101,"868,76439-0101-10 ",.01)
  1. ;;76439-0101-10
  1. ;;9002226.02101,"868,76439-0101-10 ",.02)
  1. ;;76439-0101-10
  1. ;;9002226.02101,"868,76439-0101-50 ",.01)
  1. ;;76439-0101-50
  1. ;;9002226.02101,"868,76439-0101-50 ",.02)
  1. ;;76439-0101-50
  1. ;;9002226.02101,"868,76439-0102-10 ",.01)
  1. ;;76439-0102-10
  1. ;;9002226.02101,"868,76439-0102-10 ",.02)
  1. ;;76439-0102-10
  1. ;;9002226.02101,"868,76439-0102-50 ",.01)
  1. ;;76439-0102-50
  1. ;;9002226.02101,"868,76439-0102-50 ",.02)
  1. ;;76439-0102-50
  1. ;;9002226.02101,"868,76439-0103-10 ",.01)
  1. ;;76439-0103-10
  1. ;;9002226.02101,"868,76439-0103-10 ",.02)
  1. ;;76439-0103-10
  1. ;;9002226.02101,"868,76439-0103-50 ",.01)
  1. ;;76439-0103-50
  1. ;;9002226.02101,"868,76439-0103-50 ",.02)
  1. ;;76439-0103-50
  1. ;;9002226.02101,"868,76439-0104-10 ",.01)
  1. ;;76439-0104-10
  1. ;;9002226.02101,"868,76439-0104-10 ",.02)
  1. ;;76439-0104-10
  1. ;;9002226.02101,"868,76439-0104-50 ",.01)
  1. ;;76439-0104-50
  1. ;;9002226.02101,"868,76439-0104-50 ",.02)
  1. ;;76439-0104-50
  1. ;;9002226.02101,"868,99207-0460-10 ",.01)
  1. ;;99207-0460-10
  1. ;;9002226.02101,"868,99207-0460-10 ",.02)
  1. ;;99207-0460-10
  1. ;;9002226.02101,"868,99207-0460-30 ",.01)
  1. ;;99207-0460-30
  1. ;;9002226.02101,"868,99207-0460-30 ",.02)
  1. ;;99207-0460-30
  1. ;;9002226.02101,"868,99207-0461-10 ",.01)
  1. ;;99207-0461-10
  1. ;;9002226.02101,"868,99207-0461-10 ",.02)
  1. ;;99207-0461-10
  1. ;;9002226.02101,"868,99207-0461-30 ",.01)
  1. ;;99207-0461-30
  1. ;;9002226.02101,"868,99207-0461-30 ",.02)
  1. ;;99207-0461-30
  1. ;;9002226.02101,"868,99207-0462-10 ",.01)
  1. ;;99207-0462-10
  1. ;;9002226.02101,"868,99207-0462-10 ",.02)
  1. ;;99207-0462-10
  1. ;;9002226.02101,"868,99207-0462-30 ",.01)
  1. ;;99207-0462-30
  1. ;;9002226.02101,"868,99207-0462-30 ",.02)
  1. ;;99207-0462-30
  1. ;;9002226.02101,"868,99207-0463-30 ",.01)
  1. ;;99207-0463-30
  1. ;;9002226.02101,"868,99207-0463-30 ",.02)
  1. ;;99207-0463-30
  1. ;;9002226.02101,"868,99207-0464-30 ",.01)
  1. ;;99207-0464-30