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

BGP82Z8.m

Go to the documentation of this file.
  1. BGP82Z8 ; 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,"43386-0543-01 ")
  1. ;;2356
  1. ;;21,"43386-0544-01 ")
  1. ;;2357
  1. ;;21,"43386-0670-01 ")
  1. ;;2358
  1. ;;21,"43386-0680-01 ")
  1. ;;2359
  1. ;;21,"43386-0920-60 ")
  1. ;;2360
  1. ;;21,"43386-0950-01 ")
  1. ;;2361
  1. ;;21,"43547-0373-10 ")
  1. ;;2362
  1. ;;21,"46987-0322-11 ")
  1. ;;2363
  1. ;;21,"46987-0323-11 ")
  1. ;;2364
  1. ;;21,"46987-0324-11 ")
  1. ;;2365
  1. ;;21,"46987-0325-11 ")
  1. ;;2366
  1. ;;21,"46987-0326-11 ")
  1. ;;2367
  1. ;;21,"46987-0327-11 ")
  1. ;;2368
  1. ;;21,"46987-0328-11 ")
  1. ;;2369
  1. ;;21,"46987-0329-11 ")
  1. ;;2370
  1. ;;21,"46987-0330-11 ")
  1. ;;2371
  1. ;;21,"46987-0377-11 ")
  1. ;;2372
  1. ;;21,"46987-0410-11 ")
  1. ;;2373
  1. ;;21,"46987-0412-11 ")
  1. ;;2374
  1. ;;21,"47335-0531-83 ")
  1. ;;2375
  1. ;;21,"47335-0531-88 ")
  1. ;;2376
  1. ;;21,"47335-0533-83 ")
  1. ;;2377
  1. ;;21,"47335-0533-88 ")
  1. ;;2378
  1. ;;21,"47335-0537-83 ")
  1. ;;2379
  1. ;;21,"47335-0537-88 ")
  1. ;;2380
  1. ;;21,"47335-0859-83 ")
  1. ;;2381
  1. ;;21,"47335-0860-83 ")
  1. ;;2382
  1. ;;21,"47335-0861-83 ")
  1. ;;2383
  1. ;;21,"47463-0002-00 ")
  1. ;;2384
  1. ;;21,"47463-0002-30 ")
  1. ;;2385
  1. ;;21,"47463-0002-45 ")
  1. ;;2386
  1. ;;21,"47463-0002-60 ")
  1. ;;2387
  1. ;;21,"47463-0002-84 ")
  1. ;;2388
  1. ;;21,"47463-0002-90 ")
  1. ;;2389
  1. ;;21,"47463-0363-30 ")
  1. ;;2390
  1. ;;21,"47463-0363-60 ")
  1. ;;2391
  1. ;;21,"47463-0363-71 ")
  1. ;;2392
  1. ;;21,"47463-0363-73 ")
  1. ;;2393
  1. ;;21,"47463-0363-74 ")
  1. ;;2394
  1. ;;21,"47463-0363-90 ")
  1. ;;2395
  1. ;;21,"47463-0364-30 ")
  1. ;;2396
  1. ;;21,"47463-0364-60 ")
  1. ;;2397
  1. ;;21,"47463-0364-71 ")
  1. ;;2398
  1. ;;21,"47463-0364-90 ")
  1. ;;2399
  1. ;;21,"47463-0365-30 ")
  1. ;;2400
  1. ;;21,"47463-0365-60 ")
  1. ;;2401
  1. ;;21,"47463-0365-90 ")
  1. ;;2402
  1. ;;21,"47463-0427-91 ")
  1. ;;2403
  1. ;;21,"47463-0433-60 ")
  1. ;;2404
  1. ;;21,"47463-0532-60 ")
  1. ;;2405
  1. ;;21,"47463-0560-30 ")
  1. ;;2406
  1. ;;21,"47463-0560-60 ")
  1. ;;2407
  1. ;;21,"47463-0560-71 ")
  1. ;;2408
  1. ;;21,"47463-0560-90 ")
  1. ;;2409
  1. ;;21,"47463-0561-30 ")
  1. ;;2410
  1. ;;21,"47463-0561-60 ")
  1. ;;2411
  1. ;;21,"47463-0561-71 ")
  1. ;;2412
  1. ;;21,"47463-0561-73 ")
  1. ;;2413
  1. ;;21,"47463-0561-90 ")
  1. ;;2414
  1. ;;21,"47463-0562-30 ")
  1. ;;2415
  1. ;;21,"47463-0562-60 ")
  1. ;;2416
  1. ;;21,"47463-0562-71 ")
  1. ;;2417
  1. ;;21,"47463-0562-73 ")
  1. ;;2418
  1. ;;21,"47463-0562-90 ")
  1. ;;2419
  1. ;;21,"47463-0563-30 ")
  1. ;;2420
  1. ;;21,"47463-0564-71 ")
  1. ;;2421
  1. ;;21,"47463-0801-15 ")
  1. ;;2422
  1. ;;21,"47463-0801-30 ")
  1. ;;2423
  1. ;;21,"47463-0801-60 ")
  1. ;;2424
  1. ;;21,"47463-0801-71 ")
  1. ;;2425
  1. ;;21,"47463-0801-90 ")
  1. ;;2426
  1. ;;21,"47463-0802-30 ")
  1. ;;2427
  1. ;;21,"47463-0802-60 ")
  1. ;;2428
  1. ;;21,"47463-0844-30 ")
  1. ;;2429
  1. ;;21,"47463-0845-30 ")
  1. ;;2430
  1. ;;21,"47463-0851-30 ")
  1. ;;2431
  1. ;;21,"47781-0196-01 ")
  1. ;;2432
  1. ;;21,"47781-0196-05 ")
  1. ;;2433
  1. ;;21,"47781-0229-01 ")
  1. ;;2434
  1. ;;21,"47781-0229-05 ")
  1. ;;2435
  1. ;;21,"47781-0229-63 ")
  1. ;;2436
  1. ;;21,"47781-0230-01 ")
  1. ;;2437
  1. ;;21,"47781-0230-05 ")
  1. ;;2438
  1. ;;21,"47781-0230-63 ")
  1. ;;2439
  1. ;;21,"47781-0263-01 ")
  1. ;;2440
  1. ;;21,"47781-0263-05 ")
  1. ;;2441
  1. ;;21,"47781-0264-01 ")
  1. ;;2442
  1. ;;21,"47781-0264-05 ")
  1. ;;2443
  1. ;;21,"47781-0265-01 ")
  1. ;;2444
  1. ;;21,"47781-0265-05 ")
  1. ;;2445
  1. ;;21,"47781-0423-47 ")
  1. ;;2446
  1. ;;21,"47781-0424-47 ")
  1. ;;2447
  1. ;;21,"47781-0426-47 ")
  1. ;;2448
  1. ;;21,"47781-0427-47 ")
  1. ;;2449
  1. ;;21,"47781-0428-47 ")
  1. ;;2450
  1. ;;21,"49708-0419-88 ")
  1. ;;2451
  1. ;;21,"49884-0136-01 ")
  1. ;;2452
  1. ;;21,"49884-0137-01 ")
  1. ;;2453
  1. ;;21,"49884-0138-01 ")
  1. ;;2454
  1. ;;21,"49884-0197-01 ")
  1. ;;2455
  1. ;;21,"49884-0235-33 ")
  1. ;;2456
  1. ;;21,"49884-0235-37 ")
  1. ;;2457
  1. ;;21,"49884-0459-52 ")
  1. ;;2458
  1. ;;21,"49884-0459-55 ")
  1. ;;2459
  1. ;;21,"49884-0460-52 ")
  1. ;;2460
  1. ;;21,"49884-0460-55 ")
  1. ;;2461
  1. ;;21,"49884-0461-52 ")
  1. ;;2462
  1. ;;21,"49884-0461-55 ")
  1. ;;2463
  1. ;;21,"49884-0462-52 ")
  1. ;;2464
  1. ;;21,"49884-0462-55 ")
  1. ;;2465
  1. ;;21,"49884-0463-52 ")
  1. ;;2466
  1. ;;21,"49884-0463-55 ")
  1. ;;2467
  1. ;;21,"49884-0464-52 ")
  1. ;;2468
  1. ;;21,"49884-0464-55 ")
  1. ;;2469
  1. ;;21,"49884-0665-01 ")
  1. ;;2470
  1. ;;21,"49884-0666-01 ")
  1. ;;2471
  1. ;;21,"49884-0667-01 ")
  1. ;;2472
  1. ;;21,"49884-0668-01 ")
  1. ;;2473
  1. ;;21,"49884-0669-01 ")
  1. ;;2474
  1. ;;21,"49884-0670-01 ")
  1. ;;2475
  1. ;;21,"49884-0761-52 ")
  1. ;;2476
  1. ;;21,"49884-0761-78 ")
  1. ;;2477
  1. ;;21,"49884-0762-52 ")
  1. ;;2478
  1. ;;21,"49884-0762-78 ")
  1. ;;2479
  1. ;;21,"49884-0763-52 ")
  1. ;;2480
  1. ;;21,"49884-0763-78 ")
  1. ;;2481
  1. ;;21,"49884-0764-52 ")
  1. ;;2482
  1. ;;21,"49884-0764-78 ")
  1. ;;2483
  1. ;;21,"49884-0821-11 ")
  1. ;;2484
  1. ;;21,"49884-0822-11 ")
  1. ;;2485
  1. ;;21,"49884-0823-11 ")
  1. ;;2486
  1. ;;21,"49884-0833-01 ")
  1. ;;2487
  1. ;;21,"49884-0834-01 ")
  1. ;;2488
  1. ;;21,"49884-0835-01 ")
  1. ;;2489
  1. ;;21,"49884-0836-01 ")
  1. ;;2490
  1. ;;21,"49884-0837-01 ")
  1. ;;2491
  1. ;;21,"49884-0838-01 ")
  1. ;;2492
  1. ;;21,"49884-0946-01 ")
  1. ;;2493
  1. ;;21,"49884-0946-05 ")
  1. ;;2494
  1. ;;21,"49999-0019-20 ")
  1. ;;2495
  1. ;;21,"49999-0019-30 ")
  1. ;;2496
  1. ;;21,"49999-0019-90 ")
  1. ;;2497
  1. ;;21,"49999-0022-15 ")
  1. ;;2498
  1. ;;21,"49999-0022-20 ")
  1. ;;2499
  1. ;;21,"49999-0022-21 ")
  1. ;;2500
  1. ;;21,"49999-0022-25 ")
  1. ;;2501
  1. ;;21,"49999-0022-30 ")
  1. ;;2502
  1. ;;21,"49999-0022-56 ")
  1. ;;2503
  1. ;;21,"49999-0022-60 ")
  1. ;;2504
  1. ;;21,"49999-0026-01 ")
  1. ;;2505
  1. ;;21,"49999-0026-30 ")
  1. ;;2506
  1. ;;21,"49999-0026-40 ")
  1. ;;2507
  1. ;;21,"49999-0026-60 ")
  1. ;;2508
  1. ;;21,"49999-0026-90 ")
  1. ;;2509
  1. ;;21,"49999-0051-30 ")
  1. ;;2510
  1. ;;21,"49999-0052-00 ")
  1. ;;2511
  1. ;;21,"49999-0052-02 ")
  1. ;;2512
  1. ;;21,"49999-0052-05 ")
  1. ;;2513
  1. ;;21,"49999-0052-15 ")
  1. ;;2514
  1. ;;21,"49999-0052-20 ")
  1. ;;2515
  1. ;;21,"49999-0052-30 ")
  1. ;;2516
  1. ;;21,"49999-0052-40 ")
  1. ;;2517
  1. ;;21,"49999-0052-60 ")
  1. ;;2518
  1. ;;21,"49999-0052-90 ")
  1. ;;2519
  1. ;;21,"49999-0060-00 ")
  1. ;;2520
  1. ;;21,"49999-0060-01 ")
  1. ;;2521
  1. ;;21,"49999-0060-06 ")
  1. ;;2522
  1. ;;21,"49999-0060-10 ")
  1. ;;2523
  1. ;;21,"49999-0060-12 ")
  1. ;;2524
  1. ;;21,"49999-0060-15 ")
  1. ;;2525
  1. ;;21,"49999-0060-20 ")
  1. ;;2526
  1. ;;21,"49999-0060-24 ")
  1. ;;2527
  1. ;;21,"49999-0060-30 ")
  1. ;;2528
  1. ;;21,"49999-0060-50 ")
  1. ;;2529
  1. ;;21,"49999-0060-60 ")
  1. ;;2530
  1. ;;21,"49999-0060-90 ")
  1. ;;2531
  1. ;;21,"49999-0118-14 ")
  1. ;;2532
  1. ;;21,"49999-0118-30 ")
  1. ;;2533
  1. ;;21,"49999-0129-00 ")
  1. ;;2534
  1. ;;21,"49999-0129-01 ")
  1. ;;2535
  1. ;;21,"49999-0129-14 ")
  1. ;;2536
  1. ;;21,"49999-0129-15 ")
  1. ;;2537
  1. ;;21,"49999-0129-18 ")
  1. ;;2538
  1. ;;21,"49999-0129-20 ")
  1. ;;2539
  1. ;;21,"49999-0129-24 ")
  1. ;;2540
  1. ;;21,"49999-0129-30 ")
  1. ;;2541
  1. ;;21,"49999-0129-60 ")
  1. ;;2542
  1. ;;21,"49999-0129-90 ")
  1. ;;2543
  1. ;;21,"49999-0152-04 ")
  1. ;;2544
  1. ;;21,"49999-0169-40 ")
  1. ;;2545
  1. ;;21,"49999-0323-04 ")
  1. ;;2546
  1. ;;21,"49999-0326-04 ")
  1. ;;2547
  1. ;;21,"49999-0588-01 ")
  1. ;;2548
  1. ;;21,"49999-0588-15 ")
  1. ;;2549
  1. ;;21,"49999-0588-30 ")
  1. ;;2550
  1. ;;21,"49999-0588-60 ")
  1. ;;2551
  1. ;;21,"49999-0588-90 ")
  1. ;;2552
  1. ;;21,"49999-0608-15 ")
  1. ;;2553
  1. ;;21,"49999-0693-00 ")
  1. ;;2554
  1. ;;21,"49999-0693-20 ")
  1. ;;2555
  1. ;;21,"49999-0693-30 ")
  1. ;;2556
  1. ;;21,"49999-0693-40 ")
  1. ;;2557
  1. ;;21,"49999-0693-60 ")
  1. ;;2558
  1. ;;21,"49999-0693-90 ")
  1. ;;2559
  1. ;;21,"49999-0831-01 ")
  1. ;;2560
  1. ;;21,"49999-0831-05 ")
  1. ;;2561
  1. ;;21,"49999-0832-01 ")
  1. ;;2562
  1. ;;21,"49999-0832-05 ")
  1. ;;2563
  1. ;;21,"49999-0833-01 ")
  1. ;;2564
  1. ;;21,"49999-0833-05 ")
  1. ;;2565
  1. ;;21,"49999-0834-01 ")
  1. ;;2566
  1. ;;21,"49999-0834-05 ")
  1. ;;2567
  1. ;;21,"49999-0835-01 ")
  1. ;;2568
  1. ;;21,"49999-0835-30 ")
  1. ;;2569
  1. ;;21,"49999-0835-60 ")
  1. ;;2570
  1. ;;21,"49999-0835-90 ")
  1. ;;2571
  1. ;;21,"49999-0836-01 ")
  1. ;;2572
  1. ;;21,"49999-0836-30 ")
  1. ;;2573
  1. ;;21,"49999-0836-90 ")
  1. ;;2574
  1. ;;21,"49999-0837-30 ")
  1. ;;2575
  1. ;;21,"49999-0838-01 ")
  1. ;;2576
  1. ;;21,"49999-0838-30 ")
  1. ;;2577
  1. ;;21,"49999-0839-01 ")
  1. ;;2578
  1. ;;21,"49999-0839-30 ")
  1. ;;2579
  1. ;;21,"49999-0839-60 ")
  1. ;;2580
  1. ;;21,"49999-0839-90 ")
  1. ;;2581
  1. ;;21,"49999-0841-30 ")
  1. ;;2582
  1. ;;21,"49999-0841-60 ")
  1. ;;2583
  1. ;;21,"49999-0845-01 ")
  1. ;;2584
  1. ;;21,"49999-0845-30 ")
  1. ;;2585
  1. ;;21,"49999-0845-60 ")
  1. ;;2586
  1. ;;21,"49999-0845-90 ")
  1. ;;2587
  1. ;;21,"49999-0846-01 ")
  1. ;;2588
  1. ;;21,"49999-0846-30 ")
  1. ;;2589
  1. ;;21,"49999-0846-60 ")
  1. ;;2590
  1. ;;21,"49999-0846-90 ")
  1. ;;2591
  1. ;;21,"49999-0847-01 ")
  1. ;;2592
  1. ;;21,"49999-0847-30 ")
  1. ;;2593
  1. ;;21,"49999-0847-60 ")
  1. ;;2594
  1. ;;21,"49999-0847-90 ")
  1. ;;2595
  1. ;;21,"49999-0848-30 ")
  1. ;;2596
  1. ;;21,"49999-0848-60 ")
  1. ;;2597
  1. ;;21,"49999-0848-90 ")
  1. ;;2598
  1. ;;21,"49999-0849-30 ")
  1. ;;2599
  1. ;;21,"49999-0849-60 ")
  1. ;;2600
  1. ;;21,"49999-0850-01 ")
  1. ;;2601
  1. ;;21,"49999-0850-30 ")
  1. ;;2602
  1. ;;21,"49999-0850-60 ")
  1. ;;2603
  1. ;;21,"49999-0851-01 ")
  1. ;;2604
  1. ;;21,"49999-0851-05 ")
  1. ;;2605
  1. ;;21,"49999-0851-30 ")
  1. ;;2606
  1. ;;21,"49999-0851-60 ")
  1. ;;2607
  1. ;;21,"49999-0851-90 ")
  1. ;;2608
  1. ;;21,"49999-0852-01 ")
  1. ;;2609
  1. ;;21,"49999-0852-15 ")
  1. ;;2610
  1. ;;21,"49999-0852-20 ")
  1. ;;2611
  1. ;;21,"49999-0852-30 ")
  1. ;;2612
  1. ;;21,"49999-0852-40 ")
  1. ;;2613
  1. ;;21,"49999-0852-60 ")
  1. ;;2614
  1. ;;21,"49999-0852-90 ")
  1. ;;2615
  1. ;;21,"49999-0853-01 ")
  1. ;;2616
  1. ;;21,"49999-0853-30 ")
  1. ;;2617
  1. ;;21,"49999-0853-40 ")
  1. ;;2618
  1. ;;21,"49999-0853-60 ")
  1. ;;2619
  1. ;;21,"49999-0853-90 ")
  1. ;;2620
  1. ;;21,"49999-0854-01 ")
  1. ;;2621
  1. ;;21,"49999-0854-05 ")
  1. ;;2622
  1. ;;21,"49999-0854-15 ")
  1. ;;2623
  1. ;;21,"49999-0854-30 ")
  1. ;;2624
  1. ;;21,"49999-0854-60 ")
  1. ;;2625
  1. ;;21,"49999-0854-90 ")
  1. ;;2626
  1. ;;21,"49999-0856-60 ")
  1. ;;2627
  1. ;;21,"49999-0857-30 ")
  1. ;;2628
  1. ;;21,"49999-0857-90 ")
  1. ;;2629
  1. ;;21,"49999-0858-30 ")
  1. ;;2630
  1. ;;21,"49999-0858-60 ")
  1. ;;2631
  1. ;;21,"49999-0858-90 ")
  1. ;;2632
  1. ;;21,"49999-0859-30 ")
  1. ;;2633
  1. ;;21,"49999-0859-60 ")
  1. ;;2634
  1. ;;21,"49999-0859-90 ")
  1. ;;2635
  1. ;;21,"49999-0896-10 ")
  1. ;;2636
  1. ;;21,"49999-0896-30 ")
  1. ;;2637
  1. ;;21,"49999-0899-01 ")
  1. ;;2638
  1. ;;21,"49999-0899-30 ")
  1. ;;2639
  1. ;;21,"49999-0899-40 ")
  1. ;;2640
  1. ;;21,"49999-0899-60 ")
  1. ;;2641
  1. ;;21,"49999-0899-90 ")
  1. ;;2642
  1. ;;21,"49999-0963-30 ")
  1. ;;2643
  1. ;;21,"49999-0963-60 ")
  1. ;;2644
  1. ;;21,"49999-0963-90 ")
  1. ;;2645
  1. ;;21,"50268-0400-11 ")
  1. ;;2646
  1. ;;21,"50268-0400-15 ")
  1. ;;2647
  1. ;;21,"50268-0401-11 ")
  1. ;;2648
  1. ;;21,"50268-0401-15 ")
  1. ;;2649
  1. ;;21,"50268-0402-11 ")
  1. ;;2650
  1. ;;21,"50268-0402-15 ")
  1. ;;2651
  1. ;;21,"50268-0403-11 ")
  1. ;;2652
  1. ;;21,"50268-0403-15 ")
  1. ;;2653
  1. ;;21,"50268-0408-11 ")
  1. ;;2654
  1. ;;21,"50268-0408-15 ")
  1. ;;2655
  1. ;;21,"50268-0774-11 ")
  1. ;;2656
  1. ;;21,"50268-0774-15 ")
  1. ;;2657
  1. ;;21,"50383-0043-16 ")
  1. ;;2658
  1. ;;21,"50383-0079-05 ")
  1. ;;2659
  1. ;;21,"50383-0079-06 ")
  1. ;;2660
  1. ;;21,"50383-0079-12 ")
  1. ;;2661
  1. ;;21,"50383-0079-13 ")
  1. ;;2662
  1. ;;21,"50383-0079-16 ")
  1. ;;2663
  1. ;;21,"50383-0804-16 ")
  1. ;;2664
  1. ;;21,"50383-0805-04 ")
  1. ;;2665
  1. ;;21,"50383-0805-16 ")
  1. ;;2666
  1. ;;21,"50436-0109-01 ")
  1. ;;2667
  1. ;;21,"50436-0109-02 ")
  1. ;;2668
  1. ;;21,"50436-0109-04 ")
  1. ;;2669
  1. ;;21,"50436-0156-01 ")
  1. ;;2670
  1. ;;21,"50436-0156-02 ")
  1. ;;2671
  1. ;;21,"50436-0158-01 ")
  1. ;;2672
  1. ;;21,"50436-0160-01 ")
  1. ;;2673
  1. ;;21,"50436-0160-02 ")
  1. ;;2674
  1. ;;21,"50436-0160-04 ")
  1. ;;2675
  1. ;;21,"50436-0377-01 ")
  1. ;;2676
  1. ;;21,"50436-0377-02 ")
  1. ;;2677
  1. ;;21,"50436-0377-03 ")
  1. ;;2678
  1. ;;21,"50436-0377-04 ")
  1. ;;2679
  1. ;;21,"50436-0377-05 ")
  1. ;;2680
  1. ;;21,"50436-0377-06 ")
  1. ;;2681
  1. ;;21,"50436-0377-07 ")
  1. ;;2682
  1. ;;21,"50436-0821-01 ")
  1. ;;2683
  1. ;;21,"50436-0821-02 ")
  1. ;;2684
  1. ;;21,"50436-0821-03 ")
  1. ;;2685
  1. ;;21,"50436-0822-01 ")
  1. ;;2686
  1. ;;21,"50436-0822-02 ")
  1. ;;2687
  1. ;;21,"50436-0822-03 ")
  1. ;;2688