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

BGPM5BBG.m

Go to the documentation of this file.
BGPM5BBG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"67544073531 ")
 ;;6171
 ;;21,"67544073532 ")
 ;;6172
 ;;21,"67544074421 ")
 ;;6173
 ;;21,"67544074432 ")
 ;;6174
 ;;21,"67544083230 ")
 ;;6175
 ;;21,"67544083232 ")
 ;;6176
 ;;21,"67544083253 ")
 ;;6177
 ;;21,"67544083260 ")
 ;;6178
 ;;21,"67544084830 ")
 ;;6179
 ;;21,"67544084831 ")
 ;;6180
 ;;21,"67544084832 ")
 ;;6181
 ;;21,"67544084845 ")
 ;;6182
 ;;21,"67544084853 ")
 ;;6183
 ;;21,"67544084860 ")
 ;;6184
 ;;21,"67544084870 ")
 ;;6185
 ;;21,"67544084880 ")
 ;;6186
 ;;21,"67544084892 ")
 ;;6187
 ;;21,"67544086330 ")
 ;;6188
 ;;21,"67544086332 ")
 ;;6189
 ;;21,"67544086360 ")
 ;;6190
 ;;21,"67544087432 ")
 ;;6191
 ;;21,"67544090615 ")
 ;;6192
 ;;21,"67544090630 ")
 ;;6193
 ;;21,"67544090645 ")
 ;;6194
 ;;21,"67544090653 ")
 ;;6195
 ;;21,"67544090660 ")
 ;;6196
 ;;21,"67544090671 ")
 ;;6197
 ;;21,"67544090673 ")
 ;;6198
 ;;21,"67544090815 ")
 ;;6199
 ;;21,"67544090830 ")
 ;;6200
 ;;21,"67544090845 ")
 ;;6201
 ;;21,"67544090853 ")
 ;;6202
 ;;21,"67544090860 ")
 ;;6203
 ;;21,"67544090873 ")
 ;;6204
 ;;21,"67544090880 ")
 ;;6205
 ;;21,"67544094032 ")
 ;;6206
 ;;21,"67544095915 ")
 ;;6207
 ;;21,"67544095930 ")
 ;;6208
 ;;21,"67544095932 ")
 ;;6209
 ;;21,"67544095945 ")
 ;;6210
 ;;21,"67544095953 ")
 ;;6211
 ;;21,"67544095960 ")
 ;;6212
 ;;21,"67544095980 ")
 ;;6213
 ;;21,"67651002803 ")
 ;;6214
 ;;21,"67651002903 ")
 ;;6215
 ;;21,"67651003003 ")
 ;;6216
 ;;21,"67787020601 ")
 ;;6217
 ;;21,"67787020610 ")
 ;;6218
 ;;21,"67787020630 ")
 ;;6219
 ;;21,"67787020701 ")
 ;;6220
 ;;21,"67787020710 ")
 ;;6221
 ;;21,"67787020730 ")
 ;;6222
 ;;21,"67787020801 ")
 ;;6223
 ;;21,"67787020810 ")
 ;;6224
 ;;21,"67787020830 ")
 ;;6225
 ;;21,"67787021205 ")
 ;;6226
 ;;21,"67787021230 ")
 ;;6227
 ;;21,"67787021290 ")
 ;;6228
 ;;21,"67787021361 ")
 ;;6229
 ;;21,"67787021430 ")
 ;;6230
 ;;21,"67787021490 ")
 ;;6231
 ;;21,"68071000330 ")
 ;;6232
 ;;21,"68071003415 ")
 ;;6233
 ;;21,"68071003430 ")
 ;;6234
 ;;21,"68071003490 ")
 ;;6235
 ;;21,"68071009230 ")
 ;;6236
 ;;21,"68071012830 ")
 ;;6237
 ;;21,"68071022215 ")
 ;;6238
 ;;21,"68071022230 ")
 ;;6239
 ;;21,"68071022245 ")
 ;;6240
 ;;21,"68071022290 ")
 ;;6241
 ;;21,"68071023130 ")
 ;;6242
 ;;21,"68071023152 ")
 ;;6243
 ;;21,"68071023160 ")
 ;;6244
 ;;21,"68071023190 ")
 ;;6245
 ;;21,"68071023330 ")
 ;;6246
 ;;21,"68071024290 ")
 ;;6247
 ;;21,"68071029930 ")
 ;;6248
 ;;21,"68071030030 ")
 ;;6249
 ;;21,"68071030060 ")
 ;;6250
 ;;21,"68071032330 ")
 ;;6251
 ;;21,"68071032360 ")
 ;;6252
 ;;21,"68071032390 ")
 ;;6253
 ;;21,"68071032530 ")
 ;;6254
 ;;21,"68071032630 ")
 ;;6255
 ;;21,"68071041690 ")
 ;;6256
 ;;21,"68071047430 ")
 ;;6257
 ;;21,"68071047460 ")
 ;;6258
 ;;21,"68071048660 ")
 ;;6259
 ;;21,"68071054830 ")
 ;;6260
 ;;21,"68071054860 ")
 ;;6261
 ;;21,"68071068515 ")
 ;;6262
 ;;21,"68071068530 ")
 ;;6263
 ;;21,"68071069430 ")
 ;;6264
 ;;21,"68071069460 ")
 ;;6265
 ;;21,"68071070260 ")
 ;;6266
 ;;21,"68071077730 ")
 ;;6267
 ;;21,"68071131700 ")
 ;;6268
 ;;21,"68071131800 ")
 ;;6269
 ;;21,"68084003101 ")
 ;;6270
 ;;21,"68084003111 ")
 ;;6271
 ;;21,"68084003201 ")
 ;;6272
 ;;21,"68084003211 ")
 ;;6273
 ;;21,"68084004401 ")
 ;;6274
 ;;21,"68084004411 ")
 ;;6275
 ;;21,"68084004485 ")
 ;;6276
 ;;21,"68084004501 ")
 ;;6277
 ;;21,"68084004511 ")
 ;;6278
 ;;21,"68084004585 ")
 ;;6279
 ;;21,"68084004601 ")
 ;;6280
 ;;21,"68084004611 ")
 ;;6281
 ;;21,"68084004685 ")
 ;;6282
 ;;21,"68084004701 ")
 ;;6283
 ;;21,"68084004711 ")
 ;;6284
 ;;21,"68084004785 ")
 ;;6285
 ;;21,"68084010000 ")
 ;;6286
 ;;21,"68084010006 ")
 ;;6287
 ;;21,"68084011901 ")
 ;;6288
 ;;21,"68084011911 ")
 ;;6289
 ;;21,"68084012001 ")
 ;;6290
 ;;21,"68084012011 ")
 ;;6291
 ;;21,"68084012101 ")
 ;;6292
 ;;21,"68084012111 ")
 ;;6293
 ;;21,"68084018001 ")
 ;;6294
 ;;21,"68084018011 ")
 ;;6295
 ;;21,"68084018101 ")
 ;;6296
 ;;21,"68084018111 ")
 ;;6297
 ;;21,"68084018201 ")
 ;;6298
 ;;21,"68084018211 ")
 ;;6299
 ;;21,"68084028514 ")
 ;;6300
 ;;21,"68084033001 ")
 ;;6301
 ;;21,"68084033011 ")
 ;;6302
 ;;21,"68084033101 ")
 ;;6303
 ;;21,"68084033111 ")
 ;;6304
 ;;21,"68084048401 ")
 ;;6305
 ;;21,"68084048411 ")
 ;;6306
 ;;21,"68084048501 ")
 ;;6307
 ;;21,"68084048511 ")
 ;;6308
 ;;21,"68084048601 ")
 ;;6309
 ;;21,"68084048611 ")
 ;;6310
 ;;21,"68115002160 ")
 ;;6311
 ;;21,"68115002220 ")
 ;;6312
 ;;21,"68115002314 ")
 ;;6313
 ;;21,"68115002348 ")
 ;;6314
 ;;21,"68115002490 ")
 ;;6315
 ;;21,"68115014390 ")
 ;;6316
 ;;21,"68115026145 ")
 ;;6317
 ;;21,"68115043930 ")
 ;;6318
 ;;21,"68180031101 ")
 ;;6319
 ;;21,"68180031102 ")
 ;;6320
 ;;21,"68180031201 ")
 ;;6321
 ;;21,"68180031202 ")
 ;;6322
 ;;21,"68180031301 ")
 ;;6323
 ;;21,"68180031302 ")
 ;;6324
 ;;21,"68180031401 ")
 ;;6325
 ;;21,"68180031406 ")
 ;;6326
 ;;21,"68180031501 ")
 ;;6327
 ;;21,"68180031506 ")
 ;;6328
 ;;21,"68180031601 ")
 ;;6329
 ;;21,"68180031606 ")
 ;;6330
 ;;21,"68180031701 ")
 ;;6331
 ;;21,"68180031706 ")
 ;;6332
 ;;21,"68180035101 ")
 ;;6333
 ;;21,"68180035103 ")
 ;;6334
 ;;21,"68180035106 ")
 ;;6335
 ;;21,"68180035108 ")
 ;;6336
 ;;21,"68180035109 ")
 ;;6337
 ;;21,"68180035201 ")
 ;;6338
 ;;21,"68180035202 ")
 ;;6339
 ;;21,"68180035203 ")
 ;;6340
 ;;21,"68180035205 ")
 ;;6341
 ;;21,"68180035206 ")
 ;;6342
 ;;21,"68180035209 ")
 ;;6343
 ;;21,"68180035211 ")
 ;;6344
 ;;21,"68180035301 ")
 ;;6345
 ;;21,"68180035302 ")
 ;;6346
 ;;21,"68180035303 ")
 ;;6347
 ;;21,"68180035305 ")
 ;;6348
 ;;21,"68180035306 ")
 ;;6349
 ;;21,"68180035309 ")
 ;;6350
 ;;21,"68180035311 ")
 ;;6351
 ;;21,"68258700303 ")
 ;;6352
 ;;21,"68258700403 ")
 ;;6353
 ;;21,"68258700503 ")
 ;;6354
 ;;21,"68258700603 ")
 ;;6355
 ;;21,"68258700703 ")
 ;;6356
 ;;21,"68258700803 ")
 ;;6357
 ;;21,"68258700903 ")
 ;;6358
 ;;21,"68258701003 ")
 ;;6359
 ;;21,"68258705401 ")
 ;;6360
 ;;21,"68258705409 ")
 ;;6361
 ;;21,"68258705509 ")
 ;;6362
 ;;21,"68258708103 ")
 ;;6363
 ;;21,"68258708509 ")
 ;;6364
 ;;21,"68258708606 ")
 ;;6365
 ;;21,"68258710103 ")
 ;;6366
 ;;21,"68258710106 ")
 ;;6367
 ;;21,"68258710902 ")
 ;;6368
 ;;21,"68258710903 ")
 ;;6369
 ;;21,"68258710909 ")
 ;;6370
 ;;21,"68258711501 ")
 ;;6371
 ;;21,"68258711601 ")
 ;;6372
 ;;21,"68258711603 ")
 ;;6373
 ;;21,"68258711703 ")
 ;;6374
 ;;21,"68382000101 ")
 ;;6375
 ;;21,"68382000105 ")
 ;;6376
 ;;21,"68382000106 ")
 ;;6377
 ;;21,"68382000110 ")
 ;;6378
 ;;21,"68382000116 ")
 ;;6379
 ;;21,"68382001801 ")
 ;;6380
 ;;21,"68382001805 ")
 ;;6381
 ;;21,"68382001806 ")
 ;;6382
 ;;21,"68382001810 ")
 ;;6383
 ;;21,"68382001814 ")
 ;;6384
 ;;21,"68382001816 ")
 ;;6385
 ;;21,"68382001901 ")
 ;;6386
 ;;21,"68382001905 ")
 ;;6387
 ;;21,"68382001906 ")
 ;;6388
 ;;21,"68382001910 ")
 ;;6389
 ;;21,"68382001914 ")
 ;;6390
 ;;21,"68382001916 ")
 ;;6391
 ;;21,"68382002001 ")
 ;;6392
 ;;21,"68382002005 ")
 ;;6393
 ;;21,"68382002006 ")
 ;;6394
 ;;21,"68382002010 ")
 ;;6395
 ;;21,"68382002014 ")
 ;;6396
 ;;21,"68382002016 ")
 ;;6397
 ;;21,"68382002101 ")
 ;;6398
 ;;21,"68382002105 ")
 ;;6399
 ;;21,"68382002106 ")
 ;;6400
 ;;21,"68382002110 ")
 ;;6401
 ;;21,"68382002114 ")
 ;;6402
 ;;21,"68382002116 ")
 ;;6403
 ;;21,"68382003401 ")
 ;;6404
 ;;21,"68382003405 ")
 ;;6405
 ;;21,"68382003406 ")
 ;;6406
 ;;21,"68382003410 ")
 ;;6407
 ;;21,"68382003416 ")
 ;;6408
 ;;21,"68382003501 ")
 ;;6409
 ;;21,"68382003505 ")
 ;;6410
 ;;21,"68382003506 ")
 ;;6411
 ;;21,"68382003510 ")
 ;;6412
 ;;21,"68382003516 ")
 ;;6413
 ;;21,"68382003601 ")
 ;;6414
 ;;21,"68382003605 ")
 ;;6415
 ;;21,"68382003606 ")
 ;;6416
 ;;21,"68382003610 ")
 ;;6417
 ;;21,"68382003616 ")
 ;;6418
 ;;21,"68382004301 ")
 ;;6419
 ;;21,"68382004305 ")
 ;;6420
 ;;21,"68382004306 ")
 ;;6421
 ;;21,"68382004310 ")
 ;;6422
 ;;21,"68382004314 ")
 ;;6423
 ;;21,"68382004316 ")
 ;;6424
 ;;21,"68382004318 ")
 ;;6425
 ;;21,"68382004401 ")
 ;;6426
 ;;21,"68382004405 ")
 ;;6427
 ;;21,"68382004406 ")
 ;;6428
 ;;21,"68382004410 ")
 ;;6429
 ;;21,"68382004414 ")
 ;;6430
 ;;21,"68382004416 ")
 ;;6431
 ;;21,"68382004501 ")
 ;;6432
 ;;21,"68382004506 ")
 ;;6433
 ;;21,"68382004514 ")
 ;;6434
 ;;21,"68382004516 ")
 ;;6435
 ;;21,"68382004540 ")
 ;;6436
 ;;21,"68382009701 ")
 ;;6437
 ;;21,"68382009705 ")
 ;;6438
 ;;21,"68382009706 ")
 ;;6439
 ;;21,"68382009710 ")
 ;;6440
 ;;21,"68382009716 ")
 ;;6441
 ;;21,"68382009801 ")
 ;;6442
 ;;21,"68382009805 ")
 ;;6443
 ;;21,"68382009806 ")
 ;;6444
 ;;21,"68382009810 ")
 ;;6445
 ;;21,"68382009816 ")
 ;;6446
 ;;21,"68382009901 ")
 ;;6447
 ;;21,"68382009905 ")
 ;;6448
 ;;21,"68382009906 ")
 ;;6449
 ;;21,"68382009910 ")
 ;;6450
 ;;21,"68382009916 ")
 ;;6451
 ;;21,"68382010006 ")
 ;;6452
 ;;21,"68382010101 ")
 ;;6453
 ;;21,"68382010105 ")
 ;;6454
 ;;21,"68382010106 ")
 ;;6455
 ;;21,"68382010110 ")
 ;;6456
 ;;21,"68382010114 ")
 ;;6457
 ;;21,"68382010116 ")
 ;;6458
 ;;21,"68382010118 ")
 ;;6459
 ;;21,"68387011230 ")
 ;;6460
 ;;21,"68387011930 ")
 ;;6461
 ;;21,"68387012030 ")
 ;;6462
 ;;21,"68387012060 ")
 ;;6463
 ;;21,"68387012090 ")
 ;;6464
 ;;21,"68387012530 ")
 ;;6465
 ;;21,"68387016030 ")
 ;;6466
 ;;21,"68387016530 ")
 ;;6467
 ;;21,"68387016560 ")
 ;;6468
 ;;21,"68387016590 ")
 ;;6469
 ;;21,"68387016630 ")
 ;;6470
 ;;21,"68387016660 ")
 ;;6471
 ;;21,"68387033015 ")
 ;;6472
 ;;21,"68387033030 ")
 ;;6473
 ;;21,"68387033060 ")
 ;;6474
 ;;21,"68387033515 ")
 ;;6475
 ;;21,"68387033524 ")
 ;;6476
 ;;21,"68387033530 ")
 ;;6477
 ;;21,"68387033560 ")
 ;;6478
 ;;21,"68387033590 ")
 ;;6479
 ;;21,"68387033630 ")
 ;;6480
 ;;21,"68387033690 ")
 ;;6481
 ;;21,"68387033724 ")
 ;;6482
 ;;21,"68387033730 ")
 ;;6483
 ;;21,"68387033830 ")
 ;;6484
 ;;21,"68387033930 ")
 ;;6485
 ;;21,"68387034830 ")
 ;;6486
 ;;21,"68387036060 ")
 ;;6487
 ;;21,"68387036307 ")
 ;;6488
 ;;21,"68387036315 ")
 ;;6489
 ;;21,"68387036330 ")
 ;;6490
 ;;21,"68462011301 ")
 ;;6491
 ;;21,"68462011305 ")
 ;;6492
 ;;21,"68462011401 ")
 ;;6493
 ;;21,"68462011405 ")
 ;;6494
 ;;21,"68462011501 ")
 ;;6495
 ;;21,"68462011505 ")
 ;;6496
 ;;21,"68533001000 ")
 ;;6497
 ;;21,"68533001017 ")
 ;;6498
 ;;21,"68533001028 ")
 ;;6499
 ;;21,"68533001040 ")
 ;;6500
 ;;21,"68533001100 ")
 ;;6501
 ;;21,"68533001117 ")
 ;;6502
 ;;21,"68533001126 ")
 ;;6503
 ;;21,"68533001140 ")
 ;;6504
 ;;21,"68533001200 ")
 ;;6505
 ;;21,"68533001217 ")
 ;;6506
 ;;21,"68533001225 ")
 ;;6507
 ;;21,"68533001240 ")
 ;;6508
 ;;21,"68533005500 ")
 ;;6509
 ;;21,"68533005512 ")
 ;;6510
 ;;21,"68533005525 ")
 ;;6511
 ;;21,"68533005540 ")
 ;;6512
 ;;21,"68533005600 ")
 ;;6513
 ;;21,"68533005612 ")
 ;;6514
 ;;21,"68533005625 ")
 ;;6515
 ;;21,"68533005640 ")
 ;;6516
 ;;21,"68533005700 ")
 ;;6517
 ;;21,"68533005712 ")
 ;;6518
 ;;21,"68533005725 ")
 ;;6519
 ;;21,"68533005740 ")
 ;;6520
 ;;21,"68533053350 ")
 ;;6521
 ;;21,"68533053390 ")
 ;;6522