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

BGPM5AUB.m

Go to the documentation of this file.
BGPM5AUB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"65862009599 ")
 ;;5029
 ;;21,"65862009601 ")
 ;;5030
 ;;21,"65862009620 ")
 ;;5031
 ;;21,"65862009626 ")
 ;;5032
 ;;21,"65862009699 ")
 ;;5033
 ;;21,"65862009901 ")
 ;;5034
 ;;21,"65862009950 ")
 ;;5035
 ;;21,"65862009975 ")
 ;;5036
 ;;21,"65862010001 ")
 ;;5037
 ;;21,"65862010050 ")
 ;;5038
 ;;21,"65862010075 ")
 ;;5039
 ;;21,"65862012905 ")
 ;;5040
 ;;21,"65862013001 ")
 ;;5041
 ;;21,"65862013005 ")
 ;;5042
 ;;21,"65862013525 ")
 ;;5043
 ;;21,"65862013605 ")
 ;;5044
 ;;21,"65862013701 ")
 ;;5045
 ;;21,"65862013802 ")
 ;;5046
 ;;21,"65862013910 ")
 ;;5047
 ;;21,"65862014001 ")
 ;;5048
 ;;21,"65862014050 ")
 ;;5049
 ;;21,"65862014075 ")
 ;;5050
 ;;21,"65862014101 ")
 ;;5051
 ;;21,"65862014150 ")
 ;;5052
 ;;21,"65862014175 ")
 ;;5053
 ;;21,"65862017501 ")
 ;;5054
 ;;21,"65862017535 ")
 ;;5055
 ;;21,"65862017599 ")
 ;;5056
 ;;21,"65862017601 ")
 ;;5057
 ;;21,"65862017605 ")
 ;;5058
 ;;21,"65862017615 ")
 ;;5059
 ;;21,"65862017699 ")
 ;;5060
 ;;21,"65862017705 ")
 ;;5061
 ;;21,"65862017715 ")
 ;;5062
 ;;21,"65862017730 ")
 ;;5063
 ;;21,"65862017760 ")
 ;;5064
 ;;21,"65862018501 ")
 ;;5065
 ;;21,"65862018505 ")
 ;;5066
 ;;21,"65862018601 ")
 ;;5067
 ;;21,"65862018605 ")
 ;;5068
 ;;21,"65862018616 ")
 ;;5069
 ;;21,"65862020901 ")
 ;;5070
 ;;21,"65862020905 ")
 ;;5071
 ;;21,"65862020999 ")
 ;;5072
 ;;21,"65862021001 ")
 ;;5073
 ;;21,"65862021005 ")
 ;;5074
 ;;21,"65862021099 ")
 ;;5075
 ;;21,"65862021105 ")
 ;;5076
 ;;21,"65862021150 ")
 ;;5077
 ;;21,"65862021199 ")
 ;;5078
 ;;21,"65862021801 ")
 ;;5079
 ;;21,"65862021860 ")
 ;;5080
 ;;21,"65862021901 ")
 ;;5081
 ;;21,"65862021960 ")
 ;;5082
 ;;21,"65862023112 ")
 ;;5083
 ;;21,"65862023125 ")
 ;;5084
 ;;21,"65862023225 ")
 ;;5085
 ;;21,"65862023252 ")
 ;;5086
 ;;21,"65862023305 ")
 ;;5087
 ;;21,"65862023325 ")
 ;;5088
 ;;21,"65862023401 ")
 ;;5089
 ;;21,"65862023425 ")
 ;;5090
 ;;21,"65862023502 ")
 ;;5091
 ;;21,"65862023525 ")
 ;;5092
 ;;21,"65862023610 ")
 ;;5093
 ;;21,"65862023612 ")
 ;;5094
 ;;21,"65862035110 ")
 ;;5095
 ;;21,"65862035115 ")
 ;;5096
 ;;21,"65862035210 ")
 ;;5097
 ;;21,"65862035215 ")
 ;;5098
 ;;21,"65862035301 ")
 ;;5099
 ;;21,"65862035501 ")
 ;;5100
 ;;21,"65862035510 ")
 ;;5101
 ;;21,"65862035601 ")
 ;;5102
 ;;21,"65862035610 ")
 ;;5103
 ;;21,"65862041901 ")
 ;;5104
 ;;21,"65862041905 ")
 ;;5105
 ;;21,"65862041939 ")
 ;;5106
 ;;21,"65862042001 ")
 ;;5107
 ;;21,"65862042005 ")
 ;;5108
 ;;21,"65862042015 ")
 ;;5109
 ;;21,"65862049601 ")
 ;;5110
 ;;21,"65862049647 ")
 ;;5111
 ;;21,"65862049650 ")
 ;;5112
 ;;21,"65862053805 ")
 ;;5113
 ;;21,"65862053810 ")
 ;;5114
 ;;21,"65862053820 ")
 ;;5115
 ;;21,"65862053899 ")
 ;;5116
 ;;21,"66105063006 ")
 ;;5117
 ;;21,"66105067001 ")
 ;;5118
 ;;21,"66105067003 ")
 ;;5119
 ;;21,"66105067005 ")
 ;;5120
 ;;21,"66105067006 ")
 ;;5121
 ;;21,"66105067018 ")
 ;;5122
 ;;21,"66105067606 ")
 ;;5123
 ;;21,"66116012128 ")
 ;;5124
 ;;21,"66116021514 ")
 ;;5125
 ;;21,"66116025528 ")
 ;;5126
 ;;21,"66116025540 ")
 ;;5127
 ;;21,"66116027230 ")
 ;;5128
 ;;21,"66116028921 ")
 ;;5129
 ;;21,"66116028930 ")
 ;;5130
 ;;21,"66116029128 ")
 ;;5131
 ;;21,"66116029730 ")
 ;;5132
 ;;21,"66116029820 ")
 ;;5133
 ;;21,"66116031420 ")
 ;;5134
 ;;21,"66116032320 ")
 ;;5135
 ;;21,"66116051130 ")
 ;;5136
 ;;21,"66116051730 ")
 ;;5137
 ;;21,"66116061030 ")
 ;;5138
 ;;21,"66116066030 ")
 ;;5139
 ;;21,"66116068520 ")
 ;;5140
 ;;21,"66116068528 ")
 ;;5141
 ;;21,"66116068540 ")
 ;;5142
 ;;21,"66116068720 ")
 ;;5143
 ;;21,"66116068728 ")
 ;;5144
 ;;21,"66116068730 ")
 ;;5145
 ;;21,"66116068740 ")
 ;;5146
 ;;21,"66116081130 ")
 ;;5147
 ;;21,"66116082030 ")
 ;;5148
 ;;21,"66116082130 ")
 ;;5149
 ;;21,"66267002106 ")
 ;;5150
 ;;21,"66267002109 ")
 ;;5151
 ;;21,"66267002115 ")
 ;;5152
 ;;21,"66267002120 ")
 ;;5153
 ;;21,"66267002121 ")
 ;;5154
 ;;21,"66267002130 ")
 ;;5155
 ;;21,"66267002140 ")
 ;;5156
 ;;21,"66267002230 ")
 ;;5157
 ;;21,"66267002304 ")
 ;;5158
 ;;21,"66267002306 ")
 ;;5159
 ;;21,"66267002308 ")
 ;;5160
 ;;21,"66267002309 ")
 ;;5161
 ;;21,"66267002310 ")
 ;;5162
 ;;21,"66267002315 ")
 ;;5163
 ;;21,"66267002318 ")
 ;;5164
 ;;21,"66267002320 ")
 ;;5165
 ;;21,"66267002321 ")
 ;;5166
 ;;21,"66267002323 ")
 ;;5167
 ;;21,"66267002330 ")
 ;;5168
 ;;21,"66267002340 ")
 ;;5169
 ;;21,"66267002356 ")
 ;;5170
 ;;21,"66267002360 ")
 ;;5171
 ;;21,"66267002406 ")
 ;;5172
 ;;21,"66267002420 ")
 ;;5173
 ;;21,"66267002428 ")
 ;;5174
 ;;21,"66267002430 ")
 ;;5175
 ;;21,"66267002440 ")
 ;;5176
 ;;21,"66267002460 ")
 ;;5177
 ;;21,"66267002515 ")
 ;;5178
 ;;21,"66267002520 ")
 ;;5179
 ;;21,"66267002521 ")
 ;;5180
 ;;21,"66267002528 ")
 ;;5181
 ;;21,"66267002530 ")
 ;;5182
 ;;21,"66267002540 ")
 ;;5183
 ;;21,"66267004510 ")
 ;;5184
 ;;21,"66267004514 ")
 ;;5185
 ;;21,"66267004520 ")
 ;;5186
 ;;21,"66267004524 ")
 ;;5187
 ;;21,"66267004525 ")
 ;;5188
 ;;21,"66267004528 ")
 ;;5189
 ;;21,"66267004530 ")
 ;;5190
 ;;21,"66267004906 ")
 ;;5191
 ;;21,"66267004908 ")
 ;;5192
 ;;21,"66267004909 ")
 ;;5193
 ;;21,"66267004910 ")
 ;;5194
 ;;21,"66267004912 ")
 ;;5195
 ;;21,"66267004915 ")
 ;;5196
 ;;21,"66267004920 ")
 ;;5197
 ;;21,"66267004928 ")
 ;;5198
 ;;21,"66267004930 ")
 ;;5199
 ;;21,"66267004940 ")
 ;;5200
 ;;21,"66267005003 ")
 ;;5201
 ;;21,"66267005004 ")
 ;;5202
 ;;21,"66267005005 ")
 ;;5203
 ;;21,"66267005006 ")
 ;;5204
 ;;21,"66267005009 ")
 ;;5205
 ;;21,"66267005010 ")
 ;;5206
 ;;21,"66267005012 ")
 ;;5207
 ;;21,"66267005014 ")
 ;;5208
 ;;21,"66267005015 ")
 ;;5209
 ;;21,"66267005020 ")
 ;;5210
 ;;21,"66267005021 ")
 ;;5211
 ;;21,"66267005028 ")
 ;;5212
 ;;21,"66267005030 ")
 ;;5213
 ;;21,"66267005040 ")
 ;;5214
 ;;21,"66267005045 ")
 ;;5215
 ;;21,"66267005060 ")
 ;;5216
 ;;21,"66267006004 ")
 ;;5217
 ;;21,"66267006006 ")
 ;;5218
 ;;21,"66267006008 ")
 ;;5219
 ;;21,"66267006010 ")
 ;;5220
 ;;21,"66267006014 ")
 ;;5221
 ;;21,"66267006020 ")
 ;;5222
 ;;21,"66267006021 ")
 ;;5223
 ;;21,"66267006028 ")
 ;;5224
 ;;21,"66267006030 ")
 ;;5225
 ;;21,"66267006040 ")
 ;;5226
 ;;21,"66267006056 ")
 ;;5227
 ;;21,"66267006060 ")
 ;;5228
 ;;21,"66267007215 ")
 ;;5229
 ;;21,"66267007220 ")
 ;;5230
 ;;21,"66267007228 ")
 ;;5231
 ;;21,"66267007230 ")
 ;;5232
 ;;21,"66267007240 ")
 ;;5233
 ;;21,"66267007310 ")
 ;;5234
 ;;21,"66267007315 ")
 ;;5235
 ;;21,"66267007320 ")
 ;;5236
 ;;21,"66267007328 ")
 ;;5237
 ;;21,"66267007330 ")
 ;;5238
 ;;21,"66267007340 ")
 ;;5239
 ;;21,"66267008506 ")
 ;;5240
 ;;21,"66267008510 ")
 ;;5241
 ;;21,"66267008514 ")
 ;;5242
 ;;21,"66267008520 ")
 ;;5243
 ;;21,"66267008530 ")
 ;;5244
 ;;21,"66267008606 ")
 ;;5245
 ;;21,"66267008630 ")
 ;;5246
 ;;21,"66267008656 ")
 ;;5247
 ;;21,"66267008930 ")
 ;;5248
 ;;21,"66267009120 ")
 ;;5249
 ;;21,"66267009128 ")
 ;;5250
 ;;21,"66267009130 ")
 ;;5251
 ;;21,"66267009140 ")
 ;;5252
 ;;21,"66267015906 ")
 ;;5253
 ;;21,"66267015909 ")
 ;;5254
 ;;21,"66267015910 ")
 ;;5255
 ;;21,"66267015915 ")
 ;;5256
 ;;21,"66267015920 ")
 ;;5257
 ;;21,"66267015925 ")
 ;;5258
 ;;21,"66267015928 ")
 ;;5259
 ;;21,"66267015930 ")
 ;;5260
 ;;21,"66267015940 ")
 ;;5261
 ;;21,"66267015950 ")
 ;;5262
 ;;21,"66267015960 ")
 ;;5263
 ;;21,"66267015990 ")
 ;;5264
 ;;21,"66267016004 ")
 ;;5265
 ;;21,"66267016005 ")
 ;;5266
 ;;21,"66267016006 ")
 ;;5267
 ;;21,"66267016010 ")
 ;;5268
 ;;21,"66267016012 ")
 ;;5269
 ;;21,"66267016015 ")
 ;;5270
 ;;21,"66267016020 ")
 ;;5271
 ;;21,"66267016028 ")
 ;;5272
 ;;21,"66267016030 ")
 ;;5273
 ;;21,"66267016040 ")
 ;;5274
 ;;21,"66267016060 ")
 ;;5275
 ;;21,"66267016090 ")
 ;;5276
 ;;21,"66267019602 ")
 ;;5277
 ;;21,"66267019606 ")
 ;;5278
 ;;21,"66267019610 ")
 ;;5279
 ;;21,"66267019614 ")
 ;;5280
 ;;21,"66267019615 ")
 ;;5281
 ;;21,"66267019620 ")
 ;;5282
 ;;21,"66267019628 ")
 ;;5283
 ;;21,"66267019630 ")
 ;;5284
 ;;21,"66267019640 ")
 ;;5285
 ;;21,"66267019660 ")
 ;;5286
 ;;21,"66267020012 ")
 ;;5287
 ;;21,"66267020028 ")
 ;;5288
 ;;21,"66267020040 ")
 ;;5289
 ;;21,"66267020114 ")
 ;;5290
 ;;21,"66267020120 ")
 ;;5291
 ;;21,"66267020128 ")
 ;;5292
 ;;21,"66267020140 ")
 ;;5293
 ;;21,"66267025614 ")
 ;;5294
 ;;21,"66267025620 ")
 ;;5295
 ;;21,"66267025621 ")
 ;;5296
 ;;21,"66267025630 ")
 ;;5297
 ;;21,"66267025640 ")
 ;;5298
 ;;21,"66267025660 ")
 ;;5299
 ;;21,"66267026215 ")
 ;;5300
 ;;21,"66267026220 ")
 ;;5301
 ;;21,"66267026230 ")
 ;;5302
 ;;21,"66267026240 ")
 ;;5303
 ;;21,"66267026260 ")
 ;;5304
 ;;21,"66267030612 ")
 ;;5305
 ;;21,"66267030620 ")
 ;;5306
 ;;21,"66267030630 ")
 ;;5307
 ;;21,"66267030707 ")
 ;;5308
 ;;21,"66267030710 ")
 ;;5309
 ;;21,"66267030715 ")
 ;;5310
 ;;21,"66267030720 ")
 ;;5311
 ;;21,"66267030730 ")
 ;;5312
 ;;21,"66267031207 ")
 ;;5313
 ;;21,"66267031210 ")
 ;;5314
 ;;21,"66267031215 ")
 ;;5315
 ;;21,"66267031220 ")
 ;;5316
 ;;21,"66267031230 ")
 ;;5317
 ;;21,"66267031240 ")
 ;;5318
 ;;21,"66267031415 ")
 ;;5319
 ;;21,"66267031420 ")
 ;;5320
 ;;21,"66267031430 ")
 ;;5321
 ;;21,"66267031440 ")
 ;;5322
 ;;21,"66267031460 ")
 ;;5323
 ;;21,"66267041610 ")
 ;;5324
 ;;21,"66267041620 ")
 ;;5325
 ;;21,"66267041630 ")
 ;;5326
 ;;21,"66267041640 ")
 ;;5327
 ;;21,"66267041660 ")
 ;;5328
 ;;21,"66267042315 ")
 ;;5329
 ;;21,"66267042320 ")
 ;;5330
 ;;21,"66267042330 ")
 ;;5331
 ;;21,"66267042340 ")
 ;;5332
 ;;21,"66267042360 ")
 ;;5333
 ;;21,"66267045506 ")
 ;;5334
 ;;21,"66267045510 ")
 ;;5335
 ;;21,"66267045520 ")
 ;;5336
 ;;21,"66267045530 ")
 ;;5337
 ;;21,"66267045540 ")
 ;;5338
 ;;21,"66267050410 ")
 ;;5339
 ;;21,"66267050420 ")
 ;;5340
 ;;21,"66267050430 ")
 ;;5341
 ;;21,"66267050440 ")
 ;;5342
 ;;21,"66267050450 ")
 ;;5343
 ;;21,"66267054903 ")
 ;;5344
 ;;21,"66267054914 ")
 ;;5345
 ;;21,"66267054915 ")
 ;;5346
 ;;21,"66267054920 ")
 ;;5347
 ;;21,"66267054930 ")
 ;;5348
 ;;21,"66267054940 ")
 ;;5349
 ;;21,"66267055915 ")
 ;;5350
 ;;21,"66267055920 ")
 ;;5351
 ;;21,"66267055928 ")
 ;;5352
 ;;21,"66267055930 ")
 ;;5353
 ;;21,"66267055940 ")
 ;;5354
 ;;21,"66267059510 ")
 ;;5355
 ;;21,"66267059520 ")
 ;;5356
 ;;21,"66267059530 ")
 ;;5357
 ;;21,"66267059540 ")
 ;;5358
 ;;21,"66267059560 ")
 ;;5359
 ;;21,"66267071203 ")
 ;;5360
 ;;21,"66267071205 ")
 ;;5361
 ;;21,"66267071210 ")
 ;;5362
 ;;21,"66267071214 ")
 ;;5363
 ;;21,"66267071604 ")
 ;;5364
 ;;21,"66267071606 ")
 ;;5365
 ;;21,"66267076304 ")
 ;;5366
 ;;21,"66267076306 ")
 ;;5367
 ;;21,"66267076309 ")
 ;;5368
 ;;21,"66267076406 ")
 ;;5369
 ;;21,"66267076409 ")
 ;;5370
 ;;21,"66267076418 ")
 ;;5371
 ;;21,"66267076802 ")
 ;;5372
 ;;21,"66267076806 ")
 ;;5373
 ;;21,"66267076904 ")
 ;;5374
 ;;21,"66267076906 ")
 ;;5375
 ;;21,"66267076908 ")
 ;;5376
 ;;21,"66267077003 ")
 ;;5377
 ;;21,"66267077004 ")
 ;;5378
 ;;21,"66267077006 ")
 ;;5379
 ;;21,"66267077009 ")
 ;;5380