BGP10FB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 17, 2010 ;
;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
;
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)
;;21,"671.03 ")
;;186
;;21,"671.13 ")
;;187
;;21,"671.23 ")
;;188
;;21,"671.33 ")
;;189
;;21,"671.53 ")
;;190
;;21,"671.83 ")
;;191
;;21,"671.93 ")
;;192
;;21,"673.03 ")
;;193
;;21,"673.13 ")
;;194
;;21,"673.23 ")
;;195
;;21,"673.33 ")
;;196
;;21,"673.83 ")
;;197
;;21,"674.03 ")
;;198
;;21,"674.53 ")
;;199
;;21,"675.03 ")
;;200
;;21,"675.13 ")
;;201
;;21,"675.23 ")
;;202
;;21,"675.83 ")
;;203
;;21,"675.93 ")
;;204
;;21,"676.03 ")
;;205
;;21,"676.13 ")
;;206
;;21,"676.23 ")
;;207
;;21,"676.33 ")
;;208
;;21,"676.43 ")
;;209
;;21,"676.53 ")
;;210
;;21,"676.63 ")
;;211
;;21,"676.83 ")
;;212
;;21,"676.93 ")
;;213
;;21,"678.03 ")
;;214
;;21,"678.13 ")
;;215
;;21,"679.03 ")
;;216
;;21,"679.13 ")
;;217
;;21,"V22.0 ")
;;218
;;21,"V28.81 ")
;;219
;;21,"V72.42 ")
;;220
;;21,"V89.01 ")
;;221
;;9002226,491,.01)
;;BGP PREGNANCY DIAGNOSES 2
;;9002226,491,.02)
;;@
;;9002226,491,.04)
;;@
;;9002226,491,.06)
;;@
;;9002226,491,.08)
;;0
;;9002226,491,.09)
;;3101110
;;9002226,491,.11)
;;@
;;9002226,491,.12)
;;31
;;9002226,491,.13)
;;1
;;9002226,491,.14)
;;@
;;9002226,491,.15)
;;80
;;9002226,491,.16)
;;@
;;9002226,491,.17)
;;@
;;9002226,491,3101)
;;@
;;9002226.02101,"491,640.03 ",.01)
;;640.03
;;9002226.02101,"491,640.03 ",.02)
;;640.03
;;9002226.02101,"491,640.83 ",.01)
;;640.83
;;9002226.02101,"491,640.83 ",.02)
;;640.83
;;9002226.02101,"491,640.93 ",.01)
;;640.93
;;9002226.02101,"491,640.93 ",.02)
;;640.93
;;9002226.02101,"491,641.03 ",.01)
;;641.03
;;9002226.02101,"491,641.03 ",.02)
;;641.03
;;9002226.02101,"491,641.13 ",.01)
;;641.13
;;9002226.02101,"491,641.13 ",.02)
;;641.13
;;9002226.02101,"491,641.23 ",.01)
;;641.23
;;9002226.02101,"491,641.23 ",.02)
;;641.23
;;9002226.02101,"491,641.33 ",.01)
;;641.33
;;9002226.02101,"491,641.33 ",.02)
;;641.33
;;9002226.02101,"491,641.83 ",.01)
;;641.83
;;9002226.02101,"491,641.83 ",.02)
;;641.83
;;9002226.02101,"491,641.93 ",.01)
;;641.93
;;9002226.02101,"491,641.93 ",.02)
;;641.93
;;9002226.02101,"491,642.03 ",.01)
;;642.03
;;9002226.02101,"491,642.03 ",.02)
;;642.03
;;9002226.02101,"491,642.13 ",.01)
;;642.13
;;9002226.02101,"491,642.13 ",.02)
;;642.13
;;9002226.02101,"491,642.23 ",.01)
;;642.23
;;9002226.02101,"491,642.23 ",.02)
;;642.23
;;9002226.02101,"491,642.33 ",.01)
;;642.33
;;9002226.02101,"491,642.33 ",.02)
;;642.33
;;9002226.02101,"491,642.43 ",.01)
;;642.43
;;9002226.02101,"491,642.43 ",.02)
;;642.43
;;9002226.02101,"491,642.53 ",.01)
;;642.53
;;9002226.02101,"491,642.53 ",.02)
;;642.53
;;9002226.02101,"491,642.63 ",.01)
;;642.63
;;9002226.02101,"491,642.63 ",.02)
;;642.63
;;9002226.02101,"491,642.73 ",.01)
;;642.73
;;9002226.02101,"491,642.73 ",.02)
;;642.73
;;9002226.02101,"491,642.93 ",.01)
;;642.93
;;9002226.02101,"491,642.93 ",.02)
;;642.93
;;9002226.02101,"491,643.03 ",.01)
;;643.03
;;9002226.02101,"491,643.03 ",.02)
;;643.03
;;9002226.02101,"491,643.13 ",.01)
;;643.13
;;9002226.02101,"491,643.13 ",.02)
;;643.13
;;9002226.02101,"491,643.23 ",.01)
;;643.23
;;9002226.02101,"491,643.23 ",.02)
;;643.23
;;9002226.02101,"491,643.83 ",.01)
;;643.83
;;9002226.02101,"491,643.83 ",.02)
;;643.83
;;9002226.02101,"491,643.93 ",.01)
;;643.93
;;9002226.02101,"491,643.93 ",.02)
;;643.93
;;9002226.02101,"491,644.03 ",.01)
;;644.03
;;9002226.02101,"491,644.03 ",.02)
;;644.03
;;9002226.02101,"491,644.13 ",.01)
;;644.13
;;9002226.02101,"491,644.13 ",.02)
;;644.13
;;9002226.02101,"491,645.13 ",.01)
;;645.13
;;9002226.02101,"491,645.13 ",.02)
;;645.13
;;9002226.02101,"491,645.23 ",.01)
;;645.23
;;9002226.02101,"491,645.23 ",.02)
;;645.23
;;9002226.02101,"491,646.03 ",.01)
;;646.03
;;9002226.02101,"491,646.03 ",.02)
;;646.03
;;9002226.02101,"491,646.13 ",.01)
;;646.13
;;9002226.02101,"491,646.13 ",.02)
;;646.13
;;9002226.02101,"491,646.23 ",.01)
;;646.23
;;9002226.02101,"491,646.23 ",.02)
;;646.23
;;9002226.02101,"491,646.33 ",.01)
;;646.33
;;9002226.02101,"491,646.33 ",.02)
;;646.33
;;9002226.02101,"491,646.43 ",.01)
;;646.43
;;9002226.02101,"491,646.43 ",.02)
;;646.43
;;9002226.02101,"491,646.53 ",.01)
;;646.53
;;9002226.02101,"491,646.53 ",.02)
;;646.53
;;9002226.02101,"491,646.63 ",.01)
;;646.63
;;9002226.02101,"491,646.63 ",.02)
;;646.63
;;9002226.02101,"491,646.73 ",.01)
;;646.73
;;9002226.02101,"491,646.73 ",.02)
;;646.73
;;9002226.02101,"491,646.83 ",.01)
;;646.83
;;9002226.02101,"491,646.83 ",.02)
;;646.83
;;9002226.02101,"491,646.93 ",.01)
;;646.93
;;9002226.02101,"491,646.93 ",.02)
;;646.93
;;9002226.02101,"491,647.03 ",.01)
;;647.03
;;9002226.02101,"491,647.03 ",.02)
;;647.03
;;9002226.02101,"491,647.13 ",.01)
;;647.13
;;9002226.02101,"491,647.13 ",.02)
;;647.13
BGP10FB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 17, 2010 ;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
+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 ;;21,"671.03 ")
+2 ;;186
+3 ;;21,"671.13 ")
+4 ;;187
+5 ;;21,"671.23 ")
+6 ;;188
+7 ;;21,"671.33 ")
+8 ;;189
+9 ;;21,"671.53 ")
+10 ;;190
+11 ;;21,"671.83 ")
+12 ;;191
+13 ;;21,"671.93 ")
+14 ;;192
+15 ;;21,"673.03 ")
+16 ;;193
+17 ;;21,"673.13 ")
+18 ;;194
+19 ;;21,"673.23 ")
+20 ;;195
+21 ;;21,"673.33 ")
+22 ;;196
+23 ;;21,"673.83 ")
+24 ;;197
+25 ;;21,"674.03 ")
+26 ;;198
+27 ;;21,"674.53 ")
+28 ;;199
+29 ;;21,"675.03 ")
+30 ;;200
+31 ;;21,"675.13 ")
+32 ;;201
+33 ;;21,"675.23 ")
+34 ;;202
+35 ;;21,"675.83 ")
+36 ;;203
+37 ;;21,"675.93 ")
+38 ;;204
+39 ;;21,"676.03 ")
+40 ;;205
+41 ;;21,"676.13 ")
+42 ;;206
+43 ;;21,"676.23 ")
+44 ;;207
+45 ;;21,"676.33 ")
+46 ;;208
+47 ;;21,"676.43 ")
+48 ;;209
+49 ;;21,"676.53 ")
+50 ;;210
+51 ;;21,"676.63 ")
+52 ;;211
+53 ;;21,"676.83 ")
+54 ;;212
+55 ;;21,"676.93 ")
+56 ;;213
+57 ;;21,"678.03 ")
+58 ;;214
+59 ;;21,"678.13 ")
+60 ;;215
+61 ;;21,"679.03 ")
+62 ;;216
+63 ;;21,"679.13 ")
+64 ;;217
+65 ;;21,"V22.0 ")
+66 ;;218
+67 ;;21,"V28.81 ")
+68 ;;219
+69 ;;21,"V72.42 ")
+70 ;;220
+71 ;;21,"V89.01 ")
+72 ;;221
+73 ;;9002226,491,.01)
+74 ;;BGP PREGNANCY DIAGNOSES 2
+75 ;;9002226,491,.02)
+76 ;;@
+77 ;;9002226,491,.04)
+78 ;;@
+79 ;;9002226,491,.06)
+80 ;;@
+81 ;;9002226,491,.08)
+82 ;;0
+83 ;;9002226,491,.09)
+84 ;;3101110
+85 ;;9002226,491,.11)
+86 ;;@
+87 ;;9002226,491,.12)
+88 ;;31
+89 ;;9002226,491,.13)
+90 ;;1
+91 ;;9002226,491,.14)
+92 ;;@
+93 ;;9002226,491,.15)
+94 ;;80
+95 ;;9002226,491,.16)
+96 ;;@
+97 ;;9002226,491,.17)
+98 ;;@
+99 ;;9002226,491,3101)
+100 ;;@
+101 ;;9002226.02101,"491,640.03 ",.01)
+102 ;;640.03
+103 ;;9002226.02101,"491,640.03 ",.02)
+104 ;;640.03
+105 ;;9002226.02101,"491,640.83 ",.01)
+106 ;;640.83
+107 ;;9002226.02101,"491,640.83 ",.02)
+108 ;;640.83
+109 ;;9002226.02101,"491,640.93 ",.01)
+110 ;;640.93
+111 ;;9002226.02101,"491,640.93 ",.02)
+112 ;;640.93
+113 ;;9002226.02101,"491,641.03 ",.01)
+114 ;;641.03
+115 ;;9002226.02101,"491,641.03 ",.02)
+116 ;;641.03
+117 ;;9002226.02101,"491,641.13 ",.01)
+118 ;;641.13
+119 ;;9002226.02101,"491,641.13 ",.02)
+120 ;;641.13
+121 ;;9002226.02101,"491,641.23 ",.01)
+122 ;;641.23
+123 ;;9002226.02101,"491,641.23 ",.02)
+124 ;;641.23
+125 ;;9002226.02101,"491,641.33 ",.01)
+126 ;;641.33
+127 ;;9002226.02101,"491,641.33 ",.02)
+128 ;;641.33
+129 ;;9002226.02101,"491,641.83 ",.01)
+130 ;;641.83
+131 ;;9002226.02101,"491,641.83 ",.02)
+132 ;;641.83
+133 ;;9002226.02101,"491,641.93 ",.01)
+134 ;;641.93
+135 ;;9002226.02101,"491,641.93 ",.02)
+136 ;;641.93
+137 ;;9002226.02101,"491,642.03 ",.01)
+138 ;;642.03
+139 ;;9002226.02101,"491,642.03 ",.02)
+140 ;;642.03
+141 ;;9002226.02101,"491,642.13 ",.01)
+142 ;;642.13
+143 ;;9002226.02101,"491,642.13 ",.02)
+144 ;;642.13
+145 ;;9002226.02101,"491,642.23 ",.01)
+146 ;;642.23
+147 ;;9002226.02101,"491,642.23 ",.02)
+148 ;;642.23
+149 ;;9002226.02101,"491,642.33 ",.01)
+150 ;;642.33
+151 ;;9002226.02101,"491,642.33 ",.02)
+152 ;;642.33
+153 ;;9002226.02101,"491,642.43 ",.01)
+154 ;;642.43
+155 ;;9002226.02101,"491,642.43 ",.02)
+156 ;;642.43
+157 ;;9002226.02101,"491,642.53 ",.01)
+158 ;;642.53
+159 ;;9002226.02101,"491,642.53 ",.02)
+160 ;;642.53
+161 ;;9002226.02101,"491,642.63 ",.01)
+162 ;;642.63
+163 ;;9002226.02101,"491,642.63 ",.02)
+164 ;;642.63
+165 ;;9002226.02101,"491,642.73 ",.01)
+166 ;;642.73
+167 ;;9002226.02101,"491,642.73 ",.02)
+168 ;;642.73
+169 ;;9002226.02101,"491,642.93 ",.01)
+170 ;;642.93
+171 ;;9002226.02101,"491,642.93 ",.02)
+172 ;;642.93
+173 ;;9002226.02101,"491,643.03 ",.01)
+174 ;;643.03
+175 ;;9002226.02101,"491,643.03 ",.02)
+176 ;;643.03
+177 ;;9002226.02101,"491,643.13 ",.01)
+178 ;;643.13
+179 ;;9002226.02101,"491,643.13 ",.02)
+180 ;;643.13
+181 ;;9002226.02101,"491,643.23 ",.01)
+182 ;;643.23
+183 ;;9002226.02101,"491,643.23 ",.02)
+184 ;;643.23
+185 ;;9002226.02101,"491,643.83 ",.01)
+186 ;;643.83
+187 ;;9002226.02101,"491,643.83 ",.02)
+188 ;;643.83
+189 ;;9002226.02101,"491,643.93 ",.01)
+190 ;;643.93
+191 ;;9002226.02101,"491,643.93 ",.02)
+192 ;;643.93
+193 ;;9002226.02101,"491,644.03 ",.01)
+194 ;;644.03
+195 ;;9002226.02101,"491,644.03 ",.02)
+196 ;;644.03
+197 ;;9002226.02101,"491,644.13 ",.01)
+198 ;;644.13
+199 ;;9002226.02101,"491,644.13 ",.02)
+200 ;;644.13
+201 ;;9002226.02101,"491,645.13 ",.01)
+202 ;;645.13
+203 ;;9002226.02101,"491,645.13 ",.02)
+204 ;;645.13
+205 ;;9002226.02101,"491,645.23 ",.01)
+206 ;;645.23
+207 ;;9002226.02101,"491,645.23 ",.02)
+208 ;;645.23
+209 ;;9002226.02101,"491,646.03 ",.01)
+210 ;;646.03
+211 ;;9002226.02101,"491,646.03 ",.02)
+212 ;;646.03
+213 ;;9002226.02101,"491,646.13 ",.01)
+214 ;;646.13
+215 ;;9002226.02101,"491,646.13 ",.02)
+216 ;;646.13
+217 ;;9002226.02101,"491,646.23 ",.01)
+218 ;;646.23
+219 ;;9002226.02101,"491,646.23 ",.02)
+220 ;;646.23
+221 ;;9002226.02101,"491,646.33 ",.01)
+222 ;;646.33
+223 ;;9002226.02101,"491,646.33 ",.02)
+224 ;;646.33
+225 ;;9002226.02101,"491,646.43 ",.01)
+226 ;;646.43
+227 ;;9002226.02101,"491,646.43 ",.02)
+228 ;;646.43
+229 ;;9002226.02101,"491,646.53 ",.01)
+230 ;;646.53
+231 ;;9002226.02101,"491,646.53 ",.02)
+232 ;;646.53
+233 ;;9002226.02101,"491,646.63 ",.01)
+234 ;;646.63
+235 ;;9002226.02101,"491,646.63 ",.02)
+236 ;;646.63
+237 ;;9002226.02101,"491,646.73 ",.01)
+238 ;;646.73
+239 ;;9002226.02101,"491,646.73 ",.02)
+240 ;;646.73
+241 ;;9002226.02101,"491,646.83 ",.01)
+242 ;;646.83
+243 ;;9002226.02101,"491,646.83 ",.02)
+244 ;;646.83
+245 ;;9002226.02101,"491,646.93 ",.01)
+246 ;;646.93
+247 ;;9002226.02101,"491,646.93 ",.02)
+248 ;;646.93
+249 ;;9002226.02101,"491,647.03 ",.01)
+250 ;;647.03
+251 ;;9002226.02101,"491,647.03 ",.02)
+252 ;;647.03
+253 ;;9002226.02101,"491,647.13 ",.01)
+254 ;;647.13
+255 ;;9002226.02101,"491,647.13 ",.02)
+256 ;;647.13
