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