- BGP03B15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- ;
- 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)
- ;;
- ;;3050
- ;;
- ;;450
- ;;
- ;;451
- ;;
- ;;452
- ;;
- ;;2541
- ;;
- ;;2542
- ;;
- ;;2545
- ;;
- ;;2546
- ;;
- ;;2547
- ;;
- ;;2549
- ;;
- ;;2551
- ;;
- ;;2552
- ;;
- ;;3513
- ;;
- ;;3514
- ;;
- ;;3515
- ;;
- ;;3520
- ;;
- ;;3516
- ;;
- ;;3517
- ;;
- ;;3518
- ;;
- ;;3519
- ;;
- ;;8
- ;;
- ;;9
- ;;
- ;;154
- ;;
- ;;155
- ;;
- ;;156
- ;;
- ;;157
- ;;
- ;;158
- ;;
- ;;159
- ;;
- ;;160
- ;;
- ;;161
- ;;
- ;;447
- ;;
- ;;448
- ;;
- ;;449
- ;;
- ;;1549
- ;;
- ;;2253
- ;;
- ;;2254
- ;;
- ;;2255
- ;;
- ;;2256
- ;;
- ;;2257
- ;;
- ;;2258
- ;;
- ;;2265
- ;;
- ;;2259
- ;;
- ;;2260
- ;;
- ;;2261
- ;;
- ;;2262
- ;;
- ;;2263
- ;;
- ;;2264
- ;;
- ;;2267
- ;;
- ;;2268
- ;;
- ;;2269
- ;;
- ;;2270
- ;;
- ;;2271
- ;;
- ;;2272
- ;;
- ;;2273
- ;;
- ;;2274
- ;;
- ;;2275
- ;;
- ;;2277
- ;;
- ;;710
- ;;
- ;;711
- ;;
- ;;712
- ;;
- ;;713
- ;;
- ;;714
- ;;
- ;;715
- ;;
- ;;2389
- ;;
- ;;2390
- ;;
- ;;2391
- ;;
- ;;861
- ;;
- ;;862
- ;;
- ;;1148
- ;;
- ;;1145
- ;;
- ;;1146
- ;;
- ;;1147
- ;;
- ;;1149
- ;;
- ;;1150
- ;;
- ;;1151
- ;;
- ;;1152
- ;;
- ;;2655
- ;;
- ;;2656
- ;;
- ;;2657
- ;;
- ;;2658
- ;;
- ;;2659
- ;;
- ;;2660
- ;;
- ;;2661
- ;;
- ;;2662
- ;;
- ;;2663
- ;;
- ;;2664
- ;;
- ;;2665
- ;;
- ;;2666
- ;;
- ;;2667
- ;;
- ;;2668
- ;;
- ;;2669
- ;;
- ;;2670
- ;;
- ;;2671
- ;;
- ;;3044
- ;;
- ;;3045
- ;;
- ;;3046
- ;;
- ;;3047
- ;;
- ;;3048
- ;;
- ;;3264
- ;;
- ;;3265
- ;;
- ;;1418
- ;;
- ;;1419
- ;;
- ;;1420
- ;;
- ;;1421
- ;;
- ;;1422
- ;;
- ;;1423
- ;;
- ;;980
- ;;
- ;;981
- ;;
- ;;3407
- ;;
- ;;1416
- ;;
- ;;1417
- ;;
- ;;3373
- ;;
- ;;3374
- ;;
- ;;3375
- ;;
- ;;1301
- ;;
- ;;1304
- ;;
- ;;1302
- ;;
- ;;163
- ;;
- ;;3376
- ;;
- ;;3408
- ;;
- ;;1303
- ;;
- ;;2276
- ;;
- ;;2266
- ;;
- ;;479
- ;;
- ;;480
- ;;
- ;;481
- ;;
- ;;3272
- ;;
- ;;3273
- ;;
- ;;2051
- ;;
- ;;2048
- ;;
- ;;2049
- ;;
- ;;2050
- ;;
- ;;180
- ;;
- ;;181
- ;;
- ;;1163
- ;;
- ;;1164
- ;;
- ;;15
- ;;
- ;;868
- ;;
- ;;1460
- ;;
- ;;1461
- ;;
- ;;1462
- ;;
- ;;2741
- ;;
- ;;2742
- ;;
- ;;2743
- BGP03B15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- +1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- +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 ;;
- +2 ;;3050
- +3 ;;
- +4 ;;450
- +5 ;;
- +6 ;;451
- +7 ;;
- +8 ;;452
- +9 ;;
- +10 ;;2541
- +11 ;;
- +12 ;;2542
- +13 ;;
- +14 ;;2545
- +15 ;;
- +16 ;;2546
- +17 ;;
- +18 ;;2547
- +19 ;;
- +20 ;;2549
- +21 ;;
- +22 ;;2551
- +23 ;;
- +24 ;;2552
- +25 ;;
- +26 ;;3513
- +27 ;;
- +28 ;;3514
- +29 ;;
- +30 ;;3515
- +31 ;;
- +32 ;;3520
- +33 ;;
- +34 ;;3516
- +35 ;;
- +36 ;;3517
- +37 ;;
- +38 ;;3518
- +39 ;;
- +40 ;;3519
- +41 ;;
- +42 ;;8
- +43 ;;
- +44 ;;9
- +45 ;;
- +46 ;;154
- +47 ;;
- +48 ;;155
- +49 ;;
- +50 ;;156
- +51 ;;
- +52 ;;157
- +53 ;;
- +54 ;;158
- +55 ;;
- +56 ;;159
- +57 ;;
- +58 ;;160
- +59 ;;
- +60 ;;161
- +61 ;;
- +62 ;;447
- +63 ;;
- +64 ;;448
- +65 ;;
- +66 ;;449
- +67 ;;
- +68 ;;1549
- +69 ;;
- +70 ;;2253
- +71 ;;
- +72 ;;2254
- +73 ;;
- +74 ;;2255
- +75 ;;
- +76 ;;2256
- +77 ;;
- +78 ;;2257
- +79 ;;
- +80 ;;2258
- +81 ;;
- +82 ;;2265
- +83 ;;
- +84 ;;2259
- +85 ;;
- +86 ;;2260
- +87 ;;
- +88 ;;2261
- +89 ;;
- +90 ;;2262
- +91 ;;
- +92 ;;2263
- +93 ;;
- +94 ;;2264
- +95 ;;
- +96 ;;2267
- +97 ;;
- +98 ;;2268
- +99 ;;
- +100 ;;2269
- +101 ;;
- +102 ;;2270
- +103 ;;
- +104 ;;2271
- +105 ;;
- +106 ;;2272
- +107 ;;
- +108 ;;2273
- +109 ;;
- +110 ;;2274
- +111 ;;
- +112 ;;2275
- +113 ;;
- +114 ;;2277
- +115 ;;
- +116 ;;710
- +117 ;;
- +118 ;;711
- +119 ;;
- +120 ;;712
- +121 ;;
- +122 ;;713
- +123 ;;
- +124 ;;714
- +125 ;;
- +126 ;;715
- +127 ;;
- +128 ;;2389
- +129 ;;
- +130 ;;2390
- +131 ;;
- +132 ;;2391
- +133 ;;
- +134 ;;861
- +135 ;;
- +136 ;;862
- +137 ;;
- +138 ;;1148
- +139 ;;
- +140 ;;1145
- +141 ;;
- +142 ;;1146
- +143 ;;
- +144 ;;1147
- +145 ;;
- +146 ;;1149
- +147 ;;
- +148 ;;1150
- +149 ;;
- +150 ;;1151
- +151 ;;
- +152 ;;1152
- +153 ;;
- +154 ;;2655
- +155 ;;
- +156 ;;2656
- +157 ;;
- +158 ;;2657
- +159 ;;
- +160 ;;2658
- +161 ;;
- +162 ;;2659
- +163 ;;
- +164 ;;2660
- +165 ;;
- +166 ;;2661
- +167 ;;
- +168 ;;2662
- +169 ;;
- +170 ;;2663
- +171 ;;
- +172 ;;2664
- +173 ;;
- +174 ;;2665
- +175 ;;
- +176 ;;2666
- +177 ;;
- +178 ;;2667
- +179 ;;
- +180 ;;2668
- +181 ;;
- +182 ;;2669
- +183 ;;
- +184 ;;2670
- +185 ;;
- +186 ;;2671
- +187 ;;
- +188 ;;3044
- +189 ;;
- +190 ;;3045
- +191 ;;
- +192 ;;3046
- +193 ;;
- +194 ;;3047
- +195 ;;
- +196 ;;3048
- +197 ;;
- +198 ;;3264
- +199 ;;
- +200 ;;3265
- +201 ;;
- +202 ;;1418
- +203 ;;
- +204 ;;1419
- +205 ;;
- +206 ;;1420
- +207 ;;
- +208 ;;1421
- +209 ;;
- +210 ;;1422
- +211 ;;
- +212 ;;1423
- +213 ;;
- +214 ;;980
- +215 ;;
- +216 ;;981
- +217 ;;
- +218 ;;3407
- +219 ;;
- +220 ;;1416
- +221 ;;
- +222 ;;1417
- +223 ;;
- +224 ;;3373
- +225 ;;
- +226 ;;3374
- +227 ;;
- +228 ;;3375
- +229 ;;
- +230 ;;1301
- +231 ;;
- +232 ;;1304
- +233 ;;
- +234 ;;1302
- +235 ;;
- +236 ;;163
- +237 ;;
- +238 ;;3376
- +239 ;;
- +240 ;;3408
- +241 ;;
- +242 ;;1303
- +243 ;;
- +244 ;;2276
- +245 ;;
- +246 ;;2266
- +247 ;;
- +248 ;;479
- +249 ;;
- +250 ;;480
- +251 ;;
- +252 ;;481
- +253 ;;
- +254 ;;3272
- +255 ;;
- +256 ;;3273
- +257 ;;
- +258 ;;2051
- +259 ;;
- +260 ;;2048
- +261 ;;
- +262 ;;2049
- +263 ;;
- +264 ;;2050
- +265 ;;
- +266 ;;180
- +267 ;;
- +268 ;;181
- +269 ;;
- +270 ;;1163
- +271 ;;
- +272 ;;1164
- +273 ;;
- +274 ;;15
- +275 ;;
- +276 ;;868
- +277 ;;
- +278 ;;1460
- +279 ;;
- +280 ;;1461
- +281 ;;
- +282 ;;1462
- +283 ;;
- +284 ;;2741
- +285 ;;
- +286 ;;2742
- +287 ;;
- +288 ;;2743
