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