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

BMCTXEL.m

Go to the documentation of this file.
  1. BMCTXEL ; 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. ;;9002226.02101,"123,35111 ",.01)
  1. ;;35111
  1. ;;9002226.02101,"123,35112 ",.01)
  1. ;;35112
  1. ;;9002226.02101,"123,35121 ",.01)
  1. ;;35121
  1. ;;9002226.02101,"123,35122 ",.01)
  1. ;;35122
  1. ;;9002226.02101,"123,35131 ",.01)
  1. ;;35131
  1. ;;9002226.02101,"123,35132 ",.01)
  1. ;;35132
  1. ;;9002226.02101,"123,35141 ",.01)
  1. ;;35141
  1. ;;9002226.02101,"123,35142 ",.01)
  1. ;;35142
  1. ;;9002226.02101,"123,35151 ",.01)
  1. ;;35151
  1. ;;9002226.02101,"123,35161 ",.01)
  1. ;;35161
  1. ;;9002226.02101,"123,35162 ",.01)
  1. ;;35162
  1. ;;9002226.02101,"123,35182 ",.01)
  1. ;;35182
  1. ;;9002226.02101,"123,35188 ",.01)
  1. ;;35188
  1. ;;9002226.02101,"123,35189 ",.01)
  1. ;;35189
  1. ;;9002226.02101,"123,35211 ",.01)
  1. ;;35211
  1. ;;9002226.02101,"123,35216 ",.01)
  1. ;;35216
  1. ;;9002226.02101,"123,35221 ",.01)
  1. ;;35221
  1. ;;9002226.02101,"123,35231 ",.01)
  1. ;;35231
  1. ;;9002226.02101,"123,35241 ",.01)
  1. ;;35241
  1. ;;9002226.02101,"123,35246 ",.01)
  1. ;;35246
  1. ;;9002226.02101,"123,35251 ",.01)
  1. ;;35251
  1. ;;9002226.02101,"123,35256 ",.01)
  1. ;;35256
  1. ;;9002226.02101,"123,35271 ",.01)
  1. ;;35271
  1. ;;9002226.02101,"123,35276 ",.01)
  1. ;;35276
  1. ;;9002226.02101,"123,35281 ",.01)
  1. ;;35281
  1. ;;9002226.02101,"123,35286 ",.01)
  1. ;;35286
  1. ;;9002226.02101,"123,35301 ",.01)
  1. ;;35301
  1. ;;9002226.02101,"123,35311 ",.01)
  1. ;;35311
  1. ;;9002226.02101,"123,35321 ",.01)
  1. ;;35321
  1. ;;9002226.02101,"123,35331 ",.01)
  1. ;;35331
  1. ;;9002226.02101,"123,35341 ",.01)
  1. ;;35341
  1. ;;9002226.02101,"123,35351 ",.01)
  1. ;;35351
  1. ;;9002226.02101,"123,35355 ",.01)
  1. ;;35355
  1. ;;9002226.02101,"123,35361 ",.01)
  1. ;;35361
  1. ;;9002226.02101,"123,35363 ",.01)
  1. ;;35363
  1. ;;9002226.02101,"123,35371 ",.01)
  1. ;;35371
  1. ;;9002226.02101,"123,35372 ",.01)
  1. ;;35372
  1. ;;9002226.02101,"123,35381 ",.01)
  1. ;;35381
  1. ;;9002226.02101,"123,35501 ",.01)
  1. ;;35501
  1. ;;9002226.02101,"123,35506 ",.01)
  1. ;;35506
  1. ;;9002226.02101,"123,35507 ",.01)
  1. ;;35507
  1. ;;9002226.02101,"123,35508 ",.01)
  1. ;;35508
  1. ;;9002226.02101,"123,35509 ",.01)
  1. ;;35509
  1. ;;9002226.02101,"123,35511 ",.01)
  1. ;;35511
  1. ;;9002226.02101,"123,35515 ",.01)
  1. ;;35515
  1. ;;9002226.02101,"123,35516 ",.01)
  1. ;;35516
  1. ;;9002226.02101,"123,35518 ",.01)
  1. ;;35518
  1. ;;9002226.02101,"123,35521 ",.01)
  1. ;;35521
  1. ;;9002226.02101,"123,35526 ",.01)
  1. ;;35526
  1. ;;9002226.02101,"123,35531 ",.01)
  1. ;;35531
  1. ;;9002226.02101,"123,35533 ",.01)
  1. ;;35533
  1. ;;9002226.02101,"123,35536 ",.01)
  1. ;;35536
  1. ;;9002226.02101,"123,35541 ",.01)
  1. ;;35541
  1. ;;9002226.02101,"123,35546 ",.01)
  1. ;;35546
  1. ;;9002226.02101,"123,35548 ",.01)
  1. ;;35548
  1. ;;9002226.02101,"123,35549 ",.01)
  1. ;;35549
  1. ;;9002226.02101,"123,35551 ",.01)
  1. ;;35551
  1. ;;9002226.02101,"123,35556 ",.01)
  1. ;;35556
  1. ;;9002226.02101,"123,35558 ",.01)
  1. ;;35558
  1. ;;9002226.02101,"123,35560 ",.01)
  1. ;;35560
  1. ;;9002226.02101,"123,35565 ",.01)
  1. ;;35565
  1. ;;9002226.02101,"123,35566 ",.01)
  1. ;;35566
  1. ;;9002226.02101,"123,35571 ",.01)
  1. ;;35571
  1. ;;9002226.02101,"123,35582 ",.01)
  1. ;;35582
  1. ;;9002226.02101,"123,35583 ",.01)
  1. ;;35583
  1. ;;9002226.02101,"123,35585 ",.01)
  1. ;;35585
  1. ;;9002226.02101,"123,35587 ",.01)
  1. ;;35587
  1. ;;9002226.02101,"123,35601 ",.01)
  1. ;;35601
  1. ;;9002226.02101,"123,35606 ",.01)
  1. ;;35606
  1. ;;9002226.02101,"123,35612 ",.01)
  1. ;;35612
  1. ;;9002226.02101,"123,35616 ",.01)
  1. ;;35616
  1. ;;9002226.02101,"123,35621 ",.01)
  1. ;;35621
  1. ;;9002226.02101,"123,35626 ",.01)
  1. ;;35626
  1. ;;9002226.02101,"123,35631 ",.01)
  1. ;;35631
  1. ;;9002226.02101,"123,35636 ",.01)
  1. ;;35636
  1. ;;9002226.02101,"123,35641 ",.01)
  1. ;;35641
  1. ;;9002226.02101,"123,35642 ",.01)
  1. ;;35642
  1. ;;9002226.02101,"123,35645 ",.01)
  1. ;;35645
  1. ;;9002226.02101,"123,35646 ",.01)
  1. ;;35646
  1. ;;9002226.02101,"123,35650 ",.01)
  1. ;;35650
  1. ;;9002226.02101,"123,35651 ",.01)
  1. ;;35651
  1. ;;9002226.02101,"123,35654 ",.01)
  1. ;;35654
  1. ;;9002226.02101,"123,35656 ",.01)
  1. ;;35656
  1. ;;9002226.02101,"123,35661 ",.01)
  1. ;;35661
  1. ;;9002226.02101,"123,35663 ",.01)
  1. ;;35663
  1. ;;9002226.02101,"123,35665 ",.01)
  1. ;;35665
  1. ;;9002226.02101,"123,35666 ",.01)
  1. ;;35666
  1. ;;9002226.02101,"123,35671 ",.01)
  1. ;;35671
  1. ;;9002226.02101,"123,35691 ",.01)
  1. ;;35691
  1. ;;9002226.02101,"123,35694 ",.01)
  1. ;;35694
  1. ;;9002226.02101,"123,35695 ",.01)
  1. ;;35695
  1. ;;9002226.02101,"123,35870 ",.01)
  1. ;;35870
  1. ;;9002226.02101,"123,36834 ",.01)
  1. ;;36834
  1. ;;9002226.02101,"123,37140 ",.01)
  1. ;;37140
  1. ;;9002226.02101,"123,37145 ",.01)
  1. ;;37145
  1. ;;9002226.02101,"123,37160 ",.01)
  1. ;;37160
  1. ;;9002226.02101,"123,37180 ",.01)
  1. ;;37180
  1. ;;9002226.02101,"123,37181 ",.01)
  1. ;;37181
  1. ;;9002226.02101,"123,37190 ",.01)
  1. ;;37190
  1. ;;9002226.02101,"123,37204 ",.01)
  1. ;;37204
  1. ;;9002226.02101,"123,37788 ",.01)
  1. ;;37788
  1. ;;9002226.02101,"123,38240 ",.01)
  1. ;;38240
  1. ;;9002226.02101,"123,38241 ",.01)
  1. ;;38241
  1. ;;9002226.02101,"123,38720 ",.01)
  1. ;;38720
  1. ;;9002226.02101,"123,38724 ",.01)
  1. ;;38724
  1. ;;9002226.02101,"123,38765 ",.01)
  1. ;;38765
  1. ;;9002226.02101,"123,38770 ",.01)
  1. ;;38770
  1. ;;9002226.02101,"123,38780 ",.01)
  1. ;;38780
  1. ;;9002226.02101,"123,39220 ",.01)
  1. ;;39220
  1. ;;9002226.02101,"123,39502 ",.01)
  1. ;;39502
  1. ;;9002226.02101,"123,39503 ",.01)
  1. ;;39503
  1. ;;9002226.02101,"123,39520 ",.01)
  1. ;;39520
  1. ;;9002226.02101,"123,39530 ",.01)
  1. ;;39530