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

BGPM5ATR.m

Go to the documentation of this file.
  1. BGPM5ATR ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"55045120603 ")
  1. ;;1156
  1. ;;21,"55045120604 ")
  1. ;;1157
  1. ;;21,"55045120607 ")
  1. ;;1158
  1. ;;21,"55045120608 ")
  1. ;;1159
  1. ;;21,"55045120609 ")
  1. ;;1160
  1. ;;21,"55045120700 ")
  1. ;;1161
  1. ;;21,"55045120701 ")
  1. ;;1162
  1. ;;21,"55045120702 ")
  1. ;;1163
  1. ;;21,"55045120703 ")
  1. ;;1164
  1. ;;21,"55045120704 ")
  1. ;;1165
  1. ;;21,"55045120705 ")
  1. ;;1166
  1. ;;21,"55045120706 ")
  1. ;;1167
  1. ;;21,"55045120707 ")
  1. ;;1168
  1. ;;21,"55045120708 ")
  1. ;;1169
  1. ;;21,"55045120709 ")
  1. ;;1170
  1. ;;21,"55045121000 ")
  1. ;;1171
  1. ;;21,"55045121001 ")
  1. ;;1172
  1. ;;21,"55045121002 ")
  1. ;;1173
  1. ;;21,"55045121003 ")
  1. ;;1174
  1. ;;21,"55045121005 ")
  1. ;;1175
  1. ;;21,"55045121006 ")
  1. ;;1176
  1. ;;21,"55045121007 ")
  1. ;;1177
  1. ;;21,"55045121008 ")
  1. ;;1178
  1. ;;21,"55045121009 ")
  1. ;;1179
  1. ;;21,"55045122600 ")
  1. ;;1180
  1. ;;21,"55045122601 ")
  1. ;;1181
  1. ;;21,"55045122602 ")
  1. ;;1182
  1. ;;21,"55045122603 ")
  1. ;;1183
  1. ;;21,"55045122604 ")
  1. ;;1184
  1. ;;21,"55045122605 ")
  1. ;;1185
  1. ;;21,"55045122606 ")
  1. ;;1186
  1. ;;21,"55045122607 ")
  1. ;;1187
  1. ;;21,"55045122608 ")
  1. ;;1188
  1. ;;21,"55045122609 ")
  1. ;;1189
  1. ;;21,"55045122700 ")
  1. ;;1190
  1. ;;21,"55045122701 ")
  1. ;;1191
  1. ;;21,"55045122702 ")
  1. ;;1192
  1. ;;21,"55045122703 ")
  1. ;;1193
  1. ;;21,"55045122704 ")
  1. ;;1194
  1. ;;21,"55045122706 ")
  1. ;;1195
  1. ;;21,"55045122707 ")
  1. ;;1196
  1. ;;21,"55045122708 ")
  1. ;;1197
  1. ;;21,"55045122709 ")
  1. ;;1198
  1. ;;21,"55045124701 ")
  1. ;;1199
  1. ;;21,"55045126209 ")
  1. ;;1200
  1. ;;21,"55045131301 ")
  1. ;;1201
  1. ;;21,"55045131302 ")
  1. ;;1202
  1. ;;21,"55045132200 ")
  1. ;;1203
  1. ;;21,"55045132201 ")
  1. ;;1204
  1. ;;21,"55045132202 ")
  1. ;;1205
  1. ;;21,"55045132203 ")
  1. ;;1206
  1. ;;21,"55045132204 ")
  1. ;;1207
  1. ;;21,"55045132205 ")
  1. ;;1208
  1. ;;21,"55045132206 ")
  1. ;;1209
  1. ;;21,"55045132207 ")
  1. ;;1210
  1. ;;21,"55045132208 ")
  1. ;;1211
  1. ;;21,"55045132209 ")
  1. ;;1212
  1. ;;21,"55045141501 ")
  1. ;;1213
  1. ;;21,"55045145003 ")
  1. ;;1214
  1. ;;21,"55045145006 ")
  1. ;;1215
  1. ;;21,"55045150009 ")
  1. ;;1216
  1. ;;21,"55045151406 ")
  1. ;;1217
  1. ;;21,"55045151407 ")
  1. ;;1218
  1. ;;21,"55045151408 ")
  1. ;;1219
  1. ;;21,"55045180407 ")
  1. ;;1220
  1. ;;21,"55045191800 ")
  1. ;;1221
  1. ;;21,"55045191801 ")
  1. ;;1222
  1. ;;21,"55045191802 ")
  1. ;;1223
  1. ;;21,"55045191803 ")
  1. ;;1224
  1. ;;21,"55045191806 ")
  1. ;;1225
  1. ;;21,"55045191807 ")
  1. ;;1226
  1. ;;21,"55045191808 ")
  1. ;;1227
  1. ;;21,"55045191809 ")
  1. ;;1228
  1. ;;21,"55045200400 ")
  1. ;;1229
  1. ;;21,"55045200403 ")
  1. ;;1230
  1. ;;21,"55045200404 ")
  1. ;;1231
  1. ;;21,"55045200405 ")
  1. ;;1232
  1. ;;21,"55045200406 ")
  1. ;;1233
  1. ;;21,"55045200408 ")
  1. ;;1234
  1. ;;21,"55045200600 ")
  1. ;;1235
  1. ;;21,"55045200601 ")
  1. ;;1236
  1. ;;21,"55045200602 ")
  1. ;;1237
  1. ;;21,"55045200603 ")
  1. ;;1238
  1. ;;21,"55045200604 ")
  1. ;;1239
  1. ;;21,"55045200605 ")
  1. ;;1240
  1. ;;21,"55045200606 ")
  1. ;;1241
  1. ;;21,"55045200607 ")
  1. ;;1242
  1. ;;21,"55045200608 ")
  1. ;;1243
  1. ;;21,"55045200609 ")
  1. ;;1244
  1. ;;21,"55045201309 ")
  1. ;;1245
  1. ;;21,"55045212701 ")
  1. ;;1246
  1. ;;21,"55045215407 ")
  1. ;;1247
  1. ;;21,"55045215408 ")
  1. ;;1248
  1. ;;21,"55045215409 ")
  1. ;;1249
  1. ;;21,"55045215503 ")
  1. ;;1250
  1. ;;21,"55045215801 ")
  1. ;;1251
  1. ;;21,"55045215804 ")
  1. ;;1252
  1. ;;21,"55045226001 ")
  1. ;;1253
  1. ;;21,"55045230201 ")
  1. ;;1254
  1. ;;21,"55045230203 ")
  1. ;;1255
  1. ;;21,"55045233707 ")
  1. ;;1256
  1. ;;21,"55045233708 ")
  1. ;;1257
  1. ;;21,"55045242601 ")
  1. ;;1258
  1. ;;21,"55045242602 ")
  1. ;;1259
  1. ;;21,"55045242603 ")
  1. ;;1260
  1. ;;21,"55045242606 ")
  1. ;;1261
  1. ;;21,"55045242607 ")
  1. ;;1262
  1. ;;21,"55045242608 ")
  1. ;;1263
  1. ;;21,"55045261001 ")
  1. ;;1264
  1. ;;21,"55045261002 ")
  1. ;;1265
  1. ;;21,"55045261004 ")
  1. ;;1266
  1. ;;21,"55045261006 ")
  1. ;;1267
  1. ;;21,"55045261007 ")
  1. ;;1268
  1. ;;21,"55045261009 ")
  1. ;;1269
  1. ;;21,"55045267201 ")
  1. ;;1270
  1. ;;21,"55045267202 ")
  1. ;;1271
  1. ;;21,"55045267206 ")
  1. ;;1272
  1. ;;21,"55045267208 ")
  1. ;;1273
  1. ;;21,"55045267209 ")
  1. ;;1274
  1. ;;21,"55045273107 ")
  1. ;;1275
  1. ;;21,"55045278704 ")
  1. ;;1276
  1. ;;21,"55045295302 ")
  1. ;;1277
  1. ;;21,"55045295304 ")
  1. ;;1278
  1. ;;21,"55045295305 ")
  1. ;;1279
  1. ;;21,"55045295306 ")
  1. ;;1280
  1. ;;21,"55045295307 ")
  1. ;;1281
  1. ;;21,"55045295308 ")
  1. ;;1282
  1. ;;21,"55045296603 ")
  1. ;;1283
  1. ;;21,"55045296607 ")
  1. ;;1284
  1. ;;21,"55045296608 ")
  1. ;;1285
  1. ;;21,"55045299202 ")
  1. ;;1286
  1. ;;21,"55045299302 ")
  1. ;;1287
  1. ;;21,"55045301601 ")
  1. ;;1288
  1. ;;21,"55045301607 ")
  1. ;;1289
  1. ;;21,"55045308000 ")
  1. ;;1290
  1. ;;21,"55045308001 ")
  1. ;;1291
  1. ;;21,"55045308002 ")
  1. ;;1292
  1. ;;21,"55045308003 ")
  1. ;;1293
  1. ;;21,"55045308004 ")
  1. ;;1294
  1. ;;21,"55045308005 ")
  1. ;;1295
  1. ;;21,"55045308007 ")
  1. ;;1296
  1. ;;21,"55045308008 ")
  1. ;;1297
  1. ;;21,"55045308100 ")
  1. ;;1298
  1. ;;21,"55045308101 ")
  1. ;;1299
  1. ;;21,"55045308102 ")
  1. ;;1300
  1. ;;21,"55045308103 ")
  1. ;;1301
  1. ;;21,"55045308106 ")
  1. ;;1302
  1. ;;21,"55045308107 ")
  1. ;;1303
  1. ;;21,"55045308108 ")
  1. ;;1304
  1. ;;21,"55045308109 ")
  1. ;;1305
  1. ;;21,"55045314201 ")
  1. ;;1306
  1. ;;21,"55045314205 ")
  1. ;;1307
  1. ;;21,"55045314207 ")
  1. ;;1308
  1. ;;21,"55045319401 ")
  1. ;;1309
  1. ;;21,"55045319403 ")
  1. ;;1310
  1. ;;21,"55045319404 ")
  1. ;;1311
  1. ;;21,"55045319406 ")
  1. ;;1312
  1. ;;21,"55045319409 ")
  1. ;;1313
  1. ;;21,"55045323201 ")
  1. ;;1314
  1. ;;21,"55045323202 ")
  1. ;;1315
  1. ;;21,"55045323308 ")
  1. ;;1316
  1. ;;21,"55045326001 ")
  1. ;;1317
  1. ;;21,"55045326006 ")
  1. ;;1318
  1. ;;21,"55045326009 ")
  1. ;;1319
  1. ;;21,"55045326804 ")
  1. ;;1320
  1. ;;21,"55045326806 ")
  1. ;;1321
  1. ;;21,"55045326808 ")
  1. ;;1322
  1. ;;21,"55045328802 ")
  1. ;;1323
  1. ;;21,"55045328805 ")
  1. ;;1324
  1. ;;21,"55045328808 ")
  1. ;;1325
  1. ;;21,"55045330604 ")
  1. ;;1326
  1. ;;21,"55045330605 ")
  1. ;;1327
  1. ;;21,"55045330606 ")
  1. ;;1328
  1. ;;21,"55045330608 ")
  1. ;;1329
  1. ;;21,"55045335500 ")
  1. ;;1330
  1. ;;21,"55045338505 ")
  1. ;;1331
  1. ;;21,"55045341405 ")
  1. ;;1332
  1. ;;21,"55045344206 ")
  1. ;;1333
  1. ;;21,"55045346701 ")
  1. ;;1334
  1. ;;21,"55045347906 ")
  1. ;;1335
  1. ;;21,"55045348302 ")
  1. ;;1336
  1. ;;21,"55045349001 ")
  1. ;;1337
  1. ;;21,"55045350301 ")
  1. ;;1338
  1. ;;21,"55045350302 ")
  1. ;;1339
  1. ;;21,"55045351101 ")
  1. ;;1340
  1. ;;21,"55045351102 ")
  1. ;;1341
  1. ;;21,"55045351901 ")
  1. ;;1342
  1. ;;21,"55045357001 ")
  1. ;;1343
  1. ;;21,"55045369803 ")
  1. ;;1344
  1. ;;21,"55045372501 ")
  1. ;;1345
  1. ;;21,"55045372602 ")
  1. ;;1346
  1. ;;21,"55045372701 ")
  1. ;;1347
  1. ;;21,"55065012310 ")
  1. ;;1348
  1. ;;21,"55065012342 ")
  1. ;;1349
  1. ;;21,"55065012350 ")
  1. ;;1350
  1. ;;21,"55065012410 ")
  1. ;;1351
  1. ;;21,"55065012450 ")
  1. ;;1352
  1. ;;21,"55065012510 ")
  1. ;;1353
  1. ;;21,"55065012550 ")
  1. ;;1354
  1. ;;21,"55111012506 ")
  1. ;;1355
  1. ;;21,"55111012601 ")
  1. ;;1356
  1. ;;21,"55111012605 ")
  1. ;;1357
  1. ;;21,"55111012650 ")
  1. ;;1358
  1. ;;21,"55111012678 ")
  1. ;;1359
  1. ;;21,"55111012701 ")
  1. ;;1360
  1. ;;21,"55111012705 ")
  1. ;;1361
  1. ;;21,"55111012750 ")
  1. ;;1362
  1. ;;21,"55111012778 ")
  1. ;;1363
  1. ;;21,"55111012801 ")
  1. ;;1364
  1. ;;21,"55111012805 ")
  1. ;;1365
  1. ;;21,"55111012850 ")
  1. ;;1366
  1. ;;21,"55111012878 ")
  1. ;;1367
  1. ;;21,"55111016001 ")
  1. ;;1368
  1. ;;21,"55111016005 ")
  1. ;;1369
  1. ;;21,"55111016030 ")
  1. ;;1370
  1. ;;21,"55111016050 ")
  1. ;;1371
  1. ;;21,"55111016078 ")
  1. ;;1372
  1. ;;21,"55111016101 ")
  1. ;;1373
  1. ;;21,"55111016105 ")
  1. ;;1374
  1. ;;21,"55111016130 ")
  1. ;;1375
  1. ;;21,"55111016150 ")
  1. ;;1376
  1. ;;21,"55111016178 ")
  1. ;;1377
  1. ;;21,"55111016201 ")
  1. ;;1378
  1. ;;21,"55111016205 ")
  1. ;;1379
  1. ;;21,"55111016230 ")
  1. ;;1380
  1. ;;21,"55111016250 ")
  1. ;;1381
  1. ;;21,"55111016278 ")
  1. ;;1382
  1. ;;21,"55111028101 ")
  1. ;;1383
  1. ;;21,"55111028105 ")
  1. ;;1384
  1. ;;21,"55111028130 ")
  1. ;;1385
  1. ;;21,"55111028150 ")
  1. ;;1386
  1. ;;21,"55111028178 ")
  1. ;;1387
  1. ;;21,"55111028179 ")
  1. ;;1388
  1. ;;21,"55111042201 ")
  1. ;;1389
  1. ;;21,"55111042205 ")
  1. ;;1390
  1. ;;21,"55111042230 ")
  1. ;;1391
  1. ;;21,"55111042278 ")
  1. ;;1392
  1. ;;21,"55111042301 ")
  1. ;;1393
  1. ;;21,"55111042305 ")
  1. ;;1394
  1. ;;21,"55111042330 ")
  1. ;;1395
  1. ;;21,"55111042378 ")
  1. ;;1396
  1. ;;21,"55111063701 ")
  1. ;;1397
  1. ;;21,"55111063710 ")
  1. ;;1398
  1. ;;21,"55111063801 ")
  1. ;;1399
  1. ;;21,"55111063810 ")
  1. ;;1400
  1. ;;21,"55111063910 ")
  1. ;;1401
  1. ;;21,"55111063950 ")
  1. ;;1402
  1. ;;21,"55111063960 ")
  1. ;;1403
  1. ;;21,"55154052500 ")
  1. ;;1404
  1. ;;21,"55154066000 ")
  1. ;;1405
  1. ;;21,"55154066007 ")
  1. ;;1406
  1. ;;21,"55154117509 ")
  1. ;;1407
  1. ;;21,"55154205000 ")
  1. ;;1408
  1. ;;21,"55154206200 ")
  1. ;;1409
  1. ;;21,"55154235205 ")
  1. ;;1410
  1. ;;21,"55154239005 ")
  1. ;;1411
  1. ;;21,"55154247505 ")
  1. ;;1412
  1. ;;21,"55154247605 ")
  1. ;;1413
  1. ;;21,"55154265009 ")
  1. ;;1414
  1. ;;21,"55154265105 ")
  1. ;;1415
  1. ;;21,"55154265309 ")
  1. ;;1416
  1. ;;21,"55154265500 ")
  1. ;;1417
  1. ;;21,"55154265504 ")
  1. ;;1418
  1. ;;21,"55154265506 ")
  1. ;;1419
  1. ;;21,"55154286505 ")
  1. ;;1420
  1. ;;21,"55154318405 ")
  1. ;;1421
  1. ;;21,"55154343005 ")
  1. ;;1422
  1. ;;21,"55154343105 ")
  1. ;;1423
  1. ;;21,"55154343200 ")
  1. ;;1424
  1. ;;21,"55154506700 ")
  1. ;;1425
  1. ;;21,"55154510807 ")
  1. ;;1426
  1. ;;21,"55154541805 ")
  1. ;;1427
  1. ;;21,"55154542005 ")
  1. ;;1428
  1. ;;21,"55154543205 ")
  1. ;;1429
  1. ;;21,"55154546600 ")
  1. ;;1430
  1. ;;21,"55154552200 ")
  1. ;;1431
  1. ;;21,"55154552207 ")
  1. ;;1432
  1. ;;21,"55154554600 ")
  1. ;;1433
  1. ;;21,"55154554607 ")
  1. ;;1434
  1. ;;21,"55154558600 ")
  1. ;;1435
  1. ;;21,"55154567000 ")
  1. ;;1436
  1. ;;21,"55154567400 ")
  1. ;;1437
  1. ;;21,"55154575905 ")
  1. ;;1438
  1. ;;21,"55154585100 ")
  1. ;;1439
  1. ;;21,"55154585200 ")
  1. ;;1440
  1. ;;21,"55154585300 ")
  1. ;;1441
  1. ;;21,"55154616409 ")
  1. ;;1442
  1. ;;21,"55154617209 ")
  1. ;;1443
  1. ;;21,"55154617700 ")
  1. ;;1444
  1. ;;21,"55154617900 ")
  1. ;;1445
  1. ;;21,"55154618700 ")
  1. ;;1446
  1. ;;21,"55154634500 ")
  1. ;;1447
  1. ;;21,"55154685005 ")
  1. ;;1448
  1. ;;21,"55154695305 ")
  1. ;;1449
  1. ;;21,"55154695405 ")
  1. ;;1450
  1. ;;21,"55154695605 ")
  1. ;;1451
  1. ;;21,"55154695705 ")
  1. ;;1452
  1. ;;21,"55154695805 ")
  1. ;;1453
  1. ;;21,"55154696205 ")
  1. ;;1454
  1. ;;21,"55154696500 ")
  1. ;;1455
  1. ;;21,"55154696504 ")
  1. ;;1456
  1. ;;21,"55154696506 ")
  1. ;;1457
  1. ;;21,"55154746902 ")
  1. ;;1458
  1. ;;21,"55154746909 ")
  1. ;;1459
  1. ;;21,"55154760305 ")
  1. ;;1460
  1. ;;21,"55154760307 ")
  1. ;;1461
  1. ;;21,"55154760605 ")
  1. ;;1462
  1. ;;21,"55154760705 ")
  1. ;;1463
  1. ;;21,"55154827700 ")
  1. ;;1464
  1. ;;21,"55154827800 ")
  1. ;;1465
  1. ;;21,"55154937905 ")
  1. ;;1466
  1. ;;21,"55154938105 ")
  1. ;;1467
  1. ;;21,"55154938505 ")
  1. ;;1468
  1. ;;21,"55154947500 ")
  1. ;;1469
  1. ;;21,"55154947504 ")
  1. ;;1470
  1. ;;21,"55154947506 ")
  1. ;;1471
  1. ;;21,"55154947609 ")
  1. ;;1472
  1. ;;21,"55154955505 ")
  1. ;;1473
  1. ;;21,"55154955905 ")
  1. ;;1474
  1. ;;21,"55175274601 ")
  1. ;;1475
  1. ;;21,"55190023224 ")
  1. ;;1476
  1. ;;21,"55190023230 ")
  1. ;;1477
  1. ;;21,"55190040224 ")
  1. ;;1478
  1. ;;21,"55190040230 ")
  1. ;;1479
  1. ;;21,"55190040424 ")
  1. ;;1480
  1. ;;21,"55190040430 ")
  1. ;;1481
  1. ;;21,"55190046017 ")
  1. ;;1482
  1. ;;21,"55190046020 ")
  1. ;;1483
  1. ;;21,"55190046117 ")
  1. ;;1484
  1. ;;21,"55190046120 ")
  1. ;;1485
  1. ;;21,"55190048817 ")
  1. ;;1486
  1. ;;21,"55190048820 ")
  1. ;;1487
  1. ;;21,"55190048917 ")
  1. ;;1488
  1. ;;21,"55190048920 ")
  1. ;;1489
  1. ;;21,"55190050016 ")
  1. ;;1490
  1. ;;21,"55190050017 ")
  1. ;;1491
  1. ;;21,"55190050018 ")
  1. ;;1492
  1. ;;21,"55190050020 ")
  1. ;;1493
  1. ;;21,"55190050116 ")
  1. ;;1494
  1. ;;21,"55190050117 ")
  1. ;;1495
  1. ;;21,"55190050118 ")
  1. ;;1496
  1. ;;21,"55190050120 ")
  1. ;;1497
  1. ;;21,"55190064814 ")
  1. ;;1498
  1. ;;21,"55190064815 ")
  1. ;;1499
  1. ;;21,"55190064816 ")
  1. ;;1500
  1. ;;21,"55190064824 ")
  1. ;;1501
  1. ;;21,"55190064832 ")
  1. ;;1502
  1. ;;21,"55190067315 ")
  1. ;;1503
  1. ;;21,"55190067316 ")
  1. ;;1504
  1. ;;21,"55190067324 ")
  1. ;;1505
  1. ;;21,"55190067330 ")
  1. ;;1506
  1. ;;21,"55190073024 ")
  1. ;;1507