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

BGP82Z17.m

Go to the documentation of this file.
  1. BGP82Z17 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"67544-0023-15 ")
  1. ;;5353
  1. ;;21,"67544-0023-20 ")
  1. ;;5354
  1. ;;21,"67544-0023-25 ")
  1. ;;5355
  1. ;;21,"67544-0023-28 ")
  1. ;;5356
  1. ;;21,"67544-0023-30 ")
  1. ;;5357
  1. ;;21,"67544-0023-40 ")
  1. ;;5358
  1. ;;21,"67544-0023-45 ")
  1. ;;5359
  1. ;;21,"67544-0023-46 ")
  1. ;;5360
  1. ;;21,"67544-0023-50 ")
  1. ;;5361
  1. ;;21,"67544-0023-53 ")
  1. ;;5362
  1. ;;21,"67544-0023-54 ")
  1. ;;5363
  1. ;;21,"67544-0023-55 ")
  1. ;;5364
  1. ;;21,"67544-0023-57 ")
  1. ;;5365
  1. ;;21,"67544-0023-60 ")
  1. ;;5366
  1. ;;21,"67544-0023-61 ")
  1. ;;5367
  1. ;;21,"67544-0023-63 ")
  1. ;;5368
  1. ;;21,"67544-0023-67 ")
  1. ;;5369
  1. ;;21,"67544-0023-70 ")
  1. ;;5370
  1. ;;21,"67544-0023-72 ")
  1. ;;5371
  1. ;;21,"67544-0023-75 ")
  1. ;;5372
  1. ;;21,"67544-0023-77 ")
  1. ;;5373
  1. ;;21,"67544-0023-80 ")
  1. ;;5374
  1. ;;21,"67544-0023-90 ")
  1. ;;5375
  1. ;;21,"67544-0023-94 ")
  1. ;;5376
  1. ;;21,"67544-0024-20 ")
  1. ;;5377
  1. ;;21,"67544-0024-28 ")
  1. ;;5378
  1. ;;21,"67544-0024-30 ")
  1. ;;5379
  1. ;;21,"67544-0024-40 ")
  1. ;;5380
  1. ;;21,"67544-0024-45 ")
  1. ;;5381
  1. ;;21,"67544-0024-46 ")
  1. ;;5382
  1. ;;21,"67544-0024-50 ")
  1. ;;5383
  1. ;;21,"67544-0024-53 ")
  1. ;;5384
  1. ;;21,"67544-0024-54 ")
  1. ;;5385
  1. ;;21,"67544-0024-55 ")
  1. ;;5386
  1. ;;21,"67544-0024-57 ")
  1. ;;5387
  1. ;;21,"67544-0024-60 ")
  1. ;;5388
  1. ;;21,"67544-0024-70 ")
  1. ;;5389
  1. ;;21,"67544-0024-72 ")
  1. ;;5390
  1. ;;21,"67544-0024-75 ")
  1. ;;5391
  1. ;;21,"67544-0024-80 ")
  1. ;;5392
  1. ;;21,"67544-0024-90 ")
  1. ;;5393
  1. ;;21,"67544-0025-30 ")
  1. ;;5394
  1. ;;21,"67544-0025-40 ")
  1. ;;5395
  1. ;;21,"67544-0025-45 ")
  1. ;;5396
  1. ;;21,"67544-0025-53 ")
  1. ;;5397
  1. ;;21,"67544-0025-54 ")
  1. ;;5398
  1. ;;21,"67544-0025-60 ")
  1. ;;5399
  1. ;;21,"67544-0025-70 ")
  1. ;;5400
  1. ;;21,"67544-0025-72 ")
  1. ;;5401
  1. ;;21,"67544-0025-75 ")
  1. ;;5402
  1. ;;21,"67544-0025-80 ")
  1. ;;5403
  1. ;;21,"67544-0025-90 ")
  1. ;;5404
  1. ;;21,"67544-0026-30 ")
  1. ;;5405
  1. ;;21,"67544-0026-40 ")
  1. ;;5406
  1. ;;21,"67544-0026-45 ")
  1. ;;5407
  1. ;;21,"67544-0026-53 ")
  1. ;;5408
  1. ;;21,"67544-0026-60 ")
  1. ;;5409
  1. ;;21,"67544-0026-70 ")
  1. ;;5410
  1. ;;21,"67544-0026-72 ")
  1. ;;5411
  1. ;;21,"67544-0026-75 ")
  1. ;;5412
  1. ;;21,"67544-0026-80 ")
  1. ;;5413
  1. ;;21,"67544-0345-80 ")
  1. ;;5414
  1. ;;21,"67544-0474-53 ")
  1. ;;5415
  1. ;;21,"67544-0474-60 ")
  1. ;;5416
  1. ;;21,"67544-0474-70 ")
  1. ;;5417
  1. ;;21,"67544-0474-80 ")
  1. ;;5418
  1. ;;21,"67544-0474-90 ")
  1. ;;5419
  1. ;;21,"67544-0669-60 ")
  1. ;;5420
  1. ;;21,"67544-0669-70 ")
  1. ;;5421
  1. ;;21,"67544-0670-30 ")
  1. ;;5422
  1. ;;21,"67544-0670-40 ")
  1. ;;5423
  1. ;;21,"67544-0670-45 ")
  1. ;;5424
  1. ;;21,"67544-0670-46 ")
  1. ;;5425
  1. ;;21,"67544-0670-50 ")
  1. ;;5426
  1. ;;21,"67544-0670-53 ")
  1. ;;5427
  1. ;;21,"67544-0670-54 ")
  1. ;;5428
  1. ;;21,"67544-0670-55 ")
  1. ;;5429
  1. ;;21,"67544-0670-60 ")
  1. ;;5430
  1. ;;21,"67544-0670-67 ")
  1. ;;5431
  1. ;;21,"67544-0670-70 ")
  1. ;;5432
  1. ;;21,"67544-0670-72 ")
  1. ;;5433
  1. ;;21,"67544-0670-75 ")
  1. ;;5434
  1. ;;21,"67544-0670-80 ")
  1. ;;5435
  1. ;;21,"67544-0670-85 ")
  1. ;;5436
  1. ;;21,"67544-0670-90 ")
  1. ;;5437
  1. ;;21,"67544-0882-20 ")
  1. ;;5438
  1. ;;21,"67544-0882-30 ")
  1. ;;5439
  1. ;;21,"67544-0882-40 ")
  1. ;;5440
  1. ;;21,"67544-0882-45 ")
  1. ;;5441
  1. ;;21,"67544-0882-50 ")
  1. ;;5442
  1. ;;21,"67544-0882-53 ")
  1. ;;5443
  1. ;;21,"67544-0882-55 ")
  1. ;;5444
  1. ;;21,"67544-0882-60 ")
  1. ;;5445
  1. ;;21,"67544-0882-70 ")
  1. ;;5446
  1. ;;21,"67544-0882-75 ")
  1. ;;5447
  1. ;;21,"67544-0882-80 ")
  1. ;;5448
  1. ;;21,"67544-0882-90 ")
  1. ;;5449
  1. ;;21,"67877-0116-01 ")
  1. ;;5450
  1. ;;21,"67877-0322-01 ")
  1. ;;5451
  1. ;;21,"67877-0322-05 ")
  1. ;;5452
  1. ;;21,"68025-0053-30 ")
  1. ;;5453
  1. ;;21,"68025-0055-30 ")
  1. ;;5454
  1. ;;21,"68025-0056-30 ")
  1. ;;5455
  1. ;;21,"68025-0069-10 ")
  1. ;;5456
  1. ;;21,"68025-0071-30 ")
  1. ;;5457
  1. ;;21,"68025-0072-30 ")
  1. ;;5458
  1. ;;21,"68025-0073-30 ")
  1. ;;5459
  1. ;;21,"68047-0720-01 ")
  1. ;;5460
  1. ;;21,"68071-0158-10 ")
  1. ;;5461
  1. ;;21,"68071-0158-12 ")
  1. ;;5462
  1. ;;21,"68071-0158-20 ")
  1. ;;5463
  1. ;;21,"68071-0158-30 ")
  1. ;;5464
  1. ;;21,"68071-0158-40 ")
  1. ;;5465
  1. ;;21,"68071-0158-60 ")
  1. ;;5466
  1. ;;21,"68071-0158-90 ")
  1. ;;5467
  1. ;;21,"68071-0158-91 ")
  1. ;;5468
  1. ;;21,"68071-0159-06 ")
  1. ;;5469
  1. ;;21,"68071-0177-04 ")
  1. ;;5470
  1. ;;21,"68071-0177-06 ")
  1. ;;5471
  1. ;;21,"68071-0178-04 ")
  1. ;;5472
  1. ;;21,"68071-0178-06 ")
  1. ;;5473
  1. ;;21,"68071-0179-04 ")
  1. ;;5474
  1. ;;21,"68071-0203-06 ")
  1. ;;5475
  1. ;;21,"68071-0224-20 ")
  1. ;;5476
  1. ;;21,"68071-0224-30 ")
  1. ;;5477
  1. ;;21,"68071-0270-30 ")
  1. ;;5478
  1. ;;21,"68071-0274-30 ")
  1. ;;5479
  1. ;;21,"68071-0274-60 ")
  1. ;;5480
  1. ;;21,"68071-0274-90 ")
  1. ;;5481
  1. ;;21,"68071-0284-30 ")
  1. ;;5482
  1. ;;21,"68071-0284-60 ")
  1. ;;5483
  1. ;;21,"68071-0284-90 ")
  1. ;;5484
  1. ;;21,"68071-0284-91 ")
  1. ;;5485
  1. ;;21,"68071-0285-30 ")
  1. ;;5486
  1. ;;21,"68071-0285-56 ")
  1. ;;5487
  1. ;;21,"68071-0285-60 ")
  1. ;;5488
  1. ;;21,"68071-0285-84 ")
  1. ;;5489
  1. ;;21,"68071-0285-90 ")
  1. ;;5490
  1. ;;21,"68071-0285-91 ")
  1. ;;5491
  1. ;;21,"68071-0286-60 ")
  1. ;;5492
  1. ;;21,"68071-0286-90 ")
  1. ;;5493
  1. ;;21,"68071-0287-00 ")
  1. ;;5494
  1. ;;21,"68071-0287-20 ")
  1. ;;5495
  1. ;;21,"68071-0287-30 ")
  1. ;;5496
  1. ;;21,"68071-0287-40 ")
  1. ;;5497
  1. ;;21,"68071-0287-60 ")
  1. ;;5498
  1. ;;21,"68071-0287-90 ")
  1. ;;5499
  1. ;;21,"68071-0287-91 ")
  1. ;;5500
  1. ;;21,"68071-0296-15 ")
  1. ;;5501
  1. ;;21,"68071-0296-20 ")
  1. ;;5502
  1. ;;21,"68071-0296-25 ")
  1. ;;5503
  1. ;;21,"68071-0296-30 ")
  1. ;;5504
  1. ;;21,"68071-0296-40 ")
  1. ;;5505
  1. ;;21,"68071-0296-50 ")
  1. ;;5506
  1. ;;21,"68071-0296-60 ")
  1. ;;5507
  1. ;;21,"68071-0296-81 ")
  1. ;;5508
  1. ;;21,"68071-0296-84 ")
  1. ;;5509
  1. ;;21,"68071-0296-90 ")
  1. ;;5510
  1. ;;21,"68071-0296-91 ")
  1. ;;5511
  1. ;;21,"68071-0296-92 ")
  1. ;;5512
  1. ;;21,"68071-0301-30 ")
  1. ;;5513
  1. ;;21,"68071-0301-40 ")
  1. ;;5514
  1. ;;21,"68071-0301-60 ")
  1. ;;5515
  1. ;;21,"68071-0301-90 ")
  1. ;;5516
  1. ;;21,"68071-0301-91 ")
  1. ;;5517
  1. ;;21,"68071-0342-30 ")
  1. ;;5518
  1. ;;21,"68071-0342-60 ")
  1. ;;5519
  1. ;;21,"68071-0344-10 ")
  1. ;;5520
  1. ;;21,"68071-0344-20 ")
  1. ;;5521
  1. ;;21,"68071-0344-30 ")
  1. ;;5522
  1. ;;21,"68071-0344-40 ")
  1. ;;5523
  1. ;;21,"68071-0344-60 ")
  1. ;;5524
  1. ;;21,"68071-0344-81 ")
  1. ;;5525
  1. ;;21,"68071-0344-90 ")
  1. ;;5526
  1. ;;21,"68071-0344-91 ")
  1. ;;5527
  1. ;;21,"68071-0344-92 ")
  1. ;;5528
  1. ;;21,"68071-0345-30 ")
  1. ;;5529
  1. ;;21,"68071-0352-30 ")
  1. ;;5530
  1. ;;21,"68071-0352-56 ")
  1. ;;5531
  1. ;;21,"68071-0352-60 ")
  1. ;;5532
  1. ;;21,"68071-0352-84 ")
  1. ;;5533
  1. ;;21,"68071-0352-90 ")
  1. ;;5534
  1. ;;21,"68071-0352-91 ")
  1. ;;5535
  1. ;;21,"68071-0447-90 ")
  1. ;;5536
  1. ;;21,"68071-0453-60 ")
  1. ;;5537
  1. ;;21,"68071-0453-81 ")
  1. ;;5538
  1. ;;21,"68071-0453-90 ")
  1. ;;5539
  1. ;;21,"68071-0454-60 ")
  1. ;;5540
  1. ;;21,"68071-0454-81 ")
  1. ;;5541
  1. ;;21,"68071-0454-88 ")
  1. ;;5542
  1. ;;21,"68071-0454-90 ")
  1. ;;5543
  1. ;;21,"68071-0454-91 ")
  1. ;;5544
  1. ;;21,"68071-0454-92 ")
  1. ;;5545
  1. ;;21,"68071-0457-56 ")
  1. ;;5546
  1. ;;21,"68071-0457-60 ")
  1. ;;5547
  1. ;;21,"68071-0457-84 ")
  1. ;;5548
  1. ;;21,"68071-0457-90 ")
  1. ;;5549
  1. ;;21,"68071-0480-30 ")
  1. ;;5550
  1. ;;21,"68071-0484-30 ")
  1. ;;5551
  1. ;;21,"68071-0484-56 ")
  1. ;;5552
  1. ;;21,"68071-0484-60 ")
  1. ;;5553
  1. ;;21,"68071-0484-90 ")
  1. ;;5554
  1. ;;21,"68071-0484-91 ")
  1. ;;5555
  1. ;;21,"68071-0490-30 ")
  1. ;;5556
  1. ;;21,"68071-0490-60 ")
  1. ;;5557
  1. ;;21,"68071-0490-90 ")
  1. ;;5558
  1. ;;21,"68071-0697-60 ")
  1. ;;5559
  1. ;;21,"68071-0738-30 ")
  1. ;;5560
  1. ;;21,"68071-0738-60 ")
  1. ;;5561
  1. ;;21,"68071-0760-30 ")
  1. ;;5562
  1. ;;21,"68071-0832-91 ")
  1. ;;5563
  1. ;;21,"68071-0833-91 ")
  1. ;;5564
  1. ;;21,"68071-0834-91 ")
  1. ;;5565
  1. ;;21,"68071-0909-30 ")
  1. ;;5566
  1. ;;21,"68071-0909-60 ")
  1. ;;5567
  1. ;;21,"68071-0909-90 ")
  1. ;;5568
  1. ;;21,"68071-0918-30 ")
  1. ;;5569
  1. ;;21,"68071-0918-60 ")
  1. ;;5570
  1. ;;21,"68071-0918-90 ")
  1. ;;5571
  1. ;;21,"68071-1320-00 ")
  1. ;;5572
  1. ;;21,"68071-1359-00 ")
  1. ;;5573
  1. ;;21,"68071-1361-00 ")
  1. ;;5574
  1. ;;21,"68071-1373-05 ")
  1. ;;5575
  1. ;;21,"68071-1374-05 ")
  1. ;;5576
  1. ;;21,"68071-1375-05 ")
  1. ;;5577
  1. ;;21,"68071-1376-03 ")
  1. ;;5578
  1. ;;21,"68071-2001-03 ")
  1. ;;5579
  1. ;;21,"68071-2001-06 ")
  1. ;;5580
  1. ;;21,"68071-2001-09 ")
  1. ;;5581
  1. ;;21,"68071-2010-06 ")
  1. ;;5582
  1. ;;21,"68084-0048-01 ")
  1. ;;5583
  1. ;;21,"68084-0048-11 ")
  1. ;;5584
  1. ;;21,"68084-0100-01 ")
  1. ;;5585
  1. ;;21,"68084-0100-11 ")
  1. ;;5586
  1. ;;21,"68084-0157-01 ")
  1. ;;5587
  1. ;;21,"68084-0157-11 ")
  1. ;;5588
  1. ;;21,"68084-0158-01 ")
  1. ;;5589
  1. ;;21,"68084-0158-11 ")
  1. ;;5590
  1. ;;21,"68084-0159-01 ")
  1. ;;5591
  1. ;;21,"68084-0159-11 ")
  1. ;;5592
  1. ;;21,"68084-0184-01 ")
  1. ;;5593
  1. ;;21,"68084-0184-11 ")
  1. ;;5594
  1. ;;21,"68084-0185-01 ")
  1. ;;5595
  1. ;;21,"68084-0185-11 ")
  1. ;;5596
  1. ;;21,"68084-0227-01 ")
  1. ;;5597
  1. ;;21,"68084-0227-11 ")
  1. ;;5598
  1. ;;21,"68084-0354-01 ")
  1. ;;5599
  1. ;;21,"68084-0354-11 ")
  1. ;;5600
  1. ;;21,"68084-0355-01 ")
  1. ;;5601
  1. ;;21,"68084-0355-11 ")
  1. ;;5602
  1. ;;21,"68084-0368-01 ")
  1. ;;5603
  1. ;;21,"68084-0368-11 ")
  1. ;;5604
  1. ;;21,"68084-0372-01 ")
  1. ;;5605
  1. ;;21,"68084-0372-11 ")
  1. ;;5606
  1. ;;21,"68084-0373-01 ")
  1. ;;5607
  1. ;;21,"68084-0373-11 ")
  1. ;;5608
  1. ;;21,"68084-0378-01 ")
  1. ;;5609
  1. ;;21,"68084-0378-11 ")
  1. ;;5610
  1. ;;21,"68084-0379-01 ")
  1. ;;5611
  1. ;;21,"68084-0379-11 ")
  1. ;;5612
  1. ;;21,"68084-0403-01 ")
  1. ;;5613
  1. ;;21,"68084-0403-11 ")
  1. ;;5614
  1. ;;21,"68084-0404-01 ")
  1. ;;5615
  1. ;;21,"68084-0404-11 ")
  1. ;;5616
  1. ;;21,"68084-0405-01 ")
  1. ;;5617
  1. ;;21,"68084-0405-11 ")
  1. ;;5618
  1. ;;21,"68084-0406-01 ")
  1. ;;5619
  1. ;;21,"68084-0406-11 ")
  1. ;;5620
  1. ;;21,"68084-0423-01 ")
  1. ;;5621
  1. ;;21,"68084-0423-11 ")
  1. ;;5622
  1. ;;21,"68084-0472-01 ")
  1. ;;5623
  1. ;;21,"68084-0472-11 ")
  1. ;;5624
  1. ;;21,"68084-0601-01 ")
  1. ;;5625
  1. ;;21,"68084-0601-11 ")
  1. ;;5626
  1. ;;21,"68084-0699-01 ")
  1. ;;5627
  1. ;;21,"68084-0699-11 ")
  1. ;;5628
  1. ;;21,"68084-0710-01 ")
  1. ;;5629
  1. ;;21,"68084-0710-11 ")
  1. ;;5630
  1. ;;21,"68084-0738-01 ")
  1. ;;5631
  1. ;;21,"68084-0738-11 ")
  1. ;;5632
  1. ;;21,"68084-0796-25 ")
  1. ;;5633
  1. ;;21,"68084-0796-95 ")
  1. ;;5634
  1. ;;21,"68084-0798-11 ")
  1. ;;5635
  1. ;;21,"68084-0798-21 ")
  1. ;;5636
  1. ;;21,"68084-0808-01 ")
  1. ;;5637
  1. ;;21,"68084-0808-11 ")
  1. ;;5638
  1. ;;21,"68084-0825-01 ")
  1. ;;5639
  1. ;;21,"68084-0825-11 ")
  1. ;;5640
  1. ;;21,"68084-0828-11 ")
  1. ;;5641
  1. ;;21,"68084-0828-21 ")
  1. ;;5642
  1. ;;21,"68084-0841-01 ")
  1. ;;5643
  1. ;;21,"68084-0841-09 ")
  1. ;;5644
  1. ;;21,"68084-0841-11 ")
  1. ;;5645
  1. ;;21,"68084-0852-25 ")
  1. ;;5646
  1. ;;21,"68084-0852-95 ")
  1. ;;5647
  1. ;;21,"68084-0863-01 ")
  1. ;;5648
  1. ;;21,"68084-0863-09 ")
  1. ;;5649
  1. ;;21,"68084-0863-11 ")
  1. ;;5650
  1. ;;21,"68084-0884-01 ")
  1. ;;5651
  1. ;;21,"68084-0884-09 ")
  1. ;;5652
  1. ;;21,"68084-0884-11 ")
  1. ;;5653
  1. ;;21,"68084-0895-01 ")
  1. ;;5654
  1. ;;21,"68084-0895-09 ")
  1. ;;5655
  1. ;;21,"68084-0895-11 ")
  1. ;;5656
  1. ;;21,"68084-0963-11 ")
  1. ;;5657
  1. ;;21,"68084-0963-21 ")
  1. ;;5658
  1. ;;21,"68084-0977-32 ")
  1. ;;5659
  1. ;;21,"68084-0977-33 ")
  1. ;;5660
  1. ;;21,"68084-0990-11 ")
  1. ;;5661
  1. ;;21,"68084-0990-21 ")
  1. ;;5662
  1. ;;21,"68094-0001-59 ")
  1. ;;5663
  1. ;;21,"68094-0001-62 ")
  1. ;;5664
  1. ;;21,"68094-0005-59 ")
  1. ;;5665
  1. ;;21,"68094-0005-61 ")
  1. ;;5666
  1. ;;21,"68094-0006-59 ")
  1. ;;5667
  1. ;;21,"68094-0006-61 ")
  1. ;;5668
  1. ;;21,"68094-0714-59 ")
  1. ;;5669
  1. ;;21,"68094-0714-62 ")
  1. ;;5670
  1. ;;21,"68094-0754-01 ")
  1. ;;5671
  1. ;;21,"68094-0754-58 ")
  1. ;;5672
  1. ;;21,"68094-0755-01 ")
  1. ;;5673
  1. ;;21,"68094-0755-58 ")
  1. ;;5674
  1. ;;21,"68094-0760-59 ")
  1. ;;5675
  1. ;;21,"68094-0760-62 ")
  1. ;;5676
  1. ;;21,"68094-0761-59 ")
  1. ;;5677
  1. ;;21,"68094-0761-62 ")
  1. ;;5678
  1. ;;21,"68094-0801-01 ")
  1. ;;5679
  1. ;;21,"68094-0801-58 ")
  1. ;;5680
  1. ;;21,"68094-0852-61 ")
  1. ;;5681
  1. ;;21,"68180-0383-06 ")
  1. ;;5682
  1. ;;21,"68180-0384-06 ")
  1. ;;5683
  1. ;;21,"68180-0385-06 ")
  1. ;;5684
  1. ;;21,"68180-0697-06 ")
  1. ;;5685