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

BGP8ZI8.m

Go to the documentation of this file.
BGP8ZI8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"52959-0669-30 ")
 ;;2356
 ;;21,"52959-0669-59 ")
 ;;2357
 ;;21,"52959-0669-60 ")
 ;;2358
 ;;21,"52959-0703-00 ")
 ;;2359
 ;;21,"52959-0703-30 ")
 ;;2360
 ;;21,"52959-0703-60 ")
 ;;2361
 ;;21,"52959-0704-00 ")
 ;;2362
 ;;21,"52959-0704-30 ")
 ;;2363
 ;;21,"52959-0704-60 ")
 ;;2364
 ;;21,"52959-0717-30 ")
 ;;2365
 ;;21,"52959-0732-00 ")
 ;;2366
 ;;21,"52959-0732-10 ")
 ;;2367
 ;;21,"52959-0732-14 ")
 ;;2368
 ;;21,"52959-0732-15 ")
 ;;2369
 ;;21,"52959-0732-20 ")
 ;;2370
 ;;21,"52959-0732-30 ")
 ;;2371
 ;;21,"52959-0732-40 ")
 ;;2372
 ;;21,"52959-0732-50 ")
 ;;2373
 ;;21,"52959-0732-60 ")
 ;;2374
 ;;21,"52959-0732-90 ")
 ;;2375
 ;;21,"52959-0771-60 ")
 ;;2376
 ;;21,"52959-0773-30 ")
 ;;2377
 ;;21,"52959-0773-52 ")
 ;;2378
 ;;21,"52959-0773-60 ")
 ;;2379
 ;;21,"52959-0774-30 ")
 ;;2380
 ;;21,"52959-0774-60 ")
 ;;2381
 ;;21,"52959-0775-30 ")
 ;;2382
 ;;21,"52959-0775-50 ")
 ;;2383
 ;;21,"52959-0775-60 ")
 ;;2384
 ;;21,"52959-0776-30 ")
 ;;2385
 ;;21,"52959-0776-60 ")
 ;;2386
 ;;21,"52959-0781-30 ")
 ;;2387
 ;;21,"52959-0781-60 ")
 ;;2388
 ;;21,"52959-0787-30 ")
 ;;2389
 ;;21,"52959-0791-30 ")
 ;;2390
 ;;21,"52959-0792-30 ")
 ;;2391
 ;;21,"52959-0805-60 ")
 ;;2392
 ;;21,"52959-0806-30 ")
 ;;2393
 ;;21,"52959-0806-60 ")
 ;;2394
 ;;21,"52959-0820-60 ")
 ;;2395
 ;;21,"52959-0840-60 ")
 ;;2396
 ;;21,"52959-0869-30 ")
 ;;2397
 ;;21,"52959-0872-30 ")
 ;;2398
 ;;21,"52959-0872-60 ")
 ;;2399
 ;;21,"52959-0875-30 ")
 ;;2400
 ;;21,"52959-0875-60 ")
 ;;2401
 ;;21,"52959-0875-90 ")
 ;;2402
 ;;21,"52959-0876-30 ")
 ;;2403
 ;;21,"52959-0876-60 ")
 ;;2404
 ;;21,"52959-0890-30 ")
 ;;2405
 ;;21,"52959-0890-60 ")
 ;;2406
 ;;21,"52959-0890-90 ")
 ;;2407
 ;;21,"52959-0892-30 ")
 ;;2408
 ;;21,"52959-0892-60 ")
 ;;2409
 ;;21,"52959-0894-30 ")
 ;;2410
 ;;21,"52959-0894-60 ")
 ;;2411
 ;;21,"52959-0898-60 ")
 ;;2412
 ;;21,"52959-0900-30 ")
 ;;2413
 ;;21,"52959-0901-30 ")
 ;;2414
 ;;21,"52959-0986-30 ")
 ;;2415
 ;;21,"52959-0991-30 ")
 ;;2416
 ;;21,"53489-0330-01 ")
 ;;2417
 ;;21,"53489-0331-01 ")
 ;;2418
 ;;21,"53489-0332-01 ")
 ;;2419
 ;;21,"53489-0510-01 ")
 ;;2420
 ;;21,"53489-0511-01 ")
 ;;2421
 ;;21,"53489-0517-01 ")
 ;;2422
 ;;21,"54348-0511-30 ")
 ;;2423
 ;;21,"54458-0892-10 ")
 ;;2424
 ;;21,"54458-0913-02 ")
 ;;2425
 ;;21,"54458-0924-05 ")
 ;;2426
 ;;21,"54458-0944-10 ")
 ;;2427
 ;;21,"54458-0945-10 ")
 ;;2428
 ;;21,"54458-0947-10 ")
 ;;2429
 ;;21,"54458-0980-10 ")
 ;;2430
 ;;21,"54458-0981-10 ")
 ;;2431
 ;;21,"54458-0988-10 ")
 ;;2432
 ;;21,"54458-0989-10 ")
 ;;2433
 ;;21,"54458-0990-10 ")
 ;;2434
 ;;21,"54569-0172-00 ")
 ;;2435
 ;;21,"54569-0172-01 ")
 ;;2436
 ;;21,"54569-0172-02 ")
 ;;2437
 ;;21,"54569-0172-04 ")
 ;;2438
 ;;21,"54569-0172-06 ")
 ;;2439
 ;;21,"54569-0172-08 ")
 ;;2440
 ;;21,"54569-0173-00 ")
 ;;2441
 ;;21,"54569-0175-00 ")
 ;;2442
 ;;21,"54569-0175-01 ")
 ;;2443
 ;;21,"54569-0175-02 ")
 ;;2444
 ;;21,"54569-0175-03 ")
 ;;2445
 ;;21,"54569-0175-04 ")
 ;;2446
 ;;21,"54569-0175-05 ")
 ;;2447
 ;;21,"54569-0175-06 ")
 ;;2448
 ;;21,"54569-0175-08 ")
 ;;2449
 ;;21,"54569-0194-00 ")
 ;;2450
 ;;21,"54569-0194-02 ")
 ;;2451
 ;;21,"54569-0196-03 ")
 ;;2452
 ;;21,"54569-0196-04 ")
 ;;2453
 ;;21,"54569-0225-00 ")
 ;;2454
 ;;21,"54569-0404-00 ")
 ;;2455
 ;;21,"54569-1470-00 ")
 ;;2456
 ;;21,"54569-1470-01 ")
 ;;2457
 ;;21,"54569-1470-06 ")
 ;;2458
 ;;21,"54569-1470-08 ")
 ;;2459
 ;;21,"54569-1470-09 ")
 ;;2460
 ;;21,"54569-1519-01 ")
 ;;2461
 ;;21,"54569-1519-02 ")
 ;;2462
 ;;21,"54569-1519-03 ")
 ;;2463
 ;;21,"54569-1696-00 ")
 ;;2464
 ;;21,"54569-1696-01 ")
 ;;2465
 ;;21,"54569-1701-02 ")
 ;;2466
 ;;21,"54569-1732-02 ")
 ;;2467
 ;;21,"54569-1732-03 ")
 ;;2468
 ;;21,"54569-1732-04 ")
 ;;2469
 ;;21,"54569-1732-05 ")
 ;;2470
 ;;21,"54569-1732-06 ")
 ;;2471
 ;;21,"54569-1864-01 ")
 ;;2472
 ;;21,"54569-1864-02 ")
 ;;2473
 ;;21,"54569-1999-00 ")
 ;;2474
 ;;21,"54569-1999-01 ")
 ;;2475
 ;;21,"54569-1999-02 ")
 ;;2476
 ;;21,"54569-1999-03 ")
 ;;2477
 ;;21,"54569-2006-00 ")
 ;;2478
 ;;21,"54569-2146-01 ")
 ;;2479
 ;;21,"54569-2146-02 ")
 ;;2480
 ;;21,"54569-2179-00 ")
 ;;2481
 ;;21,"54569-2179-01 ")
 ;;2482
 ;;21,"54569-2462-00 ")
 ;;2483
 ;;21,"54569-2726-00 ")
 ;;2484
 ;;21,"54569-3575-00 ")
 ;;2485
 ;;21,"54569-3575-01 ")
 ;;2486
 ;;21,"54569-3724-00 ")
 ;;2487
 ;;21,"54569-3724-01 ")
 ;;2488
 ;;21,"54569-3724-03 ")
 ;;2489
 ;;21,"54569-3724-04 ")
 ;;2490
 ;;21,"54569-3724-05 ")
 ;;2491
 ;;21,"54569-3732-01 ")
 ;;2492
 ;;21,"54569-3732-02 ")
 ;;2493
 ;;21,"54569-3732-03 ")
 ;;2494
 ;;21,"54569-3810-00 ")
 ;;2495
 ;;21,"54569-3849-00 ")
 ;;2496
 ;;21,"54569-3849-01 ")
 ;;2497
 ;;21,"54569-3894-00 ")
 ;;2498
 ;;21,"54569-4129-00 ")
 ;;2499
 ;;21,"54569-4146-00 ")
 ;;2500
 ;;21,"54569-4146-01 ")
 ;;2501
 ;;21,"54569-4529-00 ")
 ;;2502
 ;;21,"54569-4529-01 ")
 ;;2503
 ;;21,"54569-4529-02 ")
 ;;2504
 ;;21,"54569-4659-00 ")
 ;;2505
 ;;21,"54569-4703-01 ")
 ;;2506
 ;;21,"54569-4787-00 ")
 ;;2507
 ;;21,"54569-4879-00 ")
 ;;2508
 ;;21,"54569-5231-00 ")
 ;;2509
 ;;21,"54569-5265-00 ")
 ;;2510
 ;;21,"54569-5291-00 ")
 ;;2511
 ;;21,"54569-5291-01 ")
 ;;2512
 ;;21,"54569-5291-03 ")
 ;;2513
 ;;21,"54569-5319-00 ")
 ;;2514
 ;;21,"54569-5319-01 ")
 ;;2515
 ;;21,"54569-5319-02 ")
 ;;2516
 ;;21,"54569-5320-01 ")
 ;;2517
 ;;21,"54569-5391-00 ")
 ;;2518
 ;;21,"54569-5391-02 ")
 ;;2519
 ;;21,"54569-5391-03 ")
 ;;2520
 ;;21,"54569-5483-00 ")
 ;;2521
 ;;21,"54569-5484-00 ")
 ;;2522
 ;;21,"54569-5541-00 ")
 ;;2523
 ;;21,"54569-5541-01 ")
 ;;2524
 ;;21,"54569-5541-02 ")
 ;;2525
 ;;21,"54569-5568-00 ")
 ;;2526
 ;;21,"54569-5569-00 ")
 ;;2527
 ;;21,"54569-5598-00 ")
 ;;2528
 ;;21,"54569-5599-00 ")
 ;;2529
 ;;21,"54569-5626-00 ")
 ;;2530
 ;;21,"54569-5626-01 ")
 ;;2531
 ;;21,"54569-5626-02 ")
 ;;2532
 ;;21,"54569-5627-00 ")
 ;;2533
 ;;21,"54569-5627-01 ")
 ;;2534
 ;;21,"54569-5678-00 ")
 ;;2535
 ;;21,"54569-5682-00 ")
 ;;2536
 ;;21,"54569-5682-01 ")
 ;;2537
 ;;21,"54569-5818-00 ")
 ;;2538
 ;;21,"54569-5818-01 ")
 ;;2539
 ;;21,"54569-5818-02 ")
 ;;2540
 ;;21,"54569-5819-00 ")
 ;;2541
 ;;21,"54569-5819-01 ")
 ;;2542
 ;;21,"54569-5819-02 ")
 ;;2543
 ;;21,"54569-5872-00 ")
 ;;2544
 ;;21,"54569-5895-00 ")
 ;;2545
 ;;21,"54569-5941-01 ")
 ;;2546
 ;;21,"54569-5968-00 ")
 ;;2547
 ;;21,"54569-5968-02 ")
 ;;2548
 ;;21,"54569-5969-00 ")
 ;;2549
 ;;21,"54569-6160-00 ")
 ;;2550
 ;;21,"54569-6192-00 ")
 ;;2551
 ;;21,"54569-6226-00 ")
 ;;2552
 ;;21,"54569-6227-00 ")
 ;;2553
 ;;21,"54569-6304-00 ")
 ;;2554
 ;;21,"54569-6305-00 ")
 ;;2555
 ;;21,"54569-6318-00 ")
 ;;2556
 ;;21,"54569-6322-00 ")
 ;;2557
 ;;21,"54569-8013-00 ")
 ;;2558
 ;;21,"54569-8522-00 ")
 ;;2559
 ;;21,"54569-8522-01 ")
 ;;2560
 ;;21,"54569-8579-00 ")
 ;;2561
 ;;21,"54569-8609-00 ")
 ;;2562
 ;;21,"54569-8702-00 ")
 ;;2563
 ;;21,"54569-8703-00 ")
 ;;2564
 ;;21,"54569-8703-01 ")
 ;;2565
 ;;21,"54738-0912-01 ")
 ;;2566
 ;;21,"54738-0913-01 ")
 ;;2567
 ;;21,"54738-0914-01 ")
 ;;2568
 ;;21,"54766-0204-01 ")
 ;;2569
 ;;21,"54838-0512-40 ")
 ;;2570
 ;;21,"54838-0523-40 ")
 ;;2571
 ;;21,"54838-0540-70 ")
 ;;2572
 ;;21,"54838-0551-70 ")
 ;;2573
 ;;21,"54868-0062-02 ")
 ;;2574
 ;;21,"54868-0062-04 ")
 ;;2575
 ;;21,"54868-0064-02 ")
 ;;2576
 ;;21,"54868-0064-03 ")
 ;;2577
 ;;21,"54868-0064-04 ")
 ;;2578
 ;;21,"54868-0064-05 ")
 ;;2579
 ;;21,"54868-0064-06 ")
 ;;2580
 ;;21,"54868-0064-07 ")
 ;;2581
 ;;21,"54868-0065-02 ")
 ;;2582
 ;;21,"54868-0065-03 ")
 ;;2583
 ;;21,"54868-0065-04 ")
 ;;2584
 ;;21,"54868-0065-05 ")
 ;;2585
 ;;21,"54868-0065-07 ")
 ;;2586
 ;;21,"54868-0065-08 ")
 ;;2587
 ;;21,"54868-0065-09 ")
 ;;2588
 ;;21,"54868-0066-02 ")
 ;;2589
 ;;21,"54868-0066-03 ")
 ;;2590
 ;;21,"54868-0066-05 ")
 ;;2591
 ;;21,"54868-0066-06 ")
 ;;2592
 ;;21,"54868-0122-00 ")
 ;;2593
 ;;21,"54868-0122-02 ")
 ;;2594
 ;;21,"54868-0426-00 ")
 ;;2595
 ;;21,"54868-1223-00 ")
 ;;2596
 ;;21,"54868-1223-01 ")
 ;;2597
 ;;21,"54868-1239-00 ")
 ;;2598
 ;;21,"54868-1239-01 ")
 ;;2599
 ;;21,"54868-1239-02 ")
 ;;2600
 ;;21,"54868-1239-03 ")
 ;;2601
 ;;21,"54868-1239-04 ")
 ;;2602
 ;;21,"54868-1344-02 ")
 ;;2603
 ;;21,"54868-1344-03 ")
 ;;2604
 ;;21,"54868-1344-04 ")
 ;;2605
 ;;21,"54868-1959-01 ")
 ;;2606
 ;;21,"54868-1959-02 ")
 ;;2607
 ;;21,"54868-1959-04 ")
 ;;2608
 ;;21,"54868-1964-02 ")
 ;;2609
 ;;21,"54868-1964-03 ")
 ;;2610
 ;;21,"54868-2221-01 ")
 ;;2611
 ;;21,"54868-2221-03 ")
 ;;2612
 ;;21,"54868-2221-04 ")
 ;;2613
 ;;21,"54868-2221-05 ")
 ;;2614
 ;;21,"54868-2284-06 ")
 ;;2615
 ;;21,"54868-2317-03 ")
 ;;2616
 ;;21,"54868-2317-04 ")
 ;;2617
 ;;21,"54868-2357-00 ")
 ;;2618
 ;;21,"54868-2357-02 ")
 ;;2619
 ;;21,"54868-2357-03 ")
 ;;2620
 ;;21,"54868-2433-00 ")
 ;;2621
 ;;21,"54868-2433-02 ")
 ;;2622
 ;;21,"54868-2434-00 ")
 ;;2623
 ;;21,"54868-2434-02 ")
 ;;2624
 ;;21,"54868-2481-01 ")
 ;;2625
 ;;21,"54868-2481-02 ")
 ;;2626
 ;;21,"54868-2481-03 ")
 ;;2627
 ;;21,"54868-2552-00 ")
 ;;2628
 ;;21,"54868-2552-02 ")
 ;;2629
 ;;21,"54868-2637-07 ")
 ;;2630
 ;;21,"54868-2637-08 ")
 ;;2631
 ;;21,"54868-2833-00 ")
 ;;2632
 ;;21,"54868-2833-01 ")
 ;;2633
 ;;21,"54868-2835-01 ")
 ;;2634
 ;;21,"54868-2835-02 ")
 ;;2635
 ;;21,"54868-2835-03 ")
 ;;2636
 ;;21,"54868-2976-00 ")
 ;;2637
 ;;21,"54868-2976-02 ")
 ;;2638
 ;;21,"54868-2976-03 ")
 ;;2639
 ;;21,"54868-3033-02 ")
 ;;2640
 ;;21,"54868-3526-00 ")
 ;;2641
 ;;21,"54868-3962-00 ")
 ;;2642
 ;;21,"54868-4023-00 ")
 ;;2643
 ;;21,"54868-4055-00 ")
 ;;2644
 ;;21,"54868-4055-01 ")
 ;;2645
 ;;21,"54868-4065-00 ")
 ;;2646
 ;;21,"54868-4134-00 ")
 ;;2647
 ;;21,"54868-4159-00 ")
 ;;2648
 ;;21,"54868-4159-02 ")
 ;;2649
 ;;21,"54868-4159-03 ")
 ;;2650
 ;;21,"54868-4159-04 ")
 ;;2651
 ;;21,"54868-4226-00 ")
 ;;2652
 ;;21,"54868-4226-01 ")
 ;;2653
 ;;21,"54868-4252-00 ")
 ;;2654
 ;;21,"54868-4252-01 ")
 ;;2655
 ;;21,"54868-4252-02 ")
 ;;2656
 ;;21,"54868-4252-03 ")
 ;;2657
 ;;21,"54868-4252-04 ")
 ;;2658
 ;;21,"54868-4253-00 ")
 ;;2659
 ;;21,"54868-4253-01 ")
 ;;2660
 ;;21,"54868-4253-02 ")
 ;;2661
 ;;21,"54868-4253-03 ")
 ;;2662
 ;;21,"54868-4394-00 ")
 ;;2663
 ;;21,"54868-4504-00 ")
 ;;2664
 ;;21,"54868-4504-01 ")
 ;;2665
 ;;21,"54868-4537-00 ")
 ;;2666
 ;;21,"54868-4537-01 ")
 ;;2667
 ;;21,"54868-4537-02 ")
 ;;2668
 ;;21,"54868-4537-03 ")
 ;;2669
 ;;21,"54868-4550-00 ")
 ;;2670
 ;;21,"54868-4550-01 ")
 ;;2671
 ;;21,"54868-4550-02 ")
 ;;2672
 ;;21,"54868-4560-00 ")
 ;;2673
 ;;21,"54868-4560-01 ")
 ;;2674
 ;;21,"54868-4562-00 ")
 ;;2675
 ;;21,"54868-4700-00 ")
 ;;2676
 ;;21,"54868-4700-01 ")
 ;;2677
 ;;21,"54868-4700-02 ")
 ;;2678
 ;;21,"54868-4700-03 ")
 ;;2679
 ;;21,"54868-4700-04 ")
 ;;2680
 ;;21,"54868-4700-05 ")
 ;;2681
 ;;21,"54868-4700-06 ")
 ;;2682
 ;;21,"54868-4775-00 ")
 ;;2683
 ;;21,"54868-4775-01 ")
 ;;2684
 ;;21,"54868-4775-02 ")
 ;;2685
 ;;21,"54868-4775-03 ")
 ;;2686
 ;;21,"54868-4791-00 ")
 ;;2687
 ;;21,"54868-4817-00 ")
 ;;2688