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

BGP48E7.m

Go to the documentation of this file.
BGP48E7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"60429-0280-10 ")
 ;;2339
 ;;21,"60429-0280-18 ")
 ;;2340
 ;;21,"60429-0283-01 ")
 ;;2341
 ;;21,"60429-0284-01 ")
 ;;2342
 ;;21,"60429-0285-01 ")
 ;;2343
 ;;21,"60429-0291-01 ")
 ;;2344
 ;;21,"60429-0293-01 ")
 ;;2345
 ;;21,"60429-0330-10 ")
 ;;2346
 ;;21,"60429-0330-30 ")
 ;;2347
 ;;21,"60429-0330-90 ")
 ;;2348
 ;;21,"60429-0331-10 ")
 ;;2349
 ;;21,"60429-0331-30 ")
 ;;2350
 ;;21,"60429-0331-90 ")
 ;;2351
 ;;21,"60429-0332-10 ")
 ;;2352
 ;;21,"60429-0332-30 ")
 ;;2353
 ;;21,"60429-0332-90 ")
 ;;2354
 ;;21,"60429-0336-01 ")
 ;;2355
 ;;21,"60429-0337-01 ")
 ;;2356
 ;;21,"60429-0722-18 ")
 ;;2357
 ;;21,"60429-0722-60 ")
 ;;2358
 ;;21,"60429-0723-12 ")
 ;;2359
 ;;21,"60429-0723-18 ")
 ;;2360
 ;;21,"60429-0723-60 ")
 ;;2361
 ;;21,"60429-0723-90 ")
 ;;2362
 ;;21,"60429-0724-18 ")
 ;;2363
 ;;21,"60429-0724-60 ")
 ;;2364
 ;;21,"60429-0725-05 ")
 ;;2365
 ;;21,"60429-0725-18 ")
 ;;2366
 ;;21,"60429-0725-60 ")
 ;;2367
 ;;21,"60429-0725-90 ")
 ;;2368
 ;;21,"60505-0141-00 ")
 ;;2369
 ;;21,"60505-0141-01 ")
 ;;2370
 ;;21,"60505-0141-02 ")
 ;;2371
 ;;21,"60505-0141-08 ")
 ;;2372
 ;;21,"60505-0142-00 ")
 ;;2373
 ;;21,"60505-0142-01 ")
 ;;2374
 ;;21,"60505-0142-02 ")
 ;;2375
 ;;21,"60505-0142-04 ")
 ;;2376
 ;;21,"60505-0190-00 ")
 ;;2377
 ;;21,"60505-0190-01 ")
 ;;2378
 ;;21,"60505-0190-04 ")
 ;;2379
 ;;21,"60505-0190-08 ")
 ;;2380
 ;;21,"60505-0191-00 ")
 ;;2381
 ;;21,"60505-0191-01 ")
 ;;2382
 ;;21,"60505-0191-04 ")
 ;;2383
 ;;21,"60505-0191-08 ")
 ;;2384
 ;;21,"60505-0192-00 ")
 ;;2385
 ;;21,"60505-0192-01 ")
 ;;2386
 ;;21,"60505-0192-04 ")
 ;;2387
 ;;21,"60505-0192-08 ")
 ;;2388
 ;;21,"60505-0260-01 ")
 ;;2389
 ;;21,"60505-0260-02 ")
 ;;2390
 ;;21,"60505-0260-07 ")
 ;;2391
 ;;21,"60505-1329-01 ")
 ;;2392
 ;;21,"60760-0024-60 ")
 ;;2393
 ;;21,"60760-0024-98 ")
 ;;2394
 ;;21,"60760-0042-60 ")
 ;;2395
 ;;21,"60760-0141-60 ")
 ;;2396
 ;;21,"60760-0141-98 ")
 ;;2397
 ;;21,"60760-0175-30 ")
 ;;2398
 ;;21,"60760-0175-90 ")
 ;;2399
 ;;21,"60760-0176-30 ")
 ;;2400
 ;;21,"60760-0176-90 ")
 ;;2401
 ;;21,"60760-0229-30 ")
 ;;2402
 ;;21,"60760-0229-90 ")
 ;;2403
 ;;21,"60760-0230-30 ")
 ;;2404
 ;;21,"60760-0230-90 ")
 ;;2405
 ;;21,"60760-0973-60 ")
 ;;2406
 ;;21,"60760-0973-98 ")
 ;;2407
 ;;21,"60760-0974-60 ")
 ;;2408
 ;;21,"60760-0974-90 ")
 ;;2409
 ;;21,"60760-0975-60 ")
 ;;2410
 ;;21,"60760-0975-90 ")
 ;;2411
 ;;21,"60951-0714-70 ")
 ;;2412
 ;;21,"60951-0714-85 ")
 ;;2413
 ;;21,"61442-0115-01 ")
 ;;2414
 ;;21,"61442-0116-01 ")
 ;;2415
 ;;21,"61442-0117-01 ")
 ;;2416
 ;;21,"62022-0574-60 ")
 ;;2417
 ;;21,"62022-0575-60 ")
 ;;2418
 ;;21,"62037-0571-01 ")
 ;;2419
 ;;21,"62037-0571-10 ")
 ;;2420
 ;;21,"62037-0577-01 ")
 ;;2421
 ;;21,"62037-0577-10 ")
 ;;2422
 ;;21,"62037-0674-01 ")
 ;;2423
 ;;21,"62037-0674-10 ")
 ;;2424
 ;;21,"62037-0675-01 ")
 ;;2425
 ;;21,"62037-0675-10 ")
 ;;2426
 ;;21,"62037-0676-01 ")
 ;;2427
 ;;21,"62037-0676-10 ")
 ;;2428
 ;;21,"62037-0871-30 ")
 ;;2429
 ;;21,"62037-0872-01 ")
 ;;2430
 ;;21,"62037-0872-05 ")
 ;;2431
 ;;21,"62037-0873-01 ")
 ;;2432
 ;;21,"62037-0873-05 ")
 ;;2433
 ;;21,"62584-0182-08 ")
 ;;2434
 ;;21,"62584-0259-01 ")
 ;;2435
 ;;21,"62584-0259-11 ")
 ;;2436
 ;;21,"62584-0259-80 ")
 ;;2437
 ;;21,"62584-0259-85 ")
 ;;2438
 ;;21,"62584-0332-01 ")
 ;;2439
 ;;21,"62584-0332-11 ")
 ;;2440
 ;;21,"62584-0452-01 ")
 ;;2441
 ;;21,"62584-0452-11 ")
 ;;2442
 ;;21,"62584-0452-80 ")
 ;;2443
 ;;21,"62584-0452-85 ")
 ;;2444
 ;;21,"62682-5002-01 ")
 ;;2445
 ;;21,"62682-5004-03 ")
 ;;2446
 ;;21,"62682-5005-06 ")
 ;;2447
 ;;21,"62682-5006-03 ")
 ;;2448
 ;;21,"62756-0142-01 ")
 ;;2449
 ;;21,"62756-0142-02 ")
 ;;2450
 ;;21,"62756-0143-01 ")
 ;;2451
 ;;21,"63304-0206-01 ")
 ;;2452
 ;;21,"63304-0206-02 ")
 ;;2453
 ;;21,"63304-0254-05 ")
 ;;2454
 ;;21,"63304-0254-30 ")
 ;;2455
 ;;21,"63304-0254-90 ")
 ;;2456
 ;;21,"63304-0255-05 ")
 ;;2457
 ;;21,"63304-0255-30 ")
 ;;2458
 ;;21,"63304-0255-90 ")
 ;;2459
 ;;21,"63304-0261-05 ")
 ;;2460
 ;;21,"63304-0261-30 ")
 ;;2461
 ;;21,"63304-0261-90 ")
 ;;2462
 ;;21,"63304-0311-05 ")
 ;;2463
 ;;21,"63304-0311-30 ")
 ;;2464
 ;;21,"63304-0311-90 ")
 ;;2465
 ;;21,"63304-0312-05 ")
 ;;2466
 ;;21,"63304-0312-30 ")
 ;;2467
 ;;21,"63304-0312-90 ")
 ;;2468
 ;;21,"63304-0313-05 ")
 ;;2469
 ;;21,"63304-0313-30 ")
 ;;2470
 ;;21,"63304-0313-90 ")
 ;;2471
 ;;21,"63304-0425-01 ")
 ;;2472
 ;;21,"63304-0426-01 ")
 ;;2473
 ;;21,"63304-0427-01 ")
 ;;2474
 ;;21,"63304-0767-01 ")
 ;;2475
 ;;21,"63304-0860-01 ")
 ;;2476
 ;;21,"63304-0860-05 ")
 ;;2477
 ;;21,"63304-0860-30 ")
 ;;2478
 ;;21,"63629-1255-01 ")
 ;;2479
 ;;21,"63629-1255-02 ")
 ;;2480
 ;;21,"63629-1269-01 ")
 ;;2481
 ;;21,"63629-1392-01 ")
 ;;2482
 ;;21,"63629-1392-02 ")
 ;;2483
 ;;21,"63629-1392-03 ")
 ;;2484
 ;;21,"63629-1393-01 ")
 ;;2485
 ;;21,"63629-1393-02 ")
 ;;2486
 ;;21,"63629-1393-03 ")
 ;;2487
 ;;21,"63629-1393-04 ")
 ;;2488
 ;;21,"63629-1394-01 ")
 ;;2489
 ;;21,"63629-1394-02 ")
 ;;2490
 ;;21,"63629-1394-03 ")
 ;;2491
 ;;21,"63629-1395-01 ")
 ;;2492
 ;;21,"63629-1395-02 ")
 ;;2493
 ;;21,"63629-1395-03 ")
 ;;2494
 ;;21,"63629-1396-01 ")
 ;;2495
 ;;21,"63629-1396-02 ")
 ;;2496
 ;;21,"63629-1397-01 ")
 ;;2497
 ;;21,"63629-1397-02 ")
 ;;2498
 ;;21,"63629-1397-03 ")
 ;;2499
 ;;21,"63629-1397-04 ")
 ;;2500
 ;;21,"63629-1397-05 ")
 ;;2501
 ;;21,"63629-1398-01 ")
 ;;2502
 ;;21,"63629-1398-02 ")
 ;;2503
 ;;21,"63629-1398-03 ")
 ;;2504
 ;;21,"63629-2793-01 ")
 ;;2505
 ;;21,"63629-2793-03 ")
 ;;2506
 ;;21,"63629-2793-04 ")
 ;;2507
 ;;21,"63629-2793-05 ")
 ;;2508
 ;;21,"63629-2883-01 ")
 ;;2509
 ;;21,"63629-2883-02 ")
 ;;2510
 ;;21,"63629-2883-03 ")
 ;;2511
 ;;21,"63629-2907-01 ")
 ;;2512
 ;;21,"63629-2907-02 ")
 ;;2513
 ;;21,"63629-3043-01 ")
 ;;2514
 ;;21,"63629-3043-02 ")
 ;;2515
 ;;21,"63629-3158-01 ")
 ;;2516
 ;;21,"63629-3158-02 ")
 ;;2517
 ;;21,"63629-3158-03 ")
 ;;2518
 ;;21,"63629-3397-03 ")
 ;;2519
 ;;21,"63629-3998-01 ")
 ;;2520
 ;;21,"63629-4071-01 ")
 ;;2521
 ;;21,"63739-0116-01 ")
 ;;2522
 ;;21,"63739-0116-02 ")
 ;;2523
 ;;21,"63739-0116-03 ")
 ;;2524
 ;;21,"63739-0116-10 ")
 ;;2525
 ;;21,"63739-0116-15 ")
 ;;2526
 ;;21,"63739-0117-01 ")
 ;;2527
 ;;21,"63739-0117-02 ")
 ;;2528
 ;;21,"63739-0117-03 ")
 ;;2529
 ;;21,"63739-0117-10 ")
 ;;2530
 ;;21,"63739-0117-15 ")
 ;;2531
 ;;21,"63739-0118-01 ")
 ;;2532
 ;;21,"63739-0118-02 ")
 ;;2533
 ;;21,"63739-0118-03 ")
 ;;2534
 ;;21,"63739-0118-10 ")
 ;;2535
 ;;21,"63739-0118-15 ")
 ;;2536
 ;;21,"63739-0119-01 ")
 ;;2537
 ;;21,"63739-0119-02 ")
 ;;2538
 ;;21,"63739-0119-03 ")
 ;;2539
 ;;21,"63739-0119-10 ")
 ;;2540
 ;;21,"63739-0119-15 ")
 ;;2541
 ;;21,"63739-0299-10 ")
 ;;2542
 ;;21,"63739-0300-10 ")
 ;;2543
 ;;21,"63739-0301-10 ")
 ;;2544
 ;;21,"63874-0316-01 ")
 ;;2545
 ;;21,"63874-0316-02 ")
 ;;2546
 ;;21,"63874-0316-04 ")
 ;;2547
 ;;21,"63874-0316-05 ")
 ;;2548
 ;;21,"63874-0316-10 ")
 ;;2549
 ;;21,"63874-0316-12 ")
 ;;2550
 ;;21,"63874-0316-14 ")
 ;;2551
 ;;21,"63874-0316-15 ")
 ;;2552
 ;;21,"63874-0316-20 ")
 ;;2553
 ;;21,"63874-0316-21 ")
 ;;2554
 ;;21,"63874-0316-24 ")
 ;;2555
 ;;21,"63874-0316-28 ")
 ;;2556
 ;;21,"63874-0316-30 ")
 ;;2557
 ;;21,"63874-0316-50 ")
 ;;2558
 ;;21,"63874-0316-60 ")
 ;;2559
 ;;21,"63874-0316-81 ")
 ;;2560
 ;;21,"63874-0316-90 ")
 ;;2561
 ;;21,"63874-0317-01 ")
 ;;2562
 ;;21,"63874-0317-02 ")
 ;;2563
 ;;21,"63874-0317-04 ")
 ;;2564
 ;;21,"63874-0317-10 ")
 ;;2565
 ;;21,"63874-0317-12 ")
 ;;2566
 ;;21,"63874-0317-14 ")
 ;;2567
 ;;21,"63874-0317-15 ")
 ;;2568
 ;;21,"63874-0317-20 ")
 ;;2569
 ;;21,"63874-0317-24 ")
 ;;2570
 ;;21,"63874-0317-28 ")
 ;;2571
 ;;21,"63874-0317-30 ")
 ;;2572
 ;;21,"63874-0317-40 ")
 ;;2573
 ;;21,"63874-0317-50 ")
 ;;2574
 ;;21,"63874-0317-60 ")
 ;;2575
 ;;21,"63874-0317-90 ")
 ;;2576
 ;;21,"63874-0357-01 ")
 ;;2577
 ;;21,"63874-0357-02 ")
 ;;2578
 ;;21,"63874-0357-10 ")
 ;;2579
 ;;21,"63874-0357-12 ")
 ;;2580
 ;;21,"63874-0357-14 ")
 ;;2581
 ;;21,"63874-0357-15 ")
 ;;2582
 ;;21,"63874-0357-20 ")
 ;;2583
 ;;21,"63874-0357-21 ")
 ;;2584
 ;;21,"63874-0357-24 ")
 ;;2585
 ;;21,"63874-0357-30 ")
 ;;2586
 ;;21,"63874-0357-40 ")
 ;;2587
 ;;21,"63874-0357-60 ")
 ;;2588
 ;;21,"63874-0432-01 ")
 ;;2589
 ;;21,"63874-0432-02 ")
 ;;2590
 ;;21,"63874-0432-04 ")
 ;;2591
 ;;21,"63874-0432-10 ")
 ;;2592
 ;;21,"63874-0432-14 ")
 ;;2593
 ;;21,"63874-0432-20 ")
 ;;2594
 ;;21,"63874-0432-21 ")
 ;;2595
 ;;21,"63874-0432-24 ")
 ;;2596
 ;;21,"63874-0432-28 ")
 ;;2597
 ;;21,"63874-0432-30 ")
 ;;2598
 ;;21,"63874-0432-50 ")
 ;;2599
 ;;21,"63874-0432-60 ")
 ;;2600
 ;;21,"63874-0432-81 ")
 ;;2601
 ;;21,"63874-0432-90 ")
 ;;2602
 ;;21,"63874-0501-01 ")
 ;;2603
 ;;21,"63874-0501-04 ")
 ;;2604
 ;;21,"63874-0501-10 ")
 ;;2605
 ;;21,"63874-0501-14 ")
 ;;2606
 ;;21,"63874-0501-20 ")
 ;;2607
 ;;21,"63874-0501-24 ")
 ;;2608
 ;;21,"63874-0501-28 ")
 ;;2609
 ;;21,"63874-0501-30 ")
 ;;2610
 ;;21,"63874-0501-60 ")
 ;;2611
 ;;21,"63874-0501-90 ")
 ;;2612
 ;;21,"63874-0588-01 ")
 ;;2613
 ;;21,"63874-0588-04 ")
 ;;2614
 ;;21,"63874-0588-10 ")
 ;;2615
 ;;21,"63874-0588-14 ")
 ;;2616
 ;;21,"63874-0588-20 ")
 ;;2617
 ;;21,"63874-0588-30 ")
 ;;2618
 ;;21,"63874-0588-60 ")
 ;;2619
 ;;21,"63874-0588-80 ")
 ;;2620
 ;;21,"63874-0588-90 ")
 ;;2621
 ;;21,"63874-0635-01 ")
 ;;2622
 ;;21,"63874-0635-10 ")
 ;;2623
 ;;21,"63874-0635-20 ")
 ;;2624
 ;;21,"63874-0635-28 ")
 ;;2625
 ;;21,"63874-0635-30 ")
 ;;2626
 ;;21,"63874-0635-60 ")
 ;;2627
 ;;21,"63874-0635-90 ")
 ;;2628
 ;;21,"63874-0665-01 ")
 ;;2629
 ;;21,"63874-0665-04 ")
 ;;2630
 ;;21,"63874-0665-10 ")
 ;;2631
 ;;21,"63874-0665-14 ")
 ;;2632
 ;;21,"63874-0665-30 ")
 ;;2633
 ;;21,"63874-0665-60 ")
 ;;2634
 ;;21,"63874-0665-90 ")
 ;;2635
 ;;21,"63874-0974-01 ")
 ;;2636
 ;;21,"63874-0974-30 ")
 ;;2637
 ;;21,"63874-0974-60 ")
 ;;2638
 ;;21,"64679-0528-04 ")
 ;;2639
 ;;21,"64679-0528-05 ")
 ;;2640
 ;;21,"64679-0529-04 ")
 ;;2641
 ;;21,"64679-0529-05 ")
 ;;2642
 ;;21,"64679-0530-04 ")
 ;;2643
 ;;21,"64679-0530-05 ")
 ;;2644
 ;;21,"64720-0123-10 ")
 ;;2645
 ;;21,"64720-0124-10 ")
 ;;2646
 ;;21,"64720-0125-10 ")
 ;;2647
 ;;21,"64720-0125-11 ")
 ;;2648
 ;;21,"64764-0121-03 ")
 ;;2649
 ;;21,"64764-0123-03 ")
 ;;2650
 ;;21,"64764-0124-03 ")
 ;;2651
 ;;21,"64764-0125-30 ")
 ;;2652
 ;;21,"64764-0151-04 ")
 ;;2653
 ;;21,"64764-0151-05 ")
 ;;2654
 ;;21,"64764-0151-06 ")
 ;;2655
 ;;21,"64764-0155-18 ")
 ;;2656
 ;;21,"64764-0155-60 ")
 ;;2657
 ;;21,"64764-0158-18 ")
 ;;2658
 ;;21,"64764-0158-60 ")
 ;;2659
 ;;21,"64764-0250-30 ")
 ;;2660
 ;;21,"64764-0251-03 ")
 ;;2661
 ;;21,"64764-0253-03 ")
 ;;2662
 ;;21,"64764-0254-03 ")
 ;;2663
 ;;21,"64764-0301-14 ")
 ;;2664
 ;;21,"64764-0301-15 ")
 ;;2665
 ;;21,"64764-0301-16 ")
 ;;2666
 ;;21,"64764-0302-30 ")
 ;;2667
 ;;21,"64764-0304-30 ")
 ;;2668
 ;;21,"64764-0310-30 ")
 ;;2669
 ;;21,"64764-0335-60 ")
 ;;2670
 ;;21,"64764-0337-60 ")
 ;;2671
 ;;21,"64764-0451-24 ")
 ;;2672
 ;;21,"64764-0451-25 ")
 ;;2673
 ;;21,"64764-0451-26 ")
 ;;2674
 ;;21,"64764-0510-30 ")
 ;;2675
 ;;21,"64764-0625-30 ")
 ;;2676
 ;;21,"64909-0101-07 ")
 ;;2677
 ;;21,"64909-0102-07 ")
 ;;2678
 ;;21,"64909-0102-08 ")
 ;;2679
 ;;21,"64909-0104-07 ")
 ;;2680
 ;;21,"64909-0105-07 ")
 ;;2681
 ;;21,"64909-0105-08 ")
 ;;2682
 ;;21,"65084-0416-18 ")
 ;;2683
 ;;21,"65084-0416-20 ")
 ;;2684
 ;;21,"65162-0174-10 ")
 ;;2685
 ;;21,"65162-0174-11 ")
 ;;2686
 ;;21,"65162-0174-50 ")
 ;;2687
 ;;21,"65162-0175-10 ")
 ;;2688
 ;;21,"65162-0175-11 ")
 ;;2689
 ;;21,"65162-0175-50 ")
 ;;2690
 ;;21,"65162-0177-10 ")
 ;;2691
 ;;21,"65162-0177-11 ")
 ;;2692
 ;;21,"65162-0177-50 ")
 ;;2693
 ;;21,"65162-0179-10 ")
 ;;2694
 ;;21,"65162-0218-10 ")
 ;;2695
 ;;21,"65162-0218-11 ")
 ;;2696
 ;;21,"65162-0218-50 ")
 ;;2697
 ;;21,"65162-0219-10 ")
 ;;2698
 ;;21,"65162-0219-11 ")
 ;;2699
 ;;21,"65162-0219-50 ")
 ;;2700
 ;;21,"65162-0220-10 ")
 ;;2701
 ;;21,"65162-0220-11 ")
 ;;2702
 ;;21,"65162-0220-50 ")
 ;;2703
 ;;21,"65243-0176-09 ")
 ;;2704
 ;;21,"65243-0176-12 ")
 ;;2705
 ;;21,"65243-0176-18 ")
 ;;2706
 ;;21,"65243-0176-27 ")
 ;;2707
 ;;21,"65243-0176-36 ")
 ;;2708
 ;;21,"65243-0183-18 ")
 ;;2709
 ;;21,"65243-0185-36 ")
 ;;2710
 ;;21,"65243-0195-09 ")
 ;;2711
 ;;21,"65243-0195-12 ")
 ;;2712
 ;;21,"65243-0196-09 ")
 ;;2713
 ;;21,"65243-0239-09 ")
 ;;2714
 ;;21,"65243-0239-18 ")
 ;;2715
 ;;21,"65243-0239-27 ")
 ;;2716
 ;;21,"65243-0288-06 ")
 ;;2717
 ;;21,"65243-0288-09 ")
 ;;2718
 ;;21,"65243-0288-12 ")
 ;;2719
 ;;21,"65243-0288-18 ")
 ;;2720
 ;;21,"65243-0289-06 ")
 ;;2721
 ;;21,"65243-0289-09 ")
 ;;2722
 ;;21,"65243-0289-12 ")
 ;;2723
 ;;21,"65243-0289-18 ")
 ;;2724