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

BGP50Y3.m

Go to the documentation of this file.
BGP50Y3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"710,1510-7 ",.02)
 ;;1510-7
 ;;9002226.02101,"710,1511-5 ",.01)
 ;;1511-5
 ;;9002226.02101,"710,1511-5 ",.02)
 ;;1511-5
 ;;9002226.02101,"710,1512-3 ",.01)
 ;;1512-3
 ;;9002226.02101,"710,1512-3 ",.02)
 ;;1512-3
 ;;9002226.02101,"710,1513-1 ",.01)
 ;;1513-1
 ;;9002226.02101,"710,1513-1 ",.02)
 ;;1513-1
 ;;9002226.02101,"710,1514-9 ",.01)
 ;;1514-9
 ;;9002226.02101,"710,1514-9 ",.02)
 ;;1514-9
 ;;9002226.02101,"710,1515-6 ",.01)
 ;;1515-6
 ;;9002226.02101,"710,1515-6 ",.02)
 ;;1515-6
 ;;9002226.02101,"710,1517-2 ",.01)
 ;;1517-2
 ;;9002226.02101,"710,1517-2 ",.02)
 ;;1517-2
 ;;9002226.02101,"710,1518-0 ",.01)
 ;;1518-0
 ;;9002226.02101,"710,1518-0 ",.02)
 ;;1518-0
 ;;9002226.02101,"710,1519-8 ",.01)
 ;;1519-8
 ;;9002226.02101,"710,1519-8 ",.02)
 ;;1519-8
 ;;9002226.02101,"710,1521-4 ",.01)
 ;;1521-4
 ;;9002226.02101,"710,1521-4 ",.02)
 ;;1521-4
 ;;9002226.02101,"710,1522-2 ",.01)
 ;;1522-2
 ;;9002226.02101,"710,1522-2 ",.02)
 ;;1522-2
 ;;9002226.02101,"710,1523-0 ",.01)
 ;;1523-0
 ;;9002226.02101,"710,1523-0 ",.02)
 ;;1523-0
 ;;9002226.02101,"710,1524-8 ",.01)
 ;;1524-8
 ;;9002226.02101,"710,1524-8 ",.02)
 ;;1524-8
 ;;9002226.02101,"710,1525-5 ",.01)
 ;;1525-5
 ;;9002226.02101,"710,1525-5 ",.02)
 ;;1525-5
 ;;9002226.02101,"710,1526-3 ",.01)
 ;;1526-3
 ;;9002226.02101,"710,1526-3 ",.02)
 ;;1526-3
 ;;9002226.02101,"710,1527-1 ",.01)
 ;;1527-1
 ;;9002226.02101,"710,1527-1 ",.02)
 ;;1527-1
 ;;9002226.02101,"710,1528-9 ",.01)
 ;;1528-9
 ;;9002226.02101,"710,1528-9 ",.02)
 ;;1528-9
 ;;9002226.02101,"710,1529-7 ",.01)
 ;;1529-7
 ;;9002226.02101,"710,1529-7 ",.02)
 ;;1529-7
 ;;9002226.02101,"710,1530-5 ",.01)
 ;;1530-5
 ;;9002226.02101,"710,1530-5 ",.02)
 ;;1530-5
 ;;9002226.02101,"710,1531-3 ",.01)
 ;;1531-3
 ;;9002226.02101,"710,1531-3 ",.02)
 ;;1531-3
 ;;9002226.02101,"710,1532-1 ",.01)
 ;;1532-1
 ;;9002226.02101,"710,1532-1 ",.02)
 ;;1532-1
 ;;9002226.02101,"710,1533-9 ",.01)
 ;;1533-9
 ;;9002226.02101,"710,1533-9 ",.02)
 ;;1533-9
 ;;9002226.02101,"710,1534-7 ",.01)
 ;;1534-7
 ;;9002226.02101,"710,1534-7 ",.02)
 ;;1534-7
 ;;9002226.02101,"710,1535-4 ",.01)
 ;;1535-4
 ;;9002226.02101,"710,1535-4 ",.02)
 ;;1535-4
 ;;9002226.02101,"710,1536-2 ",.01)
 ;;1536-2
 ;;9002226.02101,"710,1536-2 ",.02)
 ;;1536-2
 ;;9002226.02101,"710,1537-0 ",.01)
 ;;1537-0
 ;;9002226.02101,"710,1537-0 ",.02)
 ;;1537-0
 ;;9002226.02101,"710,1538-8 ",.01)
 ;;1538-8
 ;;9002226.02101,"710,1538-8 ",.02)
 ;;1538-8
 ;;9002226.02101,"710,1539-6 ",.01)
 ;;1539-6
 ;;9002226.02101,"710,1539-6 ",.02)
 ;;1539-6
 ;;9002226.02101,"710,1540-4 ",.01)
 ;;1540-4
 ;;9002226.02101,"710,1540-4 ",.02)
 ;;1540-4
 ;;9002226.02101,"710,1541-2 ",.01)
 ;;1541-2
 ;;9002226.02101,"710,1541-2 ",.02)
 ;;1541-2
 ;;9002226.02101,"710,1542-0 ",.01)
 ;;1542-0
 ;;9002226.02101,"710,1542-0 ",.02)
 ;;1542-0
 ;;9002226.02101,"710,1543-8 ",.01)
 ;;1543-8
 ;;9002226.02101,"710,1543-8 ",.02)
 ;;1543-8
 ;;9002226.02101,"710,1544-6 ",.01)
 ;;1544-6
 ;;9002226.02101,"710,1544-6 ",.02)
 ;;1544-6
 ;;9002226.02101,"710,1545-3 ",.01)
 ;;1545-3
 ;;9002226.02101,"710,1545-3 ",.02)
 ;;1545-3
 ;;9002226.02101,"710,1547-9 ",.01)
 ;;1547-9
 ;;9002226.02101,"710,1547-9 ",.02)
 ;;1547-9
 ;;9002226.02101,"710,1548-7 ",.01)
 ;;1548-7
 ;;9002226.02101,"710,1548-7 ",.02)
 ;;1548-7
 ;;9002226.02101,"710,1549-5 ",.01)
 ;;1549-5
 ;;9002226.02101,"710,1549-5 ",.02)
 ;;1549-5
 ;;9002226.02101,"710,1550-3 ",.01)
 ;;1550-3
 ;;9002226.02101,"710,1550-3 ",.02)
 ;;1550-3
 ;;9002226.02101,"710,1551-1 ",.01)
 ;;1551-1
 ;;9002226.02101,"710,1551-1 ",.02)
 ;;1551-1
 ;;9002226.02101,"710,1552-9 ",.01)
 ;;1552-9
 ;;9002226.02101,"710,1552-9 ",.02)
 ;;1552-9
 ;;9002226.02101,"710,1553-7 ",.01)
 ;;1553-7
 ;;9002226.02101,"710,1553-7 ",.02)
 ;;1553-7
 ;;9002226.02101,"710,1554-5 ",.01)
 ;;1554-5
 ;;9002226.02101,"710,1554-5 ",.02)
 ;;1554-5
 ;;9002226.02101,"710,1555-2 ",.01)
 ;;1555-2
 ;;9002226.02101,"710,1555-2 ",.02)
 ;;1555-2
 ;;9002226.02101,"710,1556-0 ",.01)
 ;;1556-0
 ;;9002226.02101,"710,1556-0 ",.02)
 ;;1556-0
 ;;9002226.02101,"710,1557-8 ",.01)
 ;;1557-8
 ;;9002226.02101,"710,1557-8 ",.02)
 ;;1557-8
 ;;9002226.02101,"710,1558-6 ",.01)
 ;;1558-6
 ;;9002226.02101,"710,1558-6 ",.02)
 ;;1558-6
 ;;9002226.02101,"710,16165-3 ",.01)
 ;;16165-3
 ;;9002226.02101,"710,16165-3 ",.02)
 ;;16165-3
 ;;9002226.02101,"710,16166-1 ",.01)
 ;;16166-1
 ;;9002226.02101,"710,16166-1 ",.02)
 ;;16166-1
 ;;9002226.02101,"710,16167-9 ",.01)
 ;;16167-9
 ;;9002226.02101,"710,16167-9 ",.02)
 ;;16167-9
 ;;9002226.02101,"710,16168-7 ",.01)
 ;;16168-7
 ;;9002226.02101,"710,16168-7 ",.02)
 ;;16168-7
 ;;9002226.02101,"710,16169-5 ",.01)
 ;;16169-5
 ;;9002226.02101,"710,16169-5 ",.02)
 ;;16169-5
 ;;9002226.02101,"710,16170-3 ",.01)
 ;;16170-3
 ;;9002226.02101,"710,16170-3 ",.02)
 ;;16170-3
 ;;9002226.02101,"710,16906-0 ",.01)
 ;;16906-0
 ;;9002226.02101,"710,16906-0 ",.02)
 ;;16906-0
 ;;9002226.02101,"710,16907-8 ",.01)
 ;;16907-8
 ;;9002226.02101,"710,16907-8 ",.02)
 ;;16907-8
 ;;9002226.02101,"710,16908-6 ",.01)
 ;;16908-6
 ;;9002226.02101,"710,16908-6 ",.02)
 ;;16908-6
 ;;9002226.02101,"710,16909-4 ",.01)
 ;;16909-4
 ;;9002226.02101,"710,16909-4 ",.02)
 ;;16909-4
 ;;9002226.02101,"710,16910-2 ",.01)
 ;;16910-2
 ;;9002226.02101,"710,16910-2 ",.02)
 ;;16910-2
 ;;9002226.02101,"710,16911-0 ",.01)
 ;;16911-0
 ;;9002226.02101,"710,16911-0 ",.02)
 ;;16911-0
 ;;9002226.02101,"710,16912-8 ",.01)
 ;;16912-8
 ;;9002226.02101,"710,16912-8 ",.02)
 ;;16912-8
 ;;9002226.02101,"710,16913-6 ",.01)
 ;;16913-6
 ;;9002226.02101,"710,16913-6 ",.02)
 ;;16913-6
 ;;9002226.02101,"710,16914-4 ",.01)
 ;;16914-4
 ;;9002226.02101,"710,16914-4 ",.02)
 ;;16914-4
 ;;9002226.02101,"710,16915-1 ",.01)
 ;;16915-1
 ;;9002226.02101,"710,16915-1 ",.02)
 ;;16915-1
 ;;9002226.02101,"710,17865-7 ",.01)
 ;;17865-7
 ;;9002226.02101,"710,17865-7 ",.02)
 ;;17865-7
 ;;9002226.02101,"710,18296-4 ",.01)
 ;;18296-4
 ;;9002226.02101,"710,18296-4 ",.02)
 ;;18296-4
 ;;9002226.02101,"710,18342-6 ",.01)
 ;;18342-6
 ;;9002226.02101,"710,18342-6 ",.02)
 ;;18342-6
 ;;9002226.02101,"710,18353-3 ",.01)
 ;;18353-3
 ;;9002226.02101,"710,18353-3 ",.02)
 ;;18353-3
 ;;9002226.02101,"710,18354-1 ",.01)
 ;;18354-1
 ;;9002226.02101,"710,18354-1 ",.02)
 ;;18354-1
 ;;9002226.02101,"710,19104-9 ",.01)
 ;;19104-9
 ;;9002226.02101,"710,19104-9 ",.02)
 ;;19104-9
 ;;9002226.02101,"710,19105-6 ",.01)
 ;;19105-6
 ;;9002226.02101,"710,19105-6 ",.02)
 ;;19105-6
 ;;9002226.02101,"710,20436-2 ",.01)
 ;;20436-2
 ;;9002226.02101,"710,20436-2 ",.02)
 ;;20436-2
 ;;9002226.02101,"710,20437-0 ",.01)
 ;;20437-0
 ;;9002226.02101,"710,20437-0 ",.02)
 ;;20437-0
 ;;9002226.02101,"710,20438-8 ",.01)
 ;;20438-8
 ;;9002226.02101,"710,20438-8 ",.02)
 ;;20438-8
 ;;9002226.02101,"710,20439-6 ",.01)
 ;;20439-6
 ;;9002226.02101,"710,20439-6 ",.02)
 ;;20439-6
 ;;9002226.02101,"710,20440-4 ",.01)
 ;;20440-4
 ;;9002226.02101,"710,20440-4 ",.02)
 ;;20440-4
 ;;9002226.02101,"710,20441-2 ",.01)
 ;;20441-2
 ;;9002226.02101,"710,20441-2 ",.02)
 ;;20441-2
 ;;9002226.02101,"710,21004-7 ",.01)
 ;;21004-7
 ;;9002226.02101,"710,21004-7 ",.02)
 ;;21004-7
 ;;9002226.02101,"710,21308-2 ",.01)
 ;;21308-2
 ;;9002226.02101,"710,21308-2 ",.02)
 ;;21308-2
 ;;9002226.02101,"710,21309-0 ",.01)
 ;;21309-0
 ;;9002226.02101,"710,21309-0 ",.02)
 ;;21309-0
 ;;9002226.02101,"710,21310-8 ",.01)
 ;;21310-8
 ;;9002226.02101,"710,21310-8 ",.02)
 ;;21310-8
 ;;9002226.02101,"710,2339-0 ",.01)
 ;;2339-0
 ;;9002226.02101,"710,2339-0 ",.02)
 ;;2339-0
 ;;9002226.02101,"710,2340-8 ",.01)
 ;;2340-8
 ;;9002226.02101,"710,2340-8 ",.02)
 ;;2340-8
 ;;9002226.02101,"710,2341-6 ",.01)
 ;;2341-6
 ;;9002226.02101,"710,2341-6 ",.02)
 ;;2341-6
 ;;9002226.02101,"710,2345-7 ",.01)
 ;;2345-7
 ;;9002226.02101,"710,2345-7 ",.02)
 ;;2345-7
 ;;9002226.02101,"710,25663-6 ",.01)
 ;;25663-6
 ;;9002226.02101,"710,25663-6 ",.02)
 ;;25663-6
 ;;9002226.02101,"710,25665-1 ",.01)
 ;;25665-1
 ;;9002226.02101,"710,25665-1 ",.02)
 ;;25665-1
 ;;9002226.02101,"710,25666-9 ",.01)
 ;;25666-9
 ;;9002226.02101,"710,25666-9 ",.02)
 ;;25666-9
 ;;9002226.02101,"710,25668-5 ",.01)
 ;;25668-5
 ;;9002226.02101,"710,25668-5 ",.02)
 ;;25668-5
 ;;9002226.02101,"710,25669-3 ",.01)
 ;;25669-3
 ;;9002226.02101,"710,25669-3 ",.02)
 ;;25669-3
 ;;9002226.02101,"710,25671-9 ",.01)
 ;;25671-9
 ;;9002226.02101,"710,25671-9 ",.02)
 ;;25671-9
 ;;9002226.02101,"710,25672-7 ",.01)
 ;;25672-7
 ;;9002226.02101,"710,25672-7 ",.02)
 ;;25672-7
 ;;9002226.02101,"710,25673-5 ",.01)
 ;;25673-5
 ;;9002226.02101,"710,25673-5 ",.02)
 ;;25673-5
 ;;9002226.02101,"710,25674-3 ",.01)
 ;;25674-3
 ;;9002226.02101,"710,25674-3 ",.02)
 ;;25674-3
 ;;9002226.02101,"710,25676-8 ",.01)
 ;;25676-8
 ;;9002226.02101,"710,25676-8 ",.02)
 ;;25676-8
 ;;9002226.02101,"710,25677-6 ",.01)
 ;;25677-6
 ;;9002226.02101,"710,25677-6 ",.02)
 ;;25677-6
 ;;9002226.02101,"710,25679-2 ",.01)
 ;;25679-2
 ;;9002226.02101,"710,25679-2 ",.02)
 ;;25679-2
 ;;9002226.02101,"710,25680-0 ",.01)
 ;;25680-0
 ;;9002226.02101,"710,25680-0 ",.02)
 ;;25680-0
 ;;9002226.02101,"710,26538-9 ",.01)
 ;;26538-9
 ;;9002226.02101,"710,26538-9 ",.02)
 ;;26538-9
 ;;9002226.02101,"710,26539-7 ",.01)
 ;;26539-7
 ;;9002226.02101,"710,26539-7 ",.02)
 ;;26539-7
 ;;9002226.02101,"710,26540-5 ",.01)
 ;;26540-5
 ;;9002226.02101,"710,26540-5 ",.02)
 ;;26540-5
 ;;9002226.02101,"710,26541-3 ",.01)
 ;;26541-3
 ;;9002226.02101,"710,26541-3 ",.02)
 ;;26541-3
 ;;9002226.02101,"710,26543-9 ",.01)
 ;;26543-9
 ;;9002226.02101,"710,26543-9 ",.02)
 ;;26543-9
 ;;9002226.02101,"710,26544-7 ",.01)
 ;;26544-7
 ;;9002226.02101,"710,26544-7 ",.02)
 ;;26544-7
 ;;9002226.02101,"710,26548-8 ",.01)
 ;;26548-8
 ;;9002226.02101,"710,26548-8 ",.02)
 ;;26548-8
 ;;9002226.02101,"710,26549-6 ",.01)
 ;;26549-6
 ;;9002226.02101,"710,26549-6 ",.02)
 ;;26549-6
 ;;9002226.02101,"710,26552-0 ",.01)
 ;;26552-0
 ;;9002226.02101,"710,26552-0 ",.02)
 ;;26552-0
 ;;9002226.02101,"710,26554-6 ",.01)
 ;;26554-6
 ;;9002226.02101,"710,26554-6 ",.02)
 ;;26554-6
 ;;9002226.02101,"710,26555-3 ",.01)
 ;;26555-3
 ;;9002226.02101,"710,26555-3 ",.02)
 ;;26555-3
 ;;9002226.02101,"710,26695-7 ",.01)
 ;;26695-7
 ;;9002226.02101,"710,26695-7 ",.02)
 ;;26695-7
 ;;9002226.02101,"710,26777-3 ",.01)
 ;;26777-3
 ;;9002226.02101,"710,26777-3 ",.02)
 ;;26777-3
 ;;9002226.02101,"710,26778-1 ",.01)
 ;;26778-1
 ;;9002226.02101,"710,26778-1 ",.02)
 ;;26778-1
 ;;9002226.02101,"710,26779-9 ",.01)
 ;;26779-9
 ;;9002226.02101,"710,26779-9 ",.02)
 ;;26779-9
 ;;9002226.02101,"710,26780-7 ",.01)
 ;;26780-7
 ;;9002226.02101,"710,26780-7 ",.02)
 ;;26780-7
 ;;9002226.02101,"710,26781-5 ",.01)
 ;;26781-5
 ;;9002226.02101,"710,26781-5 ",.02)
 ;;26781-5
 ;;9002226.02101,"710,26782-3 ",.01)
 ;;26782-3
 ;;9002226.02101,"710,26782-3 ",.02)
 ;;26782-3
 ;;9002226.02101,"710,26783-1 ",.01)
 ;;26783-1
 ;;9002226.02101,"710,26783-1 ",.02)
 ;;26783-1
 ;;9002226.02101,"710,26817-7 ",.01)
 ;;26817-7
 ;;9002226.02101,"710,26817-7 ",.02)
 ;;26817-7
 ;;9002226.02101,"710,26853-2 ",.01)
 ;;26853-2
 ;;9002226.02101,"710,26853-2 ",.02)
 ;;26853-2
 ;;9002226.02101,"710,26854-0 ",.01)
 ;;26854-0
 ;;9002226.02101,"710,26854-0 ",.02)
 ;;26854-0
 ;;9002226.02101,"710,27353-2 ",.01)
 ;;27353-2
 ;;9002226.02101,"710,27353-2 ",.02)
 ;;27353-2
 ;;9002226.02101,"710,27432-4 ",.01)
 ;;27432-4
 ;;9002226.02101,"710,27432-4 ",.02)
 ;;27432-4
 ;;9002226.02101,"710,29329-0 ",.01)
 ;;29329-0
 ;;9002226.02101,"710,29329-0 ",.02)
 ;;29329-0
 ;;9002226.02101,"710,29330-8 ",.01)
 ;;29330-8
 ;;9002226.02101,"710,29330-8 ",.02)
 ;;29330-8
 ;;9002226.02101,"710,29331-6 ",.01)
 ;;29331-6
 ;;9002226.02101,"710,29331-6 ",.02)
 ;;29331-6
 ;;9002226.02101,"710,29332-4 ",.01)
 ;;29332-4
 ;;9002226.02101,"710,29332-4 ",.02)
 ;;29332-4
 ;;9002226.02101,"710,29412-4 ",.01)
 ;;29412-4
 ;;9002226.02101,"710,29412-4 ",.02)
 ;;29412-4
 ;;9002226.02101,"710,30251-3 ",.01)
 ;;30251-3
 ;;9002226.02101,"710,30251-3 ",.02)
 ;;30251-3
 ;;9002226.02101,"710,30252-1 ",.01)
 ;;30252-1
 ;;9002226.02101,"710,30252-1 ",.02)
 ;;30252-1
 ;;9002226.02101,"710,30253-9 ",.01)
 ;;30253-9
 ;;9002226.02101,"710,30253-9 ",.02)
 ;;30253-9
 ;;9002226.02101,"710,30263-8 ",.01)
 ;;30263-8
 ;;9002226.02101,"710,30263-8 ",.02)
 ;;30263-8
 ;;9002226.02101,"710,30264-6 ",.01)
 ;;30264-6
 ;;9002226.02101,"710,30264-6 ",.02)
 ;;30264-6
 ;;9002226.02101,"710,30265-3 ",.01)
 ;;30265-3
 ;;9002226.02101,"710,30265-3 ",.02)
 ;;30265-3
 ;;9002226.02101,"710,30266-1 ",.01)
 ;;30266-1
 ;;9002226.02101,"710,30266-1 ",.02)
 ;;30266-1
 ;;9002226.02101,"710,30267-9 ",.01)
 ;;30267-9
 ;;9002226.02101,"710,30267-9 ",.02)
 ;;30267-9
 ;;9002226.02101,"710,30344-6 ",.01)
 ;;30344-6
 ;;9002226.02101,"710,30344-6 ",.02)
 ;;30344-6
 ;;9002226.02101,"710,30345-3 ",.01)
 ;;30345-3
 ;;9002226.02101,"710,30345-3 ",.02)
 ;;30345-3
 ;;9002226.02101,"710,30346-1 ",.01)
 ;;30346-1
 ;;9002226.02101,"710,30346-1 ",.02)
 ;;30346-1
 ;;9002226.02101,"710,32016-8 ",.01)
 ;;32016-8
 ;;9002226.02101,"710,32016-8 ",.02)
 ;;32016-8
 ;;9002226.02101,"710,32319-6 ",.01)
 ;;32319-6
 ;;9002226.02101,"710,32319-6 ",.02)
 ;;32319-6