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

BGPM5BDR.m

Go to the documentation of this file.
BGPM5BDR ;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,63672102501 ",.01)
 ;;63672102501
 ;;9002226.02101,"1044,63672102501 ",.02)
 ;;63672102501
 ;;9002226.02101,"1044,63672102502 ",.01)
 ;;63672102502
 ;;9002226.02101,"1044,63672102502 ",.02)
 ;;63672102502
 ;;9002226.02101,"1044,63672102504 ",.01)
 ;;63672102504
 ;;9002226.02101,"1044,63672102504 ",.02)
 ;;63672102504
 ;;9002226.02101,"1044,63672105001 ",.01)
 ;;63672105001
 ;;9002226.02101,"1044,63672105001 ",.02)
 ;;63672105001
 ;;9002226.02101,"1044,63672105002 ",.01)
 ;;63672105002
 ;;9002226.02101,"1044,63672105002 ",.02)
 ;;63672105002
 ;;9002226.02101,"1044,63672105004 ",.01)
 ;;63672105004
 ;;9002226.02101,"1044,63672105004 ",.02)
 ;;63672105004
 ;;9002226.02101,"1044,63672110001 ",.01)
 ;;63672110001
 ;;9002226.02101,"1044,63672110001 ",.02)
 ;;63672110001
 ;;9002226.02101,"1044,63672110002 ",.01)
 ;;63672110002
 ;;9002226.02101,"1044,63672110002 ",.02)
 ;;63672110002
 ;;9002226.02101,"1044,63672110003 ",.01)
 ;;63672110003
 ;;9002226.02101,"1044,63672110003 ",.02)
 ;;63672110003
 ;;9002226.02101,"1044,63711051010 ",.01)
 ;;63711051010
 ;;9002226.02101,"1044,63711051010 ",.02)
 ;;63711051010
 ;;9002226.02101,"1044,63711052010 ",.01)
 ;;63711052010
 ;;9002226.02101,"1044,63711052010 ",.02)
 ;;63711052010
 ;;9002226.02101,"1044,63711054010 ",.01)
 ;;63711054010
 ;;9002226.02101,"1044,63711054010 ",.02)
 ;;63711054010
 ;;9002226.02101,"1044,63739019010 ",.01)
 ;;63739019010
 ;;9002226.02101,"1044,63739019010 ",.02)
 ;;63739019010
 ;;9002226.02101,"1044,63739024510 ",.01)
 ;;63739024510
 ;;9002226.02101,"1044,63739024510 ",.02)
 ;;63739024510
 ;;9002226.02101,"1044,63739024610 ",.01)
 ;;63739024610
 ;;9002226.02101,"1044,63739024610 ",.02)
 ;;63739024610
 ;;9002226.02101,"1044,63739029610 ",.01)
 ;;63739029610
 ;;9002226.02101,"1044,63739029610 ",.02)
 ;;63739029610
 ;;9002226.02101,"1044,63739035510 ",.01)
 ;;63739035510
 ;;9002226.02101,"1044,63739035510 ",.02)
 ;;63739035510
 ;;9002226.02101,"1044,63739035610 ",.01)
 ;;63739035610
 ;;9002226.02101,"1044,63739035610 ",.02)
 ;;63739035610
 ;;9002226.02101,"1044,63739040710 ",.01)
 ;;63739040710
 ;;9002226.02101,"1044,63739040710 ",.02)
 ;;63739040710
 ;;9002226.02101,"1044,63739040810 ",.01)
 ;;63739040810
 ;;9002226.02101,"1044,63739040810 ",.02)
 ;;63739040810
 ;;9002226.02101,"1044,63739049041 ",.01)
 ;;63739049041
 ;;9002226.02101,"1044,63739049041 ",.02)
 ;;63739049041
 ;;9002226.02101,"1044,63739049340 ",.01)
 ;;63739049340
 ;;9002226.02101,"1044,63739049340 ",.02)
 ;;63739049340
 ;;9002226.02101,"1044,63739049440 ",.01)
 ;;63739049440
 ;;9002226.02101,"1044,63739049440 ",.02)
 ;;63739049440
 ;;9002226.02101,"1044,63808075301 ",.01)
 ;;63808075301
 ;;9002226.02101,"1044,63808075301 ",.02)
 ;;63808075301
 ;;9002226.02101,"1044,63874029601 ",.01)
 ;;63874029601
 ;;9002226.02101,"1044,63874029601 ",.02)
 ;;63874029601
 ;;9002226.02101,"1044,63874029604 ",.01)
 ;;63874029604
 ;;9002226.02101,"1044,63874029604 ",.02)
 ;;63874029604
 ;;9002226.02101,"1044,63874029615 ",.01)
 ;;63874029615
 ;;9002226.02101,"1044,63874029615 ",.02)
 ;;63874029615
 ;;9002226.02101,"1044,63874029620 ",.01)
 ;;63874029620
 ;;9002226.02101,"1044,63874029620 ",.02)
 ;;63874029620
 ;;9002226.02101,"1044,63874029630 ",.01)
 ;;63874029630
 ;;9002226.02101,"1044,63874029630 ",.02)
 ;;63874029630
 ;;9002226.02101,"1044,63874029640 ",.01)
 ;;63874029640
 ;;9002226.02101,"1044,63874029640 ",.02)
 ;;63874029640
 ;;9002226.02101,"1044,63874029660 ",.01)
 ;;63874029660
 ;;9002226.02101,"1044,63874029660 ",.02)
 ;;63874029660
 ;;9002226.02101,"1044,63874029690 ",.01)
 ;;63874029690
 ;;9002226.02101,"1044,63874029690 ",.02)
 ;;63874029690
 ;;9002226.02101,"1044,63874031101 ",.01)
 ;;63874031101
 ;;9002226.02101,"1044,63874031101 ",.02)
 ;;63874031101
 ;;9002226.02101,"1044,63874031102 ",.01)
 ;;63874031102
 ;;9002226.02101,"1044,63874031102 ",.02)
 ;;63874031102
 ;;9002226.02101,"1044,63874031104 ",.01)
 ;;63874031104
 ;;9002226.02101,"1044,63874031104 ",.02)
 ;;63874031104
 ;;9002226.02101,"1044,63874031110 ",.01)
 ;;63874031110
 ;;9002226.02101,"1044,63874031110 ",.02)
 ;;63874031110
 ;;9002226.02101,"1044,63874031112 ",.01)
 ;;63874031112
 ;;9002226.02101,"1044,63874031112 ",.02)
 ;;63874031112
 ;;9002226.02101,"1044,63874031115 ",.01)
 ;;63874031115
 ;;9002226.02101,"1044,63874031115 ",.02)
 ;;63874031115
 ;;9002226.02101,"1044,63874031120 ",.01)
 ;;63874031120
 ;;9002226.02101,"1044,63874031120 ",.02)
 ;;63874031120
 ;;9002226.02101,"1044,63874031124 ",.01)
 ;;63874031124
 ;;9002226.02101,"1044,63874031124 ",.02)
 ;;63874031124
 ;;9002226.02101,"1044,63874031130 ",.01)
 ;;63874031130
 ;;9002226.02101,"1044,63874031130 ",.02)
 ;;63874031130
 ;;9002226.02101,"1044,63874031140 ",.01)
 ;;63874031140
 ;;9002226.02101,"1044,63874031140 ",.02)
 ;;63874031140
 ;;9002226.02101,"1044,63874031150 ",.01)
 ;;63874031150
 ;;9002226.02101,"1044,63874031150 ",.02)
 ;;63874031150
 ;;9002226.02101,"1044,63874031160 ",.01)
 ;;63874031160
 ;;9002226.02101,"1044,63874031160 ",.02)
 ;;63874031160
 ;;9002226.02101,"1044,63874031172 ",.01)
 ;;63874031172
 ;;9002226.02101,"1044,63874031172 ",.02)
 ;;63874031172
 ;;9002226.02101,"1044,63874031174 ",.01)
 ;;63874031174
 ;;9002226.02101,"1044,63874031174 ",.02)
 ;;63874031174
 ;;9002226.02101,"1044,63874031177 ",.01)
 ;;63874031177
 ;;9002226.02101,"1044,63874031177 ",.02)
 ;;63874031177
 ;;9002226.02101,"1044,63874031182 ",.01)
 ;;63874031182
 ;;9002226.02101,"1044,63874031182 ",.02)
 ;;63874031182
 ;;9002226.02101,"1044,63874031190 ",.01)
 ;;63874031190
 ;;9002226.02101,"1044,63874031190 ",.02)
 ;;63874031190
 ;;9002226.02101,"1044,63874035901 ",.01)
 ;;63874035901
 ;;9002226.02101,"1044,63874035901 ",.02)
 ;;63874035901
 ;;9002226.02101,"1044,63874035902 ",.01)
 ;;63874035902
 ;;9002226.02101,"1044,63874035902 ",.02)
 ;;63874035902
 ;;9002226.02101,"1044,63874035904 ",.01)
 ;;63874035904
 ;;9002226.02101,"1044,63874035904 ",.02)
 ;;63874035904
 ;;9002226.02101,"1044,63874035914 ",.01)
 ;;63874035914
 ;;9002226.02101,"1044,63874035914 ",.02)
 ;;63874035914
 ;;9002226.02101,"1044,63874035915 ",.01)
 ;;63874035915
 ;;9002226.02101,"1044,63874035915 ",.02)
 ;;63874035915
 ;;9002226.02101,"1044,63874035920 ",.01)
 ;;63874035920
 ;;9002226.02101,"1044,63874035920 ",.02)
 ;;63874035920
 ;;9002226.02101,"1044,63874035928 ",.01)
 ;;63874035928
 ;;9002226.02101,"1044,63874035928 ",.02)
 ;;63874035928
 ;;9002226.02101,"1044,63874035930 ",.01)
 ;;63874035930
 ;;9002226.02101,"1044,63874035930 ",.02)
 ;;63874035930
 ;;9002226.02101,"1044,63874035940 ",.01)
 ;;63874035940
 ;;9002226.02101,"1044,63874035940 ",.02)
 ;;63874035940
 ;;9002226.02101,"1044,63874035950 ",.01)
 ;;63874035950
 ;;9002226.02101,"1044,63874035950 ",.02)
 ;;63874035950
 ;;9002226.02101,"1044,63874035960 ",.01)
 ;;63874035960
 ;;9002226.02101,"1044,63874035960 ",.02)
 ;;63874035960
 ;;9002226.02101,"1044,63874035990 ",.01)
 ;;63874035990
 ;;9002226.02101,"1044,63874035990 ",.02)
 ;;63874035990
 ;;9002226.02101,"1044,63874043001 ",.01)
 ;;63874043001
 ;;9002226.02101,"1044,63874043001 ",.02)
 ;;63874043001
 ;;9002226.02101,"1044,63874043002 ",.01)
 ;;63874043002
 ;;9002226.02101,"1044,63874043002 ",.02)
 ;;63874043002
 ;;9002226.02101,"1044,63874043004 ",.01)
 ;;63874043004
 ;;9002226.02101,"1044,63874043004 ",.02)
 ;;63874043004
 ;;9002226.02101,"1044,63874043014 ",.01)
 ;;63874043014
 ;;9002226.02101,"1044,63874043014 ",.02)
 ;;63874043014
 ;;9002226.02101,"1044,63874043015 ",.01)
 ;;63874043015
 ;;9002226.02101,"1044,63874043015 ",.02)
 ;;63874043015
 ;;9002226.02101,"1044,63874043020 ",.01)
 ;;63874043020
 ;;9002226.02101,"1044,63874043020 ",.02)
 ;;63874043020
 ;;9002226.02101,"1044,63874043025 ",.01)
 ;;63874043025
 ;;9002226.02101,"1044,63874043025 ",.02)
 ;;63874043025
 ;;9002226.02101,"1044,63874043028 ",.01)
 ;;63874043028
 ;;9002226.02101,"1044,63874043028 ",.02)
 ;;63874043028
 ;;9002226.02101,"1044,63874043030 ",.01)
 ;;63874043030
 ;;9002226.02101,"1044,63874043030 ",.02)
 ;;63874043030
 ;;9002226.02101,"1044,63874043040 ",.01)
 ;;63874043040
 ;;9002226.02101,"1044,63874043040 ",.02)
 ;;63874043040
 ;;9002226.02101,"1044,63874043050 ",.01)
 ;;63874043050
 ;;9002226.02101,"1044,63874043050 ",.02)
 ;;63874043050
 ;;9002226.02101,"1044,63874043060 ",.01)
 ;;63874043060
 ;;9002226.02101,"1044,63874043060 ",.02)
 ;;63874043060
 ;;9002226.02101,"1044,63874043090 ",.01)
 ;;63874043090
 ;;9002226.02101,"1044,63874043090 ",.02)
 ;;63874043090
 ;;9002226.02101,"1044,63874053701 ",.01)
 ;;63874053701
 ;;9002226.02101,"1044,63874053701 ",.02)
 ;;63874053701
 ;;9002226.02101,"1044,63874053704 ",.01)
 ;;63874053704
 ;;9002226.02101,"1044,63874053704 ",.02)
 ;;63874053704
 ;;9002226.02101,"1044,63874053710 ",.01)
 ;;63874053710
 ;;9002226.02101,"1044,63874053710 ",.02)
 ;;63874053710
 ;;9002226.02101,"1044,63874053712 ",.01)
 ;;63874053712
 ;;9002226.02101,"1044,63874053712 ",.02)
 ;;63874053712
 ;;9002226.02101,"1044,63874053714 ",.01)
 ;;63874053714
 ;;9002226.02101,"1044,63874053714 ",.02)
 ;;63874053714
 ;;9002226.02101,"1044,63874053715 ",.01)
 ;;63874053715
 ;;9002226.02101,"1044,63874053715 ",.02)
 ;;63874053715
 ;;9002226.02101,"1044,63874053720 ",.01)
 ;;63874053720
 ;;9002226.02101,"1044,63874053720 ",.02)
 ;;63874053720
 ;;9002226.02101,"1044,63874053730 ",.01)
 ;;63874053730
 ;;9002226.02101,"1044,63874053730 ",.02)
 ;;63874053730
 ;;9002226.02101,"1044,63874053740 ",.01)
 ;;63874053740
 ;;9002226.02101,"1044,63874053740 ",.02)
 ;;63874053740
 ;;9002226.02101,"1044,63874053760 ",.01)
 ;;63874053760
 ;;9002226.02101,"1044,63874053760 ",.02)
 ;;63874053760
 ;;9002226.02101,"1044,63874053790 ",.01)
 ;;63874053790
 ;;9002226.02101,"1044,63874053790 ",.02)
 ;;63874053790
 ;;9002226.02101,"1044,63874053801 ",.01)
 ;;63874053801
 ;;9002226.02101,"1044,63874053801 ",.02)
 ;;63874053801
 ;;9002226.02101,"1044,63874053810 ",.01)
 ;;63874053810
 ;;9002226.02101,"1044,63874053810 ",.02)
 ;;63874053810
 ;;9002226.02101,"1044,63874053814 ",.01)
 ;;63874053814
 ;;9002226.02101,"1044,63874053814 ",.02)
 ;;63874053814
 ;;9002226.02101,"1044,63874053815 ",.01)
 ;;63874053815
 ;;9002226.02101,"1044,63874053815 ",.02)
 ;;63874053815
 ;;9002226.02101,"1044,63874053820 ",.01)
 ;;63874053820
 ;;9002226.02101,"1044,63874053820 ",.02)
 ;;63874053820
 ;;9002226.02101,"1044,63874053830 ",.01)
 ;;63874053830
 ;;9002226.02101,"1044,63874053830 ",.02)
 ;;63874053830
 ;;9002226.02101,"1044,63874053860 ",.01)
 ;;63874053860
 ;;9002226.02101,"1044,63874053860 ",.02)
 ;;63874053860
 ;;9002226.02101,"1044,63874056001 ",.01)
 ;;63874056001
 ;;9002226.02101,"1044,63874056001 ",.02)
 ;;63874056001
 ;;9002226.02101,"1044,63874056004 ",.01)
 ;;63874056004
 ;;9002226.02101,"1044,63874056004 ",.02)
 ;;63874056004
 ;;9002226.02101,"1044,63874056010 ",.01)
 ;;63874056010
 ;;9002226.02101,"1044,63874056010 ",.02)
 ;;63874056010
 ;;9002226.02101,"1044,63874056012 ",.01)
 ;;63874056012
 ;;9002226.02101,"1044,63874056012 ",.02)
 ;;63874056012
 ;;9002226.02101,"1044,63874056014 ",.01)
 ;;63874056014
 ;;9002226.02101,"1044,63874056014 ",.02)
 ;;63874056014
 ;;9002226.02101,"1044,63874056015 ",.01)
 ;;63874056015
 ;;9002226.02101,"1044,63874056015 ",.02)
 ;;63874056015
 ;;9002226.02101,"1044,63874056020 ",.01)
 ;;63874056020
 ;;9002226.02101,"1044,63874056020 ",.02)
 ;;63874056020
 ;;9002226.02101,"1044,63874056028 ",.01)
 ;;63874056028
 ;;9002226.02101,"1044,63874056028 ",.02)
 ;;63874056028
 ;;9002226.02101,"1044,63874056030 ",.01)
 ;;63874056030