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

BGPM5BDG.m

Go to the documentation of this file.
  1. BGPM5BDG ;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. ;;9002226.02101,"1044,58016086212 ",.02)
  1. ;;58016086212
  1. ;;9002226.02101,"1044,58016086215 ",.01)
  1. ;;58016086215
  1. ;;9002226.02101,"1044,58016086215 ",.02)
  1. ;;58016086215
  1. ;;9002226.02101,"1044,58016086220 ",.01)
  1. ;;58016086220
  1. ;;9002226.02101,"1044,58016086220 ",.02)
  1. ;;58016086220
  1. ;;9002226.02101,"1044,58016086230 ",.01)
  1. ;;58016086230
  1. ;;9002226.02101,"1044,58016086230 ",.02)
  1. ;;58016086230
  1. ;;9002226.02101,"1044,58016086250 ",.01)
  1. ;;58016086250
  1. ;;9002226.02101,"1044,58016086250 ",.02)
  1. ;;58016086250
  1. ;;9002226.02101,"1044,58016086260 ",.01)
  1. ;;58016086260
  1. ;;9002226.02101,"1044,58016086260 ",.02)
  1. ;;58016086260
  1. ;;9002226.02101,"1044,58016086273 ",.01)
  1. ;;58016086273
  1. ;;9002226.02101,"1044,58016086273 ",.02)
  1. ;;58016086273
  1. ;;9002226.02101,"1044,58016086289 ",.01)
  1. ;;58016086289
  1. ;;9002226.02101,"1044,58016086289 ",.02)
  1. ;;58016086289
  1. ;;9002226.02101,"1044,58016086290 ",.01)
  1. ;;58016086290
  1. ;;9002226.02101,"1044,58016086290 ",.02)
  1. ;;58016086290
  1. ;;9002226.02101,"1044,58016086600 ",.01)
  1. ;;58016086600
  1. ;;9002226.02101,"1044,58016086600 ",.02)
  1. ;;58016086600
  1. ;;9002226.02101,"1044,58016086602 ",.01)
  1. ;;58016086602
  1. ;;9002226.02101,"1044,58016086602 ",.02)
  1. ;;58016086602
  1. ;;9002226.02101,"1044,58016086610 ",.01)
  1. ;;58016086610
  1. ;;9002226.02101,"1044,58016086610 ",.02)
  1. ;;58016086610
  1. ;;9002226.02101,"1044,58016086612 ",.01)
  1. ;;58016086612
  1. ;;9002226.02101,"1044,58016086612 ",.02)
  1. ;;58016086612
  1. ;;9002226.02101,"1044,58016086615 ",.01)
  1. ;;58016086615
  1. ;;9002226.02101,"1044,58016086615 ",.02)
  1. ;;58016086615
  1. ;;9002226.02101,"1044,58016086620 ",.01)
  1. ;;58016086620
  1. ;;9002226.02101,"1044,58016086620 ",.02)
  1. ;;58016086620
  1. ;;9002226.02101,"1044,58016086630 ",.01)
  1. ;;58016086630
  1. ;;9002226.02101,"1044,58016086630 ",.02)
  1. ;;58016086630
  1. ;;9002226.02101,"1044,58016086660 ",.01)
  1. ;;58016086660
  1. ;;9002226.02101,"1044,58016086660 ",.02)
  1. ;;58016086660
  1. ;;9002226.02101,"1044,58016086690 ",.01)
  1. ;;58016086690
  1. ;;9002226.02101,"1044,58016086690 ",.02)
  1. ;;58016086690
  1. ;;9002226.02101,"1044,58016087500 ",.01)
  1. ;;58016087500
  1. ;;9002226.02101,"1044,58016087500 ",.02)
  1. ;;58016087500
  1. ;;9002226.02101,"1044,58016087501 ",.01)
  1. ;;58016087501
  1. ;;9002226.02101,"1044,58016087501 ",.02)
  1. ;;58016087501
  1. ;;9002226.02101,"1044,58016087502 ",.01)
  1. ;;58016087502
  1. ;;9002226.02101,"1044,58016087502 ",.02)
  1. ;;58016087502
  1. ;;9002226.02101,"1044,58016087503 ",.01)
  1. ;;58016087503
  1. ;;9002226.02101,"1044,58016087503 ",.02)
  1. ;;58016087503
  1. ;;9002226.02101,"1044,58016087504 ",.01)
  1. ;;58016087504
  1. ;;9002226.02101,"1044,58016087504 ",.02)
  1. ;;58016087504
  1. ;;9002226.02101,"1044,58016087505 ",.01)
  1. ;;58016087505
  1. ;;9002226.02101,"1044,58016087505 ",.02)
  1. ;;58016087505
  1. ;;9002226.02101,"1044,58016087506 ",.01)
  1. ;;58016087506
  1. ;;9002226.02101,"1044,58016087506 ",.02)
  1. ;;58016087506
  1. ;;9002226.02101,"1044,58016087507 ",.01)
  1. ;;58016087507
  1. ;;9002226.02101,"1044,58016087507 ",.02)
  1. ;;58016087507
  1. ;;9002226.02101,"1044,58016087508 ",.01)
  1. ;;58016087508
  1. ;;9002226.02101,"1044,58016087508 ",.02)
  1. ;;58016087508
  1. ;;9002226.02101,"1044,58016087509 ",.01)
  1. ;;58016087509
  1. ;;9002226.02101,"1044,58016087509 ",.02)
  1. ;;58016087509
  1. ;;9002226.02101,"1044,58016087510 ",.01)
  1. ;;58016087510
  1. ;;9002226.02101,"1044,58016087510 ",.02)
  1. ;;58016087510
  1. ;;9002226.02101,"1044,58016087512 ",.01)
  1. ;;58016087512
  1. ;;9002226.02101,"1044,58016087512 ",.02)
  1. ;;58016087512
  1. ;;9002226.02101,"1044,58016087514 ",.01)
  1. ;;58016087514
  1. ;;9002226.02101,"1044,58016087514 ",.02)
  1. ;;58016087514
  1. ;;9002226.02101,"1044,58016087515 ",.01)
  1. ;;58016087515
  1. ;;9002226.02101,"1044,58016087515 ",.02)
  1. ;;58016087515
  1. ;;9002226.02101,"1044,58016087516 ",.01)
  1. ;;58016087516
  1. ;;9002226.02101,"1044,58016087516 ",.02)
  1. ;;58016087516
  1. ;;9002226.02101,"1044,58016087517 ",.01)
  1. ;;58016087517
  1. ;;9002226.02101,"1044,58016087517 ",.02)
  1. ;;58016087517
  1. ;;9002226.02101,"1044,58016087518 ",.01)
  1. ;;58016087518
  1. ;;9002226.02101,"1044,58016087518 ",.02)
  1. ;;58016087518
  1. ;;9002226.02101,"1044,58016087520 ",.01)
  1. ;;58016087520
  1. ;;9002226.02101,"1044,58016087520 ",.02)
  1. ;;58016087520
  1. ;;9002226.02101,"1044,58016087521 ",.01)
  1. ;;58016087521
  1. ;;9002226.02101,"1044,58016087521 ",.02)
  1. ;;58016087521
  1. ;;9002226.02101,"1044,58016087524 ",.01)
  1. ;;58016087524
  1. ;;9002226.02101,"1044,58016087524 ",.02)
  1. ;;58016087524
  1. ;;9002226.02101,"1044,58016087525 ",.01)
  1. ;;58016087525
  1. ;;9002226.02101,"1044,58016087525 ",.02)
  1. ;;58016087525
  1. ;;9002226.02101,"1044,58016087526 ",.01)
  1. ;;58016087526
  1. ;;9002226.02101,"1044,58016087526 ",.02)
  1. ;;58016087526
  1. ;;9002226.02101,"1044,58016087527 ",.01)
  1. ;;58016087527
  1. ;;9002226.02101,"1044,58016087527 ",.02)
  1. ;;58016087527
  1. ;;9002226.02101,"1044,58016087528 ",.01)
  1. ;;58016087528
  1. ;;9002226.02101,"1044,58016087528 ",.02)
  1. ;;58016087528
  1. ;;9002226.02101,"1044,58016087530 ",.01)
  1. ;;58016087530
  1. ;;9002226.02101,"1044,58016087530 ",.02)
  1. ;;58016087530
  1. ;;9002226.02101,"1044,58016087532 ",.01)
  1. ;;58016087532
  1. ;;9002226.02101,"1044,58016087532 ",.02)
  1. ;;58016087532
  1. ;;9002226.02101,"1044,58016087535 ",.01)
  1. ;;58016087535
  1. ;;9002226.02101,"1044,58016087535 ",.02)
  1. ;;58016087535
  1. ;;9002226.02101,"1044,58016087536 ",.01)
  1. ;;58016087536
  1. ;;9002226.02101,"1044,58016087536 ",.02)
  1. ;;58016087536
  1. ;;9002226.02101,"1044,58016087540 ",.01)
  1. ;;58016087540
  1. ;;9002226.02101,"1044,58016087540 ",.02)
  1. ;;58016087540
  1. ;;9002226.02101,"1044,58016087542 ",.01)
  1. ;;58016087542
  1. ;;9002226.02101,"1044,58016087542 ",.02)
  1. ;;58016087542
  1. ;;9002226.02101,"1044,58016087544 ",.01)
  1. ;;58016087544
  1. ;;9002226.02101,"1044,58016087544 ",.02)
  1. ;;58016087544
  1. ;;9002226.02101,"1044,58016087545 ",.01)
  1. ;;58016087545
  1. ;;9002226.02101,"1044,58016087545 ",.02)
  1. ;;58016087545
  1. ;;9002226.02101,"1044,58016087548 ",.01)
  1. ;;58016087548
  1. ;;9002226.02101,"1044,58016087548 ",.02)
  1. ;;58016087548
  1. ;;9002226.02101,"1044,58016087550 ",.01)
  1. ;;58016087550
  1. ;;9002226.02101,"1044,58016087550 ",.02)
  1. ;;58016087550
  1. ;;9002226.02101,"1044,58016087556 ",.01)
  1. ;;58016087556
  1. ;;9002226.02101,"1044,58016087556 ",.02)
  1. ;;58016087556
  1. ;;9002226.02101,"1044,58016087560 ",.01)
  1. ;;58016087560
  1. ;;9002226.02101,"1044,58016087560 ",.02)
  1. ;;58016087560
  1. ;;9002226.02101,"1044,58016087567 ",.01)
  1. ;;58016087567
  1. ;;9002226.02101,"1044,58016087567 ",.02)
  1. ;;58016087567
  1. ;;9002226.02101,"1044,58016087569 ",.01)
  1. ;;58016087569
  1. ;;9002226.02101,"1044,58016087569 ",.02)
  1. ;;58016087569
  1. ;;9002226.02101,"1044,58016087570 ",.01)
  1. ;;58016087570
  1. ;;9002226.02101,"1044,58016087570 ",.02)
  1. ;;58016087570
  1. ;;9002226.02101,"1044,58016087571 ",.01)
  1. ;;58016087571
  1. ;;9002226.02101,"1044,58016087571 ",.02)
  1. ;;58016087571
  1. ;;9002226.02101,"1044,58016087572 ",.01)
  1. ;;58016087572
  1. ;;9002226.02101,"1044,58016087572 ",.02)
  1. ;;58016087572
  1. ;;9002226.02101,"1044,58016087573 ",.01)
  1. ;;58016087573
  1. ;;9002226.02101,"1044,58016087573 ",.02)
  1. ;;58016087573
  1. ;;9002226.02101,"1044,58016087575 ",.01)
  1. ;;58016087575
  1. ;;9002226.02101,"1044,58016087575 ",.02)
  1. ;;58016087575
  1. ;;9002226.02101,"1044,58016087576 ",.01)
  1. ;;58016087576
  1. ;;9002226.02101,"1044,58016087576 ",.02)
  1. ;;58016087576
  1. ;;9002226.02101,"1044,58016087577 ",.01)
  1. ;;58016087577
  1. ;;9002226.02101,"1044,58016087577 ",.02)
  1. ;;58016087577
  1. ;;9002226.02101,"1044,58016087579 ",.01)
  1. ;;58016087579
  1. ;;9002226.02101,"1044,58016087579 ",.02)
  1. ;;58016087579
  1. ;;9002226.02101,"1044,58016087580 ",.01)
  1. ;;58016087580
  1. ;;9002226.02101,"1044,58016087580 ",.02)
  1. ;;58016087580
  1. ;;9002226.02101,"1044,58016087581 ",.01)
  1. ;;58016087581
  1. ;;9002226.02101,"1044,58016087581 ",.02)
  1. ;;58016087581
  1. ;;9002226.02101,"1044,58016087582 ",.01)
  1. ;;58016087582
  1. ;;9002226.02101,"1044,58016087582 ",.02)
  1. ;;58016087582
  1. ;;9002226.02101,"1044,58016087583 ",.01)
  1. ;;58016087583
  1. ;;9002226.02101,"1044,58016087583 ",.02)
  1. ;;58016087583
  1. ;;9002226.02101,"1044,58016087584 ",.01)
  1. ;;58016087584
  1. ;;9002226.02101,"1044,58016087584 ",.02)
  1. ;;58016087584
  1. ;;9002226.02101,"1044,58016087587 ",.01)
  1. ;;58016087587
  1. ;;9002226.02101,"1044,58016087587 ",.02)
  1. ;;58016087587
  1. ;;9002226.02101,"1044,58016087589 ",.01)
  1. ;;58016087589
  1. ;;9002226.02101,"1044,58016087589 ",.02)
  1. ;;58016087589
  1. ;;9002226.02101,"1044,58016087590 ",.01)
  1. ;;58016087590
  1. ;;9002226.02101,"1044,58016087590 ",.02)
  1. ;;58016087590
  1. ;;9002226.02101,"1044,58016087591 ",.01)
  1. ;;58016087591
  1. ;;9002226.02101,"1044,58016087591 ",.02)
  1. ;;58016087591
  1. ;;9002226.02101,"1044,58016087592 ",.01)
  1. ;;58016087592
  1. ;;9002226.02101,"1044,58016087592 ",.02)
  1. ;;58016087592
  1. ;;9002226.02101,"1044,58016087593 ",.01)
  1. ;;58016087593
  1. ;;9002226.02101,"1044,58016087593 ",.02)
  1. ;;58016087593
  1. ;;9002226.02101,"1044,58016087596 ",.01)
  1. ;;58016087596
  1. ;;9002226.02101,"1044,58016087596 ",.02)
  1. ;;58016087596
  1. ;;9002226.02101,"1044,58016087597 ",.01)
  1. ;;58016087597
  1. ;;9002226.02101,"1044,58016087597 ",.02)
  1. ;;58016087597
  1. ;;9002226.02101,"1044,58016087598 ",.01)
  1. ;;58016087598
  1. ;;9002226.02101,"1044,58016087598 ",.02)
  1. ;;58016087598
  1. ;;9002226.02101,"1044,58016087599 ",.01)
  1. ;;58016087599
  1. ;;9002226.02101,"1044,58016087599 ",.02)
  1. ;;58016087599
  1. ;;9002226.02101,"1044,58016088000 ",.01)
  1. ;;58016088000
  1. ;;9002226.02101,"1044,58016088000 ",.02)
  1. ;;58016088000
  1. ;;9002226.02101,"1044,58016088012 ",.01)
  1. ;;58016088012
  1. ;;9002226.02101,"1044,58016088012 ",.02)
  1. ;;58016088012
  1. ;;9002226.02101,"1044,58016088015 ",.01)
  1. ;;58016088015
  1. ;;9002226.02101,"1044,58016088015 ",.02)
  1. ;;58016088015
  1. ;;9002226.02101,"1044,58016088020 ",.01)
  1. ;;58016088020
  1. ;;9002226.02101,"1044,58016088020 ",.02)
  1. ;;58016088020
  1. ;;9002226.02101,"1044,58016088030 ",.01)
  1. ;;58016088030
  1. ;;9002226.02101,"1044,58016088030 ",.02)
  1. ;;58016088030
  1. ;;9002226.02101,"1044,58016089400 ",.01)
  1. ;;58016089400
  1. ;;9002226.02101,"1044,58016089400 ",.02)
  1. ;;58016089400
  1. ;;9002226.02101,"1044,58016089401 ",.01)
  1. ;;58016089401
  1. ;;9002226.02101,"1044,58016089401 ",.02)
  1. ;;58016089401
  1. ;;9002226.02101,"1044,58016089402 ",.01)
  1. ;;58016089402
  1. ;;9002226.02101,"1044,58016089402 ",.02)
  1. ;;58016089402
  1. ;;9002226.02101,"1044,58016089403 ",.01)
  1. ;;58016089403
  1. ;;9002226.02101,"1044,58016089403 ",.02)
  1. ;;58016089403
  1. ;;9002226.02101,"1044,58016089404 ",.01)
  1. ;;58016089404
  1. ;;9002226.02101,"1044,58016089404 ",.02)
  1. ;;58016089404
  1. ;;9002226.02101,"1044,58016089405 ",.01)
  1. ;;58016089405
  1. ;;9002226.02101,"1044,58016089405 ",.02)
  1. ;;58016089405
  1. ;;9002226.02101,"1044,58016089406 ",.01)
  1. ;;58016089406
  1. ;;9002226.02101,"1044,58016089406 ",.02)
  1. ;;58016089406
  1. ;;9002226.02101,"1044,58016089407 ",.01)
  1. ;;58016089407
  1. ;;9002226.02101,"1044,58016089407 ",.02)
  1. ;;58016089407
  1. ;;9002226.02101,"1044,58016089408 ",.01)
  1. ;;58016089408
  1. ;;9002226.02101,"1044,58016089408 ",.02)
  1. ;;58016089408
  1. ;;9002226.02101,"1044,58016089409 ",.01)
  1. ;;58016089409
  1. ;;9002226.02101,"1044,58016089409 ",.02)
  1. ;;58016089409
  1. ;;9002226.02101,"1044,58016089410 ",.01)
  1. ;;58016089410
  1. ;;9002226.02101,"1044,58016089410 ",.02)
  1. ;;58016089410
  1. ;;9002226.02101,"1044,58016089412 ",.01)
  1. ;;58016089412
  1. ;;9002226.02101,"1044,58016089412 ",.02)
  1. ;;58016089412
  1. ;;9002226.02101,"1044,58016089414 ",.01)
  1. ;;58016089414
  1. ;;9002226.02101,"1044,58016089414 ",.02)
  1. ;;58016089414
  1. ;;9002226.02101,"1044,58016089415 ",.01)
  1. ;;58016089415
  1. ;;9002226.02101,"1044,58016089415 ",.02)
  1. ;;58016089415
  1. ;;9002226.02101,"1044,58016089416 ",.01)
  1. ;;58016089416
  1. ;;9002226.02101,"1044,58016089416 ",.02)
  1. ;;58016089416
  1. ;;9002226.02101,"1044,58016089418 ",.01)
  1. ;;58016089418
  1. ;;9002226.02101,"1044,58016089418 ",.02)
  1. ;;58016089418
  1. ;;9002226.02101,"1044,58016089420 ",.01)
  1. ;;58016089420
  1. ;;9002226.02101,"1044,58016089420 ",.02)
  1. ;;58016089420