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

ATXD8P6.m

Go to the documentation of this file.
ATXD8P6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 12, 2014;
 ;;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,"O74.5 ")
 ;;1986
 ;;21,"O74.6 ")
 ;;1987
 ;;21,"O74.7 ")
 ;;1988
 ;;21,"O74.8 ")
 ;;1989
 ;;21,"O74.9 ")
 ;;1990
 ;;21,"O75.0 ")
 ;;1991
 ;;21,"O75.1 ")
 ;;1992
 ;;21,"O75.2 ")
 ;;1993
 ;;21,"O75.3 ")
 ;;1994
 ;;21,"O75.4 ")
 ;;1995
 ;;21,"O75.5 ")
 ;;1996
 ;;21,"O75.81 ")
 ;;1997
 ;;21,"O75.89 ")
 ;;1998
 ;;21,"O75.9 ")
 ;;1999
 ;;21,"O76. ")
 ;;2000
 ;;21,"O77.0 ")
 ;;2001
 ;;21,"O77.1 ")
 ;;2002
 ;;21,"O77.8 ")
 ;;2003
 ;;21,"O77.9 ")
 ;;2004
 ;;21,"O88.011 ")
 ;;2005
 ;;21,"O88.012 ")
 ;;2006
 ;;21,"O88.013 ")
 ;;2007
 ;;21,"O88.019 ")
 ;;2008
 ;;21,"O88.02 ")
 ;;2009
 ;;21,"O88.03 ")
 ;;2010
 ;;21,"O88.111 ")
 ;;2291
 ;;21,"O88.112 ")
 ;;2011
 ;;21,"O88.113 ")
 ;;2012
 ;;21,"O88.119 ")
 ;;2013
 ;;21,"O88.12 ")
 ;;2014
 ;;21,"O88.13 ")
 ;;2015
 ;;21,"O88.211 ")
 ;;2016
 ;;21,"O88.212 ")
 ;;2017
 ;;21,"O88.213 ")
 ;;2018
 ;;21,"O88.219 ")
 ;;2019
 ;;21,"O88.22 ")
 ;;2020
 ;;21,"O88.23 ")
 ;;2021
 ;;21,"O88.311 ")
 ;;2022
 ;;21,"O88.312 ")
 ;;2023
 ;;21,"O88.313 ")
 ;;2024
 ;;21,"O88.319 ")
 ;;2025
 ;;21,"O88.32 ")
 ;;2026
 ;;21,"O88.33 ")
 ;;2027
 ;;21,"O88.811 ")
 ;;2028
 ;;21,"O88.812 ")
 ;;2029
 ;;21,"O88.813 ")
 ;;2030
 ;;21,"O88.819 ")
 ;;2031
 ;;21,"O88.82 ")
 ;;2032
 ;;21,"O88.83 ")
 ;;2033
 ;;21,"O91.011 ")
 ;;2034
 ;;21,"O91.012 ")
 ;;2035
 ;;21,"O91.013 ")
 ;;2036
 ;;21,"O91.019 ")
 ;;2037
 ;;21,"O91.02 ")
 ;;2038
 ;;21,"O91.03 ")
 ;;2039
 ;;21,"O91.112 ")
 ;;2040
 ;;21,"O91.113 ")
 ;;2041
 ;;21,"O91.119 ")
 ;;2042
 ;;21,"O91.12 ")
 ;;2043
 ;;21,"O91.13 ")
 ;;2044
 ;;21,"O91.212 ")
 ;;2045
 ;;21,"O91.213 ")
 ;;2046
 ;;21,"O91.219 ")
 ;;2047
 ;;21,"O91.23 ")
 ;;2048
 ;;21,"O92.011 ")
 ;;2049
 ;;21,"O92.012 ")
 ;;2050
 ;;21,"O92.013 ")
 ;;2051
 ;;21,"O92.019 ")
 ;;2052
 ;;21,"O92.02 ")
 ;;2053
 ;;21,"O92.03 ")
 ;;2054
 ;;21,"O92.112 ")
 ;;2055
 ;;21,"O92.113 ")
 ;;2056
 ;;21,"O92.119 ")
 ;;2057
 ;;21,"O92.12 ")
 ;;2058
 ;;21,"O92.13 ")
 ;;2059
 ;;21,"O92.20 ")
 ;;2060
 ;;21,"O92.29 ")
 ;;2061
 ;;21,"O92.3 ")
 ;;2062
 ;;21,"O92.4 ")
 ;;2063
 ;;21,"O92.5 ")
 ;;2064
 ;;21,"O92.6 ")
 ;;2065
 ;;21,"O92.70 ")
 ;;2066
 ;;21,"O92.79 ")
 ;;2067
 ;;21,"O98.011 ")
 ;;2068
 ;;21,"O98.012 ")
 ;;2069
 ;;21,"O98.013 ")
 ;;2070
 ;;21,"O98.019 ")
 ;;2071
 ;;21,"O98.02 ")
 ;;2072
 ;;21,"O98.03 ")
 ;;2073
 ;;21,"O98.111 ")
 ;;2074
 ;;21,"O98.112 ")
 ;;2075
 ;;21,"O98.113 ")
 ;;2076
 ;;21,"O98.119 ")
 ;;2077
 ;;21,"O98.12 ")
 ;;2078
 ;;21,"O98.13 ")
 ;;2079
 ;;21,"O98.211 ")
 ;;2080
 ;;21,"O98.212 ")
 ;;2081
 ;;21,"O98.213 ")
 ;;2082
 ;;21,"O98.219 ")
 ;;2083
 ;;21,"O98.22 ")
 ;;2084
 ;;21,"O98.23 ")
 ;;2085
 ;;21,"O98.311 ")
 ;;2086
 ;;21,"O98.312 ")
 ;;2087
 ;;21,"O98.313 ")
 ;;2088
 ;;21,"O98.319 ")
 ;;2089
 ;;21,"O98.32 ")
 ;;2090
 ;;21,"O98.33 ")
 ;;2091
 ;;21,"O98.411 ")
 ;;2092
 ;;21,"O98.412 ")
 ;;2093
 ;;21,"O98.413 ")
 ;;2094
 ;;21,"O98.419 ")
 ;;2095
 ;;21,"O98.42 ")
 ;;2096
 ;;21,"O98.43 ")
 ;;2097
 ;;21,"O98.511 ")
 ;;2098
 ;;21,"O98.512 ")
 ;;2099
 ;;21,"O98.513 ")
 ;;2100
 ;;21,"O98.519 ")
 ;;2101
 ;;21,"O98.52 ")
 ;;2102
 ;;21,"O98.53 ")
 ;;2103
 ;;21,"O98.611 ")
 ;;2104
 ;;21,"O98.612 ")
 ;;2105
 ;;21,"O98.613 ")
 ;;2106
 ;;21,"O98.619 ")
 ;;2107
 ;;21,"O98.62 ")
 ;;2108
 ;;21,"O98.63 ")
 ;;2109
 ;;21,"O98.711 ")
 ;;2110
 ;;21,"O98.712 ")
 ;;2111
 ;;21,"O98.713 ")
 ;;2112
 ;;21,"O98.719 ")
 ;;2113
 ;;21,"O98.72 ")
 ;;2114
 ;;21,"O98.73 ")
 ;;2115
 ;;21,"O98.811 ")
 ;;2116
 ;;21,"O98.812 ")
 ;;2117
 ;;21,"O98.813 ")
 ;;2118
 ;;21,"O98.819 ")
 ;;2119
 ;;21,"O98.82 ")
 ;;2120
 ;;21,"O98.83 ")
 ;;2121
 ;;21,"O98.911 ")
 ;;2122
 ;;21,"O98.912 ")
 ;;2123
 ;;21,"O98.913 ")
 ;;2124
 ;;21,"O98.919 ")
 ;;2125
 ;;21,"O98.92 ")
 ;;2126
 ;;21,"O98.93 ")
 ;;2127
 ;;21,"O99.011 ")
 ;;2128
 ;;21,"O99.012 ")
 ;;2129
 ;;21,"O99.013 ")
 ;;2130
 ;;21,"O99.019 ")
 ;;2131
 ;;21,"O99.02 ")
 ;;2132
 ;;21,"O99.03 ")
 ;;2133
 ;;21,"O99.111 ")
 ;;2134
 ;;21,"O99.112 ")
 ;;2135
 ;;21,"O99.113 ")
 ;;2136
 ;;21,"O99.119 ")
 ;;2137
 ;;21,"O99.12 ")
 ;;2138
 ;;21,"O99.13 ")
 ;;2139
 ;;21,"O99.210 ")
 ;;2140
 ;;21,"O99.211 ")
 ;;2141
 ;;21,"O99.212 ")
 ;;2142
 ;;21,"O99.213 ")
 ;;2143
 ;;21,"O99.214 ")
 ;;2144
 ;;21,"O99.215 ")
 ;;2145
 ;;21,"O99.280 ")
 ;;2146
 ;;21,"O99.281 ")
 ;;2147
 ;;21,"O99.282 ")
 ;;2148
 ;;21,"O99.283 ")
 ;;2149
 ;;21,"O99.284 ")
 ;;2150
 ;;21,"O99.285 ")
 ;;2151
 ;;21,"O99.310 ")
 ;;2152
 ;;21,"O99.311 ")
 ;;2153
 ;;21,"O99.312 ")
 ;;2154
 ;;21,"O99.313 ")
 ;;2155
 ;;21,"O99.314 ")
 ;;2156
 ;;21,"O99.315 ")
 ;;2157
 ;;21,"O99.320 ")
 ;;2158
 ;;21,"O99.321 ")
 ;;2159
 ;;21,"O99.322 ")
 ;;2160
 ;;21,"O99.323 ")
 ;;2161
 ;;21,"O99.324 ")
 ;;2162
 ;;21,"O99.325 ")
 ;;2163
 ;;21,"O99.330 ")
 ;;2164
 ;;21,"O99.331 ")
 ;;2165
 ;;21,"O99.332 ")
 ;;2166
 ;;21,"O99.333 ")
 ;;2167
 ;;21,"O99.334 ")
 ;;2168
 ;;21,"O99.335 ")
 ;;2169
 ;;21,"O99.340 ")
 ;;2170
 ;;21,"O99.341 ")
 ;;2171
 ;;21,"O99.342 ")
 ;;2172
 ;;21,"O99.343 ")
 ;;2173
 ;;21,"O99.344 ")
 ;;2174
 ;;21,"O99.345 ")
 ;;2175
 ;;21,"O99.350 ")
 ;;2176
 ;;21,"O99.351 ")
 ;;2177
 ;;21,"O99.352 ")
 ;;2178
 ;;21,"O99.353 ")
 ;;2179
 ;;21,"O99.354 ")
 ;;2180
 ;;21,"O99.355 ")
 ;;2181
 ;;21,"O99.411 ")
 ;;2182
 ;;21,"O99.412 ")
 ;;2183
 ;;21,"O99.413 ")
 ;;2184
 ;;21,"O99.419 ")
 ;;2185
 ;;21,"O99.42 ")
 ;;2186
 ;;21,"O99.43 ")
 ;;2187
 ;;21,"O99.511 ")
 ;;2188
 ;;21,"O99.512 ")
 ;;2189
 ;;21,"O99.513 ")
 ;;2190
 ;;21,"O99.519 ")
 ;;2191
 ;;21,"O99.52 ")
 ;;2192
 ;;21,"O99.53 ")
 ;;2193
 ;;21,"O99.611 ")
 ;;2194
 ;;21,"O99.612 ")
 ;;2195
 ;;21,"O99.613 ")
 ;;2196
 ;;21,"O99.619 ")
 ;;2197
 ;;21,"O99.62 ")
 ;;2198
 ;;21,"O99.63 ")
 ;;2199
 ;;21,"O99.711 ")
 ;;2200
 ;;21,"O99.712 ")
 ;;2201
 ;;21,"O99.713 ")
 ;;2202
 ;;21,"O99.719 ")
 ;;2203
 ;;21,"O99.72 ")
 ;;2204
 ;;21,"O99.73 ")
 ;;2205
 ;;21,"O99.810 ")
 ;;2206
 ;;21,"O99.814 ")
 ;;2207
 ;;21,"O99.815 ")
 ;;2208
 ;;21,"O99.820 ")
 ;;2209
 ;;21,"O99.824 ")
 ;;2210
 ;;21,"O99.825 ")
 ;;2211
 ;;21,"O99.830 ")
 ;;2212
 ;;21,"O99.834 ")
 ;;2213
 ;;21,"O99.835 ")
 ;;2214
 ;;21,"O99.840 ")
 ;;2215
 ;;21,"O99.841 ")
 ;;2216
 ;;21,"O99.842 ")
 ;;2217
 ;;21,"O99.843 ")
 ;;2218
 ;;21,"O99.844 ")
 ;;2219
 ;;21,"O99.845 ")
 ;;2220
 ;;21,"O99.89 ")
 ;;2221
 ;;21,"O9A.111 ")
 ;;2222
 ;;21,"O9A.112 ")
 ;;2223
 ;;21,"O9A.113 ")
 ;;2224
 ;;21,"O9A.119 ")
 ;;2225
 ;;21,"O9A.12 ")
 ;;2226
 ;;21,"O9A.13 ")
 ;;2227
 ;;21,"O9A.211 ")
 ;;2228
 ;;21,"O9A.212 ")
 ;;2229
 ;;21,"O9A.213 ")
 ;;2230
 ;;21,"O9A.219 ")
 ;;2231
 ;;21,"O9A.22 ")
 ;;2232
 ;;21,"O9A.23 ")
 ;;2233
 ;;21,"O9A.311 ")
 ;;2234
 ;;21,"O9A.312 ")
 ;;2235
 ;;21,"O9A.313 ")
 ;;2236
 ;;21,"O9A.319 ")
 ;;2237
 ;;21,"O9A.32 ")
 ;;2238
 ;;21,"O9A.33 ")
 ;;2239
 ;;21,"O9A.411 ")
 ;;2240
 ;;21,"O9A.412 ")
 ;;2241
 ;;21,"O9A.413 ")
 ;;2242
 ;;21,"O9A.419 ")
 ;;2243
 ;;21,"O9A.42 ")
 ;;2244
 ;;21,"O9A.43 ")
 ;;2245
 ;;21,"O9A.511 ")
 ;;2246
 ;;21,"O9A.512 ")
 ;;2247
 ;;21,"O9A.513 ")
 ;;2248
 ;;21,"O9A.519 ")
 ;;2249
 ;;21,"O9A.52 ")
 ;;2250
 ;;21,"O9A.53 ")
 ;;2251
 ;;21,"V22.0 ")
 ;;2252
 ;;21,"V72.42 ")
 ;;2253
 ;;21,"Z03.71 ")
 ;;2254
 ;;21,"Z03.72 ")
 ;;2255
 ;;21,"Z03.73 ")
 ;;2256
 ;;21,"Z03.74 ")
 ;;2257
 ;;21,"Z03.75 ")
 ;;2258
 ;;21,"Z03.79 ")
 ;;2259
 ;;21,"Z32.01 ")
 ;;2260
 ;;21,"Z33.1 ")
 ;;2261
 ;;21,"Z34.00 ")
 ;;2262
 ;;21,"Z34.01 ")
 ;;2263
 ;;21,"Z34.02 ")
 ;;2264
 ;;21,"Z34.03 ")
 ;;2265
 ;;21,"Z34.80 ")
 ;;2266
 ;;21,"Z34.81 ")
 ;;2267
 ;;21,"Z34.82 ")
 ;;2268
 ;;21,"Z34.83 ")
 ;;2269
 ;;21,"Z34.90 ")
 ;;2270
 ;;21,"Z34.91 ")
 ;;2271
 ;;21,"Z34.92 ")
 ;;2272
 ;;21,"Z34.93 ")
 ;;2273
 ;;21,"Z36. ")
 ;;2274
 ;;9002226,913,.01)
 ;;SURVEILLANCE H1N1 PREGNANCY DX
 ;;9002226,913,.02)
 ;;@
 ;;9002226,913,.04)
 ;;n
 ;;9002226,913,.06)
 ;;@
 ;;9002226,913,.08)
 ;;0
 ;;9002226,913,.09)
 ;;3131113
 ;;9002226,913,.11)
 ;;@
 ;;9002226,913,.12)
 ;;31
 ;;9002226,913,.13)
 ;;1
 ;;9002226,913,.14)
 ;;@
 ;;9002226,913,.15)
 ;;80
 ;;9002226,913,.16)
 ;;@
 ;;9002226,913,.17)
 ;;@
 ;;9002226,913,3101)
 ;;@
 ;;9002226.02101,"913,640.00 ",.01)
 ;;640.00 
 ;;9002226.02101,"913,640.00 ",.02)
 ;;640.00 
 ;;9002226.02101,"913,640.00 ",.03)
 ;;1
 ;;9002226.02101,"913,640.03 ",.01)
 ;;640.03 
 ;;9002226.02101,"913,640.03 ",.02)
 ;;640.80 
 ;;9002226.02101,"913,640.03 ",.03)
 ;;1
 ;;9002226.02101,"913,640.83 ",.01)
 ;;640.83 
 ;;9002226.02101,"913,640.83 ",.02)
 ;;640.90 
 ;;9002226.02101,"913,640.83 ",.03)
 ;;1
 ;;9002226.02101,"913,640.93 ",.01)
 ;;640.93 
 ;;9002226.02101,"913,640.93 ",.02)
 ;;641.00 
 ;;9002226.02101,"913,640.93 ",.03)
 ;;1
 ;;9002226.02101,"913,641.03 ",.01)
 ;;641.03 
 ;;9002226.02101,"913,641.03 ",.02)
 ;;641.10 
 ;;9002226.02101,"913,641.03 ",.03)
 ;;1
 ;;9002226.02101,"913,641.13 ",.01)
 ;;641.13 
 ;;9002226.02101,"913,641.13 ",.02)
 ;;641.20 
 ;;9002226.02101,"913,641.13 ",.03)
 ;;1
 ;;9002226.02101,"913,641.23 ",.01)
 ;;641.23 
 ;;9002226.02101,"913,641.23 ",.02)
 ;;641.30 
 ;;9002226.02101,"913,641.23 ",.03)
 ;;1
 ;;9002226.02101,"913,641.33 ",.01)
 ;;641.33 
 ;;9002226.02101,"913,641.33 ",.02)
 ;;641.80 
 ;;9002226.02101,"913,641.33 ",.03)
 ;;1
 ;;9002226.02101,"913,641.83 ",.01)
 ;;641.83 
 ;;9002226.02101,"913,641.83 ",.02)
 ;;641.90 
 ;;9002226.02101,"913,641.83 ",.03)
 ;;1
 ;;9002226.02101,"913,641.93 ",.01)
 ;;641.93 
 ;;9002226.02101,"913,641.93 ",.02)
 ;;642.00 
 ;;9002226.02101,"913,641.93 ",.03)
 ;;1
 ;;9002226.02101,"913,642.03 ",.01)
 ;;642.03 
 ;;9002226.02101,"913,642.03 ",.02)
 ;;642.03 
 ;;9002226.02101,"913,642.03 ",.03)
 ;;1
 ;;9002226.02101,"913,642.10 ",.01)
 ;;642.10 
 ;;9002226.02101,"913,642.10 ",.02)
 ;;642.10 
 ;;9002226.02101,"913,642.10 ",.03)
 ;;1
 ;;9002226.02101,"913,642.13 ",.01)
 ;;642.13 
 ;;9002226.02101,"913,642.13 ",.02)
 ;;642.13 
 ;;9002226.02101,"913,642.13 ",.03)
 ;;1
 ;;9002226.02101,"913,642.20 ",.01)
 ;;642.20 
 ;;9002226.02101,"913,642.20 ",.02)
 ;;642.20 
 ;;9002226.02101,"913,642.20 ",.03)
 ;;1
 ;;9002226.02101,"913,642.23 ",.01)
 ;;642.23 
 ;;9002226.02101,"913,642.23 ",.02)
 ;;642.23 
 ;;9002226.02101,"913,642.23 ",.03)
 ;;1
 ;;9002226.02101,"913,642.30 ",.01)
 ;;642.30 
 ;;9002226.02101,"913,642.30 ",.02)
 ;;642.30 
 ;;9002226.02101,"913,642.30 ",.03)
 ;;1
 ;;9002226.02101,"913,642.33 ",.01)
 ;;642.33 
 ;;9002226.02101,"913,642.33 ",.02)
 ;;642.33 
 ;;9002226.02101,"913,642.33 ",.03)
 ;;1
 ;;9002226.02101,"913,642.40 ",.01)
 ;;642.40 
 ;;9002226.02101,"913,642.40 ",.02)
 ;;642.40 
 ;;9002226.02101,"913,642.40 ",.03)
 ;;1
 ;;9002226.02101,"913,642.43 ",.01)
 ;;642.43 
 ;;9002226.02101,"913,642.43 ",.02)
 ;;642.43 
 ;;9002226.02101,"913,642.43 ",.03)
 ;;1
 ;;9002226.02101,"913,642.50 ",.01)
 ;;642.50 
 ;;9002226.02101,"913,642.50 ",.02)
 ;;642.50 
 ;;9002226.02101,"913,642.50 ",.03)
 ;;1