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

BGP50F7.m

Go to the documentation of this file.
BGP50F7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 05, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"54868-4062-00 ")
 ;;3352
 ;;21,"54868-4062-01 ")
 ;;3353
 ;;21,"54868-4066-00 ")
 ;;3039
 ;;21,"54868-4066-01 ")
 ;;3040
 ;;21,"54868-4073-00 ")
 ;;3089
 ;;21,"54868-4073-01 ")
 ;;3090
 ;;21,"54868-4073-02 ")
 ;;3091
 ;;21,"54868-4073-03 ")
 ;;3092
 ;;21,"54868-4074-00 ")
 ;;3146
 ;;21,"54868-4074-01 ")
 ;;3147
 ;;21,"54868-4074-02 ")
 ;;3148
 ;;21,"54868-4074-03 ")
 ;;3149
 ;;21,"54868-4074-04 ")
 ;;3150
 ;;21,"54868-4199-00 ")
 ;;2450
 ;;21,"54868-4199-01 ")
 ;;2451
 ;;21,"54868-4199-02 ")
 ;;2452
 ;;21,"54868-4331-00 ")
 ;;787
 ;;21,"54868-4331-01 ")
 ;;788
 ;;21,"54868-4331-02 ")
 ;;789
 ;;21,"54868-4331-03 ")
 ;;790
 ;;21,"54868-4332-00 ")
 ;;514
 ;;21,"54868-4332-01 ")
 ;;515
 ;;21,"54868-4332-02 ")
 ;;516
 ;;21,"54868-4341-00 ")
 ;;4037
 ;;21,"54868-4341-01 ")
 ;;4038
 ;;21,"54868-4357-00 ")
 ;;580
 ;;21,"54868-4357-01 ")
 ;;581
 ;;21,"54868-4357-02 ")
 ;;582
 ;;21,"54868-4357-03 ")
 ;;583
 ;;21,"54868-4358-00 ")
 ;;702
 ;;21,"54868-4358-01 ")
 ;;703
 ;;21,"54868-4358-02 ")
 ;;704
 ;;21,"54868-4358-03 ")
 ;;705
 ;;21,"54868-4413-00 ")
 ;;2377
 ;;21,"54868-4414-00 ")
 ;;2511
 ;;21,"54868-4414-01 ")
 ;;2512
 ;;21,"54868-4425-00 ")
 ;;4169
 ;;21,"54868-4425-03 ")
 ;;4170
 ;;21,"54868-4428-00 ")
 ;;4216
 ;;21,"54868-4428-02 ")
 ;;4217
 ;;21,"54868-4428-03 ")
 ;;4218
 ;;21,"54868-4479-00 ")
 ;;3708
 ;;21,"54868-4479-01 ")
 ;;3709
 ;;21,"54868-4479-02 ")
 ;;3710
 ;;21,"54868-4494-00 ")
 ;;3834
 ;;21,"54868-4526-00 ")
 ;;3872
 ;;21,"54868-4526-01 ")
 ;;3873
 ;;21,"54868-4539-01 ")
 ;;2901
 ;;21,"54868-4540-01 ")
 ;;4147
 ;;21,"54868-4540-02 ")
 ;;4148
 ;;21,"54868-4605-01 ")
 ;;2913
 ;;21,"54868-4605-02 ")
 ;;2914
 ;;21,"54868-4612-00 ")
 ;;2387
 ;;21,"54868-4637-00 ")
 ;;3541
 ;;21,"54868-4637-01 ")
 ;;3542
 ;;21,"54868-4637-02 ")
 ;;3543
 ;;21,"54868-4637-03 ")
 ;;3544
 ;;21,"54868-4637-04 ")
 ;;3545
 ;;21,"54868-4645-00 ")
 ;;2961
 ;;21,"54868-4645-01 ")
 ;;2962
 ;;21,"54868-4645-02 ")
 ;;2963
 ;;21,"54868-4645-03 ")
 ;;2964
 ;;21,"54868-4646-00 ")
 ;;1885
 ;;21,"54868-4646-02 ")
 ;;1886
 ;;21,"54868-4646-03 ")
 ;;1887
 ;;21,"54868-4646-04 ")
 ;;1888
 ;;21,"54868-4646-05 ")
 ;;1889
 ;;21,"54868-4652-00 ")
 ;;2953
 ;;21,"54868-4652-01 ")
 ;;2954
 ;;21,"54868-4652-02 ")
 ;;2955
 ;;21,"54868-4652-03 ")
 ;;2956
 ;;21,"54868-4652-04 ")
 ;;2957
 ;;21,"54868-4652-05 ")
 ;;2958
 ;;21,"54868-4656-00 ")
 ;;1067
 ;;21,"54868-4656-01 ")
 ;;1068
 ;;21,"54868-4656-02 ")
 ;;1069
 ;;21,"54868-4656-03 ")
 ;;1070
 ;;21,"54868-4657-00 ")
 ;;1323
 ;;21,"54868-4657-01 ")
 ;;1324
 ;;21,"54868-4657-02 ")
 ;;1325
 ;;21,"54868-4657-03 ")
 ;;1326
 ;;21,"54868-4657-04 ")
 ;;1327
 ;;21,"54868-4657-06 ")
 ;;1328
 ;;21,"54868-4657-08 ")
 ;;1271
 ;;21,"54868-4658-00 ")
 ;;1684
 ;;21,"54868-4658-01 ")
 ;;1685
 ;;21,"54868-4658-02 ")
 ;;1686
 ;;21,"54868-4658-03 ")
 ;;1687
 ;;21,"54868-4658-04 ")
 ;;1688
 ;;21,"54868-4678-00 ")
 ;;1113
 ;;21,"54868-4678-01 ")
 ;;1114
 ;;21,"54868-4678-02 ")
 ;;1115
 ;;21,"54868-4678-03 ")
 ;;1116
 ;;21,"54868-4678-04 ")
 ;;1077
 ;;21,"54868-4729-00 ")
 ;;3798
 ;;21,"54868-4780-00 ")
 ;;1747
 ;;21,"54868-4780-01 ")
 ;;1748
 ;;21,"54868-4780-02 ")
 ;;1721
 ;;21,"54868-4785-00 ")
 ;;3626
 ;;21,"54868-4785-01 ")
 ;;3627
 ;;21,"54868-4785-02 ")
 ;;3628
 ;;21,"54868-4785-03 ")
 ;;3629
 ;;21,"54868-4869-00 ")
 ;;3811
 ;;21,"54868-4870-00 ")
 ;;3234
 ;;21,"54868-4870-01 ")
 ;;3235
 ;;21,"54868-4870-02 ")
 ;;3236
 ;;21,"54868-4885-00 ")
 ;;2881
 ;;21,"54868-4885-01 ")
 ;;2882
 ;;21,"54868-4904-00 ")
 ;;3323
 ;;21,"54868-4904-01 ")
 ;;3324
 ;;21,"54868-4977-00 ")
 ;;3442
 ;;21,"54868-4977-01 ")
 ;;3443
 ;;21,"54868-4977-02 ")
 ;;3444
 ;;21,"54868-4986-00 ")
 ;;2864
 ;;21,"54868-4986-01 ")
 ;;2865
 ;;21,"54868-4986-02 ")
 ;;2866
 ;;21,"54868-5001-00 ")
 ;;31
 ;;21,"54868-5001-01 ")
 ;;32
 ;;21,"54868-5001-02 ")
 ;;30
 ;;21,"54868-5055-00 ")
 ;;897
 ;;21,"54868-5064-00 ")
 ;;856
 ;;21,"54868-5064-01 ")
 ;;857
 ;;21,"54868-5075-00 ")
 ;;4116
 ;;21,"54868-5075-01 ")
 ;;4117
 ;;21,"54868-5077-00 ")
 ;;2563
 ;;21,"54868-5078-00 ")
 ;;4132
 ;;21,"54868-5078-01 ")
 ;;4133
 ;;21,"54868-5079-00 ")
 ;;107
 ;;21,"54868-5079-01 ")
 ;;108
 ;;21,"54868-5079-02 ")
 ;;109
 ;;21,"54868-5082-00 ")
 ;;3000
 ;;21,"54868-5082-01 ")
 ;;3001
 ;;21,"54868-5082-02 ")
 ;;3002
 ;;21,"54868-5082-03 ")
 ;;3003
 ;;21,"54868-5099-00 ")
 ;;2334
 ;;21,"54868-5099-01 ")
 ;;2335
 ;;21,"54868-5100-00 ")
 ;;3371
 ;;21,"54868-5100-01 ")
 ;;3372
 ;;21,"54868-5100-02 ")
 ;;3373
 ;;21,"54868-5170-00 ")
 ;;4111
 ;;21,"54868-5170-01 ")
 ;;4112
 ;;21,"54868-5182-00 ")
 ;;961
 ;;21,"54868-5182-01 ")
 ;;962
 ;;21,"54868-5182-02 ")
 ;;963
 ;;21,"54868-5196-00 ")
 ;;459
 ;;21,"54868-5196-01 ")
 ;;460
 ;;21,"54868-5196-02 ")
 ;;461
 ;;21,"54868-5204-00 ")
 ;;187
 ;;21,"54868-5204-01 ")
 ;;188
 ;;21,"54868-5204-02 ")
 ;;189
 ;;21,"54868-5204-03 ")
 ;;190
 ;;21,"54868-5241-00 ")
 ;;2071
 ;;21,"54868-5241-01 ")
 ;;2072
 ;;21,"54868-5241-02 ")
 ;;2073
 ;;21,"54868-5245-00 ")
 ;;2042
 ;;21,"54868-5245-01 ")
 ;;2043
 ;;21,"54868-5245-02 ")
 ;;2044
 ;;21,"54868-5246-00 ")
 ;;2101
 ;;21,"54868-5246-01 ")
 ;;2102
 ;;21,"54868-5246-02 ")
 ;;2103
 ;;21,"54868-5256-00 ")
 ;;3298
 ;;21,"54868-5279-00 ")
 ;;2014
 ;;21,"54868-5281-01 ")
 ;;3824
 ;;21,"54868-5296-00 ")
 ;;3333
 ;;21,"54868-5297-00 ")
 ;;4157
 ;;21,"54868-5311-00 ")
 ;;3272
 ;;21,"54868-5311-01 ")
 ;;3273
 ;;21,"54868-5313-00 ")
 ;;3340
 ;;21,"54868-5313-01 ")
 ;;3341
 ;;21,"54868-5320-00 ")
 ;;3278
 ;;21,"54868-5320-01 ")
 ;;3279
 ;;21,"54868-5320-03 ")
 ;;3280
 ;;21,"54868-5320-04 ")
 ;;3281
 ;;21,"54868-5323-00 ")
 ;;4275
 ;;21,"54868-5323-01 ")
 ;;4276
 ;;21,"54868-5346-00 ")
 ;;3399
 ;;21,"54868-5346-01 ")
 ;;3400
 ;;21,"54868-5392-00 ")
 ;;22
 ;;21,"54868-5418-00 ")
 ;;4136
 ;;21,"54868-5465-00 ")
 ;;3902
 ;;21,"54868-5465-01 ")
 ;;3903
 ;;21,"54868-5469-00 ")
 ;;3411
 ;;21,"54868-5469-01 ")
 ;;3412
 ;;21,"54868-5475-00 ")
 ;;3745
 ;;21,"54868-5489-00 ")
 ;;2361
 ;;21,"54868-5503-00 ")
 ;;3364
 ;;21,"54868-5503-01 ")
 ;;3365
 ;;21,"54868-5548-02 ")
 ;;3266
 ;;21,"54868-5591-00 ")
 ;;2355
 ;;21,"54868-5607-00 ")
 ;;4350
 ;;21,"54868-5607-01 ")
 ;;4351
 ;;21,"54868-5690-00 ")
 ;;3257
 ;;21,"54868-5690-01 ")
 ;;3258
 ;;21,"54868-5690-02 ")
 ;;3259
 ;;21,"54868-5690-03 ")
 ;;3260
 ;;21,"54868-5705-00 ")
 ;;3977
 ;;21,"54868-5747-00 ")
 ;;2117
 ;;21,"54868-5747-01 ")
 ;;2118
 ;;21,"54868-5772-00 ")
 ;;3004
 ;;21,"54868-5780-00 ")
 ;;4321
 ;;21,"54868-5780-01 ")
 ;;4322
 ;;21,"54868-5781-00 ")
 ;;3176
 ;;21,"54868-5781-01 ")
 ;;3177
 ;;21,"54868-5781-02 ")
 ;;3178
 ;;21,"54868-5781-03 ")
 ;;3179
 ;;21,"54868-5782-00 ")
 ;;3097
 ;;21,"54868-5782-01 ")
 ;;3098
 ;;21,"54868-5782-02 ")
 ;;3099
 ;;21,"54868-5782-03 ")
 ;;3100
 ;;21,"54868-5782-04 ")
 ;;3101
 ;;21,"54868-5783-00 ")
 ;;3174
 ;;21,"54868-5783-01 ")
 ;;3175
 ;;21,"54868-5787-00 ")
 ;;3347
 ;;21,"54868-5792-00 ")
 ;;3044
 ;;21,"54868-5792-01 ")
 ;;3045
 ;;21,"54868-5792-02 ")
 ;;3046
 ;;21,"54868-5793-00 ")
 ;;3015
 ;;21,"54868-5793-01 ")
 ;;3016
 ;;21,"54868-5804-00 ")
 ;;3775
 ;;21,"54868-5842-00 ")
 ;;2213
 ;;21,"54868-5842-01 ")
 ;;2214
 ;;21,"54868-5842-02 ")
 ;;2215
 ;;21,"54868-5842-03 ")
 ;;2216
 ;;21,"54868-5843-00 ")
 ;;2277
 ;;21,"54868-5843-01 ")
 ;;2278
 ;;21,"54868-5843-02 ")
 ;;2279
 ;;21,"54868-5843-03 ")
 ;;2280
 ;;21,"54868-5856-00 ")
 ;;2159
 ;;21,"54868-5856-01 ")
 ;;2160
 ;;21,"54868-5896-00 ")
 ;;2128
 ;;21,"54868-5928-00 ")
 ;;1972
 ;;21,"54868-5977-00 ")
 ;;2922
 ;;21,"54868-5983-00 ")
 ;;3778
 ;;21,"54868-5983-01 ")
 ;;3779
 ;;21,"54868-5996-00 ")
 ;;3773
 ;;21,"54868-5996-01 ")
 ;;3774
 ;;21,"54868-5997-00 ")
 ;;3767
 ;;21,"54868-5997-01 ")
 ;;3768
 ;;21,"54868-6036-00 ")
 ;;3755
 ;;21,"54868-6041-00 ")
 ;;4398
 ;;21,"54868-6042-00 ")
 ;;3014
 ;;21,"54868-6061-00 ")
 ;;2338
 ;;21,"54868-6061-01 ")
 ;;2339
 ;;21,"54868-6103-00 ")
 ;;4402
 ;;21,"54868-6104-00 ")
 ;;2694
 ;;21,"54868-6104-01 ")
 ;;2695
 ;;21,"54868-6107-00 ")
 ;;2799
 ;;21,"54868-6107-01 ")
 ;;2800
 ;;21,"54868-6108-00 ")
 ;;3992
 ;;21,"54868-6108-01 ")
 ;;3993
 ;;21,"54868-6109-00 ")
 ;;4063
 ;;21,"54868-6109-01 ")
 ;;4064
 ;;21,"54868-6110-00 ")
 ;;3957
 ;;21,"54868-6110-01 ")
 ;;3958
 ;;21,"54868-6117-00 ")
 ;;2617
 ;;21,"54868-6117-01 ")
 ;;2561
 ;;21,"54868-6117-02 ")
 ;;2562
 ;;21,"54868-6123-00 ")
 ;;4387
 ;;21,"54868-6193-00 ")
 ;;2895
 ;;21,"54868-6194-00 ")
 ;;4403
 ;;21,"54868-6250-00 ")
 ;;3766
 ;;21,"54868-6297-00 ")
 ;;3237
 ;;21,"54868-6349-00 ")
 ;;3901
 ;;21,"55045-2201-01 ")
 ;;248
 ;;21,"55045-2376-00 ")
 ;;329
 ;;21,"55045-2376-08 ")
 ;;330
 ;;21,"55045-2376-09 ")
 ;;331
 ;;21,"55045-2424-00 ")
 ;;390
 ;;21,"55045-2424-06 ")
 ;;391
 ;;21,"55045-2799-00 ")
 ;;592
 ;;21,"55045-2827-00 ")
 ;;687
 ;;21,"55045-2827-08 ")
 ;;688
 ;;21,"55045-2832-00 ")
 ;;802
 ;;21,"55045-2832-08 ")
 ;;803
 ;;21,"55045-2929-06 ")
 ;;1352
 ;;21,"55045-2929-08 ")
 ;;1353
 ;;21,"55045-2936-00 ")
 ;;1706
 ;;21,"55045-2937-00 ")
 ;;1351
 ;;21,"55045-2938-00 ")
 ;;1139
 ;;21,"55045-2938-08 ")
 ;;1140
 ;;21,"55045-2975-00 ")
 ;;1863
 ;;21,"55045-2975-06 ")
 ;;1864
 ;;21,"55045-2975-08 ")
 ;;1865
 ;;21,"55045-3000-00 ")
 ;;3546
 ;;21,"55045-3059-00 ")
 ;;1059
 ;;21,"55045-3059-08 ")
 ;;1060
 ;;21,"55045-3159-00 ")
 ;;3445
 ;;21,"55045-3225-06 ")
 ;;3642
 ;;21,"55045-3373-08 ")
 ;;3366
 ;;21,"55045-3401-08 ")
 ;;2642
 ;;21,"55045-3409-09 ")
 ;;2948
 ;;21,"55045-3642-09 ")
 ;;2045
 ;;21,"55045-3643-09 ")
 ;;2070
 ;;21,"55045-3644-09 ")
 ;;2104
 ;;21,"55045-3772-08 ")
 ;;1707
 ;;21,"55048-0020-30 ")
 ;;3047
 ;;21,"55048-0021-30 ")
 ;;3180
 ;;21,"55048-0022-30 ")
 ;;3096
 ;;21,"55048-0023-30 ")
 ;;3781
 ;;21,"55048-0024-30 ")
 ;;3771
 ;;21,"55048-0039-30 ")
 ;;155
 ;;21,"55048-0040-30 ")
 ;;231
 ;;21,"55048-0043-30 ")
 ;;85
 ;;21,"55048-0123-30 ")
 ;;3136
 ;;21,"55048-0124-30 ")
 ;;3223
 ;;21,"55048-0125-30 ")
 ;;3254
 ;;21,"55048-0220-30 ")
 ;;490
 ;;21,"55048-0221-30 ")
 ;;708
 ;;21,"55048-0222-30 ")
 ;;806
 ;;21,"55048-0223-30 ")
 ;;601
 ;;21,"55048-0250-30 ")
 ;;2981
 ;;21,"55048-0251-30 ")
 ;;2994
 ;;21,"55048-0252-30 ")
 ;;4294
 ;;21,"55048-0253-30 ")
 ;;4354
 ;;21,"55048-0277-30 ")
 ;;709
 ;;21,"55048-0278-30 ")
 ;;805
 ;;21,"55048-0283-30 ")
 ;;952
 ;;21,"55048-0291-30 ")
 ;;888
 ;;21,"55048-0375-30 ")
 ;;2433
 ;;21,"55048-0376-30 ")
 ;;2503
 ;;21,"55048-0387-30 ")
 ;;1510
 ;;21,"55048-0387-60 ")
 ;;1511
 ;;21,"55048-0387-90 ")
 ;;1512
 ;;21,"55048-0388-30 ")
 ;;1807
 ;;21,"55048-0388-60 ")
 ;;1808
 ;;21,"55048-0388-90 ")
 ;;1809
 ;;21,"55048-0389-30 ")
 ;;1291
 ;;21,"55048-0390-30 ")
 ;;3509
 ;;21,"55048-0390-60 ")
 ;;3510
 ;;21,"55048-0409-30 ")
 ;;3423
 ;;21,"55048-0410-30 ")
 ;;3609
 ;;21,"55048-0410-90 ")
 ;;3610
 ;;21,"55048-0429-30 ")
 ;;1104
 ;;21,"55048-0444-30 ")
 ;;2742
 ;;21,"55048-0445-30 ")
 ;;2835
 ;;21,"55048-0446-30 ")
 ;;3928
 ;;21,"55048-0447-30 ")
 ;;3985
 ;;21,"55048-0448-30 ")
 ;;4050
 ;;21,"55048-0463-30 ")
 ;;1290
 ;;21,"55048-0464-30 ")
 ;;1513
 ;;21,"55048-0465-30 ")
 ;;1806
 ;;21,"55048-0466-30 ")
 ;;3508
 ;;21,"55048-0471-30 ")
 ;;1292
 ;;21,"55048-0473-90 ")
 ;;1805
 ;;21,"55048-0619-30 ")
 ;;2909
 ;;21,"55048-0620-30 ")
 ;;2917
 ;;21,"55048-0621-30 ")
 ;;2897
 ;;21,"55111-0133-01 ")
 ;;3367
 ;;21,"55111-0134-01 ")
 ;;3392
 ;;21,"55111-0338-01 ")
 ;;3033
 ;;21,"55111-0339-01 ")
 ;;3081
 ;;21,"55111-0339-05 ")
 ;;3082
 ;;21,"55111-0340-01 ")
 ;;3134
 ;;21,"55111-0340-05 ")
 ;;3135
 ;;21,"55111-0341-01 ")
 ;;3221
 ;;21,"55111-0341-05 ")
 ;;3222
 ;;21,"55111-0438-90 ")
 ;;2122
 ;;21,"55111-0439-05 ")
 ;;2142
 ;;21,"55111-0439-90 ")
 ;;2143
 ;;21,"55111-0440-05 ")
 ;;2197
 ;;21,"55111-0440-90 ")
 ;;2198
 ;;21,"55111-0441-05 ")
 ;;2257
 ;;21,"55111-0441-90 ")
 ;;2258
 ;;21,"55111-0586-01 ")
 ;;3255
 ;;21,"55111-0587-01 ")
 ;;3168
 ;;21,"55111-0621-90 ")
 ;;2007
 ;;21,"55111-0622-90 ")
 ;;2031
 ;;21,"55111-0623-90 ")
 ;;2061
 ;;21,"55111-0624-90 ")
 ;;2093
 ;;21,"55289-0039-30 ")
 ;;3140
 ;;21,"55289-0086-30 ")
 ;;166
 ;;21,"55289-0096-30 ")
 ;;3083
 ;;21,"55289-0106-30 ")
 ;;1719
 ;;21,"55289-0212-30 ")
 ;;435
 ;;21,"55289-0212-90 ")
 ;;436
 ;;21,"55289-0238-30 ")
 ;;2747
 ;;21,"55289-0344-30 ")
 ;;373
 ;;21,"55289-0344-90 ")
 ;;374
 ;;21,"55289-0436-30 ")
 ;;2875
 ;;21,"55289-0443-30 ")
 ;;4125
 ;;21,"55289-0483-30 ")
 ;;732
 ;;21,"55289-0484-30 ")
 ;;3391
 ;;21,"55289-0509-30 ")
 ;;1483
 ;;21,"55289-0522-30 ")
 ;;4041
 ;;21,"55289-0552-30 ")
 ;;2006
 ;;21,"55289-0553-30 ")
 ;;2028
 ;;21,"55289-0554-30 ")
 ;;2058
 ;;21,"55289-0555-30 ")
 ;;2091