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

BGP82O8.m

Go to the documentation of this file.
  1. BGP82O8 ; 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,"66105-0154-06 ")
  1. ;;2356
  1. ;;21,"66105-0154-09 ")
  1. ;;2357
  1. ;;21,"66105-0154-15 ")
  1. ;;2358
  1. ;;21,"66105-0156-01 ")
  1. ;;2359
  1. ;;21,"66105-0156-03 ")
  1. ;;2360
  1. ;;21,"66105-0156-06 ")
  1. ;;2361
  1. ;;21,"66105-0156-09 ")
  1. ;;2362
  1. ;;21,"66105-0156-15 ")
  1. ;;2363
  1. ;;21,"66105-0159-01 ")
  1. ;;2364
  1. ;;21,"66105-0159-03 ")
  1. ;;2365
  1. ;;21,"66105-0159-06 ")
  1. ;;2366
  1. ;;21,"66105-0159-09 ")
  1. ;;2367
  1. ;;21,"66105-0159-15 ")
  1. ;;2368
  1. ;;21,"66105-0652-03 ")
  1. ;;2369
  1. ;;21,"66105-0984-03 ")
  1. ;;2370
  1. ;;21,"66105-0984-06 ")
  1. ;;2371
  1. ;;21,"66105-0984-10 ")
  1. ;;2372
  1. ;;21,"66105-0984-11 ")
  1. ;;2373
  1. ;;21,"66105-0984-50 ")
  1. ;;2374
  1. ;;21,"66105-0985-03 ")
  1. ;;2375
  1. ;;21,"66105-0985-06 ")
  1. ;;2376
  1. ;;21,"66105-0985-10 ")
  1. ;;2377
  1. ;;21,"66105-0985-11 ")
  1. ;;2378
  1. ;;21,"66105-0985-50 ")
  1. ;;2379
  1. ;;21,"66105-0986-03 ")
  1. ;;2380
  1. ;;21,"66105-0986-06 ")
  1. ;;2381
  1. ;;21,"66105-0986-10 ")
  1. ;;2382
  1. ;;21,"66105-0986-11 ")
  1. ;;2383
  1. ;;21,"66105-0986-50 ")
  1. ;;2384
  1. ;;21,"66116-0233-30 ")
  1. ;;2385
  1. ;;21,"66116-0282-60 ")
  1. ;;2386
  1. ;;21,"66116-0293-30 ")
  1. ;;2387
  1. ;;21,"66116-0454-30 ")
  1. ;;2388
  1. ;;21,"66116-0695-60 ")
  1. ;;2389
  1. ;;21,"66267-0099-30 ")
  1. ;;2390
  1. ;;21,"66267-0100-30 ")
  1. ;;2391
  1. ;;21,"66267-0100-60 ")
  1. ;;2392
  1. ;;21,"66267-0100-90 ")
  1. ;;2393
  1. ;;21,"66267-0100-91 ")
  1. ;;2394
  1. ;;21,"66267-0100-92 ")
  1. ;;2395
  1. ;;21,"66267-0103-30 ")
  1. ;;2396
  1. ;;21,"66267-0493-14 ")
  1. ;;2397
  1. ;;21,"66267-0493-30 ")
  1. ;;2398
  1. ;;21,"66267-0493-60 ")
  1. ;;2399
  1. ;;21,"66267-0493-90 ")
  1. ;;2400
  1. ;;21,"66267-0493-91 ")
  1. ;;2401
  1. ;;21,"66267-0493-92 ")
  1. ;;2402
  1. ;;21,"66267-0493-93 ")
  1. ;;2403
  1. ;;21,"66267-0497-30 ")
  1. ;;2404
  1. ;;21,"66267-0553-30 ")
  1. ;;2405
  1. ;;21,"66336-0028-90 ")
  1. ;;2406
  1. ;;21,"66336-0269-90 ")
  1. ;;2407
  1. ;;21,"66336-0712-90 ")
  1. ;;2408
  1. ;;21,"66336-0857-30 ")
  1. ;;2409
  1. ;;21,"66336-0857-90 ")
  1. ;;2410
  1. ;;21,"66780-0210-07 ")
  1. ;;2411
  1. ;;21,"66780-0212-01 ")
  1. ;;2412
  1. ;;21,"66780-0219-04 ")
  1. ;;2413
  1. ;;21,"66780-0226-01 ")
  1. ;;2414
  1. ;;21,"66993-0821-30 ")
  1. ;;2415
  1. ;;21,"66993-0822-30 ")
  1. ;;2416
  1. ;;21,"67253-0460-10 ")
  1. ;;2417
  1. ;;21,"67253-0461-10 ")
  1. ;;2418
  1. ;;21,"67253-0461-11 ")
  1. ;;2419
  1. ;;21,"67253-0461-50 ")
  1. ;;2420
  1. ;;21,"67253-0462-10 ")
  1. ;;2421
  1. ;;21,"67253-0462-11 ")
  1. ;;2422
  1. ;;21,"67253-0462-50 ")
  1. ;;2423
  1. ;;21,"67544-0047-30 ")
  1. ;;2424
  1. ;;21,"67544-0047-53 ")
  1. ;;2425
  1. ;;21,"67544-0047-60 ")
  1. ;;2426
  1. ;;21,"67544-0047-70 ")
  1. ;;2427
  1. ;;21,"67544-0047-75 ")
  1. ;;2428
  1. ;;21,"67544-0047-80 ")
  1. ;;2429
  1. ;;21,"67544-0047-90 ")
  1. ;;2430
  1. ;;21,"67544-0047-92 ")
  1. ;;2431
  1. ;;21,"67544-0047-94 ")
  1. ;;2432
  1. ;;21,"67544-0047-96 ")
  1. ;;2433
  1. ;;21,"67544-0065-30 ")
  1. ;;2434
  1. ;;21,"67544-0065-53 ")
  1. ;;2435
  1. ;;21,"67544-0065-60 ")
  1. ;;2436
  1. ;;21,"67544-0066-30 ")
  1. ;;2437
  1. ;;21,"67544-0066-45 ")
  1. ;;2438
  1. ;;21,"67544-0066-60 ")
  1. ;;2439
  1. ;;21,"67544-0097-32 ")
  1. ;;2440
  1. ;;21,"67544-0097-53 ")
  1. ;;2441
  1. ;;21,"67544-0097-60 ")
  1. ;;2442
  1. ;;21,"67544-0097-70 ")
  1. ;;2443
  1. ;;21,"67544-0097-80 ")
  1. ;;2444
  1. ;;21,"67544-0097-92 ")
  1. ;;2445
  1. ;;21,"67544-0097-94 ")
  1. ;;2446
  1. ;;21,"67544-0107-53 ")
  1. ;;2447
  1. ;;21,"67544-0107-60 ")
  1. ;;2448
  1. ;;21,"67544-0107-80 ")
  1. ;;2449
  1. ;;21,"67544-0107-92 ")
  1. ;;2450
  1. ;;21,"67544-0113-60 ")
  1. ;;2451
  1. ;;21,"67544-0113-70 ")
  1. ;;2452
  1. ;;21,"67544-0113-80 ")
  1. ;;2453
  1. ;;21,"67544-0129-30 ")
  1. ;;2454
  1. ;;21,"67544-0129-53 ")
  1. ;;2455
  1. ;;21,"67544-0129-60 ")
  1. ;;2456
  1. ;;21,"67544-0129-70 ")
  1. ;;2457
  1. ;;21,"67544-0129-80 ")
  1. ;;2458
  1. ;;21,"67544-0129-92 ")
  1. ;;2459
  1. ;;21,"67544-0129-94 ")
  1. ;;2460
  1. ;;21,"67544-0163-30 ")
  1. ;;2461
  1. ;;21,"67544-0163-45 ")
  1. ;;2462
  1. ;;21,"67544-0163-53 ")
  1. ;;2463
  1. ;;21,"67544-0163-60 ")
  1. ;;2464
  1. ;;21,"67544-0163-80 ")
  1. ;;2465
  1. ;;21,"67544-0199-80 ")
  1. ;;2466
  1. ;;21,"67544-0254-53 ")
  1. ;;2467
  1. ;;21,"67544-0296-70 ")
  1. ;;2468
  1. ;;21,"67544-0302-32 ")
  1. ;;2469
  1. ;;21,"67544-0302-45 ")
  1. ;;2470
  1. ;;21,"67544-0302-60 ")
  1. ;;2471
  1. ;;21,"67544-0302-73 ")
  1. ;;2472
  1. ;;21,"67544-0302-80 ")
  1. ;;2473
  1. ;;21,"67544-0302-92 ")
  1. ;;2474
  1. ;;21,"67544-0302-98 ")
  1. ;;2475
  1. ;;21,"67544-0421-60 ")
  1. ;;2476
  1. ;;21,"67544-0421-80 ")
  1. ;;2477
  1. ;;21,"67544-0421-92 ")
  1. ;;2478
  1. ;;21,"67544-0486-53 ")
  1. ;;2479
  1. ;;21,"67544-0511-30 ")
  1. ;;2480
  1. ;;21,"67544-0511-70 ")
  1. ;;2481
  1. ;;21,"67544-0511-94 ")
  1. ;;2482
  1. ;;21,"67544-0566-53 ")
  1. ;;2483
  1. ;;21,"67544-0566-60 ")
  1. ;;2484
  1. ;;21,"67544-0566-70 ")
  1. ;;2485
  1. ;;21,"67544-0566-80 ")
  1. ;;2486
  1. ;;21,"67544-0566-92 ")
  1. ;;2487
  1. ;;21,"67544-0566-94 ")
  1. ;;2488
  1. ;;21,"67544-0613-53 ")
  1. ;;2489
  1. ;;21,"67544-0653-53 ")
  1. ;;2490
  1. ;;21,"67544-0653-60 ")
  1. ;;2491
  1. ;;21,"67544-0653-70 ")
  1. ;;2492
  1. ;;21,"67544-0653-80 ")
  1. ;;2493
  1. ;;21,"67544-0653-90 ")
  1. ;;2494
  1. ;;21,"67544-0653-92 ")
  1. ;;2495
  1. ;;21,"67544-0653-94 ")
  1. ;;2496
  1. ;;21,"67544-0653-98 ")
  1. ;;2497
  1. ;;21,"67544-0661-41 ")
  1. ;;2498
  1. ;;21,"67544-0661-81 ")
  1. ;;2499
  1. ;;21,"67544-0875-60 ")
  1. ;;2500
  1. ;;21,"67544-0875-80 ")
  1. ;;2501
  1. ;;21,"67877-0159-01 ")
  1. ;;2502
  1. ;;21,"67877-0159-05 ")
  1. ;;2503
  1. ;;21,"67877-0159-10 ")
  1. ;;2504
  1. ;;21,"67877-0217-01 ")
  1. ;;2505
  1. ;;21,"67877-0217-05 ")
  1. ;;2506
  1. ;;21,"67877-0217-10 ")
  1. ;;2507
  1. ;;21,"67877-0218-01 ")
  1. ;;2508
  1. ;;21,"67877-0218-05 ")
  1. ;;2509
  1. ;;21,"67877-0218-10 ")
  1. ;;2510
  1. ;;21,"67877-0221-01 ")
  1. ;;2511
  1. ;;21,"67877-0221-05 ")
  1. ;;2512
  1. ;;21,"67877-0221-10 ")
  1. ;;2513
  1. ;;21,"67877-0561-05 ")
  1. ;;2514
  1. ;;21,"67877-0561-10 ")
  1. ;;2515
  1. ;;21,"67877-0562-05 ")
  1. ;;2516
  1. ;;21,"67877-0562-10 ")
  1. ;;2517
  1. ;;21,"67877-0563-10 ")
  1. ;;2518
  1. ;;21,"68001-0177-00 ")
  1. ;;2519
  1. ;;21,"68001-0177-03 ")
  1. ;;2520
  1. ;;21,"68001-0178-00 ")
  1. ;;2521
  1. ;;21,"68001-0178-03 ")
  1. ;;2522
  1. ;;21,"68001-0179-00 ")
  1. ;;2523
  1. ;;21,"68001-0179-03 ")
  1. ;;2524
  1. ;;21,"68012-0002-13 ")
  1. ;;2525
  1. ;;21,"68012-0003-16 ")
  1. ;;2526
  1. ;;21,"68071-0008-30 ")
  1. ;;2527
  1. ;;21,"68071-0028-30 ")
  1. ;;2528
  1. ;;21,"68071-0028-60 ")
  1. ;;2529
  1. ;;21,"68071-0388-30 ")
  1. ;;2530
  1. ;;21,"68071-0405-15 ")
  1. ;;2531
  1. ;;21,"68071-0406-15 ")
  1. ;;2532
  1. ;;21,"68071-0407-15 ")
  1. ;;2533
  1. ;;21,"68071-0823-30 ")
  1. ;;2534
  1. ;;21,"68084-0072-01 ")
  1. ;;2535
  1. ;;21,"68084-0072-11 ")
  1. ;;2536
  1. ;;21,"68084-0111-01 ")
  1. ;;2537
  1. ;;21,"68084-0111-11 ")
  1. ;;2538
  1. ;;21,"68084-0112-01 ")
  1. ;;2539
  1. ;;21,"68084-0112-11 ")
  1. ;;2540
  1. ;;21,"68084-0136-01 ")
  1. ;;2541
  1. ;;21,"68084-0136-11 ")
  1. ;;2542
  1. ;;21,"68084-0137-01 ")
  1. ;;2543
  1. ;;21,"68084-0137-11 ")
  1. ;;2544
  1. ;;21,"68084-0138-01 ")
  1. ;;2545
  1. ;;21,"68084-0138-11 ")
  1. ;;2546
  1. ;;21,"68084-0295-11 ")
  1. ;;2547
  1. ;;21,"68084-0295-21 ")
  1. ;;2548
  1. ;;21,"68084-0326-01 ")
  1. ;;2549
  1. ;;21,"68084-0326-11 ")
  1. ;;2550
  1. ;;21,"68084-0327-01 ")
  1. ;;2551
  1. ;;21,"68084-0327-11 ")
  1. ;;2552
  1. ;;21,"68084-0458-11 ")
  1. ;;2553
  1. ;;21,"68084-0458-21 ")
  1. ;;2554
  1. ;;21,"68084-0459-11 ")
  1. ;;2555
  1. ;;21,"68084-0459-21 ")
  1. ;;2556
  1. ;;21,"68084-0649-01 ")
  1. ;;2557
  1. ;;21,"68084-0649-11 ")
  1. ;;2558
  1. ;;21,"68084-0745-25 ")
  1. ;;2559
  1. ;;21,"68084-0745-95 ")
  1. ;;2560
  1. ;;21,"68084-0788-11 ")
  1. ;;2561
  1. ;;21,"68084-0788-21 ")
  1. ;;2562
  1. ;;21,"68084-0788-25 ")
  1. ;;2563
  1. ;;21,"68084-0788-95 ")
  1. ;;2564
  1. ;;21,"68084-0807-01 ")
  1. ;;2565
  1. ;;21,"68084-0807-11 ")
  1. ;;2566
  1. ;;21,"68084-0819-32 ")
  1. ;;2567
  1. ;;21,"68084-0819-33 ")
  1. ;;2568
  1. ;;21,"68084-0878-01 ")
  1. ;;2569
  1. ;;21,"68084-0878-11 ")
  1. ;;2570
  1. ;;21,"68084-0954-25 ")
  1. ;;2571
  1. ;;21,"68084-0954-95 ")
  1. ;;2572
  1. ;;21,"68084-0967-25 ")
  1. ;;2573
  1. ;;21,"68084-0967-95 ")
  1. ;;2574
  1. ;;21,"68180-0336-07 ")
  1. ;;2575
  1. ;;21,"68180-0337-07 ")
  1. ;;2576
  1. ;;21,"68180-0338-01 ")
  1. ;;2577
  1. ;;21,"68180-0339-09 ")
  1. ;;2578
  1. ;;21,"68180-0490-01 ")
  1. ;;2579
  1. ;;21,"68180-0491-01 ")
  1. ;;2580
  1. ;;21,"68258-3034-03 ")
  1. ;;2581
  1. ;;21,"68258-5230-03 ")
  1. ;;2582
  1. ;;21,"68382-0027-05 ")
  1. ;;2583
  1. ;;21,"68382-0028-01 ")
  1. ;;2584
  1. ;;21,"68382-0028-05 ")
  1. ;;2585
  1. ;;21,"68382-0028-10 ")
  1. ;;2586
  1. ;;21,"68382-0029-01 ")
  1. ;;2587
  1. ;;21,"68382-0029-05 ")
  1. ;;2588
  1. ;;21,"68382-0029-10 ")
  1. ;;2589
  1. ;;21,"68382-0030-01 ")
  1. ;;2590
  1. ;;21,"68382-0030-05 ")
  1. ;;2591
  1. ;;21,"68382-0030-10 ")
  1. ;;2592
  1. ;;21,"68382-0039-05 ")
  1. ;;2593
  1. ;;21,"68382-0184-01 ")
  1. ;;2594
  1. ;;21,"68382-0185-01 ")
  1. ;;2595
  1. ;;21,"68382-0186-01 ")
  1. ;;2596
  1. ;;21,"68382-0653-01 ")
  1. ;;2597
  1. ;;21,"68382-0653-05 ")
  1. ;;2598
  1. ;;21,"68382-0654-01 ")
  1. ;;2599
  1. ;;21,"68382-0654-05 ")
  1. ;;2600
  1. ;;21,"68382-0655-01 ")
  1. ;;2601
  1. ;;21,"68382-0655-05 ")
  1. ;;2602
  1. ;;21,"68382-0656-01 ")
  1. ;;2603
  1. ;;21,"68382-0657-01 ")
  1. ;;2604
  1. ;;21,"68382-0657-05 ")
  1. ;;2605
  1. ;;21,"68382-0658-01 ")
  1. ;;2606
  1. ;;21,"68382-0658-10 ")
  1. ;;2607
  1. ;;21,"68382-0721-16 ")
  1. ;;2608
  1. ;;21,"68382-0722-16 ")
  1. ;;2609
  1. ;;21,"68382-0758-01 ")
  1. ;;2610
  1. ;;21,"68382-0758-05 ")
  1. ;;2611
  1. ;;21,"68382-0758-10 ")
  1. ;;2612
  1. ;;21,"68382-0759-01 ")
  1. ;;2613
  1. ;;21,"68382-0759-05 ")
  1. ;;2614
  1. ;;21,"68382-0759-10 ")
  1. ;;2615
  1. ;;21,"68382-0760-01 ")
  1. ;;2616
  1. ;;21,"68382-0760-05 ")
  1. ;;2617
  1. ;;21,"68382-0760-10 ")
  1. ;;2618
  1. ;;21,"68462-0159-01 ")
  1. ;;2619
  1. ;;21,"68462-0159-05 ")
  1. ;;2620
  1. ;;21,"68462-0159-10 ")
  1. ;;2621
  1. ;;21,"68462-0159-18 ")
  1. ;;2622
  1. ;;21,"68462-0159-90 ")
  1. ;;2623
  1. ;;21,"68462-0160-01 ")
  1. ;;2624
  1. ;;21,"68462-0160-05 ")
  1. ;;2625
  1. ;;21,"68462-0160-10 ")
  1. ;;2626
  1. ;;21,"68462-0160-18 ")
  1. ;;2627
  1. ;;21,"68462-0160-90 ")
  1. ;;2628
  1. ;;21,"68462-0161-01 ")
  1. ;;2629
  1. ;;21,"68462-0161-05 ")
  1. ;;2630
  1. ;;21,"68462-0161-10 ")
  1. ;;2631
  1. ;;21,"68462-0161-18 ")
  1. ;;2632
  1. ;;21,"68462-0161-90 ")
  1. ;;2633
  1. ;;21,"68645-0150-54 ")
  1. ;;2634
  1. ;;21,"68645-0151-59 ")
  1. ;;2635
  1. ;;21,"68645-0210-54 ")
  1. ;;2636
  1. ;;21,"68645-0211-54 ")
  1. ;;2637
  1. ;;21,"68645-0290-59 ")
  1. ;;2638
  1. ;;21,"68645-0300-59 ")
  1. ;;2639
  1. ;;21,"68645-0539-59 ")
  1. ;;2640
  1. ;;21,"68645-0544-59 ")
  1. ;;2641
  1. ;;21,"68645-0545-59 ")
  1. ;;2642
  1. ;;21,"68645-0546-59 ")
  1. ;;2643
  1. ;;21,"68645-0547-59 ")
  1. ;;2644
  1. ;;21,"68645-0548-59 ")
  1. ;;2645
  1. ;;21,"68645-0549-59 ")
  1. ;;2646
  1. ;;21,"68682-0017-10 ")
  1. ;;2647
  1. ;;21,"68682-0018-90 ")
  1. ;;2648
  1. ;;21,"68788-0141-03 ")
  1. ;;2649
  1. ;;21,"68788-0397-01 ")
  1. ;;2650
  1. ;;21,"68788-0397-03 ")
  1. ;;2651
  1. ;;21,"68788-0397-06 ")
  1. ;;2652
  1. ;;21,"68788-0397-08 ")
  1. ;;2653
  1. ;;21,"68788-0397-09 ")
  1. ;;2654
  1. ;;21,"68788-0435-01 ")
  1. ;;2655
  1. ;;21,"68788-0435-03 ")
  1. ;;2656
  1. ;;21,"68788-0435-06 ")
  1. ;;2657
  1. ;;21,"68788-0435-08 ")
  1. ;;2658
  1. ;;21,"68788-0435-09 ")
  1. ;;2659
  1. ;;21,"68788-0474-01 ")
  1. ;;2660
  1. ;;21,"68788-0474-03 ")
  1. ;;2661
  1. ;;21,"68788-0474-06 ")
  1. ;;2662
  1. ;;21,"68788-0474-08 ")
  1. ;;2663
  1. ;;21,"68788-0474-09 ")
  1. ;;2664
  1. ;;21,"68788-6411-01 ")
  1. ;;2665
  1. ;;21,"68788-6411-03 ")
  1. ;;2666
  1. ;;21,"68788-6411-06 ")
  1. ;;2667
  1. ;;21,"68788-6411-09 ")
  1. ;;2668
  1. ;;21,"68788-6419-01 ")
  1. ;;2669
  1. ;;21,"68788-6419-03 ")
  1. ;;2670
  1. ;;21,"68788-6419-06 ")
  1. ;;2671
  1. ;;21,"68788-6419-09 ")
  1. ;;2672
  1. ;;21,"68788-6420-01 ")
  1. ;;2673
  1. ;;21,"68788-6420-03 ")
  1. ;;2674
  1. ;;21,"68788-6420-06 ")
  1. ;;2675
  1. ;;21,"68788-6420-09 ")
  1. ;;2676
  1. ;;21,"68788-6426-03 ")
  1. ;;2677
  1. ;;21,"68788-6426-06 ")
  1. ;;2678
  1. ;;21,"68788-6426-09 ")
  1. ;;2679
  1. ;;21,"68788-6428-01 ")
  1. ;;2680
  1. ;;21,"68788-6436-01 ")
  1. ;;2681
  1. ;;21,"68788-6436-03 ")
  1. ;;2682
  1. ;;21,"68788-6436-06 ")
  1. ;;2683
  1. ;;21,"68788-6436-09 ")
  1. ;;2684
  1. ;;21,"68788-6780-01 ")
  1. ;;2685
  1. ;;21,"68788-6780-03 ")
  1. ;;2686
  1. ;;21,"68788-6780-06 ")
  1. ;;2687
  1. ;;21,"68788-6780-08 ")
  1. ;;2688