BGPM5AZE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 02, 2011;
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;
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,"1050,62037096530 ",.02)
;;62037096530
;;9002226.02101,"1050,62037096590 ",.01)
;;62037096590
;;9002226.02101,"1050,62037096590 ",.02)
;;62037096590
;;9002226.02101,"1050,62175071032 ",.01)
;;62175071032
;;9002226.02101,"1050,62175071032 ",.02)
;;62175071032
;;9002226.02101,"1050,62175088832 ",.01)
;;62175088832
;;9002226.02101,"1050,62175088832 ",.02)
;;62175088832
;;9002226.02101,"1050,62540565600 ",.01)
;;62540565600
;;9002226.02101,"1050,62540565600 ",.02)
;;62540565600
;;9002226.02101,"1050,62540565602 ",.01)
;;62540565602
;;9002226.02101,"1050,62540565602 ",.02)
;;62540565602
;;9002226.02101,"1050,62540565603 ",.01)
;;62540565603
;;9002226.02101,"1050,62540565603 ",.02)
;;62540565603
;;9002226.02101,"1050,62540565609 ",.01)
;;62540565609
;;9002226.02101,"1050,62540565609 ",.02)
;;62540565609
;;9002226.02101,"1050,62540565701 ",.01)
;;62540565701
;;9002226.02101,"1050,62540565701 ",.02)
;;62540565701
;;9002226.02101,"1050,62540565702 ",.01)
;;62540565702
;;9002226.02101,"1050,62540565702 ",.02)
;;62540565702
;;9002226.02101,"1050,62756025013 ",.01)
;;62756025013
;;9002226.02101,"1050,62756025013 ",.02)
;;62756025013
;;9002226.02101,"1050,62756025018 ",.01)
;;62756025018
;;9002226.02101,"1050,62756025018 ",.02)
;;62756025018
;;9002226.02101,"1050,62756025083 ",.01)
;;62756025083
;;9002226.02101,"1050,62756025083 ",.02)
;;62756025083
;;9002226.02101,"1050,62756025088 ",.01)
;;62756025088
;;9002226.02101,"1050,62756025088 ",.02)
;;62756025088
;;9002226.02101,"1050,62756051108 ",.01)
;;62756051108
;;9002226.02101,"1050,62756051108 ",.02)
;;62756051108
;;9002226.02101,"1050,62756051118 ",.01)
;;62756051118
;;9002226.02101,"1050,62756051118 ",.02)
;;62756051118
;;9002226.02101,"1050,62756051183 ",.01)
;;62756051183
;;9002226.02101,"1050,62756051183 ",.02)
;;62756051183
;;9002226.02101,"1050,62756051188 ",.01)
;;62756051188
;;9002226.02101,"1050,62756051188 ",.02)
;;62756051188
;;9002226.02101,"1050,63304060028 ",.01)
;;63304060028
;;9002226.02101,"1050,63304060028 ",.02)
;;63304060028
;;9002226.02101,"1050,63304060060 ",.01)
;;63304060060
;;9002226.02101,"1050,63304060060 ",.02)
;;63304060060
;;9002226.02101,"1050,63304060130 ",.01)
;;63304060130
;;9002226.02101,"1050,63304060130 ",.02)
;;63304060130
;;9002226.02101,"1050,63304060190 ",.01)
;;63304060190
;;9002226.02101,"1050,63304060190 ",.02)
;;63304060190
;;9002226.02101,"1050,63323012930 ",.01)
;;63323012930
;;9002226.02101,"1050,63323012930 ",.02)
;;63323012930
;;9002226.02101,"1050,63323077230 ",.01)
;;63323077230
;;9002226.02101,"1050,63323077230 ",.02)
;;63323077230
;;9002226.02101,"1050,63629441301 ",.01)
;;63629441301
;;9002226.02101,"1050,63629441301 ",.02)
;;63629441301
;;9002226.02101,"1050,63672001500 ",.01)
;;63672001500
;;9002226.02101,"1050,63672001500 ",.02)
;;63672001500
;;9002226.02101,"1050,63739026910 ",.01)
;;63739026910
;;9002226.02101,"1050,63739026910 ",.02)
;;63739026910
;;9002226.02101,"1050,65841074306 ",.01)
;;65841074306
;;9002226.02101,"1050,65841074306 ",.02)
;;65841074306
;;9002226.02101,"1050,65841074310 ",.01)
;;65841074310
;;9002226.02101,"1050,65841074310 ",.02)
;;65841074310
;;9002226.02101,"1050,66267087360 ",.01)
;;66267087360
;;9002226.02101,"1050,66267087360 ",.02)
;;66267087360
;;9002226.02101,"1050,66435041530 ",.01)
;;66435041530
;;9002226.02101,"1050,66435041530 ",.02)
;;66435041530
;;9002226.02101,"1050,67877017110 ",.01)
;;67877017110
;;9002226.02101,"1050,67877017110 ",.02)
;;67877017110
;;9002226.02101,"1050,67877017130 ",.01)
;;67877017130
;;9002226.02101,"1050,67877017130 ",.02)
;;67877017130
;;9002226.02101,"1050,68084044811 ",.01)
;;68084044811
;;9002226.02101,"1050,68084044811 ",.02)
;;68084044811
;;9002226.02101,"1050,68084044821 ",.01)
;;68084044821
;;9002226.02101,"1050,68084044821 ",.02)
;;68084044821
;;9002226.02101,"1050,68382020906 ",.01)
;;68382020906
;;9002226.02101,"1050,68382020906 ",.02)
;;68382020906
;;9002226.02101,"1050,68382020910 ",.01)
;;68382020910
;;9002226.02101,"1050,68382020910 ",.02)
;;68382020910
BGPM5AZE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 02, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+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,"1050,62037096530 ",.02)
+2 ;;62037096530
+3 ;;9002226.02101,"1050,62037096590 ",.01)
+4 ;;62037096590
+5 ;;9002226.02101,"1050,62037096590 ",.02)
+6 ;;62037096590
+7 ;;9002226.02101,"1050,62175071032 ",.01)
+8 ;;62175071032
+9 ;;9002226.02101,"1050,62175071032 ",.02)
+10 ;;62175071032
+11 ;;9002226.02101,"1050,62175088832 ",.01)
+12 ;;62175088832
+13 ;;9002226.02101,"1050,62175088832 ",.02)
+14 ;;62175088832
+15 ;;9002226.02101,"1050,62540565600 ",.01)
+16 ;;62540565600
+17 ;;9002226.02101,"1050,62540565600 ",.02)
+18 ;;62540565600
+19 ;;9002226.02101,"1050,62540565602 ",.01)
+20 ;;62540565602
+21 ;;9002226.02101,"1050,62540565602 ",.02)
+22 ;;62540565602
+23 ;;9002226.02101,"1050,62540565603 ",.01)
+24 ;;62540565603
+25 ;;9002226.02101,"1050,62540565603 ",.02)
+26 ;;62540565603
+27 ;;9002226.02101,"1050,62540565609 ",.01)
+28 ;;62540565609
+29 ;;9002226.02101,"1050,62540565609 ",.02)
+30 ;;62540565609
+31 ;;9002226.02101,"1050,62540565701 ",.01)
+32 ;;62540565701
+33 ;;9002226.02101,"1050,62540565701 ",.02)
+34 ;;62540565701
+35 ;;9002226.02101,"1050,62540565702 ",.01)
+36 ;;62540565702
+37 ;;9002226.02101,"1050,62540565702 ",.02)
+38 ;;62540565702
+39 ;;9002226.02101,"1050,62756025013 ",.01)
+40 ;;62756025013
+41 ;;9002226.02101,"1050,62756025013 ",.02)
+42 ;;62756025013
+43 ;;9002226.02101,"1050,62756025018 ",.01)
+44 ;;62756025018
+45 ;;9002226.02101,"1050,62756025018 ",.02)
+46 ;;62756025018
+47 ;;9002226.02101,"1050,62756025083 ",.01)
+48 ;;62756025083
+49 ;;9002226.02101,"1050,62756025083 ",.02)
+50 ;;62756025083
+51 ;;9002226.02101,"1050,62756025088 ",.01)
+52 ;;62756025088
+53 ;;9002226.02101,"1050,62756025088 ",.02)
+54 ;;62756025088
+55 ;;9002226.02101,"1050,62756051108 ",.01)
+56 ;;62756051108
+57 ;;9002226.02101,"1050,62756051108 ",.02)
+58 ;;62756051108
+59 ;;9002226.02101,"1050,62756051118 ",.01)
+60 ;;62756051118
+61 ;;9002226.02101,"1050,62756051118 ",.02)
+62 ;;62756051118
+63 ;;9002226.02101,"1050,62756051183 ",.01)
+64 ;;62756051183
+65 ;;9002226.02101,"1050,62756051183 ",.02)
+66 ;;62756051183
+67 ;;9002226.02101,"1050,62756051188 ",.01)
+68 ;;62756051188
+69 ;;9002226.02101,"1050,62756051188 ",.02)
+70 ;;62756051188
+71 ;;9002226.02101,"1050,63304060028 ",.01)
+72 ;;63304060028
+73 ;;9002226.02101,"1050,63304060028 ",.02)
+74 ;;63304060028
+75 ;;9002226.02101,"1050,63304060060 ",.01)
+76 ;;63304060060
+77 ;;9002226.02101,"1050,63304060060 ",.02)
+78 ;;63304060060
+79 ;;9002226.02101,"1050,63304060130 ",.01)
+80 ;;63304060130
+81 ;;9002226.02101,"1050,63304060130 ",.02)
+82 ;;63304060130
+83 ;;9002226.02101,"1050,63304060190 ",.01)
+84 ;;63304060190
+85 ;;9002226.02101,"1050,63304060190 ",.02)
+86 ;;63304060190
+87 ;;9002226.02101,"1050,63323012930 ",.01)
+88 ;;63323012930
+89 ;;9002226.02101,"1050,63323012930 ",.02)
+90 ;;63323012930
+91 ;;9002226.02101,"1050,63323077230 ",.01)
+92 ;;63323077230
+93 ;;9002226.02101,"1050,63323077230 ",.02)
+94 ;;63323077230
+95 ;;9002226.02101,"1050,63629441301 ",.01)
+96 ;;63629441301
+97 ;;9002226.02101,"1050,63629441301 ",.02)
+98 ;;63629441301
+99 ;;9002226.02101,"1050,63672001500 ",.01)
+100 ;;63672001500
+101 ;;9002226.02101,"1050,63672001500 ",.02)
+102 ;;63672001500
+103 ;;9002226.02101,"1050,63739026910 ",.01)
+104 ;;63739026910
+105 ;;9002226.02101,"1050,63739026910 ",.02)
+106 ;;63739026910
+107 ;;9002226.02101,"1050,65841074306 ",.01)
+108 ;;65841074306
+109 ;;9002226.02101,"1050,65841074306 ",.02)
+110 ;;65841074306
+111 ;;9002226.02101,"1050,65841074310 ",.01)
+112 ;;65841074310
+113 ;;9002226.02101,"1050,65841074310 ",.02)
+114 ;;65841074310
+115 ;;9002226.02101,"1050,66267087360 ",.01)
+116 ;;66267087360
+117 ;;9002226.02101,"1050,66267087360 ",.02)
+118 ;;66267087360
+119 ;;9002226.02101,"1050,66435041530 ",.01)
+120 ;;66435041530
+121 ;;9002226.02101,"1050,66435041530 ",.02)
+122 ;;66435041530
+123 ;;9002226.02101,"1050,67877017110 ",.01)
+124 ;;67877017110
+125 ;;9002226.02101,"1050,67877017110 ",.02)
+126 ;;67877017110
+127 ;;9002226.02101,"1050,67877017130 ",.01)
+128 ;;67877017130
+129 ;;9002226.02101,"1050,67877017130 ",.02)
+130 ;;67877017130
+131 ;;9002226.02101,"1050,68084044811 ",.01)
+132 ;;68084044811
+133 ;;9002226.02101,"1050,68084044811 ",.02)
+134 ;;68084044811
+135 ;;9002226.02101,"1050,68084044821 ",.01)
+136 ;;68084044821
+137 ;;9002226.02101,"1050,68084044821 ",.02)
+138 ;;68084044821
+139 ;;9002226.02101,"1050,68382020906 ",.01)
+140 ;;68382020906
+141 ;;9002226.02101,"1050,68382020906 ",.02)
+142 ;;68382020906
+143 ;;9002226.02101,"1050,68382020910 ",.01)
+144 ;;68382020910
+145 ;;9002226.02101,"1050,68382020910 ",.02)
+146 ;;68382020910
