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

BGP0ZD9.m

Go to the documentation of this file.
BGP0ZD9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"63874-0362-30 ")
 ;;1395
 ;;21,"63874-0362-36 ")
 ;;1396
 ;;21,"63874-0362-40 ")
 ;;1397
 ;;21,"63874-0362-42 ")
 ;;1398
 ;;21,"63874-0362-50 ")
 ;;1399
 ;;21,"63874-0362-56 ")
 ;;1400
 ;;21,"63874-0362-60 ")
 ;;1401
 ;;21,"63874-0362-90 ")
 ;;1402
 ;;21,"63874-0394-01 ")
 ;;681
 ;;21,"63874-0394-02 ")
 ;;682
 ;;21,"63874-0394-15 ")
 ;;674
 ;;21,"63874-0394-20 ")
 ;;675
 ;;21,"63874-0394-21 ")
 ;;676
 ;;21,"63874-0394-30 ")
 ;;677
 ;;21,"63874-0394-40 ")
 ;;678
 ;;21,"63874-0394-50 ")
 ;;679
 ;;21,"63874-0394-60 ")
 ;;680
 ;;21,"63874-0395-01 ")
 ;;696
 ;;21,"63874-0395-07 ")
 ;;683
 ;;21,"63874-0395-10 ")
 ;;684
 ;;21,"63874-0395-12 ")
 ;;685
 ;;21,"63874-0395-14 ")
 ;;686
 ;;21,"63874-0395-15 ")
 ;;687
 ;;21,"63874-0395-20 ")
 ;;688
 ;;21,"63874-0395-21 ")
 ;;689
 ;;21,"63874-0395-24 ")
 ;;690
 ;;21,"63874-0395-25 ")
 ;;691
 ;;21,"63874-0395-30 ")
 ;;692
 ;;21,"63874-0395-40 ")
 ;;693
 ;;21,"63874-0395-60 ")
 ;;694
 ;;21,"63874-0395-90 ")
 ;;695
 ;;21,"63874-0401-01 ")
 ;;416
 ;;21,"63874-0401-04 ")
 ;;417
 ;;21,"63874-0401-10 ")
 ;;405
 ;;21,"63874-0401-12 ")
 ;;406
 ;;21,"63874-0401-14 ")
 ;;407
 ;;21,"63874-0401-15 ")
 ;;408
 ;;21,"63874-0401-20 ")
 ;;409
 ;;21,"63874-0401-21 ")
 ;;410
 ;;21,"63874-0401-30 ")
 ;;411
 ;;21,"63874-0401-40 ")
 ;;412
 ;;21,"63874-0401-42 ")
 ;;413
 ;;21,"63874-0401-60 ")
 ;;414
 ;;21,"63874-0401-90 ")
 ;;415
 ;;21,"63874-0402-01 ")
 ;;428
 ;;21,"63874-0402-04 ")
 ;;429
 ;;21,"63874-0402-10 ")
 ;;418
 ;;21,"63874-0402-14 ")
 ;;419
 ;;21,"63874-0402-15 ")
 ;;420
 ;;21,"63874-0402-20 ")
 ;;421
 ;;21,"63874-0402-21 ")
 ;;422
 ;;21,"63874-0402-28 ")
 ;;423
 ;;21,"63874-0402-30 ")
 ;;424
 ;;21,"63874-0402-40 ")
 ;;425
 ;;21,"63874-0402-42 ")
 ;;426
 ;;21,"63874-0402-60 ")
 ;;430
 ;;21,"63874-0402-90 ")
 ;;427
 ;;21,"63874-0416-01 ")
 ;;1547
 ;;21,"63874-0416-20 ")
 ;;1544
 ;;21,"63874-0416-28 ")
 ;;1545
 ;;21,"63874-0416-30 ")
 ;;1546
 ;;21,"63874-0416-50 ")
 ;;1548
 ;;21,"63874-0418-20 ")
 ;;2382
 ;;21,"63874-0418-30 ")
 ;;2383
 ;;21,"63874-0426-01 ")
 ;;129
 ;;21,"63874-0426-03 ")
 ;;134
 ;;21,"63874-0426-04 ")
 ;;130
 ;;21,"63874-0426-10 ")
 ;;116
 ;;21,"63874-0426-12 ")
 ;;117
 ;;21,"63874-0426-14 ")
 ;;118
 ;;21,"63874-0426-15 ")
 ;;119
 ;;21,"63874-0426-20 ")
 ;;120
 ;;21,"63874-0426-21 ")
 ;;121
 ;;21,"63874-0426-28 ")
 ;;122
 ;;21,"63874-0426-30 ")
 ;;123
 ;;21,"63874-0426-40 ")
 ;;124
 ;;21,"63874-0426-50 ")
 ;;125
 ;;21,"63874-0426-60 ")
 ;;126
 ;;21,"63874-0426-72 ")
 ;;131
 ;;21,"63874-0426-74 ")
 ;;132
 ;;21,"63874-0426-77 ")
 ;;133
 ;;21,"63874-0426-80 ")
 ;;127
 ;;21,"63874-0426-90 ")
 ;;128
 ;;21,"63874-0450-01 ")
 ;;962
 ;;21,"63874-0450-03 ")
 ;;963
 ;;21,"63874-0450-12 ")
 ;;958
 ;;21,"63874-0450-15 ")
 ;;959
 ;;21,"63874-0450-20 ")
 ;;960
 ;;21,"63874-0450-30 ")
 ;;961
 ;;21,"63874-0472-01 ")
 ;;855
 ;;21,"63874-0472-03 ")
 ;;856
 ;;21,"63874-0472-10 ")
 ;;848
 ;;21,"63874-0472-12 ")
 ;;849
 ;;21,"63874-0472-15 ")
 ;;850
 ;;21,"63874-0472-20 ")
 ;;851
 ;;21,"63874-0472-21 ")
 ;;852
 ;;21,"63874-0472-30 ")
 ;;853
 ;;21,"63874-0472-50 ")
 ;;854
 ;;21,"63874-0495-01 ")
 ;;3490
 ;;21,"63874-0495-05 ")
 ;;3478
 ;;21,"63874-0495-07 ")
 ;;3479
 ;;21,"63874-0495-10 ")
 ;;3480
 ;;21,"63874-0495-12 ")
 ;;3481
 ;;21,"63874-0495-14 ")
 ;;3482
 ;;21,"63874-0495-15 ")
 ;;3483
 ;;21,"63874-0495-20 ")
 ;;3484
 ;;21,"63874-0495-21 ")
 ;;3485
 ;;21,"63874-0495-28 ")
 ;;3486
 ;;21,"63874-0495-30 ")
 ;;3487
 ;;21,"63874-0495-60 ")
 ;;3488
 ;;21,"63874-0495-90 ")
 ;;3489
 ;;21,"63874-0517-01 ")
 ;;3477
 ;;21,"63874-0517-10 ")
 ;;3466
 ;;21,"63874-0517-12 ")
 ;;3467
 ;;21,"63874-0517-14 ")
 ;;3468
 ;;21,"63874-0517-15 ")
 ;;3469
 ;;21,"63874-0517-20 ")
 ;;3470
 ;;21,"63874-0517-21 ")
 ;;3471
 ;;21,"63874-0517-25 ")
 ;;3472
 ;;21,"63874-0517-28 ")
 ;;3473
 ;;21,"63874-0517-30 ")
 ;;3474
 ;;21,"63874-0517-60 ")
 ;;3475
 ;;21,"63874-0517-90 ")
 ;;3476
 ;;21,"63874-0607-01 ")
 ;;1136
 ;;21,"63874-0607-06 ")
 ;;1126
 ;;21,"63874-0607-10 ")
 ;;1127
 ;;21,"63874-0607-12 ")
 ;;1128
 ;;21,"63874-0607-14 ")
 ;;1129
 ;;21,"63874-0607-15 ")
 ;;1130
 ;;21,"63874-0607-20 ")
 ;;1131
 ;;21,"63874-0607-30 ")
 ;;1132
 ;;21,"63874-0607-40 ")
 ;;1133
 ;;21,"63874-0607-50 ")
 ;;1134
 ;;21,"63874-0607-60 ")
 ;;1135
 ;;21,"63874-0687-20 ")
 ;;1239
 ;;21,"63874-0687-30 ")
 ;;1240
 ;;21,"63874-0984-10 ")
 ;;2918
 ;;21,"63874-0984-20 ")
 ;;2919
 ;;21,"63874-0984-28 ")
 ;;2920
 ;;21,"63874-0984-30 ")
 ;;2921
 ;;21,"63874-0984-45 ")
 ;;2922
 ;;21,"63874-0984-60 ")
 ;;2923
 ;;21,"63874-0984-84 ")
 ;;2924
 ;;21,"63874-0984-90 ")
 ;;2925
 ;;21,"63874-1055-01 ")
 ;;141
 ;;21,"63874-1055-02 ")
 ;;135
 ;;21,"63874-1055-03 ")
 ;;136
 ;;21,"63874-1055-04 ")
 ;;137
 ;;21,"63874-1055-05 ")
 ;;138
 ;;21,"63874-1055-06 ")
 ;;139
 ;;21,"63874-1055-09 ")
 ;;140
 ;;21,"64038-0030-01 ")
 ;;3535
 ;;21,"64038-0030-30 ")
 ;;3533
 ;;21,"64038-0030-60 ")
 ;;3534
 ;;21,"64038-0031-01 ")
 ;;3538
 ;;21,"64038-0031-30 ")
 ;;3536
 ;;21,"64038-0031-60 ")
 ;;3537
 ;;21,"64038-0049-01 ")
 ;;14
 ;;21,"64038-0049-30 ")
 ;;13
 ;;21,"64038-0050-01 ")
 ;;177
 ;;21,"64038-0050-60 ")
 ;;176
 ;;21,"64038-0051-01 ")
 ;;179
 ;;21,"64038-0051-60 ")
 ;;178
 ;;21,"64038-0071-01 ")
 ;;2058
 ;;21,"64038-0071-60 ")
 ;;2056
 ;;21,"64038-0071-90 ")
 ;;2057
 ;;21,"64038-0072-01 ")
 ;;2053
 ;;21,"64038-0072-60 ")
 ;;2052
 ;;21,"64038-0076-01 ")
 ;;2055
 ;;21,"64038-0076-60 ")
 ;;2054
 ;;21,"64038-0093-01 ")
 ;;2740
 ;;21,"64038-0093-60 ")
 ;;2739
 ;;21,"64038-0105-01 ")
 ;;1459
 ;;21,"64038-0105-30 ")
 ;;1457
 ;;21,"64038-0105-60 ")
 ;;1458
 ;;21,"64814-0695-60 ")
 ;;586
 ;;21,"65162-0076-10 ")
 ;;2452
 ;;21,"65162-0076-11 ")
 ;;2454
 ;;21,"65162-0077-10 ")
 ;;2455
 ;;21,"65162-0077-50 ")
 ;;2456
 ;;21,"65162-0078-10 ")
 ;;2458
 ;;21,"65162-0078-11 ")
 ;;2460
 ;;21,"65162-0078-50 ")
 ;;2459
 ;;21,"65162-0568-10 ")
 ;;1653
 ;;21,"65162-0568-50 ")
 ;;1654
 ;;21,"65162-0569-10 ")
 ;;1655
 ;;21,"65162-0569-50 ")
 ;;1656
 ;;21,"65162-0570-10 ")
 ;;1657
 ;;21,"65162-0570-50 ")
 ;;1658
 ;;21,"65169-0076-50 ")
 ;;2453
 ;;21,"65284-0312-60 ")
 ;;658
 ;;21,"65557-0400-05 ")
 ;;1691
 ;;21,"65557-0401-05 ")
 ;;1689
 ;;21,"65557-0402-05 ")
 ;;1690
 ;;21,"66105-0105-10 ")
 ;;3454
 ;;21,"66105-0106-10 ")
 ;;3455
 ;;21,"66105-0131-06 ")
 ;;303
 ;;21,"66105-0136-10 ")
 ;;1226
 ;;21,"66105-0143-10 ")
 ;;1225
 ;;21,"66257-0116-15 ")
 ;;2021
 ;;21,"66257-0116-20 ")
 ;;2022
 ;;21,"66257-0116-30 ")
 ;;2023
 ;;21,"66257-0116-40 ")
 ;;2024
 ;;21,"66257-0116-60 ")
 ;;2025
 ;;21,"66257-0116-90 ")
 ;;2026
 ;;21,"66257-0117-15 ")
 ;;2027
 ;;21,"66257-0117-20 ")
 ;;2028
 ;;21,"66257-0117-30 ")
 ;;2029
 ;;21,"66257-0117-40 ")
 ;;2030
 ;;21,"66257-0117-60 ")
 ;;2031
 ;;21,"66257-0117-90 ")
 ;;2032
 ;;21,"66257-0118-15 ")
 ;;2034
 ;;21,"66257-0118-20 ")
 ;;2035
 ;;21,"66257-0118-21 ")
 ;;2036
 ;;21,"66257-0118-30 ")
 ;;2037
 ;;21,"66257-0118-40 ")
 ;;2038
 ;;21,"66257-0118-60 ")
 ;;2039
 ;;21,"66257-0118-90 ")
 ;;2040
 ;;21,"66257-0963-00 ")
 ;;2041
 ;;21,"66257-0964-00 ")
 ;;2033
 ;;21,"66267-0046-14 ")
 ;;3539
 ;;21,"66267-0046-20 ")
 ;;3540
 ;;21,"66267-0046-30 ")
 ;;3541
 ;;21,"66267-0048-07 ")
 ;;3542
 ;;21,"66267-0048-10 ")
 ;;3543
 ;;21,"66267-0048-15 ")
 ;;3544
 ;;21,"66267-0048-20 ")
 ;;3545
 ;;21,"66267-0048-30 ")
 ;;3546
 ;;21,"66267-0065-14 ")
 ;;3328
 ;;21,"66267-0065-30 ")
 ;;3329
 ;;21,"66267-0065-60 ")
 ;;3330
 ;;21,"66267-0071-20 ")
 ;;185
 ;;21,"66267-0071-60 ")
 ;;186
 ;;21,"66267-0095-28 ")
 ;;482
 ;;21,"66267-0095-30 ")
 ;;483
 ;;21,"66267-0095-40 ")
 ;;484
 ;;21,"66267-0095-60 ")
 ;;485
 ;;21,"66267-0119-30 ")
 ;;727
 ;;21,"66267-0120-20 ")
 ;;728
 ;;21,"66267-0120-30 ")
 ;;729
 ;;21,"66267-0121-14 ")
 ;;731
 ;;21,"66267-0121-15 ")
 ;;732
 ;;21,"66267-0121-20 ")
 ;;733
 ;;21,"66267-0125-21 ")
 ;;2397
 ;;21,"66267-0126-21 ")
 ;;2398
 ;;21,"66267-0151-20 ")
 ;;2744
 ;;21,"66267-0151-30 ")
 ;;2745
 ;;21,"66267-0151-40 ")
 ;;2746
 ;;21,"66267-0151-60 ")
 ;;2747
 ;;21,"66267-0152-20 ")
 ;;2748
 ;;21,"66267-0152-30 ")
 ;;2749
 ;;21,"66267-0152-40 ")
 ;;2750
 ;;21,"66267-0152-60 ")
 ;;2751
 ;;21,"66267-0152-90 ")
 ;;2752
 ;;21,"66267-0153-10 ")
 ;;2753
 ;;21,"66267-0153-14 ")
 ;;2754
 ;;21,"66267-0153-15 ")
 ;;2755
 ;;21,"66267-0153-20 ")
 ;;2756
 ;;21,"66267-0153-30 ")
 ;;2757
 ;;21,"66267-0153-40 ")
 ;;2758
 ;;21,"66267-0153-42 ")
 ;;2759
 ;;21,"66267-0153-60 ")
 ;;2760
 ;;21,"66267-0153-90 ")
 ;;2761
 ;;21,"66267-0154-14 ")
 ;;3082
 ;;21,"66267-0154-20 ")
 ;;3083
 ;;21,"66267-0154-30 ")
 ;;3084
 ;;21,"66267-0154-60 ")
 ;;3085
 ;;21,"66267-0168-10 ")
 ;;1463
 ;;21,"66267-0168-14 ")
 ;;1464
 ;;21,"66267-0168-20 ")
 ;;1465
 ;;21,"66267-0168-30 ")
 ;;1466
 ;;21,"66267-0168-60 ")
 ;;1467
 ;;21,"66267-0168-90 ")
 ;;1468
 ;;21,"66267-0189-14 ")
 ;;1249
 ;;21,"66267-0189-20 ")
 ;;1250
 ;;21,"66267-0189-28 ")
 ;;1251
 ;;21,"66267-0190-30 ")
 ;;1252
 ;;21,"66267-0197-15 ")
 ;;1006
 ;;21,"66267-0197-20 ")
 ;;1007
 ;;21,"66267-0197-30 ")
 ;;1008
 ;;21,"66267-0197-40 ")
 ;;1009
 ;;21,"66267-0204-08 ")
 ;;900
 ;;21,"66267-0204-21 ")
 ;;901
 ;;21,"66267-0264-20 ")
 ;;1005
 ;;21,"66267-0358-30 ")
 ;;182
 ;;21,"66267-0358-60 ")
 ;;183
 ;;21,"66267-0358-90 ")
 ;;184
 ;;21,"66267-0407-14 ")
 ;;3274
 ;;21,"66267-0407-20 ")
 ;;3275
 ;;21,"66267-0407-30 ")
 ;;3276
 ;;21,"66267-0407-60 ")
 ;;3277
 ;;21,"66267-0418-20 ")
 ;;869
 ;;21,"66267-0482-20 ")
 ;;1165
 ;;21,"66267-0482-30 ")
 ;;1166
 ;;21,"66267-0482-40 ")
 ;;1167
 ;;21,"66267-0486-30 ")
 ;;1607
 ;;21,"66267-0520-30 ")
 ;;486
 ;;21,"66267-0529-20 ")
 ;;1168
 ;;21,"66267-0529-30 ")
 ;;1169
 ;;21,"66267-0926-00 ")
 ;;730
 ;;21,"66336-0030-12 ")
 ;;2291
 ;;21,"66336-0030-20 ")
 ;;2292
 ;;21,"66336-0030-21 ")
 ;;2293
 ;;21,"66336-0030-30 ")
 ;;2294
 ;;21,"66336-0030-40 ")
 ;;2295
 ;;21,"66336-0030-45 ")
 ;;2296
 ;;21,"66336-0030-60 ")
 ;;2297
 ;;21,"66336-0030-90 ")
 ;;2298
 ;;21,"66336-0238-28 ")
 ;;164
 ;;21,"66336-0238-30 ")
 ;;165
 ;;21,"66336-0316-14 ")
 ;;1153
 ;;21,"66336-0430-06 ")
 ;;2278
 ;;21,"66336-0430-20 ")
 ;;2279
 ;;21,"66336-0430-30 ")
 ;;2280
 ;;21,"66336-0430-40 ")
 ;;2281
 ;;21,"66336-0446-08 ")
 ;;863
 ;;21,"66336-0446-10 ")
 ;;864
 ;;21,"66336-0463-14 ")
 ;;166
 ;;21,"66336-0463-28 ")
 ;;167
 ;;21,"66336-0556-10 ")
 ;;2282
 ;;21,"66336-0556-16 ")
 ;;2283
 ;;21,"66336-0556-20 ")
 ;;2284
 ;;21,"66336-0556-21 ")
 ;;2285
 ;;21,"66336-0556-28 ")
 ;;2286
 ;;21,"66336-0556-30 ")
 ;;2287
 ;;21,"66336-0556-40 ")
 ;;2288
 ;;21,"66336-0556-60 ")
 ;;2289
 ;;21,"66336-0556-90 ")
 ;;2290
 ;;21,"66336-0667-21 ")
 ;;2392
 ;;21,"66336-0667-30 ")
 ;;2393
 ;;21,"66336-0676-10 ")
 ;;1424
 ;;21,"66336-0676-30 ")
 ;;1425
 ;;21,"66336-0676-60 ")
 ;;1426
 ;;21,"66336-0676-90 ")
 ;;1427
 ;;21,"66336-0684-30 ")
 ;;716
 ;;21,"66336-0686-15 ")
 ;;982
 ;;21,"66336-0686-60 ")
 ;;983
 ;;21,"66336-0722-14 ")
 ;;3325
 ;;21,"66336-0727-14 ")
 ;;3521
 ;;21,"66336-0727-15 ")
 ;;3522
 ;;21,"66336-0727-20 ")
 ;;3523
 ;;21,"66336-0804-30 ")
 ;;453
 ;;21,"66336-0804-60 ")
 ;;454
 ;;21,"66336-0815-10 ")
 ;;2677
 ;;21,"66336-0815-14 ")
 ;;2678
 ;;21,"66336-0815-15 ")
 ;;2679
 ;;21,"66336-0815-20 ")
 ;;2681
 ;;21,"66336-0815-30 ")
 ;;2682
 ;;21,"66336-0815-40 ")
 ;;2680
 ;;21,"66336-0815-60 ")
 ;;2683
 ;;21,"66336-0815-90 ")
 ;;2684
 ;;21,"66336-0816-20 ")
 ;;2672
 ;;21,"66336-0816-30 ")
 ;;2673
 ;;21,"66336-0817-20 ")
 ;;2674
 ;;21,"66336-0817-28 ")
 ;;2675
 ;;21,"66336-0817-30 ")
 ;;2676
 ;;21,"66336-0826-14 ")
 ;;3051
 ;;21,"66336-0826-15 ")
 ;;3052
 ;;21,"66336-0826-20 ")
 ;;3053
 ;;21,"66336-0826-30 ")
 ;;3054
 ;;21,"66336-0875-14 ")
 ;;3049
 ;;21,"66336-0875-20 ")
 ;;3050
 ;;21,"66336-0878-28 ")
 ;;450
 ;;21,"66336-0878-30 ")
 ;;451
 ;;21,"66336-0878-60 ")
 ;;452
 ;;21,"67253-0620-10 ")
 ;;2541
 ;;21,"67253-0620-11 ")
 ;;2542
 ;;21,"67253-0621-05 ")
 ;;2545
 ;;21,"67253-0621-10 ")
 ;;2546
 ;;21,"67253-0621-11 ")
 ;;2547
 ;;21,"67253-0622-03 ")
 ;;2549
 ;;21,"67253-0622-10 ")
 ;;2551
 ;;21,"67253-0622-50 ")
 ;;2552
 ;;21,"68115-0069-20 ")
 ;;3513
 ;;21,"68115-0069-30 ")
 ;;3514
 ;;21,"68115-0069-60 ")
 ;;3515
 ;;21,"68115-0070-00 ")
 ;;3520
 ;;21,"68115-0070-10 ")
 ;;3516
 ;;21,"68115-0070-15 ")
 ;;3517
 ;;21,"68115-0070-20 ")
 ;;3518
 ;;21,"68115-0070-30 ")
 ;;3519
 ;;21,"68115-0101-20 ")
 ;;8
 ;;21,"68115-0101-28 ")
 ;;9
 ;;21,"68115-0102-02 ")
 ;;154
 ;;21,"68115-0102-30 ")
 ;;155
 ;;21,"68115-0102-60 ")
 ;;156
 ;;21,"68115-0102-90 ")
 ;;157
 ;;21,"68115-0103-20 ")
 ;;158
 ;;21,"68115-0103-30 ")
 ;;159
 ;;21,"68115-0103-60 ")
 ;;160