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

BGPM5ATU.m

Go to the documentation of this file.
  1. BGPM5ATU ;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,"58016008607 ")
  1. ;;2211
  1. ;;21,"58016008608 ")
  1. ;;2212
  1. ;;21,"58016008609 ")
  1. ;;2213
  1. ;;21,"58016008610 ")
  1. ;;2214
  1. ;;21,"58016008612 ")
  1. ;;2215
  1. ;;21,"58016008614 ")
  1. ;;2216
  1. ;;21,"58016008615 ")
  1. ;;2217
  1. ;;21,"58016008616 ")
  1. ;;2218
  1. ;;21,"58016008618 ")
  1. ;;2219
  1. ;;21,"58016008620 ")
  1. ;;2220
  1. ;;21,"58016008621 ")
  1. ;;2221
  1. ;;21,"58016008624 ")
  1. ;;2222
  1. ;;21,"58016008625 ")
  1. ;;2223
  1. ;;21,"58016008626 ")
  1. ;;2224
  1. ;;21,"58016008627 ")
  1. ;;2225
  1. ;;21,"58016008628 ")
  1. ;;2226
  1. ;;21,"58016008630 ")
  1. ;;2227
  1. ;;21,"58016008632 ")
  1. ;;2228
  1. ;;21,"58016008635 ")
  1. ;;2229
  1. ;;21,"58016008636 ")
  1. ;;2230
  1. ;;21,"58016008640 ")
  1. ;;2231
  1. ;;21,"58016008642 ")
  1. ;;2232
  1. ;;21,"58016008644 ")
  1. ;;2233
  1. ;;21,"58016008645 ")
  1. ;;2234
  1. ;;21,"58016008648 ")
  1. ;;2235
  1. ;;21,"58016008650 ")
  1. ;;2236
  1. ;;21,"58016008656 ")
  1. ;;2237
  1. ;;21,"58016008660 ")
  1. ;;2238
  1. ;;21,"58016008667 ")
  1. ;;2239
  1. ;;21,"58016008669 ")
  1. ;;2240
  1. ;;21,"58016008670 ")
  1. ;;2241
  1. ;;21,"58016008671 ")
  1. ;;2242
  1. ;;21,"58016008672 ")
  1. ;;2243
  1. ;;21,"58016008673 ")
  1. ;;2244
  1. ;;21,"58016008675 ")
  1. ;;2245
  1. ;;21,"58016008676 ")
  1. ;;2246
  1. ;;21,"58016008677 ")
  1. ;;2247
  1. ;;21,"58016008679 ")
  1. ;;2248
  1. ;;21,"58016008680 ")
  1. ;;2249
  1. ;;21,"58016008681 ")
  1. ;;2250
  1. ;;21,"58016008682 ")
  1. ;;2251
  1. ;;21,"58016008683 ")
  1. ;;2252
  1. ;;21,"58016008684 ")
  1. ;;2253
  1. ;;21,"58016008687 ")
  1. ;;2254
  1. ;;21,"58016008689 ")
  1. ;;2255
  1. ;;21,"58016008690 ")
  1. ;;2256
  1. ;;21,"58016008691 ")
  1. ;;2257
  1. ;;21,"58016008692 ")
  1. ;;2258
  1. ;;21,"58016008693 ")
  1. ;;2259
  1. ;;21,"58016008696 ")
  1. ;;2260
  1. ;;21,"58016008697 ")
  1. ;;2261
  1. ;;21,"58016008698 ")
  1. ;;2262
  1. ;;21,"58016008699 ")
  1. ;;2263
  1. ;;21,"58016010100 ")
  1. ;;2264
  1. ;;21,"58016010108 ")
  1. ;;2265
  1. ;;21,"58016010110 ")
  1. ;;2266
  1. ;;21,"58016010112 ")
  1. ;;2267
  1. ;;21,"58016010114 ")
  1. ;;2268
  1. ;;21,"58016010120 ")
  1. ;;2269
  1. ;;21,"58016010124 ")
  1. ;;2270
  1. ;;21,"58016010128 ")
  1. ;;2271
  1. ;;21,"58016010130 ")
  1. ;;2272
  1. ;;21,"58016010140 ")
  1. ;;2273
  1. ;;21,"58016010150 ")
  1. ;;2274
  1. ;;21,"58016010160 ")
  1. ;;2275
  1. ;;21,"58016010190 ")
  1. ;;2276
  1. ;;21,"58016010200 ")
  1. ;;2277
  1. ;;21,"58016010210 ")
  1. ;;2278
  1. ;;21,"58016010212 ")
  1. ;;2279
  1. ;;21,"58016010214 ")
  1. ;;2280
  1. ;;21,"58016010215 ")
  1. ;;2281
  1. ;;21,"58016010220 ")
  1. ;;2282
  1. ;;21,"58016010224 ")
  1. ;;2283
  1. ;;21,"58016010228 ")
  1. ;;2284
  1. ;;21,"58016010230 ")
  1. ;;2285
  1. ;;21,"58016010240 ")
  1. ;;2286
  1. ;;21,"58016010250 ")
  1. ;;2287
  1. ;;21,"58016010260 ")
  1. ;;2288
  1. ;;21,"58016010290 ")
  1. ;;2289
  1. ;;21,"58016010300 ")
  1. ;;2290
  1. ;;21,"58016010309 ")
  1. ;;2291
  1. ;;21,"58016010312 ")
  1. ;;2292
  1. ;;21,"58016010315 ")
  1. ;;2293
  1. ;;21,"58016010318 ")
  1. ;;2294
  1. ;;21,"58016010320 ")
  1. ;;2295
  1. ;;21,"58016010321 ")
  1. ;;2296
  1. ;;21,"58016010324 ")
  1. ;;2297
  1. ;;21,"58016010330 ")
  1. ;;2298
  1. ;;21,"58016010340 ")
  1. ;;2299
  1. ;;21,"58016010400 ")
  1. ;;2300
  1. ;;21,"58016010401 ")
  1. ;;2301
  1. ;;21,"58016010402 ")
  1. ;;2302
  1. ;;21,"58016010403 ")
  1. ;;2303
  1. ;;21,"58016010404 ")
  1. ;;2304
  1. ;;21,"58016010407 ")
  1. ;;2305
  1. ;;21,"58016010408 ")
  1. ;;2306
  1. ;;21,"58016010409 ")
  1. ;;2307
  1. ;;21,"58016010410 ")
  1. ;;2308
  1. ;;21,"58016010412 ")
  1. ;;2309
  1. ;;21,"58016010414 ")
  1. ;;2310
  1. ;;21,"58016010415 ")
  1. ;;2311
  1. ;;21,"58016010416 ")
  1. ;;2312
  1. ;;21,"58016010418 ")
  1. ;;2313
  1. ;;21,"58016010420 ")
  1. ;;2314
  1. ;;21,"58016010421 ")
  1. ;;2315
  1. ;;21,"58016010424 ")
  1. ;;2316
  1. ;;21,"58016010425 ")
  1. ;;2317
  1. ;;21,"58016010426 ")
  1. ;;2318
  1. ;;21,"58016010427 ")
  1. ;;2319
  1. ;;21,"58016010428 ")
  1. ;;2320
  1. ;;21,"58016010430 ")
  1. ;;2321
  1. ;;21,"58016010432 ")
  1. ;;2322
  1. ;;21,"58016010435 ")
  1. ;;2323
  1. ;;21,"58016010436 ")
  1. ;;2324
  1. ;;21,"58016010440 ")
  1. ;;2325
  1. ;;21,"58016010442 ")
  1. ;;2326
  1. ;;21,"58016010444 ")
  1. ;;2327
  1. ;;21,"58016010445 ")
  1. ;;2328
  1. ;;21,"58016010448 ")
  1. ;;2329
  1. ;;21,"58016010450 ")
  1. ;;2330
  1. ;;21,"58016010456 ")
  1. ;;2331
  1. ;;21,"58016010460 ")
  1. ;;2332
  1. ;;21,"58016010470 ")
  1. ;;2333
  1. ;;21,"58016010472 ")
  1. ;;2334
  1. ;;21,"58016010475 ")
  1. ;;2335
  1. ;;21,"58016010476 ")
  1. ;;2336
  1. ;;21,"58016010480 ")
  1. ;;2337
  1. ;;21,"58016010484 ")
  1. ;;2338
  1. ;;21,"58016010490 ")
  1. ;;2339
  1. ;;21,"58016010492 ")
  1. ;;2340
  1. ;;21,"58016010496 ")
  1. ;;2341
  1. ;;21,"58016010497 ")
  1. ;;2342
  1. ;;21,"58016010499 ")
  1. ;;2343
  1. ;;21,"58016010500 ")
  1. ;;2344
  1. ;;21,"58016010520 ")
  1. ;;2345
  1. ;;21,"58016010530 ")
  1. ;;2346
  1. ;;21,"58016010560 ")
  1. ;;2347
  1. ;;21,"58016010590 ")
  1. ;;2348
  1. ;;21,"58016010900 ")
  1. ;;2349
  1. ;;21,"58016010902 ")
  1. ;;2350
  1. ;;21,"58016010903 ")
  1. ;;2351
  1. ;;21,"58016010906 ")
  1. ;;2352
  1. ;;21,"58016010907 ")
  1. ;;2353
  1. ;;21,"58016010910 ")
  1. ;;2354
  1. ;;21,"58016010914 ")
  1. ;;2355
  1. ;;21,"58016010918 ")
  1. ;;2356
  1. ;;21,"58016010920 ")
  1. ;;2357
  1. ;;21,"58016010921 ")
  1. ;;2358
  1. ;;21,"58016010924 ")
  1. ;;2359
  1. ;;21,"58016010928 ")
  1. ;;2360
  1. ;;21,"58016010930 ")
  1. ;;2361
  1. ;;21,"58016010940 ")
  1. ;;2362
  1. ;;21,"58016010950 ")
  1. ;;2363
  1. ;;21,"58016010960 ")
  1. ;;2364
  1. ;;21,"58016010973 ")
  1. ;;2365
  1. ;;21,"58016010980 ")
  1. ;;2366
  1. ;;21,"58016010989 ")
  1. ;;2367
  1. ;;21,"58016010990 ")
  1. ;;2368
  1. ;;21,"58016011900 ")
  1. ;;2369
  1. ;;21,"58016011901 ")
  1. ;;2370
  1. ;;21,"58016011902 ")
  1. ;;2371
  1. ;;21,"58016011903 ")
  1. ;;2372
  1. ;;21,"58016011904 ")
  1. ;;2373
  1. ;;21,"58016011907 ")
  1. ;;2374
  1. ;;21,"58016011908 ")
  1. ;;2375
  1. ;;21,"58016011909 ")
  1. ;;2376
  1. ;;21,"58016011910 ")
  1. ;;2377
  1. ;;21,"58016011912 ")
  1. ;;2378
  1. ;;21,"58016011914 ")
  1. ;;2379
  1. ;;21,"58016011915 ")
  1. ;;2380
  1. ;;21,"58016011916 ")
  1. ;;2381
  1. ;;21,"58016011918 ")
  1. ;;2382
  1. ;;21,"58016011920 ")
  1. ;;2383
  1. ;;21,"58016011921 ")
  1. ;;2384
  1. ;;21,"58016011924 ")
  1. ;;2385
  1. ;;21,"58016011925 ")
  1. ;;2386
  1. ;;21,"58016011926 ")
  1. ;;2387
  1. ;;21,"58016011927 ")
  1. ;;2388
  1. ;;21,"58016011928 ")
  1. ;;2389
  1. ;;21,"58016011930 ")
  1. ;;2390
  1. ;;21,"58016011932 ")
  1. ;;2391
  1. ;;21,"58016011935 ")
  1. ;;2392
  1. ;;21,"58016011936 ")
  1. ;;2393
  1. ;;21,"58016011940 ")
  1. ;;2394
  1. ;;21,"58016011942 ")
  1. ;;2395
  1. ;;21,"58016011944 ")
  1. ;;2396
  1. ;;21,"58016011945 ")
  1. ;;2397
  1. ;;21,"58016011948 ")
  1. ;;2398
  1. ;;21,"58016011950 ")
  1. ;;2399
  1. ;;21,"58016011956 ")
  1. ;;2400
  1. ;;21,"58016011960 ")
  1. ;;2401
  1. ;;21,"58016011970 ")
  1. ;;2402
  1. ;;21,"58016011972 ")
  1. ;;2403
  1. ;;21,"58016011973 ")
  1. ;;2404
  1. ;;21,"58016011975 ")
  1. ;;2405
  1. ;;21,"58016011976 ")
  1. ;;2406
  1. ;;21,"58016011980 ")
  1. ;;2407
  1. ;;21,"58016011984 ")
  1. ;;2408
  1. ;;21,"58016011989 ")
  1. ;;2409
  1. ;;21,"58016011990 ")
  1. ;;2410
  1. ;;21,"58016011992 ")
  1. ;;2411
  1. ;;21,"58016011996 ")
  1. ;;2412
  1. ;;21,"58016011997 ")
  1. ;;2413
  1. ;;21,"58016011999 ")
  1. ;;2414
  1. ;;21,"58016012100 ")
  1. ;;2415
  1. ;;21,"58016012110 ")
  1. ;;2416
  1. ;;21,"58016012112 ")
  1. ;;2417
  1. ;;21,"58016012114 ")
  1. ;;2418
  1. ;;21,"58016012115 ")
  1. ;;2419
  1. ;;21,"58016012118 ")
  1. ;;2420
  1. ;;21,"58016012120 ")
  1. ;;2421
  1. ;;21,"58016012124 ")
  1. ;;2422
  1. ;;21,"58016012128 ")
  1. ;;2423
  1. ;;21,"58016012130 ")
  1. ;;2424
  1. ;;21,"58016012140 ")
  1. ;;2425
  1. ;;21,"58016012200 ")
  1. ;;2426
  1. ;;21,"58016012201 ")
  1. ;;2427
  1. ;;21,"58016012202 ")
  1. ;;2428
  1. ;;21,"58016012203 ")
  1. ;;2429
  1. ;;21,"58016012204 ")
  1. ;;2430
  1. ;;21,"58016012205 ")
  1. ;;2431
  1. ;;21,"58016012206 ")
  1. ;;2432
  1. ;;21,"58016012207 ")
  1. ;;2433
  1. ;;21,"58016012208 ")
  1. ;;2434
  1. ;;21,"58016012209 ")
  1. ;;2435
  1. ;;21,"58016012210 ")
  1. ;;2436
  1. ;;21,"58016012212 ")
  1. ;;2437
  1. ;;21,"58016012214 ")
  1. ;;2438
  1. ;;21,"58016012215 ")
  1. ;;2439
  1. ;;21,"58016012216 ")
  1. ;;2440
  1. ;;21,"58016012218 ")
  1. ;;2441
  1. ;;21,"58016012220 ")
  1. ;;2442
  1. ;;21,"58016012221 ")
  1. ;;2443
  1. ;;21,"58016012224 ")
  1. ;;2444
  1. ;;21,"58016012225 ")
  1. ;;2445
  1. ;;21,"58016012226 ")
  1. ;;2446
  1. ;;21,"58016012227 ")
  1. ;;2447
  1. ;;21,"58016012228 ")
  1. ;;2448
  1. ;;21,"58016012230 ")
  1. ;;2449
  1. ;;21,"58016012232 ")
  1. ;;2450
  1. ;;21,"58016012235 ")
  1. ;;2451
  1. ;;21,"58016012236 ")
  1. ;;2452
  1. ;;21,"58016012240 ")
  1. ;;2453
  1. ;;21,"58016012242 ")
  1. ;;2454
  1. ;;21,"58016012244 ")
  1. ;;2455
  1. ;;21,"58016012245 ")
  1. ;;2456
  1. ;;21,"58016012248 ")
  1. ;;2457
  1. ;;21,"58016012250 ")
  1. ;;2458
  1. ;;21,"58016012256 ")
  1. ;;2459
  1. ;;21,"58016012260 ")
  1. ;;2460
  1. ;;21,"58016012267 ")
  1. ;;2461
  1. ;;21,"58016012269 ")
  1. ;;2462
  1. ;;21,"58016012270 ")
  1. ;;2463
  1. ;;21,"58016012271 ")
  1. ;;2464
  1. ;;21,"58016012272 ")
  1. ;;2465
  1. ;;21,"58016012273 ")
  1. ;;2466
  1. ;;21,"58016012275 ")
  1. ;;2467
  1. ;;21,"58016012276 ")
  1. ;;2468
  1. ;;21,"58016012277 ")
  1. ;;2469
  1. ;;21,"58016012279 ")
  1. ;;2470
  1. ;;21,"58016012280 ")
  1. ;;2471
  1. ;;21,"58016012281 ")
  1. ;;2472
  1. ;;21,"58016012282 ")
  1. ;;2473
  1. ;;21,"58016012283 ")
  1. ;;2474
  1. ;;21,"58016012284 ")
  1. ;;2475
  1. ;;21,"58016012287 ")
  1. ;;2476
  1. ;;21,"58016012289 ")
  1. ;;2477
  1. ;;21,"58016012290 ")
  1. ;;2478
  1. ;;21,"58016012291 ")
  1. ;;2479
  1. ;;21,"58016012292 ")
  1. ;;2480
  1. ;;21,"58016012293 ")
  1. ;;2481
  1. ;;21,"58016012296 ")
  1. ;;2482
  1. ;;21,"58016012297 ")
  1. ;;2483
  1. ;;21,"58016012298 ")
  1. ;;2484
  1. ;;21,"58016012299 ")
  1. ;;2485
  1. ;;21,"58016012400 ")
  1. ;;2486
  1. ;;21,"58016012401 ")
  1. ;;2487
  1. ;;21,"58016012402 ")
  1. ;;2488
  1. ;;21,"58016012403 ")
  1. ;;2489
  1. ;;21,"58016012404 ")
  1. ;;2490
  1. ;;21,"58016012405 ")
  1. ;;2491
  1. ;;21,"58016012406 ")
  1. ;;2492
  1. ;;21,"58016012407 ")
  1. ;;2493
  1. ;;21,"58016012408 ")
  1. ;;2494
  1. ;;21,"58016012409 ")
  1. ;;2495
  1. ;;21,"58016012410 ")
  1. ;;2496
  1. ;;21,"58016012412 ")
  1. ;;2497
  1. ;;21,"58016012414 ")
  1. ;;2498
  1. ;;21,"58016012415 ")
  1. ;;2499
  1. ;;21,"58016012416 ")
  1. ;;2500
  1. ;;21,"58016012418 ")
  1. ;;2501
  1. ;;21,"58016012420 ")
  1. ;;2502
  1. ;;21,"58016012421 ")
  1. ;;2503
  1. ;;21,"58016012424 ")
  1. ;;2504
  1. ;;21,"58016012425 ")
  1. ;;2505
  1. ;;21,"58016012426 ")
  1. ;;2506
  1. ;;21,"58016012427 ")
  1. ;;2507
  1. ;;21,"58016012428 ")
  1. ;;2508
  1. ;;21,"58016012430 ")
  1. ;;2509
  1. ;;21,"58016012432 ")
  1. ;;2510
  1. ;;21,"58016012435 ")
  1. ;;2511
  1. ;;21,"58016012436 ")
  1. ;;2512
  1. ;;21,"58016012440 ")
  1. ;;2513
  1. ;;21,"58016012442 ")
  1. ;;2514
  1. ;;21,"58016012444 ")
  1. ;;2515
  1. ;;21,"58016012445 ")
  1. ;;2516
  1. ;;21,"58016012448 ")
  1. ;;2517
  1. ;;21,"58016012450 ")
  1. ;;2518
  1. ;;21,"58016012456 ")
  1. ;;2519
  1. ;;21,"58016012460 ")
  1. ;;2520
  1. ;;21,"58016012467 ")
  1. ;;2521
  1. ;;21,"58016012469 ")
  1. ;;2522
  1. ;;21,"58016012470 ")
  1. ;;2523
  1. ;;21,"58016012471 ")
  1. ;;2524
  1. ;;21,"58016012472 ")
  1. ;;2525
  1. ;;21,"58016012473 ")
  1. ;;2526
  1. ;;21,"58016012475 ")
  1. ;;2527
  1. ;;21,"58016012476 ")
  1. ;;2528
  1. ;;21,"58016012477 ")
  1. ;;2529
  1. ;;21,"58016012479 ")
  1. ;;2530
  1. ;;21,"58016012480 ")
  1. ;;2531
  1. ;;21,"58016012481 ")
  1. ;;2532
  1. ;;21,"58016012482 ")
  1. ;;2533
  1. ;;21,"58016012483 ")
  1. ;;2534
  1. ;;21,"58016012484 ")
  1. ;;2535
  1. ;;21,"58016012487 ")
  1. ;;2536
  1. ;;21,"58016012489 ")
  1. ;;2537
  1. ;;21,"58016012490 ")
  1. ;;2538
  1. ;;21,"58016012491 ")
  1. ;;2539
  1. ;;21,"58016012492 ")
  1. ;;2540
  1. ;;21,"58016012493 ")
  1. ;;2541
  1. ;;21,"58016012496 ")
  1. ;;2542
  1. ;;21,"58016012497 ")
  1. ;;2543
  1. ;;21,"58016012498 ")
  1. ;;2544
  1. ;;21,"58016012499 ")
  1. ;;2545
  1. ;;21,"58016012700 ")
  1. ;;2546
  1. ;;21,"58016012706 ")
  1. ;;2547
  1. ;;21,"58016012708 ")
  1. ;;2548
  1. ;;21,"58016012710 ")
  1. ;;2549
  1. ;;21,"58016012714 ")
  1. ;;2550
  1. ;;21,"58016012720 ")
  1. ;;2551
  1. ;;21,"58016012721 ")
  1. ;;2552
  1. ;;21,"58016012724 ")
  1. ;;2553
  1. ;;21,"58016012728 ")
  1. ;;2554
  1. ;;21,"58016012730 ")
  1. ;;2555
  1. ;;21,"58016012740 ")
  1. ;;2556
  1. ;;21,"58016012742 ")
  1. ;;2557
  1. ;;21,"58016012750 ")
  1. ;;2558
  1. ;;21,"58016012760 ")
  1. ;;2559
  1. ;;21,"58016013700 ")
  1. ;;2560
  1. ;;21,"58016013701 ")
  1. ;;2561
  1. ;;21,"58016013702 ")
  1. ;;2562