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

BGPM3AAO.m

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