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

BGPM5AUC.m

Go to the documentation of this file.
  1. BGPM5AUC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"66267077406 ")
  1. ;;5381
  1. ;;21,"66267077706 ")
  1. ;;5382
  1. ;;21,"66267078106 ")
  1. ;;5383
  1. ;;21,"66267080806 ")
  1. ;;5384
  1. ;;21,"66267080809 ")
  1. ;;5385
  1. ;;21,"66267080904 ")
  1. ;;5386
  1. ;;21,"66267080906 ")
  1. ;;5387
  1. ;;21,"66267081602 ")
  1. ;;5388
  1. ;;21,"66267081606 ")
  1. ;;5389
  1. ;;21,"66267081940 ")
  1. ;;5390
  1. ;;21,"66267082506 ")
  1. ;;5391
  1. ;;21,"66267085620 ")
  1. ;;5392
  1. ;;21,"66267085703 ")
  1. ;;5393
  1. ;;21,"66267085704 ")
  1. ;;5394
  1. ;;21,"66267085902 ")
  1. ;;5395
  1. ;;21,"66267085903 ")
  1. ;;5396
  1. ;;21,"66267085904 ")
  1. ;;5397
  1. ;;21,"66267086530 ")
  1. ;;5398
  1. ;;21,"66267086540 ")
  1. ;;5399
  1. ;;21,"66267087103 ")
  1. ;;5400
  1. ;;21,"66267087104 ")
  1. ;;5401
  1. ;;21,"66267087630 ")
  1. ;;5402
  1. ;;21,"66267087642 ")
  1. ;;5403
  1. ;;21,"66267087840 ")
  1. ;;5404
  1. ;;21,"66267087906 ")
  1. ;;5405
  1. ;;21,"66267087930 ")
  1. ;;5406
  1. ;;21,"66267087942 ")
  1. ;;5407
  1. ;;21,"66267088205 ")
  1. ;;5408
  1. ;;21,"66267088206 ")
  1. ;;5409
  1. ;;21,"66267088220 ")
  1. ;;5410
  1. ;;21,"66267088508 ")
  1. ;;5411
  1. ;;21,"66267088514 ")
  1. ;;5412
  1. ;;21,"66267088520 ")
  1. ;;5413
  1. ;;21,"66267088528 ")
  1. ;;5414
  1. ;;21,"66267089030 ")
  1. ;;5415
  1. ;;21,"66267089040 ")
  1. ;;5416
  1. ;;21,"66267089140 ")
  1. ;;5417
  1. ;;21,"66267089940 ")
  1. ;;5418
  1. ;;21,"66267090005 ")
  1. ;;5419
  1. ;;21,"66267090006 ")
  1. ;;5420
  1. ;;21,"66267090030 ")
  1. ;;5421
  1. ;;21,"66267090040 ")
  1. ;;5422
  1. ;;21,"66267090056 ")
  1. ;;5423
  1. ;;21,"66267090080 ")
  1. ;;5424
  1. ;;21,"66267090805 ")
  1. ;;5425
  1. ;;21,"66267090814 ")
  1. ;;5426
  1. ;;21,"66267090820 ")
  1. ;;5427
  1. ;;21,"66267091901 ")
  1. ;;5428
  1. ;;21,"66267091906 ")
  1. ;;5429
  1. ;;21,"66267091910 ")
  1. ;;5430
  1. ;;21,"66267091914 ")
  1. ;;5431
  1. ;;21,"66267091915 ")
  1. ;;5432
  1. ;;21,"66267091920 ")
  1. ;;5433
  1. ;;21,"66267091928 ")
  1. ;;5434
  1. ;;21,"66267091930 ")
  1. ;;5435
  1. ;;21,"66267091960 ")
  1. ;;5436
  1. ;;21,"66267098120 ")
  1. ;;5437
  1. ;;21,"66267098200 ")
  1. ;;5438
  1. ;;21,"66267099315 ")
  1. ;;5439
  1. ;;21,"66267099400 ")
  1. ;;5440
  1. ;;21,"66267100101 ")
  1. ;;5441
  1. ;;21,"66267100201 ")
  1. ;;5442
  1. ;;21,"66288110001 ")
  1. ;;5443
  1. ;;21,"66288130001 ")
  1. ;;5444
  1. ;;21,"66304097110 ")
  1. ;;5445
  1. ;;21,"66336001808 ")
  1. ;;5446
  1. ;;21,"66336001814 ")
  1. ;;5447
  1. ;;21,"66336001820 ")
  1. ;;5448
  1. ;;21,"66336001828 ")
  1. ;;5449
  1. ;;21,"66336001842 ")
  1. ;;5450
  1. ;;21,"66336002220 ")
  1. ;;5451
  1. ;;21,"66336005506 ")
  1. ;;5452
  1. ;;21,"66336005508 ")
  1. ;;5453
  1. ;;21,"66336005510 ")
  1. ;;5454
  1. ;;21,"66336005514 ")
  1. ;;5455
  1. ;;21,"66336005520 ")
  1. ;;5456
  1. ;;21,"66336005528 ")
  1. ;;5457
  1. ;;21,"66336005530 ")
  1. ;;5458
  1. ;;21,"66336005540 ")
  1. ;;5459
  1. ;;21,"66336007420 ")
  1. ;;5460
  1. ;;21,"663360077 ")
  1. ;;5463
  1. ;;21,"66336007720 ")
  1. ;;5461
  1. ;;21,"66336007728 ")
  1. ;;5462
  1. ;;21,"66336008706 ")
  1. ;;5465
  1. ;;21,"66336008710 ")
  1. ;;5466
  1. ;;21,"66336008714 ")
  1. ;;5467
  1. ;;21,"66336008720 ")
  1. ;;5468
  1. ;;21,"66336008740 ")
  1. ;;5469
  1. ;;21,"66336008760 ")
  1. ;;5470
  1. ;;21,"66336009506 ")
  1. ;;5471
  1. ;;21,"66336009510 ")
  1. ;;5472
  1. ;;21,"66336009520 ")
  1. ;;5473
  1. ;;21,"66336009528 ")
  1. ;;5474
  1. ;;21,"66336009530 ")
  1. ;;5475
  1. ;;21,"66336009540 ")
  1. ;;5476
  1. ;;21,"66336010420 ")
  1. ;;5477
  1. ;;21,"66336010840 ")
  1. ;;5478
  1. ;;21,"66336010914 ")
  1. ;;5479
  1. ;;21,"66336010920 ")
  1. ;;5480
  1. ;;21,"66336010928 ")
  1. ;;5481
  1. ;;21,"66336010930 ")
  1. ;;5482
  1. ;;21,"66336010950 ")
  1. ;;5483
  1. ;;21,"66336010960 ")
  1. ;;5484
  1. ;;21,"66336011330 ")
  1. ;;5485
  1. ;;21,"66336020230 ")
  1. ;;5486
  1. ;;21,"66336022920 ")
  1. ;;5487
  1. ;;21,"66336022956 ")
  1. ;;5488
  1. ;;21,"66336022984 ")
  1. ;;5489
  1. ;;21,"66336029330 ")
  1. ;;5490
  1. ;;21,"66336034720 ")
  1. ;;5491
  1. ;;21,"66336036920 ")
  1. ;;5492
  1. ;;21,"66336041420 ")
  1. ;;5493
  1. ;;21,"66336041428 ")
  1. ;;5494
  1. ;;21,"66336041440 ")
  1. ;;5495
  1. ;;21,"66336043314 ")
  1. ;;5496
  1. ;;21,"66336043520 ")
  1. ;;5497
  1. ;;21,"66336043530 ")
  1. ;;5498
  1. ;;21,"66336043540 ")
  1. ;;5499
  1. ;;21,"66336043560 ")
  1. ;;5500
  1. ;;21,"66336044103 ")
  1. ;;5501
  1. ;;21,"66336044106 ")
  1. ;;5502
  1. ;;21,"66336044108 ")
  1. ;;5503
  1. ;;21,"66336044120 ")
  1. ;;5504
  1. ;;21,"66336044128 ")
  1. ;;5505
  1. ;;21,"66336044140 ")
  1. ;;5506
  1. ;;21,"66336044914 ")
  1. ;;5507
  1. ;;21,"66336044920 ")
  1. ;;5508
  1. ;;21,"66336045430 ")
  1. ;;5509
  1. ;;21,"66336048020 ")
  1. ;;5510
  1. ;;21,"66336048040 ")
  1. ;;5511
  1. ;;21,"66336051020 ")
  1. ;;5512
  1. ;;21,"66336051050 ")
  1. ;;5513
  1. ;;21,"66336051130 ")
  1. ;;5514
  1. ;;21,"66336052430 ")
  1. ;;5515
  1. ;;21,"66336052520 ")
  1. ;;5516
  1. ;;21,"66336052630 ")
  1. ;;5517
  1. ;;21,"66336052720 ")
  1. ;;5518
  1. ;;21,"66336058375 ")
  1. ;;5519
  1. ;;21,"66336059328 ")
  1. ;;5520
  1. ;;21,"66336059330 ")
  1. ;;5521
  1. ;;21,"66336059340 ")
  1. ;;5522
  1. ;;21,"66336060906 ")
  1. ;;5523
  1. ;;21,"66336060912 ")
  1. ;;5524
  1. ;;21,"66336060920 ")
  1. ;;5525
  1. ;;21,"66336060928 ")
  1. ;;5526
  1. ;;21,"66336060930 ")
  1. ;;5527
  1. ;;21,"66336060940 ")
  1. ;;5528
  1. ;;21,"66336061720 ")
  1. ;;5529
  1. ;;21,"66336063408 ")
  1. ;;5530
  1. ;;21,"66336063415 ")
  1. ;;5531
  1. ;;21,"66336063421 ")
  1. ;;5532
  1. ;;21,"66336063430 ")
  1. ;;5533
  1. ;;21,"66336063440 ")
  1. ;;5534
  1. ;;21,"66336063442 ")
  1. ;;5535
  1. ;;21,"66336064528 ")
  1. ;;5536
  1. ;;21,"66336064840 ")
  1. ;;5537
  1. ;;21,"66336065520 ")
  1. ;;5538
  1. ;;21,"66336065521 ")
  1. ;;5539
  1. ;;21,"66336065530 ")
  1. ;;5540
  1. ;;21,"66336090310 ")
  1. ;;5541
  1. ;;21,"66336090314 ")
  1. ;;5542
  1. ;;21,"66336090320 ")
  1. ;;5543
  1. ;;21,"66336090328 ")
  1. ;;5544
  1. ;;21,"66336090399 ")
  1. ;;5545
  1. ;;21,"66336090628 ")
  1. ;;5546
  1. ;;21,"66336090630 ")
  1. ;;5547
  1. ;;21,"66406004901 ")
  1. ;;5548
  1. ;;21,"66406004909 ")
  1. ;;5549
  1. ;;21,"66406005303 ")
  1. ;;5550
  1. ;;21,"66466001000 ")
  1. ;;5551
  1. ;;21,"66466001001 ")
  1. ;;5552
  1. ;;21,"66466001005 ")
  1. ;;5553
  1. ;;21,"66466001601 ")
  1. ;;5554
  1. ;;21,"66466001605 ")
  1. ;;5555
  1. ;;21,"66466007001 ")
  1. ;;5556
  1. ;;21,"66466007005 ")
  1. ;;5557
  1. ;;21,"66466008002 ")
  1. ;;5558
  1. ;;21,"66466008003 ")
  1. ;;5559
  1. ;;21,"66466008005 ")
  1. ;;5560
  1. ;;21,"66466009001 ")
  1. ;;5561
  1. ;;21,"66466009005 ")
  1. ;;5562
  1. ;;21,"66466009008 ")
  1. ;;5563
  1. ;;21,"66466009701 ")
  1. ;;5564
  1. ;;21,"66466010501 ")
  1. ;;5565
  1. ;;21,"66466010505 ")
  1. ;;5566
  1. ;;21,"66466010508 ")
  1. ;;5567
  1. ;;21,"66466011601 ")
  1. ;;5568
  1. ;;21,"66466011801 ")
  1. ;;5569
  1. ;;21,"66466011802 ")
  1. ;;5570
  1. ;;21,"66466012001 ")
  1. ;;5571
  1. ;;21,"66466012005 ")
  1. ;;5572
  1. ;;21,"66466013001 ")
  1. ;;5573
  1. ;;21,"66466013005 ")
  1. ;;5574
  1. ;;21,"66466023003 ")
  1. ;;5575
  1. ;;21,"66466028003 ")
  1. ;;5576
  1. ;;21,"66466034003 ")
  1. ;;5577
  1. ;;21,"66466034005 ")
  1. ;;5578
  1. ;;21,"66466034008 ")
  1. ;;5579
  1. ;;21,"66466172501 ")
  1. ;;5580
  1. ;;21,"66466252000 ")
  1. ;;5581
  1. ;;21,"66466252001 ")
  1. ;;5582
  1. ;;21,"66466252700 ")
  1. ;;5583
  1. ;;21,"66466252701 ")
  1. ;;5584
  1. ;;21,"66466253000 ")
  1. ;;5585
  1. ;;21,"66466253001 ")
  1. ;;5586
  1. ;;21,"66466253700 ")
  1. ;;5587
  1. ;;21,"66466253701 ")
  1. ;;5588
  1. ;;21,"66466469201 ")
  1. ;;5589
  1. ;;21,"66466469205 ")
  1. ;;5590
  1. ;;21,"66467001001 ")
  1. ;;5591
  1. ;;21,"66467001005 ")
  1. ;;5592
  1. ;;21,"66467010501 ")
  1. ;;5593
  1. ;;21,"66467010505 ")
  1. ;;5594
  1. ;;21,"66467011601 ")
  1. ;;5595
  1. ;;21,"66467012005 ")
  1. ;;5596
  1. ;;21,"66467013001 ")
  1. ;;5597
  1. ;;21,"66467013005 ")
  1. ;;5598
  1. ;;21,"66467023003 ")
  1. ;;5599
  1. ;;21,"66467023005 ")
  1. ;;5600
  1. ;;21,"66467034003 ")
  1. ;;5601
  1. ;;21,"66467469201 ")
  1. ;;5602
  1. ;;21,"66467469205 ")
  1. ;;5603
  1. ;;21,"66467469301 ")
  1. ;;5604
  1. ;;21,"66467469305 ")
  1. ;;5605
  1. ;;21,"66685100100 ")
  1. ;;5606
  1. ;;21,"66685100101 ")
  1. ;;5607
  1. ;;21,"66685100102 ")
  1. ;;5608
  1. ;;21,"66685100200 ")
  1. ;;5609
  1. ;;21,"66685100201 ")
  1. ;;5610
  1. ;;21,"66685100202 ")
  1. ;;5611
  1. ;;21,"66685101100 ")
  1. ;;5612
  1. ;;21,"66685101101 ")
  1. ;;5613
  1. ;;21,"66685101102 ")
  1. ;;5614
  1. ;;21,"66685101200 ")
  1. ;;5615
  1. ;;21,"66685101201 ")
  1. ;;5616
  1. ;;21,"66685101202 ")
  1. ;;5617
  1. ;;21,"66860000103 ")
  1. ;;5618
  1. ;;21,"66860000203 ")
  1. ;;5619
  1. ;;21,"66860000302 ")
  1. ;;5620
  1. ;;21,"66860001102 ")
  1. ;;5621
  1. ;;21,"66860001202 ")
  1. ;;5622
  1. ;;21,"66860001302 ")
  1. ;;5623
  1. ;;21,"66860001502 ")
  1. ;;5624
  1. ;;21,"66860003103 ")
  1. ;;5625
  1. ;;21,"66860003202 ")
  1. ;;5626
  1. ;;21,"66860007102 ")
  1. ;;5627
  1. ;;21,"66860007202 ")
  1. ;;5628
  1. ;;21,"66860007302 ")
  1. ;;5629
  1. ;;21,"66860007402 ")
  1. ;;5630
  1. ;;21,"66860073103 ")
  1. ;;5631
  1. ;;21,"66860073125 ")
  1. ;;5632
  1. ;;21,"66860073202 ")
  1. ;;5633
  1. ;;21,"66860090203 ")
  1. ;;5634
  1. ;;21,"67046002021 ")
  1. ;;5635
  1. ;;21,"67046008410 ")
  1. ;;5636
  1. ;;21,"67046008420 ")
  1. ;;5637
  1. ;;21,"67046008421 ")
  1. ;;5638
  1. ;;21,"67046008428 ")
  1. ;;5639
  1. ;;21,"67046008430 ")
  1. ;;5640
  1. ;;21,"67046008510 ")
  1. ;;5641
  1. ;;21,"67046008520 ")
  1. ;;5642
  1. ;;21,"67046008521 ")
  1. ;;5643
  1. ;;21,"67046008528 ")
  1. ;;5644
  1. ;;21,"67046008530 ")
  1. ;;5645
  1. ;;21,"67046009021 ")
  1. ;;5646
  1. ;;21,"67046009028 ")
  1. ;;5647
  1. ;;21,"67046009030 ")
  1. ;;5648
  1. ;;21,"67046013514 ")
  1. ;;5649
  1. ;;21,"67046013520 ")
  1. ;;5650
  1. ;;21,"67046013530 ")
  1. ;;5651
  1. ;;21,"67046057621 ")
  1. ;;5652
  1. ;;21,"67046057628 ")
  1. ;;5653
  1. ;;21,"67046057630 ")
  1. ;;5654
  1. ;;21,"67046071520 ")
  1. ;;5655
  1. ;;21,"67046071530 ")
  1. ;;5656
  1. ;;21,"67046072830 ")
  1. ;;5657
  1. ;;21,"6715 ")
  1. ;;1
  1. ;;21,"67209092010 ")
  1. ;;5658
  1. ;;21,"67209092030 ")
  1. ;;5659
  1. ;;21,"67209092110 ")
  1. ;;5660
  1. ;;21,"67209092130 ")
  1. ;;5661
  1. ;;21,"67209092210 ")
  1. ;;5662
  1. ;;21,"67209092230 ")
  1. ;;5663
  1. ;;21,"67228001202 ")
  1. ;;5664
  1. ;;21,"67228001203 ")
  1. ;;5665
  1. ;;21,"67228001206 ")
  1. ;;5666
  1. ;;21,"67228002803 ")
  1. ;;5667
  1. ;;21,"67228002806 ")
  1. ;;5668
  1. ;;21,"67228003203 ")
  1. ;;5669
  1. ;;21,"67228003206 ")
  1. ;;5670
  1. ;;21,"67228003303 ")
  1. ;;5671
  1. ;;21,"67228003306 ")
  1. ;;5672
  1. ;;21,"67228003803 ")
  1. ;;5673
  1. ;;21,"67228003806 ")
  1. ;;5674
  1. ;;21,"67228003903 ")
  1. ;;5675
  1. ;;21,"67228003906 ")
  1. ;;5676
  1. ;;21,"67228004703 ")
  1. ;;5677
  1. ;;21,"67228004706 ")
  1. ;;5678
  1. ;;21,"67228005103 ")
  1. ;;5679
  1. ;;21,"67228005106 ")
  1. ;;5680
  1. ;;21,"67228013003 ")
  1. ;;5681
  1. ;;21,"67228013006 ")
  1. ;;5682
  1. ;;21,"67228013703 ")
  1. ;;5683
  1. ;;21,"67228013706 ")
  1. ;;5684
  1. ;;21,"67228013803 ")
  1. ;;5685
  1. ;;21,"67228013806 ")
  1. ;;5686
  1. ;;21,"67228023503 ")
  1. ;;5687
  1. ;;21,"67228023506 ")
  1. ;;5688
  1. ;;21,"67228028603 ")
  1. ;;5689
  1. ;;21,"67228028606 ")
  1. ;;5690
  1. ;;21,"67228029503 ")
  1. ;;5691
  1. ;;21,"67228029506 ")
  1. ;;5692
  1. ;;21,"67228032103 ")
  1. ;;5693
  1. ;;21,"67228032106 ")
  1. ;;5694
  1. ;;21,"67228036703 ")
  1. ;;5695
  1. ;;21,"67228036706 ")
  1. ;;5696
  1. ;;21,"67228037003 ")
  1. ;;5697
  1. ;;21,"67228037006 ")
  1. ;;5698
  1. ;;21,"67228037103 ")
  1. ;;5699
  1. ;;21,"67228037106 ")
  1. ;;5700
  1. ;;21,"67228037303 ")
  1. ;;5701
  1. ;;21,"67228037306 ")
  1. ;;5702
  1. ;;21,"67228037603 ")
  1. ;;5703
  1. ;;21,"67228037606 ")
  1. ;;5704
  1. ;;21,"67228043103 ")
  1. ;;5705
  1. ;;21,"67228043106 ")
  1. ;;5706
  1. ;;21,"67228044403 ")
  1. ;;5707
  1. ;;21,"67228044406 ")
  1. ;;5708
  1. ;;21,"67228045203 ")
  1. ;;5709
  1. ;;21,"67228045206 ")
  1. ;;5710
  1. ;;21,"67228046303 ")
  1. ;;5711
  1. ;;21,"67228046306 ")
  1. ;;5712
  1. ;;21,"67228046503 ")
  1. ;;5713
  1. ;;21,"67228046506 ")
  1. ;;5714
  1. ;;21,"67228047303 ")
  1. ;;5715
  1. ;;21,"67228047306 ")
  1. ;;5716
  1. ;;21,"67253000760 ")
  1. ;;5717
  1. ;;21,"67253000841 ")
  1. ;;5718
  1. ;;21,"67253000846 ")
  1. ;;5719
  1. ;;21,"67253000941 ")
  1. ;;5720
  1. ;;21,"67253000946 ")
  1. ;;5721
  1. ;;21,"67253010404 ")
  1. ;;5722
  1. ;;21,"67253010504 ")
  1. ;;5723
  1. ;;21,"67253014010 ")
  1. ;;5724
  1. ;;21,"67253014050 ")
  1. ;;5725
  1. ;;21,"67253014110 ")
  1. ;;5726
  1. ;;21,"67253014150 ")
  1. ;;5727
  1. ;;21,"67253014208 ")
  1. ;;5728
  1. ;;21,"67253014210 ")
  1. ;;5729
  1. ;;21,"67253014215 ")
  1. ;;5730
  1. ;;21,"67253014308 ")
  1. ;;5731
  1. ;;21,"67253014310 ")
  1. ;;5732