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

BMCTXED.m

Go to the documentation of this file.
  1. BMCTXED ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
  1. ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
  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,"35616 ")
  1. ;;582
  1. ;;21,"35621 ")
  1. ;;583
  1. ;;21,"35626 ")
  1. ;;584
  1. ;;21,"35631 ")
  1. ;;585
  1. ;;21,"35636 ")
  1. ;;586
  1. ;;21,"35641 ")
  1. ;;587
  1. ;;21,"35642 ")
  1. ;;588
  1. ;;21,"35645 ")
  1. ;;589
  1. ;;21,"35646 ")
  1. ;;590
  1. ;;21,"35650 ")
  1. ;;591
  1. ;;21,"35651 ")
  1. ;;592
  1. ;;21,"35654 ")
  1. ;;593
  1. ;;21,"35656 ")
  1. ;;594
  1. ;;21,"35661 ")
  1. ;;595
  1. ;;21,"35663 ")
  1. ;;596
  1. ;;21,"35665 ")
  1. ;;597
  1. ;;21,"35666 ")
  1. ;;598
  1. ;;21,"35671 ")
  1. ;;599
  1. ;;21,"35691 ")
  1. ;;600
  1. ;;21,"35694 ")
  1. ;;601
  1. ;;21,"35695 ")
  1. ;;602
  1. ;;21,"35870 ")
  1. ;;603
  1. ;;21,"36834 ")
  1. ;;604
  1. ;;21,"37140 ")
  1. ;;605
  1. ;;21,"37145 ")
  1. ;;606
  1. ;;21,"37160 ")
  1. ;;607
  1. ;;21,"37180 ")
  1. ;;608
  1. ;;21,"37181 ")
  1. ;;609
  1. ;;21,"37190 ")
  1. ;;610
  1. ;;21,"37204 ")
  1. ;;611
  1. ;;21,"37788 ")
  1. ;;612
  1. ;;21,"38240 ")
  1. ;;613
  1. ;;21,"38241 ")
  1. ;;614
  1. ;;21,"38720 ")
  1. ;;615
  1. ;;21,"38724 ")
  1. ;;616
  1. ;;21,"38765 ")
  1. ;;617
  1. ;;21,"38770 ")
  1. ;;618
  1. ;;21,"38780 ")
  1. ;;619
  1. ;;21,"39220 ")
  1. ;;620
  1. ;;21,"39502 ")
  1. ;;621
  1. ;;21,"39503 ")
  1. ;;622
  1. ;;21,"39520 ")
  1. ;;623
  1. ;;21,"39530 ")
  1. ;;624
  1. ;;21,"39531 ")
  1. ;;625
  1. ;;21,"39541 ")
  1. ;;626
  1. ;;21,"40701 ")
  1. ;;627
  1. ;;21,"40844 ")
  1. ;;628
  1. ;;21,"40845 ")
  1. ;;629
  1. ;;21,"41135 ")
  1. ;;630
  1. ;;21,"41140 ")
  1. ;;631
  1. ;;21,"41145 ")
  1. ;;632
  1. ;;21,"41150 ")
  1. ;;633
  1. ;;21,"41153 ")
  1. ;;634
  1. ;;21,"41155 ")
  1. ;;635
  1. ;;21,"42415 ")
  1. ;;636
  1. ;;21,"42420 ")
  1. ;;637
  1. ;;21,"42426 ")
  1. ;;638
  1. ;;21,"42845 ")
  1. ;;639
  1. ;;21,"42894 ")
  1. ;;640
  1. ;;21,"43045 ")
  1. ;;641
  1. ;;21,"43105 ")
  1. ;;642
  1. ;;21,"43106 ")
  1. ;;643
  1. ;;21,"43107 ")
  1. ;;644
  1. ;;21,"43108 ")
  1. ;;645
  1. ;;21,"43110 ")
  1. ;;646
  1. ;;21,"43111 ")
  1. ;;647
  1. ;;21,"43112 ")
  1. ;;648
  1. ;;21,"43113 ")
  1. ;;649
  1. ;;21,"43115 ")
  1. ;;650
  1. ;;21,"43116 ")
  1. ;;651
  1. ;;21,"43117 ")
  1. ;;652
  1. ;;21,"43118 ")
  1. ;;653
  1. ;;21,"43119 ")
  1. ;;654
  1. ;;21,"43120 ")
  1. ;;655
  1. ;;21,"43121 ")
  1. ;;656
  1. ;;21,"43122 ")
  1. ;;657
  1. ;;21,"43123 ")
  1. ;;658
  1. ;;21,"43124 ")
  1. ;;659
  1. ;;21,"43135 ")
  1. ;;660
  1. ;;21,"43305 ")
  1. ;;661
  1. ;;21,"43310 ")
  1. ;;662
  1. ;;21,"43312 ")
  1. ;;663
  1. ;;21,"43320 ")
  1. ;;664
  1. ;;21,"43321 ")
  1. ;;665
  1. ;;21,"43324 ")
  1. ;;666
  1. ;;21,"43325 ")
  1. ;;667
  1. ;;21,"43330 ")
  1. ;;668
  1. ;;21,"43331 ")
  1. ;;669
  1. ;;21,"43340 ")
  1. ;;670
  1. ;;21,"43360 ")
  1. ;;671
  1. ;;21,"43361 ")
  1. ;;672
  1. ;;21,"43400 ")
  1. ;;673
  1. ;;21,"43401 ")
  1. ;;674
  1. ;;21,"43405 ")
  1. ;;675
  1. ;;21,"43415 ")
  1. ;;676
  1. ;;21,"43425 ")
  1. ;;677
  1. ;;21,"43501 ")
  1. ;;678
  1. ;;21,"43502 ")
  1. ;;679
  1. ;;21,"43620 ")
  1. ;;680
  1. ;;21,"43621 ")
  1. ;;681
  1. ;;21,"43622 ")
  1. ;;682
  1. ;;21,"43631 ")
  1. ;;683
  1. ;;21,"43632 ")
  1. ;;684
  1. ;;21,"43633 ")
  1. ;;685
  1. ;;21,"43634 ")
  1. ;;686
  1. ;;21,"43638 ")
  1. ;;687
  1. ;;21,"43639 ")
  1. ;;688
  1. ;;21,"43640 ")
  1. ;;689
  1. ;;21,"43825 ")
  1. ;;690
  1. ;;21,"43842 ")
  1. ;;691
  1. ;;21,"43843 ")
  1. ;;692
  1. ;;21,"43846 ")
  1. ;;693
  1. ;;21,"43847 ")
  1. ;;694
  1. ;;21,"43848 ")
  1. ;;695
  1. ;;21,"43850 ")
  1. ;;696
  1. ;;21,"43855 ")
  1. ;;697
  1. ;;21,"43860 ")
  1. ;;698
  1. ;;21,"43865 ")
  1. ;;699
  1. ;;21,"43880 ")
  1. ;;700
  1. ;;21,"44040 ")
  1. ;;701
  1. ;;21,"44125 ")
  1. ;;702
  1. ;;21,"44140 ")
  1. ;;703
  1. ;;21,"44141 ")
  1. ;;704
  1. ;;21,"44143 ")
  1. ;;705
  1. ;;21,"44144 ")
  1. ;;706
  1. ;;21,"44145 ")
  1. ;;707
  1. ;;21,"44146 ")
  1. ;;708
  1. ;;21,"44147 ")
  1. ;;709
  1. ;;21,"44150 ")
  1. ;;710
  1. ;;21,"44151 ")
  1. ;;711
  1. ;;21,"44152 ")
  1. ;;712
  1. ;;21,"44153 ")
  1. ;;713
  1. ;;21,"44155 ")
  1. ;;714
  1. ;;21,"44156 ")
  1. ;;715
  1. ;;21,"44160 ")
  1. ;;716
  1. ;;21,"44603 ")
  1. ;;717
  1. ;;21,"44605 ")
  1. ;;718
  1. ;;21,"44661 ")
  1. ;;719
  1. ;;21,"44680 ")
  1. ;;720
  1. ;;21,"45110 ")
  1. ;;721
  1. ;;21,"45111 ")
  1. ;;722
  1. ;;21,"45112 ")
  1. ;;723
  1. ;;21,"45113 ")
  1. ;;724
  1. ;;21,"45114 ")
  1. ;;725
  1. ;;21,"45116 ")
  1. ;;726
  1. ;;21,"45120 ")
  1. ;;727
  1. ;;21,"45121 ")
  1. ;;728
  1. ;;21,"45123 ")
  1. ;;729
  1. ;;21,"45135 ")
  1. ;;730
  1. ;;21,"45540 ")
  1. ;;731
  1. ;;21,"45550 ")
  1. ;;732
  1. ;;21,"45563 ")
  1. ;;733
  1. ;;21,"45805 ")
  1. ;;734
  1. ;;21,"45825 ")
  1. ;;735
  1. ;;21,"46730 ")
  1. ;;736
  1. ;;21,"46735 ")
  1. ;;737
  1. ;;21,"46740 ")
  1. ;;738
  1. ;;21,"46742 ")
  1. ;;739
  1. ;;21,"46744 ")
  1. ;;740
  1. ;;21,"46746 ")
  1. ;;741
  1. ;;21,"46748 ")
  1. ;;742
  1. ;;21,"47120 ")
  1. ;;743
  1. ;;21,"47122 ")
  1. ;;744
  1. ;;21,"47125 ")
  1. ;;745
  1. ;;21,"47130 ")
  1. ;;746
  1. ;;21,"47134 ")
  1. ;;747
  1. ;;21,"47135 ")
  1. ;;748
  1. ;;21,"47136 ")
  1. ;;749
  1. ;;21,"47360 ")
  1. ;;750
  1. ;;21,"47400 ")
  1. ;;751
  1. ;;21,"47420 ")
  1. ;;752
  1. ;;21,"47425 ")
  1. ;;753
  1. ;;21,"47440 ")
  1. ;;754
  1. ;;21,"47460 ")
  1. ;;755
  1. ;;21,"47612 ")
  1. ;;756
  1. ;;21,"47620 ")
  1. ;;757
  1. ;;21,"47701 ")
  1. ;;758
  1. ;;21,"47710 ")
  1. ;;759
  1. ;;21,"47711 ")
  1. ;;760
  1. ;;21,"47712 ")
  1. ;;761
  1. ;;21,"47721 ")
  1. ;;762
  1. ;;21,"47740 ")
  1. ;;763
  1. ;;21,"47741 ")
  1. ;;764
  1. ;;21,"47760 ")
  1. ;;765
  1. ;;21,"47765 ")
  1. ;;766
  1. ;;21,"47780 ")
  1. ;;767
  1. ;;21,"47785 ")
  1. ;;768
  1. ;;21,"47800 ")
  1. ;;769
  1. ;;21,"47802 ")
  1. ;;770
  1. ;;21,"47900 ")
  1. ;;771
  1. ;;21,"48005 ")
  1. ;;772
  1. ;;21,"48120 ")
  1. ;;773
  1. ;;21,"48140 ")
  1. ;;774
  1. ;;21,"48145 ")
  1. ;;775
  1. ;;21,"48146 ")
  1. ;;776