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

BGP7IXLG.m

Go to the documentation of this file.
BGP7IXLG ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 11, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"58864-0368-01 ")
 ;;1270
 ;;21,"58864-0431-60 ")
 ;;2606
 ;;21,"58864-0645-56 ")
 ;;679
 ;;21,"58864-0680-30 ")
 ;;940
 ;;21,"58864-0717-30 ")
 ;;91
 ;;21,"58864-0727-30 ")
 ;;1152
 ;;21,"58864-0737-30 ")
 ;;1157
 ;;21,"58864-0749-30 ")
 ;;140
 ;;21,"58864-0749-90 ")
 ;;141
 ;;21,"58864-0759-30 ")
 ;;233
 ;;21,"58864-0765-30 ")
 ;;247
 ;;21,"59198-0038-02 ")
 ;;680
 ;;21,"59198-0039-02 ")
 ;;681
 ;;21,"59198-0040-02 ")
 ;;682
 ;;21,"59198-0041-02 ")
 ;;683
 ;;21,"59198-0042-02 ")
 ;;773
 ;;21,"59198-0043-02 ")
 ;;774
 ;;21,"59198-0044-02 ")
 ;;775
 ;;21,"59198-0080-02 ")
 ;;1271
 ;;21,"59198-0081-02 ")
 ;;1272
 ;;21,"59198-0082-02 ")
 ;;1273
 ;;21,"59198-0226-02 ")
 ;;776
 ;;21,"59198-0284-02 ")
 ;;1184
 ;;21,"59198-0285-02 ")
 ;;1185
 ;;21,"59198-0286-02 ")
 ;;1186
 ;;21,"59198-0375-01 ")
 ;;452
 ;;21,"59564-0125-10 ")
 ;;92
 ;;21,"59564-0125-25 ")
 ;;93
 ;;21,"59564-0126-10 ")
 ;;94
 ;;21,"59564-0126-25 ")
 ;;95
 ;;21,"59591-0007-68 ")
 ;;2714
 ;;21,"59591-0194-68 ")
 ;;2707
 ;;21,"59591-0263-68 ")
 ;;2797
 ;;21,"59591-0263-82 ")
 ;;2798
 ;;21,"59591-0265-68 ")
 ;;2723
 ;;21,"59742-4139-01 ")
 ;;1146
 ;;21,"59742-4139-06 ")
 ;;1147
 ;;21,"59742-4140-01 ")
 ;;1148
 ;;21,"59742-4140-06 ")
 ;;1149
 ;;21,"59742-4141-01 ")
 ;;1150
 ;;21,"59742-4142-01 ")
 ;;1151
 ;;21,"59772-2461-01 ")
 ;;2459
 ;;21,"59772-2461-02 ")
 ;;2560
 ;;21,"59772-2462-01 ")
 ;;2687
 ;;21,"59772-2462-02 ")
 ;;2688
 ;;21,"59772-2462-03 ")
 ;;2689
 ;;21,"59772-2463-01 ")
 ;;2690
 ;;21,"59772-2463-02 ")
 ;;2691
 ;;21,"59772-2463-03 ")
 ;;2692
 ;;21,"59772-2464-01 ")
 ;;2485
 ;;21,"59772-2465-01 ")
 ;;2693
 ;;21,"59772-2592-01 ")
 ;;2716
 ;;21,"59772-2593-01 ")
 ;;2588
 ;;21,"59772-3692-02 ")
 ;;2453
 ;;21,"59772-3692-05 ")
 ;;2454
 ;;21,"59772-3692-20 ")
 ;;2455
 ;;21,"59772-3693-02 ")
 ;;2456
 ;;21,"59772-3693-05 ")
 ;;2457
 ;;21,"59772-6180-02 ")
 ;;1187
 ;;21,"59772-6181-02 ")
 ;;1274
 ;;21,"59772-6182-02 ")
 ;;1296
 ;;21,"59772-8804-01 ")
 ;;2534
 ;;21,"59772-8804-10 ")
 ;;2535
 ;;21,"59772-8805-01 ")
 ;;2536
 ;;21,"59772-8805-10 ")
 ;;2537
 ;;21,"59911-5470-01 ")
 ;;2476
 ;;21,"59911-5470-02 ")
 ;;2477
 ;;21,"59911-5471-01 ")
 ;;2478
 ;;21,"59911-5471-02 ")
 ;;2479
 ;;21,"59911-5473-01 ")
 ;;2480
 ;;21,"59911-5473-02 ")
 ;;2481
 ;;21,"59911-5479-01 ")
 ;;2601
 ;;21,"59911-5842-01 ")
 ;;2698
 ;;21,"59911-5844-01 ")
 ;;2539
 ;;21,"59911-7060-01 ")
 ;;2540
 ;;21,"59911-7061-01 ")
 ;;2541
 ;;21,"59911-7065-02 ")
 ;;2482
 ;;21,"59911-7066-02 ")
 ;;2483
 ;;21,"59911-7067-01 ")
 ;;2695
 ;;21,"59930-1602-01 ")
 ;;2561
 ;;21,"59930-1602-02 ")
 ;;2562
 ;;21,"59930-1602-03 ")
 ;;2563
 ;;21,"59930-1602-04 ")
 ;;2564
 ;;21,"59930-1636-01 ")
 ;;2699
 ;;21,"59930-1636-02 ")
 ;;2700
 ;;21,"59930-1636-03 ")
 ;;2701
 ;;21,"59930-1636-04 ")
 ;;2702
 ;;21,"59930-1653-01 ")
 ;;2542
 ;;21,"59930-1653-02 ")
 ;;2543
 ;;21,"59930-1653-03 ")
 ;;2544
 ;;21,"59930-1795-01 ")
 ;;2492
 ;;21,"59930-1797-01 ")
 ;;2493
 ;;21,"60346-0431-60 ")
 ;;684
 ;;21,"60346-0514-60 ")
 ;;370
 ;;21,"60346-0523-06 ")
 ;;2574
 ;;21,"60346-0523-30 ")
 ;;371
 ;;21,"60346-0523-60 ")
 ;;372
 ;;21,"60346-0570-30 ")
 ;;685
 ;;21,"60346-0570-40 ")
 ;;686
 ;;21,"60346-0570-90 ")
 ;;687
 ;;21,"60346-0570-94 ")
 ;;688
 ;;21,"60346-0587-60 ")
 ;;142
 ;;21,"60346-0598-25 ")
 ;;689
 ;;21,"60346-0598-30 ")
 ;;850
 ;;21,"60346-0598-60 ")
 ;;690
 ;;21,"60346-0598-90 ")
 ;;851
 ;;21,"60346-0719-30 ")
 ;;194
 ;;21,"60346-0719-60 ")
 ;;195
 ;;21,"60346-0719-62 ")
 ;;196
 ;;21,"60346-0719-90 ")
 ;;197
 ;;21,"60346-0719-94 ")
 ;;198
 ;;21,"60346-0775-30 ")
 ;;1090
 ;;21,"60346-0806-30 ")
 ;;893
 ;;21,"60346-0806-60 ")
 ;;894
 ;;21,"60346-0806-90 ")
 ;;895
 ;;21,"60346-0836-30 ")
 ;;1125
 ;;21,"60346-0914-30 ")
 ;;96
 ;;21,"60346-0914-60 ")
 ;;97
 ;;21,"60346-0914-90 ")
 ;;98
 ;;21,"60346-0914-94 ")
 ;;99
 ;;21,"60346-0967-30 ")
 ;;691
 ;;21,"60346-0967-90 ")
 ;;692
 ;;21,"60429-0025-30 ")
 ;;2767
 ;;21,"60429-0025-90 ")
 ;;2768
 ;;21,"60429-0026-30 ")
 ;;2573
 ;;21,"60429-0126-30 ")
 ;;2575
 ;;21,"60429-0126-60 ")
 ;;2576
 ;;21,"60429-0127-30 ")
 ;;2577
 ;;21,"60429-0127-60 ")
 ;;2578
 ;;21,"60429-0164-18 ")
 ;;2773
 ;;21,"60429-0164-60 ")
 ;;2774
 ;;21,"60429-0164-90 ")
 ;;2775
 ;;21,"60429-0211-30 ")
 ;;2599
 ;;21,"60429-0211-90 ")
 ;;2600
 ;;21,"60429-0227-12 ")
 ;;2602
 ;;21,"60429-0227-18 ")
 ;;2603
 ;;21,"60429-0227-60 ")
 ;;2604
 ;;21,"60429-0227-90 ")
 ;;2605
 ;;21,"60491-0127-30 ")
 ;;223
 ;;21,"60491-0127-34 ")
 ;;224
 ;;21,"60491-0128-30 ")
 ;;225
 ;;21,"60491-0128-34 ")
 ;;226
 ;;21,"60491-0156-01 ")
 ;;453
 ;;21,"60491-0156-60 ")
 ;;454
 ;;21,"60491-0156-68 ")
 ;;455
 ;;21,"60491-0156-80 ")
 ;;456
 ;;21,"60491-0157-10 ")
 ;;457
 ;;21,"60491-0157-60 ")
 ;;458
 ;;21,"60491-0157-68 ")
 ;;459
 ;;21,"60491-0315-01 ")
 ;;693
 ;;21,"60491-0315-60 ")
 ;;694
 ;;21,"60491-0315-68 ")
 ;;695
 ;;21,"60491-0316-01 ")
 ;;696
 ;;21,"60491-0316-60 ")
 ;;697
 ;;21,"60491-0316-68 ")
 ;;698
 ;;21,"60491-0317-01 ")
 ;;699
 ;;21,"60491-0317-60 ")
 ;;700
 ;;21,"60491-0317-68 ")
 ;;701
 ;;21,"60491-0319-01 ")
 ;;702
 ;;21,"60491-0319-60 ")
 ;;703
 ;;21,"60491-0319-68 ")
 ;;704
 ;;21,"60491-0321-01 ")
 ;;777
 ;;21,"60491-0321-30 ")
 ;;778
 ;;21,"60491-0321-34 ")
 ;;779
 ;;21,"60491-0322-01 ")
 ;;780
 ;;21,"60491-0322-30 ")
 ;;781
 ;;21,"60491-0322-34 ")
 ;;782
 ;;21,"60491-0323-30 ")
 ;;783
 ;;21,"60491-0323-34 ")
 ;;784
 ;;21,"60491-0327-30 ")
 ;;1137
 ;;21,"60491-0327-34 ")
 ;;1138
 ;;21,"60491-0328-30 ")
 ;;1139
 ;;21,"60491-0328-34 ")
 ;;1140
 ;;21,"60491-0329-30 ")
 ;;1141
 ;;21,"60491-0329-34 ")
 ;;1142
 ;;21,"60491-0371-30 ")
 ;;1101
 ;;21,"60491-0371-34 ")
 ;;1102
 ;;21,"60491-0458-01 ")
 ;;1275
 ;;21,"60491-0458-60 ")
 ;;1276
 ;;21,"60491-0458-68 ")
 ;;1277
 ;;21,"60491-0459-01 ")
 ;;1278
 ;;21,"60491-0459-60 ")
 ;;1279
 ;;21,"60491-0459-68 ")
 ;;1280
 ;;21,"60491-0460-01 ")
 ;;1281
 ;;21,"60491-0460-60 ")
 ;;1282
 ;;21,"60491-0460-68 ")
 ;;1283
 ;;21,"60491-0573-30 ")
 ;;2916
 ;;21,"60491-0573-34 ")
 ;;2917
 ;;21,"60491-0627-01 ")
 ;;199
 ;;21,"60491-0627-30 ")
 ;;200
 ;;21,"60491-0627-34 ")
 ;;201
 ;;21,"60491-0628-30 ")
 ;;1077
 ;;21,"60491-0628-34 ")
 ;;1078
 ;;21,"60491-0629-30 ")
 ;;202
 ;;21,"60491-0629-34 ")
 ;;203
 ;;21,"60491-0648-01 ")
 ;;1188
 ;;21,"60491-0648-60 ")
 ;;1189
 ;;21,"60491-0648-68 ")
 ;;1190
 ;;21,"60491-0649-01 ")
 ;;1191
 ;;21,"60491-0649-60 ")
 ;;1192
 ;;21,"60491-0649-68 ")
 ;;1193
 ;;21,"60491-0698-30 ")
 ;;504
 ;;21,"60491-0698-34 ")
 ;;505
 ;;21,"60491-0720-30 ")
 ;;1091
 ;;21,"60491-0721-30 ")
 ;;1092
 ;;21,"60491-0721-34 ")
 ;;1093
 ;;21,"60505-0080-00 ")
 ;;2625
 ;;21,"60505-0081-00 ")
 ;;2626
 ;;21,"60505-0082-00 ")
 ;;2612
 ;;21,"60505-0159-00 ")
 ;;2627
 ;;21,"60505-0222-01 ")
 ;;2614
 ;;21,"60505-0223-01 ")
 ;;2615
 ;;21,"60505-0224-01 ")
 ;;2616
 ;;21,"60676-0348-47 ")
 ;;2628
 ;;21,"60809-0102-55 ")
 ;;2855
 ;;21,"60809-0102-72 ")
 ;;2856
 ;;21,"60814-0710-01 ")
 ;;2857
 ;;21,"60814-0710-10 ")
 ;;2858
 ;;21,"60814-0711-01 ")
 ;;2617
 ;;21,"60814-0711-10 ")
 ;;2618
 ;;21,"60951-0782-70 ")
 ;;2669
 ;;21,"60951-0783-70 ")
 ;;2670
 ;;21,"60976-0346-43 ")
 ;;2666
 ;;21,"60976-0346-44 ")
 ;;2667
 ;;21,"60976-0346-47 ")
 ;;2668
 ;;21,"60976-0347-43 ")
 ;;2848
 ;;21,"60976-0347-44 ")
 ;;2849
 ;;21,"60976-0347-47 ")
 ;;2850
 ;;21,"60976-0348-43 ")
 ;;2632
 ;;21,"60976-0348-44 ")
 ;;2633
 ;;21,"60976-0348-47 ")
 ;;2694
 ;;21,"61392-0018-30 ")
 ;;2619
 ;;21,"61392-0018-31 ")
 ;;2620
 ;;21,"61392-0018-32 ")
 ;;2621
 ;;21,"61392-0018-39 ")
 ;;2622
 ;;21,"61392-0018-45 ")
 ;;2623
 ;;21,"61392-0018-51 ")
 ;;2624
 ;;21,"61392-0018-54 ")
 ;;2645
 ;;21,"61392-0018-56 ")
 ;;2646
 ;;21,"61392-0018-60 ")
 ;;2647
 ;;21,"61392-0018-90 ")
 ;;2672
 ;;21,"61392-0018-91 ")
 ;;2673
 ;;21,"61392-0069-30 ")
 ;;2732
 ;;21,"61392-0069-31 ")
 ;;2733
 ;;21,"61392-0069-32 ")
 ;;2734
 ;;21,"61392-0069-39 ")
 ;;2735
 ;;21,"61392-0069-45 ")
 ;;2736
 ;;21,"61392-0069-51 ")
 ;;2737
 ;;21,"61392-0069-54 ")
 ;;2738
 ;;21,"61392-0069-60 ")
 ;;2739
 ;;21,"61392-0069-90 ")
 ;;2740
 ;;21,"61392-0069-91 ")
 ;;2741
 ;;21,"61392-0280-25 ")
 ;;373
 ;;21,"61392-0280-30 ")
 ;;2809
 ;;21,"61392-0280-31 ")
 ;;2810
 ;;21,"61392-0280-32 ")
 ;;2811
 ;;21,"61392-0280-39 ")
 ;;2812
 ;;21,"61392-0280-45 ")
 ;;2813
 ;;21,"61392-0280-51 ")
 ;;2814
 ;;21,"61392-0280-54 ")
 ;;2815
 ;;21,"61392-0280-56 ")
 ;;2816
 ;;21,"61392-0280-60 ")
 ;;2817
 ;;21,"61392-0280-65 ")
 ;;374
 ;;21,"61392-0280-90 ")
 ;;2818
 ;;21,"61392-0280-91 ")
 ;;2819
 ;;21,"61392-0280-95 ")
 ;;375
 ;;21,"61392-0286-25 ")
 ;;376
 ;;21,"61392-0286-30 ")
 ;;2820
 ;;21,"61392-0286-31 ")
 ;;2821
 ;;21,"61392-0286-32 ")
 ;;2822
 ;;21,"61392-0286-39 ")
 ;;2823
 ;;21,"61392-0286-45 ")
 ;;2824
 ;;21,"61392-0286-51 ")
 ;;2825
 ;;21,"61392-0286-54 ")
 ;;2826
 ;;21,"61392-0286-56 ")
 ;;2827
 ;;21,"61392-0286-60 ")
 ;;2828
 ;;21,"61392-0286-65 ")
 ;;377
 ;;21,"61392-0286-90 ")
 ;;2829
 ;;21,"61392-0286-91 ")
 ;;2830
 ;;21,"61392-0286-95 ")
 ;;378
 ;;21,"61392-0395-30 ")
 ;;2859
 ;;21,"61392-0395-31 ")
 ;;2860
 ;;21,"61392-0395-32 ")
 ;;2861
 ;;21,"61392-0395-39 ")
 ;;2862
 ;;21,"61392-0395-45 ")
 ;;2863
 ;;21,"61392-0395-51 ")
 ;;2864
 ;;21,"61392-0395-54 ")
 ;;2865
 ;;21,"61392-0395-56 ")
 ;;2866
 ;;21,"61392-0395-60 ")
 ;;2867
 ;;21,"61392-0395-90 ")
 ;;2868
 ;;21,"61392-0395-91 ")
 ;;2869
 ;;21,"61392-0420-25 ")
 ;;705
 ;;21,"61392-0420-30 ")
 ;;2836
 ;;21,"61392-0420-31 ")
 ;;2837
 ;;21,"61392-0420-32 ")
 ;;2838
 ;;21,"61392-0420-34 ")
 ;;2839
 ;;21,"61392-0420-39 ")
 ;;2840
 ;;21,"61392-0420-45 ")
 ;;2841
 ;;21,"61392-0420-51 ")
 ;;2842
 ;;21,"61392-0420-54 ")
 ;;2843
 ;;21,"61392-0420-56 ")
 ;;2844
 ;;21,"61392-0420-60 ")
 ;;2845
 ;;21,"61392-0420-65 ")
 ;;706
 ;;21,"61392-0420-90 ")
 ;;2846
 ;;21,"61392-0420-91 ")
 ;;2847
 ;;21,"61392-0420-95 ")
 ;;707
 ;;21,"61392-0421-30 ")
 ;;922
 ;;21,"61392-0421-31 ")
 ;;923
 ;;21,"61392-0421-32 ")
 ;;924
 ;;21,"61392-0421-39 ")
 ;;925
 ;;21,"61392-0421-45 ")
 ;;926
 ;;21,"61392-0421-51 ")
 ;;927
 ;;21,"61392-0421-54 ")
 ;;928
 ;;21,"61392-0421-60 ")
 ;;929
 ;;21,"61392-0421-90 ")
 ;;930
 ;;21,"61392-0421-91 ")
 ;;931
 ;;21,"61392-0422-30 ")
 ;;785
 ;;21,"61392-0422-31 ")
 ;;786
 ;;21,"61392-0422-32 ")
 ;;787
 ;;21,"61392-0422-39 ")
 ;;788
 ;;21,"61392-0422-45 ")
 ;;789
 ;;21,"61392-0422-51 ")
 ;;790
 ;;21,"61392-0422-54 ")
 ;;791
 ;;21,"61392-0422-60 ")
 ;;792
 ;;21,"61392-0422-90 ")
 ;;793
 ;;21,"61392-0423-25 ")
 ;;708
 ;;21,"61392-0423-30 ")
 ;;2892
 ;;21,"61392-0423-31 ")
 ;;2893
 ;;21,"61392-0423-32 ")
 ;;2894
 ;;21,"61392-0423-34 ")
 ;;2895
 ;;21,"61392-0423-39 ")
 ;;2896
 ;;21,"61392-0423-45 ")
 ;;2897
 ;;21,"61392-0423-51 ")
 ;;2898
 ;;21,"61392-0423-54 ")
 ;;2899
 ;;21,"61392-0423-56 ")
 ;;2900
 ;;21,"61392-0423-60 ")
 ;;2901
 ;;21,"61392-0423-65 ")
 ;;709
 ;;21,"61392-0423-90 ")
 ;;2902
 ;;21,"61392-0423-91 ")
 ;;2903
 ;;21,"61392-0423-95 ")
 ;;710
 ;;21,"61392-0427-30 ")
 ;;2831
 ;;21,"61392-0427-31 ")
 ;;2832
 ;;21,"61392-0427-32 ")
 ;;2833
 ;;21,"61392-0427-39 ")
 ;;2834
 ;;21,"61392-0427-45 ")
 ;;2835
 ;;21,"61392-0427-51 ")
 ;;2589
 ;;21,"61392-0427-54 ")
 ;;2590
 ;;21,"61392-0427-56 ")
 ;;2591
 ;;21,"61392-0427-60 ")
 ;;2592
 ;;21,"61392-0427-90 ")
 ;;2593
 ;;21,"61392-0427-91 ")
 ;;2594
 ;;21,"61392-0430-25 ")
 ;;711
 ;;21,"61392-0430-30 ")
 ;;2634
 ;;21,"61392-0430-31 ")
 ;;2635
 ;;21,"61392-0430-32 ")
 ;;2636
 ;;21,"61392-0430-39 ")
 ;;2637
 ;;21,"61392-0430-45 ")
 ;;2638
 ;;21,"61392-0430-51 ")
 ;;2639
 ;;21,"61392-0430-54 ")
 ;;2640
 ;;21,"61392-0430-56 ")
 ;;2641
 ;;21,"61392-0430-60 ")
 ;;2642
 ;;21,"61392-0430-65 ")
 ;;712
 ;;21,"61392-0430-90 ")
 ;;2643
 ;;21,"61392-0430-91 ")
 ;;2644
 ;;21,"61392-0430-95 ")
 ;;713
 ;;21,"61392-0542-25 ")
 ;;100
 ;;21,"61392-0542-30 ")
 ;;2648
 ;;21,"61392-0542-31 ")
 ;;2649
 ;;21,"61392-0542-32 ")
 ;;2650
 ;;21,"61392-0542-39 ")
 ;;2651
 ;;21,"61392-0542-45 ")
 ;;2652
 ;;21,"61392-0542-51 ")
 ;;2653
 ;;21,"61392-0542-54 ")
 ;;2654
 ;;21,"61392-0542-60 ")
 ;;2655
 ;;21,"61392-0542-65 ")
 ;;2656
 ;;21,"61392-0542-90 ")
 ;;2657
 ;;21,"61392-0542-91 ")
 ;;2658
 ;;21,"61392-0542-95 ")
 ;;101
 ;;21,"61392-0543-25 ")
 ;;102
 ;;21,"61392-0543-30 ")
 ;;2777
 ;;21,"61392-0543-31 ")
 ;;2778
 ;;21,"61392-0543-32 ")
 ;;2779
 ;;21,"61392-0543-39 ")
 ;;2780
 ;;21,"61392-0543-45 ")
 ;;2781
 ;;21,"61392-0543-51 ")
 ;;2782
 ;;21,"61392-0543-54 ")
 ;;2783
 ;;21,"61392-0543-56 ")
 ;;2784
 ;;21,"61392-0543-60 ")
 ;;2785
 ;;21,"61392-0543-65 ")
 ;;2786