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

BGPM5ALI.m

Go to the documentation of this file.
BGPM5ALI ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"58016025379 ")
 ;;1116
 ;;21,"58016025380 ")
 ;;1117
 ;;21,"58016025381 ")
 ;;1118
 ;;21,"58016025382 ")
 ;;1119
 ;;21,"58016025383 ")
 ;;1120
 ;;21,"58016025384 ")
 ;;1121
 ;;21,"58016025387 ")
 ;;1122
 ;;21,"58016025389 ")
 ;;1123
 ;;21,"58016025390 ")
 ;;1124
 ;;21,"58016025391 ")
 ;;1125
 ;;21,"58016025392 ")
 ;;1126
 ;;21,"58016025393 ")
 ;;1127
 ;;21,"58016025396 ")
 ;;1128
 ;;21,"58016025397 ")
 ;;1129
 ;;21,"58016025398 ")
 ;;1130
 ;;21,"58016025399 ")
 ;;1131
 ;;21,"58016036400 ")
 ;;1132
 ;;21,"58016036430 ")
 ;;1133
 ;;21,"58016036460 ")
 ;;1134
 ;;21,"58016036490 ")
 ;;1135
 ;;21,"58016036500 ")
 ;;1136
 ;;21,"58016036530 ")
 ;;1137
 ;;21,"58016036560 ")
 ;;1138
 ;;21,"58016036590 ")
 ;;1139
 ;;21,"58016038500 ")
 ;;1140
 ;;21,"58016038530 ")
 ;;1141
 ;;21,"58016038560 ")
 ;;1142
 ;;21,"58016038590 ")
 ;;1143
 ;;21,"58016054000 ")
 ;;1144
 ;;21,"58016054001 ")
 ;;1145
 ;;21,"58016054002 ")
 ;;1146
 ;;21,"58016054003 ")
 ;;1147
 ;;21,"58016054004 ")
 ;;1148
 ;;21,"58016054005 ")
 ;;1149
 ;;21,"58016054006 ")
 ;;1150
 ;;21,"58016054007 ")
 ;;1151
 ;;21,"58016054008 ")
 ;;1152
 ;;21,"58016054009 ")
 ;;1153
 ;;21,"58016054010 ")
 ;;1154
 ;;21,"58016054012 ")
 ;;1155
 ;;21,"58016054014 ")
 ;;1156
 ;;21,"58016054016 ")
 ;;1157
 ;;21,"58016054018 ")
 ;;1158
 ;;21,"58016054020 ")
 ;;1159
 ;;21,"58016054021 ")
 ;;1160
 ;;21,"58016054024 ")
 ;;1161
 ;;21,"58016054025 ")
 ;;1162
 ;;21,"58016054026 ")
 ;;1163
 ;;21,"58016054027 ")
 ;;1164
 ;;21,"58016054028 ")
 ;;1165
 ;;21,"58016054030 ")
 ;;1166
 ;;21,"58016054032 ")
 ;;1167
 ;;21,"58016054035 ")
 ;;1168
 ;;21,"58016054036 ")
 ;;1169
 ;;21,"58016054040 ")
 ;;1170
 ;;21,"58016054042 ")
 ;;1171
 ;;21,"58016054044 ")
 ;;1172
 ;;21,"58016054045 ")
 ;;1173
 ;;21,"58016054048 ")
 ;;1174
 ;;21,"58016054050 ")
 ;;1175
 ;;21,"58016054056 ")
 ;;1176
 ;;21,"58016054060 ")
 ;;1177
 ;;21,"58016054067 ")
 ;;1178
 ;;21,"58016054069 ")
 ;;1179
 ;;21,"58016054070 ")
 ;;1180
 ;;21,"58016054071 ")
 ;;1181
 ;;21,"58016054072 ")
 ;;1182
 ;;21,"58016054073 ")
 ;;1183
 ;;21,"58016054075 ")
 ;;1184
 ;;21,"58016054076 ")
 ;;1185
 ;;21,"58016054077 ")
 ;;1186
 ;;21,"58016054079 ")
 ;;1187
 ;;21,"58016054080 ")
 ;;1188
 ;;21,"58016054081 ")
 ;;1189
 ;;21,"58016054082 ")
 ;;1190
 ;;21,"58016054083 ")
 ;;1191
 ;;21,"58016054084 ")
 ;;1192
 ;;21,"58016054087 ")
 ;;1193
 ;;21,"58016054089 ")
 ;;1194
 ;;21,"58016054090 ")
 ;;1195
 ;;21,"58016054091 ")
 ;;1196
 ;;21,"58016054092 ")
 ;;1197
 ;;21,"58016054093 ")
 ;;1198
 ;;21,"58016054096 ")
 ;;1199
 ;;21,"58016054097 ")
 ;;1200
 ;;21,"58016054098 ")
 ;;1201
 ;;21,"58016054099 ")
 ;;1202
 ;;21,"58016057200 ")
 ;;1203
 ;;21,"58016057230 ")
 ;;1204
 ;;21,"58016057260 ")
 ;;1205
 ;;21,"58016057290 ")
 ;;1206
 ;;21,"58016086900 ")
 ;;1207
 ;;21,"58016086901 ")
 ;;1208
 ;;21,"58016086902 ")
 ;;1209
 ;;21,"58016086903 ")
 ;;1210
 ;;21,"58016086904 ")
 ;;1211
 ;;21,"58016086905 ")
 ;;1212
 ;;21,"58016086906 ")
 ;;1213
 ;;21,"58016086907 ")
 ;;1214
 ;;21,"58016086908 ")
 ;;1215
 ;;21,"58016086909 ")
 ;;1216
 ;;21,"58016086910 ")
 ;;1217
 ;;21,"58016086912 ")
 ;;1218
 ;;21,"58016086914 ")
 ;;1219
 ;;21,"58016086916 ")
 ;;1220
 ;;21,"58016086918 ")
 ;;1221
 ;;21,"58016086920 ")
 ;;1222
 ;;21,"58016086921 ")
 ;;1223
 ;;21,"58016086924 ")
 ;;1224
 ;;21,"58016086925 ")
 ;;1225
 ;;21,"58016086926 ")
 ;;1226
 ;;21,"58016086927 ")
 ;;1227
 ;;21,"58016086928 ")
 ;;1228
 ;;21,"58016086930 ")
 ;;1229
 ;;21,"58016086932 ")
 ;;1230
 ;;21,"58016086935 ")
 ;;1231
 ;;21,"58016086936 ")
 ;;1232
 ;;21,"58016086940 ")
 ;;1233
 ;;21,"58016086942 ")
 ;;1234
 ;;21,"58016086944 ")
 ;;1235
 ;;21,"58016086945 ")
 ;;1236
 ;;21,"58016086948 ")
 ;;1237
 ;;21,"58016086950 ")
 ;;1238
 ;;21,"58016086956 ")
 ;;1239
 ;;21,"58016086960 ")
 ;;1240
 ;;21,"58016086967 ")
 ;;1241
 ;;21,"58016086969 ")
 ;;1242
 ;;21,"58016086970 ")
 ;;1243
 ;;21,"58016086971 ")
 ;;1244
 ;;21,"58016086972 ")
 ;;1245
 ;;21,"58016086973 ")
 ;;1246
 ;;21,"58016086975 ")
 ;;1247
 ;;21,"58016086976 ")
 ;;1248
 ;;21,"58016086977 ")
 ;;1249
 ;;21,"58016086979 ")
 ;;1250
 ;;21,"58016086980 ")
 ;;1251
 ;;21,"58016086981 ")
 ;;1252
 ;;21,"58016086982 ")
 ;;1253
 ;;21,"58016086983 ")
 ;;1254
 ;;21,"58016086984 ")
 ;;1255
 ;;21,"58016086987 ")
 ;;1256
 ;;21,"58016086989 ")
 ;;1257
 ;;21,"58016086990 ")
 ;;1258
 ;;21,"58016086991 ")
 ;;1259
 ;;21,"58016086992 ")
 ;;1260
 ;;21,"58016086993 ")
 ;;1261
 ;;21,"58016086996 ")
 ;;1262
 ;;21,"58016086997 ")
 ;;1263
 ;;21,"58016086998 ")
 ;;1264
 ;;21,"58016086999 ")
 ;;1265
 ;;21,"58016087400 ")
 ;;1266
 ;;21,"58016087401 ")
 ;;1267
 ;;21,"58016087402 ")
 ;;1268
 ;;21,"58016087403 ")
 ;;1269
 ;;21,"58016087404 ")
 ;;1270
 ;;21,"58016087405 ")
 ;;1271
 ;;21,"58016087406 ")
 ;;1272
 ;;21,"58016087407 ")
 ;;1273
 ;;21,"58016087408 ")
 ;;1274
 ;;21,"58016087409 ")
 ;;1275
 ;;21,"58016087410 ")
 ;;1276
 ;;21,"58016087412 ")
 ;;1277
 ;;21,"58016087414 ")
 ;;1278
 ;;21,"58016087415 ")
 ;;1279
 ;;21,"58016087416 ")
 ;;1280
 ;;21,"58016087418 ")
 ;;1281
 ;;21,"58016087420 ")
 ;;1282
 ;;21,"58016087421 ")
 ;;1283
 ;;21,"58016087424 ")
 ;;1284
 ;;21,"58016087425 ")
 ;;1285
 ;;21,"58016087426 ")
 ;;1286
 ;;21,"58016087427 ")
 ;;1287
 ;;21,"58016087428 ")
 ;;1288
 ;;21,"58016087430 ")
 ;;1289
 ;;21,"58016087432 ")
 ;;1290
 ;;21,"58016087435 ")
 ;;1291
 ;;21,"58016087436 ")
 ;;1292
 ;;21,"58016087440 ")
 ;;1293
 ;;21,"58016087442 ")
 ;;1294
 ;;21,"58016087444 ")
 ;;1295
 ;;21,"58016087445 ")
 ;;1296
 ;;21,"58016087448 ")
 ;;1297
 ;;21,"58016087450 ")
 ;;1298
 ;;21,"58016087456 ")
 ;;1299
 ;;21,"58016087460 ")
 ;;1300
 ;;21,"58016087467 ")
 ;;1301
 ;;21,"58016087469 ")
 ;;1302
 ;;21,"58016087470 ")
 ;;1303
 ;;21,"58016087471 ")
 ;;1304
 ;;21,"58016087472 ")
 ;;1305
 ;;21,"58016087473 ")
 ;;1306
 ;;21,"58016087475 ")
 ;;1307
 ;;21,"58016087476 ")
 ;;1308
 ;;21,"58016087477 ")
 ;;1309
 ;;21,"58016087479 ")
 ;;1310
 ;;21,"58016087480 ")
 ;;1311
 ;;21,"58016087481 ")
 ;;1312
 ;;21,"58016087482 ")
 ;;1313
 ;;21,"58016087483 ")
 ;;1314
 ;;21,"58016087484 ")
 ;;1315
 ;;21,"58016087487 ")
 ;;1316
 ;;21,"58016087489 ")
 ;;1317
 ;;21,"58016087490 ")
 ;;1318
 ;;21,"58016087491 ")
 ;;1319
 ;;21,"58016087492 ")
 ;;1320
 ;;21,"58016087493 ")
 ;;1321
 ;;21,"58016087496 ")
 ;;1322
 ;;21,"58016087497 ")
 ;;1323
 ;;21,"58016087498 ")
 ;;1324
 ;;21,"58016087499 ")
 ;;1325
 ;;21,"58016090000 ")
 ;;1326
 ;;21,"58016090001 ")
 ;;1327
 ;;21,"58016090002 ")
 ;;1328
 ;;21,"58016090003 ")
 ;;1329
 ;;21,"58016090004 ")
 ;;1330
 ;;21,"58016090005 ")
 ;;1331
 ;;21,"58016090006 ")
 ;;1332
 ;;21,"58016090007 ")
 ;;1333
 ;;21,"58016090008 ")
 ;;1334
 ;;21,"58016090009 ")
 ;;1335
 ;;21,"58016090010 ")
 ;;1336
 ;;21,"58016090012 ")
 ;;1337
 ;;21,"58016090014 ")
 ;;1338
 ;;21,"58016090015 ")
 ;;1339
 ;;21,"58016090016 ")
 ;;1340
 ;;21,"58016090018 ")
 ;;1341
 ;;21,"58016090020 ")
 ;;1342
 ;;21,"58016090021 ")
 ;;1343
 ;;21,"58016090024 ")
 ;;1344
 ;;21,"58016090025 ")
 ;;1345
 ;;21,"58016090026 ")
 ;;1346
 ;;21,"58016090027 ")
 ;;1347
 ;;21,"58016090028 ")
 ;;1348
 ;;21,"58016090030 ")
 ;;1349
 ;;21,"58016090032 ")
 ;;1350
 ;;21,"58016090035 ")
 ;;1351
 ;;21,"58016090036 ")
 ;;1352
 ;;21,"58016090040 ")
 ;;1353
 ;;21,"58016090042 ")
 ;;1354
 ;;21,"58016090044 ")
 ;;1355
 ;;21,"58016090045 ")
 ;;1356
 ;;21,"58016090056 ")
 ;;1357
 ;;21,"58016090060 ")
 ;;1358
 ;;21,"58016090067 ")
 ;;1359
 ;;21,"58016090069 ")
 ;;1360
 ;;21,"58016090070 ")
 ;;1361
 ;;21,"58016090071 ")
 ;;1362
 ;;21,"58016090072 ")
 ;;1363
 ;;21,"58016090073 ")
 ;;1364
 ;;21,"58016090075 ")
 ;;1365
 ;;21,"58016090076 ")
 ;;1366
 ;;21,"58016090077 ")
 ;;1367
 ;;21,"58016090079 ")
 ;;1368
 ;;21,"58016090080 ")
 ;;1369
 ;;21,"58016090081 ")
 ;;1370
 ;;21,"58016090083 ")
 ;;1371
 ;;21,"58016090084 ")
 ;;1372
 ;;21,"58016090087 ")
 ;;1373
 ;;21,"58016090089 ")
 ;;1374
 ;;21,"58016090090 ")
 ;;1375
 ;;21,"58016090091 ")
 ;;1376
 ;;21,"58016090092 ")
 ;;1377
 ;;21,"58016090093 ")
 ;;1378
 ;;21,"58016090096 ")
 ;;1379
 ;;21,"58016090097 ")
 ;;1380
 ;;21,"58016090098 ")
 ;;1381
 ;;21,"58016090099 ")
 ;;1382
 ;;21,"58016091600 ")
 ;;1383
 ;;21,"58016091601 ")
 ;;1384
 ;;21,"58016091602 ")
 ;;1385
 ;;21,"58016091603 ")
 ;;1386
 ;;21,"58016091604 ")
 ;;1387
 ;;21,"58016091605 ")
 ;;1388
 ;;21,"58016091606 ")
 ;;1389
 ;;21,"58016091607 ")
 ;;1390
 ;;21,"58016091608 ")
 ;;1391
 ;;21,"58016091609 ")
 ;;1392
 ;;21,"58016091610 ")
 ;;1393
 ;;21,"58016091612 ")
 ;;1394
 ;;21,"58016091615 ")
 ;;1395
 ;;21,"58016091616 ")
 ;;1396
 ;;21,"58016091618 ")
 ;;1397
 ;;21,"58016091620 ")
 ;;1398
 ;;21,"58016091621 ")
 ;;1399
 ;;21,"58016091624 ")
 ;;1400
 ;;21,"58016091625 ")
 ;;1401
 ;;21,"58016091626 ")
 ;;1402
 ;;21,"58016091627 ")
 ;;1403
 ;;21,"58016091628 ")
 ;;1404
 ;;21,"58016091630 ")
 ;;1405
 ;;21,"58016091632 ")
 ;;1406
 ;;21,"58016091635 ")
 ;;1407
 ;;21,"58016091636 ")
 ;;1408
 ;;21,"58016091640 ")
 ;;1409
 ;;21,"58016091642 ")
 ;;1410
 ;;21,"58016091644 ")
 ;;1411
 ;;21,"58016091645 ")
 ;;1412
 ;;21,"58016091648 ")
 ;;1413
 ;;21,"58016091650 ")
 ;;1414
 ;;21,"58016091656 ")
 ;;1415
 ;;21,"58016091660 ")
 ;;1416
 ;;21,"58016091667 ")
 ;;1417
 ;;21,"58016091669 ")
 ;;1418
 ;;21,"58016091670 ")
 ;;1419
 ;;21,"58016091671 ")
 ;;1420
 ;;21,"58016091672 ")
 ;;1421
 ;;21,"58016091673 ")
 ;;1422
 ;;21,"58016091675 ")
 ;;1423
 ;;21,"58016091676 ")
 ;;1424
 ;;21,"58016091677 ")
 ;;1425
 ;;21,"58016091679 ")
 ;;1426
 ;;21,"58016091680 ")
 ;;1427
 ;;21,"58016091681 ")
 ;;1428
 ;;21,"58016091682 ")
 ;;1429
 ;;21,"58016091683 ")
 ;;1430
 ;;21,"58016091684 ")
 ;;1431
 ;;21,"58016091687 ")
 ;;1432
 ;;21,"58016091689 ")
 ;;1433
 ;;21,"58016091690 ")
 ;;1434
 ;;21,"58016091691 ")
 ;;1435
 ;;21,"58016091692 ")
 ;;1436
 ;;21,"58016091693 ")
 ;;1437
 ;;21,"58016091696 ")
 ;;1438
 ;;21,"58016091697 ")
 ;;1439
 ;;21,"58016091698 ")
 ;;1440
 ;;21,"58016091699 ")
 ;;1441
 ;;21,"58016092200 ")
 ;;1442
 ;;21,"58016092201 ")
 ;;1443
 ;;21,"58016092202 ")
 ;;1444
 ;;21,"58016092203 ")
 ;;1445
 ;;21,"58016092204 ")
 ;;1446
 ;;21,"58016092205 ")
 ;;1447
 ;;21,"58016092206 ")
 ;;1448
 ;;21,"58016092207 ")
 ;;1449
 ;;21,"58016092208 ")
 ;;1450
 ;;21,"58016092209 ")
 ;;1451
 ;;21,"58016092210 ")
 ;;1452
 ;;21,"58016092212 ")
 ;;1453
 ;;21,"58016092214 ")
 ;;1454
 ;;21,"58016092215 ")
 ;;1455
 ;;21,"58016092216 ")
 ;;1456
 ;;21,"58016092218 ")
 ;;1457
 ;;21,"58016092220 ")
 ;;1458
 ;;21,"58016092221 ")
 ;;1459
 ;;21,"58016092224 ")
 ;;1460
 ;;21,"58016092225 ")
 ;;1461
 ;;21,"58016092226 ")
 ;;1462
 ;;21,"58016092227 ")
 ;;1463
 ;;21,"58016092228 ")
 ;;1464
 ;;21,"58016092230 ")
 ;;1465
 ;;21,"58016092232 ")
 ;;1466
 ;;21,"58016092235 ")
 ;;1467