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