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

BGP22B9.m

Go to the documentation of this file.
BGP22B9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2011;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"61570-0111-05 ")
 ;;3122
 ;;21,"61570-0111-56 ")
 ;;3123
 ;;21,"61570-0112-01 ")
 ;;3209
 ;;21,"61570-0112-05 ")
 ;;3165
 ;;21,"61570-0112-56 ")
 ;;3169
 ;;21,"61570-0120-01 ")
 ;;3103
 ;;21,"61570-0120-05 ")
 ;;3058
 ;;21,"61570-0120-80 ")
 ;;3059
 ;;21,"62037-0516-01 ")
 ;;876
 ;;21,"62037-0517-01 ")
 ;;648
 ;;21,"62037-0518-01 ")
 ;;724
 ;;21,"62037-0519-01 ")
 ;;808
 ;;21,"62037-0531-90 ")
 ;;3016
 ;;21,"62037-0532-90 ")
 ;;2928
 ;;21,"62037-0533-90 ")
 ;;2956
 ;;21,"62037-0534-90 ")
 ;;2987
 ;;21,"62037-0756-01 ")
 ;;239
 ;;21,"62037-0757-01 ")
 ;;175
 ;;21,"62037-0758-01 ")
 ;;195
 ;;21,"62037-0759-01 ")
 ;;218
 ;;21,"62037-0935-90 ")
 ;;1735
 ;;21,"62037-0936-90 ")
 ;;1787
 ;;21,"62037-0937-90 ")
 ;;1862
 ;;21,"62175-0171-37 ")
 ;;2897
 ;;21,"62175-0177-37 ")
 ;;2883
 ;;21,"62175-0712-37 ")
 ;;608
 ;;21,"62175-0720-37 ")
 ;;589
 ;;21,"62175-0725-37 ")
 ;;596
 ;;21,"62584-0164-06 ")
 ;;1394
 ;;21,"62584-0165-06 ")
 ;;1612
 ;;21,"62584-0166-06 ")
 ;;1249
 ;;21,"62584-0167-06 ")
 ;;1474
 ;;21,"62682-6014-06 ")
 ;;716
 ;;21,"63304-0155-01 ")
 ;;176
 ;;21,"63304-0156-01 ")
 ;;196
 ;;21,"63304-0157-01 ")
 ;;219
 ;;21,"63304-0337-01 ")
 ;;899
 ;;21,"63304-0338-01 ")
 ;;702
 ;;21,"63304-0338-05 ")
 ;;703
 ;;21,"63304-0339-01 ")
 ;;782
 ;;21,"63304-0339-05 ")
 ;;783
 ;;21,"63304-0340-01 ")
 ;;855
 ;;21,"63304-0340-05 ")
 ;;856
 ;;21,"63304-0403-01 ")
 ;;325
 ;;21,"63304-0404-01 ")
 ;;334
 ;;21,"63304-0522-01 ")
 ;;1445
 ;;21,"63304-0522-10 ")
 ;;1446
 ;;21,"63304-0523-01 ")
 ;;1698
 ;;21,"63304-0523-10 ")
 ;;1699
 ;;21,"63304-0524-01 ")
 ;;1341
 ;;21,"63304-0524-10 ")
 ;;1342
 ;;21,"63304-0525-01 ")
 ;;1560
 ;;21,"63304-0525-10 ")
 ;;1561
 ;;21,"63304-0531-01 ")
 ;;2204
 ;;21,"63304-0532-01 ")
 ;;2836
 ;;21,"63304-0532-10 ")
 ;;2837
 ;;21,"63304-0533-01 ")
 ;;2094
 ;;21,"63304-0533-10 ")
 ;;2095
 ;;21,"63304-0534-01 ")
 ;;2409
 ;;21,"63304-0534-10 ")
 ;;2410
 ;;21,"63304-0535-01 ")
 ;;2649
 ;;21,"63304-0535-10 ")
 ;;2650
 ;;21,"63304-0536-01 ")
 ;;403
 ;;21,"63304-0536-05 ")
 ;;404
 ;;21,"63304-0537-01 ")
 ;;493
 ;;21,"63304-0537-05 ")
 ;;494
 ;;21,"63304-0538-01 ")
 ;;575
 ;;21,"63304-0538-05 ")
 ;;576
 ;;21,"63304-0548-90 ")
 ;;3033
 ;;21,"63304-0549-90 ")
 ;;2950
 ;;21,"63304-0550-90 ")
 ;;2982
 ;;21,"63304-0551-90 ")
 ;;3008
 ;;21,"63304-0599-01 ")
 ;;2501
 ;;21,"63304-0736-01 ")
 ;;900
 ;;21,"63304-0736-05 ")
 ;;901
 ;;21,"63304-0736-90 ")
 ;;902
 ;;21,"63304-0737-01 ")
 ;;704
 ;;21,"63304-0737-05 ")
 ;;705
 ;;21,"63304-0737-90 ")
 ;;706
 ;;21,"63304-0738-01 ")
 ;;784
 ;;21,"63304-0738-05 ")
 ;;785
 ;;21,"63304-0738-90 ")
 ;;786
 ;;21,"63304-0739-01 ")
 ;;857
 ;;21,"63304-0739-05 ")
 ;;858
 ;;21,"63304-0739-90 ")
 ;;859
 ;;21,"63304-0775-10 ")
 ;;1770
 ;;21,"63304-0775-90 ")
 ;;1771
 ;;21,"63304-0776-10 ")
 ;;1825
 ;;21,"63304-0776-90 ")
 ;;1826
 ;;21,"63304-0777-10 ")
 ;;1891
 ;;21,"63304-0777-90 ")
 ;;1892
 ;;21,"63304-0834-01 ")
 ;;1447
 ;;21,"63304-0834-10 ")
 ;;1448
 ;;21,"63304-0835-01 ")
 ;;1700
 ;;21,"63304-0835-10 ")
 ;;1701
 ;;21,"63304-0836-01 ")
 ;;1343
 ;;21,"63304-0836-10 ")
 ;;1344
 ;;21,"63304-0837-01 ")
 ;;1562
 ;;21,"63304-0837-10 ")
 ;;1563
 ;;21,"63629-1241-01 ")
 ;;2983
 ;;21,"63629-1242-01 ")
 ;;3009
 ;;21,"63629-1253-01 ")
 ;;3104
 ;;21,"63629-1253-02 ")
 ;;3105
 ;;21,"63629-1254-01 ")
 ;;3210
 ;;21,"63629-1254-02 ")
 ;;3211
 ;;21,"63629-1337-01 ")
 ;;3938
 ;;21,"63629-1337-02 ")
 ;;3939
 ;;21,"63629-1337-03 ")
 ;;3940
 ;;21,"63629-1338-01 ")
 ;;1107
 ;;21,"63629-1338-02 ")
 ;;1108
 ;;21,"63629-1338-03 ")
 ;;1109
 ;;21,"63629-1454-01 ")
 ;;131
 ;;21,"63629-1522-01 ")
 ;;1702
 ;;21,"63629-1522-02 ")
 ;;1703
 ;;21,"63629-1522-03 ")
 ;;1704
 ;;21,"63629-1522-04 ")
 ;;1705
 ;;21,"63629-1525-01 ")
 ;;1564
 ;;21,"63629-1525-02 ")
 ;;1565
 ;;21,"63629-1525-03 ")
 ;;1566
 ;;21,"63629-1526-01 ")
 ;;1345
 ;;21,"63629-1526-02 ")
 ;;1346
 ;;21,"63629-1526-03 ")
 ;;1347
 ;;21,"63629-1679-01 ")
 ;;405
 ;;21,"63629-1679-02 ")
 ;;406
 ;;21,"63629-1679-03 ")
 ;;407
 ;;21,"63629-1679-04 ")
 ;;408
 ;;21,"63629-1706-01 ")
 ;;929
 ;;21,"63629-1706-02 ")
 ;;930
 ;;21,"63629-1706-03 ")
 ;;931
 ;;21,"63629-1728-01 ")
 ;;787
 ;;21,"63629-1728-02 ")
 ;;788
 ;;21,"63629-1728-03 ")
 ;;789
 ;;21,"63629-1761-01 ")
 ;;2838
 ;;21,"63629-1809-01 ")
 ;;191
 ;;21,"63629-1809-02 ")
 ;;192
 ;;21,"63629-2541-01 ")
 ;;1210
 ;;21,"63629-2541-02 ")
 ;;1211
 ;;21,"63629-2541-03 ")
 ;;1212
 ;;21,"63629-2541-04 ")
 ;;1213
 ;;21,"63629-2672-01 ")
 ;;707
 ;;21,"63629-2672-02 ")
 ;;708
 ;;21,"63629-2672-03 ")
 ;;709
 ;;21,"63629-2679-01 ")
 ;;903
 ;;21,"63629-2680-01 ")
 ;;213
 ;;21,"63629-2680-02 ")
 ;;214
 ;;21,"63629-2680-03 ")
 ;;215
 ;;21,"63629-2688-01 ")
 ;;2096
 ;;21,"63629-2688-02 ")
 ;;2097
 ;;21,"63629-2688-03 ")
 ;;2098
 ;;21,"63629-2735-01 ")
 ;;236
 ;;21,"63629-2896-01 ")
 ;;999
 ;;21,"63629-2908-01 ")
 ;;2411
 ;;21,"63629-2908-02 ")
 ;;2412
 ;;21,"63629-2908-03 ")
 ;;2413
 ;;21,"63629-2908-04 ")
 ;;2414
 ;;21,"63629-2912-01 ")
 ;;3812
 ;;21,"63629-2912-02 ")
 ;;3813
 ;;21,"63629-2912-03 ")
 ;;3814
 ;;21,"63629-2912-04 ")
 ;;3815
 ;;21,"63629-2923-01 ")
 ;;860
 ;;21,"63629-2923-02 ")
 ;;861
 ;;21,"63629-2935-01 ")
 ;;2651
 ;;21,"63629-2935-02 ")
 ;;2652
 ;;21,"63629-2935-03 ")
 ;;2653
 ;;21,"63629-2935-04 ")
 ;;2654
 ;;21,"63629-3217-01 ")
 ;;302
 ;;21,"63629-3371-01 ")
 ;;4049
 ;;21,"63629-3371-02 ")
 ;;4050
 ;;21,"63629-3371-03 ")
 ;;4051
 ;;21,"63629-3371-04 ")
 ;;4052
 ;;21,"63629-3373-01 ")
 ;;3728
 ;;21,"63629-3373-02 ")
 ;;3729
 ;;21,"63629-3373-03 ")
 ;;3730
 ;;21,"63629-3373-04 ")
 ;;3731
 ;;21,"63629-3374-01 ")
 ;;3367
 ;;21,"63629-3374-02 ")
 ;;3368
 ;;21,"63629-3374-03 ")
 ;;3369
 ;;21,"63629-3374-04 ")
 ;;3370
 ;;21,"63629-3376-01 ")
 ;;3672
 ;;21,"63629-3376-02 ")
 ;;3673
 ;;21,"63629-3376-03 ")
 ;;3674
 ;;21,"63629-3376-04 ")
 ;;3675
 ;;21,"63629-3377-01 ")
 ;;3343
 ;;21,"63629-3377-02 ")
 ;;3344
 ;;21,"63629-3377-03 ")
 ;;3345
 ;;21,"63629-3377-04 ")
 ;;3346
 ;;21,"63629-3390-01 ")
 ;;3971
 ;;21,"63629-3390-02 ")
 ;;3972
 ;;21,"63629-3390-03 ")
 ;;3973
 ;;21,"63629-3390-04 ")
 ;;3974
 ;;21,"63629-3739-01 ")
 ;;577
 ;;21,"63629-3739-02 ")
 ;;578
 ;;21,"63739-0042-01 ")
 ;;970
 ;;21,"63739-0042-02 ")
 ;;958
 ;;21,"63739-0042-03 ")
 ;;969
 ;;21,"63739-0042-10 ")
 ;;963
 ;;21,"63739-0042-15 ")
 ;;964
 ;;21,"63739-0043-01 ")
 ;;1048
 ;;21,"63739-0043-02 ")
 ;;1027
 ;;21,"63739-0043-03 ")
 ;;1047
 ;;21,"63739-0043-10 ")
 ;;1034
 ;;21,"63739-0043-15 ")
 ;;1035
 ;;21,"63739-0302-10 ")
 ;;1271
 ;;21,"63739-0302-15 ")
 ;;1261
 ;;21,"63739-0322-10 ")
 ;;1404
 ;;21,"63739-0322-15 ")
 ;;1405
 ;;21,"63739-0323-10 ")
 ;;1624
 ;;21,"63739-0323-15 ")
 ;;1625
 ;;21,"63739-0348-10 ")
 ;;2718
 ;;21,"63739-0348-15 ")
 ;;2711
 ;;21,"63739-0349-10 ")
 ;;2099
 ;;21,"63739-0349-15 ")
 ;;1945
 ;;21,"63739-0350-10 ")
 ;;2415
 ;;21,"63739-0350-15 ")
 ;;2248
 ;;21,"63874-0058-10 ")
 ;;3010
 ;;21,"63874-0058-15 ")
 ;;3011
 ;;21,"63874-0058-30 ")
 ;;3012
 ;;21,"63874-0058-90 ")
 ;;3013
 ;;21,"63874-0347-01 ")
 ;;1110
 ;;21,"63874-0347-02 ")
 ;;1111
 ;;21,"63874-0347-05 ")
 ;;1112
 ;;21,"63874-0347-20 ")
 ;;1113
 ;;21,"63874-0347-30 ")
 ;;1114
 ;;21,"63874-0347-40 ")
 ;;1115
 ;;21,"63874-0347-42 ")
 ;;1116
 ;;21,"63874-0347-45 ")
 ;;1117
 ;;21,"63874-0347-90 ")
 ;;1118
 ;;21,"63874-0348-01 ")
 ;;1214
 ;;21,"63874-0348-10 ")
 ;;1215
 ;;21,"63874-0348-14 ")
 ;;1216
 ;;21,"63874-0348-20 ")
 ;;1217
 ;;21,"63874-0348-30 ")
 ;;1218
 ;;21,"63874-0348-60 ")
 ;;1219
 ;;21,"63874-0348-90 ")
 ;;1220
 ;;21,"63874-0349-01 ")
 ;;932
 ;;21,"63874-0349-10 ")
 ;;933
 ;;21,"63874-0349-30 ")
 ;;934
 ;;21,"63874-0379-10 ")
 ;;3034
 ;;21,"63874-0379-30 ")
 ;;3035
 ;;21,"63874-0423-01 ")
 ;;1706
 ;;21,"63874-0423-07 ")
 ;;1707
 ;;21,"63874-0423-10 ")
 ;;1708
 ;;21,"63874-0423-14 ")
 ;;1709
 ;;21,"63874-0423-20 ")
 ;;1710
 ;;21,"63874-0423-30 ")
 ;;1711
 ;;21,"63874-0423-60 ")
 ;;1712
 ;;21,"63874-0514-01 ")
 ;;2416
 ;;21,"63874-0514-10 ")
 ;;2417
 ;;21,"63874-0514-14 ")
 ;;2418
 ;;21,"63874-0514-15 ")
 ;;2419
 ;;21,"63874-0514-16 ")
 ;;2420
 ;;21,"63874-0514-20 ")
 ;;2421
 ;;21,"63874-0514-28 ")
 ;;2422
 ;;21,"63874-0514-30 ")
 ;;2423
 ;;21,"63874-0514-60 ")
 ;;2424
 ;;21,"63874-0514-90 ")
 ;;2425
 ;;21,"63874-0522-01 ")
 ;;2100
 ;;21,"63874-0522-08 ")
 ;;2101
 ;;21,"63874-0522-10 ")
 ;;2102
 ;;21,"63874-0522-14 ")
 ;;2103
 ;;21,"63874-0522-15 ")
 ;;2104
 ;;21,"63874-0522-20 ")
 ;;2105
 ;;21,"63874-0522-21 ")
 ;;2106
 ;;21,"63874-0522-28 ")
 ;;2107
 ;;21,"63874-0522-30 ")
 ;;2108
 ;;21,"63874-0522-60 ")
 ;;2109
 ;;21,"63874-0522-90 ")
 ;;2110
 ;;21,"63874-0558-01 ")
 ;;2839
 ;;21,"63874-0558-10 ")
 ;;2840
 ;;21,"63874-0558-14 ")
 ;;2841
 ;;21,"63874-0558-16 ")
 ;;2842
 ;;21,"63874-0558-28 ")
 ;;2843
 ;;21,"63874-0558-30 ")
 ;;2844
 ;;21,"63874-0558-60 ")
 ;;2845
 ;;21,"63874-0558-90 ")
 ;;2846
 ;;21,"63874-0581-10 ")
 ;;2951
 ;;21,"63874-0581-30 ")
 ;;2952
 ;;21,"63874-0581-90 ")
 ;;2953
 ;;21,"63874-0618-10 ")
 ;;2655
 ;;21,"63874-0618-15 ")
 ;;2656
 ;;21,"63874-0618-30 ")
 ;;2657
 ;;21,"63874-0618-40 ")
 ;;2658
 ;;21,"63874-0618-60 ")
 ;;2659
 ;;21,"63874-0655-01 ")
 ;;1348
 ;;21,"63874-0655-10 ")
 ;;1349
 ;;21,"63874-0655-14 ")
 ;;1350
 ;;21,"63874-0655-20 ")
 ;;1351
 ;;21,"63874-0655-30 ")
 ;;1352
 ;;21,"63874-0655-60 ")
 ;;1353
 ;;21,"63874-0987-01 ")
 ;;1567
 ;;21,"63874-0987-10 ")
 ;;1568
 ;;21,"63874-0987-14 ")
 ;;1569
 ;;21,"63874-0987-20 ")
 ;;1570
 ;;21,"63874-0987-30 ")
 ;;1571
 ;;21,"63874-0987-60 ")
 ;;1572
 ;;21,"63874-1114-09 ")
 ;;2502
 ;;21,"63874-1123-01 ")
 ;;790
 ;;21,"63874-1123-03 ")
 ;;791
 ;;21,"64455-0130-01 ")
 ;;3694
 ;;21,"64455-0131-01 ")
 ;;3703
 ;;21,"64455-0132-01 ")
 ;;3348
 ;;21,"64455-0133-01 ")
 ;;3353
 ;;21,"64455-0140-10 ")
 ;;1395
 ;;21,"64455-0140-11 ")
 ;;1396
 ;;21,"64455-0140-30 ")
 ;;1449
 ;;21,"64455-0140-90 ")
 ;;1450
 ;;21,"64455-0141-10 ")
 ;;1713
 ;;21,"64455-0141-11 ")
 ;;1614
 ;;21,"64455-0141-30 ")
 ;;1714
 ;;21,"64455-0141-90 ")
 ;;1715
 ;;21,"64455-0142-10 ")
 ;;1354
 ;;21,"64455-0142-11 ")
 ;;1250
 ;;21,"64455-0142-30 ")
 ;;1355
 ;;21,"64455-0142-90 ")
 ;;1356
 ;;21,"64455-0143-10 ")
 ;;1573
 ;;21,"64455-0143-11 ")
 ;;1475
 ;;21,"64455-0143-30 ")
 ;;1574
 ;;21,"64455-0143-90 ")
 ;;1575
 ;;21,"64455-0145-01 ")
 ;;307
 ;;21,"64455-0146-01 ")
 ;;303
 ;;21,"64679-0902-01 ")
 ;;1000
 ;;21,"64679-0902-02 ")
 ;;1001
 ;;21,"64679-0903-01 ")
 ;;1119
 ;;21,"64679-0903-02 ")
 ;;1120
 ;;21,"64679-0904-01 ")
 ;;1221
 ;;21,"64679-0904-02 ")
 ;;1222
 ;;21,"64679-0905-01 ")
 ;;935
 ;;21,"64679-0923-02 ")
 ;;1451
 ;;21,"64679-0923-03 ")
 ;;1452
 ;;21,"64679-0923-09 ")
 ;;1453
 ;;21,"64679-0924-02 ")
 ;;1716
 ;;21,"64679-0924-03 ")
 ;;1717
 ;;21,"64679-0924-09 ")
 ;;1718
 ;;21,"64679-0925-02 ")
 ;;1357
 ;;21,"64679-0925-03 ")
 ;;1358
 ;;21,"64679-0925-09 ")
 ;;1359
 ;;21,"64679-0926-02 ")
 ;;1576
 ;;21,"64679-0926-03 ")
 ;;1577
 ;;21,"64679-0926-09 ")
 ;;1578
 ;;21,"64679-0927-01 ")
 ;;2205
 ;;21,"64679-0927-02 ")
 ;;2206
 ;;21,"64679-0927-05 ")
 ;;2207
 ;;21,"64679-0927-09 ")
 ;;2208
 ;;21,"64679-0928-01 ")
 ;;2847
 ;;21,"64679-0928-05 ")
 ;;2848
 ;;21,"64679-0928-06 ")
 ;;2849
 ;;21,"64679-0928-10 ")
 ;;2850
 ;;21,"64679-0929-01 ")
 ;;2111
 ;;21,"64679-0929-05 ")
 ;;2112
 ;;21,"64679-0929-06 ")
 ;;2113
 ;;21,"64679-0929-10 ")
 ;;2114
 ;;21,"64679-0941-01 ")
 ;;2426
 ;;21,"64679-0941-05 ")
 ;;2427
 ;;21,"64679-0941-06 ")
 ;;2428
 ;;21,"64679-0941-10 ")
 ;;2429
 ;;21,"64679-0942-01 ")
 ;;2660
 ;;21,"64679-0942-02 ")
 ;;2661
 ;;21,"64679-0942-05 ")
 ;;2662
 ;;21,"64679-0942-09 ")
 ;;2663
 ;;21,"64679-0953-01 ")
 ;;2503
 ;;21,"64679-0953-02 ")
 ;;2504
 ;;21,"64679-0953-05 ")
 ;;2505
 ;;21,"64679-0953-09 ")
 ;;2506
 ;;21,"64764-0844-30 ")
 ;;3664
 ;;21,"64764-0884-30 ")
 ;;3665
 ;;21,"65162-0751-10 ")
 ;;904
 ;;21,"65162-0751-50 ")
 ;;905
 ;;21,"65162-0752-10 ")
 ;;710
 ;;21,"65162-0752-50 ")
 ;;711
 ;;21,"65162-0753-10 ")
 ;;792
 ;;21,"65162-0753-50 ")
 ;;793
 ;;21,"65162-0754-10 ")
 ;;862
 ;;21,"65162-0754-50 ")
 ;;863
 ;;21,"65243-0303-03 ")
 ;;2851
 ;;21,"65243-0303-09 ")
 ;;2852
 ;;21,"65243-0303-15 ")
 ;;2853
 ;;21,"65243-0303-45 ")
 ;;2854
 ;;21,"65243-0314-03 ")
 ;;2664
 ;;21,"65243-0314-09 ")
 ;;2665
 ;;21,"65243-0314-18 ")
 ;;2666
 ;;21,"65243-0314-45 ")
 ;;2667
 ;;21,"65243-0341-09 ")
 ;;2430
 ;;21,"65243-0341-18 ")
 ;;2431
 ;;21,"65243-0341-45 ")
 ;;2432
 ;;21,"65243-0358-03 ")
 ;;2115
 ;;21,"65243-0358-09 ")
 ;;2116
 ;;21,"65243-0358-45 ")
 ;;2117
 ;;21,"65597-0101-30 ")
 ;;3996