- BGP12WC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
- +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,"49999-0614-01 ")
- +2 ;;202
- +3 ;;21,"49999-0614-12 ")
- +4 ;;203
- +5 ;;21,"49999-0819-60 ")
- +6 ;;38
- +7 ;;21,"49999-0884-30 ")
- +8 ;;294
- +9 ;;21,"49999-0884-90 ")
- +10 ;;295
- +11 ;;21,"49999-0921-30 ")
- +12 ;;413
- +13 ;;21,"49999-0952-30 ")
- +14 ;;296
- +15 ;;21,"49999-0984-60 ")
- +16 ;;39
- +17 ;;21,"49999-0985-60 ")
- +18 ;;40
- +19 ;;21,"50111-0459-01 ")
- +20 ;;414
- +21 ;;21,"50111-0459-02 ")
- +22 ;;415
- +23 ;;21,"50111-0459-03 ")
- +24 ;;416
- +25 ;;21,"50111-0482-01 ")
- +26 ;;417
- +27 ;;21,"50111-0482-02 ")
- +28 ;;418
- +29 ;;21,"50111-0482-03 ")
- +30 ;;419
- +31 ;;21,"50111-0483-01 ")
- +32 ;;420
- +33 ;;21,"50111-0483-02 ")
- +34 ;;421
- +35 ;;21,"50111-0518-01 ")
- +36 ;;422
- +37 ;;21,"50242-0040-62 ")
- +38 ;;561
- +39 ;;21,"50383-0806-16 ")
- +40 ;;162
- +41 ;;21,"50474-0100-01 ")
- +42 ;;330
- +43 ;;21,"50474-0200-01 ")
- +44 ;;331
- +45 ;;21,"50474-0200-50 ")
- +46 ;;332
- +47 ;;21,"50474-0300-01 ")
- +48 ;;333
- +49 ;;21,"50474-0300-50 ")
- +50 ;;334
- +51 ;;21,"50474-0400-01 ")
- +52 ;;335
- +53 ;;21,"50991-0200-16 ")
- +54 ;;143
- +55 ;;21,"50991-0214-16 ")
- +56 ;;145
- +57 ;;21,"50991-0400-01 ")
- +58 ;;144
- +59 ;;21,"50991-0413-01 ")
- +60 ;;146
- +61 ;;21,"51991-0536-01 ")
- +62 ;;159
- +63 ;;21,"52959-0131-00 ")
- +64 ;;68
- +65 ;;21,"52959-0279-30 ")
- +66 ;;479
- +67 ;;21,"52959-0286-03 ")
- +68 ;;108
- +69 ;;21,"53265-0380-10 ")
- +70 ;;480
- +71 ;;21,"53265-0380-50 ")
- +72 ;;481
- +73 ;;21,"53265-0382-10 ")
- +74 ;;482
- +75 ;;21,"54569-0049-00 ")
- +76 ;;223
- +77 ;;21,"54569-0053-00 ")
- +78 ;;109
- +79 ;;21,"54569-0062-02 ")
- +80 ;;383
- +81 ;;21,"54569-0065-01 ")
- +82 ;;483
- +83 ;;21,"54569-0065-02 ")
- +84 ;;484
- +85 ;;21,"54569-0065-05 ")
- +86 ;;485
- +87 ;;21,"54569-0318-01 ")
- +88 ;;384
- +89 ;;21,"54569-1012-00 ")
- +90 ;;224
- +91 ;;21,"54569-1013-00 ")
- +92 ;;69
- +93 ;;21,"54569-1666-00 ")
- +94 ;;336
- +95 ;;21,"54569-3976-00 ")
- +96 ;;75
- +97 ;;21,"54569-4549-00 ")
- +98 ;;131
- +99 ;;21,"54569-4602-00 ")
- +100 ;;182
- +101 ;;21,"54569-4603-00 ")
- +102 ;;183
- +103 ;;21,"54569-4604-01 ")
- +104 ;;16
- +105 ;;21,"54569-4605-00 ")
- +106 ;;297
- +107 ;;21,"54569-4736-00 ")
- +108 ;;298
- +109 ;;21,"54569-4741-00 ")
- +110 ;;252
- +111 ;;21,"54569-4772-00 ")
- +112 ;;132
- +113 ;;21,"54569-4863-00 ")
- +114 ;;184
- +115 ;;21,"54569-5162-00 ")
- +116 ;;247
- +117 ;;21,"54569-5163-00 ")
- +118 ;;248
- +119 ;;21,"54569-5241-00 ")
- +120 ;;41
- +121 ;;21,"54569-5242-00 ")
- +122 ;;42
- +123 ;;21,"54569-5243-00 ")
- +124 ;;43
- +125 ;;21,"54569-5663-00 ")
- +126 ;;204
- +127 ;;21,"54569-5671-00 ")
- +128 ;;205
- +129 ;;21,"54569-5702-00 ")
- +130 ;;206
- +131 ;;21,"54569-5928-00 ")
- +132 ;;242
- +133 ;;21,"54569-8580-00 ")
- +134 ;;385
- +135 ;;21,"54569-8586-00 ")
- +136 ;;386
- +137 ;;21,"54838-0513-80 ")
- +138 ;;156
- +139 ;;21,"54839-0513-80 ")
- +140 ;;157
- +141 ;;21,"54868-0028-00 ")
- +142 ;;486
- +143 ;;21,"54868-0028-01 ")
- +144 ;;487
- +145 ;;21,"54868-0028-02 ")
- +146 ;;488
- +147 ;;21,"54868-0028-03 ")
- +148 ;;489
- +149 ;;21,"54868-0028-05 ")
- +150 ;;490
- +151 ;;21,"54868-0028-06 ")
- +152 ;;491
- +153 ;;21,"54868-0029-00 ")
- +154 ;;492
- +155 ;;21,"54868-0029-02 ")
- +156 ;;493
- +157 ;;21,"54868-0029-03 ")
- +158 ;;494
- +159 ;;21,"54868-0029-05 ")
- +160 ;;495
- +161 ;;21,"54868-0029-06 ")
- +162 ;;496
- +163 ;;21,"54868-0029-07 ")
- +164 ;;497
- +165 ;;21,"54868-1268-01 ")
- +166 ;;110
- +167 ;;21,"54868-1438-00 ")
- +168 ;;555
- +169 ;;21,"54868-1438-01 ")
- +170 ;;556
- +171 ;;21,"54868-1461-01 ")
- +172 ;;498
- +173 ;;21,"54868-1461-02 ")
- +174 ;;499
- +175 ;;21,"54868-1883-01 ")
- +176 ;;70
- +177 ;;21,"54868-1894-02 ")
- +178 ;;225
- +179 ;;21,"54868-2710-00 ")
- +180 ;;337
- +181 ;;21,"54868-2710-01 ")
- +182 ;;338
- +183 ;;21,"54868-2822-00 ")
- +184 ;;226
- +185 ;;21,"54868-3283-00 ")
- +186 ;;299
- +187 ;;21,"54868-3283-01 ")
- +188 ;;300
- +189 ;;21,"54868-3283-02 ")
- +190 ;;301
- +191 ;;21,"54868-3550-00 ")
- +192 ;;117
- +193 ;;21,"54868-3555-00 ")
- +194 ;;133
- +195 ;;21,"54868-4172-00 ")
- +196 ;;17
- +197 ;;21,"54868-4172-01 ")
- +198 ;;18
- +199 ;;21,"54868-4172-02 ")
- +200 ;;19
- +201 ;;21,"54868-4182-00 ")
- +202 ;;185
- +203 ;;21,"54868-4264-00 ")
- +204 ;;186
- +205 ;;21,"54868-4295-00 ")
- +206 ;;253
- +207 ;;21,"54868-4392-00 ")
- +208 ;;187
- +209 ;;21,"54868-4516-00 ")
- +210 ;;44
- +211 ;;21,"54868-4517-00 ")
- +212 ;;45
- +213 ;;21,"54868-4518-00 ")
- +214 ;;46
- +215 ;;21,"54868-4630-00 ")
- +216 ;;302
- +217 ;;21,"54868-4847-00 ")
- +218 ;;303
- +219 ;;21,"54868-5294-00 ")
- +220 ;;76
- +221 ;;21,"54868-5362-00 ")
- +222 ;;207
- +223 ;;21,"54868-5531-00 ")
- +224 ;;500
- +225 ;;21,"54868-5531-01 ")
- +226 ;;501
- +227 ;;21,"54868-5547-00 ")
- +228 ;;101
- +229 ;;21,"54868-5547-01 ")
- +230 ;;102
- +231 ;;21,"54868-5621-00 ")
- +232 ;;249
- +233 ;;21,"54868-5637-00 ")
- +234 ;;208
- +235 ;;21,"54868-5774-00 ")
- +236 ;;250
- +237 ;;21,"54868-5844-00 ")
- +238 ;;243
- +239 ;;21,"54868-5857-00 ")
- +240 ;;257
- +241 ;;21,"54868-5858-00 ")
- +242 ;;258
- +243 ;;21,"54868-5936-00 ")
- +244 ;;328
- +245 ;;21,"54868-5937-00 ")
- +246 ;;329
- +247 ;;21,"54868-5989-00 ")
- +248 ;;80
- +249 ;;21,"54868-5990-00 ")
- +250 ;;81
- +251 ;;21,"54868-5995-00 ")
- +252 ;;209
- +253 ;;21,"55045-1868-03 ")
- +254 ;;71
- +255 ;;21,"55045-2520-07 ")
- +256 ;;77
- +257 ;;21,"55045-2819-00 ")
- +258 ;;188
- +259 ;;21,"55045-2919-01 ")
- +260 ;;189
- +261 ;;21,"55045-3054-01 ")
- +262 ;;190
- +263 ;;21,"55045-3063-00 ")
- +264 ;;259
- +265 ;;21,"55045-3351-00 ")
- +266 ;;210
- +267 ;;21,"55045-3354-00 ")
- +268 ;;211
- +269 ;;21,"55045-3388-01 ")
- +270 ;;47
- +271 ;;21,"55045-3416-00 ")
- +272 ;;212
- +273 ;;21,"55045-3686-01 ")
- +274 ;;48
- +275 ;;21,"55045-3695-08 ")
- +276 ;;260
- +277 ;;21,"55045-3768-08 ")
- +278 ;;502
- +279 ;;21,"55289-0003-60 ")
- +280 ;;387
- +281 ;;21,"55289-0155-97 ")
- +282 ;;388
- +283 ;;21,"55289-0259-01 ")
- +284 ;;423
- +285 ;;21,"55289-0259-30 ")
- +286 ;;424
- +287 ;;21,"55289-0259-60 ")
- +288 ;;425
- +289 ;;21,"55289-0260-01 ")
- +290 ;;426
- +291 ;;21,"55289-0260-06 ")
- +292 ;;427
- +293 ;;21,"55289-0260-20 ")
- +294 ;;428
- +295 ;;21,"55289-0260-30 ")
- +296 ;;429
- +297 ;;21,"55289-0260-60 ")
- +298 ;;430
- +299 ;;21,"55289-0789-30 ")
- +300 ;;557
- +301 ;;21,"55289-0961-15 ")
- +302 ;;304
- +303 ;;21,"55289-0961-30 ")
- +304 ;;305
- +305 ;;21,"55289-0989-21 ")
- +306 ;;306
- +307 ;;21,"55289-0989-30 ")
- +308 ;;307