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

BGP22B4.m

Go to the documentation of this file.
BGP22B4 ;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,"13411-0106-09 ")
 ;;3718
 ;;21,"13411-0106-15 ")
 ;;3719
 ;;21,"13411-0107-01 ")
 ;;3743
 ;;21,"13411-0107-03 ")
 ;;3744
 ;;21,"13411-0107-06 ")
 ;;3745
 ;;21,"13411-0107-09 ")
 ;;3746
 ;;21,"13411-0107-15 ")
 ;;3747
 ;;21,"13411-0142-01 ")
 ;;4086
 ;;21,"13411-0142-02 ")
 ;;4087
 ;;21,"13411-0142-03 ")
 ;;4088
 ;;21,"13411-0142-06 ")
 ;;4089
 ;;21,"13411-0142-09 ")
 ;;4090
 ;;21,"13411-0143-01 ")
 ;;4032
 ;;21,"13411-0143-02 ")
 ;;4033
 ;;21,"13411-0143-03 ")
 ;;4034
 ;;21,"13411-0143-06 ")
 ;;4035
 ;;21,"13411-0143-09 ")
 ;;4036
 ;;21,"13411-0144-01 ")
 ;;3647
 ;;21,"13411-0144-02 ")
 ;;3648
 ;;21,"13411-0144-03 ")
 ;;3649
 ;;21,"13411-0144-06 ")
 ;;3650
 ;;21,"13411-0144-09 ")
 ;;3651
 ;;21,"13411-0145-01 ")
 ;;3583
 ;;21,"13411-0145-02 ")
 ;;3584
 ;;21,"13411-0145-03 ")
 ;;3585
 ;;21,"13411-0145-06 ")
 ;;3586
 ;;21,"13411-0145-09 ")
 ;;3587
 ;;21,"13411-0156-01 ")
 ;;3610
 ;;21,"13411-0156-02 ")
 ;;3611
 ;;21,"13411-0156-03 ")
 ;;3612
 ;;21,"13411-0156-06 ")
 ;;3613
 ;;21,"13411-0156-09 ")
 ;;3614
 ;;21,"13411-0184-02 ")
 ;;1176
 ;;21,"13411-0184-03 ")
 ;;1177
 ;;21,"13411-0184-06 ")
 ;;1178
 ;;21,"13411-0184-09 ")
 ;;1179
 ;;21,"13411-0184-10 ")
 ;;1180
 ;;21,"13668-0113-10 ")
 ;;3853
 ;;21,"13668-0113-90 ")
 ;;3854
 ;;21,"13668-0114-10 ")
 ;;3910
 ;;21,"13668-0114-30 ")
 ;;3911
 ;;21,"13668-0114-90 ")
 ;;3912
 ;;21,"13668-0115-10 ")
 ;;3789
 ;;21,"13668-0115-30 ")
 ;;3790
 ;;21,"13668-0115-90 ")
 ;;3791
 ;;21,"13668-0116-10 ")
 ;;3495
 ;;21,"13668-0116-30 ")
 ;;3496
 ;;21,"13668-0116-90 ")
 ;;3497
 ;;21,"13668-0117-10 ")
 ;;3403
 ;;21,"13668-0117-30 ")
 ;;3404
 ;;21,"13668-0117-90 ")
 ;;3405
 ;;21,"13668-0118-10 ")
 ;;3442
 ;;21,"13668-0118-30 ")
 ;;3443
 ;;21,"13668-0118-90 ")
 ;;3444
 ;;21,"15338-0200-30 ")
 ;;1421
 ;;21,"15338-0211-30 ")
 ;;1653
 ;;21,"15338-0220-30 ")
 ;;1287
 ;;21,"15338-0222-30 ")
 ;;1288
 ;;21,"15338-0233-30 ")
 ;;1509
 ;;21,"16252-0541-30 ")
 ;;3238
 ;;21,"16252-0542-90 ")
 ;;3256
 ;;21,"16252-0543-90 ")
 ;;3274
 ;;21,"16252-0570-30 ")
 ;;3040
 ;;21,"16252-0571-01 ")
 ;;3132
 ;;21,"16252-0571-50 ")
 ;;3133
 ;;21,"16252-0572-01 ")
 ;;3180
 ;;21,"16252-0572-50 ")
 ;;3181
 ;;21,"16252-0573-01 ")
 ;;3072
 ;;21,"16252-0573-50 ")
 ;;3073
 ;;21,"16252-0610-01 ")
 ;;2901
 ;;21,"16252-0611-01 ")
 ;;2887
 ;;21,"16252-0612-01 ")
 ;;612
 ;;21,"16252-0613-01 ")
 ;;593
 ;;21,"16252-0614-01 ")
 ;;600
 ;;21,"16590-0063-30 ")
 ;;3833
 ;;21,"16590-0259-30 ")
 ;;745
 ;;21,"16590-0277-30 ")
 ;;1274
 ;;21,"16590-0277-60 ")
 ;;1275
 ;;21,"16590-0277-90 ")
 ;;1276
 ;;21,"16590-0280-30 ")
 ;;669
 ;;21,"16590-0307-30 ")
 ;;2310
 ;;21,"16590-0307-60 ")
 ;;2311
 ;;21,"16590-0307-90 ")
 ;;2312
 ;;21,"16590-0309-30 ")
 ;;524
 ;;21,"16590-0309-60 ")
 ;;525
 ;;21,"16590-0309-72 ")
 ;;526
 ;;21,"16590-0309-90 ")
 ;;527
 ;;21,"16590-0312-30 ")
 ;;3652
 ;;21,"16590-0332-30 ")
 ;;3615
 ;;21,"16590-0356-30 ")
 ;;2580
 ;;21,"16590-0360-30 ")
 ;;2581
 ;;21,"16590-0360-60 ")
 ;;2582
 ;;21,"16590-0360-90 ")
 ;;2583
 ;;21,"16590-0392-30 ")
 ;;1510
 ;;21,"16590-0392-60 ")
 ;;1511
 ;;21,"16590-0392-90 ")
 ;;1512
 ;;21,"16714-0224-01 ")
 ;;3406
 ;;21,"16714-0224-02 ")
 ;;3407
 ;;21,"16714-0225-01 ")
 ;;3445
 ;;21,"16714-0225-02 ")
 ;;3446
 ;;21,"16714-0225-04 ")
 ;;3447
 ;;21,"16714-0226-01 ")
 ;;3498
 ;;21,"16714-0226-02 ")
 ;;3499
 ;;21,"16714-0226-04 ")
 ;;3500
 ;;21,"16714-0581-02 ")
 ;;3855
 ;;21,"16714-0581-03 ")
 ;;3856
 ;;21,"16714-0582-01 ")
 ;;3913
 ;;21,"16714-0582-02 ")
 ;;3914
 ;;21,"16714-0582-03 ")
 ;;3915
 ;;21,"16714-0583-01 ")
 ;;3792
 ;;21,"16714-0583-02 ")
 ;;3793
 ;;21,"16714-0583-03 ")
 ;;3794
 ;;21,"17236-0997-04 ")
 ;;1599
 ;;21,"17236-0997-30 ")
 ;;1600
 ;;21,"18837-0277-30 ")
 ;;2723
 ;;21,"21695-0326-30 ")
 ;;670
 ;;21,"21695-0326-60 ")
 ;;671
 ;;21,"21695-0326-90 ")
 ;;672
 ;;21,"21695-0327-30 ")
 ;;746
 ;;21,"21695-0327-60 ")
 ;;747
 ;;21,"21695-0327-90 ")
 ;;748
 ;;21,"21695-0328-30 ")
 ;;2759
 ;;21,"21695-0328-90 ")
 ;;2760
 ;;21,"21695-0329-30 ")
 ;;2008
 ;;21,"21695-0329-78 ")
 ;;2009
 ;;21,"21695-0329-90 ")
 ;;2010
 ;;21,"21695-0330-20 ")
 ;;2313
 ;;21,"21695-0330-30 ")
 ;;2314
 ;;21,"21695-0330-90 ")
 ;;2315
 ;;21,"21695-0331-30 ")
 ;;2584
 ;;21,"21695-0331-90 ")
 ;;2585
 ;;21,"21695-0345-90 ")
 ;;2180
 ;;21,"21695-0393-30 ")
 ;;3026
 ;;21,"21695-0394-30 ")
 ;;2938
 ;;21,"21695-0477-30 ")
 ;;1069
 ;;21,"21695-0477-78 ")
 ;;1070
 ;;21,"21695-0478-30 ")
 ;;1181
 ;;21,"21695-0487-30 ")
 ;;1654
 ;;21,"21695-0488-30 ")
 ;;1289
 ;;21,"21695-0488-60 ")
 ;;1290
 ;;21,"21695-0488-90 ")
 ;;1291
 ;;21,"21695-0489-30 ")
 ;;1513
 ;;21,"21695-0489-90 ")
 ;;1514
 ;;21,"21695-0612-90 ")
 ;;890
 ;;21,"21695-0714-30 ")
 ;;3916
 ;;21,"21695-0714-90 ")
 ;;3917
 ;;21,"21695-0717-30 ")
 ;;3795
 ;;21,"21695-0717-90 ")
 ;;3796
 ;;21,"21695-0733-30 ")
 ;;372
 ;;21,"21695-0734-30 ")
 ;;457
 ;;21,"21695-0734-60 ")
 ;;458
 ;;21,"21695-0735-30 ")
 ;;543
 ;;21,"21695-0735-60 ")
 ;;544
 ;;21,"21695-0780-30 ")
 ;;293
 ;;21,"21695-0788-90 ")
 ;;3448
 ;;21,"21695-0821-30 ")
 ;;3134
 ;;21,"21695-0821-90 ")
 ;;3135
 ;;21,"21695-0822-30 ")
 ;;3182
 ;;21,"21695-0822-90 ")
 ;;3183
 ;;21,"21695-0823-30 ")
 ;;3074
 ;;21,"21695-0823-60 ")
 ;;3075
 ;;21,"21695-0831-90 ")
 ;;3449
 ;;21,"21695-0866-90 ")
 ;;74
 ;;21,"21695-0877-30 ")
 ;;827
 ;;21,"21695-0877-90 ")
 ;;828
 ;;21,"21695-0916-30 ")
 ;;12
 ;;21,"21695-0916-90 ")
 ;;13
 ;;21,"21695-0917-90 ")
 ;;4091
 ;;21,"21695-0918-90 ")
 ;;4037
 ;;21,"21695-0919-90 ")
 ;;4061
 ;;21,"23490-5118-01 ")
 ;;673
 ;;21,"23490-5119-01 ")
 ;;749
 ;;21,"23490-5120-03 ")
 ;;829
 ;;21,"23490-5120-09 ")
 ;;830
 ;;21,"23490-5121-01 ")
 ;;891
 ;;21,"23490-5191-01 ")
 ;;922
 ;;21,"23490-5192-01 ")
 ;;983
 ;;21,"23490-5193-01 ")
 ;;1071
 ;;21,"23490-5193-02 ")
 ;;1072
 ;;21,"23490-5193-03 ")
 ;;1073
 ;;21,"23490-5194-00 ")
 ;;1182
 ;;21,"23490-5194-01 ")
 ;;1183
 ;;21,"23490-5194-02 ")
 ;;1184
 ;;21,"23490-5491-01 ")
 ;;1292
 ;;21,"23490-5491-02 ")
 ;;1293
 ;;21,"23490-5491-08 ")
 ;;1294
 ;;21,"23490-5491-09 ")
 ;;1295
 ;;21,"23490-5492-01 ")
 ;;1515
 ;;21,"23490-5492-02 ")
 ;;1516
 ;;21,"23490-5494-01 ")
 ;;1655
 ;;21,"23490-5494-02 ")
 ;;1656
 ;;21,"23490-5815-00 ")
 ;;2011
 ;;21,"23490-5815-01 ")
 ;;2012
 ;;21,"23490-5816-01 ")
 ;;2316
 ;;21,"23490-5816-02 ")
 ;;2317
 ;;21,"23490-5816-06 ")
 ;;2318
 ;;21,"23490-5817-02 ")
 ;;2181
 ;;21,"23490-5818-02 ")
 ;;2586
 ;;21,"23490-5819-02 ")
 ;;2761
 ;;21,"23490-5820-01 ")
 ;;373
 ;;21,"23490-5821-01 ")
 ;;459
 ;;21,"23490-5822-01 ")
 ;;545
 ;;21,"23490-9364-03 ")
 ;;2997
 ;;21,"23490-9409-03 ")
 ;;3959
 ;;21,"23490-9409-09 ")
 ;;3960
 ;;21,"23490-9410-03 ")
 ;;3980
 ;;21,"23490-9410-09 ")
 ;;3981
 ;;21,"23490-9411-03 ")
 ;;4073
 ;;21,"23490-9411-09 ")
 ;;4074
 ;;21,"23490-9412-03 ")
 ;;4092
 ;;21,"23490-9412-09 ")
 ;;4093
 ;;21,"23490-9462-01 ")
 ;;3857
 ;;21,"23629-0007-10 ")
 ;;880
 ;;21,"23629-0021-10 ")
 ;;1750
 ;;21,"24658-0100-10 ")
 ;;1757
 ;;21,"24658-0100-90 ")
 ;;1758
 ;;21,"24658-0101-10 ")
 ;;1814
 ;;21,"24658-0101-90 ")
 ;;1815
 ;;21,"24658-0102-10 ")
 ;;1876
 ;;21,"24658-0102-90 ")
 ;;1877
 ;;21,"24658-0200-01 ")
 ;;3041
 ;;21,"24658-0200-05 ")
 ;;3042
 ;;21,"24658-0201-01 ")
 ;;3136
 ;;21,"24658-0201-05 ")
 ;;3137
 ;;21,"24658-0202-01 ")
 ;;3184
 ;;21,"24658-0202-05 ")
 ;;3185
 ;;21,"24658-0203-01 ")
 ;;3076
 ;;21,"24658-0203-05 ")
 ;;3077
 ;;21,"24658-0240-10 ")
 ;;2182
 ;;21,"24658-0240-90 ")
 ;;2183
 ;;21,"24658-0241-10 ")
 ;;2762
 ;;21,"24658-0241-30 ")
 ;;2763
 ;;21,"24658-0241-45 ")
 ;;2764
 ;;21,"24658-0241-90 ")
 ;;2765
 ;;21,"24658-0242-10 ")
 ;;2013
 ;;21,"24658-0242-15 ")
 ;;2014
 ;;21,"24658-0242-18 ")
 ;;2015
 ;;21,"24658-0242-30 ")
 ;;2016
 ;;21,"24658-0242-45 ")
 ;;2017
 ;;21,"24658-0242-90 ")
 ;;2018
 ;;21,"24658-0243-10 ")
 ;;2319
 ;;21,"24658-0243-15 ")
 ;;2320
 ;;21,"24658-0243-18 ")
 ;;2321
 ;;21,"24658-0243-30 ")
 ;;2322
 ;;21,"24658-0243-45 ")
 ;;2323
 ;;21,"24658-0243-90 ")
 ;;2324
 ;;21,"24658-0244-01 ")
 ;;2480
 ;;21,"24658-0244-10 ")
 ;;2481
 ;;21,"24658-0245-10 ")
 ;;2587
 ;;21,"24658-0245-15 ")
 ;;2588
 ;;21,"24658-0245-18 ")
 ;;2589
 ;;21,"24658-0245-30 ")
 ;;2590
 ;;21,"24658-0245-45 ")
 ;;2591
 ;;21,"24658-0245-60 ")
 ;;2592
 ;;21,"24658-0245-90 ")
 ;;2593
 ;;21,"31722-0200-10 ")
 ;;1759
 ;;21,"31722-0200-90 ")
 ;;1760
 ;;21,"31722-0201-10 ")
 ;;1816
 ;;21,"31722-0201-90 ")
 ;;1817
 ;;21,"31722-0202-10 ")
 ;;1878
 ;;21,"31722-0202-90 ")
 ;;1879
 ;;21,"31722-0271-01 ")
 ;;3043
 ;;21,"31722-0272-01 ")
 ;;3138
 ;;21,"31722-0272-05 ")
 ;;3139
 ;;21,"31722-0272-10 ")
 ;;3140
 ;;21,"31722-0273-01 ")
 ;;3186
 ;;21,"31722-0273-05 ")
 ;;3187
 ;;21,"31722-0273-10 ")
 ;;3188
 ;;21,"31722-0274-01 ")
 ;;3078
 ;;21,"31722-0274-05 ")
 ;;3079
 ;;21,"31722-0274-10 ")
 ;;3080
 ;;21,"33261-0109-30 ")
 ;;2594
 ;;21,"33261-0109-60 ")
 ;;2595
 ;;21,"33261-0109-90 ")
 ;;2596
 ;;21,"33261-0110-07 ")
 ;;2325
 ;;21,"33261-0110-14 ")
 ;;2326
 ;;21,"33261-0110-20 ")
 ;;2327
 ;;21,"33261-0110-21 ")
 ;;2328
 ;;21,"33261-0110-28 ")
 ;;2329
 ;;21,"33261-0110-30 ")
 ;;2330
 ;;21,"33261-0110-60 ")
 ;;2331
 ;;21,"33261-0110-90 ")
 ;;2332
 ;;21,"33261-0180-02 ")
 ;;750
 ;;21,"33261-0180-30 ")
 ;;751
 ;;21,"33261-0180-60 ")
 ;;752
 ;;21,"33261-0180-90 ")
 ;;753
 ;;21,"33261-0453-30 ")
 ;;185
 ;;21,"33261-0453-60 ")
 ;;186
 ;;21,"33261-0453-90 ")
 ;;187
 ;;21,"33358-0047-30 ")
 ;;188
 ;;21,"33358-0048-30 ")
 ;;674
 ;;21,"33358-0049-30 ")
 ;;754
 ;;21,"33358-0050-30 ")
 ;;228
 ;;21,"33358-0126-30 ")
 ;;1657
 ;;21,"33358-0127-30 ")
 ;;1296
 ;;21,"33358-0127-60 ")
 ;;1297
 ;;21,"33358-0128-30 ")
 ;;1517
 ;;21,"33358-0128-60 ")
 ;;1518
 ;;21,"33358-0211-30 ")
 ;;2766
 ;;21,"33358-0212-30 ")
 ;;2019
 ;;21,"33358-0213-30 ")
 ;;2333
 ;;21,"33358-0214-30 ")
 ;;374
 ;;21,"33358-0214-60 ")
 ;;375
 ;;21,"33358-0222-00 ")
 ;;110
 ;;21,"35356-0060-30 ")
 ;;3616
 ;;21,"35356-0101-90 ")
 ;;4062
 ;;21,"35356-0131-30 ")
 ;;3748
 ;;21,"35356-0216-30 ")
 ;;3982
 ;;21,"35356-0216-90 ")
 ;;3983
 ;;21,"35356-0256-30 ")
 ;;3528
 ;;21,"35356-0256-90 ")
 ;;3529
 ;;21,"35356-0257-30 ")
 ;;3535
 ;;21,"35356-0257-90 ")
 ;;3536
 ;;21,"35356-0258-30 ")
 ;;3544
 ;;21,"35356-0258-90 ")
 ;;3545
 ;;21,"35356-0268-30 ")
 ;;151
 ;;21,"35356-0287-20 ")
 ;;3994
 ;;21,"35356-0287-30 ")
 ;;3995
 ;;21,"35356-0288-40 ")
 ;;3537
 ;;21,"35356-0289-40 ")
 ;;3546
 ;;21,"35356-0293-90 ")
 ;;3629
 ;;21,"35356-0294-90 ")
 ;;3636
 ;;21,"35356-0295-30 ")
 ;;3999
 ;;21,"35356-0296-30 ")
 ;;4005
 ;;21,"35356-0297-30 ")
 ;;3556
 ;;21,"35356-0298-30 ")
 ;;4016
 ;;21,"35356-0299-30 ")
 ;;3563
 ;;21,"35356-0300-30 ")
 ;;3570
 ;;21,"35356-0373-90 ")
 ;;3858
 ;;21,"35356-0374-15 ")
 ;;3364
 ;;21,"35356-0374-30 ")
 ;;3365
 ;;21,"35356-0406-30 ")
 ;;3377
 ;;21,"35356-0407-30 ")
 ;;3382
 ;;21,"35356-0416-10 ")
 ;;3501
 ;;21,"35356-0416-20 ")
 ;;3502
 ;;21,"35356-0416-30 ")
 ;;3503
 ;;21,"35356-0427-30 ")
 ;;3690
 ;;21,"35356-0428-30 ")
 ;;3720
 ;;21,"35356-0432-30 ")
 ;;831
 ;;21,"35356-0541-30 ")
 ;;1422
 ;;21,"35356-0587-30 ")
 ;;892
 ;;21,"35356-0587-60 ")
 ;;893
 ;;21,"35356-0587-90 ")
 ;;894
 ;;21,"35356-0601-30 ")
 ;;2914
 ;;21,"43063-0007-01 ")
 ;;2334
 ;;21,"43063-0032-01 ")
 ;;2597
 ;;21,"43063-0065-30 ")
 ;;460
 ;;21,"43063-0065-90 ")
 ;;461
 ;;21,"43063-0118-30 ")
 ;;376
 ;;21,"43063-0118-90 ")
 ;;377
 ;;21,"43063-0130-90 ")
 ;;546
 ;;21,"43063-0131-30 ")
 ;;755
 ;;21,"43063-0132-30 ")
 ;;832
 ;;21,"43063-0138-90 ")
 ;;2020
 ;;21,"43063-0146-30 ")
 ;;984
 ;;21,"43063-0171-14 ")
 ;;52
 ;;21,"43063-0232-30 ")
 ;;14
 ;;21,"43063-0232-60 ")
 ;;15
 ;;21,"43063-0233-60 ")
 ;;75
 ;;21,"43063-0234-60 ")
 ;;111
 ;;21,"43063-0288-30 ")
 ;;675
 ;;21,"43063-0303-30 ")
 ;;3081
 ;;21,"43353-0045-80 ")
 ;;1298
 ;;21,"43353-0313-15 ")
 ;;2335
 ;;21,"43353-0313-60 ")
 ;;2336
 ;;21,"43353-0318-60 ")
 ;;547
 ;;21,"43353-0350-30 ")
 ;;2598
 ;;21,"43353-0350-45 ")
 ;;2599
 ;;21,"43353-0350-60 ")
 ;;2600
 ;;21,"43353-0350-80 ")
 ;;2601
 ;;21,"43353-0365-15 ")
 ;;2767
 ;;21,"43353-0365-30 ")
 ;;2768
 ;;21,"43353-0365-45 ")
 ;;2769
 ;;21,"43353-0365-60 ")
 ;;2770
 ;;21,"43353-0371-45 ")
 ;;2337
 ;;21,"43353-0371-60 ")
 ;;2338
 ;;21,"43353-0411-60 ")
 ;;2602
 ;;21,"43353-0459-45 ")
 ;;3797
 ;;21,"43353-0488-45 ")
 ;;2771
 ;;21,"43353-0488-60 ")
 ;;2772
 ;;21,"43353-0516-45 ")
 ;;2603
 ;;21,"43353-0521-60 ")
 ;;1519
 ;;21,"43353-0521-80 ")
 ;;1520
 ;;21,"43353-0596-30 ")
 ;;378
 ;;21,"43353-0596-60 ")
 ;;379
 ;;21,"43353-0626-60 ")
 ;;548
 ;;21,"43353-0643-60 ")
 ;;2184
 ;;21,"43353-0655-60 ")
 ;;549