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

BGP47D17.m

Go to the documentation of this file.
BGP47D17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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-0143-80 ")
 ;;6199
 ;;21,"63874-0144-10 ")
 ;;6200
 ;;21,"63874-0144-15 ")
 ;;6201
 ;;21,"63874-0146-10 ")
 ;;6202
 ;;21,"63874-0146-15 ")
 ;;6203
 ;;21,"63874-0146-20 ")
 ;;6204
 ;;21,"63874-0147-10 ")
 ;;6205
 ;;21,"63874-0147-15 ")
 ;;6206
 ;;21,"63874-0147-75 ")
 ;;6207
 ;;21,"63874-0148-10 ")
 ;;6208
 ;;21,"63874-0148-15 ")
 ;;6209
 ;;21,"63874-0148-75 ")
 ;;6210
 ;;21,"63874-0150-10 ")
 ;;6211
 ;;21,"63874-0150-20 ")
 ;;6212
 ;;21,"63874-0151-15 ")
 ;;6213
 ;;21,"63874-0151-75 ")
 ;;6214
 ;;21,"63874-0153-15 ")
 ;;6215
 ;;21,"63874-0153-75 ")
 ;;6216
 ;;21,"63874-0155-10 ")
 ;;6217
 ;;21,"63874-0155-20 ")
 ;;6218
 ;;21,"63874-0156-10 ")
 ;;6219
 ;;21,"63874-0156-15 ")
 ;;6220
 ;;21,"63874-0156-20 ")
 ;;6221
 ;;21,"63874-0159-10 ")
 ;;6222
 ;;21,"63874-0159-20 ")
 ;;6223
 ;;21,"63874-0160-10 ")
 ;;6224
 ;;21,"63874-0160-20 ")
 ;;6225
 ;;21,"63874-0160-48 ")
 ;;6226
 ;;21,"63874-0166-10 ")
 ;;6227
 ;;21,"63874-0166-20 ")
 ;;6228
 ;;21,"63874-0170-10 ")
 ;;6229
 ;;21,"63874-0170-20 ")
 ;;6230
 ;;21,"63874-0231-01 ")
 ;;6231
 ;;21,"63874-0231-10 ")
 ;;6232
 ;;21,"63874-0231-12 ")
 ;;6233
 ;;21,"63874-0231-14 ")
 ;;6234
 ;;21,"63874-0231-15 ")
 ;;6235
 ;;21,"63874-0231-20 ")
 ;;6236
 ;;21,"63874-0231-21 ")
 ;;6237
 ;;21,"63874-0231-28 ")
 ;;6238
 ;;21,"63874-0231-30 ")
 ;;6239
 ;;21,"63874-0231-40 ")
 ;;6240
 ;;21,"63874-0232-01 ")
 ;;6241
 ;;21,"63874-0232-02 ")
 ;;6242
 ;;21,"63874-0232-03 ")
 ;;6243
 ;;21,"63874-0232-10 ")
 ;;6244
 ;;21,"63874-0232-12 ")
 ;;6245
 ;;21,"63874-0232-16 ")
 ;;6246
 ;;21,"63874-0232-20 ")
 ;;6247
 ;;21,"63874-0232-21 ")
 ;;6248
 ;;21,"63874-0232-24 ")
 ;;6249
 ;;21,"63874-0232-28 ")
 ;;6250
 ;;21,"63874-0232-30 ")
 ;;6251
 ;;21,"63874-0232-40 ")
 ;;6252
 ;;21,"63874-0232-50 ")
 ;;6253
 ;;21,"63874-0233-01 ")
 ;;6254
 ;;21,"63874-0233-02 ")
 ;;6255
 ;;21,"63874-0233-06 ")
 ;;6256
 ;;21,"63874-0233-10 ")
 ;;6257
 ;;21,"63874-0233-12 ")
 ;;6258
 ;;21,"63874-0233-15 ")
 ;;6259
 ;;21,"63874-0233-16 ")
 ;;6260
 ;;21,"63874-0233-20 ")
 ;;6261
 ;;21,"63874-0233-24 ")
 ;;6262
 ;;21,"63874-0233-28 ")
 ;;6263
 ;;21,"63874-0233-30 ")
 ;;6264
 ;;21,"63874-0233-36 ")
 ;;6265
 ;;21,"63874-0233-40 ")
 ;;6266
 ;;21,"63874-0233-50 ")
 ;;6267
 ;;21,"63874-0233-60 ")
 ;;6268
 ;;21,"63874-0235-01 ")
 ;;6269
 ;;21,"63874-0235-04 ")
 ;;6270
 ;;21,"63874-0235-10 ")
 ;;6271
 ;;21,"63874-0235-12 ")
 ;;6272
 ;;21,"63874-0235-15 ")
 ;;6273
 ;;21,"63874-0235-16 ")
 ;;6274
 ;;21,"63874-0235-20 ")
 ;;6275
 ;;21,"63874-0235-21 ")
 ;;6276
 ;;21,"63874-0235-28 ")
 ;;6277
 ;;21,"63874-0235-30 ")
 ;;6278
 ;;21,"63874-0235-40 ")
 ;;6279
 ;;21,"63874-0235-56 ")
 ;;6280
 ;;21,"63874-0235-80 ")
 ;;6281
 ;;21,"63874-0237-01 ")
 ;;6282
 ;;21,"63874-0237-04 ")
 ;;6283
 ;;21,"63874-0237-05 ")
 ;;6284
 ;;21,"63874-0237-06 ")
 ;;6285
 ;;21,"63874-0237-07 ")
 ;;6286
 ;;21,"63874-0237-10 ")
 ;;6287
 ;;21,"63874-0237-12 ")
 ;;6288
 ;;21,"63874-0237-14 ")
 ;;6289
 ;;21,"63874-0237-15 ")
 ;;6290
 ;;21,"63874-0237-16 ")
 ;;6291
 ;;21,"63874-0237-20 ")
 ;;6292
 ;;21,"63874-0237-21 ")
 ;;6293
 ;;21,"63874-0237-24 ")
 ;;6294
 ;;21,"63874-0237-28 ")
 ;;6295
 ;;21,"63874-0237-30 ")
 ;;6296
 ;;21,"63874-0237-40 ")
 ;;6297
 ;;21,"63874-0237-50 ")
 ;;6298
 ;;21,"63874-0237-60 ")
 ;;6299
 ;;21,"63874-0237-72 ")
 ;;6300
 ;;21,"63874-0237-74 ")
 ;;6301
 ;;21,"63874-0237-77 ")
 ;;6302
 ;;21,"63874-0239-01 ")
 ;;6303
 ;;21,"63874-0239-20 ")
 ;;6304
 ;;21,"63874-0239-30 ")
 ;;6305
 ;;21,"63874-0240-01 ")
 ;;6306
 ;;21,"63874-0240-20 ")
 ;;6307
 ;;21,"63874-0240-30 ")
 ;;6308
 ;;21,"63874-0240-50 ")
 ;;6309
 ;;21,"63874-0241-15 ")
 ;;6310
 ;;21,"63874-0241-20 ")
 ;;6311
 ;;21,"63874-0241-30 ")
 ;;6312
 ;;21,"63874-0241-50 ")
 ;;6313
 ;;21,"63874-0241-60 ")
 ;;6314
 ;;21,"63874-0246-00 ")
 ;;6315
 ;;21,"63874-0246-04 ")
 ;;6316
 ;;21,"63874-0246-06 ")
 ;;6317
 ;;21,"63874-0246-10 ")
 ;;6318
 ;;21,"63874-0246-15 ")
 ;;6319
 ;;21,"63874-0249-10 ")
 ;;6320
 ;;21,"63874-0249-20 ")
 ;;6321
 ;;21,"63874-0249-30 ")
 ;;6322
 ;;21,"63874-0523-01 ")
 ;;6323
 ;;21,"63874-0523-03 ")
 ;;6324
 ;;21,"63874-0523-05 ")
 ;;6325
 ;;21,"63874-0523-06 ")
 ;;6326
 ;;21,"63874-0523-07 ")
 ;;6327
 ;;21,"63874-0523-10 ")
 ;;6328
 ;;21,"63874-0523-14 ")
 ;;6329
 ;;21,"63874-0523-20 ")
 ;;6330
 ;;21,"63874-0523-30 ")
 ;;6331
 ;;21,"63874-0533-01 ")
 ;;6332
 ;;21,"63874-0533-04 ")
 ;;6333
 ;;21,"63874-0533-10 ")
 ;;6334
 ;;21,"63874-0533-12 ")
 ;;6335
 ;;21,"63874-0533-14 ")
 ;;6336
 ;;21,"63874-0533-15 ")
 ;;6337
 ;;21,"63874-0533-20 ")
 ;;6338
 ;;21,"63874-0533-25 ")
 ;;6339
 ;;21,"63874-0533-28 ")
 ;;6340
 ;;21,"63874-0533-30 ")
 ;;6341
 ;;21,"63874-0533-40 ")
 ;;6342
 ;;21,"63874-0533-44 ")
 ;;6343
 ;;21,"63874-0533-60 ")
 ;;6344
 ;;21,"63874-0533-72 ")
 ;;6345
 ;;21,"63874-0533-74 ")
 ;;6346
 ;;21,"63874-0533-77 ")
 ;;6347
 ;;21,"63874-0533-90 ")
 ;;6348
 ;;21,"63874-1086-01 ")
 ;;6349
 ;;21,"63874-1086-02 ")
 ;;6350
 ;;21,"63874-1086-03 ")
 ;;6351
 ;;21,"63874-1086-04 ")
 ;;6352
 ;;21,"63874-1086-05 ")
 ;;6353
 ;;21,"63874-1086-06 ")
 ;;6354
 ;;21,"63874-1112-02 ")
 ;;6355
 ;;21,"63874-1226-02 ")
 ;;6356
 ;;21,"64038-0033-01 ")
 ;;6357
 ;;21,"64038-0033-40 ")
 ;;6358
 ;;21,"64455-0691-01 ")
 ;;6359
 ;;21,"64455-0691-02 ")
 ;;6360
 ;;21,"64455-0777-01 ")
 ;;6361
 ;;21,"64455-0777-02 ")
 ;;6362
 ;;21,"64455-0777-03 ")
 ;;6363
 ;;21,"64455-0777-04 ")
 ;;6364
 ;;21,"64679-0544-02 ")
 ;;6365
 ;;21,"64679-0544-03 ")
 ;;6366
 ;;21,"64679-0545-02 ")
 ;;6367
 ;;21,"64679-0545-03 ")
 ;;6368
 ;;21,"64679-0547-01 ")
 ;;6369
 ;;21,"64679-0547-02 ")
 ;;6370
 ;;21,"64679-0547-03 ")
 ;;6371
 ;;21,"64679-0701-01 ")
 ;;6372
 ;;21,"64679-0701-02 ")
 ;;6373
 ;;21,"64679-0701-03 ")
 ;;6374
 ;;21,"64679-0702-01 ")
 ;;6375
 ;;21,"64679-0702-02 ")
 ;;6376
 ;;21,"64679-0703-01 ")
 ;;6377
 ;;21,"64679-0703-02 ")
 ;;6378
 ;;21,"64679-0712-03 ")
 ;;6379
 ;;21,"64679-0713-01 ")
 ;;6380
 ;;21,"64679-0713-03 ")
 ;;6381
 ;;21,"64679-0921-01 ")
 ;;6382
 ;;21,"64679-0921-02 ")
 ;;6383
 ;;21,"64679-0922-01 ")
 ;;6384
 ;;21,"64679-0922-02 ")
 ;;6385
 ;;21,"64679-0949-01 ")
 ;;6386
 ;;21,"64679-0954-01 ")
 ;;6387
 ;;21,"64679-0961-01 ")
 ;;6388
 ;;21,"64679-0961-04 ")
 ;;6389
 ;;21,"64679-0961-05 ")
 ;;6390
 ;;21,"64679-0962-01 ")
 ;;6391
 ;;21,"64679-0964-01 ")
 ;;6392
 ;;21,"64679-0964-03 ")
 ;;6393
 ;;21,"64679-0964-05 ")
 ;;6394
 ;;21,"64679-0983-01 ")
 ;;6395
 ;;21,"64679-0983-02 ")
 ;;6396
 ;;21,"64682-0008-02 ")
 ;;6397
 ;;21,"64720-0152-10 ")
 ;;6398
 ;;21,"64860-0306-13 ")
 ;;6399
 ;;21,"64860-0306-40 ")
 ;;6400
 ;;21,"64860-0307-13 ")
 ;;6401
 ;;21,"64860-0307-40 ")
 ;;6402
 ;;21,"64980-0511-10 ")
 ;;6403
 ;;21,"65162-0202-01 ")
 ;;6404
 ;;21,"65162-0202-02 ")
 ;;6405
 ;;21,"65162-0202-08 ")
 ;;6406
 ;;21,"65162-0202-14 ")
 ;;6407
 ;;21,"65162-0271-10 ")
 ;;6408
 ;;21,"65162-0271-50 ")
 ;;6409
 ;;21,"65162-0272-10 ")
 ;;6410
 ;;21,"65162-0272-50 ")
 ;;6411
 ;;21,"65162-0313-01 ")
 ;;6412
 ;;21,"65162-0313-02 ")
 ;;6413
 ;;21,"65162-0313-08 ")
 ;;6414
 ;;21,"65162-0313-14 ")
 ;;6415
 ;;21,"65162-0527-05 ")
 ;;6416
 ;;21,"65162-0527-14 ")
 ;;6417
 ;;21,"65162-0527-28 ")
 ;;6418
 ;;21,"65162-0527-50 ")
 ;;6419
 ;;21,"65224-0800-22 ")
 ;;6420
 ;;21,"65224-0802-02 ")
 ;;6421
 ;;21,"65224-0802-03 ")
 ;;6422
 ;;21,"65224-0802-04 ")
 ;;6423
 ;;21,"65224-0804-02 ")
 ;;6424
 ;;21,"65862-0014-01 ")
 ;;6425
 ;;21,"65862-0014-05 ")
 ;;6426
 ;;21,"65862-0015-01 ")
 ;;6427
 ;;21,"65862-0015-05 ")
 ;;6428
 ;;21,"65862-0016-01 ")
 ;;6429
 ;;21,"65862-0016-05 ")
 ;;6430
 ;;21,"65862-0017-01 ")
 ;;6431
 ;;21,"65862-0017-05 ")
 ;;6432
 ;;21,"65862-0018-01 ")
 ;;6433
 ;;21,"65862-0018-05 ")
 ;;6434
 ;;21,"65862-0018-40 ")
 ;;6435
 ;;21,"65862-0019-01 ")
 ;;6436
 ;;21,"65862-0019-05 ")
 ;;6437
 ;;21,"65862-0019-40 ")
 ;;6438
 ;;21,"65862-0034-20 ")
 ;;6439
 ;;21,"65862-0034-60 ")
 ;;6440
 ;;21,"65862-0035-20 ")
 ;;6441
 ;;21,"65862-0035-60 ")
 ;;6442
 ;;21,"65862-0068-01 ")
 ;;6443
 ;;21,"65862-0068-50 ")
 ;;6444
 ;;21,"65862-0069-01 ")
 ;;6445
 ;;21,"65862-0069-50 ")
 ;;6446
 ;;21,"65862-0070-01 ")
 ;;6447
 ;;21,"65862-0070-50 ")
 ;;6448
 ;;21,"65862-0070-75 ")
 ;;6449
 ;;21,"65862-0071-01 ")
 ;;6450
 ;;21,"65862-0071-50 ")
 ;;6451
 ;;21,"65862-0071-75 ")
 ;;6452
 ;;21,"65862-0076-01 ")
 ;;6453
 ;;21,"65862-0077-01 ")
 ;;6454
 ;;21,"65862-0078-50 ")
 ;;6455
 ;;21,"65862-0085-01 ")
 ;;6456
 ;;21,"65862-0085-50 ")
 ;;6457
 ;;21,"65862-0095-20 ")
 ;;6458
 ;;21,"65862-0096-01 ")
 ;;6459
 ;;21,"65862-0096-20 ")
 ;;6460
 ;;21,"65862-0099-01 ")
 ;;6461
 ;;21,"65862-0099-75 ")
 ;;6462
 ;;21,"65862-0100-01 ")
 ;;6463
 ;;21,"65862-0100-75 ")
 ;;6464
 ;;21,"65862-0140-01 ")
 ;;6465
 ;;21,"65862-0140-50 ")
 ;;6466
 ;;21,"65862-0141-01 ")
 ;;6467
 ;;21,"65862-0141-50 ")
 ;;6468
 ;;21,"65862-0175-01 ")
 ;;6469
 ;;21,"65862-0175-99 ")
 ;;6470
 ;;21,"65862-0176-01 ")
 ;;6471
 ;;21,"65862-0176-05 ")
 ;;6472
 ;;21,"65862-0176-99 ")
 ;;6473
 ;;21,"65862-0177-60 ")
 ;;6474
 ;;21,"65862-0185-01 ")
 ;;6475
 ;;21,"65862-0185-05 ")
 ;;6476
 ;;21,"65862-0186-01 ")
 ;;6477
 ;;21,"65862-0209-01 ")
 ;;6478
 ;;21,"65862-0210-01 ")
 ;;6479
 ;;21,"65862-0211-50 ")
 ;;6480
 ;;21,"65862-0218-01 ")
 ;;6481
 ;;21,"65862-0218-60 ")
 ;;6482
 ;;21,"65862-0219-01 ")
 ;;6483
 ;;21,"65862-0219-60 ")
 ;;6484
 ;;21,"65862-0225-60 ")
 ;;6485
 ;;21,"65862-0419-01 ")
 ;;6486
 ;;21,"65862-0419-05 ")
 ;;6487
 ;;21,"65862-0420-01 ")
 ;;6488
 ;;21,"65862-0420-05 ")
 ;;6489
 ;;21,"65862-0496-47 ")
 ;;6490
 ;;21,"65862-0501-30 ")
 ;;6491
 ;;21,"65862-0502-20 ")
 ;;6492
 ;;21,"65862-0503-01 ")
 ;;6493
 ;;21,"65862-0503-20 ")
 ;;6494
 ;;21,"65862-0533-01 ")
 ;;6495
 ;;21,"65862-0533-50 ")
 ;;6496
 ;;21,"65862-0533-75 ")
 ;;6497
 ;;21,"65862-0534-01 ")
 ;;6498
 ;;21,"65862-0534-50 ")
 ;;6499
 ;;21,"65862-0534-75 ")
 ;;6500
 ;;21,"65862-0535-02 ")
 ;;6501
 ;;21,"65862-0535-13 ")
 ;;6502
 ;;21,"65862-0535-75 ")
 ;;6503
 ;;21,"65862-0536-50 ")
 ;;6504
 ;;21,"65862-0537-50 ")
 ;;6505
 ;;21,"65862-0538-20 ")
 ;;6506
 ;;21,"65862-0596-01 ")
 ;;6507
 ;;21,"66105-0108-10 ")
 ;;6508
 ;;21,"66105-0109-01 ")
 ;;6509
 ;;21,"66105-0109-02 ")
 ;;6510
 ;;21,"66105-0109-03 ")
 ;;6511
 ;;21,"66105-0109-06 ")
 ;;6512
 ;;21,"66105-0109-10 ")
 ;;6513
 ;;21,"66105-0477-05 ")
 ;;6514
 ;;21,"66105-0478-05 ")
 ;;6515
 ;;21,"66105-0507-01 ")
 ;;6516
 ;;21,"66105-0507-03 ")
 ;;6517
 ;;21,"66105-0507-06 ")
 ;;6518
 ;;21,"66105-0507-09 ")
 ;;6519
 ;;21,"66105-0507-10 ")
 ;;6520
 ;;21,"66105-0537-01 ")
 ;;6521
 ;;21,"66105-0537-03 ")
 ;;6522
 ;;21,"66105-0537-06 ")
 ;;6523
 ;;21,"66105-0537-09 ")
 ;;6524
 ;;21,"66105-0537-15 ")
 ;;6525
 ;;21,"66105-0653-01 ")
 ;;6526
 ;;21,"66105-0653-03 ")
 ;;6527
 ;;21,"66105-0653-05 ")
 ;;6528
 ;;21,"66105-0653-06 ")
 ;;6529
 ;;21,"66105-0653-19 ")
 ;;6530
 ;;21,"66105-0670-01 ")
 ;;6531
 ;;21,"66105-0670-03 ")
 ;;6532
 ;;21,"66105-0670-05 ")
 ;;6533
 ;;21,"66105-0670-06 ")
 ;;6534
 ;;21,"66105-0670-18 ")
 ;;6535
 ;;21,"66105-0743-01 ")
 ;;6536
 ;;21,"66105-0743-03 ")
 ;;6537
 ;;21,"66105-0743-06 ")
 ;;6538
 ;;21,"66105-0743-09 ")
 ;;6539
 ;;21,"66105-0743-15 ")
 ;;6540
 ;;21,"66105-0744-01 ")
 ;;6541
 ;;21,"66105-0744-03 ")
 ;;6542
 ;;21,"66105-0744-06 ")
 ;;6543
 ;;21,"66105-0744-09 ")
 ;;6544
 ;;21,"66105-0744-15 ")
 ;;6545
 ;;21,"66105-0745-01 ")
 ;;6546
 ;;21,"66105-0745-03 ")
 ;;6547
 ;;21,"66105-0745-06 ")
 ;;6548
 ;;21,"66105-0745-09 ")
 ;;6549
 ;;21,"66105-0745-15 ")
 ;;6550
 ;;21,"66267-0021-15 ")
 ;;6551
 ;;21,"66267-0023-04 ")
 ;;6552
 ;;21,"66267-0023-08 ")
 ;;6553
 ;;21,"66267-0023-09 ")
 ;;6554
 ;;21,"66267-0023-15 ")
 ;;6555
 ;;21,"66267-0023-20 ")
 ;;6556
 ;;21,"66267-0023-60 ")
 ;;6557
 ;;21,"66267-0024-30 ")
 ;;6558
 ;;21,"66267-0025-30 ")
 ;;6559
 ;;21,"66267-0034-14 ")
 ;;6560
 ;;21,"66267-0034-20 ")
 ;;6561
 ;;21,"66267-0045-30 ")
 ;;6562
 ;;21,"66267-0050-05 ")
 ;;6563
 ;;21,"66267-0050-06 ")
 ;;6564
 ;;21,"66267-0050-10 ")
 ;;6565
 ;;21,"66267-0060-04 ")
 ;;6566
 ;;21,"66267-0060-06 ")
 ;;6567
 ;;21,"66267-0060-08 ")
 ;;6568
 ;;21,"66267-0060-10 ")
 ;;6569
 ;;21,"66267-0060-14 ")
 ;;6570
 ;;21,"66267-0060-21 ")
 ;;6571
 ;;21,"66267-0060-30 ")
 ;;6572
 ;;21,"66267-0060-40 ")
 ;;6573
 ;;21,"66267-0060-60 ")
 ;;6574
 ;;21,"66267-0196-30 ")
 ;;6575
 ;;21,"66267-0919-06 ")
 ;;6576
 ;;21,"66267-0919-10 ")
 ;;6577
 ;;21,"66267-0919-15 ")
 ;;6578
 ;;21,"66267-0919-28 ")
 ;;6579
 ;;21,"66267-0919-30 ")
 ;;6580
 ;;21,"66267-0919-60 ")
 ;;6581
 ;;21,"66336-0018-08 ")
 ;;6582
 ;;21,"66336-0018-14 ")
 ;;6583
 ;;21,"66336-0018-20 ")
 ;;6584