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

BGPM5AJZ.m

Go to the documentation of this file.
  1. BGPM5AJZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"889,58016053180 ",.01)
  1. ;;58016053180
  1. ;;9002226.02101,"889,58016053180 ",.02)
  1. ;;58016053180
  1. ;;9002226.02101,"889,58016053181 ",.01)
  1. ;;58016053181
  1. ;;9002226.02101,"889,58016053181 ",.02)
  1. ;;58016053181
  1. ;;9002226.02101,"889,58016053182 ",.01)
  1. ;;58016053182
  1. ;;9002226.02101,"889,58016053182 ",.02)
  1. ;;58016053182
  1. ;;9002226.02101,"889,58016053183 ",.01)
  1. ;;58016053183
  1. ;;9002226.02101,"889,58016053183 ",.02)
  1. ;;58016053183
  1. ;;9002226.02101,"889,58016053184 ",.01)
  1. ;;58016053184
  1. ;;9002226.02101,"889,58016053184 ",.02)
  1. ;;58016053184
  1. ;;9002226.02101,"889,58016053187 ",.01)
  1. ;;58016053187
  1. ;;9002226.02101,"889,58016053187 ",.02)
  1. ;;58016053187
  1. ;;9002226.02101,"889,58016053189 ",.01)
  1. ;;58016053189
  1. ;;9002226.02101,"889,58016053189 ",.02)
  1. ;;58016053189
  1. ;;9002226.02101,"889,58016053190 ",.01)
  1. ;;58016053190
  1. ;;9002226.02101,"889,58016053190 ",.02)
  1. ;;58016053190
  1. ;;9002226.02101,"889,58016053191 ",.01)
  1. ;;58016053191
  1. ;;9002226.02101,"889,58016053191 ",.02)
  1. ;;58016053191
  1. ;;9002226.02101,"889,58016053192 ",.01)
  1. ;;58016053192
  1. ;;9002226.02101,"889,58016053192 ",.02)
  1. ;;58016053192
  1. ;;9002226.02101,"889,58016053193 ",.01)
  1. ;;58016053193
  1. ;;9002226.02101,"889,58016053193 ",.02)
  1. ;;58016053193
  1. ;;9002226.02101,"889,58016053196 ",.01)
  1. ;;58016053196
  1. ;;9002226.02101,"889,58016053196 ",.02)
  1. ;;58016053196
  1. ;;9002226.02101,"889,58016053197 ",.01)
  1. ;;58016053197
  1. ;;9002226.02101,"889,58016053197 ",.02)
  1. ;;58016053197
  1. ;;9002226.02101,"889,58016053198 ",.01)
  1. ;;58016053198
  1. ;;9002226.02101,"889,58016053198 ",.02)
  1. ;;58016053198
  1. ;;9002226.02101,"889,58016053199 ",.01)
  1. ;;58016053199
  1. ;;9002226.02101,"889,58016053199 ",.02)
  1. ;;58016053199
  1. ;;9002226.02101,"889,58016053200 ",.01)
  1. ;;58016053200
  1. ;;9002226.02101,"889,58016053200 ",.02)
  1. ;;58016053200
  1. ;;9002226.02101,"889,58016053201 ",.01)
  1. ;;58016053201
  1. ;;9002226.02101,"889,58016053201 ",.02)
  1. ;;58016053201
  1. ;;9002226.02101,"889,58016053202 ",.01)
  1. ;;58016053202
  1. ;;9002226.02101,"889,58016053202 ",.02)
  1. ;;58016053202
  1. ;;9002226.02101,"889,58016053203 ",.01)
  1. ;;58016053203
  1. ;;9002226.02101,"889,58016053203 ",.02)
  1. ;;58016053203
  1. ;;9002226.02101,"889,58016053204 ",.01)
  1. ;;58016053204
  1. ;;9002226.02101,"889,58016053204 ",.02)
  1. ;;58016053204
  1. ;;9002226.02101,"889,58016053205 ",.01)
  1. ;;58016053205
  1. ;;9002226.02101,"889,58016053205 ",.02)
  1. ;;58016053205
  1. ;;9002226.02101,"889,58016053206 ",.01)
  1. ;;58016053206
  1. ;;9002226.02101,"889,58016053206 ",.02)
  1. ;;58016053206
  1. ;;9002226.02101,"889,58016053207 ",.01)
  1. ;;58016053207
  1. ;;9002226.02101,"889,58016053207 ",.02)
  1. ;;58016053207
  1. ;;9002226.02101,"889,58016053208 ",.01)
  1. ;;58016053208
  1. ;;9002226.02101,"889,58016053208 ",.02)
  1. ;;58016053208
  1. ;;9002226.02101,"889,58016053209 ",.01)
  1. ;;58016053209
  1. ;;9002226.02101,"889,58016053209 ",.02)
  1. ;;58016053209
  1. ;;9002226.02101,"889,58016053210 ",.01)
  1. ;;58016053210
  1. ;;9002226.02101,"889,58016053210 ",.02)
  1. ;;58016053210
  1. ;;9002226.02101,"889,58016053212 ",.01)
  1. ;;58016053212
  1. ;;9002226.02101,"889,58016053212 ",.02)
  1. ;;58016053212
  1. ;;9002226.02101,"889,58016053214 ",.01)
  1. ;;58016053214
  1. ;;9002226.02101,"889,58016053214 ",.02)
  1. ;;58016053214
  1. ;;9002226.02101,"889,58016053215 ",.01)
  1. ;;58016053215
  1. ;;9002226.02101,"889,58016053215 ",.02)
  1. ;;58016053215
  1. ;;9002226.02101,"889,58016053216 ",.01)
  1. ;;58016053216
  1. ;;9002226.02101,"889,58016053216 ",.02)
  1. ;;58016053216
  1. ;;9002226.02101,"889,58016053218 ",.01)
  1. ;;58016053218
  1. ;;9002226.02101,"889,58016053218 ",.02)
  1. ;;58016053218
  1. ;;9002226.02101,"889,58016053220 ",.01)
  1. ;;58016053220
  1. ;;9002226.02101,"889,58016053220 ",.02)
  1. ;;58016053220
  1. ;;9002226.02101,"889,58016053221 ",.01)
  1. ;;58016053221
  1. ;;9002226.02101,"889,58016053221 ",.02)
  1. ;;58016053221
  1. ;;9002226.02101,"889,58016053224 ",.01)
  1. ;;58016053224
  1. ;;9002226.02101,"889,58016053224 ",.02)
  1. ;;58016053224
  1. ;;9002226.02101,"889,58016053225 ",.01)
  1. ;;58016053225
  1. ;;9002226.02101,"889,58016053225 ",.02)
  1. ;;58016053225
  1. ;;9002226.02101,"889,58016053226 ",.01)
  1. ;;58016053226
  1. ;;9002226.02101,"889,58016053226 ",.02)
  1. ;;58016053226
  1. ;;9002226.02101,"889,58016053227 ",.01)
  1. ;;58016053227
  1. ;;9002226.02101,"889,58016053227 ",.02)
  1. ;;58016053227
  1. ;;9002226.02101,"889,58016053228 ",.01)
  1. ;;58016053228
  1. ;;9002226.02101,"889,58016053228 ",.02)
  1. ;;58016053228
  1. ;;9002226.02101,"889,58016053230 ",.01)
  1. ;;58016053230
  1. ;;9002226.02101,"889,58016053230 ",.02)
  1. ;;58016053230
  1. ;;9002226.02101,"889,58016053232 ",.01)
  1. ;;58016053232
  1. ;;9002226.02101,"889,58016053232 ",.02)
  1. ;;58016053232
  1. ;;9002226.02101,"889,58016053235 ",.01)
  1. ;;58016053235
  1. ;;9002226.02101,"889,58016053235 ",.02)
  1. ;;58016053235
  1. ;;9002226.02101,"889,58016053236 ",.01)
  1. ;;58016053236
  1. ;;9002226.02101,"889,58016053236 ",.02)
  1. ;;58016053236
  1. ;;9002226.02101,"889,58016053240 ",.01)
  1. ;;58016053240
  1. ;;9002226.02101,"889,58016053240 ",.02)
  1. ;;58016053240
  1. ;;9002226.02101,"889,58016053242 ",.01)
  1. ;;58016053242
  1. ;;9002226.02101,"889,58016053242 ",.02)
  1. ;;58016053242
  1. ;;9002226.02101,"889,58016053244 ",.01)
  1. ;;58016053244
  1. ;;9002226.02101,"889,58016053244 ",.02)
  1. ;;58016053244
  1. ;;9002226.02101,"889,58016053245 ",.01)
  1. ;;58016053245
  1. ;;9002226.02101,"889,58016053245 ",.02)
  1. ;;58016053245
  1. ;;9002226.02101,"889,58016053248 ",.01)
  1. ;;58016053248
  1. ;;9002226.02101,"889,58016053248 ",.02)
  1. ;;58016053248
  1. ;;9002226.02101,"889,58016053250 ",.01)
  1. ;;58016053250
  1. ;;9002226.02101,"889,58016053250 ",.02)
  1. ;;58016053250
  1. ;;9002226.02101,"889,58016053256 ",.01)
  1. ;;58016053256
  1. ;;9002226.02101,"889,58016053256 ",.02)
  1. ;;58016053256
  1. ;;9002226.02101,"889,58016053260 ",.01)
  1. ;;58016053260
  1. ;;9002226.02101,"889,58016053260 ",.02)
  1. ;;58016053260
  1. ;;9002226.02101,"889,58016053267 ",.01)
  1. ;;58016053267
  1. ;;9002226.02101,"889,58016053267 ",.02)
  1. ;;58016053267
  1. ;;9002226.02101,"889,58016053269 ",.01)
  1. ;;58016053269
  1. ;;9002226.02101,"889,58016053269 ",.02)
  1. ;;58016053269
  1. ;;9002226.02101,"889,58016053270 ",.01)
  1. ;;58016053270
  1. ;;9002226.02101,"889,58016053270 ",.02)
  1. ;;58016053270
  1. ;;9002226.02101,"889,58016053271 ",.01)
  1. ;;58016053271
  1. ;;9002226.02101,"889,58016053271 ",.02)
  1. ;;58016053271
  1. ;;9002226.02101,"889,58016053272 ",.01)
  1. ;;58016053272
  1. ;;9002226.02101,"889,58016053272 ",.02)
  1. ;;58016053272
  1. ;;9002226.02101,"889,58016053273 ",.01)
  1. ;;58016053273
  1. ;;9002226.02101,"889,58016053273 ",.02)
  1. ;;58016053273
  1. ;;9002226.02101,"889,58016053275 ",.01)
  1. ;;58016053275
  1. ;;9002226.02101,"889,58016053275 ",.02)
  1. ;;58016053275
  1. ;;9002226.02101,"889,58016053276 ",.01)
  1. ;;58016053276
  1. ;;9002226.02101,"889,58016053276 ",.02)
  1. ;;58016053276
  1. ;;9002226.02101,"889,58016053277 ",.01)
  1. ;;58016053277
  1. ;;9002226.02101,"889,58016053277 ",.02)
  1. ;;58016053277
  1. ;;9002226.02101,"889,58016053279 ",.01)
  1. ;;58016053279
  1. ;;9002226.02101,"889,58016053279 ",.02)
  1. ;;58016053279
  1. ;;9002226.02101,"889,58016053280 ",.01)
  1. ;;58016053280
  1. ;;9002226.02101,"889,58016053280 ",.02)
  1. ;;58016053280
  1. ;;9002226.02101,"889,58016053281 ",.01)
  1. ;;58016053281
  1. ;;9002226.02101,"889,58016053281 ",.02)
  1. ;;58016053281
  1. ;;9002226.02101,"889,58016053282 ",.01)
  1. ;;58016053282
  1. ;;9002226.02101,"889,58016053282 ",.02)
  1. ;;58016053282
  1. ;;9002226.02101,"889,58016053283 ",.01)
  1. ;;58016053283
  1. ;;9002226.02101,"889,58016053283 ",.02)
  1. ;;58016053283
  1. ;;9002226.02101,"889,58016053284 ",.01)
  1. ;;58016053284
  1. ;;9002226.02101,"889,58016053284 ",.02)
  1. ;;58016053284
  1. ;;9002226.02101,"889,58016053287 ",.01)
  1. ;;58016053287
  1. ;;9002226.02101,"889,58016053287 ",.02)
  1. ;;58016053287
  1. ;;9002226.02101,"889,58016053289 ",.01)
  1. ;;58016053289
  1. ;;9002226.02101,"889,58016053289 ",.02)
  1. ;;58016053289
  1. ;;9002226.02101,"889,58016053290 ",.01)
  1. ;;58016053290
  1. ;;9002226.02101,"889,58016053290 ",.02)
  1. ;;58016053290
  1. ;;9002226.02101,"889,58016053291 ",.01)
  1. ;;58016053291
  1. ;;9002226.02101,"889,58016053291 ",.02)
  1. ;;58016053291
  1. ;;9002226.02101,"889,58016053292 ",.01)
  1. ;;58016053292
  1. ;;9002226.02101,"889,58016053292 ",.02)
  1. ;;58016053292
  1. ;;9002226.02101,"889,58016053293 ",.01)
  1. ;;58016053293
  1. ;;9002226.02101,"889,58016053293 ",.02)
  1. ;;58016053293
  1. ;;9002226.02101,"889,58016053296 ",.01)
  1. ;;58016053296
  1. ;;9002226.02101,"889,58016053296 ",.02)
  1. ;;58016053296
  1. ;;9002226.02101,"889,58016053297 ",.01)
  1. ;;58016053297
  1. ;;9002226.02101,"889,58016053297 ",.02)
  1. ;;58016053297
  1. ;;9002226.02101,"889,58016053298 ",.01)
  1. ;;58016053298
  1. ;;9002226.02101,"889,58016053298 ",.02)
  1. ;;58016053298
  1. ;;9002226.02101,"889,58016053299 ",.01)
  1. ;;58016053299
  1. ;;9002226.02101,"889,58016053299 ",.02)
  1. ;;58016053299
  1. ;;9002226.02101,"889,58016058200 ",.01)
  1. ;;58016058200
  1. ;;9002226.02101,"889,58016058200 ",.02)
  1. ;;58016058200
  1. ;;9002226.02101,"889,58016058215 ",.01)
  1. ;;58016058215
  1. ;;9002226.02101,"889,58016058215 ",.02)
  1. ;;58016058215
  1. ;;9002226.02101,"889,58016058220 ",.01)
  1. ;;58016058220
  1. ;;9002226.02101,"889,58016058220 ",.02)
  1. ;;58016058220
  1. ;;9002226.02101,"889,58016058230 ",.01)
  1. ;;58016058230
  1. ;;9002226.02101,"889,58016058230 ",.02)
  1. ;;58016058230
  1. ;;9002226.02101,"889,58016058260 ",.01)
  1. ;;58016058260
  1. ;;9002226.02101,"889,58016058260 ",.02)
  1. ;;58016058260
  1. ;;9002226.02101,"889,58016060400 ",.01)
  1. ;;58016060400
  1. ;;9002226.02101,"889,58016060400 ",.02)
  1. ;;58016060400
  1. ;;9002226.02101,"889,58016060430 ",.01)
  1. ;;58016060430
  1. ;;9002226.02101,"889,58016060430 ",.02)
  1. ;;58016060430
  1. ;;9002226.02101,"889,58016060460 ",.01)
  1. ;;58016060460
  1. ;;9002226.02101,"889,58016060460 ",.02)
  1. ;;58016060460
  1. ;;9002226.02101,"889,58016060490 ",.01)
  1. ;;58016060490
  1. ;;9002226.02101,"889,58016060490 ",.02)
  1. ;;58016060490
  1. ;;9002226.02101,"889,58016077100 ",.01)
  1. ;;58016077100
  1. ;;9002226.02101,"889,58016077100 ",.02)
  1. ;;58016077100
  1. ;;9002226.02101,"889,58016077112 ",.01)
  1. ;;58016077112
  1. ;;9002226.02101,"889,58016077112 ",.02)
  1. ;;58016077112
  1. ;;9002226.02101,"889,58016077115 ",.01)
  1. ;;58016077115
  1. ;;9002226.02101,"889,58016077115 ",.02)
  1. ;;58016077115
  1. ;;9002226.02101,"889,58016077120 ",.01)
  1. ;;58016077120
  1. ;;9002226.02101,"889,58016077120 ",.02)
  1. ;;58016077120
  1. ;;9002226.02101,"889,58016077130 ",.01)
  1. ;;58016077130
  1. ;;9002226.02101,"889,58016077130 ",.02)
  1. ;;58016077130
  1. ;;9002226.02101,"889,58016077160 ",.01)
  1. ;;58016077160
  1. ;;9002226.02101,"889,58016077160 ",.02)
  1. ;;58016077160
  1. ;;9002226.02101,"889,58016082000 ",.01)
  1. ;;58016082000
  1. ;;9002226.02101,"889,58016082000 ",.02)
  1. ;;58016082000
  1. ;;9002226.02101,"889,58016082001 ",.01)
  1. ;;58016082001
  1. ;;9002226.02101,"889,58016082001 ",.02)
  1. ;;58016082001
  1. ;;9002226.02101,"889,58016082002 ",.01)
  1. ;;58016082002
  1. ;;9002226.02101,"889,58016082002 ",.02)
  1. ;;58016082002
  1. ;;9002226.02101,"889,58016082003 ",.01)
  1. ;;58016082003
  1. ;;9002226.02101,"889,58016082003 ",.02)
  1. ;;58016082003
  1. ;;9002226.02101,"889,58016082004 ",.01)
  1. ;;58016082004
  1. ;;9002226.02101,"889,58016082004 ",.02)
  1. ;;58016082004
  1. ;;9002226.02101,"889,58016082005 ",.01)
  1. ;;58016082005
  1. ;;9002226.02101,"889,58016082005 ",.02)
  1. ;;58016082005
  1. ;;9002226.02101,"889,58016082006 ",.01)
  1. ;;58016082006
  1. ;;9002226.02101,"889,58016082006 ",.02)
  1. ;;58016082006
  1. ;;9002226.02101,"889,58016082007 ",.01)
  1. ;;58016082007
  1. ;;9002226.02101,"889,58016082007 ",.02)
  1. ;;58016082007
  1. ;;9002226.02101,"889,58016082008 ",.01)
  1. ;;58016082008
  1. ;;9002226.02101,"889,58016082008 ",.02)
  1. ;;58016082008
  1. ;;9002226.02101,"889,58016082009 ",.01)
  1. ;;58016082009
  1. ;;9002226.02101,"889,58016082009 ",.02)
  1. ;;58016082009
  1. ;;9002226.02101,"889,58016082010 ",.01)
  1. ;;58016082010
  1. ;;9002226.02101,"889,58016082010 ",.02)
  1. ;;58016082010
  1. ;;9002226.02101,"889,58016082012 ",.01)
  1. ;;58016082012
  1. ;;9002226.02101,"889,58016082012 ",.02)
  1. ;;58016082012