BMCTXDB.m

BMCTXDB ; 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,"120,90900 ",.01)

 ;;90900

 ;;9002226.02101,"120,90900 ",.02)

 ;;90900

 ;;9002226.02101,"120,91032 ",.01)

 ;;91032

 ;;9002226.02101,"120,91032 ",.02)

 ;;91033

 ;;9002226.02101,"120,92286 ",.01)

 ;;92286

 ;;9002226.02101,"120,92286 ",.02)

 ;;92286

 ;;9002226.02101,"120,92287 ",.01)

 ;;92287

 ;;9002226.02101,"120,92287 ",.02)

 ;;92287

 ;;9002226.02101,"120,93720 ",.01)

 ;;93720

 ;;9002226.02101,"120,93720 ",.02)

 ;;93720

 ;;9002226.02101,"120,93721 ",.01)

 ;;93721

 ;;9002226.02101,"120,93721 ",.02)

 ;;93721

 ;;9002226.02101,"120,93722 ",.01)

 ;;93722

 ;;9002226.02101,"120,93722 ",.02)

 ;;93722

 ;;9002226.02101,"120,93784 ",.01)

 ;;93784

 ;;9002226.02101,"120,93784 ",.02)

 ;;93790

 ;;9002226.02101,"120,94799 ",.01)

 ;;94799

 ;;9002226.02101,"120,94799 ",.02)

 ;;94799

 ;;9002226.02101,"120,95805 ",.01)

 ;;95805

 ;;9002226.02101,"120,95805 ",.02)

 ;;95810

 ;;9002226.02101,"120,99183 ",.01)

 ;;99183

 ;;9002226.02101,"120,99183 ",.02)

 ;;99183

 ;;9002226.02101,"120,E0720 ",.01)

 ;;E0720

 ;;9002226.02101,"120,E0720 ",.02)

 ;;E0720

 ;;9002226.02101,"120,E0730 ",.01)

 ;;E0730

 ;;9002226.02101,"120,E0730 ",.02)

 ;;E0730

 ;;9002226.02101,"120,E0751 ",.01)

 ;;E0751

 ;;9002226.02101,"120,E0751 ",.02)

 ;;E0753

 ;;9002226.02101,"120,E0782 ",.01)

 ;;E0782

 ;;9002226.02101,"120,E0782 ",.02)

 ;;E0783

 ;;9002226.02101,"120,J3570 ",.01)

 ;;J3570

 ;;9002226.02101,"120,J3570 ",.02)

 ;;J3570

 ;;9002226.02101,"120,L8690 ",.01)

 ;;L8690

 ;;9002226.02101,"120,L8690 ",.02)

 ;;L8690

 ;;9002226.02101,"120,M0075 ",.01)

 ;;M0075

 ;;9002226.02101,"120,M0075 ",.02)

 ;;M0075

 ;;9002226.02101,"120,M0300 ",.01)

 ;;M0300

 ;;9002226.02101,"120,M0300 ",.02)

 ;;M0300

 ;;9002226.02101,"120,S9019 ",.01)

 ;;S9019

 ;;9002226.02101,"120,S9019 ",.02)

 ;;S9019

 ;;9002226.02101,"120,S9025 ",.01)

 ;;S9025

 ;;9002226.02101,"120,S9025 ",.02)

 ;;S9025

 ;;9002226.02101,"120,W0050 ",.01)

 ;;W0050

 ;;9002226.02101,"120,W0050 ",.02)

 ;;W0050

BMCTXDB   ; 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,"120,90900 ",.01)

 +2       ;;90900

 +3       ;;9002226.02101,"120,90900 ",.02)

 +4       ;;90900

 +5       ;;9002226.02101,"120,91032 ",.01)

 +6       ;;91032

 +7       ;;9002226.02101,"120,91032 ",.02)

 +8       ;;91033

 +9       ;;9002226.02101,"120,92286 ",.01)

 +10      ;;92286

 +11      ;;9002226.02101,"120,92286 ",.02)

 +12      ;;92286

 +13      ;;9002226.02101,"120,92287 ",.01)

 +14      ;;92287

 +15      ;;9002226.02101,"120,92287 ",.02)

 +16      ;;92287

 +17      ;;9002226.02101,"120,93720 ",.01)

 +18      ;;93720

 +19      ;;9002226.02101,"120,93720 ",.02)

 +20      ;;93720

 +21      ;;9002226.02101,"120,93721 ",.01)

 +22      ;;93721

 +23      ;;9002226.02101,"120,93721 ",.02)

 +24      ;;93721

 +25      ;;9002226.02101,"120,93722 ",.01)

 +26      ;;93722

 +27      ;;9002226.02101,"120,93722 ",.02)

 +28      ;;93722

 +29      ;;9002226.02101,"120,93784 ",.01)

 +30      ;;93784

 +31      ;;9002226.02101,"120,93784 ",.02)

 +32      ;;93790

 +33      ;;9002226.02101,"120,94799 ",.01)

 +34      ;;94799

 +35      ;;9002226.02101,"120,94799 ",.02)

 +36      ;;94799

 +37      ;;9002226.02101,"120,95805 ",.01)

 +38      ;;95805

 +39      ;;9002226.02101,"120,95805 ",.02)

 +40      ;;95810

 +41      ;;9002226.02101,"120,99183 ",.01)

 +42      ;;99183

 +43      ;;9002226.02101,"120,99183 ",.02)

 +44      ;;99183

 +45      ;;9002226.02101,"120,E0720 ",.01)

 +46      ;;E0720

 +47      ;;9002226.02101,"120,E0720 ",.02)

 +48      ;;E0720

 +49      ;;9002226.02101,"120,E0730 ",.01)

 +50      ;;E0730

 +51      ;;9002226.02101,"120,E0730 ",.02)

 +52      ;;E0730

 +53      ;;9002226.02101,"120,E0751 ",.01)

 +54      ;;E0751

 +55      ;;9002226.02101,"120,E0751 ",.02)

 +56      ;;E0753

 +57      ;;9002226.02101,"120,E0782 ",.01)

 +58      ;;E0782

 +59      ;;9002226.02101,"120,E0782 ",.02)

 +60      ;;E0783

 +61      ;;9002226.02101,"120,J3570 ",.01)

 +62      ;;J3570

 +63      ;;9002226.02101,"120,J3570 ",.02)

 +64      ;;J3570

 +65      ;;9002226.02101,"120,L8690 ",.01)

 +66      ;;L8690

 +67      ;;9002226.02101,"120,L8690 ",.02)

 +68      ;;L8690

 +69      ;;9002226.02101,"120,M0075 ",.01)

 +70      ;;M0075

 +71      ;;9002226.02101,"120,M0075 ",.02)

 +72      ;;M0075

 +73      ;;9002226.02101,"120,M0300 ",.01)

 +74      ;;M0300

 +75      ;;9002226.02101,"120,M0300 ",.02)

 +76      ;;M0300

 +77      ;;9002226.02101,"120,S9019 ",.01)

 +78      ;;S9019

 +79      ;;9002226.02101,"120,S9019 ",.02)

 +80      ;;S9019

 +81      ;;9002226.02101,"120,S9025 ",.01)

 +82      ;;S9025

 +83      ;;9002226.02101,"120,S9025 ",.02)

 +84      ;;S9025

 +85      ;;9002226.02101,"120,W0050 ",.01)

 +86      ;;W0050

 +87      ;;9002226.02101,"120,W0050 ",.02)

 +88      ;;W0050