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