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