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