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

BGP73F17.m

Go to the documentation of this file.
  1. BGP73F17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"63874-0111-15 ")
  1. ;;5353
  1. ;;21,"63874-0111-16 ")
  1. ;;5354
  1. ;;21,"63874-0111-20 ")
  1. ;;5355
  1. ;;21,"63874-0111-21 ")
  1. ;;5356
  1. ;;21,"63874-0111-24 ")
  1. ;;5357
  1. ;;21,"63874-0111-28 ")
  1. ;;5358
  1. ;;21,"63874-0111-30 ")
  1. ;;5359
  1. ;;21,"63874-0111-40 ")
  1. ;;5360
  1. ;;21,"63874-0111-50 ")
  1. ;;5361
  1. ;;21,"63874-0111-56 ")
  1. ;;5362
  1. ;;21,"63874-0111-60 ")
  1. ;;5363
  1. ;;21,"63874-0111-72 ")
  1. ;;5364
  1. ;;21,"63874-0111-74 ")
  1. ;;5365
  1. ;;21,"63874-0111-77 ")
  1. ;;5366
  1. ;;21,"63874-0111-80 ")
  1. ;;5367
  1. ;;21,"63874-0112-01 ")
  1. ;;5368
  1. ;;21,"63874-0112-03 ")
  1. ;;5369
  1. ;;21,"63874-0112-04 ")
  1. ;;5370
  1. ;;21,"63874-0112-05 ")
  1. ;;5371
  1. ;;21,"63874-0112-06 ")
  1. ;;5372
  1. ;;21,"63874-0112-08 ")
  1. ;;5373
  1. ;;21,"63874-0112-10 ")
  1. ;;5374
  1. ;;21,"63874-0112-12 ")
  1. ;;5375
  1. ;;21,"63874-0112-14 ")
  1. ;;5376
  1. ;;21,"63874-0112-15 ")
  1. ;;5377
  1. ;;21,"63874-0112-16 ")
  1. ;;5378
  1. ;;21,"63874-0112-18 ")
  1. ;;5379
  1. ;;21,"63874-0112-20 ")
  1. ;;5380
  1. ;;21,"63874-0112-21 ")
  1. ;;5381
  1. ;;21,"63874-0112-24 ")
  1. ;;5382
  1. ;;21,"63874-0112-25 ")
  1. ;;5383
  1. ;;21,"63874-0112-28 ")
  1. ;;5384
  1. ;;21,"63874-0112-30 ")
  1. ;;5385
  1. ;;21,"63874-0112-40 ")
  1. ;;5386
  1. ;;21,"63874-0112-50 ")
  1. ;;5387
  1. ;;21,"63874-0112-56 ")
  1. ;;5388
  1. ;;21,"63874-0112-60 ")
  1. ;;5389
  1. ;;21,"63874-0112-72 ")
  1. ;;5390
  1. ;;21,"63874-0112-74 ")
  1. ;;5391
  1. ;;21,"63874-0112-77 ")
  1. ;;5392
  1. ;;21,"63874-0113-01 ")
  1. ;;5393
  1. ;;21,"63874-0113-03 ")
  1. ;;5394
  1. ;;21,"63874-0113-08 ")
  1. ;;5395
  1. ;;21,"63874-0113-09 ")
  1. ;;5396
  1. ;;21,"63874-0113-10 ")
  1. ;;5397
  1. ;;21,"63874-0113-12 ")
  1. ;;5398
  1. ;;21,"63874-0113-14 ")
  1. ;;5399
  1. ;;21,"63874-0113-15 ")
  1. ;;5400
  1. ;;21,"63874-0113-20 ")
  1. ;;5401
  1. ;;21,"63874-0113-21 ")
  1. ;;5402
  1. ;;21,"63874-0113-24 ")
  1. ;;5403
  1. ;;21,"63874-0113-28 ")
  1. ;;5404
  1. ;;21,"63874-0113-30 ")
  1. ;;5405
  1. ;;21,"63874-0113-40 ")
  1. ;;5406
  1. ;;21,"63874-0113-50 ")
  1. ;;5407
  1. ;;21,"63874-0114-01 ")
  1. ;;5408
  1. ;;21,"63874-0114-03 ")
  1. ;;5409
  1. ;;21,"63874-0114-07 ")
  1. ;;5410
  1. ;;21,"63874-0114-10 ")
  1. ;;5411
  1. ;;21,"63874-0114-20 ")
  1. ;;5412
  1. ;;21,"63874-0114-21 ")
  1. ;;5413
  1. ;;21,"63874-0114-24 ")
  1. ;;5414
  1. ;;21,"63874-0114-25 ")
  1. ;;5415
  1. ;;21,"63874-0114-28 ")
  1. ;;5416
  1. ;;21,"63874-0114-30 ")
  1. ;;5417
  1. ;;21,"63874-0114-40 ")
  1. ;;5418
  1. ;;21,"63874-0114-50 ")
  1. ;;5419
  1. ;;21,"63874-0115-01 ")
  1. ;;5420
  1. ;;21,"63874-0115-08 ")
  1. ;;5421
  1. ;;21,"63874-0115-10 ")
  1. ;;5422
  1. ;;21,"63874-0115-12 ")
  1. ;;5423
  1. ;;21,"63874-0115-14 ")
  1. ;;5424
  1. ;;21,"63874-0115-15 ")
  1. ;;5425
  1. ;;21,"63874-0115-20 ")
  1. ;;5426
  1. ;;21,"63874-0115-21 ")
  1. ;;5427
  1. ;;21,"63874-0115-30 ")
  1. ;;5428
  1. ;;21,"63874-0118-01 ")
  1. ;;5429
  1. ;;21,"63874-0118-03 ")
  1. ;;5430
  1. ;;21,"63874-0118-06 ")
  1. ;;5431
  1. ;;21,"63874-0118-07 ")
  1. ;;5432
  1. ;;21,"63874-0118-10 ")
  1. ;;5433
  1. ;;21,"63874-0118-12 ")
  1. ;;5434
  1. ;;21,"63874-0118-14 ")
  1. ;;5435
  1. ;;21,"63874-0118-15 ")
  1. ;;5436
  1. ;;21,"63874-0118-18 ")
  1. ;;5437
  1. ;;21,"63874-0118-20 ")
  1. ;;5438
  1. ;;21,"63874-0118-21 ")
  1. ;;5439
  1. ;;21,"63874-0118-24 ")
  1. ;;5440
  1. ;;21,"63874-0118-28 ")
  1. ;;5441
  1. ;;21,"63874-0118-30 ")
  1. ;;5442
  1. ;;21,"63874-0118-40 ")
  1. ;;5443
  1. ;;21,"63874-0118-50 ")
  1. ;;5444
  1. ;;21,"63874-0118-60 ")
  1. ;;5445
  1. ;;21,"63874-0123-01 ")
  1. ;;5446
  1. ;;21,"63874-0123-12 ")
  1. ;;5447
  1. ;;21,"63874-0123-14 ")
  1. ;;5448
  1. ;;21,"63874-0123-15 ")
  1. ;;5449
  1. ;;21,"63874-0123-20 ")
  1. ;;5450
  1. ;;21,"63874-0123-21 ")
  1. ;;5451
  1. ;;21,"63874-0123-24 ")
  1. ;;5452
  1. ;;21,"63874-0123-28 ")
  1. ;;5453
  1. ;;21,"63874-0123-30 ")
  1. ;;5454
  1. ;;21,"63874-0123-40 ")
  1. ;;5455
  1. ;;21,"63874-0123-50 ")
  1. ;;5456
  1. ;;21,"63874-0123-60 ")
  1. ;;5457
  1. ;;21,"63874-0124-01 ")
  1. ;;5458
  1. ;;21,"63874-0124-02 ")
  1. ;;5459
  1. ;;21,"63874-0124-10 ")
  1. ;;5460
  1. ;;21,"63874-0124-12 ")
  1. ;;5461
  1. ;;21,"63874-0124-14 ")
  1. ;;5462
  1. ;;21,"63874-0124-15 ")
  1. ;;5463
  1. ;;21,"63874-0124-20 ")
  1. ;;5464
  1. ;;21,"63874-0124-21 ")
  1. ;;5465
  1. ;;21,"63874-0124-24 ")
  1. ;;5466
  1. ;;21,"63874-0124-28 ")
  1. ;;5467
  1. ;;21,"63874-0124-30 ")
  1. ;;5468
  1. ;;21,"63874-0124-40 ")
  1. ;;5469
  1. ;;21,"63874-0124-50 ")
  1. ;;5470
  1. ;;21,"63874-0124-60 ")
  1. ;;5471
  1. ;;21,"63874-0125-01 ")
  1. ;;5472
  1. ;;21,"63874-0125-02 ")
  1. ;;5473
  1. ;;21,"63874-0125-10 ")
  1. ;;5474
  1. ;;21,"63874-0125-14 ")
  1. ;;5475
  1. ;;21,"63874-0125-15 ")
  1. ;;5476
  1. ;;21,"63874-0125-20 ")
  1. ;;5477
  1. ;;21,"63874-0125-21 ")
  1. ;;5478
  1. ;;21,"63874-0125-24 ")
  1. ;;5479
  1. ;;21,"63874-0125-28 ")
  1. ;;5480
  1. ;;21,"63874-0125-30 ")
  1. ;;5481
  1. ;;21,"63874-0125-40 ")
  1. ;;5482
  1. ;;21,"63874-0125-60 ")
  1. ;;5483
  1. ;;21,"63874-0125-80 ")
  1. ;;5484
  1. ;;21,"63874-0126-28 ")
  1. ;;5485
  1. ;;21,"63874-0126-30 ")
  1. ;;5486
  1. ;;21,"63874-0126-40 ")
  1. ;;5487
  1. ;;21,"63874-0127-01 ")
  1. ;;5488
  1. ;;21,"63874-0127-05 ")
  1. ;;5489
  1. ;;21,"63874-0127-18 ")
  1. ;;5490
  1. ;;21,"63874-0127-20 ")
  1. ;;5491
  1. ;;21,"63874-0127-21 ")
  1. ;;5492
  1. ;;21,"63874-0127-28 ")
  1. ;;5493
  1. ;;21,"63874-0127-30 ")
  1. ;;5494
  1. ;;21,"63874-0127-40 ")
  1. ;;5495
  1. ;;21,"63874-0127-42 ")
  1. ;;5496
  1. ;;21,"63874-0143-10 ")
  1. ;;5497
  1. ;;21,"63874-0143-15 ")
  1. ;;5498
  1. ;;21,"63874-0143-80 ")
  1. ;;5499
  1. ;;21,"63874-0144-10 ")
  1. ;;5500
  1. ;;21,"63874-0144-15 ")
  1. ;;5501
  1. ;;21,"63874-0146-10 ")
  1. ;;5502
  1. ;;21,"63874-0146-15 ")
  1. ;;5503
  1. ;;21,"63874-0146-20 ")
  1. ;;5504
  1. ;;21,"63874-0147-10 ")
  1. ;;5505
  1. ;;21,"63874-0147-15 ")
  1. ;;5506
  1. ;;21,"63874-0147-75 ")
  1. ;;5507
  1. ;;21,"63874-0148-10 ")
  1. ;;5508
  1. ;;21,"63874-0148-15 ")
  1. ;;5509
  1. ;;21,"63874-0148-75 ")
  1. ;;5510
  1. ;;21,"63874-0150-10 ")
  1. ;;5511
  1. ;;21,"63874-0150-20 ")
  1. ;;5512
  1. ;;21,"63874-0155-10 ")
  1. ;;5513
  1. ;;21,"63874-0155-20 ")
  1. ;;5514
  1. ;;21,"63874-0156-10 ")
  1. ;;5515
  1. ;;21,"63874-0156-15 ")
  1. ;;5516
  1. ;;21,"63874-0156-20 ")
  1. ;;5517
  1. ;;21,"63874-0159-10 ")
  1. ;;5518
  1. ;;21,"63874-0159-20 ")
  1. ;;5519
  1. ;;21,"63874-0160-10 ")
  1. ;;5520
  1. ;;21,"63874-0160-20 ")
  1. ;;5521
  1. ;;21,"63874-0160-48 ")
  1. ;;5522
  1. ;;21,"63874-0166-10 ")
  1. ;;5523
  1. ;;21,"63874-0166-20 ")
  1. ;;5524
  1. ;;21,"63874-0170-10 ")
  1. ;;5525
  1. ;;21,"63874-0170-20 ")
  1. ;;5526
  1. ;;21,"63874-0231-01 ")
  1. ;;5527
  1. ;;21,"63874-0231-10 ")
  1. ;;5528
  1. ;;21,"63874-0231-12 ")
  1. ;;5529
  1. ;;21,"63874-0231-14 ")
  1. ;;5530
  1. ;;21,"63874-0231-15 ")
  1. ;;5531
  1. ;;21,"63874-0231-20 ")
  1. ;;5532
  1. ;;21,"63874-0231-21 ")
  1. ;;5533
  1. ;;21,"63874-0231-28 ")
  1. ;;5534
  1. ;;21,"63874-0231-30 ")
  1. ;;5535
  1. ;;21,"63874-0231-40 ")
  1. ;;5536
  1. ;;21,"63874-0232-01 ")
  1. ;;5537
  1. ;;21,"63874-0232-02 ")
  1. ;;5538
  1. ;;21,"63874-0232-03 ")
  1. ;;5539
  1. ;;21,"63874-0232-10 ")
  1. ;;5540
  1. ;;21,"63874-0232-12 ")
  1. ;;5541
  1. ;;21,"63874-0232-16 ")
  1. ;;5542
  1. ;;21,"63874-0232-20 ")
  1. ;;5543
  1. ;;21,"63874-0232-21 ")
  1. ;;5544
  1. ;;21,"63874-0232-24 ")
  1. ;;5545
  1. ;;21,"63874-0232-28 ")
  1. ;;5546
  1. ;;21,"63874-0232-30 ")
  1. ;;5547
  1. ;;21,"63874-0232-40 ")
  1. ;;5548
  1. ;;21,"63874-0232-50 ")
  1. ;;5549
  1. ;;21,"63874-0233-01 ")
  1. ;;5550
  1. ;;21,"63874-0233-02 ")
  1. ;;5551
  1. ;;21,"63874-0233-06 ")
  1. ;;5552
  1. ;;21,"63874-0233-10 ")
  1. ;;5553
  1. ;;21,"63874-0233-12 ")
  1. ;;5554
  1. ;;21,"63874-0233-15 ")
  1. ;;5555
  1. ;;21,"63874-0233-16 ")
  1. ;;5556
  1. ;;21,"63874-0233-20 ")
  1. ;;5557
  1. ;;21,"63874-0233-24 ")
  1. ;;5558
  1. ;;21,"63874-0233-28 ")
  1. ;;5559
  1. ;;21,"63874-0233-30 ")
  1. ;;5560
  1. ;;21,"63874-0233-36 ")
  1. ;;5561
  1. ;;21,"63874-0233-40 ")
  1. ;;5562
  1. ;;21,"63874-0233-50 ")
  1. ;;5563
  1. ;;21,"63874-0233-60 ")
  1. ;;5564
  1. ;;21,"63874-0235-01 ")
  1. ;;5565
  1. ;;21,"63874-0235-04 ")
  1. ;;5566
  1. ;;21,"63874-0235-10 ")
  1. ;;5567
  1. ;;21,"63874-0235-12 ")
  1. ;;5568
  1. ;;21,"63874-0235-15 ")
  1. ;;5569
  1. ;;21,"63874-0235-16 ")
  1. ;;5570
  1. ;;21,"63874-0235-20 ")
  1. ;;5571
  1. ;;21,"63874-0235-21 ")
  1. ;;5572
  1. ;;21,"63874-0235-28 ")
  1. ;;5573
  1. ;;21,"63874-0235-30 ")
  1. ;;5574
  1. ;;21,"63874-0235-40 ")
  1. ;;5575
  1. ;;21,"63874-0235-56 ")
  1. ;;5576
  1. ;;21,"63874-0235-80 ")
  1. ;;5577
  1. ;;21,"63874-0237-01 ")
  1. ;;5578
  1. ;;21,"63874-0237-04 ")
  1. ;;5579
  1. ;;21,"63874-0237-05 ")
  1. ;;5580
  1. ;;21,"63874-0237-06 ")
  1. ;;5581
  1. ;;21,"63874-0237-07 ")
  1. ;;5582
  1. ;;21,"63874-0237-10 ")
  1. ;;5583
  1. ;;21,"63874-0237-12 ")
  1. ;;5584
  1. ;;21,"63874-0237-14 ")
  1. ;;5585
  1. ;;21,"63874-0237-15 ")
  1. ;;5586
  1. ;;21,"63874-0237-16 ")
  1. ;;5587
  1. ;;21,"63874-0237-20 ")
  1. ;;5588
  1. ;;21,"63874-0237-21 ")
  1. ;;5589
  1. ;;21,"63874-0237-24 ")
  1. ;;5590
  1. ;;21,"63874-0237-28 ")
  1. ;;5591
  1. ;;21,"63874-0237-30 ")
  1. ;;5592
  1. ;;21,"63874-0237-40 ")
  1. ;;5593
  1. ;;21,"63874-0237-50 ")
  1. ;;5594
  1. ;;21,"63874-0237-60 ")
  1. ;;5595
  1. ;;21,"63874-0237-72 ")
  1. ;;5596
  1. ;;21,"63874-0237-74 ")
  1. ;;5597
  1. ;;21,"63874-0237-77 ")
  1. ;;5598
  1. ;;21,"63874-0239-01 ")
  1. ;;5599
  1. ;;21,"63874-0239-20 ")
  1. ;;5600
  1. ;;21,"63874-0239-30 ")
  1. ;;5601
  1. ;;21,"63874-0240-01 ")
  1. ;;5602
  1. ;;21,"63874-0240-20 ")
  1. ;;5603
  1. ;;21,"63874-0240-30 ")
  1. ;;5604
  1. ;;21,"63874-0240-50 ")
  1. ;;5605
  1. ;;21,"63874-0241-15 ")
  1. ;;5606
  1. ;;21,"63874-0241-20 ")
  1. ;;5607
  1. ;;21,"63874-0241-30 ")
  1. ;;5608
  1. ;;21,"63874-0241-50 ")
  1. ;;5609
  1. ;;21,"63874-0241-60 ")
  1. ;;5610
  1. ;;21,"63874-0246-00 ")
  1. ;;5611
  1. ;;21,"63874-0246-04 ")
  1. ;;5612
  1. ;;21,"63874-0246-06 ")
  1. ;;5613
  1. ;;21,"63874-0246-10 ")
  1. ;;5614
  1. ;;21,"63874-0246-15 ")
  1. ;;5615
  1. ;;21,"63874-0523-01 ")
  1. ;;5616
  1. ;;21,"63874-0523-03 ")
  1. ;;5617
  1. ;;21,"63874-0523-05 ")
  1. ;;5618
  1. ;;21,"63874-0523-06 ")
  1. ;;5619
  1. ;;21,"63874-0523-07 ")
  1. ;;5620
  1. ;;21,"63874-0523-10 ")
  1. ;;5621
  1. ;;21,"63874-0523-14 ")
  1. ;;5622
  1. ;;21,"63874-0523-20 ")
  1. ;;5623
  1. ;;21,"63874-0523-30 ")
  1. ;;5624
  1. ;;21,"63874-0533-01 ")
  1. ;;5625
  1. ;;21,"63874-0533-04 ")
  1. ;;5626
  1. ;;21,"63874-0533-10 ")
  1. ;;5627
  1. ;;21,"63874-0533-12 ")
  1. ;;5628
  1. ;;21,"63874-0533-14 ")
  1. ;;5629
  1. ;;21,"63874-0533-15 ")
  1. ;;5630
  1. ;;21,"63874-0533-20 ")
  1. ;;5631
  1. ;;21,"63874-0533-25 ")
  1. ;;5632
  1. ;;21,"63874-0533-28 ")
  1. ;;5633
  1. ;;21,"63874-0533-30 ")
  1. ;;5634
  1. ;;21,"63874-0533-40 ")
  1. ;;5635
  1. ;;21,"63874-0533-44 ")
  1. ;;5636
  1. ;;21,"63874-0533-60 ")
  1. ;;5637
  1. ;;21,"63874-0533-72 ")
  1. ;;5638
  1. ;;21,"63874-0533-74 ")
  1. ;;5639
  1. ;;21,"63874-0533-77 ")
  1. ;;5640
  1. ;;21,"63874-0533-90 ")
  1. ;;5641
  1. ;;21,"63874-1086-01 ")
  1. ;;5642
  1. ;;21,"63874-1086-02 ")
  1. ;;5643
  1. ;;21,"63874-1086-03 ")
  1. ;;5644
  1. ;;21,"63874-1086-04 ")
  1. ;;5645
  1. ;;21,"63874-1086-05 ")
  1. ;;5646
  1. ;;21,"63874-1086-06 ")
  1. ;;5647
  1. ;;21,"63874-1112-02 ")
  1. ;;5648
  1. ;;21,"63874-1226-02 ")
  1. ;;5649
  1. ;;21,"64038-0033-01 ")
  1. ;;5650
  1. ;;21,"64038-0033-40 ")
  1. ;;5651
  1. ;;21,"64376-0130-01 ")
  1. ;;5652
  1. ;;21,"64376-0130-55 ")
  1. ;;5653
  1. ;;21,"64376-0131-01 ")
  1. ;;5654
  1. ;;21,"64376-0131-51 ")
  1. ;;5655
  1. ;;21,"64376-0131-55 ")
  1. ;;5656
  1. ;;21,"64376-0132-01 ")
  1. ;;5657
  1. ;;21,"64376-0132-22 ")
  1. ;;5658
  1. ;;21,"64376-0132-55 ")
  1. ;;5659
  1. ;;21,"64455-0777-01 ")
  1. ;;5660
  1. ;;21,"64455-0777-02 ")
  1. ;;5661
  1. ;;21,"64455-0777-03 ")
  1. ;;5662
  1. ;;21,"64455-0777-04 ")
  1. ;;5663
  1. ;;21,"64679-0544-02 ")
  1. ;;5664
  1. ;;21,"64679-0544-03 ")
  1. ;;5665
  1. ;;21,"64679-0545-02 ")
  1. ;;5666
  1. ;;21,"64679-0545-03 ")
  1. ;;5667
  1. ;;21,"64679-0547-01 ")
  1. ;;5668
  1. ;;21,"64679-0547-02 ")
  1. ;;5669
  1. ;;21,"64679-0547-03 ")
  1. ;;5670
  1. ;;21,"64679-0701-01 ")
  1. ;;5671
  1. ;;21,"64679-0701-02 ")
  1. ;;5672
  1. ;;21,"64679-0701-03 ")
  1. ;;5673
  1. ;;21,"64679-0702-01 ")
  1. ;;5674
  1. ;;21,"64679-0702-02 ")
  1. ;;5675
  1. ;;21,"64679-0703-01 ")
  1. ;;5676
  1. ;;21,"64679-0703-02 ")
  1. ;;5677
  1. ;;21,"64679-0712-03 ")
  1. ;;5678
  1. ;;21,"64679-0713-01 ")
  1. ;;5679
  1. ;;21,"64679-0713-03 ")
  1. ;;5680
  1. ;;21,"64679-0921-01 ")
  1. ;;5681
  1. ;;21,"64679-0921-02 ")
  1. ;;5682
  1. ;;21,"64679-0922-01 ")
  1. ;;5683
  1. ;;21,"64679-0922-02 ")
  1. ;;5684
  1. ;;21,"64679-0949-01 ")
  1. ;;5685