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

BGPM5AVY.m

Go to the documentation of this file.
  1. BGPM5AVY ;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,58016063409 ",.01)
  1. ;;58016063409
  1. ;;9002226.02101,"1033,58016063409 ",.02)
  1. ;;58016063409
  1. ;;9002226.02101,"1033,58016063410 ",.01)
  1. ;;58016063410
  1. ;;9002226.02101,"1033,58016063410 ",.02)
  1. ;;58016063410
  1. ;;9002226.02101,"1033,58016063412 ",.01)
  1. ;;58016063412
  1. ;;9002226.02101,"1033,58016063412 ",.02)
  1. ;;58016063412
  1. ;;9002226.02101,"1033,58016063414 ",.01)
  1. ;;58016063414
  1. ;;9002226.02101,"1033,58016063414 ",.02)
  1. ;;58016063414
  1. ;;9002226.02101,"1033,58016063415 ",.01)
  1. ;;58016063415
  1. ;;9002226.02101,"1033,58016063415 ",.02)
  1. ;;58016063415
  1. ;;9002226.02101,"1033,58016063416 ",.01)
  1. ;;58016063416
  1. ;;9002226.02101,"1033,58016063416 ",.02)
  1. ;;58016063416
  1. ;;9002226.02101,"1033,58016063418 ",.01)
  1. ;;58016063418
  1. ;;9002226.02101,"1033,58016063418 ",.02)
  1. ;;58016063418
  1. ;;9002226.02101,"1033,58016063420 ",.01)
  1. ;;58016063420
  1. ;;9002226.02101,"1033,58016063420 ",.02)
  1. ;;58016063420
  1. ;;9002226.02101,"1033,58016063421 ",.01)
  1. ;;58016063421
  1. ;;9002226.02101,"1033,58016063421 ",.02)
  1. ;;58016063421
  1. ;;9002226.02101,"1033,58016063424 ",.01)
  1. ;;58016063424
  1. ;;9002226.02101,"1033,58016063424 ",.02)
  1. ;;58016063424
  1. ;;9002226.02101,"1033,58016063425 ",.01)
  1. ;;58016063425
  1. ;;9002226.02101,"1033,58016063425 ",.02)
  1. ;;58016063425
  1. ;;9002226.02101,"1033,58016063426 ",.01)
  1. ;;58016063426
  1. ;;9002226.02101,"1033,58016063426 ",.02)
  1. ;;58016063426
  1. ;;9002226.02101,"1033,58016063427 ",.01)
  1. ;;58016063427
  1. ;;9002226.02101,"1033,58016063427 ",.02)
  1. ;;58016063427
  1. ;;9002226.02101,"1033,58016063428 ",.01)
  1. ;;58016063428
  1. ;;9002226.02101,"1033,58016063428 ",.02)
  1. ;;58016063428
  1. ;;9002226.02101,"1033,58016063430 ",.01)
  1. ;;58016063430
  1. ;;9002226.02101,"1033,58016063430 ",.02)
  1. ;;58016063430
  1. ;;9002226.02101,"1033,58016063432 ",.01)
  1. ;;58016063432
  1. ;;9002226.02101,"1033,58016063432 ",.02)
  1. ;;58016063432
  1. ;;9002226.02101,"1033,58016063435 ",.01)
  1. ;;58016063435
  1. ;;9002226.02101,"1033,58016063435 ",.02)
  1. ;;58016063435
  1. ;;9002226.02101,"1033,58016063436 ",.01)
  1. ;;58016063436
  1. ;;9002226.02101,"1033,58016063436 ",.02)
  1. ;;58016063436
  1. ;;9002226.02101,"1033,58016063440 ",.01)
  1. ;;58016063440
  1. ;;9002226.02101,"1033,58016063440 ",.02)
  1. ;;58016063440
  1. ;;9002226.02101,"1033,58016063442 ",.01)
  1. ;;58016063442
  1. ;;9002226.02101,"1033,58016063442 ",.02)
  1. ;;58016063442
  1. ;;9002226.02101,"1033,58016063444 ",.01)
  1. ;;58016063444
  1. ;;9002226.02101,"1033,58016063444 ",.02)
  1. ;;58016063444
  1. ;;9002226.02101,"1033,58016063445 ",.01)
  1. ;;58016063445
  1. ;;9002226.02101,"1033,58016063445 ",.02)
  1. ;;58016063445
  1. ;;9002226.02101,"1033,58016063448 ",.01)
  1. ;;58016063448
  1. ;;9002226.02101,"1033,58016063448 ",.02)
  1. ;;58016063448
  1. ;;9002226.02101,"1033,58016063450 ",.01)
  1. ;;58016063450
  1. ;;9002226.02101,"1033,58016063450 ",.02)
  1. ;;58016063450
  1. ;;9002226.02101,"1033,58016063456 ",.01)
  1. ;;58016063456
  1. ;;9002226.02101,"1033,58016063456 ",.02)
  1. ;;58016063456
  1. ;;9002226.02101,"1033,58016063460 ",.01)
  1. ;;58016063460
  1. ;;9002226.02101,"1033,58016063460 ",.02)
  1. ;;58016063460
  1. ;;9002226.02101,"1033,58016063467 ",.01)
  1. ;;58016063467
  1. ;;9002226.02101,"1033,58016063467 ",.02)
  1. ;;58016063467
  1. ;;9002226.02101,"1033,58016063469 ",.01)
  1. ;;58016063469
  1. ;;9002226.02101,"1033,58016063469 ",.02)
  1. ;;58016063469
  1. ;;9002226.02101,"1033,58016063470 ",.01)
  1. ;;58016063470
  1. ;;9002226.02101,"1033,58016063470 ",.02)
  1. ;;58016063470
  1. ;;9002226.02101,"1033,58016063471 ",.01)
  1. ;;58016063471
  1. ;;9002226.02101,"1033,58016063471 ",.02)
  1. ;;58016063471
  1. ;;9002226.02101,"1033,58016063472 ",.01)
  1. ;;58016063472
  1. ;;9002226.02101,"1033,58016063472 ",.02)
  1. ;;58016063472
  1. ;;9002226.02101,"1033,58016063473 ",.01)
  1. ;;58016063473
  1. ;;9002226.02101,"1033,58016063473 ",.02)
  1. ;;58016063473
  1. ;;9002226.02101,"1033,58016063475 ",.01)
  1. ;;58016063475
  1. ;;9002226.02101,"1033,58016063475 ",.02)
  1. ;;58016063475
  1. ;;9002226.02101,"1033,58016063476 ",.01)
  1. ;;58016063476
  1. ;;9002226.02101,"1033,58016063476 ",.02)
  1. ;;58016063476
  1. ;;9002226.02101,"1033,58016063477 ",.01)
  1. ;;58016063477
  1. ;;9002226.02101,"1033,58016063477 ",.02)
  1. ;;58016063477
  1. ;;9002226.02101,"1033,58016063479 ",.01)
  1. ;;58016063479
  1. ;;9002226.02101,"1033,58016063479 ",.02)
  1. ;;58016063479
  1. ;;9002226.02101,"1033,58016063480 ",.01)
  1. ;;58016063480
  1. ;;9002226.02101,"1033,58016063480 ",.02)
  1. ;;58016063480
  1. ;;9002226.02101,"1033,58016063481 ",.01)
  1. ;;58016063481
  1. ;;9002226.02101,"1033,58016063481 ",.02)
  1. ;;58016063481
  1. ;;9002226.02101,"1033,58016063482 ",.01)
  1. ;;58016063482
  1. ;;9002226.02101,"1033,58016063482 ",.02)
  1. ;;58016063482
  1. ;;9002226.02101,"1033,58016063483 ",.01)
  1. ;;58016063483
  1. ;;9002226.02101,"1033,58016063483 ",.02)
  1. ;;58016063483
  1. ;;9002226.02101,"1033,58016063484 ",.01)
  1. ;;58016063484
  1. ;;9002226.02101,"1033,58016063484 ",.02)
  1. ;;58016063484
  1. ;;9002226.02101,"1033,58016063487 ",.01)
  1. ;;58016063487
  1. ;;9002226.02101,"1033,58016063487 ",.02)
  1. ;;58016063487
  1. ;;9002226.02101,"1033,58016063489 ",.01)
  1. ;;58016063489
  1. ;;9002226.02101,"1033,58016063489 ",.02)
  1. ;;58016063489
  1. ;;9002226.02101,"1033,58016063490 ",.01)
  1. ;;58016063490
  1. ;;9002226.02101,"1033,58016063490 ",.02)
  1. ;;58016063490
  1. ;;9002226.02101,"1033,58016063491 ",.01)
  1. ;;58016063491
  1. ;;9002226.02101,"1033,58016063491 ",.02)
  1. ;;58016063491
  1. ;;9002226.02101,"1033,58016063492 ",.01)
  1. ;;58016063492
  1. ;;9002226.02101,"1033,58016063492 ",.02)
  1. ;;58016063492
  1. ;;9002226.02101,"1033,58016063493 ",.01)
  1. ;;58016063493
  1. ;;9002226.02101,"1033,58016063493 ",.02)
  1. ;;58016063493
  1. ;;9002226.02101,"1033,58016063496 ",.01)
  1. ;;58016063496
  1. ;;9002226.02101,"1033,58016063496 ",.02)
  1. ;;58016063496
  1. ;;9002226.02101,"1033,58016063497 ",.01)
  1. ;;58016063497
  1. ;;9002226.02101,"1033,58016063497 ",.02)
  1. ;;58016063497
  1. ;;9002226.02101,"1033,58016063498 ",.01)
  1. ;;58016063498
  1. ;;9002226.02101,"1033,58016063498 ",.02)
  1. ;;58016063498
  1. ;;9002226.02101,"1033,58016063499 ",.01)
  1. ;;58016063499
  1. ;;9002226.02101,"1033,58016063499 ",.02)
  1. ;;58016063499
  1. ;;9002226.02101,"1033,58016064300 ",.01)
  1. ;;58016064300
  1. ;;9002226.02101,"1033,58016064300 ",.02)
  1. ;;58016064300
  1. ;;9002226.02101,"1033,58016064301 ",.01)
  1. ;;58016064301
  1. ;;9002226.02101,"1033,58016064301 ",.02)
  1. ;;58016064301
  1. ;;9002226.02101,"1033,58016064302 ",.01)
  1. ;;58016064302
  1. ;;9002226.02101,"1033,58016064302 ",.02)
  1. ;;58016064302
  1. ;;9002226.02101,"1033,58016064303 ",.01)
  1. ;;58016064303
  1. ;;9002226.02101,"1033,58016064303 ",.02)
  1. ;;58016064303
  1. ;;9002226.02101,"1033,58016064304 ",.01)
  1. ;;58016064304
  1. ;;9002226.02101,"1033,58016064304 ",.02)
  1. ;;58016064304
  1. ;;9002226.02101,"1033,58016064305 ",.01)
  1. ;;58016064305
  1. ;;9002226.02101,"1033,58016064305 ",.02)
  1. ;;58016064305
  1. ;;9002226.02101,"1033,58016064306 ",.01)
  1. ;;58016064306
  1. ;;9002226.02101,"1033,58016064306 ",.02)
  1. ;;58016064306
  1. ;;9002226.02101,"1033,58016064307 ",.01)
  1. ;;58016064307
  1. ;;9002226.02101,"1033,58016064307 ",.02)
  1. ;;58016064307
  1. ;;9002226.02101,"1033,58016064308 ",.01)
  1. ;;58016064308
  1. ;;9002226.02101,"1033,58016064308 ",.02)
  1. ;;58016064308
  1. ;;9002226.02101,"1033,58016064309 ",.01)
  1. ;;58016064309
  1. ;;9002226.02101,"1033,58016064309 ",.02)
  1. ;;58016064309
  1. ;;9002226.02101,"1033,58016064310 ",.01)
  1. ;;58016064310
  1. ;;9002226.02101,"1033,58016064310 ",.02)
  1. ;;58016064310
  1. ;;9002226.02101,"1033,58016064312 ",.01)
  1. ;;58016064312
  1. ;;9002226.02101,"1033,58016064312 ",.02)
  1. ;;58016064312
  1. ;;9002226.02101,"1033,58016064314 ",.01)
  1. ;;58016064314
  1. ;;9002226.02101,"1033,58016064314 ",.02)
  1. ;;58016064314
  1. ;;9002226.02101,"1033,58016064315 ",.01)
  1. ;;58016064315
  1. ;;9002226.02101,"1033,58016064315 ",.02)
  1. ;;58016064315
  1. ;;9002226.02101,"1033,58016064316 ",.01)
  1. ;;58016064316
  1. ;;9002226.02101,"1033,58016064316 ",.02)
  1. ;;58016064316
  1. ;;9002226.02101,"1033,58016064318 ",.01)
  1. ;;58016064318
  1. ;;9002226.02101,"1033,58016064318 ",.02)
  1. ;;58016064318
  1. ;;9002226.02101,"1033,58016064320 ",.01)
  1. ;;58016064320
  1. ;;9002226.02101,"1033,58016064320 ",.02)
  1. ;;58016064320
  1. ;;9002226.02101,"1033,58016064321 ",.01)
  1. ;;58016064321
  1. ;;9002226.02101,"1033,58016064321 ",.02)
  1. ;;58016064321
  1. ;;9002226.02101,"1033,58016064324 ",.01)
  1. ;;58016064324
  1. ;;9002226.02101,"1033,58016064324 ",.02)
  1. ;;58016064324
  1. ;;9002226.02101,"1033,58016064325 ",.01)
  1. ;;58016064325
  1. ;;9002226.02101,"1033,58016064325 ",.02)
  1. ;;58016064325
  1. ;;9002226.02101,"1033,58016064326 ",.01)
  1. ;;58016064326
  1. ;;9002226.02101,"1033,58016064326 ",.02)
  1. ;;58016064326
  1. ;;9002226.02101,"1033,58016064327 ",.01)
  1. ;;58016064327
  1. ;;9002226.02101,"1033,58016064327 ",.02)
  1. ;;58016064327
  1. ;;9002226.02101,"1033,58016064328 ",.01)
  1. ;;58016064328
  1. ;;9002226.02101,"1033,58016064328 ",.02)
  1. ;;58016064328
  1. ;;9002226.02101,"1033,58016064330 ",.01)
  1. ;;58016064330
  1. ;;9002226.02101,"1033,58016064330 ",.02)
  1. ;;58016064330
  1. ;;9002226.02101,"1033,58016064332 ",.01)
  1. ;;58016064332
  1. ;;9002226.02101,"1033,58016064332 ",.02)
  1. ;;58016064332
  1. ;;9002226.02101,"1033,58016064335 ",.01)
  1. ;;58016064335
  1. ;;9002226.02101,"1033,58016064335 ",.02)
  1. ;;58016064335
  1. ;;9002226.02101,"1033,58016064336 ",.01)
  1. ;;58016064336
  1. ;;9002226.02101,"1033,58016064336 ",.02)
  1. ;;58016064336
  1. ;;9002226.02101,"1033,58016064340 ",.01)
  1. ;;58016064340
  1. ;;9002226.02101,"1033,58016064340 ",.02)
  1. ;;58016064340
  1. ;;9002226.02101,"1033,58016064342 ",.01)
  1. ;;58016064342
  1. ;;9002226.02101,"1033,58016064342 ",.02)
  1. ;;58016064342
  1. ;;9002226.02101,"1033,58016064344 ",.01)
  1. ;;58016064344
  1. ;;9002226.02101,"1033,58016064344 ",.02)
  1. ;;58016064344
  1. ;;9002226.02101,"1033,58016064345 ",.01)
  1. ;;58016064345
  1. ;;9002226.02101,"1033,58016064345 ",.02)
  1. ;;58016064345
  1. ;;9002226.02101,"1033,58016064348 ",.01)
  1. ;;58016064348
  1. ;;9002226.02101,"1033,58016064348 ",.02)
  1. ;;58016064348
  1. ;;9002226.02101,"1033,58016064350 ",.01)
  1. ;;58016064350
  1. ;;9002226.02101,"1033,58016064350 ",.02)
  1. ;;58016064350
  1. ;;9002226.02101,"1033,58016064356 ",.01)
  1. ;;58016064356
  1. ;;9002226.02101,"1033,58016064356 ",.02)
  1. ;;58016064356
  1. ;;9002226.02101,"1033,58016064360 ",.01)
  1. ;;58016064360
  1. ;;9002226.02101,"1033,58016064360 ",.02)
  1. ;;58016064360
  1. ;;9002226.02101,"1033,58016064367 ",.01)
  1. ;;58016064367
  1. ;;9002226.02101,"1033,58016064367 ",.02)
  1. ;;58016064367
  1. ;;9002226.02101,"1033,58016064369 ",.01)
  1. ;;58016064369
  1. ;;9002226.02101,"1033,58016064369 ",.02)
  1. ;;58016064369
  1. ;;9002226.02101,"1033,58016064370 ",.01)
  1. ;;58016064370
  1. ;;9002226.02101,"1033,58016064370 ",.02)
  1. ;;58016064370
  1. ;;9002226.02101,"1033,58016064371 ",.01)
  1. ;;58016064371
  1. ;;9002226.02101,"1033,58016064371 ",.02)
  1. ;;58016064371
  1. ;;9002226.02101,"1033,58016064372 ",.01)
  1. ;;58016064372
  1. ;;9002226.02101,"1033,58016064372 ",.02)
  1. ;;58016064372
  1. ;;9002226.02101,"1033,58016064373 ",.01)
  1. ;;58016064373
  1. ;;9002226.02101,"1033,58016064373 ",.02)
  1. ;;58016064373
  1. ;;9002226.02101,"1033,58016064375 ",.01)
  1. ;;58016064375
  1. ;;9002226.02101,"1033,58016064375 ",.02)
  1. ;;58016064375
  1. ;;9002226.02101,"1033,58016064376 ",.01)
  1. ;;58016064376
  1. ;;9002226.02101,"1033,58016064376 ",.02)
  1. ;;58016064376
  1. ;;9002226.02101,"1033,58016064377 ",.01)
  1. ;;58016064377
  1. ;;9002226.02101,"1033,58016064377 ",.02)
  1. ;;58016064377
  1. ;;9002226.02101,"1033,58016064379 ",.01)
  1. ;;58016064379
  1. ;;9002226.02101,"1033,58016064379 ",.02)
  1. ;;58016064379
  1. ;;9002226.02101,"1033,58016064380 ",.01)
  1. ;;58016064380
  1. ;;9002226.02101,"1033,58016064380 ",.02)
  1. ;;58016064380
  1. ;;9002226.02101,"1033,58016064381 ",.01)
  1. ;;58016064381
  1. ;;9002226.02101,"1033,58016064381 ",.02)
  1. ;;58016064381
  1. ;;9002226.02101,"1033,58016064382 ",.01)
  1. ;;58016064382
  1. ;;9002226.02101,"1033,58016064382 ",.02)
  1. ;;58016064382
  1. ;;9002226.02101,"1033,58016064383 ",.01)
  1. ;;58016064383
  1. ;;9002226.02101,"1033,58016064383 ",.02)
  1. ;;58016064383
  1. ;;9002226.02101,"1033,58016064384 ",.01)
  1. ;;58016064384