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