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

BGPM5ABY.m

Go to the documentation of this file.
BGPM5ABY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,55289093498 ",.02)
 ;;55289093498
 ;;9002226.02101,"830,55370075607 ",.01)
 ;;55370075607
 ;;9002226.02101,"830,55370075607 ",.02)
 ;;55370075607
 ;;9002226.02101,"830,55370075609 ",.01)
 ;;55370075609
 ;;9002226.02101,"830,55370075609 ",.02)
 ;;55370075609
 ;;9002226.02101,"830,55370075707 ",.01)
 ;;55370075707
 ;;9002226.02101,"830,55370075707 ",.02)
 ;;55370075707
 ;;9002226.02101,"830,55370075709 ",.01)
 ;;55370075709
 ;;9002226.02101,"830,55370075709 ",.02)
 ;;55370075709
 ;;9002226.02101,"830,55370075907 ",.01)
 ;;55370075907
 ;;9002226.02101,"830,55370075907 ",.02)
 ;;55370075907
 ;;9002226.02101,"830,55370075909 ",.01)
 ;;55370075909
 ;;9002226.02101,"830,55370075909 ",.02)
 ;;55370075909
 ;;9002226.02101,"830,55567011300 ",.01)
 ;;55567011300
 ;;9002226.02101,"830,55567011300 ",.02)
 ;;55567011300
 ;;9002226.02101,"830,55567011318 ",.01)
 ;;55567011318
 ;;9002226.02101,"830,55567011318 ",.02)
 ;;55567011318
 ;;9002226.02101,"830,55567011325 ",.01)
 ;;55567011325
 ;;9002226.02101,"830,55567011325 ",.02)
 ;;55567011325
 ;;9002226.02101,"830,55567014400 ",.01)
 ;;55567014400
 ;;9002226.02101,"830,55567014400 ",.02)
 ;;55567014400
 ;;9002226.02101,"830,55567014418 ",.01)
 ;;55567014418
 ;;9002226.02101,"830,55567014418 ",.02)
 ;;55567014418
 ;;9002226.02101,"830,55567014425 ",.01)
 ;;55567014425
 ;;9002226.02101,"830,55567014425 ",.02)
 ;;55567014425
 ;;9002226.02101,"830,55567014500 ",.01)
 ;;55567014500
 ;;9002226.02101,"830,55567014500 ",.02)
 ;;55567014500
 ;;9002226.02101,"830,55567014518 ",.01)
 ;;55567014518
 ;;9002226.02101,"830,55567014518 ",.02)
 ;;55567014518
 ;;9002226.02101,"830,55567014525 ",.01)
 ;;55567014525
 ;;9002226.02101,"830,55567014525 ",.02)
 ;;55567014525
 ;;9002226.02101,"830,55567014600 ",.01)
 ;;55567014600
 ;;9002226.02101,"830,55567014600 ",.02)
 ;;55567014600
 ;;9002226.02101,"830,55567014618 ",.01)
 ;;55567014618
 ;;9002226.02101,"830,55567014618 ",.02)
 ;;55567014618
 ;;9002226.02101,"830,55567014625 ",.01)
 ;;55567014625
 ;;9002226.02101,"830,55567014625 ",.02)
 ;;55567014625
 ;;9002226.02101,"830,55887017330 ",.01)
 ;;55887017330
 ;;9002226.02101,"830,55887017330 ",.02)
 ;;55887017330
 ;;9002226.02101,"830,55887036830 ",.01)
 ;;55887036830
 ;;9002226.02101,"830,55887036830 ",.02)
 ;;55887036830
 ;;9002226.02101,"830,55887036860 ",.01)
 ;;55887036860
 ;;9002226.02101,"830,55887036860 ",.02)
 ;;55887036860
 ;;9002226.02101,"830,55887036890 ",.01)
 ;;55887036890
 ;;9002226.02101,"830,55887036890 ",.02)
 ;;55887036890
 ;;9002226.02101,"830,55887036896 ",.01)
 ;;55887036896
 ;;9002226.02101,"830,55887036896 ",.02)
 ;;55887036896
 ;;9002226.02101,"830,55887041482 ",.01)
 ;;55887041482
 ;;9002226.02101,"830,55887041482 ",.02)
 ;;55887041482
 ;;9002226.02101,"830,55887041492 ",.01)
 ;;55887041492
 ;;9002226.02101,"830,55887041492 ",.02)
 ;;55887041492
 ;;9002226.02101,"830,55887057101 ",.01)
 ;;55887057101
 ;;9002226.02101,"830,55887057101 ",.02)
 ;;55887057101
 ;;9002226.02101,"830,55887057130 ",.01)
 ;;55887057130
 ;;9002226.02101,"830,55887057130 ",.02)
 ;;55887057130
 ;;9002226.02101,"830,55887057160 ",.01)
 ;;55887057160
 ;;9002226.02101,"830,55887057160 ",.02)
 ;;55887057160
 ;;9002226.02101,"830,55887057182 ",.01)
 ;;55887057182
 ;;9002226.02101,"830,55887057182 ",.02)
 ;;55887057182
 ;;9002226.02101,"830,55887057186 ",.01)
 ;;55887057186
 ;;9002226.02101,"830,55887057186 ",.02)
 ;;55887057186
 ;;9002226.02101,"830,55887057190 ",.01)
 ;;55887057190
 ;;9002226.02101,"830,55887057190 ",.02)
 ;;55887057190
 ;;9002226.02101,"830,55887057192 ",.01)
 ;;55887057192
 ;;9002226.02101,"830,55887057192 ",.02)
 ;;55887057192
 ;;9002226.02101,"830,55887061430 ",.01)
 ;;55887061430
 ;;9002226.02101,"830,55887061430 ",.02)
 ;;55887061430
 ;;9002226.02101,"830,55887061490 ",.01)
 ;;55887061490
 ;;9002226.02101,"830,55887061490 ",.02)
 ;;55887061490
 ;;9002226.02101,"830,55887062701 ",.01)
 ;;55887062701
 ;;9002226.02101,"830,55887062701 ",.02)
 ;;55887062701
 ;;9002226.02101,"830,55887062730 ",.01)
 ;;55887062730
 ;;9002226.02101,"830,55887062730 ",.02)
 ;;55887062730
 ;;9002226.02101,"830,55887062760 ",.01)
 ;;55887062760
 ;;9002226.02101,"830,55887062760 ",.02)
 ;;55887062760
 ;;9002226.02101,"830,55887062782 ",.01)
 ;;55887062782
 ;;9002226.02101,"830,55887062782 ",.02)
 ;;55887062782
 ;;9002226.02101,"830,55887062790 ",.01)
 ;;55887062790
 ;;9002226.02101,"830,55887062790 ",.02)
 ;;55887062790
 ;;9002226.02101,"830,55887062792 ",.01)
 ;;55887062792
 ;;9002226.02101,"830,55887062792 ",.02)
 ;;55887062792
 ;;9002226.02101,"830,55887084530 ",.01)
 ;;55887084530
 ;;9002226.02101,"830,55887084530 ",.02)
 ;;55887084530
 ;;9002226.02101,"830,55887084560 ",.01)
 ;;55887084560
 ;;9002226.02101,"830,55887084560 ",.02)
 ;;55887084560
 ;;9002226.02101,"830,55887094030 ",.01)
 ;;55887094030
 ;;9002226.02101,"830,55887094030 ",.02)
 ;;55887094030
 ;;9002226.02101,"830,55887094060 ",.01)
 ;;55887094060
 ;;9002226.02101,"830,55887094060 ",.02)
 ;;55887094060
 ;;9002226.02101,"830,55887094090 ",.01)
 ;;55887094090
 ;;9002226.02101,"830,55887094090 ",.02)
 ;;55887094090
 ;;9002226.02101,"830,57315004701 ",.01)
 ;;57315004701
 ;;9002226.02101,"830,57315004701 ",.02)
 ;;57315004701
 ;;9002226.02101,"830,57315004703 ",.01)
 ;;57315004703
 ;;9002226.02101,"830,57315004703 ",.02)
 ;;57315004703
 ;;9002226.02101,"830,57315004704 ",.01)
 ;;57315004704
 ;;9002226.02101,"830,57315004704 ",.02)
 ;;57315004704
 ;;9002226.02101,"830,57315004801 ",.01)
 ;;57315004801
 ;;9002226.02101,"830,57315004801 ",.02)
 ;;57315004801
 ;;9002226.02101,"830,57315004803 ",.01)
 ;;57315004803
 ;;9002226.02101,"830,57315004803 ",.02)
 ;;57315004803
 ;;9002226.02101,"830,57315004804 ",.01)
 ;;57315004804
 ;;9002226.02101,"830,57315004804 ",.02)
 ;;57315004804
 ;;9002226.02101,"830,57315004805 ",.01)
 ;;57315004805
 ;;9002226.02101,"830,57315004805 ",.02)
 ;;57315004805
 ;;9002226.02101,"830,57315005001 ",.01)
 ;;57315005001
 ;;9002226.02101,"830,57315005001 ",.02)
 ;;57315005001
 ;;9002226.02101,"830,57315005002 ",.01)
 ;;57315005002
 ;;9002226.02101,"830,57315005002 ",.02)
 ;;57315005002
 ;;9002226.02101,"830,57315005003 ",.01)
 ;;57315005003
 ;;9002226.02101,"830,57315005003 ",.02)
 ;;57315005003
 ;;9002226.02101,"830,57664039713 ",.01)
 ;;57664039713
 ;;9002226.02101,"830,57664039713 ",.02)
 ;;57664039713
 ;;9002226.02101,"830,57664039718 ",.01)
 ;;57664039718
 ;;9002226.02101,"830,57664039718 ",.02)
 ;;57664039718
 ;;9002226.02101,"830,57664039751 ",.01)
 ;;57664039751
 ;;9002226.02101,"830,57664039751 ",.02)
 ;;57664039751
 ;;9002226.02101,"830,57664039753 ",.01)
 ;;57664039753
 ;;9002226.02101,"830,57664039753 ",.02)
 ;;57664039753
 ;;9002226.02101,"830,57664039758 ",.01)
 ;;57664039758
 ;;9002226.02101,"830,57664039758 ",.02)
 ;;57664039758
 ;;9002226.02101,"830,57664039759 ",.01)
 ;;57664039759
 ;;9002226.02101,"830,57664039759 ",.02)
 ;;57664039759
 ;;9002226.02101,"830,57664039788 ",.01)
 ;;57664039788
 ;;9002226.02101,"830,57664039788 ",.02)
 ;;57664039788
 ;;9002226.02101,"830,57664039799 ",.01)
 ;;57664039799
 ;;9002226.02101,"830,57664039799 ",.02)
 ;;57664039799
 ;;9002226.02101,"830,57664043513 ",.01)
 ;;57664043513
 ;;9002226.02101,"830,57664043513 ",.02)
 ;;57664043513
 ;;9002226.02101,"830,57664043518 ",.01)
 ;;57664043518
 ;;9002226.02101,"830,57664043518 ",.02)
 ;;57664043518
 ;;9002226.02101,"830,57664043551 ",.01)
 ;;57664043551
 ;;9002226.02101,"830,57664043551 ",.02)
 ;;57664043551
 ;;9002226.02101,"830,57664043553 ",.01)
 ;;57664043553
 ;;9002226.02101,"830,57664043553 ",.02)
 ;;57664043553
 ;;9002226.02101,"830,57664043558 ",.01)
 ;;57664043558
 ;;9002226.02101,"830,57664043558 ",.02)
 ;;57664043558
 ;;9002226.02101,"830,57664043559 ",.01)
 ;;57664043559
 ;;9002226.02101,"830,57664043559 ",.02)
 ;;57664043559
 ;;9002226.02101,"830,57664043588 ",.01)
 ;;57664043588
 ;;9002226.02101,"830,57664043588 ",.02)
 ;;57664043588
 ;;9002226.02101,"830,57664043599 ",.01)
 ;;57664043599
 ;;9002226.02101,"830,57664043599 ",.02)
 ;;57664043599
 ;;9002226.02101,"830,57664047413 ",.01)
 ;;57664047413
 ;;9002226.02101,"830,57664047413 ",.02)
 ;;57664047413
 ;;9002226.02101,"830,57664047418 ",.01)
 ;;57664047418
 ;;9002226.02101,"830,57664047418 ",.02)
 ;;57664047418
 ;;9002226.02101,"830,57664047451 ",.01)
 ;;57664047451
 ;;9002226.02101,"830,57664047451 ",.02)
 ;;57664047451
 ;;9002226.02101,"830,57664047453 ",.01)
 ;;57664047453
 ;;9002226.02101,"830,57664047453 ",.02)
 ;;57664047453
 ;;9002226.02101,"830,57664047458 ",.01)
 ;;57664047458
 ;;9002226.02101,"830,57664047458 ",.02)
 ;;57664047458
 ;;9002226.02101,"830,57664047459 ",.01)
 ;;57664047459
 ;;9002226.02101,"830,57664047459 ",.02)
 ;;57664047459
 ;;9002226.02101,"830,57664047488 ",.01)
 ;;57664047488
 ;;9002226.02101,"830,57664047488 ",.02)
 ;;57664047488
 ;;9002226.02101,"830,57664047499 ",.01)
 ;;57664047499
 ;;9002226.02101,"830,57664047499 ",.02)
 ;;57664047499
 ;;9002226.02101,"830,57664072413 ",.01)
 ;;57664072413
 ;;9002226.02101,"830,57664072413 ",.02)
 ;;57664072413
 ;;9002226.02101,"830,57664072418 ",.01)
 ;;57664072418
 ;;9002226.02101,"830,57664072418 ",.02)
 ;;57664072418
 ;;9002226.02101,"830,57664072488 ",.01)
 ;;57664072488
 ;;9002226.02101,"830,57664072488 ",.02)
 ;;57664072488
 ;;9002226.02101,"830,57664072513 ",.01)
 ;;57664072513
 ;;9002226.02101,"830,57664072513 ",.02)
 ;;57664072513
 ;;9002226.02101,"830,57664072518 ",.01)
 ;;57664072518
 ;;9002226.02101,"830,57664072518 ",.02)
 ;;57664072518
 ;;9002226.02101,"830,57664072588 ",.01)
 ;;57664072588
 ;;9002226.02101,"830,57664072588 ",.02)
 ;;57664072588
 ;;9002226.02101,"830,57664072713 ",.01)
 ;;57664072713
 ;;9002226.02101,"830,57664072713 ",.02)
 ;;57664072713
 ;;9002226.02101,"830,57664072718 ",.01)
 ;;57664072718
 ;;9002226.02101,"830,57664072718 ",.02)
 ;;57664072718
 ;;9002226.02101,"830,57664072788 ",.01)
 ;;57664072788
 ;;9002226.02101,"830,57664072788 ",.02)
 ;;57664072788
 ;;9002226.02101,"830,57664099813 ",.01)
 ;;57664099813
 ;;9002226.02101,"830,57664099813 ",.02)
 ;;57664099813
 ;;9002226.02101,"830,57664099818 ",.01)
 ;;57664099818
 ;;9002226.02101,"830,57664099818 ",.02)
 ;;57664099818
 ;;9002226.02101,"830,57664099888 ",.01)
 ;;57664099888
 ;;9002226.02101,"830,57664099888 ",.02)
 ;;57664099888
 ;;9002226.02101,"830,57664099899 ",.01)
 ;;57664099899
 ;;9002226.02101,"830,57664099899 ",.02)
 ;;57664099899
 ;;9002226.02101,"830,57664099913 ",.01)
 ;;57664099913
 ;;9002226.02101,"830,57664099913 ",.02)
 ;;57664099913
 ;;9002226.02101,"830,57664099918 ",.01)
 ;;57664099918
 ;;9002226.02101,"830,57664099918 ",.02)
 ;;57664099918
 ;;9002226.02101,"830,57664099988 ",.01)
 ;;57664099988
 ;;9002226.02101,"830,57664099988 ",.02)
 ;;57664099988
 ;;9002226.02101,"830,57664099999 ",.01)
 ;;57664099999
 ;;9002226.02101,"830,57664099999 ",.02)
 ;;57664099999
 ;;9002226.02101,"830,57866905401 ",.01)
 ;;57866905401
 ;;9002226.02101,"830,57866905401 ",.02)
 ;;57866905401
 ;;9002226.02101,"830,57866905402 ",.01)
 ;;57866905402
 ;;9002226.02101,"830,57866905402 ",.02)
 ;;57866905402
 ;;9002226.02101,"830,57866905403 ",.01)
 ;;57866905403
 ;;9002226.02101,"830,57866905403 ",.02)
 ;;57866905403
 ;;9002226.02101,"830,57866905404 ",.01)
 ;;57866905404
 ;;9002226.02101,"830,57866905404 ",.02)
 ;;57866905404
 ;;9002226.02101,"830,57866905501 ",.01)
 ;;57866905501
 ;;9002226.02101,"830,57866905501 ",.02)
 ;;57866905501
 ;;9002226.02101,"830,57866905502 ",.01)
 ;;57866905502