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

BGPM5AVZ.m

Go to the documentation of this file.
  1. BGPM5AVZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016064384 ",.02)
  1. ;;58016064384
  1. ;;9002226.02101,"1033,58016064387 ",.01)
  1. ;;58016064387
  1. ;;9002226.02101,"1033,58016064387 ",.02)
  1. ;;58016064387
  1. ;;9002226.02101,"1033,58016064389 ",.01)
  1. ;;58016064389
  1. ;;9002226.02101,"1033,58016064389 ",.02)
  1. ;;58016064389
  1. ;;9002226.02101,"1033,58016064390 ",.01)
  1. ;;58016064390
  1. ;;9002226.02101,"1033,58016064390 ",.02)
  1. ;;58016064390
  1. ;;9002226.02101,"1033,58016064391 ",.01)
  1. ;;58016064391
  1. ;;9002226.02101,"1033,58016064391 ",.02)
  1. ;;58016064391
  1. ;;9002226.02101,"1033,58016064392 ",.01)
  1. ;;58016064392
  1. ;;9002226.02101,"1033,58016064392 ",.02)
  1. ;;58016064392
  1. ;;9002226.02101,"1033,58016064393 ",.01)
  1. ;;58016064393
  1. ;;9002226.02101,"1033,58016064393 ",.02)
  1. ;;58016064393
  1. ;;9002226.02101,"1033,58016064396 ",.01)
  1. ;;58016064396
  1. ;;9002226.02101,"1033,58016064396 ",.02)
  1. ;;58016064396
  1. ;;9002226.02101,"1033,58016064397 ",.01)
  1. ;;58016064397
  1. ;;9002226.02101,"1033,58016064397 ",.02)
  1. ;;58016064397
  1. ;;9002226.02101,"1033,58016064398 ",.01)
  1. ;;58016064398
  1. ;;9002226.02101,"1033,58016064398 ",.02)
  1. ;;58016064398
  1. ;;9002226.02101,"1033,58016064399 ",.01)
  1. ;;58016064399
  1. ;;9002226.02101,"1033,58016064399 ",.02)
  1. ;;58016064399
  1. ;;9002226.02101,"1033,58016087200 ",.01)
  1. ;;58016087200
  1. ;;9002226.02101,"1033,58016087200 ",.02)
  1. ;;58016087200
  1. ;;9002226.02101,"1033,58016087201 ",.01)
  1. ;;58016087201
  1. ;;9002226.02101,"1033,58016087201 ",.02)
  1. ;;58016087201
  1. ;;9002226.02101,"1033,58016087202 ",.01)
  1. ;;58016087202
  1. ;;9002226.02101,"1033,58016087202 ",.02)
  1. ;;58016087202
  1. ;;9002226.02101,"1033,58016087203 ",.01)
  1. ;;58016087203
  1. ;;9002226.02101,"1033,58016087203 ",.02)
  1. ;;58016087203
  1. ;;9002226.02101,"1033,58016087204 ",.01)
  1. ;;58016087204
  1. ;;9002226.02101,"1033,58016087204 ",.02)
  1. ;;58016087204
  1. ;;9002226.02101,"1033,58016087205 ",.01)
  1. ;;58016087205
  1. ;;9002226.02101,"1033,58016087205 ",.02)
  1. ;;58016087205
  1. ;;9002226.02101,"1033,58016087206 ",.01)
  1. ;;58016087206
  1. ;;9002226.02101,"1033,58016087206 ",.02)
  1. ;;58016087206
  1. ;;9002226.02101,"1033,58016087207 ",.01)
  1. ;;58016087207
  1. ;;9002226.02101,"1033,58016087207 ",.02)
  1. ;;58016087207
  1. ;;9002226.02101,"1033,58016087208 ",.01)
  1. ;;58016087208
  1. ;;9002226.02101,"1033,58016087208 ",.02)
  1. ;;58016087208
  1. ;;9002226.02101,"1033,58016087209 ",.01)
  1. ;;58016087209
  1. ;;9002226.02101,"1033,58016087209 ",.02)
  1. ;;58016087209
  1. ;;9002226.02101,"1033,58016087210 ",.01)
  1. ;;58016087210
  1. ;;9002226.02101,"1033,58016087210 ",.02)
  1. ;;58016087210
  1. ;;9002226.02101,"1033,58016087212 ",.01)
  1. ;;58016087212
  1. ;;9002226.02101,"1033,58016087212 ",.02)
  1. ;;58016087212
  1. ;;9002226.02101,"1033,58016087214 ",.01)
  1. ;;58016087214
  1. ;;9002226.02101,"1033,58016087214 ",.02)
  1. ;;58016087214
  1. ;;9002226.02101,"1033,58016087215 ",.01)
  1. ;;58016087215
  1. ;;9002226.02101,"1033,58016087215 ",.02)
  1. ;;58016087215
  1. ;;9002226.02101,"1033,58016087216 ",.01)
  1. ;;58016087216
  1. ;;9002226.02101,"1033,58016087216 ",.02)
  1. ;;58016087216
  1. ;;9002226.02101,"1033,58016087218 ",.01)
  1. ;;58016087218
  1. ;;9002226.02101,"1033,58016087218 ",.02)
  1. ;;58016087218
  1. ;;9002226.02101,"1033,58016087220 ",.01)
  1. ;;58016087220
  1. ;;9002226.02101,"1033,58016087220 ",.02)
  1. ;;58016087220
  1. ;;9002226.02101,"1033,58016087221 ",.01)
  1. ;;58016087221
  1. ;;9002226.02101,"1033,58016087221 ",.02)
  1. ;;58016087221
  1. ;;9002226.02101,"1033,58016087224 ",.01)
  1. ;;58016087224
  1. ;;9002226.02101,"1033,58016087224 ",.02)
  1. ;;58016087224
  1. ;;9002226.02101,"1033,58016087225 ",.01)
  1. ;;58016087225
  1. ;;9002226.02101,"1033,58016087225 ",.02)
  1. ;;58016087225
  1. ;;9002226.02101,"1033,58016087226 ",.01)
  1. ;;58016087226
  1. ;;9002226.02101,"1033,58016087226 ",.02)
  1. ;;58016087226
  1. ;;9002226.02101,"1033,58016087227 ",.01)
  1. ;;58016087227
  1. ;;9002226.02101,"1033,58016087227 ",.02)
  1. ;;58016087227
  1. ;;9002226.02101,"1033,58016087228 ",.01)
  1. ;;58016087228
  1. ;;9002226.02101,"1033,58016087228 ",.02)
  1. ;;58016087228
  1. ;;9002226.02101,"1033,58016087230 ",.01)
  1. ;;58016087230
  1. ;;9002226.02101,"1033,58016087230 ",.02)
  1. ;;58016087230
  1. ;;9002226.02101,"1033,58016087232 ",.01)
  1. ;;58016087232
  1. ;;9002226.02101,"1033,58016087232 ",.02)
  1. ;;58016087232
  1. ;;9002226.02101,"1033,58016087235 ",.01)
  1. ;;58016087235
  1. ;;9002226.02101,"1033,58016087235 ",.02)
  1. ;;58016087235
  1. ;;9002226.02101,"1033,58016087236 ",.01)
  1. ;;58016087236
  1. ;;9002226.02101,"1033,58016087236 ",.02)
  1. ;;58016087236
  1. ;;9002226.02101,"1033,58016087240 ",.01)
  1. ;;58016087240
  1. ;;9002226.02101,"1033,58016087240 ",.02)
  1. ;;58016087240
  1. ;;9002226.02101,"1033,58016087242 ",.01)
  1. ;;58016087242
  1. ;;9002226.02101,"1033,58016087242 ",.02)
  1. ;;58016087242
  1. ;;9002226.02101,"1033,58016087244 ",.01)
  1. ;;58016087244
  1. ;;9002226.02101,"1033,58016087244 ",.02)
  1. ;;58016087244
  1. ;;9002226.02101,"1033,58016087245 ",.01)
  1. ;;58016087245
  1. ;;9002226.02101,"1033,58016087245 ",.02)
  1. ;;58016087245
  1. ;;9002226.02101,"1033,58016087248 ",.01)
  1. ;;58016087248
  1. ;;9002226.02101,"1033,58016087248 ",.02)
  1. ;;58016087248
  1. ;;9002226.02101,"1033,58016087250 ",.01)
  1. ;;58016087250
  1. ;;9002226.02101,"1033,58016087250 ",.02)
  1. ;;58016087250
  1. ;;9002226.02101,"1033,58016087256 ",.01)
  1. ;;58016087256
  1. ;;9002226.02101,"1033,58016087256 ",.02)
  1. ;;58016087256
  1. ;;9002226.02101,"1033,58016087260 ",.01)
  1. ;;58016087260
  1. ;;9002226.02101,"1033,58016087260 ",.02)
  1. ;;58016087260
  1. ;;9002226.02101,"1033,58016087267 ",.01)
  1. ;;58016087267
  1. ;;9002226.02101,"1033,58016087267 ",.02)
  1. ;;58016087267
  1. ;;9002226.02101,"1033,58016087269 ",.01)
  1. ;;58016087269
  1. ;;9002226.02101,"1033,58016087269 ",.02)
  1. ;;58016087269
  1. ;;9002226.02101,"1033,58016087270 ",.01)
  1. ;;58016087270
  1. ;;9002226.02101,"1033,58016087270 ",.02)
  1. ;;58016087270
  1. ;;9002226.02101,"1033,58016087271 ",.01)
  1. ;;58016087271
  1. ;;9002226.02101,"1033,58016087271 ",.02)
  1. ;;58016087271
  1. ;;9002226.02101,"1033,58016087272 ",.01)
  1. ;;58016087272
  1. ;;9002226.02101,"1033,58016087272 ",.02)
  1. ;;58016087272
  1. ;;9002226.02101,"1033,58016087273 ",.01)
  1. ;;58016087273
  1. ;;9002226.02101,"1033,58016087273 ",.02)
  1. ;;58016087273
  1. ;;9002226.02101,"1033,58016087275 ",.01)
  1. ;;58016087275
  1. ;;9002226.02101,"1033,58016087275 ",.02)
  1. ;;58016087275
  1. ;;9002226.02101,"1033,58016087276 ",.01)
  1. ;;58016087276
  1. ;;9002226.02101,"1033,58016087276 ",.02)
  1. ;;58016087276
  1. ;;9002226.02101,"1033,58016087277 ",.01)
  1. ;;58016087277
  1. ;;9002226.02101,"1033,58016087277 ",.02)
  1. ;;58016087277
  1. ;;9002226.02101,"1033,58016087279 ",.01)
  1. ;;58016087279
  1. ;;9002226.02101,"1033,58016087279 ",.02)
  1. ;;58016087279
  1. ;;9002226.02101,"1033,58016087280 ",.01)
  1. ;;58016087280
  1. ;;9002226.02101,"1033,58016087280 ",.02)
  1. ;;58016087280
  1. ;;9002226.02101,"1033,58016087281 ",.01)
  1. ;;58016087281
  1. ;;9002226.02101,"1033,58016087281 ",.02)
  1. ;;58016087281
  1. ;;9002226.02101,"1033,58016087282 ",.01)
  1. ;;58016087282
  1. ;;9002226.02101,"1033,58016087282 ",.02)
  1. ;;58016087282
  1. ;;9002226.02101,"1033,58016087283 ",.01)
  1. ;;58016087283
  1. ;;9002226.02101,"1033,58016087283 ",.02)
  1. ;;58016087283
  1. ;;9002226.02101,"1033,58016087284 ",.01)
  1. ;;58016087284
  1. ;;9002226.02101,"1033,58016087284 ",.02)
  1. ;;58016087284
  1. ;;9002226.02101,"1033,58016087287 ",.01)
  1. ;;58016087287
  1. ;;9002226.02101,"1033,58016087287 ",.02)
  1. ;;58016087287
  1. ;;9002226.02101,"1033,58016087289 ",.01)
  1. ;;58016087289
  1. ;;9002226.02101,"1033,58016087289 ",.02)
  1. ;;58016087289
  1. ;;9002226.02101,"1033,58016087290 ",.01)
  1. ;;58016087290
  1. ;;9002226.02101,"1033,58016087290 ",.02)
  1. ;;58016087290
  1. ;;9002226.02101,"1033,58016087291 ",.01)
  1. ;;58016087291
  1. ;;9002226.02101,"1033,58016087291 ",.02)
  1. ;;58016087291
  1. ;;9002226.02101,"1033,58016087292 ",.01)
  1. ;;58016087292
  1. ;;9002226.02101,"1033,58016087292 ",.02)
  1. ;;58016087292
  1. ;;9002226.02101,"1033,58016087293 ",.01)
  1. ;;58016087293
  1. ;;9002226.02101,"1033,58016087293 ",.02)
  1. ;;58016087293
  1. ;;9002226.02101,"1033,58016087296 ",.01)
  1. ;;58016087296
  1. ;;9002226.02101,"1033,58016087296 ",.02)
  1. ;;58016087296
  1. ;;9002226.02101,"1033,58016087297 ",.01)
  1. ;;58016087297
  1. ;;9002226.02101,"1033,58016087297 ",.02)
  1. ;;58016087297
  1. ;;9002226.02101,"1033,58016087298 ",.01)
  1. ;;58016087298
  1. ;;9002226.02101,"1033,58016087298 ",.02)
  1. ;;58016087298
  1. ;;9002226.02101,"1033,58016087299 ",.01)
  1. ;;58016087299
  1. ;;9002226.02101,"1033,58016087299 ",.02)
  1. ;;58016087299
  1. ;;9002226.02101,"1033,58016087300 ",.01)
  1. ;;58016087300
  1. ;;9002226.02101,"1033,58016087300 ",.02)
  1. ;;58016087300
  1. ;;9002226.02101,"1033,58016087315 ",.01)
  1. ;;58016087315
  1. ;;9002226.02101,"1033,58016087315 ",.02)
  1. ;;58016087315
  1. ;;9002226.02101,"1033,58016087320 ",.01)
  1. ;;58016087320
  1. ;;9002226.02101,"1033,58016087320 ",.02)
  1. ;;58016087320
  1. ;;9002226.02101,"1033,58016087330 ",.01)
  1. ;;58016087330
  1. ;;9002226.02101,"1033,58016087330 ",.02)
  1. ;;58016087330
  1. ;;9002226.02101,"1033,58016088400 ",.01)
  1. ;;58016088400
  1. ;;9002226.02101,"1033,58016088400 ",.02)
  1. ;;58016088400
  1. ;;9002226.02101,"1033,58016088401 ",.01)
  1. ;;58016088401
  1. ;;9002226.02101,"1033,58016088401 ",.02)
  1. ;;58016088401
  1. ;;9002226.02101,"1033,58016088402 ",.01)
  1. ;;58016088402
  1. ;;9002226.02101,"1033,58016088402 ",.02)
  1. ;;58016088402
  1. ;;9002226.02101,"1033,58016088403 ",.01)
  1. ;;58016088403
  1. ;;9002226.02101,"1033,58016088403 ",.02)
  1. ;;58016088403
  1. ;;9002226.02101,"1033,58016088404 ",.01)
  1. ;;58016088404
  1. ;;9002226.02101,"1033,58016088404 ",.02)
  1. ;;58016088404
  1. ;;9002226.02101,"1033,58016088405 ",.01)
  1. ;;58016088405
  1. ;;9002226.02101,"1033,58016088405 ",.02)
  1. ;;58016088405
  1. ;;9002226.02101,"1033,58016088406 ",.01)
  1. ;;58016088406
  1. ;;9002226.02101,"1033,58016088406 ",.02)
  1. ;;58016088406
  1. ;;9002226.02101,"1033,58016088407 ",.01)
  1. ;;58016088407
  1. ;;9002226.02101,"1033,58016088407 ",.02)
  1. ;;58016088407
  1. ;;9002226.02101,"1033,58016088408 ",.01)
  1. ;;58016088408
  1. ;;9002226.02101,"1033,58016088408 ",.02)
  1. ;;58016088408
  1. ;;9002226.02101,"1033,58016088409 ",.01)
  1. ;;58016088409
  1. ;;9002226.02101,"1033,58016088409 ",.02)
  1. ;;58016088409
  1. ;;9002226.02101,"1033,58016088410 ",.01)
  1. ;;58016088410
  1. ;;9002226.02101,"1033,58016088410 ",.02)
  1. ;;58016088410
  1. ;;9002226.02101,"1033,58016088412 ",.01)
  1. ;;58016088412
  1. ;;9002226.02101,"1033,58016088412 ",.02)
  1. ;;58016088412
  1. ;;9002226.02101,"1033,58016088414 ",.01)
  1. ;;58016088414
  1. ;;9002226.02101,"1033,58016088414 ",.02)
  1. ;;58016088414
  1. ;;9002226.02101,"1033,58016088415 ",.01)
  1. ;;58016088415
  1. ;;9002226.02101,"1033,58016088415 ",.02)
  1. ;;58016088415
  1. ;;9002226.02101,"1033,58016088416 ",.01)
  1. ;;58016088416
  1. ;;9002226.02101,"1033,58016088416 ",.02)
  1. ;;58016088416
  1. ;;9002226.02101,"1033,58016088418 ",.01)
  1. ;;58016088418
  1. ;;9002226.02101,"1033,58016088418 ",.02)
  1. ;;58016088418
  1. ;;9002226.02101,"1033,58016088420 ",.01)
  1. ;;58016088420
  1. ;;9002226.02101,"1033,58016088420 ",.02)
  1. ;;58016088420
  1. ;;9002226.02101,"1033,58016088421 ",.01)
  1. ;;58016088421
  1. ;;9002226.02101,"1033,58016088421 ",.02)
  1. ;;58016088421
  1. ;;9002226.02101,"1033,58016088424 ",.01)
  1. ;;58016088424
  1. ;;9002226.02101,"1033,58016088424 ",.02)
  1. ;;58016088424
  1. ;;9002226.02101,"1033,58016088425 ",.01)
  1. ;;58016088425
  1. ;;9002226.02101,"1033,58016088425 ",.02)
  1. ;;58016088425
  1. ;;9002226.02101,"1033,58016088426 ",.01)
  1. ;;58016088426
  1. ;;9002226.02101,"1033,58016088426 ",.02)
  1. ;;58016088426
  1. ;;9002226.02101,"1033,58016088427 ",.01)
  1. ;;58016088427
  1. ;;9002226.02101,"1033,58016088427 ",.02)
  1. ;;58016088427
  1. ;;9002226.02101,"1033,58016088428 ",.01)
  1. ;;58016088428
  1. ;;9002226.02101,"1033,58016088428 ",.02)
  1. ;;58016088428
  1. ;;9002226.02101,"1033,58016088430 ",.01)
  1. ;;58016088430
  1. ;;9002226.02101,"1033,58016088430 ",.02)
  1. ;;58016088430
  1. ;;9002226.02101,"1033,58016088432 ",.01)
  1. ;;58016088432
  1. ;;9002226.02101,"1033,58016088432 ",.02)
  1. ;;58016088432
  1. ;;9002226.02101,"1033,58016088435 ",.01)
  1. ;;58016088435
  1. ;;9002226.02101,"1033,58016088435 ",.02)
  1. ;;58016088435