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

BGP33J11.m

Go to the documentation of this file.
BGP33J11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"54868-0939-02 ")
 ;;3883
 ;;21,"54868-0939-03 ")
 ;;3884
 ;;21,"54868-0939-05 ")
 ;;3885
 ;;21,"54868-0939-06 ")
 ;;3886
 ;;21,"54868-0939-07 ")
 ;;3887
 ;;21,"54868-0971-00 ")
 ;;3888
 ;;21,"54868-0971-01 ")
 ;;3889
 ;;21,"54868-0985-01 ")
 ;;3890
 ;;21,"54868-0990-00 ")
 ;;3891
 ;;21,"54868-0990-01 ")
 ;;3892
 ;;21,"54868-0990-02 ")
 ;;3893
 ;;21,"54868-0990-04 ")
 ;;3894
 ;;21,"54868-0990-05 ")
 ;;3895
 ;;21,"54868-1080-00 ")
 ;;3896
 ;;21,"54868-1080-01 ")
 ;;3897
 ;;21,"54868-1080-03 ")
 ;;3898
 ;;21,"54868-1146-00 ")
 ;;3899
 ;;21,"54868-1171-00 ")
 ;;3900
 ;;21,"54868-1171-01 ")
 ;;3901
 ;;21,"54868-1171-02 ")
 ;;3902
 ;;21,"54868-1171-03 ")
 ;;3903
 ;;21,"54868-1173-00 ")
 ;;3904
 ;;21,"54868-1173-01 ")
 ;;3905
 ;;21,"54868-1173-02 ")
 ;;3906
 ;;21,"54868-1173-04 ")
 ;;3907
 ;;21,"54868-1173-05 ")
 ;;3908
 ;;21,"54868-1173-06 ")
 ;;3909
 ;;21,"54868-1184-01 ")
 ;;3910
 ;;21,"54868-1184-02 ")
 ;;3911
 ;;21,"54868-1184-03 ")
 ;;3912
 ;;21,"54868-1231-00 ")
 ;;3913
 ;;21,"54868-1380-00 ")
 ;;3914
 ;;21,"54868-1380-01 ")
 ;;3915
 ;;21,"54868-1380-02 ")
 ;;3916
 ;;21,"54868-1380-03 ")
 ;;3917
 ;;21,"54868-1385-01 ")
 ;;3918
 ;;21,"54868-1385-02 ")
 ;;3919
 ;;21,"54868-1386-01 ")
 ;;3920
 ;;21,"54868-1386-02 ")
 ;;3921
 ;;21,"54868-1386-03 ")
 ;;3922
 ;;21,"54868-1386-04 ")
 ;;3923
 ;;21,"54868-1386-05 ")
 ;;3924
 ;;21,"54868-1387-00 ")
 ;;3925
 ;;21,"54868-1387-01 ")
 ;;3926
 ;;21,"54868-1387-02 ")
 ;;3927
 ;;21,"54868-1387-04 ")
 ;;3928
 ;;21,"54868-1392-00 ")
 ;;3929
 ;;21,"54868-1420-01 ")
 ;;3930
 ;;21,"54868-1426-01 ")
 ;;3931
 ;;21,"54868-1616-01 ")
 ;;3932
 ;;21,"54868-1616-02 ")
 ;;3933
 ;;21,"54868-1616-03 ")
 ;;3934
 ;;21,"54868-1709-01 ")
 ;;3935
 ;;21,"54868-1710-00 ")
 ;;3936
 ;;21,"54868-1772-00 ")
 ;;3937
 ;;21,"54868-1772-02 ")
 ;;3938
 ;;21,"54868-1774-00 ")
 ;;3939
 ;;21,"54868-1774-02 ")
 ;;3940
 ;;21,"54868-1780-01 ")
 ;;3941
 ;;21,"54868-1780-02 ")
 ;;3942
 ;;21,"54868-1857-00 ")
 ;;3943
 ;;21,"54868-1857-01 ")
 ;;3944
 ;;21,"54868-1857-02 ")
 ;;3945
 ;;21,"54868-1857-05 ")
 ;;3946
 ;;21,"54868-1857-06 ")
 ;;3947
 ;;21,"54868-1857-07 ")
 ;;3948
 ;;21,"54868-1865-01 ")
 ;;3949
 ;;21,"54868-1865-02 ")
 ;;3950
 ;;21,"54868-1865-03 ")
 ;;3951
 ;;21,"54868-1886-00 ")
 ;;3952
 ;;21,"54868-1887-00 ")
 ;;3953
 ;;21,"54868-1887-01 ")
 ;;3954
 ;;21,"54868-2016-00 ")
 ;;3955
 ;;21,"54868-2017-00 ")
 ;;3956
 ;;21,"54868-2017-01 ")
 ;;3957
 ;;21,"54868-2338-00 ")
 ;;3958
 ;;21,"54868-2338-01 ")
 ;;3959
 ;;21,"54868-2338-02 ")
 ;;3960
 ;;21,"54868-2338-03 ")
 ;;3961
 ;;21,"54868-2338-06 ")
 ;;3962
 ;;21,"54868-2338-07 ")
 ;;3963
 ;;21,"54868-2390-00 ")
 ;;3964
 ;;21,"54868-2390-01 ")
 ;;3965
 ;;21,"54868-2391-00 ")
 ;;3966
 ;;21,"54868-2391-01 ")
 ;;3967
 ;;21,"54868-2391-02 ")
 ;;3968
 ;;21,"54868-2391-03 ")
 ;;3969
 ;;21,"54868-2391-04 ")
 ;;3970
 ;;21,"54868-2444-00 ")
 ;;3971
 ;;21,"54868-2488-01 ")
 ;;3972
 ;;21,"54868-2840-00 ")
 ;;3973
 ;;21,"54868-2840-01 ")
 ;;3974
 ;;21,"54868-2910-00 ")
 ;;3975
 ;;21,"54868-3016-00 ")
 ;;3976
 ;;21,"54868-3016-01 ")
 ;;3977
 ;;21,"54868-3105-00 ")
 ;;3978
 ;;21,"54868-3105-01 ")
 ;;3979
 ;;21,"54868-3105-02 ")
 ;;3980
 ;;21,"54868-3105-03 ")
 ;;3981
 ;;21,"54868-3107-00 ")
 ;;3982
 ;;21,"54868-3107-01 ")
 ;;3983
 ;;21,"54868-3107-02 ")
 ;;3984
 ;;21,"54868-3107-03 ")
 ;;3985
 ;;21,"54868-3107-06 ")
 ;;3986
 ;;21,"54868-3107-07 ")
 ;;3987
 ;;21,"54868-3107-08 ")
 ;;3988
 ;;21,"54868-3107-09 ")
 ;;3989
 ;;21,"54868-3109-00 ")
 ;;3990
 ;;21,"54868-3109-01 ")
 ;;3991
 ;;21,"54868-3109-02 ")
 ;;3992
 ;;21,"54868-3109-04 ")
 ;;3993
 ;;21,"54868-3109-06 ")
 ;;3994
 ;;21,"54868-3109-07 ")
 ;;3995
 ;;21,"54868-3109-08 ")
 ;;3996
 ;;21,"54868-3109-09 ")
 ;;3997
 ;;21,"54868-3113-00 ")
 ;;3998
 ;;21,"54868-3113-03 ")
 ;;3999
 ;;21,"54868-3113-05 ")
 ;;4000
 ;;21,"54868-3113-07 ")
 ;;4001
 ;;21,"54868-3113-08 ")
 ;;4002
 ;;21,"54868-3113-09 ")
 ;;4003
 ;;21,"54868-3169-00 ")
 ;;4004
 ;;21,"54868-3169-01 ")
 ;;4005
 ;;21,"54868-3169-02 ")
 ;;4006
 ;;21,"54868-3169-04 ")
 ;;4007
 ;;21,"54868-3169-05 ")
 ;;4008
 ;;21,"54868-3221-00 ")
 ;;4009
 ;;21,"54868-3221-01 ")
 ;;4010
 ;;21,"54868-3244-00 ")
 ;;4011
 ;;21,"54868-3343-00 ")
 ;;4012
 ;;21,"54868-3343-01 ")
 ;;4013
 ;;21,"54868-3343-02 ")
 ;;4014
 ;;21,"54868-3343-03 ")
 ;;4015
 ;;21,"54868-3384-00 ")
 ;;4016
 ;;21,"54868-3472-00 ")
 ;;4017
 ;;21,"54868-3473-00 ")
 ;;4018
 ;;21,"54868-3480-00 ")
 ;;4019
 ;;21,"54868-3511-04 ")
 ;;4020
 ;;21,"54868-3648-00 ")
 ;;4021
 ;;21,"54868-3742-00 ")
 ;;4022
 ;;21,"54868-3742-01 ")
 ;;4023
 ;;21,"54868-3742-02 ")
 ;;4024
 ;;21,"54868-3742-03 ")
 ;;4025
 ;;21,"54868-3820-00 ")
 ;;4026
 ;;21,"54868-3903-00 ")
 ;;4027
 ;;21,"54868-3903-01 ")
 ;;4028
 ;;21,"54868-3903-02 ")
 ;;4029
 ;;21,"54868-3903-03 ")
 ;;4030
 ;;21,"54868-3923-00 ")
 ;;4031
 ;;21,"54868-3923-01 ")
 ;;4032
 ;;21,"54868-3923-02 ")
 ;;4033
 ;;21,"54868-3923-03 ")
 ;;4034
 ;;21,"54868-3923-04 ")
 ;;4035
 ;;21,"54868-3923-05 ")
 ;;4036
 ;;21,"54868-4047-00 ")
 ;;4037
 ;;21,"54868-4076-00 ")
 ;;4038
 ;;21,"54868-4078-00 ")
 ;;4039
 ;;21,"54868-4078-01 ")
 ;;4040
 ;;21,"54868-4078-02 ")
 ;;4041
 ;;21,"54868-4080-00 ")
 ;;4042
 ;;21,"54868-4125-01 ")
 ;;4043
 ;;21,"54868-4125-02 ")
 ;;4044
 ;;21,"54868-4131-01 ")
 ;;4045
 ;;21,"54868-4150-00 ")
 ;;4046
 ;;21,"54868-4150-01 ")
 ;;4047
 ;;21,"54868-4150-02 ")
 ;;4048
 ;;21,"54868-4154-00 ")
 ;;4049
 ;;21,"54868-4155-00 ")
 ;;4050
 ;;21,"54868-4155-01 ")
 ;;4051
 ;;21,"54868-4155-02 ")
 ;;4052
 ;;21,"54868-4155-03 ")
 ;;4053
 ;;21,"54868-4169-00 ")
 ;;4054
 ;;21,"54868-4175-00 ")
 ;;4055
 ;;21,"54868-4175-01 ")
 ;;4056
 ;;21,"54868-4175-02 ")
 ;;4057
 ;;21,"54868-4175-03 ")
 ;;4058
 ;;21,"54868-4175-04 ")
 ;;4059
 ;;21,"54868-4175-05 ")
 ;;4060
 ;;21,"54868-4191-00 ")
 ;;4061
 ;;21,"54868-4191-01 ")
 ;;4062
 ;;21,"54868-4366-00 ")
 ;;4063
 ;;21,"54868-4366-01 ")
 ;;4064
 ;;21,"54868-4367-00 ")
 ;;4065
 ;;21,"54868-4367-01 ")
 ;;4066
 ;;21,"54868-4367-02 ")
 ;;4067
 ;;21,"54868-4367-03 ")
 ;;4068
 ;;21,"54868-4468-00 ")
 ;;4069
 ;;21,"54868-4470-00 ")
 ;;4070
 ;;21,"54868-4473-00 ")
 ;;4071
 ;;21,"54868-4473-01 ")
 ;;4072
 ;;21,"54868-4488-00 ")
 ;;4073
 ;;21,"54868-4527-00 ")
 ;;4074
 ;;21,"54868-4543-00 ")
 ;;4075
 ;;21,"54868-4543-01 ")
 ;;4076
 ;;21,"54868-4543-02 ")
 ;;4077
 ;;21,"54868-4547-00 ")
 ;;4078
 ;;21,"54868-4614-00 ")
 ;;4079
 ;;21,"54868-4614-01 ")
 ;;4080
 ;;21,"54868-4644-00 ")
 ;;4081
 ;;21,"54868-4644-01 ")
 ;;4082
 ;;21,"54868-4644-02 ")
 ;;4083
 ;;21,"54868-4651-00 ")
 ;;4084
 ;;21,"54868-4680-01 ")
 ;;4085
 ;;21,"54868-4682-00 ")
 ;;4086
 ;;21,"54868-4682-01 ")
 ;;4087
 ;;21,"54868-4711-00 ")
 ;;4088
 ;;21,"54868-4734-00 ")
 ;;4089
 ;;21,"54868-4734-01 ")
 ;;4090
 ;;21,"54868-4734-02 ")
 ;;4091
 ;;21,"54868-4734-03 ")
 ;;4092
 ;;21,"54868-4734-04 ")
 ;;4093
 ;;21,"54868-4735-00 ")
 ;;4094
 ;;21,"54868-4735-01 ")
 ;;4095
 ;;21,"54868-4735-02 ")
 ;;4096
 ;;21,"54868-4743-00 ")
 ;;4097
 ;;21,"54868-4743-01 ")
 ;;4098
 ;;21,"54868-4743-02 ")
 ;;4099
 ;;21,"54868-4858-00 ")
 ;;4100
 ;;21,"54868-4858-01 ")
 ;;4101
 ;;21,"54868-4858-02 ")
 ;;4102
 ;;21,"54868-4858-03 ")
 ;;4103
 ;;21,"54868-4858-04 ")
 ;;4104
 ;;21,"54868-4858-05 ")
 ;;4105
 ;;21,"54868-4858-06 ")
 ;;4106
 ;;21,"54868-4858-07 ")
 ;;4107
 ;;21,"54868-4858-08 ")
 ;;4108
 ;;21,"54868-4898-00 ")
 ;;4109
 ;;21,"54868-4898-01 ")
 ;;4110
 ;;21,"54868-4898-02 ")
 ;;4111
 ;;21,"54868-4898-03 ")
 ;;4112
 ;;21,"54868-4898-04 ")
 ;;4113
 ;;21,"54868-4919-00 ")
 ;;4114
 ;;21,"54868-4951-00 ")
 ;;4115
 ;;21,"54868-4951-01 ")
 ;;4116
 ;;21,"54868-4951-02 ")
 ;;4117
 ;;21,"54868-4971-00 ")
 ;;4118
 ;;21,"54868-4987-00 ")
 ;;4119
 ;;21,"54868-4987-01 ")
 ;;4120
 ;;21,"54868-4990-00 ")
 ;;4121
 ;;21,"54868-5022-00 ")
 ;;4122
 ;;21,"54868-5022-01 ")
 ;;4123
 ;;21,"54868-5022-02 ")
 ;;4124
 ;;21,"54868-5023-00 ")
 ;;4125
 ;;21,"54868-5023-01 ")
 ;;4126
 ;;21,"54868-5040-00 ")
 ;;4127
 ;;21,"54868-5040-01 ")
 ;;4128
 ;;21,"54868-5040-02 ")
 ;;4129
 ;;21,"54868-5044-00 ")
 ;;4130
 ;;21,"54868-5044-01 ")
 ;;4131
 ;;21,"54868-5044-02 ")
 ;;4132
 ;;21,"54868-5044-03 ")
 ;;4133
 ;;21,"54868-5044-04 ")
 ;;4134
 ;;21,"54868-5101-00 ")
 ;;4135
 ;;21,"54868-5101-01 ")
 ;;4136
 ;;21,"54868-5101-02 ")
 ;;4137
 ;;21,"54868-5165-00 ")
 ;;4138
 ;;21,"54868-5211-00 ")
 ;;4139
 ;;21,"54868-5211-01 ")
 ;;4140
 ;;21,"54868-5211-02 ")
 ;;4141
 ;;21,"54868-5211-03 ")
 ;;4142
 ;;21,"54868-5211-04 ")
 ;;4143
 ;;21,"54868-5269-00 ")
 ;;4144
 ;;21,"54868-5404-00 ")
 ;;4145
 ;;21,"54868-5430-00 ")
 ;;4146
 ;;21,"54868-5430-01 ")
 ;;4147
 ;;21,"54868-5430-02 ")
 ;;4148
 ;;21,"54868-5471-00 ")
 ;;4149
 ;;21,"54868-5478-00 ")
 ;;4150
 ;;21,"54868-5478-01 ")
 ;;4151
 ;;21,"54868-5478-02 ")
 ;;4152
 ;;21,"54868-5487-00 ")
 ;;4153
 ;;21,"54868-5533-00 ")
 ;;4154
 ;;21,"54868-5589-00 ")
 ;;4155
 ;;21,"54868-5647-00 ")
 ;;4156
 ;;21,"54868-5648-00 ")
 ;;4157
 ;;21,"54868-5648-01 ")
 ;;4158
 ;;21,"54868-5648-02 ")
 ;;4159
 ;;21,"54868-5676-00 ")
 ;;4160
 ;;21,"54868-5756-00 ")
 ;;4161
 ;;21,"54868-5757-00 ")
 ;;4162
 ;;21,"54868-5767-00 ")
 ;;4163
 ;;21,"54868-5768-00 ")
 ;;4164
 ;;21,"54868-5768-01 ")
 ;;4165
 ;;21,"54868-5769-00 ")
 ;;4166
 ;;21,"54868-5769-01 ")
 ;;4167
 ;;21,"54868-5833-00 ")
 ;;4168
 ;;21,"54868-5981-00 ")
 ;;4169
 ;;21,"55045-1113-00 ")
 ;;4170
 ;;21,"55045-1113-01 ")
 ;;4171
 ;;21,"55045-1113-03 ")
 ;;4172
 ;;21,"55045-1113-07 ")
 ;;4173
 ;;21,"55045-1113-09 ")
 ;;4174
 ;;21,"55045-1170-00 ")
 ;;4175
 ;;21,"55045-1170-01 ")
 ;;4176
 ;;21,"55045-1176-01 ")
 ;;4177
 ;;21,"55045-1189-01 ")
 ;;4178
 ;;21,"55045-1199-03 ")
 ;;4179
 ;;21,"55045-1200-00 ")
 ;;4180
 ;;21,"55045-1200-03 ")
 ;;4181
 ;;21,"55045-1201-03 ")
 ;;4182
 ;;21,"55045-1201-07 ")
 ;;4183
 ;;21,"55045-1201-08 ")
 ;;4184
 ;;21,"55045-1202-00 ")
 ;;4185
 ;;21,"55045-1202-01 ")
 ;;4186
 ;;21,"55045-1202-02 ")
 ;;4187
 ;;21,"55045-1202-03 ")
 ;;4188
 ;;21,"55045-1202-04 ")
 ;;4189
 ;;21,"55045-1202-05 ")
 ;;4190
 ;;21,"55045-1202-06 ")
 ;;4191
 ;;21,"55045-1202-07 ")
 ;;4192
 ;;21,"55045-1202-08 ")
 ;;4193
 ;;21,"55045-1202-09 ")
 ;;4194
 ;;21,"55045-1204-03 ")
 ;;4195
 ;;21,"55045-1204-09 ")
 ;;4196
 ;;21,"55045-1207-00 ")
 ;;4197
 ;;21,"55045-1207-01 ")
 ;;4198
 ;;21,"55045-1207-02 ")
 ;;4199
 ;;21,"55045-1207-03 ")
 ;;4200
 ;;21,"55045-1207-04 ")
 ;;4201
 ;;21,"55045-1207-05 ")
 ;;4202
 ;;21,"55045-1207-06 ")
 ;;4203
 ;;21,"55045-1207-07 ")
 ;;4204
 ;;21,"55045-1207-08 ")
 ;;4205
 ;;21,"55045-1210-00 ")
 ;;4206
 ;;21,"55045-1210-01 ")
 ;;4207
 ;;21,"55045-1210-03 ")
 ;;4208
 ;;21,"55045-1210-05 ")
 ;;4209
 ;;21,"55045-1210-06 ")
 ;;4210
 ;;21,"55045-1210-07 ")
 ;;4211
 ;;21,"55045-1210-08 ")
 ;;4212
 ;;21,"55045-1210-09 ")
 ;;4213
 ;;21,"55045-1227-00 ")
 ;;4214
 ;;21,"55045-1227-01 ")
 ;;4215
 ;;21,"55045-1227-02 ")
 ;;4216
 ;;21,"55045-1227-03 ")
 ;;4217
 ;;21,"55045-1227-04 ")
 ;;4218
 ;;21,"55045-1227-06 ")
 ;;4219
 ;;21,"55045-1227-07 ")
 ;;4220
 ;;21,"55045-1227-08 ")
 ;;4221
 ;;21,"55045-1227-09 ")
 ;;4222
 ;;21,"55045-1247-01 ")
 ;;4223
 ;;21,"55045-1258-07 ")
 ;;4224
 ;;21,"55045-1262-09 ")
 ;;4225
 ;;21,"55045-1270-03 ")
 ;;4226
 ;;21,"55045-1270-04 ")
 ;;4227
 ;;21,"55045-1270-05 ")
 ;;4228
 ;;21,"55045-1270-06 ")
 ;;4229
 ;;21,"55045-1270-08 ")
 ;;4230
 ;;21,"55045-1270-09 ")
 ;;4231
 ;;21,"55045-1322-00 ")
 ;;4232
 ;;21,"55045-1322-01 ")
 ;;4233
 ;;21,"55045-1322-02 ")
 ;;4234
 ;;21,"55045-1322-03 ")
 ;;4235
 ;;21,"55045-1322-04 ")
 ;;4236
 ;;21,"55045-1322-05 ")
 ;;4237
 ;;21,"55045-1322-06 ")
 ;;4238
 ;;21,"55045-1322-07 ")
 ;;4239
 ;;21,"55045-1322-08 ")
 ;;4240
 ;;21,"55045-1322-09 ")
 ;;4241
 ;;21,"55045-1345-03 ")
 ;;4242
 ;;21,"55045-1373-08 ")
 ;;4243
 ;;21,"55045-1381-06 ")
 ;;4244
 ;;21,"55045-1415-01 ")
 ;;4245
 ;;21,"55045-1442-01 ")
 ;;4246
 ;;21,"55045-1469-09 ")
 ;;4247
 ;;21,"55045-1471-00 ")
 ;;4248
 ;;21,"55045-1478-07 ")
 ;;4249
 ;;21,"55045-1478-08 ")
 ;;4250
 ;;21,"55045-1494-03 ")
 ;;4251
 ;;21,"55045-1494-05 ")
 ;;4252
 ;;21,"55045-1494-08 ")
 ;;4253
 ;;21,"55045-1494-09 ")
 ;;4254
 ;;21,"55045-1500-09 ")
 ;;4255
 ;;21,"55045-1514-06 ")
 ;;4256
 ;;21,"55045-1546-02 ")
 ;;4257
 ;;21,"55045-1546-03 ")
 ;;4258
 ;;21,"55045-1546-05 ")
 ;;4259
 ;;21,"55045-1546-07 ")
 ;;4260
 ;;21,"55045-1650-02 ")
 ;;4261
 ;;21,"55045-1843-03 ")
 ;;4262
 ;;21,"55045-1848-03 ")
 ;;4263
 ;;21,"55045-1865-07 ")
 ;;4264
 ;;21,"55045-1918-00 ")
 ;;4265
 ;;21,"55045-1918-01 ")
 ;;4266
 ;;21,"55045-1918-02 ")
 ;;4267
 ;;21,"55045-1918-03 ")
 ;;4268