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

BGP44O8.m

Go to the documentation of this file.
BGP44O8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"60505-0266-01 ")
 ;;56
 ;;21,"60505-0266-05 ")
 ;;57
 ;;21,"60505-0267-01 ")
 ;;135
 ;;21,"60505-0267-05 ")
 ;;136
 ;;21,"60505-0268-01 ")
 ;;198
 ;;21,"60505-0268-05 ")
 ;;192
 ;;21,"60505-0271-01 ")
 ;;1680
 ;;21,"60505-0272-01 ")
 ;;1685
 ;;21,"60505-2510-02 ")
 ;;744
 ;;21,"60505-2510-04 ")
 ;;745
 ;;21,"60505-2511-02 ")
 ;;816
 ;;21,"60505-2511-04 ")
 ;;817
 ;;21,"60505-2512-02 ")
 ;;846
 ;;21,"60505-2512-08 ")
 ;;847
 ;;21,"60505-2684-08 ")
 ;;1056
 ;;21,"60505-2684-09 ")
 ;;1057
 ;;21,"60505-2685-01 ")
 ;;1235
 ;;21,"60505-2685-09 ")
 ;;1236
 ;;21,"60505-2686-09 ")
 ;;1290
 ;;21,"60505-2688-08 ")
 ;;1597
 ;;21,"60505-2688-09 ")
 ;;1598
 ;;21,"60505-2875-01 ")
 ;;1819
 ;;21,"60505-2876-00 ")
 ;;1847
 ;;21,"60505-2876-01 ")
 ;;1848
 ;;21,"60505-2876-05 ")
 ;;1849
 ;;21,"60505-2877-00 ")
 ;;1900
 ;;21,"60505-2877-01 ")
 ;;1901
 ;;21,"60505-2877-05 ")
 ;;1902
 ;;21,"60505-2878-00 ")
 ;;1954
 ;;21,"60505-2878-01 ")
 ;;1955
 ;;21,"60505-2878-05 ")
 ;;1956
 ;;21,"60505-2915-03 ")
 ;;3373
 ;;21,"60505-2915-09 ")
 ;;3374
 ;;21,"60505-2916-03 ")
 ;;3435
 ;;21,"60505-2916-09 ")
 ;;3436
 ;;21,"60505-2917-03 ")
 ;;3480
 ;;21,"60505-2917-09 ")
 ;;3481
 ;;21,"60505-3160-09 ")
 ;;2253
 ;;21,"60505-3161-03 ")
 ;;2329
 ;;21,"60505-3161-09 ")
 ;;2330
 ;;21,"60505-3162-03 ")
 ;;2412
 ;;21,"60505-3162-09 ")
 ;;2413
 ;;21,"60505-3547-03 ")
 ;;2082
 ;;21,"60505-3547-09 ")
 ;;2083
 ;;21,"60505-3548-03 ")
 ;;2144
 ;;21,"60505-3548-05 ")
 ;;2145
 ;;21,"60505-3548-09 ")
 ;;2146
 ;;21,"60505-3549-03 ")
 ;;2202
 ;;21,"60505-3549-05 ")
 ;;2203
 ;;21,"60505-3549-09 ")
 ;;2204
 ;;21,"60505-3603-03 ")
 ;;3292
 ;;21,"60505-3603-09 ")
 ;;3293
 ;;21,"60505-3604-03 ")
 ;;3321
 ;;21,"60505-3604-09 ")
 ;;3322
 ;;21,"60505-3758-05 ")
 ;;3253
 ;;21,"60505-3758-09 ")
 ;;3254
 ;;21,"60505-3759-05 ")
 ;;3267
 ;;21,"60505-3759-09 ")
 ;;3268
 ;;21,"60505-3760-09 ")
 ;;3274
 ;;21,"60760-0063-30 ")
 ;;2965
 ;;21,"60760-0064-30 ")
 ;;3071
 ;;21,"60760-0065-30 ")
 ;;3144
 ;;21,"60760-0128-30 ")
 ;;1279
 ;;21,"60760-0266-30 ")
 ;;1038
 ;;21,"60760-0267-30 ")
 ;;1260
 ;;21,"60760-0270-30 ")
 ;;1627
 ;;21,"60951-0185-92 ")
 ;;2257
 ;;21,"60951-0186-30 ")
 ;;2334
 ;;21,"60951-0186-92 ")
 ;;2335
 ;;21,"60951-0187-30 ")
 ;;2421
 ;;21,"60951-0187-92 ")
 ;;2422
 ;;21,"61570-0110-01 ")
 ;;1813
 ;;21,"61570-0111-01 ")
 ;;1836
 ;;21,"61570-0112-01 ")
 ;;1882
 ;;21,"61570-0120-01 ")
 ;;1942
 ;;21,"63304-0337-01 ")
 ;;1
 ;;21,"63304-0338-01 ")
 ;;67
 ;;21,"63304-0338-05 ")
 ;;68
 ;;21,"63304-0339-01 ")
 ;;128
 ;;21,"63304-0339-05 ")
 ;;129
 ;;21,"63304-0340-01 ")
 ;;190
 ;;21,"63304-0340-05 ")
 ;;191
 ;;21,"63304-0531-01 ")
 ;;930
 ;;21,"63304-0532-01 ")
 ;;1054
 ;;21,"63304-0532-10 ")
 ;;1055
 ;;21,"63304-0533-01 ")
 ;;1237
 ;;21,"63304-0533-10 ")
 ;;1238
 ;;21,"63304-0534-01 ")
 ;;1291
 ;;21,"63304-0534-10 ")
 ;;1292
 ;;21,"63304-0535-01 ")
 ;;1595
 ;;21,"63304-0535-10 ")
 ;;1596
 ;;21,"63304-0536-05 ")
 ;;2953
 ;;21,"63304-0537-05 ")
 ;;3026
 ;;21,"63304-0538-05 ")
 ;;3099
 ;;21,"63304-0548-90 ")
 ;;1723
 ;;21,"63304-0549-90 ")
 ;;1741
 ;;21,"63304-0550-90 ")
 ;;1778
 ;;21,"63304-0551-90 ")
 ;;1804
 ;;21,"63304-0599-01 ")
 ;;1487
 ;;21,"63629-1241-01 ")
 ;;1779
 ;;21,"63629-1242-01 ")
 ;;1780
 ;;21,"63629-1253-01 ")
 ;;1967
 ;;21,"63629-1253-02 ")
 ;;1968
 ;;21,"63629-1254-01 ")
 ;;1912
 ;;21,"63629-1254-02 ")
 ;;1913
 ;;21,"63629-1337-01 ")
 ;;2291
 ;;21,"63629-1337-02 ")
 ;;2292
 ;;21,"63629-1337-03 ")
 ;;2293
 ;;21,"63629-1338-01 ")
 ;;296
 ;;21,"63629-1338-02 ")
 ;;297
 ;;21,"63629-1338-03 ")
 ;;298
 ;;21,"63629-1454-01 ")
 ;;2714
 ;;21,"63629-1522-01 ")
 ;;469
 ;;21,"63629-1522-02 ")
 ;;470
 ;;21,"63629-1522-03 ")
 ;;471
 ;;21,"63629-1522-04 ")
 ;;472
 ;;21,"63629-1525-01 ")
 ;;663
 ;;21,"63629-1525-02 ")
 ;;664
 ;;21,"63629-1525-03 ")
 ;;665
 ;;21,"63629-1526-01 ")
 ;;553
 ;;21,"63629-1526-02 ")
 ;;554
 ;;21,"63629-1526-03 ")
 ;;555
 ;;21,"63629-1679-01 ")
 ;;2956
 ;;21,"63629-1679-02 ")
 ;;2957
 ;;21,"63629-1679-03 ")
 ;;2958
 ;;21,"63629-1679-04 ")
 ;;2959
 ;;21,"63629-1706-01 ")
 ;;387
 ;;21,"63629-1706-02 ")
 ;;388
 ;;21,"63629-1706-03 ")
 ;;389
 ;;21,"63629-1728-01 ")
 ;;142
 ;;21,"63629-1728-02 ")
 ;;143
 ;;21,"63629-1728-03 ")
 ;;144
 ;;21,"63629-1761-01 ")
 ;;1007
 ;;21,"63629-1809-01 ")
 ;;2840
 ;;21,"63629-1809-02 ")
 ;;2841
 ;;21,"63629-2541-01 ")
 ;;359
 ;;21,"63629-2541-02 ")
 ;;360
 ;;21,"63629-2541-03 ")
 ;;361
 ;;21,"63629-2541-04 ")
 ;;362
 ;;21,"63629-2672-01 ")
 ;;37
 ;;21,"63629-2672-02 ")
 ;;38
 ;;21,"63629-2672-03 ")
 ;;39
 ;;21,"63629-2679-01 ")
 ;;19
 ;;21,"63629-2680-01 ")
 ;;2857
 ;;21,"63629-2680-02 ")
 ;;2858
 ;;21,"63629-2680-03 ")
 ;;2859
 ;;21,"63629-2688-01 ")
 ;;1093
 ;;21,"63629-2688-02 ")
 ;;1094
 ;;21,"63629-2688-03 ")
 ;;1095
 ;;21,"63629-2735-01 ")
 ;;2870
 ;;21,"63629-2896-01 ")
 ;;242
 ;;21,"63629-2908-01 ")
 ;;1403
 ;;21,"63629-2908-02 ")
 ;;1404
 ;;21,"63629-2908-03 ")
 ;;1405
 ;;21,"63629-2908-04 ")
 ;;1406
 ;;21,"63629-2912-01 ")
 ;;2383
 ;;21,"63629-2912-02 ")
 ;;2384
 ;;21,"63629-2912-03 ")
 ;;2385
 ;;21,"63629-2912-04 ")
 ;;2386
 ;;21,"63629-2923-01 ")
 ;;177
 ;;21,"63629-2923-02 ")
 ;;178
 ;;21,"63629-2935-01 ")
 ;;1588
 ;;21,"63629-2935-02 ")
 ;;1589
 ;;21,"63629-2935-03 ")
 ;;1590
 ;;21,"63629-2935-04 ")
 ;;1591
 ;;21,"63629-3217-01 ")
 ;;2905
 ;;21,"63629-3344-01 ")
 ;;3495
 ;;21,"63629-3344-02 ")
 ;;3496
 ;;21,"63629-3371-01 ")
 ;;2575
 ;;21,"63629-3371-02 ")
 ;;2576
 ;;21,"63629-3371-03 ")
 ;;2577
 ;;21,"63629-3371-04 ")
 ;;2578
 ;;21,"63629-3373-01 ")
 ;;2105
 ;;21,"63629-3373-02 ")
 ;;2106
 ;;21,"63629-3373-03 ")
 ;;2107
 ;;21,"63629-3373-04 ")
 ;;2108
 ;;21,"63629-3374-01 ")
 ;;3280
 ;;21,"63629-3374-02 ")
 ;;3281
 ;;21,"63629-3374-03 ")
 ;;3282
 ;;21,"63629-3374-04 ")
 ;;3283
 ;;21,"63629-3376-01 ")
 ;;2050
 ;;21,"63629-3376-02 ")
 ;;2051
 ;;21,"63629-3376-03 ")
 ;;2052
 ;;21,"63629-3376-04 ")
 ;;2053
 ;;21,"63629-3377-01 ")
 ;;3261
 ;;21,"63629-3377-02 ")
 ;;3262
 ;;21,"63629-3377-03 ")
 ;;3263
 ;;21,"63629-3377-04 ")
 ;;3264
 ;;21,"63629-3390-01 ")
 ;;2469
 ;;21,"63629-3390-02 ")
 ;;2470
 ;;21,"63629-3390-03 ")
 ;;2471
 ;;21,"63629-3390-04 ")
 ;;2472
 ;;21,"63629-3739-01 ")
 ;;3138
 ;;21,"63629-3739-02 ")
 ;;3139
 ;;21,"63739-0349-10 ")
 ;;1154
 ;;21,"63739-0350-10 ")
 ;;1433
 ;;21,"63739-0513-10 ")
 ;;2288
 ;;21,"63739-0514-10 ")
 ;;2378
 ;;21,"63739-0515-10 ")
 ;;2446
 ;;21,"63739-0527-10 ")
 ;;3396
 ;;21,"63739-0528-10 ")
 ;;3449
 ;;21,"63739-0529-10 ")
 ;;3494
 ;;21,"63874-0058-10 ")
 ;;1784
 ;;21,"63874-0058-15 ")
 ;;1785
 ;;21,"63874-0058-30 ")
 ;;1786
 ;;21,"63874-0058-90 ")
 ;;1787
 ;;21,"63874-0347-01 ")
 ;;261
 ;;21,"63874-0347-02 ")
 ;;262
 ;;21,"63874-0347-05 ")
 ;;263
 ;;21,"63874-0347-20 ")
 ;;264
 ;;21,"63874-0347-30 ")
 ;;265
 ;;21,"63874-0347-40 ")
 ;;266
 ;;21,"63874-0347-42 ")
 ;;267
 ;;21,"63874-0347-45 ")
 ;;268
 ;;21,"63874-0347-90 ")
 ;;269
 ;;21,"63874-0348-01 ")
 ;;377
 ;;21,"63874-0348-10 ")
 ;;378
 ;;21,"63874-0348-14 ")
 ;;379
 ;;21,"63874-0348-20 ")
 ;;380
 ;;21,"63874-0348-30 ")
 ;;381
 ;;21,"63874-0348-60 ")
 ;;382
 ;;21,"63874-0348-90 ")
 ;;383
 ;;21,"63874-0349-01 ")
 ;;390
 ;;21,"63874-0349-10 ")
 ;;391
 ;;21,"63874-0349-30 ")
 ;;392
 ;;21,"63874-0379-10 ")
 ;;1711
 ;;21,"63874-0379-30 ")
 ;;1712
 ;;21,"63874-0423-01 ")
 ;;521
 ;;21,"63874-0423-07 ")
 ;;522
 ;;21,"63874-0423-10 ")
 ;;523
 ;;21,"63874-0423-14 ")
 ;;524
 ;;21,"63874-0423-20 ")
 ;;525
 ;;21,"63874-0423-30 ")
 ;;526
 ;;21,"63874-0423-60 ")
 ;;527
 ;;21,"63874-0514-01 ")
 ;;1350
 ;;21,"63874-0514-10 ")
 ;;1351
 ;;21,"63874-0514-14 ")
 ;;1352
 ;;21,"63874-0514-15 ")
 ;;1353
 ;;21,"63874-0514-16 ")
 ;;1354
 ;;21,"63874-0514-20 ")
 ;;1355
 ;;21,"63874-0514-28 ")
 ;;1356
 ;;21,"63874-0514-30 ")
 ;;1357
 ;;21,"63874-0514-60 ")
 ;;1358
 ;;21,"63874-0514-90 ")
 ;;1359
 ;;21,"63874-0522-01 ")
 ;;1191
 ;;21,"63874-0522-08 ")
 ;;1192
 ;;21,"63874-0522-10 ")
 ;;1193
 ;;21,"63874-0522-14 ")
 ;;1194
 ;;21,"63874-0522-15 ")
 ;;1195
 ;;21,"63874-0522-20 ")
 ;;1196
 ;;21,"63874-0522-21 ")
 ;;1197
 ;;21,"63874-0522-28 ")
 ;;1198
 ;;21,"63874-0522-30 ")
 ;;1199
 ;;21,"63874-0522-60 ")
 ;;1200
 ;;21,"63874-0522-90 ")
 ;;1201
 ;;21,"63874-0558-01 ")
 ;;1061
 ;;21,"63874-0558-10 ")
 ;;1062
 ;;21,"63874-0558-14 ")
 ;;1063
 ;;21,"63874-0558-16 ")
 ;;1064
 ;;21,"63874-0558-28 ")
 ;;1065
 ;;21,"63874-0558-30 ")
 ;;1066
 ;;21,"63874-0558-60 ")
 ;;1067
 ;;21,"63874-0558-90 ")
 ;;1068
 ;;21,"63874-0581-10 ")
 ;;1727
 ;;21,"63874-0581-30 ")
 ;;1728
 ;;21,"63874-0581-90 ")
 ;;1729
 ;;21,"63874-0618-10 ")
 ;;1638
 ;;21,"63874-0618-15 ")
 ;;1639
 ;;21,"63874-0618-30 ")
 ;;1640
 ;;21,"63874-0618-40 ")
 ;;1641
 ;;21,"63874-0618-60 ")
 ;;1642
 ;;21,"63874-0655-01 ")
 ;;593
 ;;21,"63874-0655-10 ")
 ;;594
 ;;21,"63874-0655-14 ")
 ;;595
 ;;21,"63874-0655-20 ")
 ;;596
 ;;21,"63874-0655-30 ")
 ;;597
 ;;21,"63874-0655-60 ")
 ;;598
 ;;21,"63874-0987-01 ")
 ;;707
 ;;21,"63874-0987-10 ")
 ;;708
 ;;21,"63874-0987-14 ")
 ;;709
 ;;21,"63874-0987-20 ")
 ;;710
 ;;21,"63874-0987-30 ")
 ;;711
 ;;21,"63874-0987-60 ")
 ;;712
 ;;21,"63874-1114-09 ")
 ;;1502
 ;;21,"63874-1123-01 ")
 ;;102
 ;;21,"63874-1123-03 ")
 ;;103
 ;;21,"64455-0140-30 ")
 ;;447
 ;;21,"64455-0140-90 ")
 ;;448
 ;;21,"64455-0141-10 ")
 ;;542
 ;;21,"64455-0141-30 ")
 ;;543
 ;;21,"64455-0141-90 ")
 ;;544
 ;;21,"64455-0142-10 ")
 ;;641
 ;;21,"64455-0142-30 ")
 ;;642
 ;;21,"64455-0142-90 ")
 ;;643
 ;;21,"64455-0143-10 ")
 ;;733
 ;;21,"64455-0143-30 ")
 ;;734
 ;;21,"64455-0143-90 ")
 ;;735
 ;;21,"64455-0146-01 ")
 ;;2913
 ;;21,"64679-0902-01 ")
 ;;223
 ;;21,"64679-0902-02 ")
 ;;224
 ;;21,"64679-0903-01 ")
 ;;299
 ;;21,"64679-0903-02 ")
 ;;300
 ;;21,"64679-0904-01 ")
 ;;346
 ;;21,"64679-0904-02 ")
 ;;347
 ;;21,"64679-0905-01 ")
 ;;406
 ;;21,"64679-0923-02 ")
 ;;412
 ;;21,"64679-0923-03 ")
 ;;413
 ;;21,"64679-0923-09 ")
 ;;414
 ;;21,"64679-0924-02 ")
 ;;473
 ;;21,"64679-0924-03 ")
 ;;474
 ;;21,"64679-0924-09 ")
 ;;475
 ;;21,"64679-0925-02 ")
 ;;570
 ;;21,"64679-0925-03 ")
 ;;571
 ;;21,"64679-0925-09 ")
 ;;572
 ;;21,"64679-0926-02 ")
 ;;666
 ;;21,"64679-0926-03 ")
 ;;667
 ;;21,"64679-0926-09 ")
 ;;668
 ;;21,"64679-0927-01 ")
 ;;935
 ;;21,"64679-0927-02 ")
 ;;884
 ;;21,"64679-0927-05 ")
 ;;885
 ;;21,"64679-0927-09 ")
 ;;886
 ;;21,"64679-0928-01 ")
 ;;969
 ;;21,"64679-0928-05 ")
 ;;970
 ;;21,"64679-0928-06 ")
 ;;971
 ;;21,"64679-0928-10 ")
 ;;972
 ;;21,"64679-0929-01 ")
 ;;1155
 ;;21,"64679-0929-05 ")
 ;;1156
 ;;21,"64679-0929-06 ")
 ;;1157
 ;;21,"64679-0929-10 ")
 ;;1158
 ;;21,"64679-0941-01 ")
 ;;1429
 ;;21,"64679-0941-05 ")
 ;;1430
 ;;21,"64679-0941-06 ")
 ;;1431
 ;;21,"64679-0941-10 ")
 ;;1432
 ;;21,"64679-0942-01 ")
 ;;1536
 ;;21,"64679-0942-02 ")
 ;;1537
 ;;21,"64679-0942-05 ")
 ;;1538
 ;;21,"64679-0942-09 ")
 ;;1539
 ;;21,"64679-0953-01 ")
 ;;1488
 ;;21,"64679-0953-02 ")
 ;;1489
 ;;21,"64679-0953-05 ")
 ;;1490
 ;;21,"64679-0953-09 ")
 ;;1491
 ;;21,"64764-0844-30 ")
 ;;2030
 ;;21,"64764-0884-30 ")
 ;;2031
 ;;21,"64764-0944-30 ")
 ;;3246
 ;;21,"64764-0994-30 ")
 ;;3247
 ;;21,"65162-0751-10 ")
 ;;12
 ;;21,"65162-0751-50 ")
 ;;13
 ;;21,"65162-0752-10 ")
 ;;50
 ;;21,"65162-0752-50 ")
 ;;51
 ;;21,"65162-0753-10 ")
 ;;140
 ;;21,"65162-0753-50 ")
 ;;141
 ;;21,"65162-0754-10 ")
 ;;200
 ;;21,"65162-0754-50 ")
 ;;201
 ;;21,"65243-0303-03 ")
 ;;1069
 ;;21,"65243-0303-09 ")
 ;;1070
 ;;21,"65243-0303-15 ")
 ;;1071
 ;;21,"65243-0303-45 ")
 ;;1072
 ;;21,"65243-0314-03 ")
 ;;1599
 ;;21,"65243-0314-09 ")
 ;;1600
 ;;21,"65243-0314-18 ")
 ;;1601
 ;;21,"65243-0314-45 ")
 ;;1602
 ;;21,"65243-0341-09 ")
 ;;1360
 ;;21,"65243-0341-18 ")
 ;;1361
 ;;21,"65243-0341-45 ")
 ;;1362
 ;;21,"65243-0358-03 ")
 ;;1226
 ;;21,"65243-0358-09 ")
 ;;1227
 ;;21,"65243-0358-45 ")
 ;;1228
 ;;21,"65597-0101-30 ")
 ;;2458
 ;;21,"65597-0103-10 ")
 ;;2464
 ;;21,"65597-0103-30 ")
 ;;2465
 ;;21,"65597-0103-90 ")
 ;;2466
 ;;21,"65597-0104-10 ")
 ;;2494
 ;;21,"65597-0104-30 ")
 ;;2495
 ;;21,"65597-0104-90 ")
 ;;2496
 ;;21,"65597-0105-30 ")
 ;;3517
 ;;21,"65597-0105-90 ")
 ;;3518
 ;;21,"65597-0106-30 ")
 ;;3525
 ;;21,"65597-0106-90 ")
 ;;3526
 ;;21,"65597-0107-30 ")
 ;;3537
 ;;21,"65597-0107-90 ")
 ;;3538
 ;;21,"65597-0110-30 ")
 ;;3217
 ;;21,"65597-0110-90 ")
 ;;3218
 ;;21,"65597-0111-30 ")
 ;;3221
 ;;21,"65597-0111-90 ")
 ;;3222
 ;;21,"65597-0112-30 ")
 ;;3219
 ;;21,"65597-0112-90 ")
 ;;3220
 ;;21,"65597-0113-30 ")
 ;;3224
 ;;21,"65597-0113-90 ")
 ;;3225
 ;;21,"65597-0114-30 ")
 ;;3731
 ;;21,"65597-0114-90 ")
 ;;3732