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

BGPM5AQE.m

Go to the documentation of this file.
BGPM5AQE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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)
 ;;21,"63629152204 ")
 ;;3819
 ;;21,"63629152205 ")
 ;;3820
 ;;21,"63629152501 ")
 ;;3821
 ;;21,"63629152502 ")
 ;;3822
 ;;21,"63629152503 ")
 ;;3823
 ;;21,"63629152601 ")
 ;;3824
 ;;21,"63629152602 ")
 ;;3825
 ;;21,"63629152603 ")
 ;;3826
 ;;21,"63629152604 ")
 ;;3827
 ;;21,"63629167901 ")
 ;;3828
 ;;21,"63629167902 ")
 ;;3829
 ;;21,"63629167903 ")
 ;;3830
 ;;21,"63629167904 ")
 ;;3831
 ;;21,"63629170601 ")
 ;;3832
 ;;21,"63629170602 ")
 ;;3833
 ;;21,"63629170603 ")
 ;;3834
 ;;21,"63629176101 ")
 ;;3835
 ;;21,"63629176102 ")
 ;;3836
 ;;21,"63629176103 ")
 ;;3837
 ;;21,"63629254101 ")
 ;;3838
 ;;21,"63629254102 ")
 ;;3839
 ;;21,"63629254103 ")
 ;;3840
 ;;21,"63629254104 ")
 ;;3841
 ;;21,"63629268801 ")
 ;;3842
 ;;21,"63629268802 ")
 ;;3843
 ;;21,"63629268803 ")
 ;;3844
 ;;21,"63629268804 ")
 ;;3845
 ;;21,"63629268805 ")
 ;;3846
 ;;21,"63629289601 ")
 ;;3847
 ;;21,"63629290801 ")
 ;;3848
 ;;21,"63629290802 ")
 ;;3849
 ;;21,"63629290803 ")
 ;;3850
 ;;21,"63629290804 ")
 ;;3851
 ;;21,"63629293501 ")
 ;;3852
 ;;21,"63629293502 ")
 ;;3853
 ;;21,"63629293503 ")
 ;;3854
 ;;21,"63629293504 ")
 ;;3855
 ;;21,"63629321701 ")
 ;;3856
 ;;21,"63629337101 ")
 ;;3857
 ;;21,"63629337102 ")
 ;;3858
 ;;21,"63629337103 ")
 ;;3859
 ;;21,"63629337104 ")
 ;;3860
 ;;21,"63629337301 ")
 ;;3861
 ;;21,"63629337302 ")
 ;;3862
 ;;21,"63629337303 ")
 ;;3863
 ;;21,"63629337304 ")
 ;;3864
 ;;21,"63629337401 ")
 ;;3865
 ;;21,"63629337402 ")
 ;;3866
 ;;21,"63629337403 ")
 ;;3867
 ;;21,"63629337404 ")
 ;;3868
 ;;21,"63629337601 ")
 ;;3869
 ;;21,"63629337602 ")
 ;;3870
 ;;21,"63629337603 ")
 ;;3871
 ;;21,"63629337604 ")
 ;;3872
 ;;21,"63629337701 ")
 ;;3873
 ;;21,"63629337702 ")
 ;;3874
 ;;21,"63629337703 ")
 ;;3875
 ;;21,"63629337704 ")
 ;;3876
 ;;21,"63629339001 ")
 ;;3877
 ;;21,"63629339002 ")
 ;;3878
 ;;21,"63629339003 ")
 ;;3879
 ;;21,"63629339004 ")
 ;;3880
 ;;21,"63629373901 ")
 ;;3881
 ;;21,"63629373902 ")
 ;;3882
 ;;21,"63629373903 ")
 ;;3883
 ;;21,"63629436701 ")
 ;;3884
 ;;21,"63629436702 ")
 ;;3885
 ;;21,"63629436703 ")
 ;;3886
 ;;21,"63629447001 ")
 ;;3887
 ;;21,"63629447002 ")
 ;;3888
 ;;21,"63739004201 ")
 ;;3889
 ;;21,"63739004301 ")
 ;;3890
 ;;21,"63739030210 ")
 ;;3891
 ;;21,"63739032205 ")
 ;;3892
 ;;21,"63739034810 ")
 ;;3893
 ;;21,"63739034910 ")
 ;;3894
 ;;21,"63739035010 ")
 ;;3895
 ;;21,"63874005810 ")
 ;;3896
 ;;21,"63874005815 ")
 ;;3897
 ;;21,"63874005830 ")
 ;;3898
 ;;21,"63874005890 ")
 ;;3899
 ;;21,"63874034701 ")
 ;;3900
 ;;21,"63874034702 ")
 ;;3901
 ;;21,"63874034705 ")
 ;;3902
 ;;21,"63874034720 ")
 ;;3903
 ;;21,"63874034730 ")
 ;;3904
 ;;21,"63874034740 ")
 ;;3905
 ;;21,"63874034742 ")
 ;;3906
 ;;21,"63874034745 ")
 ;;3907
 ;;21,"63874034790 ")
 ;;3908
 ;;21,"63874034801 ")
 ;;3909
 ;;21,"63874034810 ")
 ;;3910
 ;;21,"63874034814 ")
 ;;3911
 ;;21,"63874034820 ")
 ;;3912
 ;;21,"63874034830 ")
 ;;3913
 ;;21,"63874034860 ")
 ;;3914
 ;;21,"63874034890 ")
 ;;3915
 ;;21,"63874037910 ")
 ;;3916
 ;;21,"63874037930 ")
 ;;3917
 ;;21,"63874042301 ")
 ;;3918
 ;;21,"63874042307 ")
 ;;3919
 ;;21,"63874042310 ")
 ;;3920
 ;;21,"63874042314 ")
 ;;3921
 ;;21,"63874042320 ")
 ;;3922
 ;;21,"63874042330 ")
 ;;3923
 ;;21,"63874042360 ")
 ;;3924
 ;;21,"63874051401 ")
 ;;3925
 ;;21,"63874051410 ")
 ;;3926
 ;;21,"63874051414 ")
 ;;3927
 ;;21,"63874051415 ")
 ;;3928
 ;;21,"63874051416 ")
 ;;3929
 ;;21,"63874051420 ")
 ;;3930
 ;;21,"63874051428 ")
 ;;3931
 ;;21,"63874051430 ")
 ;;3932
 ;;21,"63874051460 ")
 ;;3933
 ;;21,"63874051490 ")
 ;;3934
 ;;21,"63874052201 ")
 ;;3935
 ;;21,"63874052215 ")
 ;;3936
 ;;21,"63874052230 ")
 ;;3937
 ;;21,"63874052260 ")
 ;;3938
 ;;21,"63874055801 ")
 ;;3939
 ;;21,"63874055810 ")
 ;;3940
 ;;21,"63874055814 ")
 ;;3941
 ;;21,"63874055816 ")
 ;;3942
 ;;21,"63874055828 ")
 ;;3943
 ;;21,"63874055830 ")
 ;;3944
 ;;21,"63874055860 ")
 ;;3945
 ;;21,"63874055890 ")
 ;;3946
 ;;21,"63874058110 ")
 ;;3947
 ;;21,"63874058130 ")
 ;;3948
 ;;21,"63874058190 ")
 ;;3949
 ;;21,"63874064710 ")
 ;;3950
 ;;21,"63874064714 ")
 ;;3951
 ;;21,"63874064730 ")
 ;;3952
 ;;21,"63874065501 ")
 ;;3953
 ;;21,"63874065510 ")
 ;;3954
 ;;21,"63874065520 ")
 ;;3955
 ;;21,"63874065530 ")
 ;;3956
 ;;21,"63874065560 ")
 ;;3957
 ;;21,"63874098701 ")
 ;;3958
 ;;21,"63874098710 ")
 ;;3959
 ;;21,"63874098714 ")
 ;;3960
 ;;21,"63874098720 ")
 ;;3961
 ;;21,"63874098730 ")
 ;;3962
 ;;21,"63874098760 ")
 ;;3963
 ;;21,"63874111409 ")
 ;;3964
 ;;21,"64455013001 ")
 ;;3965
 ;;21,"64455013101 ")
 ;;3966
 ;;21,"64455013107 ")
 ;;3967
 ;;21,"64455013201 ")
 ;;3968
 ;;21,"64455013207 ")
 ;;3969
 ;;21,"64455014010 ")
 ;;3970
 ;;21,"64455014011 ")
 ;;3971
 ;;21,"64455014030 ")
 ;;3972
 ;;21,"64455014090 ")
 ;;3973
 ;;21,"64455014110 ")
 ;;3974
 ;;21,"64455014111 ")
 ;;3975
 ;;21,"64455014130 ")
 ;;3976
 ;;21,"64455014190 ")
 ;;3977
 ;;21,"64455014210 ")
 ;;3978
 ;;21,"64455014211 ")
 ;;3979
 ;;21,"64455014230 ")
 ;;3980
 ;;21,"64455014290 ")
 ;;3981
 ;;21,"64455014310 ")
 ;;3982
 ;;21,"64455014311 ")
 ;;3983
 ;;21,"64455014330 ")
 ;;3984
 ;;21,"64455014390 ")
 ;;3985
 ;;21,"64455014501 ")
 ;;3986
 ;;21,"64455014601 ")
 ;;3987
 ;;21,"64579001300 ")
 ;;3988
 ;;21,"64579001301 ")
 ;;3989
 ;;21,"64579001400 ")
 ;;3990
 ;;21,"64579001420 ")
 ;;3991
 ;;21,"64579001500 ")
 ;;3992
 ;;21,"64579001501 ")
 ;;3993
 ;;21,"64579009400 ")
 ;;3994
 ;;21,"64579009401 ")
 ;;3995
 ;;21,"64579009500 ")
 ;;3996
 ;;21,"64579009501 ")
 ;;3997
 ;;21,"64579009600 ")
 ;;3998
 ;;21,"64579009601 ")
 ;;3999
 ;;21,"64579009801 ")
 ;;4000
 ;;21,"64579018100 ")
 ;;4001
 ;;21,"64579018101 ")
 ;;4002
 ;;21,"64674003937 ")
 ;;4003
 ;;21,"64674004037 ")
 ;;4004
 ;;21,"64674004070 ")
 ;;4005
 ;;21,"64674004137 ")
 ;;4006
 ;;21,"64674004170 ")
 ;;4007
 ;;21,"64674004237 ")
 ;;4008
 ;;21,"64674004337 ")
 ;;4009
 ;;21,"64674004437 ")
 ;;4010
 ;;21,"64679090201 ")
 ;;4011
 ;;21,"64679090202 ")
 ;;4012
 ;;21,"64679090301 ")
 ;;4013
 ;;21,"64679090302 ")
 ;;4014
 ;;21,"64679090401 ")
 ;;4015
 ;;21,"64679090402 ")
 ;;4016
 ;;21,"64679090501 ")
 ;;4017
 ;;21,"64679090502 ")
 ;;4018
 ;;21,"64679092301 ")
 ;;4019
 ;;21,"64679092302 ")
 ;;4020
 ;;21,"64679092303 ")
 ;;4021
 ;;21,"64679092307 ")
 ;;4022
 ;;21,"64679092309 ")
 ;;4023
 ;;21,"64679092310 ")
 ;;4024
 ;;21,"64679092401 ")
 ;;4025
 ;;21,"64679092402 ")
 ;;4026
 ;;21,"64679092403 ")
 ;;4027
 ;;21,"64679092407 ")
 ;;4028
 ;;21,"64679092409 ")
 ;;4029
 ;;21,"64679092410 ")
 ;;4030
 ;;21,"64679092501 ")
 ;;4031
 ;;21,"64679092502 ")
 ;;4032
 ;;21,"64679092503 ")
 ;;4033
 ;;21,"64679092507 ")
 ;;4034
 ;;21,"64679092509 ")
 ;;4035
 ;;21,"64679092510 ")
 ;;4036
 ;;21,"64679092601 ")
 ;;4037
 ;;21,"64679092602 ")
 ;;4038
 ;;21,"64679092603 ")
 ;;4039
 ;;21,"64679092607 ")
 ;;4040
 ;;21,"64679092609 ")
 ;;4041
 ;;21,"64679092610 ")
 ;;4042
 ;;21,"64679092701 ")
 ;;4043
 ;;21,"64679092702 ")
 ;;4044
 ;;21,"64679092705 ")
 ;;4045
 ;;21,"64679092709 ")
 ;;4046
 ;;21,"64679092801 ")
 ;;4047
 ;;21,"64679092802 ")
 ;;4048
 ;;21,"64679092805 ")
 ;;4049
 ;;21,"64679092806 ")
 ;;4050
 ;;21,"64679092810 ")
 ;;4051
 ;;21,"64679092901 ")
 ;;4052
 ;;21,"64679092902 ")
 ;;4053
 ;;21,"64679092905 ")
 ;;4054
 ;;21,"64679092906 ")
 ;;4055
 ;;21,"64679092910 ")
 ;;4056
 ;;21,"64679094101 ")
 ;;4057
 ;;21,"64679094102 ")
 ;;4058
 ;;21,"64679094105 ")
 ;;4059
 ;;21,"64679094106 ")
 ;;4060
 ;;21,"64679094110 ")
 ;;4061
 ;;21,"64679094201 ")
 ;;4062
 ;;21,"64679094202 ")
 ;;4063
 ;;21,"64679094205 ")
 ;;4064
 ;;21,"64679094209 ")
 ;;4065
 ;;21,"64679095301 ")
 ;;4066
 ;;21,"64679095302 ")
 ;;4067
 ;;21,"64679095305 ")
 ;;4068
 ;;21,"64679095309 ")
 ;;4069
 ;;21,"64725005003 ")
 ;;4070
 ;;21,"64725005203 ")
 ;;4071
 ;;21,"64725005303 ")
 ;;4072
 ;;21,"64725012303 ")
 ;;4073
 ;;21,"64725012503 ")
 ;;4074
 ;;21,"64725012603 ")
 ;;4075
 ;;21,"64725019803 ")
 ;;4076
 ;;21,"64725019903 ")
 ;;4077
 ;;21,"64725039403 ")
 ;;4078
 ;;21,"65084023410 ")
 ;;4079
 ;;21,"65084023510 ")
 ;;4080
 ;;21,"65084023710 ")
 ;;4081
 ;;21,"65243009203 ")
 ;;4082
 ;;21,"65243009206 ")
 ;;4083
 ;;21,"65243009303 ")
 ;;4084
 ;;21,"65243009306 ")
 ;;4085
 ;;21,"65243009403 ")
 ;;4086
 ;;21,"65243009406 ")
 ;;4087
 ;;21,"65243012103 ")
 ;;4088
 ;;21,"65243012109 ")
 ;;4089
 ;;21,"65243012145 ")
 ;;4090
 ;;21,"65243030303 ")
 ;;4091
 ;;21,"65243030306 ")
 ;;4092
 ;;21,"65243030309 ")
 ;;4093
 ;;21,"65243030312 ")
 ;;4094
 ;;21,"65243030318 ")
 ;;4095
 ;;21,"65243031403 ")
 ;;4096
 ;;21,"65243031406 ")
 ;;4097
 ;;21,"65243031409 ")
 ;;4098
 ;;21,"65243031412 ")
 ;;4099
 ;;21,"65243031445 ")
 ;;4100
 ;;21,"65243034103 ")
 ;;4101
 ;;21,"65243034106 ")
 ;;4102
 ;;21,"65243034109 ")
 ;;4103
 ;;21,"65243034112 ")
 ;;4104
 ;;21,"65243034145 ")
 ;;4105
 ;;21,"65427001901 ")
 ;;4106
 ;;21,"65427002001 ")
 ;;4107
 ;;21,"65427002101 ")
 ;;4108
 ;;21,"65427002201 ")
 ;;4109
 ;;21,"65427052723 ")
 ;;4110
 ;;21,"65427052740 ")
 ;;4111
 ;;21,"65427052798 ")
 ;;4112
 ;;21,"65427053023 ")
 ;;4113
 ;;21,"65427053040 ")
 ;;4114
 ;;21,"65427053099 ")
 ;;4115
 ;;21,"65427053223 ")
 ;;4116
 ;;21,"65427053240 ")
 ;;4117
 ;;21,"65427053299 ")
 ;;4118
 ;;21,"65597010130 ")
 ;;4119
 ;;21,"65597010310 ")
 ;;4120
 ;;21,"65597010330 ")
 ;;4121
 ;;21,"65597010377 ")
 ;;4122
 ;;21,"65597010390 ")
 ;;4123
 ;;21,"65597010410 ")
 ;;4124
 ;;21,"65597010430 ")
 ;;4125
 ;;21,"65597010477 ")
 ;;4126
 ;;21,"65597010490 ")
 ;;4127
 ;;21,"65597010501 ")
 ;;4128
 ;;21,"65597010507 ")
 ;;4129
 ;;21,"65597010510 ")
 ;;4130
 ;;21,"65597010511 ")
 ;;4131
 ;;21,"65597010530 ")
 ;;4132
 ;;21,"65597010550 ")
 ;;4133
 ;;21,"65597010590 ")
 ;;4134
 ;;21,"65597010601 ")
 ;;4135
 ;;21,"65597010607 ")
 ;;4136
 ;;21,"65597010610 ")
 ;;4137
 ;;21,"65597010611 ")
 ;;4138
 ;;21,"65597010630 ")
 ;;4139
 ;;21,"65597010650 ")
 ;;4140
 ;;21,"65597010690 ")
 ;;4141
 ;;21,"65597010701 ")
 ;;4142
 ;;21,"65597010707 ")
 ;;4143
 ;;21,"65597010710 ")
 ;;4144
 ;;21,"65597010711 ")
 ;;4145
 ;;21,"65597010730 ")
 ;;4146
 ;;21,"65597010750 ")
 ;;4147
 ;;21,"65597010790 ")
 ;;4148
 ;;21,"65862003700 ")
 ;;4149
 ;;21,"65862003701 ")
 ;;4150
 ;;21,"65862003705 ")
 ;;4151
 ;;21,"65862003713 ")
 ;;4152
 ;;21,"65862003730 ")
 ;;4153
 ;;21,"65862003800 ")
 ;;4154
 ;;21,"65862003801 ")
 ;;4155
 ;;21,"65862003805 ")
 ;;4156
 ;;21,"65862003813 ")
 ;;4157
 ;;21,"65862003830 ")
 ;;4158
 ;;21,"65862003900 ")
 ;;4159
 ;;21,"65862003901 ")
 ;;4160
 ;;21,"65862003905 ")
 ;;4161
 ;;21,"65862003913 ")
 ;;4162
 ;;21,"65862003930 ")
 ;;4163
 ;;21,"65862004000 ")
 ;;4164
 ;;21,"65862004001 ")
 ;;4165
 ;;21,"65862004005 ")
 ;;4166
 ;;21,"65862004030 ")
 ;;4167
 ;;21,"65862004065 ")
 ;;4168
 ;;21,"65862004100 ")
 ;;4169
 ;;21,"65862004101 ")
 ;;4170