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

BGPM5AWA.m

Go to the documentation of this file.
BGPM5AWA ;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,58016095707 ",.02)
 ;;58016095707
 ;;9002226.02101,"1033,58016095708 ",.01)
 ;;58016095708
 ;;9002226.02101,"1033,58016095708 ",.02)
 ;;58016095708
 ;;9002226.02101,"1033,58016095709 ",.01)
 ;;58016095709
 ;;9002226.02101,"1033,58016095709 ",.02)
 ;;58016095709
 ;;9002226.02101,"1033,58016095710 ",.01)
 ;;58016095710
 ;;9002226.02101,"1033,58016095710 ",.02)
 ;;58016095710
 ;;9002226.02101,"1033,58016095712 ",.01)
 ;;58016095712
 ;;9002226.02101,"1033,58016095712 ",.02)
 ;;58016095712
 ;;9002226.02101,"1033,58016095714 ",.01)
 ;;58016095714
 ;;9002226.02101,"1033,58016095714 ",.02)
 ;;58016095714
 ;;9002226.02101,"1033,58016095715 ",.01)
 ;;58016095715
 ;;9002226.02101,"1033,58016095715 ",.02)
 ;;58016095715
 ;;9002226.02101,"1033,58016095716 ",.01)
 ;;58016095716
 ;;9002226.02101,"1033,58016095716 ",.02)
 ;;58016095716
 ;;9002226.02101,"1033,58016095718 ",.01)
 ;;58016095718
 ;;9002226.02101,"1033,58016095718 ",.02)
 ;;58016095718
 ;;9002226.02101,"1033,58016095720 ",.01)
 ;;58016095720
 ;;9002226.02101,"1033,58016095720 ",.02)
 ;;58016095720
 ;;9002226.02101,"1033,58016095721 ",.01)
 ;;58016095721
 ;;9002226.02101,"1033,58016095721 ",.02)
 ;;58016095721
 ;;9002226.02101,"1033,58016095724 ",.01)
 ;;58016095724
 ;;9002226.02101,"1033,58016095724 ",.02)
 ;;58016095724
 ;;9002226.02101,"1033,58016095725 ",.01)
 ;;58016095725
 ;;9002226.02101,"1033,58016095725 ",.02)
 ;;58016095725
 ;;9002226.02101,"1033,58016095726 ",.01)
 ;;58016095726
 ;;9002226.02101,"1033,58016095726 ",.02)
 ;;58016095726
 ;;9002226.02101,"1033,58016095727 ",.01)
 ;;58016095727
 ;;9002226.02101,"1033,58016095727 ",.02)
 ;;58016095727
 ;;9002226.02101,"1033,58016095728 ",.01)
 ;;58016095728
 ;;9002226.02101,"1033,58016095728 ",.02)
 ;;58016095728
 ;;9002226.02101,"1033,58016095730 ",.01)
 ;;58016095730
 ;;9002226.02101,"1033,58016095730 ",.02)
 ;;58016095730
 ;;9002226.02101,"1033,58016095732 ",.01)
 ;;58016095732
 ;;9002226.02101,"1033,58016095732 ",.02)
 ;;58016095732
 ;;9002226.02101,"1033,58016095735 ",.01)
 ;;58016095735
 ;;9002226.02101,"1033,58016095735 ",.02)
 ;;58016095735
 ;;9002226.02101,"1033,58016095736 ",.01)
 ;;58016095736
 ;;9002226.02101,"1033,58016095736 ",.02)
 ;;58016095736
 ;;9002226.02101,"1033,58016095740 ",.01)
 ;;58016095740
 ;;9002226.02101,"1033,58016095740 ",.02)
 ;;58016095740
 ;;9002226.02101,"1033,58016095742 ",.01)
 ;;58016095742
 ;;9002226.02101,"1033,58016095742 ",.02)
 ;;58016095742
 ;;9002226.02101,"1033,58016095744 ",.01)
 ;;58016095744
 ;;9002226.02101,"1033,58016095744 ",.02)
 ;;58016095744
 ;;9002226.02101,"1033,58016095745 ",.01)
 ;;58016095745
 ;;9002226.02101,"1033,58016095745 ",.02)
 ;;58016095745
 ;;9002226.02101,"1033,58016095748 ",.01)
 ;;58016095748
 ;;9002226.02101,"1033,58016095748 ",.02)
 ;;58016095748
 ;;9002226.02101,"1033,58016095750 ",.01)
 ;;58016095750
 ;;9002226.02101,"1033,58016095750 ",.02)
 ;;58016095750
 ;;9002226.02101,"1033,58016095756 ",.01)
 ;;58016095756
 ;;9002226.02101,"1033,58016095756 ",.02)
 ;;58016095756
 ;;9002226.02101,"1033,58016095760 ",.01)
 ;;58016095760
 ;;9002226.02101,"1033,58016095760 ",.02)
 ;;58016095760
 ;;9002226.02101,"1033,58016095767 ",.01)
 ;;58016095767
 ;;9002226.02101,"1033,58016095767 ",.02)
 ;;58016095767
 ;;9002226.02101,"1033,58016095769 ",.01)
 ;;58016095769
 ;;9002226.02101,"1033,58016095769 ",.02)
 ;;58016095769
 ;;9002226.02101,"1033,58016095770 ",.01)
 ;;58016095770
 ;;9002226.02101,"1033,58016095770 ",.02)
 ;;58016095770
 ;;9002226.02101,"1033,58016095771 ",.01)
 ;;58016095771
 ;;9002226.02101,"1033,58016095771 ",.02)
 ;;58016095771
 ;;9002226.02101,"1033,58016095772 ",.01)
 ;;58016095772
 ;;9002226.02101,"1033,58016095772 ",.02)
 ;;58016095772
 ;;9002226.02101,"1033,58016095773 ",.01)
 ;;58016095773
 ;;9002226.02101,"1033,58016095773 ",.02)
 ;;58016095773
 ;;9002226.02101,"1033,58016095775 ",.01)
 ;;58016095775
 ;;9002226.02101,"1033,58016095775 ",.02)
 ;;58016095775
 ;;9002226.02101,"1033,58016095776 ",.01)
 ;;58016095776
 ;;9002226.02101,"1033,58016095776 ",.02)
 ;;58016095776
 ;;9002226.02101,"1033,58016095777 ",.01)
 ;;58016095777
 ;;9002226.02101,"1033,58016095777 ",.02)
 ;;58016095777
 ;;9002226.02101,"1033,58016095779 ",.01)
 ;;58016095779
 ;;9002226.02101,"1033,58016095779 ",.02)
 ;;58016095779
 ;;9002226.02101,"1033,58016095780 ",.01)
 ;;58016095780
 ;;9002226.02101,"1033,58016095780 ",.02)
 ;;58016095780
 ;;9002226.02101,"1033,58016095781 ",.01)
 ;;58016095781
 ;;9002226.02101,"1033,58016095781 ",.02)
 ;;58016095781
 ;;9002226.02101,"1033,58016095782 ",.01)
 ;;58016095782
 ;;9002226.02101,"1033,58016095782 ",.02)
 ;;58016095782
 ;;9002226.02101,"1033,58016095783 ",.01)
 ;;58016095783
 ;;9002226.02101,"1033,58016095783 ",.02)
 ;;58016095783
 ;;9002226.02101,"1033,58016095784 ",.01)
 ;;58016095784
 ;;9002226.02101,"1033,58016095784 ",.02)
 ;;58016095784
 ;;9002226.02101,"1033,58016095787 ",.01)
 ;;58016095787
 ;;9002226.02101,"1033,58016095787 ",.02)
 ;;58016095787
 ;;9002226.02101,"1033,58016095789 ",.01)
 ;;58016095789
 ;;9002226.02101,"1033,58016095789 ",.02)
 ;;58016095789
 ;;9002226.02101,"1033,58016095790 ",.01)
 ;;58016095790
 ;;9002226.02101,"1033,58016095790 ",.02)
 ;;58016095790
 ;;9002226.02101,"1033,58016095791 ",.01)
 ;;58016095791
 ;;9002226.02101,"1033,58016095791 ",.02)
 ;;58016095791
 ;;9002226.02101,"1033,58016095792 ",.01)
 ;;58016095792
 ;;9002226.02101,"1033,58016095792 ",.02)
 ;;58016095792
 ;;9002226.02101,"1033,58016095793 ",.01)
 ;;58016095793
 ;;9002226.02101,"1033,58016095793 ",.02)
 ;;58016095793
 ;;9002226.02101,"1033,58016095796 ",.01)
 ;;58016095796
 ;;9002226.02101,"1033,58016095796 ",.02)
 ;;58016095796
 ;;9002226.02101,"1033,58016095798 ",.01)
 ;;58016095798
 ;;9002226.02101,"1033,58016095798 ",.02)
 ;;58016095798
 ;;9002226.02101,"1033,58016095799 ",.01)
 ;;58016095799
 ;;9002226.02101,"1033,58016095799 ",.02)
 ;;58016095799
 ;;9002226.02101,"1033,58016096400 ",.01)
 ;;58016096400
 ;;9002226.02101,"1033,58016096400 ",.02)
 ;;58016096400
 ;;9002226.02101,"1033,58016096401 ",.01)
 ;;58016096401
 ;;9002226.02101,"1033,58016096401 ",.02)
 ;;58016096401
 ;;9002226.02101,"1033,58016096402 ",.01)
 ;;58016096402
 ;;9002226.02101,"1033,58016096402 ",.02)
 ;;58016096402
 ;;9002226.02101,"1033,58016096403 ",.01)
 ;;58016096403
 ;;9002226.02101,"1033,58016096403 ",.02)
 ;;58016096403
 ;;9002226.02101,"1033,58016096404 ",.01)
 ;;58016096404
 ;;9002226.02101,"1033,58016096404 ",.02)
 ;;58016096404
 ;;9002226.02101,"1033,58016096405 ",.01)
 ;;58016096405
 ;;9002226.02101,"1033,58016096405 ",.02)
 ;;58016096405
 ;;9002226.02101,"1033,58016096406 ",.01)
 ;;58016096406
 ;;9002226.02101,"1033,58016096406 ",.02)
 ;;58016096406
 ;;9002226.02101,"1033,58016096407 ",.01)
 ;;58016096407
 ;;9002226.02101,"1033,58016096407 ",.02)
 ;;58016096407
 ;;9002226.02101,"1033,58016096408 ",.01)
 ;;58016096408
 ;;9002226.02101,"1033,58016096408 ",.02)
 ;;58016096408
 ;;9002226.02101,"1033,58016096409 ",.01)
 ;;58016096409
 ;;9002226.02101,"1033,58016096409 ",.02)
 ;;58016096409
 ;;9002226.02101,"1033,58016096410 ",.01)
 ;;58016096410
 ;;9002226.02101,"1033,58016096410 ",.02)
 ;;58016096410
 ;;9002226.02101,"1033,58016096412 ",.01)
 ;;58016096412
 ;;9002226.02101,"1033,58016096412 ",.02)
 ;;58016096412
 ;;9002226.02101,"1033,58016096414 ",.01)
 ;;58016096414
 ;;9002226.02101,"1033,58016096414 ",.02)
 ;;58016096414
 ;;9002226.02101,"1033,58016096415 ",.01)
 ;;58016096415
 ;;9002226.02101,"1033,58016096415 ",.02)
 ;;58016096415
 ;;9002226.02101,"1033,58016096416 ",.01)
 ;;58016096416
 ;;9002226.02101,"1033,58016096416 ",.02)
 ;;58016096416
 ;;9002226.02101,"1033,58016096418 ",.01)
 ;;58016096418
 ;;9002226.02101,"1033,58016096418 ",.02)
 ;;58016096418
 ;;9002226.02101,"1033,58016096420 ",.01)
 ;;58016096420
 ;;9002226.02101,"1033,58016096420 ",.02)
 ;;58016096420
 ;;9002226.02101,"1033,58016096421 ",.01)
 ;;58016096421
 ;;9002226.02101,"1033,58016096421 ",.02)
 ;;58016096421
 ;;9002226.02101,"1033,58016096424 ",.01)
 ;;58016096424
 ;;9002226.02101,"1033,58016096424 ",.02)
 ;;58016096424
 ;;9002226.02101,"1033,58016096425 ",.01)
 ;;58016096425
 ;;9002226.02101,"1033,58016096425 ",.02)
 ;;58016096425
 ;;9002226.02101,"1033,58016096426 ",.01)
 ;;58016096426
 ;;9002226.02101,"1033,58016096426 ",.02)
 ;;58016096426
 ;;9002226.02101,"1033,58016096427 ",.01)
 ;;58016096427
 ;;9002226.02101,"1033,58016096427 ",.02)
 ;;58016096427
 ;;9002226.02101,"1033,58016096428 ",.01)
 ;;58016096428
 ;;9002226.02101,"1033,58016096428 ",.02)
 ;;58016096428
 ;;9002226.02101,"1033,58016096430 ",.01)
 ;;58016096430
 ;;9002226.02101,"1033,58016096430 ",.02)
 ;;58016096430
 ;;9002226.02101,"1033,58016096432 ",.01)
 ;;58016096432
 ;;9002226.02101,"1033,58016096432 ",.02)
 ;;58016096432
 ;;9002226.02101,"1033,58016096435 ",.01)
 ;;58016096435
 ;;9002226.02101,"1033,58016096435 ",.02)
 ;;58016096435
 ;;9002226.02101,"1033,58016096436 ",.01)
 ;;58016096436
 ;;9002226.02101,"1033,58016096436 ",.02)
 ;;58016096436
 ;;9002226.02101,"1033,58016096440 ",.01)
 ;;58016096440
 ;;9002226.02101,"1033,58016096440 ",.02)
 ;;58016096440
 ;;9002226.02101,"1033,58016096442 ",.01)
 ;;58016096442
 ;;9002226.02101,"1033,58016096442 ",.02)
 ;;58016096442
 ;;9002226.02101,"1033,58016096444 ",.01)
 ;;58016096444
 ;;9002226.02101,"1033,58016096444 ",.02)
 ;;58016096444
 ;;9002226.02101,"1033,58016096445 ",.01)
 ;;58016096445
 ;;9002226.02101,"1033,58016096445 ",.02)
 ;;58016096445
 ;;9002226.02101,"1033,58016096448 ",.01)
 ;;58016096448
 ;;9002226.02101,"1033,58016096448 ",.02)
 ;;58016096448
 ;;9002226.02101,"1033,58016096450 ",.01)
 ;;58016096450
 ;;9002226.02101,"1033,58016096450 ",.02)
 ;;58016096450
 ;;9002226.02101,"1033,58016096456 ",.01)
 ;;58016096456
 ;;9002226.02101,"1033,58016096456 ",.02)
 ;;58016096456
 ;;9002226.02101,"1033,58016096460 ",.01)
 ;;58016096460
 ;;9002226.02101,"1033,58016096460 ",.02)
 ;;58016096460
 ;;9002226.02101,"1033,58016096467 ",.01)
 ;;58016096467
 ;;9002226.02101,"1033,58016096467 ",.02)
 ;;58016096467
 ;;9002226.02101,"1033,58016096469 ",.01)
 ;;58016096469
 ;;9002226.02101,"1033,58016096469 ",.02)
 ;;58016096469
 ;;9002226.02101,"1033,58016096470 ",.01)
 ;;58016096470
 ;;9002226.02101,"1033,58016096470 ",.02)
 ;;58016096470
 ;;9002226.02101,"1033,58016096471 ",.01)
 ;;58016096471
 ;;9002226.02101,"1033,58016096471 ",.02)
 ;;58016096471
 ;;9002226.02101,"1033,58016096472 ",.01)
 ;;58016096472
 ;;9002226.02101,"1033,58016096472 ",.02)
 ;;58016096472
 ;;9002226.02101,"1033,58016096473 ",.01)
 ;;58016096473
 ;;9002226.02101,"1033,58016096473 ",.02)
 ;;58016096473
 ;;9002226.02101,"1033,58016096475 ",.01)
 ;;58016096475
 ;;9002226.02101,"1033,58016096475 ",.02)
 ;;58016096475
 ;;9002226.02101,"1033,58016096476 ",.01)
 ;;58016096476
 ;;9002226.02101,"1033,58016096476 ",.02)
 ;;58016096476
 ;;9002226.02101,"1033,58016096477 ",.01)
 ;;58016096477
 ;;9002226.02101,"1033,58016096477 ",.02)
 ;;58016096477
 ;;9002226.02101,"1033,58016096479 ",.01)
 ;;58016096479
 ;;9002226.02101,"1033,58016096479 ",.02)
 ;;58016096479
 ;;9002226.02101,"1033,58016096480 ",.01)
 ;;58016096480
 ;;9002226.02101,"1033,58016096480 ",.02)
 ;;58016096480
 ;;9002226.02101,"1033,58016096481 ",.01)
 ;;58016096481
 ;;9002226.02101,"1033,58016096481 ",.02)
 ;;58016096481
 ;;9002226.02101,"1033,58016096482 ",.01)
 ;;58016096482
 ;;9002226.02101,"1033,58016096482 ",.02)
 ;;58016096482
 ;;9002226.02101,"1033,58016096483 ",.01)
 ;;58016096483
 ;;9002226.02101,"1033,58016096483 ",.02)
 ;;58016096483