Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM3ABS

BGPM3ABS.m

Go to the documentation of this file.
BGPM3ABS ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"775,58016097110 ",.01)
 ;;58016097110
 ;;9002226.02101,"775,58016097110 ",.02)
 ;;58016097110
 ;;9002226.02101,"775,58016097112 ",.01)
 ;;58016097112
 ;;9002226.02101,"775,58016097112 ",.02)
 ;;58016097112
 ;;9002226.02101,"775,58016097114 ",.01)
 ;;58016097114
 ;;9002226.02101,"775,58016097114 ",.02)
 ;;58016097114
 ;;9002226.02101,"775,58016097116 ",.01)
 ;;58016097116
 ;;9002226.02101,"775,58016097116 ",.02)
 ;;58016097116
 ;;9002226.02101,"775,58016097118 ",.01)
 ;;58016097118
 ;;9002226.02101,"775,58016097118 ",.02)
 ;;58016097118
 ;;9002226.02101,"775,58016097120 ",.01)
 ;;58016097120
 ;;9002226.02101,"775,58016097120 ",.02)
 ;;58016097120
 ;;9002226.02101,"775,58016097121 ",.01)
 ;;58016097121
 ;;9002226.02101,"775,58016097121 ",.02)
 ;;58016097121
 ;;9002226.02101,"775,58016097124 ",.01)
 ;;58016097124
 ;;9002226.02101,"775,58016097124 ",.02)
 ;;58016097124
 ;;9002226.02101,"775,58016097125 ",.01)
 ;;58016097125
 ;;9002226.02101,"775,58016097125 ",.02)
 ;;58016097125
 ;;9002226.02101,"775,58016097126 ",.01)
 ;;58016097126
 ;;9002226.02101,"775,58016097126 ",.02)
 ;;58016097126
 ;;9002226.02101,"775,58016097127 ",.01)
 ;;58016097127
 ;;9002226.02101,"775,58016097127 ",.02)
 ;;58016097127
 ;;9002226.02101,"775,58016097128 ",.01)
 ;;58016097128
 ;;9002226.02101,"775,58016097128 ",.02)
 ;;58016097128
 ;;9002226.02101,"775,58016097130 ",.01)
 ;;58016097130
 ;;9002226.02101,"775,58016097130 ",.02)
 ;;58016097130
 ;;9002226.02101,"775,58016097132 ",.01)
 ;;58016097132
 ;;9002226.02101,"775,58016097132 ",.02)
 ;;58016097132
 ;;9002226.02101,"775,58016097135 ",.01)
 ;;58016097135
 ;;9002226.02101,"775,58016097135 ",.02)
 ;;58016097135
 ;;9002226.02101,"775,58016097136 ",.01)
 ;;58016097136
 ;;9002226.02101,"775,58016097136 ",.02)
 ;;58016097136
 ;;9002226.02101,"775,58016097140 ",.01)
 ;;58016097140
 ;;9002226.02101,"775,58016097140 ",.02)
 ;;58016097140
 ;;9002226.02101,"775,58016097142 ",.01)
 ;;58016097142
 ;;9002226.02101,"775,58016097142 ",.02)
 ;;58016097142
 ;;9002226.02101,"775,58016097144 ",.01)
 ;;58016097144
 ;;9002226.02101,"775,58016097144 ",.02)
 ;;58016097144
 ;;9002226.02101,"775,58016097145 ",.01)
 ;;58016097145
 ;;9002226.02101,"775,58016097145 ",.02)
 ;;58016097145
 ;;9002226.02101,"775,58016097148 ",.01)
 ;;58016097148
 ;;9002226.02101,"775,58016097148 ",.02)
 ;;58016097148
 ;;9002226.02101,"775,58016097150 ",.01)
 ;;58016097150
 ;;9002226.02101,"775,58016097150 ",.02)
 ;;58016097150
 ;;9002226.02101,"775,58016097156 ",.01)
 ;;58016097156
 ;;9002226.02101,"775,58016097156 ",.02)
 ;;58016097156
 ;;9002226.02101,"775,58016097160 ",.01)
 ;;58016097160
 ;;9002226.02101,"775,58016097160 ",.02)
 ;;58016097160
 ;;9002226.02101,"775,58016097167 ",.01)
 ;;58016097167
 ;;9002226.02101,"775,58016097167 ",.02)
 ;;58016097167
 ;;9002226.02101,"775,58016097169 ",.01)
 ;;58016097169
 ;;9002226.02101,"775,58016097169 ",.02)
 ;;58016097169
 ;;9002226.02101,"775,58016097170 ",.01)
 ;;58016097170
 ;;9002226.02101,"775,58016097170 ",.02)
 ;;58016097170
 ;;9002226.02101,"775,58016097171 ",.01)
 ;;58016097171
 ;;9002226.02101,"775,58016097171 ",.02)
 ;;58016097171
 ;;9002226.02101,"775,58016097172 ",.01)
 ;;58016097172
 ;;9002226.02101,"775,58016097172 ",.02)
 ;;58016097172
 ;;9002226.02101,"775,58016097173 ",.01)
 ;;58016097173
 ;;9002226.02101,"775,58016097173 ",.02)
 ;;58016097173
 ;;9002226.02101,"775,58016097175 ",.01)
 ;;58016097175
 ;;9002226.02101,"775,58016097175 ",.02)
 ;;58016097175
 ;;9002226.02101,"775,58016097176 ",.01)
 ;;58016097176
 ;;9002226.02101,"775,58016097176 ",.02)
 ;;58016097176
 ;;9002226.02101,"775,58016097177 ",.01)
 ;;58016097177
 ;;9002226.02101,"775,58016097177 ",.02)
 ;;58016097177
 ;;9002226.02101,"775,58016097179 ",.01)
 ;;58016097179
 ;;9002226.02101,"775,58016097179 ",.02)
 ;;58016097179
 ;;9002226.02101,"775,58016097180 ",.01)
 ;;58016097180
 ;;9002226.02101,"775,58016097180 ",.02)
 ;;58016097180
 ;;9002226.02101,"775,58016097181 ",.01)
 ;;58016097181
 ;;9002226.02101,"775,58016097181 ",.02)
 ;;58016097181
 ;;9002226.02101,"775,58016097182 ",.01)
 ;;58016097182
 ;;9002226.02101,"775,58016097182 ",.02)
 ;;58016097182
 ;;9002226.02101,"775,58016097183 ",.01)
 ;;58016097183
 ;;9002226.02101,"775,58016097183 ",.02)
 ;;58016097183
 ;;9002226.02101,"775,58016097184 ",.01)
 ;;58016097184
 ;;9002226.02101,"775,58016097184 ",.02)
 ;;58016097184
 ;;9002226.02101,"775,58016097187 ",.01)
 ;;58016097187
 ;;9002226.02101,"775,58016097187 ",.02)
 ;;58016097187
 ;;9002226.02101,"775,58016097189 ",.01)
 ;;58016097189
 ;;9002226.02101,"775,58016097189 ",.02)
 ;;58016097189
 ;;9002226.02101,"775,58016097190 ",.01)
 ;;58016097190
 ;;9002226.02101,"775,58016097190 ",.02)
 ;;58016097190
 ;;9002226.02101,"775,58016097191 ",.01)
 ;;58016097191
 ;;9002226.02101,"775,58016097191 ",.02)
 ;;58016097191
 ;;9002226.02101,"775,58016097192 ",.01)
 ;;58016097192
 ;;9002226.02101,"775,58016097192 ",.02)
 ;;58016097192
 ;;9002226.02101,"775,58016097193 ",.01)
 ;;58016097193
 ;;9002226.02101,"775,58016097193 ",.02)
 ;;58016097193
 ;;9002226.02101,"775,58016097196 ",.01)
 ;;58016097196
 ;;9002226.02101,"775,58016097196 ",.02)
 ;;58016097196
 ;;9002226.02101,"775,58016097197 ",.01)
 ;;58016097197
 ;;9002226.02101,"775,58016097197 ",.02)
 ;;58016097197
 ;;9002226.02101,"775,58016097198 ",.01)
 ;;58016097198
 ;;9002226.02101,"775,58016097198 ",.02)
 ;;58016097198
 ;;9002226.02101,"775,58016097199 ",.01)
 ;;58016097199
 ;;9002226.02101,"775,58016097199 ",.02)
 ;;58016097199
 ;;9002226.02101,"775,58016097200 ",.01)
 ;;58016097200
 ;;9002226.02101,"775,58016097200 ",.02)
 ;;58016097200
 ;;9002226.02101,"775,58016097201 ",.01)
 ;;58016097201
 ;;9002226.02101,"775,58016097201 ",.02)
 ;;58016097201
 ;;9002226.02101,"775,58016097202 ",.01)
 ;;58016097202
 ;;9002226.02101,"775,58016097202 ",.02)
 ;;58016097202
 ;;9002226.02101,"775,58016097203 ",.01)
 ;;58016097203
 ;;9002226.02101,"775,58016097203 ",.02)
 ;;58016097203
 ;;9002226.02101,"775,58016097204 ",.01)
 ;;58016097204
 ;;9002226.02101,"775,58016097204 ",.02)
 ;;58016097204
 ;;9002226.02101,"775,58016097205 ",.01)
 ;;58016097205
 ;;9002226.02101,"775,58016097205 ",.02)
 ;;58016097205
 ;;9002226.02101,"775,58016097206 ",.01)
 ;;58016097206
 ;;9002226.02101,"775,58016097206 ",.02)
 ;;58016097206
 ;;9002226.02101,"775,58016097207 ",.01)
 ;;58016097207
 ;;9002226.02101,"775,58016097207 ",.02)
 ;;58016097207
 ;;9002226.02101,"775,58016097208 ",.01)
 ;;58016097208
 ;;9002226.02101,"775,58016097208 ",.02)
 ;;58016097208
 ;;9002226.02101,"775,58016097209 ",.01)
 ;;58016097209
 ;;9002226.02101,"775,58016097209 ",.02)
 ;;58016097209
 ;;9002226.02101,"775,58016097210 ",.01)
 ;;58016097210
 ;;9002226.02101,"775,58016097210 ",.02)
 ;;58016097210
 ;;9002226.02101,"775,58016097212 ",.01)
 ;;58016097212
 ;;9002226.02101,"775,58016097212 ",.02)
 ;;58016097212
 ;;9002226.02101,"775,58016097214 ",.01)
 ;;58016097214
 ;;9002226.02101,"775,58016097214 ",.02)
 ;;58016097214
 ;;9002226.02101,"775,58016097216 ",.01)
 ;;58016097216
 ;;9002226.02101,"775,58016097216 ",.02)
 ;;58016097216
 ;;9002226.02101,"775,58016097218 ",.01)
 ;;58016097218
 ;;9002226.02101,"775,58016097218 ",.02)
 ;;58016097218
 ;;9002226.02101,"775,58016097220 ",.01)
 ;;58016097220
 ;;9002226.02101,"775,58016097220 ",.02)
 ;;58016097220
 ;;9002226.02101,"775,58016097221 ",.01)
 ;;58016097221
 ;;9002226.02101,"775,58016097221 ",.02)
 ;;58016097221
 ;;9002226.02101,"775,58016097224 ",.01)
 ;;58016097224
 ;;9002226.02101,"775,58016097224 ",.02)
 ;;58016097224
 ;;9002226.02101,"775,58016097225 ",.01)
 ;;58016097225
 ;;9002226.02101,"775,58016097225 ",.02)
 ;;58016097225
 ;;9002226.02101,"775,58016097226 ",.01)
 ;;58016097226
 ;;9002226.02101,"775,58016097226 ",.02)
 ;;58016097226
 ;;9002226.02101,"775,58016097227 ",.01)
 ;;58016097227
 ;;9002226.02101,"775,58016097227 ",.02)
 ;;58016097227
 ;;9002226.02101,"775,58016097228 ",.01)
 ;;58016097228
 ;;9002226.02101,"775,58016097228 ",.02)
 ;;58016097228
 ;;9002226.02101,"775,58016097230 ",.01)
 ;;58016097230
 ;;9002226.02101,"775,58016097230 ",.02)
 ;;58016097230
 ;;9002226.02101,"775,58016097232 ",.01)
 ;;58016097232
 ;;9002226.02101,"775,58016097232 ",.02)
 ;;58016097232
 ;;9002226.02101,"775,58016097235 ",.01)
 ;;58016097235
 ;;9002226.02101,"775,58016097235 ",.02)
 ;;58016097235
 ;;9002226.02101,"775,58016097236 ",.01)
 ;;58016097236
 ;;9002226.02101,"775,58016097236 ",.02)
 ;;58016097236
 ;;9002226.02101,"775,58016097240 ",.01)
 ;;58016097240
 ;;9002226.02101,"775,58016097240 ",.02)
 ;;58016097240
 ;;9002226.02101,"775,58016097242 ",.01)
 ;;58016097242
 ;;9002226.02101,"775,58016097242 ",.02)
 ;;58016097242
 ;;9002226.02101,"775,58016097244 ",.01)
 ;;58016097244
 ;;9002226.02101,"775,58016097244 ",.02)
 ;;58016097244
 ;;9002226.02101,"775,58016097245 ",.01)
 ;;58016097245
 ;;9002226.02101,"775,58016097245 ",.02)
 ;;58016097245
 ;;9002226.02101,"775,58016097248 ",.01)
 ;;58016097248
 ;;9002226.02101,"775,58016097248 ",.02)
 ;;58016097248
 ;;9002226.02101,"775,58016097250 ",.01)
 ;;58016097250
 ;;9002226.02101,"775,58016097250 ",.02)
 ;;58016097250
 ;;9002226.02101,"775,58016097256 ",.01)
 ;;58016097256
 ;;9002226.02101,"775,58016097256 ",.02)
 ;;58016097256
 ;;9002226.02101,"775,58016097260 ",.01)
 ;;58016097260
 ;;9002226.02101,"775,58016097260 ",.02)
 ;;58016097260
 ;;9002226.02101,"775,58016097267 ",.01)
 ;;58016097267
 ;;9002226.02101,"775,58016097267 ",.02)
 ;;58016097267
 ;;9002226.02101,"775,58016097269 ",.01)
 ;;58016097269
 ;;9002226.02101,"775,58016097269 ",.02)
 ;;58016097269
 ;;9002226.02101,"775,58016097270 ",.01)
 ;;58016097270
 ;;9002226.02101,"775,58016097270 ",.02)
 ;;58016097270
 ;;9002226.02101,"775,58016097271 ",.01)
 ;;58016097271
 ;;9002226.02101,"775,58016097271 ",.02)
 ;;58016097271
 ;;9002226.02101,"775,58016097272 ",.01)
 ;;58016097272
 ;;9002226.02101,"775,58016097272 ",.02)
 ;;58016097272
 ;;9002226.02101,"775,58016097273 ",.01)
 ;;58016097273
 ;;9002226.02101,"775,58016097273 ",.02)
 ;;58016097273
 ;;9002226.02101,"775,58016097275 ",.01)
 ;;58016097275
 ;;9002226.02101,"775,58016097275 ",.02)
 ;;58016097275
 ;;9002226.02101,"775,58016097276 ",.01)
 ;;58016097276
 ;;9002226.02101,"775,58016097276 ",.02)
 ;;58016097276
 ;;9002226.02101,"775,58016097277 ",.01)
 ;;58016097277
 ;;9002226.02101,"775,58016097277 ",.02)
 ;;58016097277
 ;;9002226.02101,"775,58016097279 ",.01)
 ;;58016097279
 ;;9002226.02101,"775,58016097279 ",.02)
 ;;58016097279
 ;;9002226.02101,"775,58016097280 ",.01)
 ;;58016097280
 ;;9002226.02101,"775,58016097280 ",.02)
 ;;58016097280
 ;;9002226.02101,"775,58016097281 ",.01)
 ;;58016097281
 ;;9002226.02101,"775,58016097281 ",.02)
 ;;58016097281
 ;;9002226.02101,"775,58016097282 ",.01)
 ;;58016097282
 ;;9002226.02101,"775,58016097282 ",.02)
 ;;58016097282
 ;;9002226.02101,"775,58016097283 ",.01)
 ;;58016097283
 ;;9002226.02101,"775,58016097283 ",.02)
 ;;58016097283
 ;;9002226.02101,"775,58016097284 ",.01)
 ;;58016097284
 ;;9002226.02101,"775,58016097284 ",.02)
 ;;58016097284
 ;;9002226.02101,"775,58016097287 ",.01)
 ;;58016097287
 ;;9002226.02101,"775,58016097287 ",.02)
 ;;58016097287
 ;;9002226.02101,"775,58016097289 ",.01)
 ;;58016097289
 ;;9002226.02101,"775,58016097289 ",.02)
 ;;58016097289
 ;;9002226.02101,"775,58016097290 ",.01)
 ;;58016097290
 ;;9002226.02101,"775,58016097290 ",.02)
 ;;58016097290
 ;;9002226.02101,"775,58016097291 ",.01)
 ;;58016097291
 ;;9002226.02101,"775,58016097291 ",.02)
 ;;58016097291