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

BGPM5BBE.m

Go to the documentation of this file.
  1. BGPM5BBE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"65387033509 ")
  1. ;;5467
  1. ;;21,"65427049201 ")
  1. ;;5468
  1. ;;21,"65427049202 ")
  1. ;;5469
  1. ;;21,"65427049203 ")
  1. ;;5470
  1. ;;21,"65427049204 ")
  1. ;;5471
  1. ;;21,"65427049205 ")
  1. ;;5472
  1. ;;21,"65427049301 ")
  1. ;;5473
  1. ;;21,"65427049302 ")
  1. ;;5474
  1. ;;21,"65427049303 ")
  1. ;;5475
  1. ;;21,"65427049304 ")
  1. ;;5476
  1. ;;21,"65427049305 ")
  1. ;;5477
  1. ;;21,"65427049701 ")
  1. ;;5478
  1. ;;21,"65427049702 ")
  1. ;;5479
  1. ;;21,"65427049703 ")
  1. ;;5480
  1. ;;21,"65427049704 ")
  1. ;;5481
  1. ;;21,"65427049705 ")
  1. ;;5482
  1. ;;21,"65580030103 ")
  1. ;;5483
  1. ;;21,"65580030109 ")
  1. ;;5484
  1. ;;21,"65580030203 ")
  1. ;;5485
  1. ;;21,"65580030209 ")
  1. ;;5486
  1. ;;21,"65580030303 ")
  1. ;;5487
  1. ;;21,"65580030309 ")
  1. ;;5488
  1. ;;21,"65580030403 ")
  1. ;;5489
  1. ;;21,"65580030409 ")
  1. ;;5490
  1. ;;21,"65841009701 ")
  1. ;;5491
  1. ;;21,"65841009705 ")
  1. ;;5492
  1. ;;21,"65841009706 ")
  1. ;;5493
  1. ;;21,"65841009710 ")
  1. ;;5494
  1. ;;21,"65841009716 ")
  1. ;;5495
  1. ;;21,"65841009801 ")
  1. ;;5496
  1. ;;21,"65841009805 ")
  1. ;;5497
  1. ;;21,"65841009806 ")
  1. ;;5498
  1. ;;21,"65841009810 ")
  1. ;;5499
  1. ;;21,"65841009816 ")
  1. ;;5500
  1. ;;21,"65841009901 ")
  1. ;;5501
  1. ;;21,"65841009905 ")
  1. ;;5502
  1. ;;21,"65841009906 ")
  1. ;;5503
  1. ;;21,"65841009910 ")
  1. ;;5504
  1. ;;21,"65841009916 ")
  1. ;;5505
  1. ;;21,"65841060101 ")
  1. ;;5506
  1. ;;21,"65841060105 ")
  1. ;;5507
  1. ;;21,"65841060106 ")
  1. ;;5508
  1. ;;21,"65841060110 ")
  1. ;;5509
  1. ;;21,"65841060116 ")
  1. ;;5510
  1. ;;21,"65841067101 ")
  1. ;;5511
  1. ;;21,"65841067105 ")
  1. ;;5512
  1. ;;21,"65841067106 ")
  1. ;;5513
  1. ;;21,"65841067110 ")
  1. ;;5514
  1. ;;21,"65841067114 ")
  1. ;;5515
  1. ;;21,"65841067116 ")
  1. ;;5516
  1. ;;21,"65841067201 ")
  1. ;;5517
  1. ;;21,"65841067205 ")
  1. ;;5518
  1. ;;21,"65841067206 ")
  1. ;;5519
  1. ;;21,"65841067210 ")
  1. ;;5520
  1. ;;21,"65841067214 ")
  1. ;;5521
  1. ;;21,"65841067216 ")
  1. ;;5522
  1. ;;21,"65841067301 ")
  1. ;;5523
  1. ;;21,"65841067305 ")
  1. ;;5524
  1. ;;21,"65841067306 ")
  1. ;;5525
  1. ;;21,"65841067310 ")
  1. ;;5526
  1. ;;21,"65841067314 ")
  1. ;;5527
  1. ;;21,"65841067316 ")
  1. ;;5528
  1. ;;21,"65841067401 ")
  1. ;;5529
  1. ;;21,"65841067405 ")
  1. ;;5530
  1. ;;21,"65841067406 ")
  1. ;;5531
  1. ;;21,"65841067410 ")
  1. ;;5532
  1. ;;21,"65841067414 ")
  1. ;;5533
  1. ;;21,"65841067416 ")
  1. ;;5534
  1. ;;21,"65841067501 ")
  1. ;;5535
  1. ;;21,"65841067505 ")
  1. ;;5536
  1. ;;21,"65841067506 ")
  1. ;;5537
  1. ;;21,"65841067510 ")
  1. ;;5538
  1. ;;21,"65841067514 ")
  1. ;;5539
  1. ;;21,"65841067516 ")
  1. ;;5540
  1. ;;21,"65841075101 ")
  1. ;;5541
  1. ;;21,"65841075105 ")
  1. ;;5542
  1. ;;21,"65841075106 ")
  1. ;;5543
  1. ;;21,"65841075110 ")
  1. ;;5544
  1. ;;21,"65841075116 ")
  1. ;;5545
  1. ;;21,"65841075201 ")
  1. ;;5546
  1. ;;21,"65841075205 ")
  1. ;;5547
  1. ;;21,"65841075206 ")
  1. ;;5548
  1. ;;21,"65841075210 ")
  1. ;;5549
  1. ;;21,"65841075216 ")
  1. ;;5550
  1. ;;21,"65841075301 ")
  1. ;;5551
  1. ;;21,"65841075305 ")
  1. ;;5552
  1. ;;21,"65841075306 ")
  1. ;;5553
  1. ;;21,"65841075310 ")
  1. ;;5554
  1. ;;21,"65841075316 ")
  1. ;;5555
  1. ;;21,"65862000101 ")
  1. ;;5556
  1. ;;21,"65862000105 ")
  1. ;;5557
  1. ;;21,"65862000129 ")
  1. ;;5558
  1. ;;21,"65862000130 ")
  1. ;;5559
  1. ;;21,"65862000160 ")
  1. ;;5560
  1. ;;21,"65862000190 ")
  1. ;;5561
  1. ;;21,"65862000301 ")
  1. ;;5562
  1. ;;21,"65862000303 ")
  1. ;;5563
  1. ;;21,"65862000305 ")
  1. ;;5564
  1. ;;21,"65862000330 ")
  1. ;;5565
  1. ;;21,"65862000332 ")
  1. ;;5566
  1. ;;21,"65862000359 ")
  1. ;;5567
  1. ;;21,"65862000360 ")
  1. ;;5568
  1. ;;21,"65862000390 ")
  1. ;;5569
  1. ;;21,"65862000501 ")
  1. ;;5570
  1. ;;21,"65862000505 ")
  1. ;;5571
  1. ;;21,"65862000510 ")
  1. ;;5572
  1. ;;21,"65862000529 ")
  1. ;;5573
  1. ;;21,"65862000530 ")
  1. ;;5574
  1. ;;21,"65862000532 ")
  1. ;;5575
  1. ;;21,"65862000534 ")
  1. ;;5576
  1. ;;21,"65862000560 ")
  1. ;;5577
  1. ;;21,"65862000590 ")
  1. ;;5578
  1. ;;21,"65862000601 ")
  1. ;;5579
  1. ;;21,"65862000605 ")
  1. ;;5580
  1. ;;21,"65862000610 ")
  1. ;;5581
  1. ;;21,"65862000619 ")
  1. ;;5582
  1. ;;21,"65862000630 ")
  1. ;;5583
  1. ;;21,"65862000632 ")
  1. ;;5584
  1. ;;21,"65862000653 ")
  1. ;;5585
  1. ;;21,"65862000660 ")
  1. ;;5586
  1. ;;21,"65862000690 ")
  1. ;;5587
  1. ;;21,"65862000701 ")
  1. ;;5588
  1. ;;21,"65862000705 ")
  1. ;;5589
  1. ;;21,"65862000710 ")
  1. ;;5590
  1. ;;21,"65862000730 ")
  1. ;;5591
  1. ;;21,"65862000732 ")
  1. ;;5592
  1. ;;21,"65862000759 ")
  1. ;;5593
  1. ;;21,"65862000760 ")
  1. ;;5594
  1. ;;21,"65862000761 ")
  1. ;;5595
  1. ;;21,"65862000790 ")
  1. ;;5596
  1. ;;21,"65862001101 ")
  1. ;;5597
  1. ;;21,"65862001105 ")
  1. ;;5598
  1. ;;21,"65862001129 ")
  1. ;;5599
  1. ;;21,"65862001130 ")
  1. ;;5600
  1. ;;21,"65862001150 ")
  1. ;;5601
  1. ;;21,"65862001151 ")
  1. ;;5602
  1. ;;21,"65862001159 ")
  1. ;;5603
  1. ;;21,"65862001160 ")
  1. ;;5604
  1. ;;21,"65862001190 ")
  1. ;;5605
  1. ;;21,"65862001199 ")
  1. ;;5606
  1. ;;21,"65862001201 ")
  1. ;;5607
  1. ;;21,"65862001205 ")
  1. ;;5608
  1. ;;21,"65862001219 ")
  1. ;;5609
  1. ;;21,"65862001230 ")
  1. ;;5610
  1. ;;21,"65862001250 ")
  1. ;;5611
  1. ;;21,"65862001251 ")
  1. ;;5612
  1. ;;21,"65862001259 ")
  1. ;;5613
  1. ;;21,"65862001260 ")
  1. ;;5614
  1. ;;21,"65862001290 ")
  1. ;;5615
  1. ;;21,"65862001299 ")
  1. ;;5616
  1. ;;21,"65862001301 ")
  1. ;;5617
  1. ;;21,"65862001305 ")
  1. ;;5618
  1. ;;21,"65862001325 ")
  1. ;;5619
  1. ;;21,"65862001326 ")
  1. ;;5620
  1. ;;21,"65862001330 ")
  1. ;;5621
  1. ;;21,"65862001350 ")
  1. ;;5622
  1. ;;21,"65862001359 ")
  1. ;;5623
  1. ;;21,"65862001360 ")
  1. ;;5624
  1. ;;21,"65862001390 ")
  1. ;;5625
  1. ;;21,"65862001399 ")
  1. ;;5626
  1. ;;21,"65862002101 ")
  1. ;;5627
  1. ;;21,"65862002106 ")
  1. ;;5628
  1. ;;21,"65862002130 ")
  1. ;;5629
  1. ;;21,"65862002160 ")
  1. ;;5630
  1. ;;21,"65862002190 ")
  1. ;;5631
  1. ;;21,"65862002201 ")
  1. ;;5632
  1. ;;21,"65862002206 ")
  1. ;;5633
  1. ;;21,"65862002230 ")
  1. ;;5634
  1. ;;21,"65862002260 ")
  1. ;;5635
  1. ;;21,"65862002290 ")
  1. ;;5636
  1. ;;21,"65862002301 ")
  1. ;;5637
  1. ;;21,"65862002306 ")
  1. ;;5638
  1. ;;21,"65862002330 ")
  1. ;;5639
  1. ;;21,"65862002360 ")
  1. ;;5640
  1. ;;21,"65862002390 ")
  1. ;;5641
  1. ;;21,"65862003101 ")
  1. ;;5642
  1. ;;21,"65862003103 ")
  1. ;;5643
  1. ;;21,"65862003105 ")
  1. ;;5644
  1. ;;21,"65862003119 ")
  1. ;;5645
  1. ;;21,"65862003130 ")
  1. ;;5646
  1. ;;21,"65862003132 ")
  1. ;;5647
  1. ;;21,"65862003160 ")
  1. ;;5648
  1. ;;21,"65862003190 ")
  1. ;;5649
  1. ;;21,"65862003201 ")
  1. ;;5650
  1. ;;21,"65862003203 ")
  1. ;;5651
  1. ;;21,"65862003205 ")
  1. ;;5652
  1. ;;21,"65862003230 ")
  1. ;;5653
  1. ;;21,"65862003232 ")
  1. ;;5654
  1. ;;21,"65862003239 ")
  1. ;;5655
  1. ;;21,"65862003260 ")
  1. ;;5656
  1. ;;21,"65862003290 ")
  1. ;;5657
  1. ;;21,"65862007424 ")
  1. ;;5658
  1. ;;21,"65862015401 ")
  1. ;;5659
  1. ;;21,"65862015405 ")
  1. ;;5660
  1. ;;21,"65862015430 ")
  1. ;;5661
  1. ;;21,"65862015459 ")
  1. ;;5662
  1. ;;21,"65862015499 ")
  1. ;;5663
  1. ;;21,"65862015501 ")
  1. ;;5664
  1. ;;21,"65862015505 ")
  1. ;;5665
  1. ;;21,"65862015530 ")
  1. ;;5666
  1. ;;21,"65862015549 ")
  1. ;;5667
  1. ;;21,"65862015599 ")
  1. ;;5668
  1. ;;21,"65862015601 ")
  1. ;;5669
  1. ;;21,"65862015605 ")
  1. ;;5670
  1. ;;21,"65862015630 ")
  1. ;;5671
  1. ;;21,"65862015636 ")
  1. ;;5672
  1. ;;21,"65862015699 ")
  1. ;;5673
  1. ;;21,"65862015701 ")
  1. ;;5674
  1. ;;21,"65862015705 ")
  1. ;;5675
  1. ;;21,"65862015730 ")
  1. ;;5676
  1. ;;21,"65862015739 ")
  1. ;;5677
  1. ;;21,"65862015799 ")
  1. ;;5678
  1. ;;21,"65862019201 ")
  1. ;;5679
  1. ;;21,"65862019205 ")
  1. ;;5680
  1. ;;21,"65862019226 ")
  1. ;;5681
  1. ;;21,"65862019299 ")
  1. ;;5682
  1. ;;21,"65862019301 ")
  1. ;;5683
  1. ;;21,"65862019305 ")
  1. ;;5684
  1. ;;21,"65862019326 ")
  1. ;;5685
  1. ;;21,"65862019399 ")
  1. ;;5686
  1. ;;21,"65862019401 ")
  1. ;;5687
  1. ;;21,"65862019405 ")
  1. ;;5688
  1. ;;21,"65862019422 ")
  1. ;;5689
  1. ;;21,"65862019430 ")
  1. ;;5690
  1. ;;21,"65862019499 ")
  1. ;;5691
  1. ;;21,"65862022460 ")
  1. ;;5692
  1. ;;21,"65862040401 ")
  1. ;;5693
  1. ;;21,"65862040410 ")
  1. ;;5694
  1. ;;21,"65862040430 ")
  1. ;;5695
  1. ;;21,"65862040460 ")
  1. ;;5696
  1. ;;21,"65862040471 ")
  1. ;;5697
  1. ;;21,"65862040499 ")
  1. ;;5698
  1. ;;21,"65862040501 ")
  1. ;;5699
  1. ;;21,"65862040510 ")
  1. ;;5700
  1. ;;21,"65862040530 ")
  1. ;;5701
  1. ;;21,"65862040560 ")
  1. ;;5702
  1. ;;21,"65862040566 ")
  1. ;;5703
  1. ;;21,"65862040590 ")
  1. ;;5704
  1. ;;21,"65862040599 ")
  1. ;;5705
  1. ;;21,"65862040601 ")
  1. ;;5706
  1. ;;21,"65862040610 ")
  1. ;;5707
  1. ;;21,"65862040630 ")
  1. ;;5708
  1. ;;21,"65862040659 ")
  1. ;;5709
  1. ;;21,"65862040690 ")
  1. ;;5710
  1. ;;21,"65862040699 ")
  1. ;;5711
  1. ;;21,"65862040701 ")
  1. ;;5712
  1. ;;21,"65862040710 ")
  1. ;;5713
  1. ;;21,"65862040730 ")
  1. ;;5714
  1. ;;21,"65862040771 ")
  1. ;;5715
  1. ;;21,"65862040799 ")
  1. ;;5716
  1. ;;21,"65862040801 ")
  1. ;;5717
  1. ;;21,"65862040810 ")
  1. ;;5718
  1. ;;21,"65862040820 ")
  1. ;;5719
  1. ;;21,"65862040866 ")
  1. ;;5720
  1. ;;21,"65862040899 ")
  1. ;;5721
  1. ;;21,"65862052701 ")
  1. ;;5722
  1. ;;21,"65862052710 ")
  1. ;;5723
  1. ;;21,"65862052730 ")
  1. ;;5724
  1. ;;21,"65862052747 ")
  1. ;;5725
  1. ;;21,"65862052759 ")
  1. ;;5726
  1. ;;21,"65862052790 ")
  1. ;;5727
  1. ;;21,"65862052799 ")
  1. ;;5728
  1. ;;21,"65862052801 ")
  1. ;;5729
  1. ;;21,"65862052810 ")
  1. ;;5730
  1. ;;21,"65862052830 ")
  1. ;;5731
  1. ;;21,"65862052835 ")
  1. ;;5732
  1. ;;21,"65862052847 ")
  1. ;;5733
  1. ;;21,"65862052890 ")
  1. ;;5734
  1. ;;21,"65862052899 ")
  1. ;;5735
  1. ;;21,"65862052901 ")
  1. ;;5736
  1. ;;21,"65862052905 ")
  1. ;;5737
  1. ;;21,"65862052910 ")
  1. ;;5738
  1. ;;21,"65862052926 ")
  1. ;;5739
  1. ;;21,"65862052930 ")
  1. ;;5740
  1. ;;21,"65862052947 ")
  1. ;;5741
  1. ;;21,"65862052990 ")
  1. ;;5742
  1. ;;21,"66039056001 ")
  1. ;;5743
  1. ;;21,"66039056005 ")
  1. ;;5744
  1. ;;21,"66039056101 ")
  1. ;;5745
  1. ;;21,"66039056105 ")
  1. ;;5746
  1. ;;21,"66039056201 ")
  1. ;;5747
  1. ;;21,"66039056205 ")
  1. ;;5748
  1. ;;21,"66105061010 ")
  1. ;;5749
  1. ;;21,"66105061110 ")
  1. ;;5750
  1. ;;21,"66105074223 ")
  1. ;;5751
  1. ;;21,"66105081323 ")
  1. ;;5752
  1. ;;21,"66116004860 ")
  1. ;;5753
  1. ;;21,"66116025330 ")
  1. ;;5754
  1. ;;21,"66116028130 ")
  1. ;;5755
  1. ;;21,"66116031330 ")
  1. ;;5756
  1. ;;21,"66116032930 ")
  1. ;;5757
  1. ;;21,"66116033830 ")
  1. ;;5758
  1. ;;21,"66116034230 ")
  1. ;;5759
  1. ;;21,"66116034430 ")
  1. ;;5760
  1. ;;21,"66116034830 ")
  1. ;;5761
  1. ;;21,"66116035030 ")
  1. ;;5762
  1. ;;21,"66116035230 ")
  1. ;;5763
  1. ;;21,"66116035315 ")
  1. ;;5764
  1. ;;21,"66116035730 ")
  1. ;;5765
  1. ;;21,"66116082530 ")
  1. ;;5766
  1. ;;21,"66116082630 ")
  1. ;;5767
  1. ;;21,"66116084430 ")
  1. ;;5768
  1. ;;21,"66116085730 ")
  1. ;;5769
  1. ;;21,"66116087130 ")
  1. ;;5770
  1. ;;21,"66116087630 ")
  1. ;;5771
  1. ;;21,"66258700503 ")
  1. ;;5772
  1. ;;21,"66267001810 ")
  1. ;;5773
  1. ;;21,"66267001815 ")
  1. ;;5774
  1. ;;21,"66267001820 ")
  1. ;;5775
  1. ;;21,"66267001828 ")
  1. ;;5776
  1. ;;21,"66267001830 ")
  1. ;;5777
  1. ;;21,"66267001840 ")
  1. ;;5778
  1. ;;21,"66267001860 ")
  1. ;;5779
  1. ;;21,"66267001890 ")
  1. ;;5780
  1. ;;21,"66267001914 ")
  1. ;;5781
  1. ;;21,"66267001915 ")
  1. ;;5782
  1. ;;21,"66267001920 ")
  1. ;;5783
  1. ;;21,"66267001925 ")
  1. ;;5784
  1. ;;21,"66267001930 ")
  1. ;;5785
  1. ;;21,"66267001940 ")
  1. ;;5786
  1. ;;21,"66267001960 ")
  1. ;;5787
  1. ;;21,"66267001990 ")
  1. ;;5788
  1. ;;21,"66267001991 ")
  1. ;;5789
  1. ;;21,"66267002005 ")
  1. ;;5790
  1. ;;21,"66267002010 ")
  1. ;;5791
  1. ;;21,"66267002020 ")
  1. ;;5792
  1. ;;21,"66267002030 ")
  1. ;;5793
  1. ;;21,"66267002040 ")
  1. ;;5794
  1. ;;21,"66267002060 ")
  1. ;;5795
  1. ;;21,"66267002090 ")
  1. ;;5796
  1. ;;21,"66267020504 ")
  1. ;;5797
  1. ;;21,"66267020510 ")
  1. ;;5798
  1. ;;21,"66267020520 ")
  1. ;;5799
  1. ;;21,"66267020530 ")
  1. ;;5800
  1. ;;21,"66267020540 ")
  1. ;;5801
  1. ;;21,"66267020560 ")
  1. ;;5802
  1. ;;21,"66267020590 ")
  1. ;;5803
  1. ;;21,"66267020594 ")
  1. ;;5804
  1. ;;21,"66267026630 ")
  1. ;;5805
  1. ;;21,"66267039220 ")
  1. ;;5806
  1. ;;21,"66267039230 ")
  1. ;;5807
  1. ;;21,"66267039240 ")
  1. ;;5808
  1. ;;21,"66267039260 ")
  1. ;;5809
  1. ;;21,"66267039290 ")
  1. ;;5810
  1. ;;21,"66267048310 ")
  1. ;;5811
  1. ;;21,"66267048315 ")
  1. ;;5812
  1. ;;21,"66267048320 ")
  1. ;;5813
  1. ;;21,"66267048330 ")
  1. ;;5814
  1. ;;21,"66267048340 ")
  1. ;;5815
  1. ;;21,"66267048345 ")
  1. ;;5816
  1. ;;21,"66267048360 ")
  1. ;;5817
  1. ;;21,"66267048415 ")
  1. ;;5818