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

ATXD2F5.m

Go to the documentation of this file.
ATXD2F5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2015;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
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)
 ;;21,"S82.451C ")
 ;;1565
 ;;21,"S82.452A ")
 ;;1566
 ;;21,"S82.452B ")
 ;;1567
 ;;21,"S82.452C ")
 ;;1568
 ;;21,"S82.453A ")
 ;;1569
 ;;21,"S82.453B ")
 ;;1570
 ;;21,"S82.453C ")
 ;;1571
 ;;21,"S82.454A ")
 ;;1572
 ;;21,"S82.454B ")
 ;;1573
 ;;21,"S82.454C ")
 ;;1574
 ;;21,"S82.455A ")
 ;;1575
 ;;21,"S82.455B ")
 ;;1576
 ;;21,"S82.455C ")
 ;;1577
 ;;21,"S82.456A ")
 ;;1578
 ;;21,"S82.456B ")
 ;;1579
 ;;21,"S82.456C ")
 ;;1580
 ;;21,"S82.461A ")
 ;;1581
 ;;21,"S82.461B ")
 ;;1582
 ;;21,"S82.461C ")
 ;;1583
 ;;21,"S82.462A ")
 ;;1584
 ;;21,"S82.462B ")
 ;;1585
 ;;21,"S82.462C ")
 ;;1586
 ;;21,"S82.463A ")
 ;;1587
 ;;21,"S82.463B ")
 ;;1588
 ;;21,"S82.463C ")
 ;;1589
 ;;21,"S82.464A ")
 ;;1590
 ;;21,"S82.464B ")
 ;;1591
 ;;21,"S82.464C ")
 ;;1592
 ;;21,"S82.465A ")
 ;;1593
 ;;21,"S82.465B ")
 ;;1594
 ;;21,"S82.465C ")
 ;;1595
 ;;21,"S82.466A ")
 ;;1596
 ;;21,"S82.466B ")
 ;;1597
 ;;21,"S82.466C ")
 ;;1598
 ;;21,"S82.491A ")
 ;;1599
 ;;21,"S82.491B ")
 ;;1600
 ;;21,"S82.491C ")
 ;;1601
 ;;21,"S82.492A ")
 ;;1602
 ;;21,"S82.492B ")
 ;;1603
 ;;21,"S82.492C ")
 ;;1604
 ;;21,"S82.499A ")
 ;;1605
 ;;21,"S82.499B ")
 ;;1606
 ;;21,"S82.499C ")
 ;;1607
 ;;21,"S82.51XA ")
 ;;1608
 ;;21,"S82.51XB ")
 ;;1609
 ;;21,"S82.51XC ")
 ;;1610
 ;;21,"S82.52XA ")
 ;;1611
 ;;21,"S82.52XB ")
 ;;1612
 ;;21,"S82.52XC ")
 ;;1613
 ;;21,"S82.53XA ")
 ;;1614
 ;;21,"S82.53XB ")
 ;;1615
 ;;21,"S82.53XC ")
 ;;1616
 ;;21,"S82.54XA ")
 ;;1617
 ;;21,"S82.54XB ")
 ;;1618
 ;;21,"S82.54XC ")
 ;;1619
 ;;21,"S82.55XA ")
 ;;1620
 ;;21,"S82.55XB ")
 ;;1621
 ;;21,"S82.55XC ")
 ;;1622
 ;;21,"S82.56XA ")
 ;;1623
 ;;21,"S82.56XB ")
 ;;1624
 ;;21,"S82.56XC ")
 ;;1625
 ;;21,"S82.61XA ")
 ;;1626
 ;;21,"S82.61XB ")
 ;;1627
 ;;21,"S82.61XC ")
 ;;1628
 ;;21,"S82.62XA ")
 ;;1629
 ;;21,"S82.62XB ")
 ;;1630
 ;;21,"S82.62XC ")
 ;;1631
 ;;21,"S82.63XA ")
 ;;1632
 ;;21,"S82.63XB ")
 ;;1633
 ;;21,"S82.63XC ")
 ;;1634
 ;;21,"S82.64XA ")
 ;;1635
 ;;21,"S82.64XB ")
 ;;1636
 ;;21,"S82.64XC ")
 ;;1637
 ;;21,"S82.65XA ")
 ;;1638
 ;;21,"S82.65XB ")
 ;;1639
 ;;21,"S82.65XC ")
 ;;1640
 ;;21,"S82.66XA ")
 ;;1641
 ;;21,"S82.66XB ")
 ;;1642
 ;;21,"S82.66XC ")
 ;;1643
 ;;21,"S82.811A ")
 ;;1644
 ;;21,"S82.812A ")
 ;;1645
 ;;21,"S82.819A ")
 ;;1646
 ;;21,"S82.821A ")
 ;;1647
 ;;21,"S82.822A ")
 ;;1648
 ;;21,"S82.829A ")
 ;;1649
 ;;21,"S82.831A ")
 ;;1650
 ;;21,"S82.831B ")
 ;;1651
 ;;21,"S82.831C ")
 ;;1652
 ;;21,"S82.832A ")
 ;;1653
 ;;21,"S82.832B ")
 ;;1654
 ;;21,"S82.832C ")
 ;;1655
 ;;21,"S82.839A ")
 ;;1656
 ;;21,"S82.839B ")
 ;;1657
 ;;21,"S82.839C ")
 ;;1658
 ;;21,"S82.841A ")
 ;;1659
 ;;21,"S82.841B ")
 ;;1660
 ;;21,"S82.841C ")
 ;;1661
 ;;21,"S82.842A ")
 ;;1662
 ;;21,"S82.842B ")
 ;;1663
 ;;21,"S82.842C ")
 ;;1664
 ;;21,"S82.843A ")
 ;;1665
 ;;21,"S82.843B ")
 ;;1666
 ;;21,"S82.843C ")
 ;;1667
 ;;21,"S82.844A ")
 ;;1668
 ;;21,"S82.844B ")
 ;;1669
 ;;21,"S82.844C ")
 ;;1670
 ;;21,"S82.845A ")
 ;;1671
 ;;21,"S82.845B ")
 ;;1672
 ;;21,"S82.845C ")
 ;;1673
 ;;21,"S82.846A ")
 ;;1674
 ;;21,"S82.846B ")
 ;;1675
 ;;21,"S82.846C ")
 ;;1676
 ;;21,"S82.851A ")
 ;;1677
 ;;21,"S82.851B ")
 ;;1678
 ;;21,"S82.851C ")
 ;;1679
 ;;21,"S82.852A ")
 ;;1680
 ;;21,"S82.852B ")
 ;;1681
 ;;21,"S82.852C ")
 ;;1682
 ;;21,"S82.853A ")
 ;;1683
 ;;21,"S82.853B ")
 ;;1684
 ;;21,"S82.853C ")
 ;;1685
 ;;21,"S82.854A ")
 ;;1686
 ;;21,"S82.854B ")
 ;;1687
 ;;21,"S82.854C ")
 ;;1688
 ;;21,"S82.855A ")
 ;;1689
 ;;21,"S82.855B ")
 ;;1690
 ;;21,"S82.855C ")
 ;;1691
 ;;21,"S82.856A ")
 ;;1692
 ;;21,"S82.856B ")
 ;;1693
 ;;21,"S82.856C ")
 ;;1694
 ;;21,"S82.891A ")
 ;;1695
 ;;21,"S82.891B ")
 ;;1696
 ;;21,"S82.891C ")
 ;;1697
 ;;21,"S82.892A ")
 ;;1698
 ;;21,"S82.892B ")
 ;;1699
 ;;21,"S82.892C ")
 ;;1700
 ;;21,"S82.899A ")
 ;;1701
 ;;21,"S82.899B ")
 ;;1702
 ;;21,"S82.899C ")
 ;;1703
 ;;21,"S82.90XA ")
 ;;1704
 ;;21,"S82.90XB ")
 ;;1705
 ;;21,"S82.90XC ")
 ;;1706
 ;;21,"S82.91XA ")
 ;;1707
 ;;21,"S82.91XB ")
 ;;1708
 ;;21,"S82.91XC ")
 ;;1709
 ;;21,"S82.92XA ")
 ;;1710
 ;;21,"S82.92XB ")
 ;;1711
 ;;21,"S82.92XC ")
 ;;1712
 ;;9002226,374,.01)
 ;;BGP FRACTURE DXS
 ;;9002226,374,.02)
 ;;@
 ;;9002226,374,.04)
 ;;n
 ;;9002226,374,.06)
 ;;@
 ;;9002226,374,.08)
 ;;0
 ;;9002226,374,.09)
 ;;3130515
 ;;9002226,374,.11)
 ;;@
 ;;9002226,374,.12)
 ;;31
 ;;9002226,374,.13)
 ;;1
 ;;9002226,374,.14)
 ;;@
 ;;9002226,374,.15)
 ;;80
 ;;9002226,374,.16)
 ;;@
 ;;9002226,374,.17)
 ;;@
 ;;9002226,374,3101)
 ;;@
 ;;9002226.02101,"374,805.00 ",.01)
 ;;805.00 
 ;;9002226.02101,"374,805.00 ",.02)
 ;;807.4 
 ;;9002226.02101,"374,805.00 ",.03)
 ;;1
 ;;9002226.02101,"374,808.0 ",.01)
 ;;808.0 
 ;;9002226.02101,"374,808.0 ",.02)
 ;;815.19 
 ;;9002226.02101,"374,808.0 ",.03)
 ;;1
 ;;9002226.02101,"374,818.0 ",.01)
 ;;818.0 
 ;;9002226.02101,"374,818.0 ",.02)
 ;;825.39 
 ;;9002226.02101,"374,818.0 ",.03)
 ;;1
 ;;9002226.02101,"374,827.0 ",.01)
 ;;827.0 
 ;;9002226.02101,"374,827.0 ",.02)
 ;;828.1 
 ;;9002226.02101,"374,827.0 ",.03)
 ;;1
 ;;9002226.02101,"374,M48.50XA ",.01)
 ;;M48.50XA
 ;;9002226.02101,"374,M48.50XA ",.02)
 ;;M48.50XA
 ;;9002226.02101,"374,M48.50XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.51XA ",.01)
 ;;M48.51XA
 ;;9002226.02101,"374,M48.51XA ",.02)
 ;;M48.51XA
 ;;9002226.02101,"374,M48.51XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.52XA ",.01)
 ;;M48.52XA
 ;;9002226.02101,"374,M48.52XA ",.02)
 ;;M48.52XA
 ;;9002226.02101,"374,M48.52XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.53XA ",.01)
 ;;M48.53XA
 ;;9002226.02101,"374,M48.53XA ",.02)
 ;;M48.53XA
 ;;9002226.02101,"374,M48.53XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.54XA ",.01)
 ;;M48.54XA
 ;;9002226.02101,"374,M48.54XA ",.02)
 ;;M48.54XA
 ;;9002226.02101,"374,M48.54XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.55XA ",.01)
 ;;M48.55XA
 ;;9002226.02101,"374,M48.55XA ",.02)
 ;;M48.55XA
 ;;9002226.02101,"374,M48.55XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.56XA ",.01)
 ;;M48.56XA
 ;;9002226.02101,"374,M48.56XA ",.02)
 ;;M48.56XA
 ;;9002226.02101,"374,M48.56XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.57XA ",.01)
 ;;M48.57XA
 ;;9002226.02101,"374,M48.57XA ",.02)
 ;;M48.57XA
 ;;9002226.02101,"374,M48.57XA ",.03)
 ;;30
 ;;9002226.02101,"374,M48.58XA ",.01)
 ;;M48.58XA
 ;;9002226.02101,"374,M48.58XA ",.02)
 ;;M48.58XA
 ;;9002226.02101,"374,M48.58XA ",.03)
 ;;30
 ;;9002226.02101,"374,M80.00XA ",.01)
 ;;M80.00XA
 ;;9002226.02101,"374,M80.00XA ",.02)
 ;;M80.00XA
 ;;9002226.02101,"374,M80.00XA ",.03)
 ;;30
 ;;9002226.02101,"374,M80.011A ",.01)
 ;;M80.011A
 ;;9002226.02101,"374,M80.011A ",.02)
 ;;M80.011A
 ;;9002226.02101,"374,M80.011A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.012A ",.01)
 ;;M80.012A
 ;;9002226.02101,"374,M80.012A ",.02)
 ;;M80.012A
 ;;9002226.02101,"374,M80.012A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.019A ",.01)
 ;;M80.019A
 ;;9002226.02101,"374,M80.019A ",.02)
 ;;M80.019A
 ;;9002226.02101,"374,M80.019A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.021A ",.01)
 ;;M80.021A
 ;;9002226.02101,"374,M80.021A ",.02)
 ;;M80.021A
 ;;9002226.02101,"374,M80.021A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.022A ",.01)
 ;;M80.022A
 ;;9002226.02101,"374,M80.022A ",.02)
 ;;M80.022A
 ;;9002226.02101,"374,M80.022A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.029A ",.01)
 ;;M80.029A
 ;;9002226.02101,"374,M80.029A ",.02)
 ;;M80.029A
 ;;9002226.02101,"374,M80.029A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.031A ",.01)
 ;;M80.031A
 ;;9002226.02101,"374,M80.031A ",.02)
 ;;M80.031A
 ;;9002226.02101,"374,M80.031A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.032A ",.01)
 ;;M80.032A
 ;;9002226.02101,"374,M80.032A ",.02)
 ;;M80.032A
 ;;9002226.02101,"374,M80.032A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.039A ",.01)
 ;;M80.039A
 ;;9002226.02101,"374,M80.039A ",.02)
 ;;M80.039A
 ;;9002226.02101,"374,M80.039A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.041A ",.01)
 ;;M80.041A
 ;;9002226.02101,"374,M80.041A ",.02)
 ;;M80.041A
 ;;9002226.02101,"374,M80.041A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.042A ",.01)
 ;;M80.042A
 ;;9002226.02101,"374,M80.042A ",.02)
 ;;M80.042A
 ;;9002226.02101,"374,M80.042A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.049A ",.01)
 ;;M80.049A
 ;;9002226.02101,"374,M80.049A ",.02)
 ;;M80.049A
 ;;9002226.02101,"374,M80.049A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.051A ",.01)
 ;;M80.051A
 ;;9002226.02101,"374,M80.051A ",.02)
 ;;M80.051A
 ;;9002226.02101,"374,M80.051A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.052A ",.01)
 ;;M80.052A
 ;;9002226.02101,"374,M80.052A ",.02)
 ;;M80.052A
 ;;9002226.02101,"374,M80.052A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.059A ",.01)
 ;;M80.059A
 ;;9002226.02101,"374,M80.059A ",.02)
 ;;M80.059A
 ;;9002226.02101,"374,M80.059A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.061A ",.01)
 ;;M80.061A
 ;;9002226.02101,"374,M80.061A ",.02)
 ;;M80.061A
 ;;9002226.02101,"374,M80.061A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.062A ",.01)
 ;;M80.062A
 ;;9002226.02101,"374,M80.062A ",.02)
 ;;M80.062A
 ;;9002226.02101,"374,M80.062A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.069A ",.01)
 ;;M80.069A
 ;;9002226.02101,"374,M80.069A ",.02)
 ;;M80.069A
 ;;9002226.02101,"374,M80.069A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.071A ",.01)
 ;;M80.071A
 ;;9002226.02101,"374,M80.071A ",.02)
 ;;M80.071A
 ;;9002226.02101,"374,M80.071A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.072A ",.01)
 ;;M80.072A
 ;;9002226.02101,"374,M80.072A ",.02)
 ;;M80.072A
 ;;9002226.02101,"374,M80.072A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.079A ",.01)
 ;;M80.079A
 ;;9002226.02101,"374,M80.079A ",.02)
 ;;M80.079A
 ;;9002226.02101,"374,M80.079A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.08XA ",.01)
 ;;M80.08XA
 ;;9002226.02101,"374,M80.08XA ",.02)
 ;;M80.08XA
 ;;9002226.02101,"374,M80.08XA ",.03)
 ;;30
 ;;9002226.02101,"374,M80.80XA ",.01)
 ;;M80.80XA
 ;;9002226.02101,"374,M80.80XA ",.02)
 ;;M80.80XA
 ;;9002226.02101,"374,M80.80XA ",.03)
 ;;30
 ;;9002226.02101,"374,M80.811A ",.01)
 ;;M80.811A
 ;;9002226.02101,"374,M80.811A ",.02)
 ;;M80.811A
 ;;9002226.02101,"374,M80.811A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.812A ",.01)
 ;;M80.812A
 ;;9002226.02101,"374,M80.812A ",.02)
 ;;M80.812A
 ;;9002226.02101,"374,M80.812A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.819A ",.01)
 ;;M80.819A
 ;;9002226.02101,"374,M80.819A ",.02)
 ;;M80.819A
 ;;9002226.02101,"374,M80.819A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.821A ",.01)
 ;;M80.821A
 ;;9002226.02101,"374,M80.821A ",.02)
 ;;M80.821A
 ;;9002226.02101,"374,M80.821A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.822A ",.01)
 ;;M80.822A
 ;;9002226.02101,"374,M80.822A ",.02)
 ;;M80.822A
 ;;9002226.02101,"374,M80.822A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.829A ",.01)
 ;;M80.829A
 ;;9002226.02101,"374,M80.829A ",.02)
 ;;M80.829A
 ;;9002226.02101,"374,M80.829A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.831A ",.01)
 ;;M80.831A
 ;;9002226.02101,"374,M80.831A ",.02)
 ;;M80.831A
 ;;9002226.02101,"374,M80.831A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.832A ",.01)
 ;;M80.832A
 ;;9002226.02101,"374,M80.832A ",.02)
 ;;M80.832A
 ;;9002226.02101,"374,M80.832A ",.03)
 ;;30
 ;;9002226.02101,"374,M80.839A ",.01)
 ;;M80.839A
 ;;9002226.02101,"374,M80.839A ",.02)
 ;;M80.839A