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