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

BGP82I8.m

Go to the documentation of this file.
  1. BGP82I8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"54569-5668-02 ")
  1. ;;2356
  1. ;;21,"54569-5669-00 ")
  1. ;;2357
  1. ;;21,"54569-5669-01 ")
  1. ;;2358
  1. ;;21,"54569-5670-00 ")
  1. ;;2359
  1. ;;21,"54569-5670-01 ")
  1. ;;2360
  1. ;;21,"54569-5685-00 ")
  1. ;;2361
  1. ;;21,"54569-5685-01 ")
  1. ;;2362
  1. ;;21,"54569-5709-00 ")
  1. ;;2363
  1. ;;21,"54569-5710-00 ")
  1. ;;2364
  1. ;;21,"54569-5711-00 ")
  1. ;;2365
  1. ;;21,"54569-5728-00 ")
  1. ;;2366
  1. ;;21,"54569-5801-00 ")
  1. ;;2367
  1. ;;21,"54569-5867-00 ")
  1. ;;2368
  1. ;;21,"54569-5878-00 ")
  1. ;;2369
  1. ;;21,"54569-5880-01 ")
  1. ;;2370
  1. ;;21,"54569-5903-00 ")
  1. ;;2371
  1. ;;21,"54569-5916-00 ")
  1. ;;2372
  1. ;;21,"54569-5936-00 ")
  1. ;;2373
  1. ;;21,"54569-5937-00 ")
  1. ;;2374
  1. ;;21,"54569-5938-00 ")
  1. ;;2375
  1. ;;21,"54569-5938-01 ")
  1. ;;2376
  1. ;;21,"54569-5998-00 ")
  1. ;;2377
  1. ;;21,"54569-5999-00 ")
  1. ;;2378
  1. ;;21,"54569-6091-00 ")
  1. ;;2379
  1. ;;21,"54569-6091-01 ")
  1. ;;2380
  1. ;;21,"54569-6092-00 ")
  1. ;;2381
  1. ;;21,"54569-6092-01 ")
  1. ;;2382
  1. ;;21,"54569-6098-00 ")
  1. ;;2383
  1. ;;21,"54569-6110-01 ")
  1. ;;2384
  1. ;;21,"54569-6111-00 ")
  1. ;;2385
  1. ;;21,"54569-6111-01 ")
  1. ;;2386
  1. ;;21,"54569-6112-00 ")
  1. ;;2387
  1. ;;21,"54569-6112-01 ")
  1. ;;2388
  1. ;;21,"54569-6173-00 ")
  1. ;;2389
  1. ;;21,"54569-6173-01 ")
  1. ;;2390
  1. ;;21,"54569-6180-00 ")
  1. ;;2391
  1. ;;21,"54569-6180-01 ")
  1. ;;2392
  1. ;;21,"54569-6182-00 ")
  1. ;;2393
  1. ;;21,"54569-6182-01 ")
  1. ;;2394
  1. ;;21,"54569-6223-00 ")
  1. ;;2395
  1. ;;21,"54569-6223-01 ")
  1. ;;2396
  1. ;;21,"54569-6228-00 ")
  1. ;;2397
  1. ;;21,"54569-6228-01 ")
  1. ;;2398
  1. ;;21,"54569-6228-02 ")
  1. ;;2399
  1. ;;21,"54569-6273-00 ")
  1. ;;2400
  1. ;;21,"54569-6274-00 ")
  1. ;;2401
  1. ;;21,"54569-6294-00 ")
  1. ;;2402
  1. ;;21,"54569-6294-01 ")
  1. ;;2403
  1. ;;21,"54569-6297-00 ")
  1. ;;2404
  1. ;;21,"54569-6297-01 ")
  1. ;;2405
  1. ;;21,"54569-6309-00 ")
  1. ;;2406
  1. ;;21,"54569-6416-00 ")
  1. ;;2407
  1. ;;21,"54569-6480-00 ")
  1. ;;2408
  1. ;;21,"54569-6480-01 ")
  1. ;;2409
  1. ;;21,"54569-6483-00 ")
  1. ;;2410
  1. ;;21,"54569-6483-01 ")
  1. ;;2411
  1. ;;21,"54569-6485-00 ")
  1. ;;2412
  1. ;;21,"54569-6486-00 ")
  1. ;;2413
  1. ;;21,"54569-6487-00 ")
  1. ;;2414
  1. ;;21,"54569-6488-00 ")
  1. ;;2415
  1. ;;21,"54569-6552-00 ")
  1. ;;2416
  1. ;;21,"54569-6553-00 ")
  1. ;;2417
  1. ;;21,"54569-6564-00 ")
  1. ;;2418
  1. ;;21,"54569-6582-00 ")
  1. ;;2419
  1. ;;21,"54569-6582-01 ")
  1. ;;2420
  1. ;;21,"54569-6583-00 ")
  1. ;;2421
  1. ;;21,"54569-6583-01 ")
  1. ;;2422
  1. ;;21,"54569-6588-00 ")
  1. ;;2423
  1. ;;21,"54569-6588-01 ")
  1. ;;2424
  1. ;;21,"54569-6682-00 ")
  1. ;;2425
  1. ;;21,"54569-9023-00 ")
  1. ;;2426
  1. ;;21,"54569-9024-00 ")
  1. ;;2427
  1. ;;21,"54868-0009-00 ")
  1. ;;2428
  1. ;;21,"54868-0009-01 ")
  1. ;;2429
  1. ;;21,"54868-1502-00 ")
  1. ;;2430
  1. ;;21,"54868-1802-00 ")
  1. ;;2431
  1. ;;21,"54868-1960-00 ")
  1. ;;2432
  1. ;;21,"54868-1970-01 ")
  1. ;;2433
  1. ;;21,"54868-1970-02 ")
  1. ;;2434
  1. ;;21,"54868-1970-03 ")
  1. ;;2435
  1. ;;21,"54868-2335-00 ")
  1. ;;2436
  1. ;;21,"54868-2335-01 ")
  1. ;;2437
  1. ;;21,"54868-2350-01 ")
  1. ;;2438
  1. ;;21,"54868-2350-02 ")
  1. ;;2439
  1. ;;21,"54868-2350-03 ")
  1. ;;2440
  1. ;;21,"54868-2350-04 ")
  1. ;;2441
  1. ;;21,"54868-2351-00 ")
  1. ;;2442
  1. ;;21,"54868-2351-02 ")
  1. ;;2443
  1. ;;21,"54868-2351-03 ")
  1. ;;2444
  1. ;;21,"54868-2352-00 ")
  1. ;;2445
  1. ;;21,"54868-2352-01 ")
  1. ;;2446
  1. ;;21,"54868-2644-01 ")
  1. ;;2447
  1. ;;21,"54868-2644-02 ")
  1. ;;2448
  1. ;;21,"54868-2645-01 ")
  1. ;;2449
  1. ;;21,"54868-2645-02 ")
  1. ;;2450
  1. ;;21,"54868-2645-03 ")
  1. ;;2451
  1. ;;21,"54868-2665-00 ")
  1. ;;2452
  1. ;;21,"54868-2665-01 ")
  1. ;;2453
  1. ;;21,"54868-2666-01 ")
  1. ;;2454
  1. ;;21,"54868-2666-02 ")
  1. ;;2455
  1. ;;21,"54868-2666-03 ")
  1. ;;2456
  1. ;;21,"54868-2666-04 ")
  1. ;;2457
  1. ;;21,"54868-3307-00 ")
  1. ;;2458
  1. ;;21,"54868-3307-01 ")
  1. ;;2459
  1. ;;21,"54868-3443-00 ")
  1. ;;2460
  1. ;;21,"54868-3443-01 ")
  1. ;;2461
  1. ;;21,"54868-3445-00 ")
  1. ;;2462
  1. ;;21,"54868-3445-01 ")
  1. ;;2463
  1. ;;21,"54868-3723-01 ")
  1. ;;2464
  1. ;;21,"54868-3723-02 ")
  1. ;;2465
  1. ;;21,"54868-3723-03 ")
  1. ;;2466
  1. ;;21,"54868-3723-04 ")
  1. ;;2467
  1. ;;21,"54868-3723-05 ")
  1. ;;2468
  1. ;;21,"54868-3724-01 ")
  1. ;;2469
  1. ;;21,"54868-3724-02 ")
  1. ;;2470
  1. ;;21,"54868-3724-03 ")
  1. ;;2471
  1. ;;21,"54868-3724-04 ")
  1. ;;2472
  1. ;;21,"54868-3725-01 ")
  1. ;;2473
  1. ;;21,"54868-3725-02 ")
  1. ;;2474
  1. ;;21,"54868-3725-03 ")
  1. ;;2475
  1. ;;21,"54868-3725-04 ")
  1. ;;2476
  1. ;;21,"54868-3726-00 ")
  1. ;;2477
  1. ;;21,"54868-3726-01 ")
  1. ;;2478
  1. ;;21,"54868-3726-02 ")
  1. ;;2479
  1. ;;21,"54868-3846-00 ")
  1. ;;2480
  1. ;;21,"54868-3846-02 ")
  1. ;;2481
  1. ;;21,"54868-3846-03 ")
  1. ;;2482
  1. ;;21,"54868-3866-00 ")
  1. ;;2483
  1. ;;21,"54868-3866-01 ")
  1. ;;2484
  1. ;;21,"54868-3906-00 ")
  1. ;;2485
  1. ;;21,"54868-3906-01 ")
  1. ;;2486
  1. ;;21,"54868-3906-02 ")
  1. ;;2487
  1. ;;21,"54868-4062-00 ")
  1. ;;2488
  1. ;;21,"54868-4062-01 ")
  1. ;;2489
  1. ;;21,"54868-4066-00 ")
  1. ;;2490
  1. ;;21,"54868-4066-01 ")
  1. ;;2491
  1. ;;21,"54868-4073-00 ")
  1. ;;2492
  1. ;;21,"54868-4073-01 ")
  1. ;;2493
  1. ;;21,"54868-4073-02 ")
  1. ;;2494
  1. ;;21,"54868-4073-03 ")
  1. ;;2495
  1. ;;21,"54868-4074-00 ")
  1. ;;2496
  1. ;;21,"54868-4074-01 ")
  1. ;;2497
  1. ;;21,"54868-4074-02 ")
  1. ;;2498
  1. ;;21,"54868-4074-03 ")
  1. ;;2499
  1. ;;21,"54868-4074-04 ")
  1. ;;2500
  1. ;;21,"54868-4199-00 ")
  1. ;;2501
  1. ;;21,"54868-4199-01 ")
  1. ;;2502
  1. ;;21,"54868-4199-02 ")
  1. ;;2503
  1. ;;21,"54868-4331-00 ")
  1. ;;2504
  1. ;;21,"54868-4331-01 ")
  1. ;;2505
  1. ;;21,"54868-4331-02 ")
  1. ;;2506
  1. ;;21,"54868-4331-03 ")
  1. ;;2507
  1. ;;21,"54868-4332-00 ")
  1. ;;2508
  1. ;;21,"54868-4332-01 ")
  1. ;;2509
  1. ;;21,"54868-4332-02 ")
  1. ;;2510
  1. ;;21,"54868-4341-00 ")
  1. ;;2511
  1. ;;21,"54868-4341-01 ")
  1. ;;2512
  1. ;;21,"54868-4357-00 ")
  1. ;;2513
  1. ;;21,"54868-4357-01 ")
  1. ;;2514
  1. ;;21,"54868-4357-02 ")
  1. ;;2515
  1. ;;21,"54868-4357-03 ")
  1. ;;2516
  1. ;;21,"54868-4358-00 ")
  1. ;;2517
  1. ;;21,"54868-4358-01 ")
  1. ;;2518
  1. ;;21,"54868-4358-02 ")
  1. ;;2519
  1. ;;21,"54868-4358-03 ")
  1. ;;2520
  1. ;;21,"54868-4413-00 ")
  1. ;;2521
  1. ;;21,"54868-4414-00 ")
  1. ;;2522
  1. ;;21,"54868-4414-01 ")
  1. ;;2523
  1. ;;21,"54868-4425-00 ")
  1. ;;2524
  1. ;;21,"54868-4425-03 ")
  1. ;;2525
  1. ;;21,"54868-4428-00 ")
  1. ;;2526
  1. ;;21,"54868-4428-02 ")
  1. ;;2527
  1. ;;21,"54868-4428-03 ")
  1. ;;2528
  1. ;;21,"54868-4494-00 ")
  1. ;;2529
  1. ;;21,"54868-4526-00 ")
  1. ;;2530
  1. ;;21,"54868-4526-01 ")
  1. ;;2531
  1. ;;21,"54868-4539-01 ")
  1. ;;2532
  1. ;;21,"54868-4540-01 ")
  1. ;;2533
  1. ;;21,"54868-4540-02 ")
  1. ;;2534
  1. ;;21,"54868-4605-01 ")
  1. ;;2535
  1. ;;21,"54868-4605-02 ")
  1. ;;2536
  1. ;;21,"54868-4612-00 ")
  1. ;;2537
  1. ;;21,"54868-4637-00 ")
  1. ;;2538
  1. ;;21,"54868-4637-01 ")
  1. ;;2539
  1. ;;21,"54868-4637-02 ")
  1. ;;2540
  1. ;;21,"54868-4637-03 ")
  1. ;;2541
  1. ;;21,"54868-4637-04 ")
  1. ;;2542
  1. ;;21,"54868-4645-00 ")
  1. ;;2543
  1. ;;21,"54868-4645-01 ")
  1. ;;2544
  1. ;;21,"54868-4645-02 ")
  1. ;;2545
  1. ;;21,"54868-4645-03 ")
  1. ;;2546
  1. ;;21,"54868-4646-00 ")
  1. ;;2547
  1. ;;21,"54868-4646-02 ")
  1. ;;2548
  1. ;;21,"54868-4646-03 ")
  1. ;;2549
  1. ;;21,"54868-4646-04 ")
  1. ;;2550
  1. ;;21,"54868-4646-05 ")
  1. ;;2551
  1. ;;21,"54868-4652-00 ")
  1. ;;2552
  1. ;;21,"54868-4652-01 ")
  1. ;;2553
  1. ;;21,"54868-4652-02 ")
  1. ;;2554
  1. ;;21,"54868-4652-03 ")
  1. ;;2555
  1. ;;21,"54868-4652-04 ")
  1. ;;2556
  1. ;;21,"54868-4652-05 ")
  1. ;;2557
  1. ;;21,"54868-4656-00 ")
  1. ;;2558
  1. ;;21,"54868-4656-01 ")
  1. ;;2559
  1. ;;21,"54868-4656-02 ")
  1. ;;2560
  1. ;;21,"54868-4656-03 ")
  1. ;;2561
  1. ;;21,"54868-4657-00 ")
  1. ;;2562
  1. ;;21,"54868-4657-01 ")
  1. ;;2563
  1. ;;21,"54868-4657-02 ")
  1. ;;2564
  1. ;;21,"54868-4657-03 ")
  1. ;;2565
  1. ;;21,"54868-4657-04 ")
  1. ;;2566
  1. ;;21,"54868-4657-06 ")
  1. ;;2567
  1. ;;21,"54868-4657-08 ")
  1. ;;2568
  1. ;;21,"54868-4658-00 ")
  1. ;;2569
  1. ;;21,"54868-4658-01 ")
  1. ;;2570
  1. ;;21,"54868-4658-02 ")
  1. ;;2571
  1. ;;21,"54868-4658-03 ")
  1. ;;2572
  1. ;;21,"54868-4658-04 ")
  1. ;;2573
  1. ;;21,"54868-4678-00 ")
  1. ;;2574
  1. ;;21,"54868-4678-01 ")
  1. ;;2575
  1. ;;21,"54868-4678-02 ")
  1. ;;2576
  1. ;;21,"54868-4678-03 ")
  1. ;;2577
  1. ;;21,"54868-4678-04 ")
  1. ;;2578
  1. ;;21,"54868-4729-00 ")
  1. ;;2579
  1. ;;21,"54868-4780-00 ")
  1. ;;2580
  1. ;;21,"54868-4780-01 ")
  1. ;;2581
  1. ;;21,"54868-4780-02 ")
  1. ;;2582
  1. ;;21,"54868-4785-00 ")
  1. ;;2583
  1. ;;21,"54868-4785-01 ")
  1. ;;2584
  1. ;;21,"54868-4785-02 ")
  1. ;;2585
  1. ;;21,"54868-4785-03 ")
  1. ;;2586
  1. ;;21,"54868-4869-00 ")
  1. ;;2587
  1. ;;21,"54868-4870-00 ")
  1. ;;2588
  1. ;;21,"54868-4870-01 ")
  1. ;;2589
  1. ;;21,"54868-4870-02 ")
  1. ;;2590
  1. ;;21,"54868-4885-00 ")
  1. ;;2591
  1. ;;21,"54868-4885-01 ")
  1. ;;2592
  1. ;;21,"54868-4904-00 ")
  1. ;;2593
  1. ;;21,"54868-4904-01 ")
  1. ;;2594
  1. ;;21,"54868-4977-00 ")
  1. ;;2595
  1. ;;21,"54868-4977-01 ")
  1. ;;2596
  1. ;;21,"54868-4977-02 ")
  1. ;;2597
  1. ;;21,"54868-4986-00 ")
  1. ;;2598
  1. ;;21,"54868-4986-01 ")
  1. ;;2599
  1. ;;21,"54868-4986-02 ")
  1. ;;2600
  1. ;;21,"54868-5001-00 ")
  1. ;;2601
  1. ;;21,"54868-5001-01 ")
  1. ;;2602
  1. ;;21,"54868-5001-02 ")
  1. ;;2603
  1. ;;21,"54868-5055-00 ")
  1. ;;2604
  1. ;;21,"54868-5064-00 ")
  1. ;;2605
  1. ;;21,"54868-5064-01 ")
  1. ;;2606
  1. ;;21,"54868-5075-00 ")
  1. ;;2607
  1. ;;21,"54868-5075-01 ")
  1. ;;2608
  1. ;;21,"54868-5077-00 ")
  1. ;;2609
  1. ;;21,"54868-5078-00 ")
  1. ;;2610
  1. ;;21,"54868-5078-01 ")
  1. ;;2611
  1. ;;21,"54868-5079-00 ")
  1. ;;2612
  1. ;;21,"54868-5079-01 ")
  1. ;;2613
  1. ;;21,"54868-5079-02 ")
  1. ;;2614
  1. ;;21,"54868-5082-00 ")
  1. ;;2615
  1. ;;21,"54868-5082-02 ")
  1. ;;2616
  1. ;;21,"54868-5082-03 ")
  1. ;;2617
  1. ;;21,"54868-5099-00 ")
  1. ;;2618
  1. ;;21,"54868-5099-01 ")
  1. ;;2619
  1. ;;21,"54868-5100-00 ")
  1. ;;2620
  1. ;;21,"54868-5100-01 ")
  1. ;;2621
  1. ;;21,"54868-5100-02 ")
  1. ;;2622
  1. ;;21,"54868-5170-00 ")
  1. ;;2623
  1. ;;21,"54868-5170-01 ")
  1. ;;2624
  1. ;;21,"54868-5182-00 ")
  1. ;;2625
  1. ;;21,"54868-5182-01 ")
  1. ;;2626
  1. ;;21,"54868-5182-02 ")
  1. ;;2627
  1. ;;21,"54868-5196-00 ")
  1. ;;2628
  1. ;;21,"54868-5196-01 ")
  1. ;;2629
  1. ;;21,"54868-5196-02 ")
  1. ;;2630
  1. ;;21,"54868-5204-00 ")
  1. ;;2631
  1. ;;21,"54868-5204-01 ")
  1. ;;2632
  1. ;;21,"54868-5204-02 ")
  1. ;;2633
  1. ;;21,"54868-5204-03 ")
  1. ;;2634
  1. ;;21,"54868-5241-00 ")
  1. ;;2635
  1. ;;21,"54868-5241-01 ")
  1. ;;2636
  1. ;;21,"54868-5241-02 ")
  1. ;;2637
  1. ;;21,"54868-5245-00 ")
  1. ;;2638
  1. ;;21,"54868-5245-01 ")
  1. ;;2639
  1. ;;21,"54868-5245-02 ")
  1. ;;2640
  1. ;;21,"54868-5246-00 ")
  1. ;;2641
  1. ;;21,"54868-5246-01 ")
  1. ;;2642
  1. ;;21,"54868-5246-02 ")
  1. ;;2643
  1. ;;21,"54868-5256-00 ")
  1. ;;2644
  1. ;;21,"54868-5279-00 ")
  1. ;;2645
  1. ;;21,"54868-5281-01 ")
  1. ;;2646
  1. ;;21,"54868-5296-00 ")
  1. ;;2647
  1. ;;21,"54868-5297-00 ")
  1. ;;2648
  1. ;;21,"54868-5311-00 ")
  1. ;;2649
  1. ;;21,"54868-5311-01 ")
  1. ;;2650
  1. ;;21,"54868-5313-00 ")
  1. ;;2651
  1. ;;21,"54868-5313-01 ")
  1. ;;2652
  1. ;;21,"54868-5320-00 ")
  1. ;;2653
  1. ;;21,"54868-5320-01 ")
  1. ;;2654
  1. ;;21,"54868-5320-03 ")
  1. ;;2655
  1. ;;21,"54868-5320-04 ")
  1. ;;2656
  1. ;;21,"54868-5323-00 ")
  1. ;;2657
  1. ;;21,"54868-5323-01 ")
  1. ;;2658
  1. ;;21,"54868-5346-00 ")
  1. ;;2659
  1. ;;21,"54868-5346-01 ")
  1. ;;2660
  1. ;;21,"54868-5392-00 ")
  1. ;;2661
  1. ;;21,"54868-5418-00 ")
  1. ;;2662
  1. ;;21,"54868-5465-00 ")
  1. ;;2663
  1. ;;21,"54868-5465-01 ")
  1. ;;2664
  1. ;;21,"54868-5469-00 ")
  1. ;;2665
  1. ;;21,"54868-5469-01 ")
  1. ;;2666
  1. ;;21,"54868-5475-00 ")
  1. ;;2667
  1. ;;21,"54868-5489-00 ")
  1. ;;2668
  1. ;;21,"54868-5503-00 ")
  1. ;;2669
  1. ;;21,"54868-5503-01 ")
  1. ;;2670
  1. ;;21,"54868-5548-02 ")
  1. ;;2671
  1. ;;21,"54868-5591-00 ")
  1. ;;2672
  1. ;;21,"54868-5607-00 ")
  1. ;;2673
  1. ;;21,"54868-5607-01 ")
  1. ;;2674
  1. ;;21,"54868-5690-00 ")
  1. ;;2675
  1. ;;21,"54868-5690-01 ")
  1. ;;2676
  1. ;;21,"54868-5690-02 ")
  1. ;;2677
  1. ;;21,"54868-5690-03 ")
  1. ;;2678
  1. ;;21,"54868-5705-00 ")
  1. ;;2679
  1. ;;21,"54868-5747-00 ")
  1. ;;2680
  1. ;;21,"54868-5747-01 ")
  1. ;;2681
  1. ;;21,"54868-5772-00 ")
  1. ;;2682
  1. ;;21,"54868-5780-00 ")
  1. ;;2683
  1. ;;21,"54868-5780-01 ")
  1. ;;2684
  1. ;;21,"54868-5781-00 ")
  1. ;;2685
  1. ;;21,"54868-5781-01 ")
  1. ;;2686
  1. ;;21,"54868-5781-02 ")
  1. ;;2687
  1. ;;21,"54868-5781-03 ")
  1. ;;2688