BMCTXER ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;
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)
;;9002226.02101,"123,69535 ",.01)
;;69535
;;9002226.02101,"123,69550 ",.01)
;;69550
;;9002226.02101,"123,69552 ",.01)
;;69552
;;9002226.02101,"123,69554 ",.01)
;;69554
;;9002226.02101,"123,69601 ",.01)
;;69601
;;9002226.02101,"123,69602 ",.01)
;;69602
;;9002226.02101,"123,69603 ",.01)
;;69603
;;9002226.02101,"123,69604 ",.01)
;;69604
;;9002226.02101,"123,69605 ",.01)
;;69605
;;9002226.02101,"123,69632 ",.01)
;;69632
;;9002226.02101,"123,69633 ",.01)
;;69633
;;9002226.02101,"123,69635 ",.01)
;;69635
;;9002226.02101,"123,69636 ",.01)
;;69636
;;9002226.02101,"123,69637 ",.01)
;;69637
;;9002226.02101,"123,69641 ",.01)
;;69641
;;9002226.02101,"123,69642 ",.01)
;;69642
;;9002226.02101,"123,69643 ",.01)
;;69643
;;9002226.02101,"123,69644 ",.01)
;;69644
;;9002226.02101,"123,69645 ",.01)
;;69645
;;9002226.02101,"123,69646 ",.01)
;;69646
;;9002226.02101,"123,69660 ",.01)
;;69660
;;9002226.02101,"123,69661 ",.01)
;;69661
;;9002226.02101,"123,69662 ",.01)
;;69662
;;9002226.02101,"123,69720 ",.01)
;;69720
;;9002226.02101,"123,69725 ",.01)
;;69725
;;9002226.02101,"123,69740 ",.01)
;;69740
;;9002226.02101,"123,69745 ",.01)
;;69745
;;9002226.02101,"123,69806 ",.01)
;;69806
;;9002226.02101,"123,69905 ",.01)
;;69905
;;9002226.02101,"123,69910 ",.01)
;;69910
;;9002226.02101,"123,69915 ",.01)
;;69915
;;9002226.02101,"123,69930 ",.01)
;;69930
;;9002226.02101,"123,69950 ",.01)
;;69950
;;9002226.02101,"123,69955 ",.01)
;;69955
;;9002226.02101,"123,69960 ",.01)
;;69960
;;9002226.02101,"123,69970 ",.01)
;;69970
;;9002226.02101,"123,75894 ",.01)
;;75894
;;9002226.02101,"123,77295 ",.01)
;;77295
;;9002226.02101,"123,92980 ",.01)
;;92980
;;9002226.02101,"123,92986 ",.01)
;;92986
;;9002226.02101,"123,92995 ",.01)
;;92995
;;9002226.02101,"123,93510 ",.01)
;;93510
;;9002226.02101,"123,93511 ",.01)
;;93511
;;9002226.02101,"123,93514 ",.01)
;;93514
;;9002226.02101,"123,93524 ",.01)
;;93524
;;9002226.02101,"123,93526 ",.01)
;;93526
;;9002226.02101,"123,93527 ",.01)
;;93527
;;9002226.02101,"123,93528 ",.01)
;;93528
;;9002226.02101,"123,93529 ",.01)
;;93529
;;9002226.02101,"123,93620 ",.01)
;;93620
BMCTXER ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;9002226.02101,"123,69535 ",.01)
+2 ;;69535
+3 ;;9002226.02101,"123,69550 ",.01)
+4 ;;69550
+5 ;;9002226.02101,"123,69552 ",.01)
+6 ;;69552
+7 ;;9002226.02101,"123,69554 ",.01)
+8 ;;69554
+9 ;;9002226.02101,"123,69601 ",.01)
+10 ;;69601
+11 ;;9002226.02101,"123,69602 ",.01)
+12 ;;69602
+13 ;;9002226.02101,"123,69603 ",.01)
+14 ;;69603
+15 ;;9002226.02101,"123,69604 ",.01)
+16 ;;69604
+17 ;;9002226.02101,"123,69605 ",.01)
+18 ;;69605
+19 ;;9002226.02101,"123,69632 ",.01)
+20 ;;69632
+21 ;;9002226.02101,"123,69633 ",.01)
+22 ;;69633
+23 ;;9002226.02101,"123,69635 ",.01)
+24 ;;69635
+25 ;;9002226.02101,"123,69636 ",.01)
+26 ;;69636
+27 ;;9002226.02101,"123,69637 ",.01)
+28 ;;69637
+29 ;;9002226.02101,"123,69641 ",.01)
+30 ;;69641
+31 ;;9002226.02101,"123,69642 ",.01)
+32 ;;69642
+33 ;;9002226.02101,"123,69643 ",.01)
+34 ;;69643
+35 ;;9002226.02101,"123,69644 ",.01)
+36 ;;69644
+37 ;;9002226.02101,"123,69645 ",.01)
+38 ;;69645
+39 ;;9002226.02101,"123,69646 ",.01)
+40 ;;69646
+41 ;;9002226.02101,"123,69660 ",.01)
+42 ;;69660
+43 ;;9002226.02101,"123,69661 ",.01)
+44 ;;69661
+45 ;;9002226.02101,"123,69662 ",.01)
+46 ;;69662
+47 ;;9002226.02101,"123,69720 ",.01)
+48 ;;69720
+49 ;;9002226.02101,"123,69725 ",.01)
+50 ;;69725
+51 ;;9002226.02101,"123,69740 ",.01)
+52 ;;69740
+53 ;;9002226.02101,"123,69745 ",.01)
+54 ;;69745
+55 ;;9002226.02101,"123,69806 ",.01)
+56 ;;69806
+57 ;;9002226.02101,"123,69905 ",.01)
+58 ;;69905
+59 ;;9002226.02101,"123,69910 ",.01)
+60 ;;69910
+61 ;;9002226.02101,"123,69915 ",.01)
+62 ;;69915
+63 ;;9002226.02101,"123,69930 ",.01)
+64 ;;69930
+65 ;;9002226.02101,"123,69950 ",.01)
+66 ;;69950
+67 ;;9002226.02101,"123,69955 ",.01)
+68 ;;69955
+69 ;;9002226.02101,"123,69960 ",.01)
+70 ;;69960
+71 ;;9002226.02101,"123,69970 ",.01)
+72 ;;69970
+73 ;;9002226.02101,"123,75894 ",.01)
+74 ;;75894
+75 ;;9002226.02101,"123,77295 ",.01)
+76 ;;77295
+77 ;;9002226.02101,"123,92980 ",.01)
+78 ;;92980
+79 ;;9002226.02101,"123,92986 ",.01)
+80 ;;92986
+81 ;;9002226.02101,"123,92995 ",.01)
+82 ;;92995
+83 ;;9002226.02101,"123,93510 ",.01)
+84 ;;93510
+85 ;;9002226.02101,"123,93511 ",.01)
+86 ;;93511
+87 ;;9002226.02101,"123,93514 ",.01)
+88 ;;93514
+89 ;;9002226.02101,"123,93524 ",.01)
+90 ;;93524
+91 ;;9002226.02101,"123,93526 ",.01)
+92 ;;93526
+93 ;;9002226.02101,"123,93527 ",.01)
+94 ;;93527
+95 ;;9002226.02101,"123,93528 ",.01)
+96 ;;93528
+97 ;;9002226.02101,"123,93529 ",.01)
+98 ;;93529
+99 ;;9002226.02101,"123,93620 ",.01)
+100 ;;93620
