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

BGP0ZD7.m

Go to the documentation of this file.
BGP0ZD7 ;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,"58016-0340-30 ")
 ;;1618
 ;;21,"58016-0340-40 ")
 ;;1619
 ;;21,"58016-0340-73 ")
 ;;1624
 ;;21,"58016-0340-89 ")
 ;;1623
 ;;21,"58016-0372-00 ")
 ;;2955
 ;;21,"58016-0372-20 ")
 ;;2949
 ;;21,"58016-0372-30 ")
 ;;2950
 ;;21,"58016-0372-40 ")
 ;;2951
 ;;21,"58016-0372-60 ")
 ;;2952
 ;;21,"58016-0372-84 ")
 ;;2953
 ;;21,"58016-0372-90 ")
 ;;2954
 ;;21,"58016-0375-00 ")
 ;;527
 ;;21,"58016-0375-14 ")
 ;;524
 ;;21,"58016-0375-20 ")
 ;;525
 ;;21,"58016-0375-21 ")
 ;;374
 ;;21,"58016-0375-28 ")
 ;;375
 ;;21,"58016-0375-30 ")
 ;;376
 ;;21,"58016-0375-40 ")
 ;;377
 ;;21,"58016-0375-60 ")
 ;;378
 ;;21,"58016-0375-90 ")
 ;;526
 ;;21,"58016-0380-00 ")
 ;;2431
 ;;21,"58016-0380-10 ")
 ;;2418
 ;;21,"58016-0380-12 ")
 ;;2419
 ;;21,"58016-0380-14 ")
 ;;2420
 ;;21,"58016-0380-15 ")
 ;;2421
 ;;21,"58016-0380-20 ")
 ;;2422
 ;;21,"58016-0380-21 ")
 ;;2423
 ;;21,"58016-0380-24 ")
 ;;2424
 ;;21,"58016-0380-28 ")
 ;;2425
 ;;21,"58016-0380-30 ")
 ;;2426
 ;;21,"58016-0380-40 ")
 ;;2427
 ;;21,"58016-0380-50 ")
 ;;2428
 ;;21,"58016-0380-60 ")
 ;;2429
 ;;21,"58016-0380-90 ")
 ;;2430
 ;;21,"58016-0381-00 ")
 ;;217
 ;;21,"58016-0381-02 ")
 ;;218
 ;;21,"58016-0381-03 ")
 ;;219
 ;;21,"58016-0381-10 ")
 ;;68
 ;;21,"58016-0381-15 ")
 ;;69
 ;;21,"58016-0381-20 ")
 ;;70
 ;;21,"58016-0381-28 ")
 ;;213
 ;;21,"58016-0381-30 ")
 ;;71
 ;;21,"58016-0381-60 ")
 ;;214
 ;;21,"58016-0381-73 ")
 ;;221
 ;;21,"58016-0381-80 ")
 ;;215
 ;;21,"58016-0381-89 ")
 ;;220
 ;;21,"58016-0381-90 ")
 ;;216
 ;;21,"58016-0382-00 ")
 ;;223
 ;;21,"58016-0382-02 ")
 ;;224
 ;;21,"58016-0382-03 ")
 ;;225
 ;;21,"58016-0382-10 ")
 ;;72
 ;;21,"58016-0382-14 ")
 ;;73
 ;;21,"58016-0382-15 ")
 ;;74
 ;;21,"58016-0382-20 ")
 ;;75
 ;;21,"58016-0382-28 ")
 ;;76
 ;;21,"58016-0382-30 ")
 ;;77
 ;;21,"58016-0382-40 ")
 ;;78
 ;;21,"58016-0382-60 ")
 ;;79
 ;;21,"58016-0382-73 ")
 ;;227
 ;;21,"58016-0382-80 ")
 ;;222
 ;;21,"58016-0382-89 ")
 ;;226
 ;;21,"58016-0382-90 ")
 ;;80
 ;;21,"58016-0444-00 ")
 ;;27
 ;;21,"58016-0444-20 ")
 ;;22
 ;;21,"58016-0444-30 ")
 ;;23
 ;;21,"58016-0444-40 ")
 ;;24
 ;;21,"58016-0444-60 ")
 ;;25
 ;;21,"58016-0444-90 ")
 ;;26
 ;;21,"58016-0489-00 ")
 ;;239
 ;;21,"58016-0489-02 ")
 ;;240
 ;;21,"58016-0489-03 ")
 ;;241
 ;;21,"58016-0489-10 ")
 ;;229
 ;;21,"58016-0489-14 ")
 ;;230
 ;;21,"58016-0489-15 ")
 ;;231
 ;;21,"58016-0489-20 ")
 ;;232
 ;;21,"58016-0489-21 ")
 ;;233
 ;;21,"58016-0489-30 ")
 ;;234
 ;;21,"58016-0489-40 ")
 ;;235
 ;;21,"58016-0489-50 ")
 ;;236
 ;;21,"58016-0489-60 ")
 ;;237
 ;;21,"58016-0489-73 ")
 ;;243
 ;;21,"58016-0489-89 ")
 ;;242
 ;;21,"58016-0489-90 ")
 ;;238
 ;;21,"58016-0496-00 ")
 ;;2438
 ;;21,"58016-0496-15 ")
 ;;2432
 ;;21,"58016-0496-20 ")
 ;;2433
 ;;21,"58016-0496-30 ")
 ;;2434
 ;;21,"58016-0496-40 ")
 ;;2435
 ;;21,"58016-0496-50 ")
 ;;2436
 ;;21,"58016-0496-60 ")
 ;;2437
 ;;21,"58016-0498-00 ")
 ;;333
 ;;21,"58016-0498-30 ")
 ;;330
 ;;21,"58016-0498-60 ")
 ;;331
 ;;21,"58016-0498-90 ")
 ;;332
 ;;21,"58016-0574-00 ")
 ;;3306
 ;;21,"58016-0574-02 ")
 ;;3307
 ;;21,"58016-0574-03 ")
 ;;3308
 ;;21,"58016-0574-10 ")
 ;;3296
 ;;21,"58016-0574-12 ")
 ;;3297
 ;;21,"58016-0574-14 ")
 ;;3298
 ;;21,"58016-0574-15 ")
 ;;3299
 ;;21,"58016-0574-20 ")
 ;;3300
 ;;21,"58016-0574-28 ")
 ;;3301
 ;;21,"58016-0574-30 ")
 ;;3302
 ;;21,"58016-0574-40 ")
 ;;3303
 ;;21,"58016-0574-60 ")
 ;;3304
 ;;21,"58016-0574-73 ")
 ;;3310
 ;;21,"58016-0574-89 ")
 ;;3309
 ;;21,"58016-0574-90 ")
 ;;3305
 ;;21,"58016-0577-00 ")
 ;;325
 ;;21,"58016-0577-02 ")
 ;;326
 ;;21,"58016-0577-03 ")
 ;;327
 ;;21,"58016-0577-30 ")
 ;;322
 ;;21,"58016-0577-60 ")
 ;;323
 ;;21,"58016-0577-73 ")
 ;;329
 ;;21,"58016-0577-89 ")
 ;;328
 ;;21,"58016-0577-90 ")
 ;;324
 ;;21,"58016-0592-00 ")
 ;;1329
 ;;21,"58016-0592-15 ")
 ;;1324
 ;;21,"58016-0592-20 ")
 ;;1325
 ;;21,"58016-0592-30 ")
 ;;1326
 ;;21,"58016-0592-60 ")
 ;;1327
 ;;21,"58016-0592-90 ")
 ;;1328
 ;;21,"58016-0614-00 ")
 ;;1075
 ;;21,"58016-0614-30 ")
 ;;1072
 ;;21,"58016-0614-60 ")
 ;;1073
 ;;21,"58016-0614-90 ")
 ;;1074
 ;;21,"58016-0619-00 ")
 ;;1211
 ;;21,"58016-0619-02 ")
 ;;1212
 ;;21,"58016-0619-06 ")
 ;;1198
 ;;21,"58016-0619-10 ")
 ;;1199
 ;;21,"58016-0619-12 ")
 ;;1200
 ;;21,"58016-0619-14 ")
 ;;1201
 ;;21,"58016-0619-15 ")
 ;;1202
 ;;21,"58016-0619-20 ")
 ;;1203
 ;;21,"58016-0619-24 ")
 ;;1204
 ;;21,"58016-0619-28 ")
 ;;1205
 ;;21,"58016-0619-30 ")
 ;;1206
 ;;21,"58016-0619-40 ")
 ;;1207
 ;;21,"58016-0619-50 ")
 ;;1208
 ;;21,"58016-0619-60 ")
 ;;1209
 ;;21,"58016-0619-90 ")
 ;;1210
 ;;21,"58016-0628-00 ")
 ;;1217
 ;;21,"58016-0628-02 ")
 ;;1218
 ;;21,"58016-0628-03 ")
 ;;1219
 ;;21,"58016-0628-28 ")
 ;;1213
 ;;21,"58016-0628-30 ")
 ;;1214
 ;;21,"58016-0628-60 ")
 ;;1215
 ;;21,"58016-0628-73 ")
 ;;1221
 ;;21,"58016-0628-89 ")
 ;;1220
 ;;21,"58016-0628-90 ")
 ;;1216
 ;;21,"58016-0638-00 ")
 ;;1335
 ;;21,"58016-0638-02 ")
 ;;1336
 ;;21,"58016-0638-15 ")
 ;;1330
 ;;21,"58016-0638-20 ")
 ;;1331
 ;;21,"58016-0638-90 ")
 ;;1334
 ;;21,"58016-0647-00 ")
 ;;531
 ;;21,"58016-0647-02 ")
 ;;532
 ;;21,"58016-0647-30 ")
 ;;528
 ;;21,"58016-0647-60 ")
 ;;529
 ;;21,"58016-0647-90 ")
 ;;530
 ;;21,"58016-0666-00 ")
 ;;1516
 ;;21,"58016-0666-02 ")
 ;;1517
 ;;21,"58016-0666-03 ")
 ;;1519
 ;;21,"58016-0666-07 ")
 ;;1503
 ;;21,"58016-0666-10 ")
 ;;1504
 ;;21,"58016-0666-14 ")
 ;;1505
 ;;21,"58016-0666-15 ")
 ;;1506
 ;;21,"58016-0666-20 ")
 ;;1507
 ;;21,"58016-0666-21 ")
 ;;1508
 ;;21,"58016-0666-28 ")
 ;;1509
 ;;21,"58016-0666-30 ")
 ;;1510
 ;;21,"58016-0666-40 ")
 ;;1511
 ;;21,"58016-0666-45 ")
 ;;1512
 ;;21,"58016-0666-50 ")
 ;;1513
 ;;21,"58016-0666-60 ")
 ;;1514
 ;;21,"58016-0666-73 ")
 ;;1521
 ;;21,"58016-0666-89 ")
 ;;1520
 ;;21,"58016-0666-90 ")
 ;;1515
 ;;21,"58016-0666-97 ")
 ;;1518
 ;;21,"58016-0694-00 ")
 ;;3125
 ;;21,"58016-0694-02 ")
 ;;3126
 ;;21,"58016-0694-03 ")
 ;;3127
 ;;21,"58016-0694-12 ")
 ;;3119
 ;;21,"58016-0694-14 ")
 ;;3120
 ;;21,"58016-0694-20 ")
 ;;3121
 ;;21,"58016-0694-30 ")
 ;;3122
 ;;21,"58016-0694-60 ")
 ;;3123
 ;;21,"58016-0694-73 ")
 ;;3129
 ;;21,"58016-0694-89 ")
 ;;3128
 ;;21,"58016-0694-90 ")
 ;;3124
 ;;21,"58016-0705-00 ")
 ;;1501
 ;;21,"58016-0705-07 ")
 ;;1489
 ;;21,"58016-0705-10 ")
 ;;1490
 ;;21,"58016-0705-14 ")
 ;;1491
 ;;21,"58016-0705-15 ")
 ;;1492
 ;;21,"58016-0705-20 ")
 ;;1493
 ;;21,"58016-0705-21 ")
 ;;1494
 ;;21,"58016-0705-28 ")
 ;;1495
 ;;21,"58016-0705-30 ")
 ;;1496
 ;;21,"58016-0705-40 ")
 ;;1497
 ;;21,"58016-0705-50 ")
 ;;1498
 ;;21,"58016-0705-60 ")
 ;;1499
 ;;21,"58016-0705-90 ")
 ;;1500
 ;;21,"58016-0705-97 ")
 ;;1502
 ;;21,"58016-0743-00 ")
 ;;1032
 ;;21,"58016-0743-02 ")
 ;;1033
 ;;21,"58016-0743-03 ")
 ;;1034
 ;;21,"58016-0743-12 ")
 ;;1026
 ;;21,"58016-0743-15 ")
 ;;1027
 ;;21,"58016-0743-20 ")
 ;;1028
 ;;21,"58016-0743-30 ")
 ;;1029
 ;;21,"58016-0743-60 ")
 ;;1030
 ;;21,"58016-0743-73 ")
 ;;1036
 ;;21,"58016-0743-89 ")
 ;;1035
 ;;21,"58016-0743-90 ")
 ;;1031
 ;;21,"58016-0750-00 ")
 ;;1633
 ;;21,"58016-0750-10 ")
 ;;1625
 ;;21,"58016-0750-12 ")
 ;;1626
 ;;21,"58016-0750-14 ")
 ;;1627
 ;;21,"58016-0750-15 ")
 ;;1629
 ;;21,"58016-0750-20 ")
 ;;1628
 ;;21,"58016-0750-28 ")
 ;;1630
 ;;21,"58016-0750-30 ")
 ;;1631
 ;;21,"58016-0750-40 ")
 ;;1632
 ;;21,"58016-0754-30 ")
 ;;2439
 ;;21,"58016-4046-01 ")
 ;;228
 ;;21,"58016-6038-30 ")
 ;;1332
 ;;21,"58016-6038-60 ")
 ;;1333
 ;;21,"58016-6449-01 ")
 ;;295
 ;;21,"58016-6462-01 ")
 ;;294
 ;;21,"58016-9413-01 ")
 ;;890
 ;;21,"58177-0301-04 ")
 ;;823
 ;;21,"58177-0302-04 ")
 ;;2933
 ;;21,"58177-0303-04 ")
 ;;2934
 ;;21,"58468-2965-04 ")
 ;;2825
 ;;21,"58768-0100-02 ")
 ;;264
 ;;21,"58768-0100-05 ")
 ;;265
 ;;21,"58864-0026-30 ")
 ;;2111
 ;;21,"58864-0287-60 ")
 ;;2018
 ;;21,"58864-0287-90 ")
 ;;2019
 ;;21,"58864-0296-30 ")
 ;;737
 ;;21,"58864-0296-42 ")
 ;;738
 ;;21,"58864-0296-90 ")
 ;;739
 ;;21,"58864-0359-01 ")
 ;;2772
 ;;21,"58864-0359-60 ")
 ;;2770
 ;;21,"58864-0359-90 ")
 ;;2771
 ;;21,"58864-0360-60 ")
 ;;2782
 ;;21,"58864-0360-90 ")
 ;;2783
 ;;21,"58864-0400-14 ")
 ;;2788
 ;;21,"58864-0400-20 ")
 ;;2791
 ;;21,"58864-0400-30 ")
 ;;2795
 ;;21,"58864-0400-60 ")
 ;;2798
 ;;21,"58864-0445-15 ")
 ;;2763
 ;;21,"58864-0485-60 ")
 ;;1015
 ;;21,"58864-0643-14 ")
 ;;1477
 ;;21,"58864-0643-30 ")
 ;;1478
 ;;21,"58864-0691-30 ")
 ;;3549
 ;;21,"58864-0709-30 ")
 ;;3554
 ;;21,"58864-0751-30 ")
 ;;3090
 ;;21,"58864-0752-30 ")
 ;;3098
 ;;21,"58868-0643-20 ")
 ;;1474
 ;;21,"59591-0154-74 ")
 ;;953
 ;;21,"59591-0170-74 ")
 ;;952
 ;;21,"59591-0196-74 ")
 ;;3403
 ;;21,"59630-0400-10 ")
 ;;1099
 ;;21,"59762-3724-01 ")
 ;;1569
 ;;21,"59762-3724-03 ")
 ;;1570
 ;;21,"59762-5002-01 ")
 ;;3227
 ;;21,"59762-5002-02 ")
 ;;3228
 ;;21,"59762-7378-02 ")
 ;;1713
 ;;21,"59762-7379-01 ")
 ;;1714
 ;;21,"59762-7379-02 ")
 ;;1715
 ;;21,"59762-7380-01 ")
 ;;1716
 ;;21,"59762-7380-02 ")
 ;;1717
 ;;21,"59762-7478-01 ")
 ;;1712
 ;;21,"59930-1508-01 ")
 ;;3236
 ;;21,"59930-1508-02 ")
 ;;3237
 ;;21,"60258-0090-08 ")
 ;;3362
 ;;21,"60258-0106-01 ")
 ;;3445
 ;;21,"60345-0815-20 ")
 ;;2844
 ;;21,"60346-0637-14 ")
 ;;3189
 ;;21,"60346-0684-20 ")
 ;;772
 ;;21,"60346-0684-28 ")
 ;;773
 ;;21,"60346-0684-30 ")
 ;;775
 ;;21,"60346-0687-20 ")
 ;;780
 ;;21,"60346-0722-60 ")
 ;;3355
 ;;21,"60426-0172-60 ")
 ;;922
 ;;21,"60429-0092-30 ")
 ;;1718
 ;;21,"60429-0092-60 ")
 ;;1719
 ;;21,"60429-0092-90 ")
 ;;1720
 ;;21,"60429-0093-30 ")
 ;;1721
 ;;21,"60429-0093-60 ")
 ;;1722
 ;;21,"60429-0093-90 ")
 ;;1723
 ;;21,"60429-0094-27 ")
 ;;1726
 ;;21,"60429-0094-30 ")
 ;;1724
 ;;21,"60429-0094-90 ")
 ;;1725
 ;;21,"60429-0098-21 ")
 ;;605
 ;;21,"60429-0133-12 ")
 ;;2472
 ;;21,"60429-0133-18 ")
 ;;2473
 ;;21,"60429-0133-20 ")
 ;;2469
 ;;21,"60429-0133-30 ")
 ;;2470
 ;;21,"60429-0133-60 ")
 ;;2471
 ;;21,"60429-0134-60 ")
 ;;2474
 ;;21,"60429-0135-18 ")
 ;;2476
 ;;21,"60429-0135-20 ")
 ;;2475
 ;;21,"60505-0039-01 ")
 ;;339
 ;;21,"60505-0040-01 ")
 ;;340
 ;;21,"60505-0041-01 ")
 ;;341
 ;;21,"60505-0102-01 ")
 ;;342
 ;;21,"60505-0176-00 ")
 ;;3219
 ;;21,"60505-0176-01 ")
 ;;3220
 ;;21,"60505-0725-01 ")
 ;;807
 ;;21,"60505-0726-01 ")
 ;;808
 ;;21,"60505-0726-02 ")
 ;;809
 ;;21,"60760-0015-60 ")
 ;;1222
 ;;21,"60760-0020-20 ")
 ;;1522
 ;;21,"60760-0020-30 ")
 ;;1523
 ;;21,"60760-0030-30 ")
 ;;1337
 ;;21,"60760-0076-00 ")
 ;;1829
 ;;21,"60760-0076-40 ")
 ;;1827
 ;;21,"60760-0076-60 ")
 ;;1828
 ;;21,"60760-0135-00 ")
 ;;1832
 ;;21,"60760-0135-30 ")
 ;;1830
 ;;21,"60760-0135-60 ")
 ;;1831
 ;;21,"60760-0140-20 ")
 ;;2902
 ;;21,"60760-0140-60 ")
 ;;2903
 ;;21,"60760-0314-20 ")
 ;;896
 ;;21,"60760-0382-20 ")
 ;;3311
 ;;21,"60760-0382-30 ")
 ;;3312
 ;;21,"60760-0382-60 ")
 ;;3313
 ;;21,"60760-0460-20 ")
 ;;2904
 ;;21,"60760-0460-30 ")
 ;;2905
 ;;21,"60760-0460-60 ")
 ;;2906
 ;;21,"60760-0525-20 ")
 ;;3596
 ;;21,"60760-0525-30 ")
 ;;3597
 ;;21,"60760-0537-20 ")
 ;;3117
 ;;21,"60760-0537-60 ")
 ;;3118
 ;;21,"60760-0552-30 ")
 ;;533
 ;;21,"60760-0552-60 ")
 ;;534
 ;;21,"60760-0789-20 ")
 ;;244
 ;;21,"60760-0789-60 ")
 ;;245
 ;;21,"61392-0042-30 ")
 ;;3409
 ;;21,"61392-0042-31 ")
 ;;3412
 ;;21,"61392-0042-32 ")
 ;;3411
 ;;21,"61392-0042-39 ")
 ;;3410
 ;;21,"61392-0042-45 ")
 ;;3413
 ;;21,"61392-0042-51 ")
 ;;3416
 ;;21,"61392-0042-54 ")
 ;;3417
 ;;21,"61392-0042-56 ")
 ;;3418
 ;;21,"61392-0042-60 ")
 ;;3414
 ;;21,"61392-0042-90 ")
 ;;3415
 ;;21,"61392-0042-91 ")
 ;;3419
 ;;21,"61392-0062-30 ")
 ;;1597
 ;;21,"61392-0062-31 ")
 ;;1599
 ;;21,"61392-0062-32 ")
 ;;1600
 ;;21,"61392-0062-39 ")
 ;;1598
 ;;21,"61392-0062-45 ")
 ;;1601
 ;;21,"61392-0062-51 ")
 ;;1604
 ;;21,"61392-0062-54 ")
 ;;1605
 ;;21,"61392-0062-60 ")
 ;;1602
 ;;21,"61392-0062-90 ")
 ;;1603
 ;;21,"61392-0062-91 ")
 ;;1606
 ;;21,"61392-0289-14 ")
 ;;2703
 ;;21,"61392-0289-30 ")
 ;;2704
 ;;21,"61392-0289-31 ")
 ;;2706
 ;;21,"61392-0289-32 ")
 ;;2707
 ;;21,"61392-0289-39 ")
 ;;2705
 ;;21,"61392-0289-45 ")
 ;;2708
 ;;21,"61392-0289-51 ")
 ;;2711
 ;;21,"61392-0289-54 ")
 ;;2712
 ;;21,"61392-0289-56 ")
 ;;2713
 ;;21,"61392-0289-60 ")
 ;;2709
 ;;21,"61392-0289-90 ")
 ;;2710
 ;;21,"61392-0289-91 ")
 ;;2714
 ;;21,"61392-0292-14 ")
 ;;2715
 ;;21,"61392-0292-30 ")
 ;;2716
 ;;21,"61392-0292-31 ")
 ;;2718
 ;;21,"61392-0292-32 ")
 ;;2719
 ;;21,"61392-0292-39 ")
 ;;2717
 ;;21,"61392-0292-45 ")
 ;;2720
 ;;21,"61392-0292-51 ")
 ;;2723
 ;;21,"61392-0292-54 ")
 ;;2724
 ;;21,"61392-0292-56 ")
 ;;2725
 ;;21,"61392-0292-60 ")
 ;;2721
 ;;21,"61392-0292-90 ")
 ;;2722
 ;;21,"61392-0292-91 ")
 ;;2726
 ;;21,"61392-0295-20 ")
 ;;2727
 ;;21,"61392-0295-30 ")
 ;;2728