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