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