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

BGPM5BAW.m

Go to the documentation of this file.
  1. BGPM5BAW ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"54458096110 ")
  1. ;;2299
  1. ;;21,"54458098005 ")
  1. ;;2300
  1. ;;21,"54458098010 ")
  1. ;;2301
  1. ;;21,"54458098110 ")
  1. ;;2302
  1. ;;21,"54458098810 ")
  1. ;;2303
  1. ;;21,"54458098904 ")
  1. ;;2304
  1. ;;21,"54458098910 ")
  1. ;;2305
  1. ;;21,"54458099010 ")
  1. ;;2306
  1. ;;21,"54569017200 ")
  1. ;;2307
  1. ;;21,"54569017201 ")
  1. ;;2308
  1. ;;21,"54569017202 ")
  1. ;;2309
  1. ;;21,"54569017204 ")
  1. ;;2310
  1. ;;21,"54569017206 ")
  1. ;;2311
  1. ;;21,"54569017207 ")
  1. ;;2312
  1. ;;21,"54569017208 ")
  1. ;;2313
  1. ;;21,"54569017500 ")
  1. ;;2314
  1. ;;21,"54569017501 ")
  1. ;;2315
  1. ;;21,"54569017502 ")
  1. ;;2316
  1. ;;21,"54569017503 ")
  1. ;;2317
  1. ;;21,"54569017504 ")
  1. ;;2318
  1. ;;21,"54569017505 ")
  1. ;;2319
  1. ;;21,"54569017506 ")
  1. ;;2320
  1. ;;21,"54569017508 ")
  1. ;;2321
  1. ;;21,"54569019400 ")
  1. ;;2322
  1. ;;21,"54569019402 ")
  1. ;;2323
  1. ;;21,"54569019603 ")
  1. ;;2324
  1. ;;21,"54569019604 ")
  1. ;;2325
  1. ;;21,"54569147000 ")
  1. ;;2326
  1. ;;21,"54569147001 ")
  1. ;;2327
  1. ;;21,"54569147006 ")
  1. ;;2328
  1. ;;21,"54569147008 ")
  1. ;;2329
  1. ;;21,"54569147009 ")
  1. ;;2330
  1. ;;21,"54569151900 ")
  1. ;;2331
  1. ;;21,"54569151901 ")
  1. ;;2332
  1. ;;21,"54569151902 ")
  1. ;;2333
  1. ;;21,"54569151903 ")
  1. ;;2334
  1. ;;21,"54569186401 ")
  1. ;;2335
  1. ;;21,"54569186402 ")
  1. ;;2336
  1. ;;21,"54569199900 ")
  1. ;;2337
  1. ;;21,"54569199901 ")
  1. ;;2338
  1. ;;21,"54569199902 ")
  1. ;;2339
  1. ;;21,"54569199903 ")
  1. ;;2340
  1. ;;21,"54569214600 ")
  1. ;;2341
  1. ;;21,"54569214601 ")
  1. ;;2342
  1. ;;21,"54569214602 ")
  1. ;;2343
  1. ;;21,"54569272600 ")
  1. ;;2344
  1. ;;21,"54569373201 ")
  1. ;;2345
  1. ;;21,"54569373202 ")
  1. ;;2346
  1. ;;21,"54569373203 ")
  1. ;;2347
  1. ;;21,"54569384900 ")
  1. ;;2348
  1. ;;21,"54569384901 ")
  1. ;;2349
  1. ;;21,"54569389400 ")
  1. ;;2350
  1. ;;21,"54569414600 ")
  1. ;;2351
  1. ;;21,"54569414601 ")
  1. ;;2352
  1. ;;21,"54569529100 ")
  1. ;;2353
  1. ;;21,"54569529101 ")
  1. ;;2354
  1. ;;21,"54569529103 ")
  1. ;;2355
  1. ;;21,"54569531900 ")
  1. ;;2356
  1. ;;21,"54569531901 ")
  1. ;;2357
  1. ;;21,"54569531902 ")
  1. ;;2358
  1. ;;21,"54569532000 ")
  1. ;;2359
  1. ;;21,"54569532001 ")
  1. ;;2360
  1. ;;21,"54569554100 ")
  1. ;;2361
  1. ;;21,"54569554101 ")
  1. ;;2362
  1. ;;21,"54569562600 ")
  1. ;;2363
  1. ;;21,"54569562601 ")
  1. ;;2364
  1. ;;21,"54569562700 ")
  1. ;;2365
  1. ;;21,"54569568200 ")
  1. ;;2366
  1. ;;21,"54569581800 ")
  1. ;;2367
  1. ;;21,"54569581801 ")
  1. ;;2368
  1. ;;21,"54569581802 ")
  1. ;;2369
  1. ;;21,"54569581900 ")
  1. ;;2370
  1. ;;21,"54569581901 ")
  1. ;;2371
  1. ;;21,"54569581902 ")
  1. ;;2372
  1. ;;21,"54569587200 ")
  1. ;;2373
  1. ;;21,"54569589500 ")
  1. ;;2374
  1. ;;21,"54569596800 ")
  1. ;;2375
  1. ;;21,"54569596802 ")
  1. ;;2376
  1. ;;21,"54569619200 ")
  1. ;;2377
  1. ;;21,"54569622600 ")
  1. ;;2378
  1. ;;21,"54569622700 ")
  1. ;;2379
  1. ;;21,"54738091201 ")
  1. ;;2380
  1. ;;21,"54738091301 ")
  1. ;;2381
  1. ;;21,"54738091401 ")
  1. ;;2382
  1. ;;21,"54838054070 ")
  1. ;;2383
  1. ;;21,"54868006402 ")
  1. ;;2384
  1. ;;21,"54868006403 ")
  1. ;;2385
  1. ;;21,"54868006404 ")
  1. ;;2386
  1. ;;21,"54868006405 ")
  1. ;;2387
  1. ;;21,"54868006406 ")
  1. ;;2388
  1. ;;21,"54868006407 ")
  1. ;;2389
  1. ;;21,"54868006500 ")
  1. ;;2390
  1. ;;21,"54868006502 ")
  1. ;;2391
  1. ;;21,"54868006503 ")
  1. ;;2392
  1. ;;21,"54868006504 ")
  1. ;;2393
  1. ;;21,"54868006505 ")
  1. ;;2394
  1. ;;21,"54868006507 ")
  1. ;;2395
  1. ;;21,"54868006508 ")
  1. ;;2396
  1. ;;21,"54868006509 ")
  1. ;;2397
  1. ;;21,"54868006600 ")
  1. ;;2398
  1. ;;21,"54868006602 ")
  1. ;;2399
  1. ;;21,"54868006603 ")
  1. ;;2400
  1. ;;21,"54868006605 ")
  1. ;;2401
  1. ;;21,"54868006606 ")
  1. ;;2402
  1. ;;21,"54868006607 ")
  1. ;;2403
  1. ;;21,"54868012200 ")
  1. ;;2404
  1. ;;21,"54868012201 ")
  1. ;;2405
  1. ;;21,"54868012202 ")
  1. ;;2406
  1. ;;21,"54868012203 ")
  1. ;;2407
  1. ;;21,"54868012204 ")
  1. ;;2408
  1. ;;21,"54868012205 ")
  1. ;;2409
  1. ;;21,"54868012206 ")
  1. ;;2410
  1. ;;21,"54868012207 ")
  1. ;;2411
  1. ;;21,"54868012402 ")
  1. ;;2412
  1. ;;21,"54868012403 ")
  1. ;;2413
  1. ;;21,"54868012502 ")
  1. ;;2414
  1. ;;21,"54868012503 ")
  1. ;;2415
  1. ;;21,"54868012504 ")
  1. ;;2416
  1. ;;21,"54868042600 ")
  1. ;;2417
  1. ;;21,"54868122300 ")
  1. ;;2418
  1. ;;21,"54868122301 ")
  1. ;;2419
  1. ;;21,"54868122302 ")
  1. ;;2420
  1. ;;21,"54868122303 ")
  1. ;;2421
  1. ;;21,"54868122304 ")
  1. ;;2422
  1. ;;21,"54868123900 ")
  1. ;;2423
  1. ;;21,"54868123901 ")
  1. ;;2424
  1. ;;21,"54868123902 ")
  1. ;;2425
  1. ;;21,"54868123903 ")
  1. ;;2426
  1. ;;21,"54868123904 ")
  1. ;;2427
  1. ;;21,"54868134400 ")
  1. ;;2428
  1. ;;21,"54868134401 ")
  1. ;;2429
  1. ;;21,"54868134402 ")
  1. ;;2430
  1. ;;21,"54868134403 ")
  1. ;;2431
  1. ;;21,"54868134404 ")
  1. ;;2432
  1. ;;21,"54868153400 ")
  1. ;;2433
  1. ;;21,"54868153401 ")
  1. ;;2434
  1. ;;21,"54868181900 ")
  1. ;;2435
  1. ;;21,"54868195900 ")
  1. ;;2436
  1. ;;21,"54868195901 ")
  1. ;;2437
  1. ;;21,"54868195902 ")
  1. ;;2438
  1. ;;21,"54868195903 ")
  1. ;;2439
  1. ;;21,"54868195904 ")
  1. ;;2440
  1. ;;21,"54868220600 ")
  1. ;;2441
  1. ;;21,"54868220601 ")
  1. ;;2442
  1. ;;21,"54868222100 ")
  1. ;;2443
  1. ;;21,"54868222101 ")
  1. ;;2444
  1. ;;21,"54868222102 ")
  1. ;;2445
  1. ;;21,"54868222103 ")
  1. ;;2446
  1. ;;21,"54868222104 ")
  1. ;;2447
  1. ;;21,"54868222105 ")
  1. ;;2448
  1. ;;21,"54868235700 ")
  1. ;;2449
  1. ;;21,"54868235702 ")
  1. ;;2450
  1. ;;21,"54868235703 ")
  1. ;;2451
  1. ;;21,"54868243300 ")
  1. ;;2452
  1. ;;21,"54868243302 ")
  1. ;;2453
  1. ;;21,"54868243400 ")
  1. ;;2454
  1. ;;21,"54868243402 ")
  1. ;;2455
  1. ;;21,"54868243800 ")
  1. ;;2456
  1. ;;21,"54868243801 ")
  1. ;;2457
  1. ;;21,"54868248000 ")
  1. ;;2458
  1. ;;21,"54868248001 ")
  1. ;;2459
  1. ;;21,"54868248002 ")
  1. ;;2460
  1. ;;21,"54868248004 ")
  1. ;;2461
  1. ;;21,"54868248101 ")
  1. ;;2462
  1. ;;21,"54868248102 ")
  1. ;;2463
  1. ;;21,"54868248103 ")
  1. ;;2464
  1. ;;21,"54868248200 ")
  1. ;;2465
  1. ;;21,"54868248202 ")
  1. ;;2466
  1. ;;21,"54868257100 ")
  1. ;;2467
  1. ;;21,"54868257101 ")
  1. ;;2468
  1. ;;21,"54868283300 ")
  1. ;;2469
  1. ;;21,"54868283301 ")
  1. ;;2470
  1. ;;21,"54868283501 ")
  1. ;;2471
  1. ;;21,"54868283502 ")
  1. ;;2472
  1. ;;21,"54868283503 ")
  1. ;;2473
  1. ;;21,"54868283504 ")
  1. ;;2474
  1. ;;21,"54868392700 ")
  1. ;;2475
  1. ;;21,"54868402300 ")
  1. ;;2476
  1. ;;21,"54868402301 ")
  1. ;;2477
  1. ;;21,"54868405500 ")
  1. ;;2478
  1. ;;21,"54868405501 ")
  1. ;;2479
  1. ;;21,"54868405502 ")
  1. ;;2480
  1. ;;21,"54868405503 ")
  1. ;;2481
  1. ;;21,"54868428800 ")
  1. ;;2482
  1. ;;21,"54868453700 ")
  1. ;;2483
  1. ;;21,"54868453701 ")
  1. ;;2484
  1. ;;21,"54868453702 ")
  1. ;;2485
  1. ;;21,"54868453703 ")
  1. ;;2486
  1. ;;21,"54868453704 ")
  1. ;;2487
  1. ;;21,"54868456000 ")
  1. ;;2488
  1. ;;21,"54868456001 ")
  1. ;;2489
  1. ;;21,"54868456002 ")
  1. ;;2490
  1. ;;21,"54868456200 ")
  1. ;;2491
  1. ;;21,"54868456201 ")
  1. ;;2492
  1. ;;21,"54868481700 ")
  1. ;;2493
  1. ;;21,"54868481701 ")
  1. ;;2494
  1. ;;21,"54868481702 ")
  1. ;;2495
  1. ;;21,"54868493700 ")
  1. ;;2496
  1. ;;21,"54868493701 ")
  1. ;;2497
  1. ;;21,"54868493702 ")
  1. ;;2498
  1. ;;21,"54868493703 ")
  1. ;;2499
  1. ;;21,"54868493704 ")
  1. ;;2500
  1. ;;21,"54868493800 ")
  1. ;;2501
  1. ;;21,"54868508000 ")
  1. ;;2502
  1. ;;21,"54868517800 ")
  1. ;;2503
  1. ;;21,"54868517801 ")
  1. ;;2504
  1. ;;21,"54868517802 ")
  1. ;;2505
  1. ;;21,"54868517803 ")
  1. ;;2506
  1. ;;21,"54868517804 ")
  1. ;;2507
  1. ;;21,"54868517805 ")
  1. ;;2508
  1. ;;21,"54868527500 ")
  1. ;;2509
  1. ;;21,"54868527501 ")
  1. ;;2510
  1. ;;21,"54868527502 ")
  1. ;;2511
  1. ;;21,"54868544800 ")
  1. ;;2512
  1. ;;21,"54868563500 ")
  1. ;;2513
  1. ;;21,"54868563800 ")
  1. ;;2514
  1. ;;21,"54868563801 ")
  1. ;;2515
  1. ;;21,"54868563802 ")
  1. ;;2516
  1. ;;21,"54868563803 ")
  1. ;;2517
  1. ;;21,"54868563804 ")
  1. ;;2518
  1. ;;21,"54868563805 ")
  1. ;;2519
  1. ;;21,"54868563806 ")
  1. ;;2520
  1. ;;21,"54868563807 ")
  1. ;;2521
  1. ;;21,"54868563808 ")
  1. ;;2522
  1. ;;21,"54868563900 ")
  1. ;;2523
  1. ;;21,"54868563901 ")
  1. ;;2524
  1. ;;21,"54868563902 ")
  1. ;;2525
  1. ;;21,"54868563903 ")
  1. ;;2526
  1. ;;21,"54868563904 ")
  1. ;;2527
  1. ;;21,"54868563905 ")
  1. ;;2528
  1. ;;21,"54868563906 ")
  1. ;;2529
  1. ;;21,"54868564200 ")
  1. ;;2530
  1. ;;21,"54868565800 ")
  1. ;;2531
  1. ;;21,"54868566300 ")
  1. ;;2532
  1. ;;21,"54868566301 ")
  1. ;;2533
  1. ;;21,"54868566302 ")
  1. ;;2534
  1. ;;21,"54868575400 ")
  1. ;;2535
  1. ;;21,"54868575401 ")
  1. ;;2536
  1. ;;21,"54868575402 ")
  1. ;;2537
  1. ;;21,"54868575403 ")
  1. ;;2538
  1. ;;21,"54868581200 ")
  1. ;;2539
  1. ;;21,"54868612700 ")
  1. ;;2540
  1. ;;21,"54868613900 ")
  1. ;;2541
  1. ;;21,"54868613901 ")
  1. ;;2542
  1. ;;21,"54868614000 ")
  1. ;;2543
  1. ;;21,"54868614001 ")
  1. ;;2544
  1. ;;21,"54868614100 ")
  1. ;;2545
  1. ;;21,"54868614101 ")
  1. ;;2546
  1. ;;21,"54868614102 ")
  1. ;;2547
  1. ;;21,"54868617800 ")
  1. ;;2548
  1. ;;21,"54868624700 ")
  1. ;;2549
  1. ;;21,"55045071506 ")
  1. ;;2550
  1. ;;21,"55045146300 ")
  1. ;;2551
  1. ;;21,"55045146301 ")
  1. ;;2552
  1. ;;21,"55045146302 ")
  1. ;;2553
  1. ;;21,"55045146303 ")
  1. ;;2554
  1. ;;21,"55045146304 ")
  1. ;;2555
  1. ;;21,"55045146306 ")
  1. ;;2556
  1. ;;21,"55045146307 ")
  1. ;;2557
  1. ;;21,"55045146308 ")
  1. ;;2558
  1. ;;21,"55045146309 ")
  1. ;;2559
  1. ;;21,"55045159200 ")
  1. ;;2560
  1. ;;21,"55045159201 ")
  1. ;;2561
  1. ;;21,"55045159205 ")
  1. ;;2562
  1. ;;21,"55045159206 ")
  1. ;;2563
  1. ;;21,"55045159208 ")
  1. ;;2564
  1. ;;21,"55045159209 ")
  1. ;;2565
  1. ;;21,"55045168200 ")
  1. ;;2566
  1. ;;21,"55045168201 ")
  1. ;;2567
  1. ;;21,"55045168202 ")
  1. ;;2568
  1. ;;21,"55045168203 ")
  1. ;;2569
  1. ;;21,"55045168204 ")
  1. ;;2570
  1. ;;21,"55045168205 ")
  1. ;;2571
  1. ;;21,"55045168206 ")
  1. ;;2572
  1. ;;21,"55045168208 ")
  1. ;;2573
  1. ;;21,"55045168209 ")
  1. ;;2574
  1. ;;21,"55045171500 ")
  1. ;;2575
  1. ;;21,"55045171501 ")
  1. ;;2576
  1. ;;21,"55045171502 ")
  1. ;;2577
  1. ;;21,"55045171503 ")
  1. ;;2578
  1. ;;21,"55045171507 ")
  1. ;;2579
  1. ;;21,"55045171508 ")
  1. ;;2580
  1. ;;21,"55045171509 ")
  1. ;;2581
  1. ;;21,"55045172100 ")
  1. ;;2582
  1. ;;21,"55045172108 ")
  1. ;;2583
  1. ;;21,"55045172201 ")
  1. ;;2584
  1. ;;21,"55045172208 ")
  1. ;;2585
  1. ;;21,"55045172400 ")
  1. ;;2586
  1. ;;21,"55045172401 ")
  1. ;;2587
  1. ;;21,"55045172406 ")
  1. ;;2588
  1. ;;21,"55045172408 ")
  1. ;;2589
  1. ;;21,"55045172409 ")
  1. ;;2590
  1. ;;21,"55045174100 ")
  1. ;;2591
  1. ;;21,"55045174101 ")
  1. ;;2592
  1. ;;21,"55045174102 ")
  1. ;;2593
  1. ;;21,"55045174103 ")
  1. ;;2594
  1. ;;21,"55045174105 ")
  1. ;;2595
  1. ;;21,"55045174106 ")
  1. ;;2596
  1. ;;21,"55045174108 ")
  1. ;;2597
  1. ;;21,"55045174109 ")
  1. ;;2598
  1. ;;21,"55045174202 ")
  1. ;;2599
  1. ;;21,"55045179401 ")
  1. ;;2600
  1. ;;21,"55045179408 ")
  1. ;;2601
  1. ;;21,"55045180008 ")
  1. ;;2602
  1. ;;21,"55045192001 ")
  1. ;;2603
  1. ;;21,"55045192002 ")
  1. ;;2604
  1. ;;21,"55045192006 ")
  1. ;;2605
  1. ;;21,"55045192008 ")
  1. ;;2606
  1. ;;21,"55045192009 ")
  1. ;;2607
  1. ;;21,"55045195601 ")
  1. ;;2608
  1. ;;21,"55045195602 ")
  1. ;;2609
  1. ;;21,"55045195604 ")
  1. ;;2610
  1. ;;21,"55045195606 ")
  1. ;;2611
  1. ;;21,"55045195608 ")
  1. ;;2612
  1. ;;21,"55045195609 ")
  1. ;;2613
  1. ;;21,"55045198202 ")
  1. ;;2614
  1. ;;21,"55045198208 ")
  1. ;;2615
  1. ;;21,"55045198209 ")
  1. ;;2616
  1. ;;21,"55045215301 ")
  1. ;;2617
  1. ;;21,"55045215308 ")
  1. ;;2618
  1. ;;21,"55045236008 ")
  1. ;;2619
  1. ;;21,"55045250900 ")
  1. ;;2620
  1. ;;21,"55045250901 ")
  1. ;;2621
  1. ;;21,"55045250906 ")
  1. ;;2622
  1. ;;21,"55045250908 ")
  1. ;;2623
  1. ;;21,"55045250909 ")
  1. ;;2624
  1. ;;21,"55045269806 ")
  1. ;;2625
  1. ;;21,"55045269808 ")
  1. ;;2626
  1. ;;21,"55045279506 ")
  1. ;;2627
  1. ;;21,"55045290700 ")
  1. ;;2628
  1. ;;21,"55045290702 ")
  1. ;;2629
  1. ;;21,"55045290706 ")
  1. ;;2630
  1. ;;21,"55045290708 ")
  1. ;;2631
  1. ;;21,"55045290709 ")
  1. ;;2632
  1. ;;21,"55045290800 ")
  1. ;;2633
  1. ;;21,"55045290802 ")
  1. ;;2634
  1. ;;21,"55045290806 ")
  1. ;;2635
  1. ;;21,"55045290808 ")
  1. ;;2636
  1. ;;21,"55045290809 ")
  1. ;;2637
  1. ;;21,"55045313708 ")
  1. ;;2638
  1. ;;21,"55045317108 ")
  1. ;;2639
  1. ;;21,"55045317208 ")
  1. ;;2640
  1. ;;21,"55045317209 ")
  1. ;;2641
  1. ;;21,"55045318506 ")
  1. ;;2642
  1. ;;21,"55045334100 ")
  1. ;;2643
  1. ;;21,"55045334106 ")
  1. ;;2644
  1. ;;21,"55045334108 ")
  1. ;;2645
  1. ;;21,"55045342301 ")
  1. ;;2646
  1. ;;21,"55045342302 ")
  1. ;;2647
  1. ;;21,"55045342400 ")
  1. ;;2648
  1. ;;21,"55045342408 ")
  1. ;;2649
  1. ;;21,"55045356201 ")
  1. ;;2650