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