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

ATXF6O6.m

Go to the documentation of this file.
ATXF6O6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 02, 2017;
 ;;5.1;TAXONOMY;**19**;FEB 04, 1997;Build 32
 ;
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,"O99.330 ")
 ;;1998
 ;;21,"O99.331 ")
 ;;1999
 ;;21,"O99.332 ")
 ;;2000
 ;;21,"O99.333 ")
 ;;2001
 ;;21,"O99.334 ")
 ;;2002
 ;;21,"O99.340 ")
 ;;2003
 ;;21,"O99.341 ")
 ;;2004
 ;;21,"O99.342 ")
 ;;2005
 ;;21,"O99.343 ")
 ;;2006
 ;;21,"O99.344 ")
 ;;2007
 ;;21,"O99.350 ")
 ;;2008
 ;;21,"O99.351 ")
 ;;2009
 ;;21,"O99.352 ")
 ;;2010
 ;;21,"O99.353 ")
 ;;2011
 ;;21,"O99.354 ")
 ;;2012
 ;;21,"O99.411 ")
 ;;2013
 ;;21,"O99.412 ")
 ;;2014
 ;;21,"O99.413 ")
 ;;2015
 ;;21,"O99.419 ")
 ;;2016
 ;;21,"O99.511 ")
 ;;2017
 ;;21,"O99.512 ")
 ;;2018
 ;;21,"O99.513 ")
 ;;2019
 ;;21,"O99.519 ")
 ;;2020
 ;;21,"O99.52 ")
 ;;2021
 ;;21,"O99.611 ")
 ;;2022
 ;;21,"O99.612 ")
 ;;2023
 ;;21,"O99.613 ")
 ;;2024
 ;;21,"O99.619 ")
 ;;2025
 ;;21,"O99.62 ")
 ;;2026
 ;;21,"O99.711 ")
 ;;2027
 ;;21,"O99.712 ")
 ;;2028
 ;;21,"O99.713 ")
 ;;2029
 ;;21,"O99.719 ")
 ;;2030
 ;;21,"O99.72 ")
 ;;2031
 ;;21,"O99.810 ")
 ;;2032
 ;;21,"O99.814 ")
 ;;2033
 ;;21,"O99.820 ")
 ;;2034
 ;;21,"O99.824 ")
 ;;2035
 ;;21,"O99.830 ")
 ;;2036
 ;;21,"O99.834 ")
 ;;2037
 ;;21,"O99.840 ")
 ;;2038
 ;;21,"O99.841 ")
 ;;2039
 ;;21,"O99.842 ")
 ;;2040
 ;;21,"O99.843 ")
 ;;2041
 ;;21,"O99.844 ")
 ;;2042
 ;;21,"O99.89 ")
 ;;2043
 ;;21,"O9A.111 ")
 ;;2044
 ;;21,"O9A.112 ")
 ;;2045
 ;;21,"O9A.113 ")
 ;;2046
 ;;21,"O9A.119 ")
 ;;2047
 ;;21,"O9A.12 ")
 ;;2048
 ;;21,"O9A.211 ")
 ;;2049
 ;;21,"O9A.212 ")
 ;;2050
 ;;21,"O9A.213 ")
 ;;2051
 ;;21,"O9A.219 ")
 ;;2052
 ;;21,"O9A.22 ")
 ;;2053
 ;;21,"O9A.311 ")
 ;;2054
 ;;21,"O9A.312 ")
 ;;2055
 ;;21,"O9A.313 ")
 ;;2056
 ;;21,"O9A.319 ")
 ;;2057
 ;;21,"O9A.32 ")
 ;;2058
 ;;21,"O9A.411 ")
 ;;2059
 ;;21,"O9A.412 ")
 ;;2060
 ;;21,"O9A.413 ")
 ;;2061
 ;;21,"O9A.419 ")
 ;;2062
 ;;21,"O9A.42 ")
 ;;2063
 ;;21,"O9A.511 ")
 ;;2064
 ;;21,"O9A.512 ")
 ;;2065
 ;;21,"O9A.513 ")
 ;;2066
 ;;21,"O9A.519 ")
 ;;2067
 ;;21,"O9A.52 ")
 ;;2068
 ;;21,"V22.0 ")
 ;;2069
 ;;21,"V24.0 ")
 ;;2070
 ;;21,"V27.0 ")
 ;;2071
 ;;21,"V28.81 ")
 ;;2072
 ;;21,"V72.42 ")
 ;;2073
 ;;21,"V89.01 ")
 ;;2074
 ;;21,"Z03.71 ")
 ;;2075
 ;;21,"Z03.72 ")
 ;;2076
 ;;21,"Z03.73 ")
 ;;2077
 ;;21,"Z03.74 ")
 ;;2078
 ;;21,"Z03.75 ")
 ;;2079
 ;;21,"Z03.79 ")
 ;;2080
 ;;21,"Z32.01 ")
 ;;2081
 ;;21,"Z33.1 ")
 ;;2082
 ;;21,"Z34.00 ")
 ;;2083
 ;;21,"Z34.01 ")
 ;;2084
 ;;21,"Z34.02 ")
 ;;2085
 ;;21,"Z34.03 ")
 ;;2086
 ;;21,"Z34.80 ")
 ;;2087
 ;;21,"Z34.81 ")
 ;;2088
 ;;21,"Z34.82 ")
 ;;2089
 ;;21,"Z34.83 ")
 ;;2090
 ;;21,"Z34.90 ")
 ;;2091
 ;;21,"Z34.91 ")
 ;;2092
 ;;21,"Z34.92 ")
 ;;2093
 ;;21,"Z34.93 ")
 ;;2094
 ;;21,"Z36. ")
 ;;2095
 ;;21,"Z3A.00 ")
 ;;2096
 ;;9002226,1075,.01)
 ;;BGP PREGNANCY DIAGNOSES 2
 ;;9002226,1075,.02)
 ;;@
 ;;9002226,1075,.04)
 ;;n
 ;;9002226,1075,.06)
 ;;@
 ;;9002226,1075,.08)
 ;;0
 ;;9002226,1075,.09)
 ;;3150708
 ;;9002226,1075,.11)
 ;;@
 ;;9002226,1075,.12)
 ;;31
 ;;9002226,1075,.13)
 ;;1
 ;;9002226,1075,.14)
 ;;@
 ;;9002226,1075,.15)
 ;;80
 ;;9002226,1075,.16)
 ;;@
 ;;9002226,1075,.17)
 ;;@
 ;;9002226,1075,.22)
 ;;1
 ;;9002226,1075,3101)
 ;;@
 ;;9002226.02101,"1075,640.03 ",.01)
 ;;640.03 
 ;;9002226.02101,"1075,640.03 ",.02)
 ;;640.03 
 ;;9002226.02101,"1075,640.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,640.83 ",.01)
 ;;640.83 
 ;;9002226.02101,"1075,640.83 ",.02)
 ;;640.83 
 ;;9002226.02101,"1075,640.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,640.93 ",.01)
 ;;640.93 
 ;;9002226.02101,"1075,640.93 ",.02)
 ;;640.93 
 ;;9002226.02101,"1075,640.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.03 ",.01)
 ;;641.03 
 ;;9002226.02101,"1075,641.03 ",.02)
 ;;641.03 
 ;;9002226.02101,"1075,641.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.13 ",.01)
 ;;641.13 
 ;;9002226.02101,"1075,641.13 ",.02)
 ;;641.13 
 ;;9002226.02101,"1075,641.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.23 ",.01)
 ;;641.23 
 ;;9002226.02101,"1075,641.23 ",.02)
 ;;641.23 
 ;;9002226.02101,"1075,641.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.33 ",.01)
 ;;641.33 
 ;;9002226.02101,"1075,641.33 ",.02)
 ;;641.33 
 ;;9002226.02101,"1075,641.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.83 ",.01)
 ;;641.83 
 ;;9002226.02101,"1075,641.83 ",.02)
 ;;641.83 
 ;;9002226.02101,"1075,641.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,641.93 ",.01)
 ;;641.93 
 ;;9002226.02101,"1075,641.93 ",.02)
 ;;641.93 
 ;;9002226.02101,"1075,641.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.03 ",.01)
 ;;642.03 
 ;;9002226.02101,"1075,642.03 ",.02)
 ;;642.03 
 ;;9002226.02101,"1075,642.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.13 ",.01)
 ;;642.13 
 ;;9002226.02101,"1075,642.13 ",.02)
 ;;642.13 
 ;;9002226.02101,"1075,642.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.23 ",.01)
 ;;642.23 
 ;;9002226.02101,"1075,642.23 ",.02)
 ;;642.23 
 ;;9002226.02101,"1075,642.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.33 ",.01)
 ;;642.33 
 ;;9002226.02101,"1075,642.33 ",.02)
 ;;642.33 
 ;;9002226.02101,"1075,642.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.43 ",.01)
 ;;642.43 
 ;;9002226.02101,"1075,642.43 ",.02)
 ;;642.43 
 ;;9002226.02101,"1075,642.43 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.53 ",.01)
 ;;642.53 
 ;;9002226.02101,"1075,642.53 ",.02)
 ;;642.53 
 ;;9002226.02101,"1075,642.53 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.63 ",.01)
 ;;642.63 
 ;;9002226.02101,"1075,642.63 ",.02)
 ;;642.63 
 ;;9002226.02101,"1075,642.63 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.73 ",.01)
 ;;642.73 
 ;;9002226.02101,"1075,642.73 ",.02)
 ;;642.73 
 ;;9002226.02101,"1075,642.73 ",.03)
 ;;1
 ;;9002226.02101,"1075,642.93 ",.01)
 ;;642.93 
 ;;9002226.02101,"1075,642.93 ",.02)
 ;;642.93 
 ;;9002226.02101,"1075,642.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,643.03 ",.01)
 ;;643.03 
 ;;9002226.02101,"1075,643.03 ",.02)
 ;;643.03 
 ;;9002226.02101,"1075,643.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,643.13 ",.01)
 ;;643.13 
 ;;9002226.02101,"1075,643.13 ",.02)
 ;;643.13 
 ;;9002226.02101,"1075,643.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,643.23 ",.01)
 ;;643.23 
 ;;9002226.02101,"1075,643.23 ",.02)
 ;;643.23 
 ;;9002226.02101,"1075,643.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,643.83 ",.01)
 ;;643.83 
 ;;9002226.02101,"1075,643.83 ",.02)
 ;;643.83 
 ;;9002226.02101,"1075,643.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,643.93 ",.01)
 ;;643.93 
 ;;9002226.02101,"1075,643.93 ",.02)
 ;;643.93 
 ;;9002226.02101,"1075,643.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,644.03 ",.01)
 ;;644.03 
 ;;9002226.02101,"1075,644.03 ",.02)
 ;;644.03 
 ;;9002226.02101,"1075,644.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,644.13 ",.01)
 ;;644.13 
 ;;9002226.02101,"1075,644.13 ",.02)
 ;;644.13 
 ;;9002226.02101,"1075,644.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,645.13 ",.01)
 ;;645.13 
 ;;9002226.02101,"1075,645.13 ",.02)
 ;;645.13 
 ;;9002226.02101,"1075,645.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,645.23 ",.01)
 ;;645.23 
 ;;9002226.02101,"1075,645.23 ",.02)
 ;;645.23 
 ;;9002226.02101,"1075,645.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.03 ",.01)
 ;;646.03 
 ;;9002226.02101,"1075,646.03 ",.02)
 ;;646.03 
 ;;9002226.02101,"1075,646.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.13 ",.01)
 ;;646.13 
 ;;9002226.02101,"1075,646.13 ",.02)
 ;;646.13 
 ;;9002226.02101,"1075,646.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.23 ",.01)
 ;;646.23 
 ;;9002226.02101,"1075,646.23 ",.02)
 ;;646.23 
 ;;9002226.02101,"1075,646.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.33 ",.01)
 ;;646.33 
 ;;9002226.02101,"1075,646.33 ",.02)
 ;;646.33 
 ;;9002226.02101,"1075,646.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.43 ",.01)
 ;;646.43 
 ;;9002226.02101,"1075,646.43 ",.02)
 ;;646.43 
 ;;9002226.02101,"1075,646.43 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.53 ",.01)
 ;;646.53 
 ;;9002226.02101,"1075,646.53 ",.02)
 ;;646.53 
 ;;9002226.02101,"1075,646.53 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.63 ",.01)
 ;;646.63 
 ;;9002226.02101,"1075,646.63 ",.02)
 ;;646.63 
 ;;9002226.02101,"1075,646.63 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.73 ",.01)
 ;;646.73 
 ;;9002226.02101,"1075,646.73 ",.02)
 ;;646.73 
 ;;9002226.02101,"1075,646.73 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.83 ",.01)
 ;;646.83 
 ;;9002226.02101,"1075,646.83 ",.02)
 ;;646.83 
 ;;9002226.02101,"1075,646.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,646.93 ",.01)
 ;;646.93 
 ;;9002226.02101,"1075,646.93 ",.02)
 ;;646.93 
 ;;9002226.02101,"1075,646.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.03 ",.01)
 ;;647.03 
 ;;9002226.02101,"1075,647.03 ",.02)
 ;;647.03 
 ;;9002226.02101,"1075,647.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.13 ",.01)
 ;;647.13 
 ;;9002226.02101,"1075,647.13 ",.02)
 ;;647.13 
 ;;9002226.02101,"1075,647.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.23 ",.01)
 ;;647.23 
 ;;9002226.02101,"1075,647.23 ",.02)
 ;;647.23 
 ;;9002226.02101,"1075,647.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.33 ",.01)
 ;;647.33 
 ;;9002226.02101,"1075,647.33 ",.02)
 ;;647.33 
 ;;9002226.02101,"1075,647.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.43 ",.01)
 ;;647.43 
 ;;9002226.02101,"1075,647.43 ",.02)
 ;;647.43 
 ;;9002226.02101,"1075,647.43 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.53 ",.01)
 ;;647.53 
 ;;9002226.02101,"1075,647.53 ",.02)
 ;;647.53 
 ;;9002226.02101,"1075,647.53 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.63 ",.01)
 ;;647.63 
 ;;9002226.02101,"1075,647.63 ",.02)
 ;;647.63 
 ;;9002226.02101,"1075,647.63 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.83 ",.01)
 ;;647.83 
 ;;9002226.02101,"1075,647.83 ",.02)
 ;;647.83 
 ;;9002226.02101,"1075,647.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,647.93 ",.01)
 ;;647.93 
 ;;9002226.02101,"1075,647.93 ",.02)
 ;;647.93 
 ;;9002226.02101,"1075,647.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.03 ",.01)
 ;;648.03 
 ;;9002226.02101,"1075,648.03 ",.02)
 ;;648.03 
 ;;9002226.02101,"1075,648.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.13 ",.01)
 ;;648.13 
 ;;9002226.02101,"1075,648.13 ",.02)
 ;;648.13 
 ;;9002226.02101,"1075,648.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.23 ",.01)
 ;;648.23 
 ;;9002226.02101,"1075,648.23 ",.02)
 ;;648.23 
 ;;9002226.02101,"1075,648.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.33 ",.01)
 ;;648.33 
 ;;9002226.02101,"1075,648.33 ",.02)
 ;;648.33 
 ;;9002226.02101,"1075,648.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.43 ",.01)
 ;;648.43 
 ;;9002226.02101,"1075,648.43 ",.02)
 ;;648.43 
 ;;9002226.02101,"1075,648.43 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.53 ",.01)
 ;;648.53 
 ;;9002226.02101,"1075,648.53 ",.02)
 ;;648.53 
 ;;9002226.02101,"1075,648.53 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.63 ",.01)
 ;;648.63 
 ;;9002226.02101,"1075,648.63 ",.02)
 ;;648.63 
 ;;9002226.02101,"1075,648.63 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.73 ",.01)
 ;;648.73 
 ;;9002226.02101,"1075,648.73 ",.02)
 ;;648.73 
 ;;9002226.02101,"1075,648.73 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.83 ",.01)
 ;;648.83 
 ;;9002226.02101,"1075,648.83 ",.02)
 ;;648.83 
 ;;9002226.02101,"1075,648.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,648.93 ",.01)
 ;;648.93 
 ;;9002226.02101,"1075,648.93 ",.02)
 ;;648.93 
 ;;9002226.02101,"1075,648.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,649.03 ",.01)
 ;;649.03 
 ;;9002226.02101,"1075,649.03 ",.02)
 ;;649.03 
 ;;9002226.02101,"1075,649.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,649.13 ",.01)
 ;;649.13 
 ;;9002226.02101,"1075,649.13 ",.02)
 ;;649.13 
 ;;9002226.02101,"1075,649.13 ",.03)
 ;;1