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