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

BGPM5AIV.m

Go to the documentation of this file.
BGPM5AIV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"60429021130 ")
 ;;2383
 ;;21,"60429021190 ")
 ;;2384
 ;;21,"60429075301 ")
 ;;2385
 ;;21,"60429075401 ")
 ;;2386
 ;;21,"60440010103 ")
 ;;2387
 ;;21,"60440010109 ")
 ;;2388
 ;;21,"60440010503 ")
 ;;2389
 ;;21,"60440010509 ")
 ;;2390
 ;;21,"60440011509 ")
 ;;2391
 ;;21,"60440011709 ")
 ;;2392
 ;;21,"60491015601 ")
 ;;2393
 ;;21,"60491015660 ")
 ;;2394
 ;;21,"60491015668 ")
 ;;2395
 ;;21,"60491015680 ")
 ;;2396
 ;;21,"60491015710 ")
 ;;2397
 ;;21,"60491015760 ")
 ;;2398
 ;;21,"60491015768 ")
 ;;2399
 ;;21,"60491031501 ")
 ;;2400
 ;;21,"60491031560 ")
 ;;2401
 ;;21,"60491031568 ")
 ;;2402
 ;;21,"60491031601 ")
 ;;2403
 ;;21,"60491031660 ")
 ;;2404
 ;;21,"60491031668 ")
 ;;2405
 ;;21,"60491031701 ")
 ;;2406
 ;;21,"60491031760 ")
 ;;2407
 ;;21,"60491031768 ")
 ;;2408
 ;;21,"60491031901 ")
 ;;2409
 ;;21,"60491031960 ")
 ;;2410
 ;;21,"60491031968 ")
 ;;2411
 ;;21,"60491032101 ")
 ;;2412
 ;;21,"60491032130 ")
 ;;2413
 ;;21,"60491032134 ")
 ;;2414
 ;;21,"60491032201 ")
 ;;2415
 ;;21,"60491032230 ")
 ;;2416
 ;;21,"60491032234 ")
 ;;2417
 ;;21,"60491032330 ")
 ;;2418
 ;;21,"60491032334 ")
 ;;2419
 ;;21,"60491032730 ")
 ;;2420
 ;;21,"60491032734 ")
 ;;2421
 ;;21,"60491032830 ")
 ;;2422
 ;;21,"60491032834 ")
 ;;2423
 ;;21,"60491032930 ")
 ;;2424
 ;;21,"60491032934 ")
 ;;2425
 ;;21,"60491037130 ")
 ;;2426
 ;;21,"60491037134 ")
 ;;2427
 ;;21,"60491062701 ")
 ;;2428
 ;;21,"60491062730 ")
 ;;2429
 ;;21,"60491062734 ")
 ;;2430
 ;;21,"60491062830 ")
 ;;2431
 ;;21,"60491062834 ")
 ;;2432
 ;;21,"60491062930 ")
 ;;2433
 ;;21,"60491062934 ")
 ;;2434
 ;;21,"60491064801 ")
 ;;2435
 ;;21,"60491064860 ")
 ;;2436
 ;;21,"60491064868 ")
 ;;2437
 ;;21,"60491064901 ")
 ;;2438
 ;;21,"60491064960 ")
 ;;2439
 ;;21,"60491064968 ")
 ;;2440
 ;;21,"60491069830 ")
 ;;2441
 ;;21,"60491069834 ")
 ;;2442
 ;;21,"60491072030 ")
 ;;2443
 ;;21,"60491072130 ")
 ;;2444
 ;;21,"60491072134 ")
 ;;2445
 ;;21,"60505071700 ")
 ;;2446
 ;;21,"60505071701 ")
 ;;2447
 ;;21,"60505071702 ")
 ;;2448
 ;;21,"60505071703 ")
 ;;2449
 ;;21,"60793028301 ")
 ;;2450
 ;;21,"60793028401 ")
 ;;2451
 ;;21,"60793080001 ")
 ;;2452
 ;;21,"60793080101 ")
 ;;2453
 ;;21,"60793080201 ")
 ;;2454
 ;;21,"60814071001 ")
 ;;2455
 ;;21,"60814071010 ")
 ;;2456
 ;;21,"60814071101 ")
 ;;2457
 ;;21,"60814071110 ")
 ;;2458
 ;;21,"60976034643 ")
 ;;2459
 ;;21,"60976034644 ")
 ;;2460
 ;;21,"60976034647 ")
 ;;2461
 ;;21,"60976034743 ")
 ;;2462
 ;;21,"60976034744 ")
 ;;2463
 ;;21,"60976034747 ")
 ;;2464
 ;;21,"61392001830 ")
 ;;2465
 ;;21,"61392001831 ")
 ;;2466
 ;;21,"61392001832 ")
 ;;2467
 ;;21,"61392001839 ")
 ;;2468
 ;;21,"61392001845 ")
 ;;2469
 ;;21,"61392001851 ")
 ;;2470
 ;;21,"61392001854 ")
 ;;2471
 ;;21,"61392001856 ")
 ;;2472
 ;;21,"61392001860 ")
 ;;2473
 ;;21,"61392001890 ")
 ;;2474
 ;;21,"61392001891 ")
 ;;2475
 ;;21,"61392006930 ")
 ;;2476
 ;;21,"61392006931 ")
 ;;2477
 ;;21,"61392006932 ")
 ;;2478
 ;;21,"61392006939 ")
 ;;2479
 ;;21,"61392006945 ")
 ;;2480
 ;;21,"61392006951 ")
 ;;2481
 ;;21,"61392006954 ")
 ;;2482
 ;;21,"61392006960 ")
 ;;2483
 ;;21,"61392006990 ")
 ;;2484
 ;;21,"61392006991 ")
 ;;2485
 ;;21,"61392028025 ")
 ;;2486
 ;;21,"61392028030 ")
 ;;2487
 ;;21,"61392028031 ")
 ;;2488
 ;;21,"61392028039 ")
 ;;2489
 ;;21,"61392028045 ")
 ;;2490
 ;;21,"61392028056 ")
 ;;2491
 ;;21,"61392028060 ")
 ;;2492
 ;;21,"61392028091 ")
 ;;2493
 ;;21,"61392028525 ")
 ;;2494
 ;;21,"61392028530 ")
 ;;2495
 ;;21,"61392028531 ")
 ;;2496
 ;;21,"61392028539 ")
 ;;2497
 ;;21,"61392028560 ")
 ;;2498
 ;;21,"61392028625 ")
 ;;2499
 ;;21,"61392028630 ")
 ;;2500
 ;;21,"61392028639 ")
 ;;2501
 ;;21,"61392028645 ")
 ;;2502
 ;;21,"61392028656 ")
 ;;2503
 ;;21,"61392028660 ")
 ;;2504
 ;;21,"61392028665 ")
 ;;2505
 ;;21,"61392028691 ")
 ;;2506
 ;;21,"61392039531 ")
 ;;2507
 ;;21,"61392039532 ")
 ;;2508
 ;;21,"61392039539 ")
 ;;2509
 ;;21,"61392039545 ")
 ;;2510
 ;;21,"61392039554 ")
 ;;2511
 ;;21,"61392039556 ")
 ;;2512
 ;;21,"61392039591 ")
 ;;2513
 ;;21,"61392041025 ")
 ;;2514
 ;;21,"61392041030 ")
 ;;2515
 ;;21,"61392041031 ")
 ;;2516
 ;;21,"61392041039 ")
 ;;2517
 ;;21,"61392041060 ")
 ;;2518
 ;;21,"61392042025 ")
 ;;2519
 ;;21,"61392042030 ")
 ;;2520
 ;;21,"61392042031 ")
 ;;2521
 ;;21,"61392042034 ")
 ;;2522
 ;;21,"61392042039 ")
 ;;2523
 ;;21,"61392042045 ")
 ;;2524
 ;;21,"61392042056 ")
 ;;2525
 ;;21,"61392042060 ")
 ;;2526
 ;;21,"61392042065 ")
 ;;2527
 ;;21,"61392042090 ")
 ;;2528
 ;;21,"61392042091 ")
 ;;2529
 ;;21,"61392042095 ")
 ;;2530
 ;;21,"61392042325 ")
 ;;2531
 ;;21,"61392042330 ")
 ;;2532
 ;;21,"61392042331 ")
 ;;2533
 ;;21,"61392042334 ")
 ;;2534
 ;;21,"61392042339 ")
 ;;2535
 ;;21,"61392042345 ")
 ;;2536
 ;;21,"61392042356 ")
 ;;2537
 ;;21,"61392042360 ")
 ;;2538
 ;;21,"61392042365 ")
 ;;2539
 ;;21,"61392042390 ")
 ;;2540
 ;;21,"61392042391 ")
 ;;2541
 ;;21,"61392042395 ")
 ;;2542
 ;;21,"61392042730 ")
 ;;2543
 ;;21,"61392042731 ")
 ;;2544
 ;;21,"61392042732 ")
 ;;2545
 ;;21,"61392042739 ")
 ;;2546
 ;;21,"61392042745 ")
 ;;2547
 ;;21,"61392042751 ")
 ;;2548
 ;;21,"61392042754 ")
 ;;2549
 ;;21,"61392042756 ")
 ;;2550
 ;;21,"61392042760 ")
 ;;2551
 ;;21,"61392042790 ")
 ;;2552
 ;;21,"61392042791 ")
 ;;2553
 ;;21,"61392043025 ")
 ;;2554
 ;;21,"61392043030 ")
 ;;2555
 ;;21,"61392043031 ")
 ;;2556
 ;;21,"61392043039 ")
 ;;2557
 ;;21,"61392043045 ")
 ;;2558
 ;;21,"61392043056 ")
 ;;2559
 ;;21,"61392043060 ")
 ;;2560
 ;;21,"61392043065 ")
 ;;2561
 ;;21,"61392043090 ")
 ;;2562
 ;;21,"61392043091 ")
 ;;2563
 ;;21,"61392043095 ")
 ;;2564
 ;;21,"61392043325 ")
 ;;2565
 ;;21,"61392043330 ")
 ;;2566
 ;;21,"61392043331 ")
 ;;2567
 ;;21,"61392043339 ")
 ;;2568
 ;;21,"61392043360 ")
 ;;2569
 ;;21,"61392043390 ")
 ;;2570
 ;;21,"61392045925 ")
 ;;2571
 ;;21,"61392045930 ")
 ;;2572
 ;;21,"61392045931 ")
 ;;2573
 ;;21,"61392045939 ")
 ;;2574
 ;;21,"61392045960 ")
 ;;2575
 ;;21,"61392045965 ")
 ;;2576
 ;;21,"61392045990 ")
 ;;2577
 ;;21,"61392045995 ")
 ;;2578
 ;;21,"61392054223 ")
 ;;2579
 ;;21,"61392054225 ")
 ;;2580
 ;;21,"61392054230 ")
 ;;2581
 ;;21,"61392054231 ")
 ;;2582
 ;;21,"61392054239 ")
 ;;2583
 ;;21,"61392054245 ")
 ;;2584
 ;;21,"61392054251 ")
 ;;2585
 ;;21,"61392054254 ")
 ;;2586
 ;;21,"61392054260 ")
 ;;2587
 ;;21,"61392054265 ")
 ;;2588
 ;;21,"61392054290 ")
 ;;2589
 ;;21,"61392054291 ")
 ;;2590
 ;;21,"61392054295 ")
 ;;2591
 ;;21,"61392054323 ")
 ;;2592
 ;;21,"61392054325 ")
 ;;2593
 ;;21,"61392054330 ")
 ;;2594
 ;;21,"61392054331 ")
 ;;2595
 ;;21,"61392054339 ")
 ;;2596
 ;;21,"61392054345 ")
 ;;2597
 ;;21,"61392054354 ")
 ;;2598
 ;;21,"61392054356 ")
 ;;2599
 ;;21,"61392054360 ")
 ;;2600
 ;;21,"61392054365 ")
 ;;2601
 ;;21,"61392054390 ")
 ;;2602
 ;;21,"61392054391 ")
 ;;2603
 ;;21,"61392054395 ")
 ;;2604
 ;;21,"61392054625 ")
 ;;2605
 ;;21,"61392054630 ")
 ;;2606
 ;;21,"61392054631 ")
 ;;2607
 ;;21,"61392054632 ")
 ;;2608
 ;;21,"61392054639 ")
 ;;2609
 ;;21,"61392054645 ")
 ;;2610
 ;;21,"61392054651 ")
 ;;2611
 ;;21,"61392054654 ")
 ;;2612
 ;;21,"61392054656 ")
 ;;2613
 ;;21,"61392054660 ")
 ;;2614
 ;;21,"61392054665 ")
 ;;2615
 ;;21,"61392054690 ")
 ;;2616
 ;;21,"61392054691 ")
 ;;2617
 ;;21,"61392054695 ")
 ;;2618
 ;;21,"61392073331 ")
 ;;2619
 ;;21,"61392073339 ")
 ;;2620
 ;;21,"61392088331 ")
 ;;2621
 ;;21,"61392088339 ")
 ;;2622
 ;;21,"61553033670 ")
 ;;2623
 ;;21,"61553034172 ")
 ;;2624
 ;;21,"61570020101 ")
 ;;2625
 ;;21,"61570020110 ")
 ;;2626
 ;;21,"61570020201 ")
 ;;2627
 ;;21,"61570020210 ")
 ;;2628
 ;;21,"61570020801 ")
 ;;2629
 ;;21,"61703023322 ")
 ;;2630
 ;;21,"61703023341 ")
 ;;2631
 ;;21,"61703023347 ")
 ;;2632
 ;;21,"61703023348 ")
 ;;2633
 ;;21,"62528003940 ")
 ;;2634
 ;;21,"62528003970 ")
 ;;2635
 ;;21,"62528003980 ")
 ;;2636
 ;;21,"62528040140 ")
 ;;2637
 ;;21,"62528040170 ")
 ;;2638
 ;;21,"62528073440 ")
 ;;2639
 ;;21,"62528073470 ")
 ;;2640
 ;;21,"62528073480 ")
 ;;2641
 ;;21,"62540075201 ")
 ;;2642
 ;;21,"62540075203 ")
 ;;2643
 ;;21,"62540075301 ")
 ;;2644
 ;;21,"62540075302 ")
 ;;2645
 ;;21,"62540078701 ")
 ;;2646
 ;;21,"62540078703 ")
 ;;2647
 ;;21,"62540436401 ")
 ;;2648
 ;;21,"62540436402 ")
 ;;2649
 ;;21,"62540436501 ")
 ;;2650
 ;;21,"62540436502 ")
 ;;2651
 ;;21,"62540436601 ")
 ;;2652
 ;;21,"62540573001 ")
 ;;2653
 ;;21,"62540573002 ")
 ;;2654
 ;;21,"62540573101 ")
 ;;2655
 ;;21,"62540573102 ")
 ;;2656
 ;;21,"62540573201 ")
 ;;2657
 ;;21,"62540573202 ")
 ;;2658
 ;;21,"62540820208 ")
 ;;2659
 ;;21,"62540820308 ")
 ;;2660
 ;;21,"62584005800 ")
 ;;2661
 ;;21,"62584007743 ")
 ;;2662
 ;;21,"62584026501 ")
 ;;2663
 ;;21,"62584026511 ")
 ;;2664
 ;;21,"62584026601 ")
 ;;2665
 ;;21,"62584026611 ")
 ;;2666
 ;;21,"62584026701 ")
 ;;2667
 ;;21,"62584026711 ")
 ;;2668
 ;;21,"62584030342 ")
 ;;2669
 ;;21,"62584030343 ")
 ;;2670
 ;;21,"62584034600 ")
 ;;2671
 ;;21,"62584034650 ")
 ;;2672
 ;;21,"62584034700 ")
 ;;2673
 ;;21,"62584042100 ")
 ;;2674
 ;;21,"62584042200 ")
 ;;2675
 ;;21,"62584042400 ")
 ;;2676
 ;;21,"62584042800 ")
 ;;2677
 ;;21,"62584042850 ")
 ;;2678
 ;;21,"62584046701 ")
 ;;2679
 ;;21,"62584046711 ")
 ;;2680
 ;;21,"62584046785 ")
 ;;2681
 ;;21,"62584047100 ")
 ;;2682
 ;;21,"62584047300 ")
 ;;2683
 ;;21,"62584047900 ")
 ;;2684
 ;;21,"62584052650 ")
 ;;2685
 ;;21,"62584058007 ")
 ;;2686
 ;;21,"62584071501 ")
 ;;2687
 ;;21,"62584071511 ")
 ;;2688
 ;;21,"62584078801 ")
 ;;2689
 ;;21,"62584078901 ")
 ;;2690
 ;;21,"62584084201 ")
 ;;2691
 ;;21,"62584084237 ")
 ;;2692
 ;;21,"62584084285 ")
 ;;2693
 ;;21,"62584084301 ")
 ;;2694
 ;;21,"62584084385 ")
 ;;2695
 ;;21,"62645030110 ")
 ;;2696
 ;;21,"62778005722 ")
 ;;2697
 ;;21,"62778005802 ")
 ;;2698
 ;;21,"63304057901 ")
 ;;2699
 ;;21,"63304057903 ")
 ;;2700
 ;;21,"63304057910 ")
 ;;2701
 ;;21,"63304058001 ")
 ;;2702
 ;;21,"63304058003 ")
 ;;2703
 ;;21,"63304058010 ")
 ;;2704
 ;;21,"63304058101 ")
 ;;2705
 ;;21,"63304058103 ")
 ;;2706
 ;;21,"63304058110 ")
 ;;2707
 ;;21,"63304062101 ")
 ;;2708
 ;;21,"63304062103 ")
 ;;2709
 ;;21,"63304062110 ")
 ;;2710
 ;;21,"63304062201 ")
 ;;2711
 ;;21,"63304062203 ")
 ;;2712
 ;;21,"63304062210 ")
 ;;2713
 ;;21,"63304062301 ")
 ;;2714
 ;;21,"63304062303 ")
 ;;2715
 ;;21,"63304062310 ")
 ;;2716
 ;;21,"63323060401 ")
 ;;2717
 ;;21,"63323066005 ")
 ;;2718
 ;;21,"63629142301 ")
 ;;2719
 ;;21,"63629142302 ")
 ;;2720
 ;;21,"63629146201 ")
 ;;2721
 ;;21,"63629146202 ")
 ;;2722
 ;;21,"63629146203 ")
 ;;2723
 ;;21,"63629146301 ")
 ;;2724
 ;;21,"63629146302 ")
 ;;2725
 ;;21,"63629146303 ")
 ;;2726
 ;;21,"63629146304 ")
 ;;2727
 ;;21,"63629146305 ")
 ;;2728
 ;;21,"63629167401 ")
 ;;2729
 ;;21,"63629174001 ")
 ;;2730
 ;;21,"63629174002 ")
 ;;2731
 ;;21,"63629174003 ")
 ;;2732
 ;;21,"63629178501 ")
 ;;2733
 ;;21,"63629178502 ")
 ;;2734