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

BGPM5AZT.m

Go to the documentation of this file.
BGPM5AZT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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)
 ;;21,"00480096001 ")
 ;;7315
 ;;21,"00480104201 ")
 ;;7316
 ;;21,"00480104301 ")
 ;;7317
 ;;21,"00480711456 ")
 ;;7318
 ;;21,"00480711498 ")
 ;;7319
 ;;21,"00480711556 ")
 ;;7320
 ;;21,"00480711598 ")
 ;;7321
 ;;21,"00480711656 ")
 ;;7322
 ;;21,"00480711698 ")
 ;;7323
 ;;21,"00480712156 ")
 ;;7324
 ;;21,"00480712198 ")
 ;;7325
 ;;21,"00480717510 ")
 ;;7326
 ;;21,"00480717556 ")
 ;;7327
 ;;21,"00480717599 ")
 ;;7328
 ;;21,"00480717610 ")
 ;;7329
 ;;21,"00480717656 ")
 ;;7330
 ;;21,"00480717699 ")
 ;;7331
 ;;21,"00480717710 ")
 ;;7332
 ;;21,"00480717756 ")
 ;;7333
 ;;21,"00480717799 ")
 ;;7334
 ;;21,"00480718356 ")
 ;;7335
 ;;21,"00480718398 ")
 ;;7336
 ;;21,"00480718456 ")
 ;;7337
 ;;21,"00480718498 ")
 ;;7338
 ;;21,"00480718810 ")
 ;;7339
 ;;21,"00480718856 ")
 ;;7340
 ;;21,"00480719856 ")
 ;;7341
 ;;21,"00480720656 ")
 ;;7342
 ;;21,"00480720756 ")
 ;;7343
 ;;21,"00480720856 ")
 ;;7344
 ;;21,"00480730318 ")
 ;;7345
 ;;21,"00480730365 ")
 ;;7346
 ;;21,"00480730418 ")
 ;;7347
 ;;21,"00480730465 ")
 ;;7348
 ;;21,"00480730502 ")
 ;;7349
 ;;21,"00480730565 ")
 ;;7350
 ;;21,"00480738001 ")
 ;;7351
 ;;21,"00480738101 ")
 ;;7352
 ;;21,"00480738201 ")
 ;;7353
 ;;21,"00480738301 ")
 ;;7354
 ;;21,"00480751556 ")
 ;;7355
 ;;21,"00480751598 ")
 ;;7356
 ;;21,"00490011400 ")
 ;;7357
 ;;21,"00490011401 ")
 ;;7358
 ;;21,"00490011402 ")
 ;;7359
 ;;21,"00490011403 ")
 ;;7360
 ;;21,"00490011404 ")
 ;;7361
 ;;21,"00490011405 ")
 ;;7362
 ;;21,"00490011430 ")
 ;;7363
 ;;21,"00490011460 ")
 ;;7364
 ;;21,"00490011490 ")
 ;;7365
 ;;21,"00490703400 ")
 ;;7366
 ;;21,"00490703401 ")
 ;;7367
 ;;21,"00490703402 ")
 ;;7368
 ;;21,"00490703403 ")
 ;;7369
 ;;21,"00490703404 ")
 ;;7370
 ;;21,"00490703405 ")
 ;;7371
 ;;21,"00490703406 ")
 ;;7372
 ;;21,"00490703407 ")
 ;;7373
 ;;21,"00490703408 ")
 ;;7374
 ;;21,"00490703409 ")
 ;;7375
 ;;21,"00490703410 ")
 ;;7376
 ;;21,"00490703412 ")
 ;;7377
 ;;21,"00490703414 ")
 ;;7378
 ;;21,"00490703415 ")
 ;;7379
 ;;21,"00490703416 ")
 ;;7380
 ;;21,"00490703418 ")
 ;;7381
 ;;21,"00490703420 ")
 ;;7382
 ;;21,"00490703421 ")
 ;;7383
 ;;21,"00490703424 ")
 ;;7384
 ;;21,"00490703425 ")
 ;;7385
 ;;21,"00490703426 ")
 ;;7386
 ;;21,"00490703427 ")
 ;;7387
 ;;21,"00490703428 ")
 ;;7388
 ;;21,"00490703430 ")
 ;;7389
 ;;21,"00490703432 ")
 ;;7390
 ;;21,"00490703435 ")
 ;;7391
 ;;21,"00490703436 ")
 ;;7392
 ;;21,"00490703440 ")
 ;;7393
 ;;21,"00490703442 ")
 ;;7394
 ;;21,"00490703444 ")
 ;;7395
 ;;21,"00490703445 ")
 ;;7396
 ;;21,"00490703448 ")
 ;;7397
 ;;21,"00490703450 ")
 ;;7398
 ;;21,"00490703456 ")
 ;;7399
 ;;21,"00490703460 ")
 ;;7400
 ;;21,"00490703467 ")
 ;;7401
 ;;21,"00490703469 ")
 ;;7402
 ;;21,"00490703470 ")
 ;;7403
 ;;21,"00490703471 ")
 ;;7404
 ;;21,"00490703472 ")
 ;;7405
 ;;21,"00490703473 ")
 ;;7406
 ;;21,"00490703475 ")
 ;;7407
 ;;21,"00490703476 ")
 ;;7408
 ;;21,"00490703477 ")
 ;;7409
 ;;21,"00490703479 ")
 ;;7410
 ;;21,"00490703480 ")
 ;;7411
 ;;21,"00490703481 ")
 ;;7412
 ;;21,"00490703482 ")
 ;;7413
 ;;21,"00490703483 ")
 ;;7414
 ;;21,"00490703484 ")
 ;;7415
 ;;21,"00490703487 ")
 ;;7416
 ;;21,"00490703489 ")
 ;;7417
 ;;21,"00490703490 ")
 ;;7418
 ;;21,"00490703491 ")
 ;;7419
 ;;21,"00490703492 ")
 ;;7420
 ;;21,"00490703493 ")
 ;;7421
 ;;21,"00490703496 ")
 ;;7422
 ;;21,"00490703497 ")
 ;;7423
 ;;21,"00490703498 ")
 ;;7424
 ;;21,"00490703499 ")
 ;;7425
 ;;21,"00555020101 ")
 ;;7426
 ;;21,"00555020102 ")
 ;;7427
 ;;21,"00555020104 ")
 ;;7428
 ;;21,"00555020110 ")
 ;;7429
 ;;21,"00555024171 ")
 ;;7430
 ;;21,"00555024271 ")
 ;;7431
 ;;21,"00555048902 ")
 ;;7432
 ;;21,"00555048904 ")
 ;;7433
 ;;21,"00555048905 ")
 ;;7434
 ;;21,"00555049002 ")
 ;;7435
 ;;21,"00555049004 ")
 ;;7436
 ;;21,"00555049005 ")
 ;;7437
 ;;21,"00555059402 ")
 ;;7438
 ;;21,"00555059502 ")
 ;;7439
 ;;21,"00555073202 ")
 ;;7440
 ;;21,"00555073204 ")
 ;;7441
 ;;21,"00555073302 ")
 ;;7442
 ;;21,"00555087154 ")
 ;;7443
 ;;21,"00555087188 ")
 ;;7444
 ;;21,"00555087601 ")
 ;;7445
 ;;21,"00555087602 ")
 ;;7446
 ;;21,"00555087607 ")
 ;;7447
 ;;21,"00555087701 ")
 ;;7448
 ;;21,"00555087702 ")
 ;;7449
 ;;21,"00555087704 ")
 ;;7450
 ;;21,"00555087705 ")
 ;;7451
 ;;21,"00555087707 ")
 ;;7452
 ;;21,"00555096701 ")
 ;;7453
 ;;21,"00555096702 ")
 ;;7454
 ;;21,"00555096801 ")
 ;;7455
 ;;21,"00555096802 ")
 ;;7456
 ;;21,"00555096805 ")
 ;;7457
 ;;21,"00555096901 ")
 ;;7458
 ;;21,"00555096902 ")
 ;;7459
 ;;21,"00555096905 ")
 ;;7460
 ;;21,"00555724371 ")
 ;;7461
 ;;21,"00591111701 ")
 ;;7462
 ;;21,"00591111705 ")
 ;;7463
 ;;21,"00591111710 ")
 ;;7464
 ;;21,"00591111730 ")
 ;;7465
 ;;21,"00591111801 ")
 ;;7466
 ;;21,"00591111805 ")
 ;;7467
 ;;21,"00591111810 ")
 ;;7468
 ;;21,"00591111830 ")
 ;;7469
 ;;21,"00591111901 ")
 ;;7470
 ;;21,"00591111905 ")
 ;;7471
 ;;21,"00591111910 ")
 ;;7472
 ;;21,"00591111930 ")
 ;;7473
 ;;21,"00591223015 ")
 ;;7474
 ;;21,"00591223115 ")
 ;;7475
 ;;21,"00591317601 ")
 ;;7476
 ;;21,"00591317605 ")
 ;;7477
 ;;21,"00591317701 ")
 ;;7478
 ;;21,"00591317705 ")
 ;;7479
 ;;21,"00591317744 ")
 ;;7480
 ;;21,"00591317801 ")
 ;;7481
 ;;21,"00591317805 ")
 ;;7482
 ;;21,"00591317844 ")
 ;;7483
 ;;21,"00591323819 ")
 ;;7484
 ;;21,"00591323830 ")
 ;;7485
 ;;21,"00591323910 ")
 ;;7486
 ;;21,"00591323919 ")
 ;;7487
 ;;21,"00591323930 ")
 ;;7488
 ;;21,"00591324010 ")
 ;;7489
 ;;21,"00591324019 ")
 ;;7490
 ;;21,"00591324030 ")
 ;;7491
 ;;21,"00591559901 ")
 ;;7492
 ;;21,"00591559910 ")
 ;;7493
 ;;21,"00591560001 ")
 ;;7494
 ;;21,"00591560010 ")
 ;;7495
 ;;21,"00591571301 ")
 ;;7496
 ;;21,"00591571401 ")
 ;;7497
 ;;21,"00591571501 ")
 ;;7498
 ;;21,"00591571630 ")
 ;;7499
 ;;21,"00591578600 ")
 ;;7500
 ;;21,"00591578601 ")
 ;;7501
 ;;21,"00591578605 ")
 ;;7502
 ;;21,"00591578700 ")
 ;;7503
 ;;21,"00591578701 ")
 ;;7504
 ;;21,"00591578705 ")
 ;;7505
 ;;21,"00591578710 ")
 ;;7506
 ;;21,"00591578800 ")
 ;;7507
 ;;21,"00591578801 ")
 ;;7508
 ;;21,"00591578805 ")
 ;;7509
 ;;21,"00591578900 ")
 ;;7510
 ;;21,"00591578901 ")
 ;;7511
 ;;21,"00603221202 ")
 ;;7512
 ;;21,"00603221216 ")
 ;;7513
 ;;21,"00603221220 ")
 ;;7514
 ;;21,"00603221221 ")
 ;;7515
 ;;21,"00603221232 ")
 ;;7516
 ;;21,"00603221302 ")
 ;;7517
 ;;21,"00603221316 ")
 ;;7518
 ;;21,"00603221320 ")
 ;;7519
 ;;21,"00603221321 ")
 ;;7520
 ;;21,"00603221330 ")
 ;;7521
 ;;21,"00603221332 ")
 ;;7522
 ;;21,"00603221402 ")
 ;;7523
 ;;21,"00603221416 ")
 ;;7524
 ;;21,"00603221420 ")
 ;;7525
 ;;21,"00603221421 ")
 ;;7526
 ;;21,"00603221432 ")
 ;;7527
 ;;21,"00603221502 ")
 ;;7528
 ;;21,"00603221516 ")
 ;;7529
 ;;21,"00603221520 ")
 ;;7530
 ;;21,"00603221521 ")
 ;;7531
 ;;21,"00603221532 ")
 ;;7532
 ;;21,"00603221602 ")
 ;;7533
 ;;21,"00603221616 ")
 ;;7534
 ;;21,"00603221620 ")
 ;;7535
 ;;21,"00603221621 ")
 ;;7536
 ;;21,"00603221632 ")
 ;;7537
 ;;21,"00603221702 ")
 ;;7538
 ;;21,"00603221716 ")
 ;;7539
 ;;21,"00603221720 ")
 ;;7540
 ;;21,"00603221721 ")
 ;;7541
 ;;21,"00603221732 ")
 ;;7542
 ;;21,"00603269021 ")
 ;;7543
 ;;21,"00603269028 ")
 ;;7544
 ;;21,"00603269121 ")
 ;;7545
 ;;21,"00603269128 ")
 ;;7546
 ;;21,"00603404321 ")
 ;;7547
 ;;21,"00603404332 ")
 ;;7548
 ;;21,"00603404421 ")
 ;;7549
 ;;21,"00603404432 ")
 ;;7550
 ;;21,"00603404521 ")
 ;;7551
 ;;21,"00603404532 ")
 ;;7552
 ;;21,"00603553121 ")
 ;;7553
 ;;21,"00603553221 ")
 ;;7554
 ;;21,"00603614421 ")
 ;;7555
 ;;21,"00603614428 ")
 ;;7556
 ;;21,"00603614521 ")
 ;;7557
 ;;21,"00603614528 ")
 ;;7558
 ;;21,"00603614621 ")
 ;;7559
 ;;21,"00603614721 ")
 ;;7560
 ;;21,"00603614732 ")
 ;;7561
 ;;21,"00603614821 ")
 ;;7562
 ;;21,"00603614832 ")
 ;;7563
 ;;21,"00603614910 ")
 ;;7564
 ;;21,"00603614921 ")
 ;;7565
 ;;21,"00603614932 ")
 ;;7566
 ;;21,"00603615010 ")
 ;;7567
 ;;21,"00603615016 ")
 ;;7568
 ;;21,"00603615021 ")
 ;;7569
 ;;21,"00603615025 ")
 ;;7570
 ;;21,"00603615032 ")
 ;;7571
 ;;21,"00603615110 ")
 ;;7572
 ;;21,"00603615121 ")
 ;;7573
 ;;21,"00603615125 ")
 ;;7574
 ;;21,"00603615132 ")
 ;;7575
 ;;21,"00603615610 ")
 ;;7576
 ;;21,"00603615621 ")
 ;;7577
 ;;21,"00603615632 ")
 ;;7578
 ;;21,"00603615710 ")
 ;;7579
 ;;21,"00603615721 ")
 ;;7580
 ;;21,"00603615725 ")
 ;;7581
 ;;21,"00603615732 ")
 ;;7582
 ;;21,"00603616021 ")
 ;;7583
 ;;21,"00603616028 ")
 ;;7584
 ;;21,"00603616032 ")
 ;;7585
 ;;21,"00603616121 ")
 ;;7586
 ;;21,"00603616128 ")
 ;;7587
 ;;21,"00603616132 ")
 ;;7588
 ;;21,"00615082839 ")
 ;;7589
 ;;21,"00615082939 ")
 ;;7590
 ;;21,"00615083039 ")
 ;;7591
 ;;21,"00615130631 ")
 ;;7592
 ;;21,"00615130731 ")
 ;;7593
 ;;21,"00615135731 ")
 ;;7594
 ;;21,"00615135739 ")
 ;;7595
 ;;21,"00615138439 ")
 ;;7596
 ;;21,"00615138739 ")
 ;;7597
 ;;21,"00615257805 ")
 ;;7598
 ;;21,"00615257831 ")
 ;;7599
 ;;21,"00615257839 ")
 ;;7600
 ;;21,"00615257905 ")
 ;;7601
 ;;21,"00615257931 ")
 ;;7602
 ;;21,"00615257939 ")
 ;;7603
 ;;21,"00615258331 ")
 ;;7604
 ;;21,"00615258339 ")
 ;;7605
 ;;21,"00615550105 ")
 ;;7606
 ;;21,"00615550131 ")
 ;;7607
 ;;21,"00615550139 ")
 ;;7608
 ;;21,"00615550205 ")
 ;;7609
 ;;21,"00615550231 ")
 ;;7610
 ;;21,"00615550239 ")
 ;;7611
 ;;21,"00615552739 ")
 ;;7612
 ;;21,"00615557205 ")
 ;;7613
 ;;21,"00615557231 ")
 ;;7614
 ;;21,"00615557239 ")
 ;;7615
 ;;21,"00615557305 ")
 ;;7616
 ;;21,"00615557331 ")
 ;;7617
 ;;21,"00615557339 ")
 ;;7618
 ;;21,"00615557605 ")
 ;;7619
 ;;21,"00615557631 ")
 ;;7620
 ;;21,"00615557639 ")
 ;;7621
 ;;21,"00615557705 ")
 ;;7622
 ;;21,"00615557731 ")
 ;;7623
 ;;21,"00615557739 ")
 ;;7624
 ;;21,"00615557831 ")
 ;;7625
 ;;21,"00615557839 ")
 ;;7626
 ;;21,"00615557931 ")
 ;;7627
 ;;21,"00615557939 ")
 ;;7628
 ;;21,"00615651031 ")
 ;;7629
 ;;21,"00615651039 ")
 ;;7630
 ;;21,"00615651105 ")
 ;;7631
 ;;21,"00615651131 ")
 ;;7632
 ;;21,"00615651139 ")
 ;;7633
 ;;21,"00615651205 ")
 ;;7634
 ;;21,"00615651231 ")
 ;;7635
 ;;21,"00615651239 ")
 ;;7636
 ;;21,"00615654931 ")
 ;;7637
 ;;21,"00615654939 ")
 ;;7638
 ;;21,"00615655805 ")
 ;;7639
 ;;21,"00615655831 ")
 ;;7640
 ;;21,"00615655839 ")
 ;;7641
 ;;21,"00615655905 ")
 ;;7642
 ;;21,"00615655931 ")
 ;;7643
 ;;21,"00615655939 ")
 ;;7644
 ;;21,"00615656005 ")
 ;;7645
 ;;21,"00615656031 ")
 ;;7646
 ;;21,"00615656039 ")
 ;;7647
 ;;21,"00615656639 ")
 ;;7648
 ;;21,"00615656739 ")
 ;;7649
 ;;21,"00615755739 ")
 ;;7650
 ;;21,"00615755839 ")
 ;;7651
 ;;21,"00615756939 ")
 ;;7652
 ;;21,"00615759139 ")
 ;;7653
 ;;21,"00615762039 ")
 ;;7654
 ;;21,"00615762531 ")
 ;;7655
 ;;21,"00615762539 ")
 ;;7656
 ;;21,"00615763839 ")
 ;;7657
 ;;21,"00677042101 ")
 ;;7658
 ;;21,"00677042106 ")
 ;;7659
 ;;21,"00677042107 ")
 ;;7660
 ;;21,"00677042110 ")
 ;;7661
 ;;21,"00677042201 ")
 ;;7662
 ;;21,"00677042206 ")
 ;;7663
 ;;21,"00677042207 ")
 ;;7664
 ;;21,"00677042210 ")
 ;;7665
 ;;21,"00677042301 ")
 ;;7666