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

BGPM5BEJ.m

Go to the documentation of this file.
BGPM5BEJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"51138008530 ")
 ;;647
 ;;21,"51138025130 ")
 ;;2398
 ;;21,"51138025230 ")
 ;;2399
 ;;21,"51138026530 ")
 ;;2400
 ;;21,"51138026630 ")
 ;;2401
 ;;21,"51138026730 ")
 ;;2402
 ;;21,"51138026830 ")
 ;;2403
 ;;21,"51138026930 ")
 ;;2404
 ;;21,"51138027030 ")
 ;;2405
 ;;21,"51138027130 ")
 ;;2406
 ;;21,"51138033730 ")
 ;;2407
 ;;21,"51138033830 ")
 ;;2408
 ;;21,"51138033930 ")
 ;;2409
 ;;21,"51138036730 ")
 ;;2410
 ;;21,"51138036830 ")
 ;;2411
 ;;21,"51138036930 ")
 ;;2412
 ;;21,"51138037030 ")
 ;;2413
 ;;21,"51138037130 ")
 ;;2414
 ;;21,"51138037210 ")
 ;;2415
 ;;21,"51138037230 ")
 ;;2416
 ;;21,"51138047030 ")
 ;;31
 ;;21,"51138047130 ")
 ;;32
 ;;21,"51138047230 ")
 ;;33
 ;;21,"51138047330 ")
 ;;34
 ;;21,"51138047430 ")
 ;;35
 ;;21,"51138047530 ")
 ;;36
 ;;21,"51285059804 ")
 ;;2423
 ;;21,"51285059904 ")
 ;;2424
 ;;21,"51641040501 ")
 ;;2425
 ;;21,"51655004504 ")
 ;;654
 ;;21,"51655004524 ")
 ;;655
 ;;21,"51655004528 ")
 ;;656
 ;;21,"51655004552 ")
 ;;657
 ;;21,"51655004553 ")
 ;;658
 ;;21,"51655006324 ")
 ;;2426
 ;;21,"51655006352 ")
 ;;2427
 ;;21,"51655019124 ")
 ;;2428
 ;;21,"51655019125 ")
 ;;2429
 ;;21,"51655019126 ")
 ;;2430
 ;;21,"51655019182 ")
 ;;2431
 ;;21,"51655019183 ")
 ;;2432
 ;;21,"51655029124 ")
 ;;659
 ;;21,"51655029125 ")
 ;;660
 ;;21,"51655029152 ")
 ;;661
 ;;21,"51655029153 ")
 ;;662
 ;;21,"51655040024 ")
 ;;663
 ;;21,"51655040025 ")
 ;;664
 ;;21,"51655040052 ")
 ;;665
 ;;21,"51655040053 ")
 ;;666
 ;;21,"51655090424 ")
 ;;2433
 ;;21,"51655090425 ")
 ;;2434
 ;;21,"51655096124 ")
 ;;2435
 ;;21,"51655096125 ")
 ;;2436
 ;;21,"51655096224 ")
 ;;2437
 ;;21,"52544046001 ")
 ;;2438
 ;;21,"52544046005 ")
 ;;2439
 ;;21,"52544046010 ")
 ;;2440
 ;;21,"52544055901 ")
 ;;2441
 ;;21,"52544055905 ")
 ;;2442
 ;;21,"52544056001 ")
 ;;2443
 ;;21,"52544056005 ")
 ;;2444
 ;;21,"52959020700 ")
 ;;667
 ;;21,"52959020728 ")
 ;;668
 ;;21,"52959020730 ")
 ;;669
 ;;21,"52959020760 ")
 ;;670
 ;;21,"52959044901 ")
 ;;2445
 ;;21,"52959044930 ")
 ;;2446
 ;;21,"52959044960 ")
 ;;2447
 ;;21,"52959082200 ")
 ;;2448
 ;;21,"52959082230 ")
 ;;2449
 ;;21,"52959082260 ")
 ;;2450
 ;;21,"52959082320 ")
 ;;2451
 ;;21,"52959082360 ")
 ;;2452
 ;;21,"52959086002 ")
 ;;671
 ;;21,"52959086030 ")
 ;;672
 ;;21,"52959086060 ")
 ;;673
 ;;21,"52959086090 ")
 ;;674
 ;;21,"52959088800 ")
 ;;2453
 ;;21,"52959088830 ")
 ;;2454
 ;;21,"52959089601 ")
 ;;675
 ;;21,"52959089660 ")
 ;;676
 ;;21,"52959093630 ")
 ;;2455
 ;;21,"52959093660 ")
 ;;2456
 ;;21,"53002034700 ")
 ;;2457
 ;;21,"53002034720 ")
 ;;2458
 ;;21,"53002034730 ")
 ;;2459
 ;;21,"53002034750 ")
 ;;2460
 ;;21,"53002034760 ")
 ;;2461
 ;;21,"53002041700 ")
 ;;2462
 ;;21,"53002041720 ")
 ;;2463
 ;;21,"53002041730 ")
 ;;2464
 ;;21,"53002041750 ")
 ;;2465
 ;;21,"53002041760 ")
 ;;2466
 ;;21,"53002044630 ")
 ;;2467
 ;;21,"53002044660 ")
 ;;2468
 ;;21,"53002044690 ")
 ;;2469
 ;;21,"53002051900 ")
 ;;2470
 ;;21,"53002051930 ")
 ;;2471
 ;;21,"53002051950 ")
 ;;2472
 ;;21,"53002051960 ")
 ;;2473
 ;;21,"53002051990 ")
 ;;2474
 ;;21,"53002080072 ")
 ;;1998
 ;;21,"53489015101 ")
 ;;2475
 ;;21,"53489015110 ")
 ;;2476
 ;;21,"53489015201 ")
 ;;2477
 ;;21,"53489015204 ")
 ;;2478
 ;;21,"53489015205 ")
 ;;2479
 ;;21,"53489015210 ")
 ;;2480
 ;;21,"53489015301 ")
 ;;2481
 ;;21,"53489015303 ")
 ;;2482
 ;;21,"53489015305 ")
 ;;2483
 ;;21,"53489046701 ")
 ;;677
 ;;21,"53489046703 ")
 ;;678
 ;;21,"53489046705 ")
 ;;679
 ;;21,"53489046710 ")
 ;;680
 ;;21,"53489046788 ")
 ;;681
 ;;21,"53489046801 ")
 ;;682
 ;;21,"53489046803 ")
 ;;683
 ;;21,"53489046805 ")
 ;;684
 ;;21,"53489046810 ")
 ;;685
 ;;21,"53489046888 ")
 ;;686
 ;;21,"53489046901 ")
 ;;687
 ;;21,"53489046903 ")
 ;;688
 ;;21,"53489046905 ")
 ;;689
 ;;21,"53489046910 ")
 ;;690
 ;;21,"53489046988 ")
 ;;691
 ;;21,"53489058501 ")
 ;;692
 ;;21,"53489058503 ")
 ;;693
 ;;21,"53489058505 ")
 ;;694
 ;;21,"53489058506 ")
 ;;695
 ;;21,"53489058507 ")
 ;;696
 ;;21,"53489058510 ")
 ;;697
 ;;21,"53746017801 ")
 ;;698
 ;;21,"53746017805 ")
 ;;699
 ;;21,"53746017810 ")
 ;;700
 ;;21,"53746017890 ")
 ;;701
 ;;21,"53746017901 ")
 ;;702
 ;;21,"53746017905 ")
 ;;703
 ;;21,"53746017910 ")
 ;;704
 ;;21,"53746028602 ")
 ;;2484
 ;;21,"53808018301 ")
 ;;705
 ;;21,"53808018401 ")
 ;;706
 ;;21,"53808018501 ")
 ;;707
 ;;21,"53808025701 ")
 ;;2485
 ;;21,"53808025801 ")
 ;;2486
 ;;21,"53808025901 ")
 ;;2487
 ;;21,"53808026001 ")
 ;;2488
 ;;21,"53808036901 ")
 ;;2489
 ;;21,"53808038101 ")
 ;;708
 ;;21,"53808040001 ")
 ;;2490
 ;;21,"53808040101 ")
 ;;2491
 ;;21,"53808040801 ")
 ;;2492
 ;;21,"53808040901 ")
 ;;2493
 ;;21,"53808045901 ")
 ;;709
 ;;21,"53808061301 ")
 ;;710
 ;;21,"53808071201 ")
 ;;711
 ;;21,"53808071301 ")
 ;;712
 ;;21,"53808071701 ")
 ;;713
 ;;21,"53808071801 ")
 ;;714
 ;;21,"53808072001 ")
 ;;715
 ;;21,"53978069303 ")
 ;;2494
 ;;21,"53978069305 ")
 ;;2495
 ;;21,"53978069402 ")
 ;;2496
 ;;21,"53978069403 ")
 ;;2497
 ;;21,"53978069405 ")
 ;;2498
 ;;21,"53978069407 ")
 ;;2499
 ;;21,"53978069408 ")
 ;;2500
 ;;21,"53978201303 ")
 ;;2501
 ;;21,"53978201305 ")
 ;;2502
 ;;21,"53978201308 ")
 ;;2503
 ;;21,"53978201402 ")
 ;;2504
 ;;21,"53978201403 ")
 ;;2505
 ;;21,"53978201404 ")
 ;;2506
 ;;21,"53978201405 ")
 ;;2507
 ;;21,"53978201408 ")
 ;;2508
 ;;21,"54458096610 ")
 ;;2509
 ;;21,"54458096710 ")
 ;;2510
 ;;21,"54458096810 ")
 ;;2511
 ;;21,"54569020300 ")
 ;;2512
 ;;21,"54569020301 ")
 ;;2513
 ;;21,"54569020340 ")
 ;;2514
 ;;21,"54569201701 ")
 ;;2515
 ;;21,"54569383000 ")
 ;;2516
 ;;21,"54569383001 ")
 ;;2517
 ;;21,"54569383002 ")
 ;;2518
 ;;21,"54569383100 ")
 ;;2519
 ;;21,"54569383101 ")
 ;;2520
 ;;21,"54569383102 ")
 ;;2521
 ;;21,"54569383104 ")
 ;;2522
 ;;21,"54569383105 ")
 ;;2523
 ;;21,"54569383106 ")
 ;;2524
 ;;21,"54569383108 ")
 ;;2525
 ;;21,"54569383200 ")
 ;;2526
 ;;21,"54569384100 ")
 ;;2527
 ;;21,"54569384101 ")
 ;;2528
 ;;21,"54569384102 ")
 ;;2529
 ;;21,"54569384200 ")
 ;;2530
 ;;21,"54569384201 ")
 ;;2531
 ;;21,"54569384202 ")
 ;;2532
 ;;21,"54569384204 ")
 ;;2533
 ;;21,"54569535300 ")
 ;;716
 ;;21,"54569535302 ")
 ;;717
 ;;21,"54569535303 ")
 ;;718
 ;;21,"54569536000 ")
 ;;719
 ;;21,"54569536003 ")
 ;;720
 ;;21,"54569537300 ")
 ;;721
 ;;21,"54569537302 ")
 ;;722
 ;;21,"54569554600 ")
 ;;723
 ;;21,"54569554601 ")
 ;;724
 ;;21,"54569554602 ")
 ;;725
 ;;21,"54569554700 ")
 ;;2534
 ;;21,"54569554701 ")
 ;;2535
 ;;21,"54569554800 ")
 ;;2536
 ;;21,"54569554801 ")
 ;;2537
 ;;21,"54569561800 ")
 ;;37
 ;;21,"54569561801 ")
 ;;38
 ;;21,"54569561900 ")
 ;;39
 ;;21,"54569561901 ")
 ;;40
 ;;21,"54569585500 ")
 ;;2542
 ;;21,"54569599100 ")
 ;;41
 ;;21,"54569599200 ")
 ;;42
 ;;21,"54569599300 ")
 ;;43
 ;;21,"54569599301 ")
 ;;44
 ;;21,"54569606100 ")
 ;;4350
 ;;21,"54569607200 ")
 ;;2547
 ;;21,"54569860100 ")
 ;;2548
 ;;21,"54569860101 ")
 ;;2549
 ;;21,"54569860102 ")
 ;;2550
 ;;21,"54569860103 ")
 ;;2551
 ;;21,"54868003600 ")
 ;;2552
 ;;21,"54868003602 ")
 ;;2553
 ;;21,"54868003603 ")
 ;;2554
 ;;21,"54868003604 ")
 ;;2555
 ;;21,"54868079500 ")
 ;;45
 ;;21,"54868087700 ")
 ;;2557
 ;;21,"54868087701 ")
 ;;2558
 ;;21,"54868102000 ")
 ;;2559
 ;;21,"54868136101 ")
 ;;2560
 ;;21,"54868326500 ")
 ;;2561
 ;;21,"54868326501 ")
 ;;2562
 ;;21,"54868326503 ")
 ;;2563
 ;;21,"54868326504 ")
 ;;2564
 ;;21,"54868326505 ")
 ;;2565
 ;;21,"54868326601 ")
 ;;2566
 ;;21,"54868326602 ")
 ;;2567
 ;;21,"54868326603 ")
 ;;2568
 ;;21,"54868326604 ")
 ;;2569
 ;;21,"54868331801 ")
 ;;2570
 ;;21,"54868331802 ")
 ;;2571
 ;;21,"54868331803 ")
 ;;2572
 ;;21,"54868331804 ")
 ;;2573
 ;;21,"54868331805 ")
 ;;2574
 ;;21,"54868331901 ")
 ;;2575
 ;;21,"54868331902 ")
 ;;2576
 ;;21,"54868331903 ")
 ;;2577
 ;;21,"54868331904 ")
 ;;2578
 ;;21,"54868331905 ")
 ;;2579
 ;;21,"54868331906 ")
 ;;2580
 ;;21,"54868331907 ")
 ;;2581
 ;;21,"54868332700 ")
 ;;2582
 ;;21,"54868332701 ")
 ;;2583
 ;;21,"54868337700 ")
 ;;2584
 ;;21,"54868337701 ")
 ;;2585
 ;;21,"54868337702 ")
 ;;2586
 ;;21,"54868342600 ")
 ;;2587
 ;;21,"54868342601 ")
 ;;2588
 ;;21,"54868409100 ")
 ;;2589
 ;;21,"54868409101 ")
 ;;2590
 ;;21,"54868409102 ")
 ;;2591
 ;;21,"54868409103 ")
 ;;2592
 ;;21,"54868456100 ")
 ;;735
 ;;21,"54868456101 ")
 ;;736
 ;;21,"54868456102 ")
 ;;737
 ;;21,"54868456103 ")
 ;;738
 ;;21,"54868456104 ")
 ;;739
 ;;21,"54868456400 ")
 ;;740
 ;;21,"54868456401 ")
 ;;741
 ;;21,"54868456402 ")
 ;;742
 ;;21,"54868456403 ")
 ;;743
 ;;21,"54868456404 ")
 ;;744
 ;;21,"54868456405 ")
 ;;745
 ;;21,"54868456600 ")
 ;;746
 ;;21,"54868456601 ")
 ;;747
 ;;21,"54868456602 ")
 ;;748
 ;;21,"54868456603 ")
 ;;749
 ;;21,"54868456604 ")
 ;;750
 ;;21,"54868484200 ")
 ;;2593
 ;;21,"54868484201 ")
 ;;2594
 ;;21,"54868484202 ")
 ;;2595
 ;;21,"54868498800 ")
 ;;2596
 ;;21,"54868498801 ")
 ;;2597
 ;;21,"54868498802 ")
 ;;2598
 ;;21,"54868498803 ")
 ;;2599
 ;;21,"54868498804 ")
 ;;2600
 ;;21,"54868514800 ")
 ;;46
 ;;21,"54868514801 ")
 ;;47
 ;;21,"54868514802 ")
 ;;48
 ;;21,"54868514803 ")
 ;;49
 ;;21,"54868514804 ")
 ;;50
 ;;21,"54868518500 ")
 ;;51
 ;;21,"54868518501 ")
 ;;52
 ;;21,"54868518502 ")
 ;;53
 ;;21,"54868518503 ")
 ;;54
 ;;21,"54868518800 ")
 ;;55
 ;;21,"54868518801 ")
 ;;56
 ;;21,"54868518802 ")
 ;;57
 ;;21,"54868521000 ")
 ;;2613
 ;;21,"54868521001 ")
 ;;2614
 ;;21,"54868521002 ")
 ;;2615
 ;;21,"54868521003 ")
 ;;2616
 ;;21,"54868521700 ")
 ;;763
 ;;21,"54868521701 ")
 ;;764
 ;;21,"54868521702 ")
 ;;765
 ;;21,"54868521703 ")
 ;;766
 ;;21,"54868521704 ")
 ;;767
 ;;21,"54868521705 ")
 ;;768
 ;;21,"54868524300 ")
 ;;58
 ;;21,"54868524301 ")
 ;;59
 ;;21,"54868524302 ")
 ;;60
 ;;21,"54868524303 ")
 ;;61
 ;;21,"54868524304 ")
 ;;62
 ;;21,"54868536400 ")
 ;;2622
 ;;21,"54868536401 ")
 ;;2623
 ;;21,"54868536402 ")
 ;;2624
 ;;21,"54868545700 ")
 ;;2625
 ;;21,"54868545701 ")
 ;;2626
 ;;21,"54868545702 ")
 ;;2627
 ;;21,"54868546700 ")
 ;;63
 ;;21,"54868546701 ")
 ;;64
 ;;21,"54868546702 ")
 ;;65
 ;;21,"54868550500 ")
 ;;777
 ;;21,"54868550501 ")
 ;;778
 ;;21,"54868550502 ")
 ;;779
 ;;21,"54868571200 ")
 ;;2631
 ;;21,"54868589900 ")
 ;;1999
 ;;21,"54868594500 ")
 ;;4351
 ;;21,"54868625500 ")
 ;;2007
 ;;21,"54868625501 ")
 ;;2008
 ;;21,"54907042501 ")
 ;;2632
 ;;21,"54907042601 ")
 ;;2633
 ;;21,"54907042701 ")
 ;;2634
 ;;21,"54907076701 ")
 ;;780
 ;;21,"54907086001 ")
 ;;781
 ;;21,"54907086003 ")
 ;;782
 ;;21,"54907086004 ")
 ;;783
 ;;21,"54907086005 ")
 ;;784
 ;;21,"55045121101 ")
 ;;2635
 ;;21,"55045156809 ")
 ;;2636
 ;;21,"55045213800 ")
 ;;2637
 ;;21,"55045213801 ")
 ;;2638
 ;;21,"55045213802 ")
 ;;2639
 ;;21,"55045213806 ")
 ;;2640
 ;;21,"55045213808 ")
 ;;2641
 ;;21,"55045226501 ")
 ;;2642
 ;;21,"55045226601 ")
 ;;2643
 ;;21,"55045226606 ")
 ;;2644