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

BGP53W3.m

Go to the documentation of this file.
  1. BGP53W3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,"614,14752-0 ",.02)
  1. ;;14752-0
  1. ;;9002226.02101,"614,14753-8 ",.01)
  1. ;;14753-8
  1. ;;9002226.02101,"614,14753-8 ",.02)
  1. ;;14753-8
  1. ;;9002226.02101,"614,14754-6 ",.01)
  1. ;;14754-6
  1. ;;9002226.02101,"614,14754-6 ",.02)
  1. ;;14754-6
  1. ;;9002226.02101,"614,14755-3 ",.01)
  1. ;;14755-3
  1. ;;9002226.02101,"614,14755-3 ",.02)
  1. ;;14755-3
  1. ;;9002226.02101,"614,14756-1 ",.01)
  1. ;;14756-1
  1. ;;9002226.02101,"614,14756-1 ",.02)
  1. ;;14756-1
  1. ;;9002226.02101,"614,14757-9 ",.01)
  1. ;;14757-9
  1. ;;9002226.02101,"614,14757-9 ",.02)
  1. ;;14757-9
  1. ;;9002226.02101,"614,14758-7 ",.01)
  1. ;;14758-7
  1. ;;9002226.02101,"614,14758-7 ",.02)
  1. ;;14758-7
  1. ;;9002226.02101,"614,14759-5 ",.01)
  1. ;;14759-5
  1. ;;9002226.02101,"614,14759-5 ",.02)
  1. ;;14759-5
  1. ;;9002226.02101,"614,14760-3 ",.01)
  1. ;;14760-3
  1. ;;9002226.02101,"614,14760-3 ",.02)
  1. ;;14760-3
  1. ;;9002226.02101,"614,14761-1 ",.01)
  1. ;;14761-1
  1. ;;9002226.02101,"614,14761-1 ",.02)
  1. ;;14761-1
  1. ;;9002226.02101,"614,14762-9 ",.01)
  1. ;;14762-9
  1. ;;9002226.02101,"614,14762-9 ",.02)
  1. ;;14762-9
  1. ;;9002226.02101,"614,14763-7 ",.01)
  1. ;;14763-7
  1. ;;9002226.02101,"614,14763-7 ",.02)
  1. ;;14763-7
  1. ;;9002226.02101,"614,14764-5 ",.01)
  1. ;;14764-5
  1. ;;9002226.02101,"614,14764-5 ",.02)
  1. ;;14764-5
  1. ;;9002226.02101,"614,14765-2 ",.01)
  1. ;;14765-2
  1. ;;9002226.02101,"614,14765-2 ",.02)
  1. ;;14765-2
  1. ;;9002226.02101,"614,14766-0 ",.01)
  1. ;;14766-0
  1. ;;9002226.02101,"614,14766-0 ",.02)
  1. ;;14766-0
  1. ;;9002226.02101,"614,14767-8 ",.01)
  1. ;;14767-8
  1. ;;9002226.02101,"614,14767-8 ",.02)
  1. ;;14767-8
  1. ;;9002226.02101,"614,14768-6 ",.01)
  1. ;;14768-6
  1. ;;9002226.02101,"614,14768-6 ",.02)
  1. ;;14768-6
  1. ;;9002226.02101,"614,14769-4 ",.01)
  1. ;;14769-4
  1. ;;9002226.02101,"614,14769-4 ",.02)
  1. ;;14769-4
  1. ;;9002226.02101,"614,14770-2 ",.01)
  1. ;;14770-2
  1. ;;9002226.02101,"614,14770-2 ",.02)
  1. ;;14770-2
  1. ;;9002226.02101,"614,14771-0 ",.01)
  1. ;;14771-0
  1. ;;9002226.02101,"614,14771-0 ",.02)
  1. ;;14771-0
  1. ;;9002226.02101,"614,1491-0 ",.01)
  1. ;;1491-0
  1. ;;9002226.02101,"614,1491-0 ",.02)
  1. ;;1491-0
  1. ;;9002226.02101,"614,1492-8 ",.01)
  1. ;;1492-8
  1. ;;9002226.02101,"614,1492-8 ",.02)
  1. ;;1492-8
  1. ;;9002226.02101,"614,1493-6 ",.01)
  1. ;;1493-6
  1. ;;9002226.02101,"614,1493-6 ",.02)
  1. ;;1493-6
  1. ;;9002226.02101,"614,1494-4 ",.01)
  1. ;;1494-4
  1. ;;9002226.02101,"614,1494-4 ",.02)
  1. ;;1494-4
  1. ;;9002226.02101,"614,1496-9 ",.01)
  1. ;;1496-9
  1. ;;9002226.02101,"614,1496-9 ",.02)
  1. ;;1496-9
  1. ;;9002226.02101,"614,1497-7 ",.01)
  1. ;;1497-7
  1. ;;9002226.02101,"614,1497-7 ",.02)
  1. ;;1497-7
  1. ;;9002226.02101,"614,1498-5 ",.01)
  1. ;;1498-5
  1. ;;9002226.02101,"614,1498-5 ",.02)
  1. ;;1498-5
  1. ;;9002226.02101,"614,1499-3 ",.01)
  1. ;;1499-3
  1. ;;9002226.02101,"614,1499-3 ",.02)
  1. ;;1499-3
  1. ;;9002226.02101,"614,14995-5 ",.01)
  1. ;;14995-5
  1. ;;9002226.02101,"614,14995-5 ",.02)
  1. ;;14995-5
  1. ;;9002226.02101,"614,14996-3 ",.01)
  1. ;;14996-3
  1. ;;9002226.02101,"614,14996-3 ",.02)
  1. ;;14996-3
  1. ;;9002226.02101,"614,1500-8 ",.01)
  1. ;;1500-8
  1. ;;9002226.02101,"614,1500-8 ",.02)
  1. ;;1500-8
  1. ;;9002226.02101,"614,1501-6 ",.01)
  1. ;;1501-6
  1. ;;9002226.02101,"614,1501-6 ",.02)
  1. ;;1501-6
  1. ;;9002226.02101,"614,1502-4 ",.01)
  1. ;;1502-4
  1. ;;9002226.02101,"614,1502-4 ",.02)
  1. ;;1502-4
  1. ;;9002226.02101,"614,1504-0 ",.01)
  1. ;;1504-0
  1. ;;9002226.02101,"614,1504-0 ",.02)
  1. ;;1504-0
  1. ;;9002226.02101,"614,1506-5 ",.01)
  1. ;;1506-5
  1. ;;9002226.02101,"614,1506-5 ",.02)
  1. ;;1506-5
  1. ;;9002226.02101,"614,1507-3 ",.01)
  1. ;;1507-3
  1. ;;9002226.02101,"614,1507-3 ",.02)
  1. ;;1507-3
  1. ;;9002226.02101,"614,15074-8 ",.01)
  1. ;;15074-8
  1. ;;9002226.02101,"614,15074-8 ",.02)
  1. ;;15074-8
  1. ;;9002226.02101,"614,1508-1 ",.01)
  1. ;;1508-1
  1. ;;9002226.02101,"614,1508-1 ",.02)
  1. ;;1508-1
  1. ;;9002226.02101,"614,1510-7 ",.01)
  1. ;;1510-7
  1. ;;9002226.02101,"614,1510-7 ",.02)
  1. ;;1510-7
  1. ;;9002226.02101,"614,1511-5 ",.01)
  1. ;;1511-5
  1. ;;9002226.02101,"614,1511-5 ",.02)
  1. ;;1511-5
  1. ;;9002226.02101,"614,1512-3 ",.01)
  1. ;;1512-3
  1. ;;9002226.02101,"614,1512-3 ",.02)
  1. ;;1512-3
  1. ;;9002226.02101,"614,1513-1 ",.01)
  1. ;;1513-1
  1. ;;9002226.02101,"614,1513-1 ",.02)
  1. ;;1513-1
  1. ;;9002226.02101,"614,1514-9 ",.01)
  1. ;;1514-9
  1. ;;9002226.02101,"614,1514-9 ",.02)
  1. ;;1514-9
  1. ;;9002226.02101,"614,1515-6 ",.01)
  1. ;;1515-6
  1. ;;9002226.02101,"614,1515-6 ",.02)
  1. ;;1515-6
  1. ;;9002226.02101,"614,1517-2 ",.01)
  1. ;;1517-2
  1. ;;9002226.02101,"614,1517-2 ",.02)
  1. ;;1517-2
  1. ;;9002226.02101,"614,1518-0 ",.01)
  1. ;;1518-0
  1. ;;9002226.02101,"614,1518-0 ",.02)
  1. ;;1518-0
  1. ;;9002226.02101,"614,1519-8 ",.01)
  1. ;;1519-8
  1. ;;9002226.02101,"614,1519-8 ",.02)
  1. ;;1519-8
  1. ;;9002226.02101,"614,1521-4 ",.01)
  1. ;;1521-4
  1. ;;9002226.02101,"614,1521-4 ",.02)
  1. ;;1521-4
  1. ;;9002226.02101,"614,1522-2 ",.01)
  1. ;;1522-2
  1. ;;9002226.02101,"614,1522-2 ",.02)
  1. ;;1522-2
  1. ;;9002226.02101,"614,1523-0 ",.01)
  1. ;;1523-0
  1. ;;9002226.02101,"614,1523-0 ",.02)
  1. ;;1523-0
  1. ;;9002226.02101,"614,1524-8 ",.01)
  1. ;;1524-8
  1. ;;9002226.02101,"614,1524-8 ",.02)
  1. ;;1524-8
  1. ;;9002226.02101,"614,1525-5 ",.01)
  1. ;;1525-5
  1. ;;9002226.02101,"614,1525-5 ",.02)
  1. ;;1525-5
  1. ;;9002226.02101,"614,1526-3 ",.01)
  1. ;;1526-3
  1. ;;9002226.02101,"614,1526-3 ",.02)
  1. ;;1526-3
  1. ;;9002226.02101,"614,1527-1 ",.01)
  1. ;;1527-1
  1. ;;9002226.02101,"614,1527-1 ",.02)
  1. ;;1527-1
  1. ;;9002226.02101,"614,1528-9 ",.01)
  1. ;;1528-9
  1. ;;9002226.02101,"614,1528-9 ",.02)
  1. ;;1528-9
  1. ;;9002226.02101,"614,1529-7 ",.01)
  1. ;;1529-7
  1. ;;9002226.02101,"614,1529-7 ",.02)
  1. ;;1529-7
  1. ;;9002226.02101,"614,1530-5 ",.01)
  1. ;;1530-5
  1. ;;9002226.02101,"614,1530-5 ",.02)
  1. ;;1530-5
  1. ;;9002226.02101,"614,1531-3 ",.01)
  1. ;;1531-3
  1. ;;9002226.02101,"614,1531-3 ",.02)
  1. ;;1531-3
  1. ;;9002226.02101,"614,1532-1 ",.01)
  1. ;;1532-1
  1. ;;9002226.02101,"614,1532-1 ",.02)
  1. ;;1532-1
  1. ;;9002226.02101,"614,1533-9 ",.01)
  1. ;;1533-9
  1. ;;9002226.02101,"614,1533-9 ",.02)
  1. ;;1533-9
  1. ;;9002226.02101,"614,1534-7 ",.01)
  1. ;;1534-7
  1. ;;9002226.02101,"614,1534-7 ",.02)
  1. ;;1534-7
  1. ;;9002226.02101,"614,1535-4 ",.01)
  1. ;;1535-4
  1. ;;9002226.02101,"614,1535-4 ",.02)
  1. ;;1535-4
  1. ;;9002226.02101,"614,1536-2 ",.01)
  1. ;;1536-2
  1. ;;9002226.02101,"614,1536-2 ",.02)
  1. ;;1536-2
  1. ;;9002226.02101,"614,1537-0 ",.01)
  1. ;;1537-0
  1. ;;9002226.02101,"614,1537-0 ",.02)
  1. ;;1537-0
  1. ;;9002226.02101,"614,1538-8 ",.01)
  1. ;;1538-8
  1. ;;9002226.02101,"614,1538-8 ",.02)
  1. ;;1538-8
  1. ;;9002226.02101,"614,1539-6 ",.01)
  1. ;;1539-6
  1. ;;9002226.02101,"614,1539-6 ",.02)
  1. ;;1539-6
  1. ;;9002226.02101,"614,1540-4 ",.01)
  1. ;;1540-4
  1. ;;9002226.02101,"614,1540-4 ",.02)
  1. ;;1540-4
  1. ;;9002226.02101,"614,1541-2 ",.01)
  1. ;;1541-2
  1. ;;9002226.02101,"614,1541-2 ",.02)
  1. ;;1541-2
  1. ;;9002226.02101,"614,1542-0 ",.01)
  1. ;;1542-0
  1. ;;9002226.02101,"614,1542-0 ",.02)
  1. ;;1542-0
  1. ;;9002226.02101,"614,1543-8 ",.01)
  1. ;;1543-8
  1. ;;9002226.02101,"614,1543-8 ",.02)
  1. ;;1543-8
  1. ;;9002226.02101,"614,1544-6 ",.01)
  1. ;;1544-6
  1. ;;9002226.02101,"614,1544-6 ",.02)
  1. ;;1544-6
  1. ;;9002226.02101,"614,1545-3 ",.01)
  1. ;;1545-3
  1. ;;9002226.02101,"614,1545-3 ",.02)
  1. ;;1545-3
  1. ;;9002226.02101,"614,1547-9 ",.01)
  1. ;;1547-9
  1. ;;9002226.02101,"614,1547-9 ",.02)
  1. ;;1547-9
  1. ;;9002226.02101,"614,1548-7 ",.01)
  1. ;;1548-7
  1. ;;9002226.02101,"614,1548-7 ",.02)
  1. ;;1548-7
  1. ;;9002226.02101,"614,1549-5 ",.01)
  1. ;;1549-5
  1. ;;9002226.02101,"614,1549-5 ",.02)
  1. ;;1549-5
  1. ;;9002226.02101,"614,1550-3 ",.01)
  1. ;;1550-3
  1. ;;9002226.02101,"614,1550-3 ",.02)
  1. ;;1550-3
  1. ;;9002226.02101,"614,1551-1 ",.01)
  1. ;;1551-1
  1. ;;9002226.02101,"614,1551-1 ",.02)
  1. ;;1551-1
  1. ;;9002226.02101,"614,1552-9 ",.01)
  1. ;;1552-9
  1. ;;9002226.02101,"614,1552-9 ",.02)
  1. ;;1552-9
  1. ;;9002226.02101,"614,1553-7 ",.01)
  1. ;;1553-7
  1. ;;9002226.02101,"614,1553-7 ",.02)
  1. ;;1553-7
  1. ;;9002226.02101,"614,1554-5 ",.01)
  1. ;;1554-5
  1. ;;9002226.02101,"614,1554-5 ",.02)
  1. ;;1554-5
  1. ;;9002226.02101,"614,1555-2 ",.01)
  1. ;;1555-2
  1. ;;9002226.02101,"614,1555-2 ",.02)
  1. ;;1555-2
  1. ;;9002226.02101,"614,1556-0 ",.01)
  1. ;;1556-0
  1. ;;9002226.02101,"614,1556-0 ",.02)
  1. ;;1556-0
  1. ;;9002226.02101,"614,1557-8 ",.01)
  1. ;;1557-8
  1. ;;9002226.02101,"614,1557-8 ",.02)
  1. ;;1557-8
  1. ;;9002226.02101,"614,1558-6 ",.01)
  1. ;;1558-6
  1. ;;9002226.02101,"614,1558-6 ",.02)
  1. ;;1558-6
  1. ;;9002226.02101,"614,16165-3 ",.01)
  1. ;;16165-3
  1. ;;9002226.02101,"614,16165-3 ",.02)
  1. ;;16165-3
  1. ;;9002226.02101,"614,16166-1 ",.01)
  1. ;;16166-1
  1. ;;9002226.02101,"614,16166-1 ",.02)
  1. ;;16166-1
  1. ;;9002226.02101,"614,16167-9 ",.01)
  1. ;;16167-9
  1. ;;9002226.02101,"614,16167-9 ",.02)
  1. ;;16167-9
  1. ;;9002226.02101,"614,16168-7 ",.01)
  1. ;;16168-7
  1. ;;9002226.02101,"614,16168-7 ",.02)
  1. ;;16168-7
  1. ;;9002226.02101,"614,16169-5 ",.01)
  1. ;;16169-5
  1. ;;9002226.02101,"614,16169-5 ",.02)
  1. ;;16169-5
  1. ;;9002226.02101,"614,16170-3 ",.01)
  1. ;;16170-3
  1. ;;9002226.02101,"614,16170-3 ",.02)
  1. ;;16170-3
  1. ;;9002226.02101,"614,16906-0 ",.01)
  1. ;;16906-0
  1. ;;9002226.02101,"614,16906-0 ",.02)
  1. ;;16906-0
  1. ;;9002226.02101,"614,16907-8 ",.01)
  1. ;;16907-8
  1. ;;9002226.02101,"614,16907-8 ",.02)
  1. ;;16907-8
  1. ;;9002226.02101,"614,16908-6 ",.01)
  1. ;;16908-6
  1. ;;9002226.02101,"614,16908-6 ",.02)
  1. ;;16908-6
  1. ;;9002226.02101,"614,16909-4 ",.01)
  1. ;;16909-4
  1. ;;9002226.02101,"614,16909-4 ",.02)
  1. ;;16909-4
  1. ;;9002226.02101,"614,16910-2 ",.01)
  1. ;;16910-2
  1. ;;9002226.02101,"614,16910-2 ",.02)
  1. ;;16910-2
  1. ;;9002226.02101,"614,16911-0 ",.01)
  1. ;;16911-0
  1. ;;9002226.02101,"614,16911-0 ",.02)
  1. ;;16911-0
  1. ;;9002226.02101,"614,16912-8 ",.01)
  1. ;;16912-8
  1. ;;9002226.02101,"614,16912-8 ",.02)
  1. ;;16912-8
  1. ;;9002226.02101,"614,16913-6 ",.01)
  1. ;;16913-6
  1. ;;9002226.02101,"614,16913-6 ",.02)
  1. ;;16913-6
  1. ;;9002226.02101,"614,16914-4 ",.01)
  1. ;;16914-4
  1. ;;9002226.02101,"614,16914-4 ",.02)
  1. ;;16914-4
  1. ;;9002226.02101,"614,16915-1 ",.01)
  1. ;;16915-1
  1. ;;9002226.02101,"614,16915-1 ",.02)
  1. ;;16915-1
  1. ;;9002226.02101,"614,17865-7 ",.01)
  1. ;;17865-7
  1. ;;9002226.02101,"614,17865-7 ",.02)
  1. ;;17865-7
  1. ;;9002226.02101,"614,18296-4 ",.01)
  1. ;;18296-4
  1. ;;9002226.02101,"614,18296-4 ",.02)
  1. ;;18296-4
  1. ;;9002226.02101,"614,18342-6 ",.01)
  1. ;;18342-6
  1. ;;9002226.02101,"614,18342-6 ",.02)
  1. ;;18342-6
  1. ;;9002226.02101,"614,18353-3 ",.01)
  1. ;;18353-3
  1. ;;9002226.02101,"614,18353-3 ",.02)
  1. ;;18353-3
  1. ;;9002226.02101,"614,18354-1 ",.01)
  1. ;;18354-1
  1. ;;9002226.02101,"614,18354-1 ",.02)
  1. ;;18354-1
  1. ;;9002226.02101,"614,19104-9 ",.01)
  1. ;;19104-9
  1. ;;9002226.02101,"614,19104-9 ",.02)
  1. ;;19104-9
  1. ;;9002226.02101,"614,19105-6 ",.01)
  1. ;;19105-6
  1. ;;9002226.02101,"614,19105-6 ",.02)
  1. ;;19105-6
  1. ;;9002226.02101,"614,20436-2 ",.01)
  1. ;;20436-2
  1. ;;9002226.02101,"614,20436-2 ",.02)
  1. ;;20436-2
  1. ;;9002226.02101,"614,20437-0 ",.01)
  1. ;;20437-0
  1. ;;9002226.02101,"614,20437-0 ",.02)
  1. ;;20437-0
  1. ;;9002226.02101,"614,20438-8 ",.01)
  1. ;;20438-8
  1. ;;9002226.02101,"614,20438-8 ",.02)
  1. ;;20438-8
  1. ;;9002226.02101,"614,20439-6 ",.01)
  1. ;;20439-6
  1. ;;9002226.02101,"614,20439-6 ",.02)
  1. ;;20439-6
  1. ;;9002226.02101,"614,20440-4 ",.01)
  1. ;;20440-4
  1. ;;9002226.02101,"614,20440-4 ",.02)
  1. ;;20440-4
  1. ;;9002226.02101,"614,20441-2 ",.01)
  1. ;;20441-2
  1. ;;9002226.02101,"614,20441-2 ",.02)
  1. ;;20441-2
  1. ;;9002226.02101,"614,21004-7 ",.01)
  1. ;;21004-7
  1. ;;9002226.02101,"614,21004-7 ",.02)
  1. ;;21004-7
  1. ;;9002226.02101,"614,21308-2 ",.01)
  1. ;;21308-2
  1. ;;9002226.02101,"614,21308-2 ",.02)
  1. ;;21308-2
  1. ;;9002226.02101,"614,21309-0 ",.01)
  1. ;;21309-0
  1. ;;9002226.02101,"614,21309-0 ",.02)
  1. ;;21309-0
  1. ;;9002226.02101,"614,21310-8 ",.01)
  1. ;;21310-8
  1. ;;9002226.02101,"614,21310-8 ",.02)
  1. ;;21310-8
  1. ;;9002226.02101,"614,2339-0 ",.01)
  1. ;;2339-0
  1. ;;9002226.02101,"614,2339-0 ",.02)
  1. ;;2339-0
  1. ;;9002226.02101,"614,2340-8 ",.01)
  1. ;;2340-8
  1. ;;9002226.02101,"614,2340-8 ",.02)
  1. ;;2340-8
  1. ;;9002226.02101,"614,2341-6 ",.01)
  1. ;;2341-6
  1. ;;9002226.02101,"614,2341-6 ",.02)
  1. ;;2341-6