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

BGP33J17.m

Go to the documentation of this file.
BGP33J17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"63874-0109-30 ")
 ;;6199
 ;;21,"63874-0109-40 ")
 ;;6200
 ;;21,"63874-0109-50 ")
 ;;6201
 ;;21,"63874-0109-60 ")
 ;;6202
 ;;21,"63874-0110-01 ")
 ;;6203
 ;;21,"63874-0110-20 ")
 ;;6204
 ;;21,"63874-0110-28 ")
 ;;6205
 ;;21,"63874-0110-30 ")
 ;;6206
 ;;21,"63874-0110-40 ")
 ;;6207
 ;;21,"63874-0110-50 ")
 ;;6208
 ;;21,"63874-0111-01 ")
 ;;6209
 ;;21,"63874-0111-03 ")
 ;;6210
 ;;21,"63874-0111-04 ")
 ;;6211
 ;;21,"63874-0111-12 ")
 ;;6212
 ;;21,"63874-0111-14 ")
 ;;6213
 ;;21,"63874-0111-15 ")
 ;;6214
 ;;21,"63874-0111-16 ")
 ;;6215
 ;;21,"63874-0111-20 ")
 ;;6216
 ;;21,"63874-0111-21 ")
 ;;6217
 ;;21,"63874-0111-24 ")
 ;;6218
 ;;21,"63874-0111-28 ")
 ;;6219
 ;;21,"63874-0111-30 ")
 ;;6220
 ;;21,"63874-0111-40 ")
 ;;6221
 ;;21,"63874-0111-50 ")
 ;;6222
 ;;21,"63874-0111-56 ")
 ;;6223
 ;;21,"63874-0111-60 ")
 ;;6224
 ;;21,"63874-0111-72 ")
 ;;6225
 ;;21,"63874-0111-74 ")
 ;;6226
 ;;21,"63874-0111-77 ")
 ;;6227
 ;;21,"63874-0111-80 ")
 ;;6228
 ;;21,"63874-0112-01 ")
 ;;6229
 ;;21,"63874-0112-03 ")
 ;;6230
 ;;21,"63874-0112-04 ")
 ;;6231
 ;;21,"63874-0112-05 ")
 ;;6232
 ;;21,"63874-0112-06 ")
 ;;6233
 ;;21,"63874-0112-08 ")
 ;;6234
 ;;21,"63874-0112-10 ")
 ;;6235
 ;;21,"63874-0112-12 ")
 ;;6236
 ;;21,"63874-0112-14 ")
 ;;6237
 ;;21,"63874-0112-15 ")
 ;;6238
 ;;21,"63874-0112-16 ")
 ;;6239
 ;;21,"63874-0112-18 ")
 ;;6240
 ;;21,"63874-0112-20 ")
 ;;6241
 ;;21,"63874-0112-21 ")
 ;;6242
 ;;21,"63874-0112-24 ")
 ;;6243
 ;;21,"63874-0112-25 ")
 ;;6244
 ;;21,"63874-0112-28 ")
 ;;6245
 ;;21,"63874-0112-30 ")
 ;;6246
 ;;21,"63874-0112-40 ")
 ;;6247
 ;;21,"63874-0112-50 ")
 ;;6248
 ;;21,"63874-0112-56 ")
 ;;6249
 ;;21,"63874-0112-60 ")
 ;;6250
 ;;21,"63874-0112-72 ")
 ;;6251
 ;;21,"63874-0112-74 ")
 ;;6252
 ;;21,"63874-0112-77 ")
 ;;6253
 ;;21,"63874-0113-01 ")
 ;;6254
 ;;21,"63874-0113-03 ")
 ;;6255
 ;;21,"63874-0113-08 ")
 ;;6256
 ;;21,"63874-0113-09 ")
 ;;6257
 ;;21,"63874-0113-10 ")
 ;;6258
 ;;21,"63874-0113-12 ")
 ;;6259
 ;;21,"63874-0113-14 ")
 ;;6260
 ;;21,"63874-0113-15 ")
 ;;6261
 ;;21,"63874-0113-20 ")
 ;;6262
 ;;21,"63874-0113-21 ")
 ;;6263
 ;;21,"63874-0113-24 ")
 ;;6264
 ;;21,"63874-0113-28 ")
 ;;6265
 ;;21,"63874-0113-30 ")
 ;;6266
 ;;21,"63874-0113-40 ")
 ;;6267
 ;;21,"63874-0113-50 ")
 ;;6268
 ;;21,"63874-0114-01 ")
 ;;6269
 ;;21,"63874-0114-03 ")
 ;;6270
 ;;21,"63874-0114-07 ")
 ;;6271
 ;;21,"63874-0114-10 ")
 ;;6272
 ;;21,"63874-0114-20 ")
 ;;6273
 ;;21,"63874-0114-21 ")
 ;;6274
 ;;21,"63874-0114-24 ")
 ;;6275
 ;;21,"63874-0114-25 ")
 ;;6276
 ;;21,"63874-0114-28 ")
 ;;6277
 ;;21,"63874-0114-30 ")
 ;;6278
 ;;21,"63874-0114-40 ")
 ;;6279
 ;;21,"63874-0114-50 ")
 ;;6280
 ;;21,"63874-0115-01 ")
 ;;6281
 ;;21,"63874-0115-08 ")
 ;;6282
 ;;21,"63874-0115-10 ")
 ;;6283
 ;;21,"63874-0115-12 ")
 ;;6284
 ;;21,"63874-0115-14 ")
 ;;6285
 ;;21,"63874-0115-15 ")
 ;;6286
 ;;21,"63874-0115-20 ")
 ;;6287
 ;;21,"63874-0115-21 ")
 ;;6288
 ;;21,"63874-0115-30 ")
 ;;6289
 ;;21,"63874-0117-10 ")
 ;;6290
 ;;21,"63874-0117-12 ")
 ;;6291
 ;;21,"63874-0117-14 ")
 ;;6292
 ;;21,"63874-0117-15 ")
 ;;6293
 ;;21,"63874-0117-20 ")
 ;;6294
 ;;21,"63874-0117-30 ")
 ;;6295
 ;;21,"63874-0118-01 ")
 ;;6296
 ;;21,"63874-0118-03 ")
 ;;6297
 ;;21,"63874-0118-06 ")
 ;;6298
 ;;21,"63874-0118-07 ")
 ;;6299
 ;;21,"63874-0118-10 ")
 ;;6300
 ;;21,"63874-0118-12 ")
 ;;6301
 ;;21,"63874-0118-14 ")
 ;;6302
 ;;21,"63874-0118-15 ")
 ;;6303
 ;;21,"63874-0118-18 ")
 ;;6304
 ;;21,"63874-0118-20 ")
 ;;6305
 ;;21,"63874-0118-21 ")
 ;;6306
 ;;21,"63874-0118-24 ")
 ;;6307
 ;;21,"63874-0118-28 ")
 ;;6308
 ;;21,"63874-0118-30 ")
 ;;6309
 ;;21,"63874-0118-40 ")
 ;;6310
 ;;21,"63874-0118-50 ")
 ;;6311
 ;;21,"63874-0118-60 ")
 ;;6312
 ;;21,"63874-0119-01 ")
 ;;6313
 ;;21,"63874-0119-21 ")
 ;;6314
 ;;21,"63874-0119-30 ")
 ;;6315
 ;;21,"63874-0120-01 ")
 ;;6316
 ;;21,"63874-0120-12 ")
 ;;6317
 ;;21,"63874-0120-20 ")
 ;;6318
 ;;21,"63874-0120-30 ")
 ;;6319
 ;;21,"63874-0123-01 ")
 ;;6320
 ;;21,"63874-0123-12 ")
 ;;6321
 ;;21,"63874-0123-14 ")
 ;;6322
 ;;21,"63874-0123-15 ")
 ;;6323
 ;;21,"63874-0123-20 ")
 ;;6324
 ;;21,"63874-0123-21 ")
 ;;6325
 ;;21,"63874-0123-24 ")
 ;;6326
 ;;21,"63874-0123-28 ")
 ;;6327
 ;;21,"63874-0123-30 ")
 ;;6328
 ;;21,"63874-0123-40 ")
 ;;6329
 ;;21,"63874-0123-50 ")
 ;;6330
 ;;21,"63874-0123-60 ")
 ;;6331
 ;;21,"63874-0124-01 ")
 ;;6332
 ;;21,"63874-0124-02 ")
 ;;6333
 ;;21,"63874-0124-10 ")
 ;;6334
 ;;21,"63874-0124-12 ")
 ;;6335
 ;;21,"63874-0124-14 ")
 ;;6336
 ;;21,"63874-0124-15 ")
 ;;6337
 ;;21,"63874-0124-20 ")
 ;;6338
 ;;21,"63874-0124-21 ")
 ;;6339
 ;;21,"63874-0124-24 ")
 ;;6340
 ;;21,"63874-0124-28 ")
 ;;6341
 ;;21,"63874-0124-30 ")
 ;;6342
 ;;21,"63874-0124-40 ")
 ;;6343
 ;;21,"63874-0124-50 ")
 ;;6344
 ;;21,"63874-0124-60 ")
 ;;6345
 ;;21,"63874-0125-01 ")
 ;;6346
 ;;21,"63874-0125-02 ")
 ;;6347
 ;;21,"63874-0125-10 ")
 ;;6348
 ;;21,"63874-0125-14 ")
 ;;6349
 ;;21,"63874-0125-15 ")
 ;;6350
 ;;21,"63874-0125-20 ")
 ;;6351
 ;;21,"63874-0125-21 ")
 ;;6352
 ;;21,"63874-0125-24 ")
 ;;6353
 ;;21,"63874-0125-28 ")
 ;;6354
 ;;21,"63874-0125-30 ")
 ;;6355
 ;;21,"63874-0125-40 ")
 ;;6356
 ;;21,"63874-0125-60 ")
 ;;6357
 ;;21,"63874-0125-80 ")
 ;;6358
 ;;21,"63874-0126-28 ")
 ;;6359
 ;;21,"63874-0126-30 ")
 ;;6360
 ;;21,"63874-0126-40 ")
 ;;6361
 ;;21,"63874-0127-01 ")
 ;;6362
 ;;21,"63874-0127-05 ")
 ;;6363
 ;;21,"63874-0127-18 ")
 ;;6364
 ;;21,"63874-0127-20 ")
 ;;6365
 ;;21,"63874-0127-21 ")
 ;;6366
 ;;21,"63874-0127-28 ")
 ;;6367
 ;;21,"63874-0127-30 ")
 ;;6368
 ;;21,"63874-0127-40 ")
 ;;6369
 ;;21,"63874-0127-42 ")
 ;;6370
 ;;21,"63874-0129-01 ")
 ;;6371
 ;;21,"63874-0129-04 ")
 ;;6372
 ;;21,"63874-0129-08 ")
 ;;6373
 ;;21,"63874-0129-10 ")
 ;;6374
 ;;21,"63874-0129-12 ")
 ;;6375
 ;;21,"63874-0129-14 ")
 ;;6376
 ;;21,"63874-0129-15 ")
 ;;6377
 ;;21,"63874-0129-16 ")
 ;;6378
 ;;21,"63874-0129-20 ")
 ;;6379
 ;;21,"63874-0129-21 ")
 ;;6380
 ;;21,"63874-0129-24 ")
 ;;6381
 ;;21,"63874-0129-28 ")
 ;;6382
 ;;21,"63874-0129-30 ")
 ;;6383
 ;;21,"63874-0129-40 ")
 ;;6384
 ;;21,"63874-0129-50 ")
 ;;6385
 ;;21,"63874-0129-56 ")
 ;;6386
 ;;21,"63874-0129-60 ")
 ;;6387
 ;;21,"63874-0130-01 ")
 ;;6388
 ;;21,"63874-0130-03 ")
 ;;6389
 ;;21,"63874-0130-06 ")
 ;;6390
 ;;21,"63874-0130-09 ")
 ;;6391
 ;;21,"63874-0130-10 ")
 ;;6392
 ;;21,"63874-0130-12 ")
 ;;6393
 ;;21,"63874-0130-14 ")
 ;;6394
 ;;21,"63874-0130-15 ")
 ;;6395
 ;;21,"63874-0130-20 ")
 ;;6396
 ;;21,"63874-0130-21 ")
 ;;6397
 ;;21,"63874-0130-24 ")
 ;;6398
 ;;21,"63874-0130-28 ")
 ;;6399
 ;;21,"63874-0130-30 ")
 ;;6400
 ;;21,"63874-0130-40 ")
 ;;6401
 ;;21,"63874-0130-60 ")
 ;;6402
 ;;21,"63874-0143-10 ")
 ;;6403
 ;;21,"63874-0143-15 ")
 ;;6404
 ;;21,"63874-0143-80 ")
 ;;6405
 ;;21,"63874-0144-10 ")
 ;;6406
 ;;21,"63874-0144-15 ")
 ;;6407
 ;;21,"63874-0146-10 ")
 ;;6408
 ;;21,"63874-0146-15 ")
 ;;6409
 ;;21,"63874-0146-20 ")
 ;;6410
 ;;21,"63874-0147-10 ")
 ;;6411
 ;;21,"63874-0147-15 ")
 ;;6412
 ;;21,"63874-0147-75 ")
 ;;6413
 ;;21,"63874-0148-10 ")
 ;;6414
 ;;21,"63874-0148-15 ")
 ;;6415
 ;;21,"63874-0148-75 ")
 ;;6416
 ;;21,"63874-0150-10 ")
 ;;6417
 ;;21,"63874-0150-20 ")
 ;;6418
 ;;21,"63874-0151-15 ")
 ;;6419
 ;;21,"63874-0151-75 ")
 ;;6420
 ;;21,"63874-0153-15 ")
 ;;6421
 ;;21,"63874-0153-75 ")
 ;;6422
 ;;21,"63874-0155-10 ")
 ;;6423
 ;;21,"63874-0155-20 ")
 ;;6424
 ;;21,"63874-0156-10 ")
 ;;6425
 ;;21,"63874-0156-15 ")
 ;;6426
 ;;21,"63874-0156-20 ")
 ;;6427
 ;;21,"63874-0159-10 ")
 ;;6428
 ;;21,"63874-0159-20 ")
 ;;6429
 ;;21,"63874-0160-10 ")
 ;;6430
 ;;21,"63874-0160-20 ")
 ;;6431
 ;;21,"63874-0160-48 ")
 ;;6432
 ;;21,"63874-0166-10 ")
 ;;6433
 ;;21,"63874-0166-20 ")
 ;;6434
 ;;21,"63874-0170-10 ")
 ;;6435
 ;;21,"63874-0170-20 ")
 ;;6436
 ;;21,"63874-0231-01 ")
 ;;6437
 ;;21,"63874-0231-10 ")
 ;;6438
 ;;21,"63874-0231-12 ")
 ;;6439
 ;;21,"63874-0231-14 ")
 ;;6440
 ;;21,"63874-0231-15 ")
 ;;6441
 ;;21,"63874-0231-20 ")
 ;;6442
 ;;21,"63874-0231-21 ")
 ;;6443
 ;;21,"63874-0231-28 ")
 ;;6444
 ;;21,"63874-0231-30 ")
 ;;6445
 ;;21,"63874-0231-40 ")
 ;;6446
 ;;21,"63874-0232-01 ")
 ;;6447
 ;;21,"63874-0232-02 ")
 ;;6448
 ;;21,"63874-0232-03 ")
 ;;6449
 ;;21,"63874-0232-10 ")
 ;;6450
 ;;21,"63874-0232-12 ")
 ;;6451
 ;;21,"63874-0232-16 ")
 ;;6452
 ;;21,"63874-0232-20 ")
 ;;6453
 ;;21,"63874-0232-21 ")
 ;;6454
 ;;21,"63874-0232-24 ")
 ;;6455
 ;;21,"63874-0232-28 ")
 ;;6456
 ;;21,"63874-0232-30 ")
 ;;6457
 ;;21,"63874-0232-40 ")
 ;;6458
 ;;21,"63874-0232-50 ")
 ;;6459
 ;;21,"63874-0233-01 ")
 ;;6460
 ;;21,"63874-0233-02 ")
 ;;6461
 ;;21,"63874-0233-06 ")
 ;;6462
 ;;21,"63874-0233-10 ")
 ;;6463
 ;;21,"63874-0233-12 ")
 ;;6464
 ;;21,"63874-0233-15 ")
 ;;6465
 ;;21,"63874-0233-16 ")
 ;;6466
 ;;21,"63874-0233-20 ")
 ;;6467
 ;;21,"63874-0233-24 ")
 ;;6468
 ;;21,"63874-0233-28 ")
 ;;6469
 ;;21,"63874-0233-30 ")
 ;;6470
 ;;21,"63874-0233-36 ")
 ;;6471
 ;;21,"63874-0233-40 ")
 ;;6472
 ;;21,"63874-0233-50 ")
 ;;6473
 ;;21,"63874-0233-60 ")
 ;;6474
 ;;21,"63874-0235-01 ")
 ;;6475
 ;;21,"63874-0235-04 ")
 ;;6476
 ;;21,"63874-0235-10 ")
 ;;6477
 ;;21,"63874-0235-12 ")
 ;;6478
 ;;21,"63874-0235-15 ")
 ;;6479
 ;;21,"63874-0235-16 ")
 ;;6480
 ;;21,"63874-0235-20 ")
 ;;6481
 ;;21,"63874-0235-21 ")
 ;;6482
 ;;21,"63874-0235-28 ")
 ;;6483
 ;;21,"63874-0235-30 ")
 ;;6484
 ;;21,"63874-0235-40 ")
 ;;6485
 ;;21,"63874-0235-56 ")
 ;;6486
 ;;21,"63874-0235-80 ")
 ;;6487
 ;;21,"63874-0237-01 ")
 ;;6488
 ;;21,"63874-0237-04 ")
 ;;6489
 ;;21,"63874-0237-05 ")
 ;;6490
 ;;21,"63874-0237-06 ")
 ;;6491
 ;;21,"63874-0237-07 ")
 ;;6492
 ;;21,"63874-0237-10 ")
 ;;6493
 ;;21,"63874-0237-12 ")
 ;;6494
 ;;21,"63874-0237-14 ")
 ;;6495
 ;;21,"63874-0237-15 ")
 ;;6496
 ;;21,"63874-0237-16 ")
 ;;6497
 ;;21,"63874-0237-20 ")
 ;;6498
 ;;21,"63874-0237-21 ")
 ;;6499
 ;;21,"63874-0237-24 ")
 ;;6500
 ;;21,"63874-0237-28 ")
 ;;6501
 ;;21,"63874-0237-30 ")
 ;;6502
 ;;21,"63874-0237-40 ")
 ;;6503
 ;;21,"63874-0237-50 ")
 ;;6504
 ;;21,"63874-0237-60 ")
 ;;6505
 ;;21,"63874-0237-72 ")
 ;;6506
 ;;21,"63874-0237-74 ")
 ;;6507
 ;;21,"63874-0237-77 ")
 ;;6508
 ;;21,"63874-0239-01 ")
 ;;6509
 ;;21,"63874-0239-20 ")
 ;;6510
 ;;21,"63874-0239-30 ")
 ;;6511
 ;;21,"63874-0240-01 ")
 ;;6512
 ;;21,"63874-0240-20 ")
 ;;6513
 ;;21,"63874-0240-30 ")
 ;;6514
 ;;21,"63874-0240-50 ")
 ;;6515
 ;;21,"63874-0241-15 ")
 ;;6516
 ;;21,"63874-0241-20 ")
 ;;6517
 ;;21,"63874-0241-30 ")
 ;;6518
 ;;21,"63874-0241-50 ")
 ;;6519
 ;;21,"63874-0241-60 ")
 ;;6520
 ;;21,"63874-0246-00 ")
 ;;6521
 ;;21,"63874-0246-04 ")
 ;;6522
 ;;21,"63874-0246-06 ")
 ;;6523
 ;;21,"63874-0246-10 ")
 ;;6524
 ;;21,"63874-0246-15 ")
 ;;6525
 ;;21,"63874-0249-10 ")
 ;;6526
 ;;21,"63874-0249-20 ")
 ;;6527
 ;;21,"63874-0249-30 ")
 ;;6528
 ;;21,"63874-0523-01 ")
 ;;6529
 ;;21,"63874-0523-03 ")
 ;;6530
 ;;21,"63874-0523-05 ")
 ;;6531
 ;;21,"63874-0523-06 ")
 ;;6532
 ;;21,"63874-0523-07 ")
 ;;6533
 ;;21,"63874-0523-10 ")
 ;;6534
 ;;21,"63874-0523-14 ")
 ;;6535
 ;;21,"63874-0523-20 ")
 ;;6536
 ;;21,"63874-0523-30 ")
 ;;6537
 ;;21,"63874-0533-01 ")
 ;;6538
 ;;21,"63874-0533-04 ")
 ;;6539
 ;;21,"63874-0533-10 ")
 ;;6540
 ;;21,"63874-0533-12 ")
 ;;6541
 ;;21,"63874-0533-14 ")
 ;;6542
 ;;21,"63874-0533-15 ")
 ;;6543
 ;;21,"63874-0533-20 ")
 ;;6544
 ;;21,"63874-0533-25 ")
 ;;6545
 ;;21,"63874-0533-28 ")
 ;;6546
 ;;21,"63874-0533-30 ")
 ;;6547
 ;;21,"63874-0533-40 ")
 ;;6548
 ;;21,"63874-0533-44 ")
 ;;6549
 ;;21,"63874-0533-60 ")
 ;;6550
 ;;21,"63874-0533-72 ")
 ;;6551
 ;;21,"63874-0533-74 ")
 ;;6552
 ;;21,"63874-0533-77 ")
 ;;6553
 ;;21,"63874-0533-90 ")
 ;;6554
 ;;21,"63874-1086-01 ")
 ;;6555
 ;;21,"63874-1086-02 ")
 ;;6556
 ;;21,"63874-1086-03 ")
 ;;6557
 ;;21,"63874-1086-04 ")
 ;;6558
 ;;21,"63874-1086-05 ")
 ;;6559
 ;;21,"63874-1086-06 ")
 ;;6560
 ;;21,"63874-1112-02 ")
 ;;6561
 ;;21,"63874-1226-02 ")
 ;;6562
 ;;21,"64038-0033-01 ")
 ;;6563
 ;;21,"64038-0033-40 ")
 ;;6564
 ;;21,"64455-0691-01 ")
 ;;6565
 ;;21,"64455-0691-02 ")
 ;;6566
 ;;21,"64455-0777-01 ")
 ;;6567
 ;;21,"64455-0777-02 ")
 ;;6568
 ;;21,"64455-0777-03 ")
 ;;6569
 ;;21,"64455-0777-04 ")
 ;;6570
 ;;21,"64679-0544-02 ")
 ;;6571
 ;;21,"64679-0544-03 ")
 ;;6572
 ;;21,"64679-0545-02 ")
 ;;6573
 ;;21,"64679-0545-03 ")
 ;;6574
 ;;21,"64679-0547-01 ")
 ;;6575
 ;;21,"64679-0547-02 ")
 ;;6576
 ;;21,"64679-0547-03 ")
 ;;6577
 ;;21,"64679-0701-01 ")
 ;;6578
 ;;21,"64679-0701-02 ")
 ;;6579
 ;;21,"64679-0701-03 ")
 ;;6580
 ;;21,"64679-0702-01 ")
 ;;6581
 ;;21,"64679-0702-02 ")
 ;;6582
 ;;21,"64679-0703-01 ")
 ;;6583
 ;;21,"64679-0703-02 ")
 ;;6584