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

ATXXA27.m

Go to the documentation of this file.
ATXXA27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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,"T53.7X3A ")
 ;;10018
 ;;21,"T53.7X4A ")
 ;;10019
 ;;21,"T53.91XA ")
 ;;10020
 ;;21,"T53.92XA ")
 ;;10021
 ;;21,"T53.93XA ")
 ;;10022
 ;;21,"T53.94XA ")
 ;;10023
 ;;21,"T54.0X1A ")
 ;;10024
 ;;21,"T54.0X2A ")
 ;;10025
 ;;21,"T54.0X3A ")
 ;;10026
 ;;21,"T54.0X4A ")
 ;;10027
 ;;21,"T54.1X1A ")
 ;;10028
 ;;21,"T54.1X2A ")
 ;;10029
 ;;21,"T54.1X3A ")
 ;;10030
 ;;21,"T54.1X4A ")
 ;;10031
 ;;21,"T54.2X1A ")
 ;;10032
 ;;21,"T54.2X2A ")
 ;;10033
 ;;21,"T54.2X3A ")
 ;;10034
 ;;21,"T54.2X4A ")
 ;;10035
 ;;21,"T54.3X1A ")
 ;;10036
 ;;21,"T54.3X2A ")
 ;;10037
 ;;21,"T54.3X3A ")
 ;;10038
 ;;21,"T54.3X4A ")
 ;;10039
 ;;21,"T54.91XA ")
 ;;10040
 ;;21,"T54.92XA ")
 ;;10041
 ;;21,"T54.93XA ")
 ;;10042
 ;;21,"T54.94XA ")
 ;;10043
 ;;21,"T55.0X1A ")
 ;;10044
 ;;21,"T55.0X2A ")
 ;;10045
 ;;21,"T55.0X3A ")
 ;;10046
 ;;21,"T55.0X4A ")
 ;;10047
 ;;21,"T55.1X1A ")
 ;;10048
 ;;21,"T55.1X2A ")
 ;;10049
 ;;21,"T55.1X3A ")
 ;;10050
 ;;21,"T55.1X4A ")
 ;;10051
 ;;21,"T56.0X1A ")
 ;;10052
 ;;21,"T56.0X2A ")
 ;;10053
 ;;21,"T56.0X3A ")
 ;;10054
 ;;21,"T56.0X4A ")
 ;;10055
 ;;21,"T56.1X1A ")
 ;;10056
 ;;21,"T56.1X2A ")
 ;;10057
 ;;21,"T56.1X3A ")
 ;;10058
 ;;21,"T56.1X4A ")
 ;;10059
 ;;21,"T56.2X1A ")
 ;;10060
 ;;21,"T56.2X2A ")
 ;;10061
 ;;21,"T56.2X3A ")
 ;;10062
 ;;21,"T56.2X4A ")
 ;;10063
 ;;21,"T56.3X1A ")
 ;;10064
 ;;21,"T56.3X2A ")
 ;;10065
 ;;21,"T56.3X3A ")
 ;;10066
 ;;21,"T56.3X4A ")
 ;;10067
 ;;21,"T56.4X1A ")
 ;;10068
 ;;21,"T56.4X2A ")
 ;;10069
 ;;21,"T56.4X3A ")
 ;;10070
 ;;21,"T56.4X4A ")
 ;;10071
 ;;21,"T56.5X1A ")
 ;;10072
 ;;21,"T56.5X2A ")
 ;;10073
 ;;21,"T56.5X3A ")
 ;;10074
 ;;21,"T56.5X4A ")
 ;;10075
 ;;21,"T56.6X1A ")
 ;;10076
 ;;21,"T56.6X2A ")
 ;;10077
 ;;21,"T56.6X3A ")
 ;;10078
 ;;21,"T56.6X4A ")
 ;;10079
 ;;21,"T56.7X1A ")
 ;;10080
 ;;21,"T56.7X2A ")
 ;;10081
 ;;21,"T56.7X3A ")
 ;;10082
 ;;21,"T56.7X4A ")
 ;;10083
 ;;21,"T56.811A ")
 ;;10084
 ;;21,"T56.812A ")
 ;;10085
 ;;21,"T56.813A ")
 ;;10086
 ;;21,"T56.814A ")
 ;;10087
 ;;21,"T56.891A ")
 ;;10088
 ;;21,"T56.892A ")
 ;;10089
 ;;21,"T56.893A ")
 ;;10090
 ;;21,"T56.894A ")
 ;;10091
 ;;21,"T56.91XA ")
 ;;10092
 ;;21,"T56.92XA ")
 ;;10093
 ;;21,"T56.93XA ")
 ;;10094
 ;;21,"T56.94XA ")
 ;;10095
 ;;21,"T57.0X1A ")
 ;;10096
 ;;21,"T57.0X2A ")
 ;;10097
 ;;21,"T57.0X3A ")
 ;;10098
 ;;21,"T57.0X4A ")
 ;;10099
 ;;21,"T57.1X1A ")
 ;;10100
 ;;21,"T57.1X2A ")
 ;;10101
 ;;21,"T57.1X3A ")
 ;;10102
 ;;21,"T57.1X4A ")
 ;;10103
 ;;21,"T57.2X1A ")
 ;;10104
 ;;21,"T57.2X2A ")
 ;;10105
 ;;21,"T57.2X3A ")
 ;;10106
 ;;21,"T57.2X4A ")
 ;;10107
 ;;21,"T57.3X1A ")
 ;;10108
 ;;21,"T57.3X2A ")
 ;;10109
 ;;21,"T57.3X3A ")
 ;;10110
 ;;21,"T57.3X4A ")
 ;;10111
 ;;21,"T57.8X1A ")
 ;;10112
 ;;21,"T57.8X2A ")
 ;;10113
 ;;21,"T57.8X3A ")
 ;;10114
 ;;21,"T57.8X4A ")
 ;;10115
 ;;21,"T57.91XA ")
 ;;10116
 ;;21,"T57.92XA ")
 ;;10117
 ;;21,"T57.93XA ")
 ;;10118
 ;;21,"T57.94XA ")
 ;;10119
 ;;21,"T58.01XA ")
 ;;10120
 ;;21,"T58.02XA ")
 ;;10121
 ;;21,"T58.03XA ")
 ;;10122
 ;;21,"T58.04XA ")
 ;;10123
 ;;21,"T58.11XA ")
 ;;10124
 ;;21,"T58.12XA ")
 ;;10125
 ;;21,"T58.13XA ")
 ;;10126
 ;;21,"T58.14XA ")
 ;;10127
 ;;21,"T58.2X1A ")
 ;;10128
 ;;21,"T58.2X2A ")
 ;;10129
 ;;21,"T58.2X3A ")
 ;;10130
 ;;21,"T58.2X4A ")
 ;;10131
 ;;21,"T58.8X1A ")
 ;;10132
 ;;21,"T58.8X2A ")
 ;;10133
 ;;21,"T58.8X3A ")
 ;;10134
 ;;21,"T58.8X4A ")
 ;;10135
 ;;21,"T58.91XA ")
 ;;10136
 ;;21,"T58.92XA ")
 ;;10137
 ;;21,"T58.93XA ")
 ;;10138
 ;;21,"T58.94XA ")
 ;;10139
 ;;21,"T59.0X1A ")
 ;;10140
 ;;21,"T59.0X2A ")
 ;;10141
 ;;21,"T59.0X3A ")
 ;;10142
 ;;21,"T59.0X4A ")
 ;;10143
 ;;21,"T59.1X1A ")
 ;;10144
 ;;21,"T59.1X2A ")
 ;;10145
 ;;21,"T59.1X3A ")
 ;;10146
 ;;21,"T59.1X4A ")
 ;;10147
 ;;21,"T59.2X1A ")
 ;;10148
 ;;21,"T59.2X2A ")
 ;;10149
 ;;21,"T59.2X3A ")
 ;;10150
 ;;21,"T59.2X4A ")
 ;;10151
 ;;21,"T59.3X1A ")
 ;;10152
 ;;21,"T59.3X2A ")
 ;;10153
 ;;21,"T59.3X3A ")
 ;;10154
 ;;21,"T59.3X4A ")
 ;;10155
 ;;21,"T59.4X1A ")
 ;;10156
 ;;21,"T59.4X2A ")
 ;;10157
 ;;21,"T59.4X3A ")
 ;;10158
 ;;21,"T59.4X4A ")
 ;;10159
 ;;21,"T59.5X1A ")
 ;;10160
 ;;21,"T59.5X2A ")
 ;;10161
 ;;21,"T59.5X3A ")
 ;;10162
 ;;21,"T59.5X4A ")
 ;;10163
 ;;21,"T59.6X1A ")
 ;;10164
 ;;21,"T59.6X2A ")
 ;;10165
 ;;21,"T59.6X3A ")
 ;;10166
 ;;21,"T59.6X4A ")
 ;;10167
 ;;21,"T59.7X1A ")
 ;;10168
 ;;21,"T59.7X2A ")
 ;;10169
 ;;21,"T59.7X3A ")
 ;;10170
 ;;21,"T59.7X4A ")
 ;;10171
 ;;21,"T59.811A ")
 ;;10172
 ;;21,"T59.812A ")
 ;;10173
 ;;21,"T59.813A ")
 ;;10174
 ;;21,"T59.814A ")
 ;;10175
 ;;21,"T59.891A ")
 ;;10176
 ;;21,"T59.892A ")
 ;;10177
 ;;21,"T59.893A ")
 ;;10178
 ;;21,"T59.894A ")
 ;;10179
 ;;21,"T59.91XA ")
 ;;10180
 ;;21,"T59.92XA ")
 ;;10181
 ;;21,"T59.93XA ")
 ;;10182
 ;;21,"T59.94XA ")
 ;;10183
 ;;21,"T60.0X1A ")
 ;;10184
 ;;21,"T60.0X2A ")
 ;;10185
 ;;21,"T60.0X3A ")
 ;;10186
 ;;21,"T60.0X4A ")
 ;;10187
 ;;21,"T60.1X1A ")
 ;;10188
 ;;21,"T60.1X2A ")
 ;;10189
 ;;21,"T60.1X3A ")
 ;;10190
 ;;21,"T60.1X4A ")
 ;;10191
 ;;21,"T60.2X1A ")
 ;;10192
 ;;21,"T60.2X2A ")
 ;;10193
 ;;21,"T60.2X3A ")
 ;;10194
 ;;21,"T60.2X4A ")
 ;;10195
 ;;21,"T60.3X1A ")
 ;;10196
 ;;21,"T60.3X2A ")
 ;;10197
 ;;21,"T60.3X3A ")
 ;;10198
 ;;21,"T60.3X4A ")
 ;;10199
 ;;21,"T60.4X1A ")
 ;;10200
 ;;21,"T60.4X2A ")
 ;;10201
 ;;21,"T60.4X3A ")
 ;;10202
 ;;21,"T60.4X4A ")
 ;;10203
 ;;21,"T60.8X1A ")
 ;;10204
 ;;21,"T60.8X2A ")
 ;;10205
 ;;21,"T60.8X3A ")
 ;;10206
 ;;21,"T60.8X4A ")
 ;;10207
 ;;21,"T60.91XA ")
 ;;10208
 ;;21,"T60.92XA ")
 ;;10209
 ;;21,"T60.93XA ")
 ;;10210
 ;;21,"T60.94XA ")
 ;;10211
 ;;21,"T61.01XA ")
 ;;10212
 ;;21,"T61.02XA ")
 ;;10213
 ;;21,"T61.03XA ")
 ;;10214
 ;;21,"T61.04XA ")
 ;;10215
 ;;21,"T61.11XA ")
 ;;10216
 ;;21,"T61.12XA ")
 ;;10217
 ;;21,"T61.13XA ")
 ;;10218
 ;;21,"T61.14XA ")
 ;;10219
 ;;21,"T61.771A ")
 ;;10220
 ;;21,"T61.772A ")
 ;;10221
 ;;21,"T61.773A ")
 ;;10222
 ;;21,"T61.774A ")
 ;;10223
 ;;21,"T61.781A ")
 ;;10224
 ;;21,"T61.782A ")
 ;;10225
 ;;21,"T61.783A ")
 ;;10226
 ;;21,"T61.784A ")
 ;;10227
 ;;21,"T61.8X1A ")
 ;;10228
 ;;21,"T61.8X2A ")
 ;;10229
 ;;21,"T61.8X3A ")
 ;;10230
 ;;21,"T61.8X4A ")
 ;;10231
 ;;21,"T61.91XA ")
 ;;10232
 ;;21,"T61.92XA ")
 ;;10233
 ;;21,"T61.93XA ")
 ;;10234
 ;;21,"T61.94XA ")
 ;;10235
 ;;21,"T62.0X1A ")
 ;;10236
 ;;21,"T62.0X2A ")
 ;;10237
 ;;21,"T62.0X3A ")
 ;;10238
 ;;21,"T62.0X4A ")
 ;;10239
 ;;21,"T62.1X1A ")
 ;;10240
 ;;21,"T62.1X2A ")
 ;;10241
 ;;21,"T62.1X3A ")
 ;;10242
 ;;21,"T62.1X4A ")
 ;;10243
 ;;21,"T62.2X1A ")
 ;;10244
 ;;21,"T62.2X2A ")
 ;;10245
 ;;21,"T62.2X3A ")
 ;;10246
 ;;21,"T62.2X4A ")
 ;;10247
 ;;21,"T62.8X1A ")
 ;;10248
 ;;21,"T62.8X2A ")
 ;;10249
 ;;21,"T62.8X3A ")
 ;;10250
 ;;21,"T62.8X4A ")
 ;;10251
 ;;21,"T62.91XA ")
 ;;10252
 ;;21,"T62.92XA ")
 ;;10253
 ;;21,"T62.93XA ")
 ;;10254
 ;;21,"T62.94XA ")
 ;;10255
 ;;21,"T63.001A ")
 ;;10256
 ;;21,"T63.002A ")
 ;;10257
 ;;21,"T63.003A ")
 ;;10258
 ;;21,"T63.004A ")
 ;;10259
 ;;21,"T63.011A ")
 ;;10260
 ;;21,"T63.012A ")
 ;;10261
 ;;21,"T63.013A ")
 ;;10262
 ;;21,"T63.014A ")
 ;;10263
 ;;21,"T63.021A ")
 ;;10264
 ;;21,"T63.022A ")
 ;;10265
 ;;21,"T63.023A ")
 ;;10266
 ;;21,"T63.024A ")
 ;;10267
 ;;21,"T63.031A ")
 ;;10268
 ;;21,"T63.032A ")
 ;;10269
 ;;21,"T63.033A ")
 ;;10270
 ;;21,"T63.034A ")
 ;;10271
 ;;21,"T63.041A ")
 ;;10272
 ;;21,"T63.042A ")
 ;;10273
 ;;21,"T63.043A ")
 ;;10274
 ;;21,"T63.044A ")
 ;;10275
 ;;21,"T63.061A ")
 ;;10276
 ;;21,"T63.062A ")
 ;;10277
 ;;21,"T63.063A ")
 ;;10278
 ;;21,"T63.064A ")
 ;;10279
 ;;21,"T63.071A ")
 ;;10280
 ;;21,"T63.072A ")
 ;;10281
 ;;21,"T63.073A ")
 ;;10282
 ;;21,"T63.074A ")
 ;;10283
 ;;21,"T63.081A ")
 ;;10284
 ;;21,"T63.082A ")
 ;;10285
 ;;21,"T63.083A ")
 ;;10286
 ;;21,"T63.084A ")
 ;;10287
 ;;21,"T63.091A ")
 ;;10288
 ;;21,"T63.092A ")
 ;;10289
 ;;21,"T63.093A ")
 ;;10290
 ;;21,"T63.094A ")
 ;;10291
 ;;21,"T63.111A ")
 ;;10292
 ;;21,"T63.112A ")
 ;;10293
 ;;21,"T63.113A ")
 ;;10294
 ;;21,"T63.114A ")
 ;;10295
 ;;21,"T63.121A ")
 ;;10296
 ;;21,"T63.122A ")
 ;;10297
 ;;21,"T63.123A ")
 ;;10298
 ;;21,"T63.124A ")
 ;;10299
 ;;21,"T63.191A ")
 ;;10300
 ;;21,"T63.192A ")
 ;;10301
 ;;21,"T63.193A ")
 ;;10302
 ;;21,"T63.194A ")
 ;;10303
 ;;21,"T63.2X1A ")
 ;;10304
 ;;21,"T63.2X2A ")
 ;;10305
 ;;21,"T63.2X3A ")
 ;;10306
 ;;21,"T63.2X4A ")
 ;;10307
 ;;21,"T63.301A ")
 ;;10308
 ;;21,"T63.302A ")
 ;;10309
 ;;21,"T63.303A ")
 ;;10310
 ;;21,"T63.304A ")
 ;;10311
 ;;21,"T63.311A ")
 ;;10312
 ;;21,"T63.312A ")
 ;;10313
 ;;21,"T63.313A ")
 ;;10314
 ;;21,"T63.314A ")
 ;;10315
 ;;21,"T63.321A ")
 ;;10316
 ;;21,"T63.322A ")
 ;;10317
 ;;21,"T63.323A ")
 ;;10318
 ;;21,"T63.324A ")
 ;;10319
 ;;21,"T63.331A ")
 ;;10320
 ;;21,"T63.332A ")
 ;;10321
 ;;21,"T63.333A ")
 ;;10322
 ;;21,"T63.334A ")
 ;;10323
 ;;21,"T63.391A ")
 ;;10324
 ;;21,"T63.392A ")
 ;;10325
 ;;21,"T63.393A ")
 ;;10326
 ;;21,"T63.394A ")
 ;;10327
 ;;21,"T63.411A ")
 ;;10328
 ;;21,"T63.412A ")
 ;;10329
 ;;21,"T63.413A ")
 ;;10330
 ;;21,"T63.414A ")
 ;;10331
 ;;21,"T63.421A ")
 ;;10332
 ;;21,"T63.422A ")
 ;;10333
 ;;21,"T63.423A ")
 ;;10334
 ;;21,"T63.424A ")
 ;;10335
 ;;21,"T63.431A ")
 ;;10336
 ;;21,"T63.432A ")
 ;;10337
 ;;21,"T63.433A ")
 ;;10338
 ;;21,"T63.434A ")
 ;;10339
 ;;21,"T63.441A ")
 ;;10340
 ;;21,"T63.442A ")
 ;;10341
 ;;21,"T63.443A ")
 ;;10342
 ;;21,"T63.444A ")
 ;;10343
 ;;21,"T63.451A ")
 ;;10344
 ;;21,"T63.452A ")
 ;;10345
 ;;21,"T63.453A ")
 ;;10346
 ;;21,"T63.454A ")
 ;;10347
 ;;21,"T63.461A ")
 ;;10348
 ;;21,"T63.462A ")
 ;;10349
 ;;21,"T63.463A ")
 ;;10350
 ;;21,"T63.464A ")
 ;;10351
 ;;21,"T63.481A ")
 ;;10352
 ;;21,"T63.482A ")
 ;;10353
 ;;21,"T63.483A ")
 ;;10354
 ;;21,"T63.484A ")
 ;;10355
 ;;21,"T63.511A ")
 ;;10356
 ;;21,"T63.512A ")
 ;;10357
 ;;21,"T63.513A ")
 ;;10358
 ;;21,"T63.514A ")
 ;;10359
 ;;21,"T63.591A ")
 ;;10360
 ;;21,"T63.592A ")
 ;;10361
 ;;21,"T63.593A ")
 ;;10362
 ;;21,"T63.594A ")
 ;;10363
 ;;21,"T63.611A ")
 ;;10364
 ;;21,"T63.612A ")
 ;;10365
 ;;21,"T63.613A ")
 ;;10366
 ;;21,"T63.614A ")
 ;;10367
 ;;21,"T63.621A ")
 ;;10368
 ;;21,"T63.622A ")
 ;;10369
 ;;21,"T63.623A ")
 ;;10370
 ;;21,"T63.624A ")
 ;;10371
 ;;21,"T63.631A ")
 ;;10372
 ;;21,"T63.632A ")
 ;;10373
 ;;21,"T63.633A ")
 ;;10374
 ;;21,"T63.634A ")
 ;;10375
 ;;21,"T63.691A ")
 ;;10376
 ;;21,"T63.692A ")
 ;;10377
 ;;21,"T63.693A ")
 ;;10378
 ;;21,"T63.694A ")
 ;;10379
 ;;21,"T63.711A ")
 ;;10380
 ;;21,"T63.712A ")
 ;;10381
 ;;21,"T63.713A ")
 ;;10382
 ;;21,"T63.714A ")
 ;;10383
 ;;21,"T63.791A ")
 ;;10384
 ;;21,"T63.792A ")
 ;;10385
 ;;21,"T63.793A ")
 ;;10386
 ;;21,"T63.794A ")
 ;;10387
 ;;21,"T63.811A ")
 ;;10388
 ;;21,"T63.812A ")
 ;;10389
 ;;21,"T63.813A ")
 ;;10390