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

BGP82I13.m

Go to the documentation of this file.
  1. BGP82I13 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"66267-0570-30 ")
  1. ;;4021
  1. ;;21,"66267-0577-30 ")
  1. ;;4022
  1. ;;21,"66267-0583-30 ")
  1. ;;4023
  1. ;;21,"66267-0751-30 ")
  1. ;;4024
  1. ;;21,"66267-0751-90 ")
  1. ;;4025
  1. ;;21,"66267-0752-30 ")
  1. ;;4026
  1. ;;21,"66267-0752-90 ")
  1. ;;4027
  1. ;;21,"66267-1009-00 ")
  1. ;;4028
  1. ;;21,"66336-0393-90 ")
  1. ;;4029
  1. ;;21,"66336-0572-90 ")
  1. ;;4030
  1. ;;21,"66336-0665-15 ")
  1. ;;4031
  1. ;;21,"66336-0665-30 ")
  1. ;;4032
  1. ;;21,"66336-0666-30 ")
  1. ;;4033
  1. ;;21,"66685-0302-00 ")
  1. ;;4034
  1. ;;21,"66685-0302-02 ")
  1. ;;4035
  1. ;;21,"66685-0303-00 ")
  1. ;;4036
  1. ;;21,"66685-0304-00 ")
  1. ;;4037
  1. ;;21,"66685-0304-02 ")
  1. ;;4038
  1. ;;21,"66685-0706-04 ")
  1. ;;4039
  1. ;;21,"67544-0062-30 ")
  1. ;;4040
  1. ;;21,"67544-0062-60 ")
  1. ;;4041
  1. ;;21,"67544-0062-82 ")
  1. ;;4042
  1. ;;21,"67544-0128-15 ")
  1. ;;4043
  1. ;;21,"67544-0128-30 ")
  1. ;;4044
  1. ;;21,"67544-0128-45 ")
  1. ;;4045
  1. ;;21,"67544-0128-53 ")
  1. ;;4046
  1. ;;21,"67544-0128-60 ")
  1. ;;4047
  1. ;;21,"67544-0134-15 ")
  1. ;;4048
  1. ;;21,"67544-0134-30 ")
  1. ;;4049
  1. ;;21,"67544-0134-45 ")
  1. ;;4050
  1. ;;21,"67544-0134-60 ")
  1. ;;4051
  1. ;;21,"67544-0134-80 ")
  1. ;;4052
  1. ;;21,"67544-0148-15 ")
  1. ;;4053
  1. ;;21,"67544-0148-30 ")
  1. ;;4054
  1. ;;21,"67544-0148-45 ")
  1. ;;4055
  1. ;;21,"67544-0148-53 ")
  1. ;;4056
  1. ;;21,"67544-0148-60 ")
  1. ;;4057
  1. ;;21,"67544-0148-80 ")
  1. ;;4058
  1. ;;21,"67544-0150-45 ")
  1. ;;4059
  1. ;;21,"67544-0150-60 ")
  1. ;;4060
  1. ;;21,"67544-0150-73 ")
  1. ;;4061
  1. ;;21,"67544-0150-92 ")
  1. ;;4062
  1. ;;21,"67544-0159-15 ")
  1. ;;4063
  1. ;;21,"67544-0159-30 ")
  1. ;;4064
  1. ;;21,"67544-0159-45 ")
  1. ;;4065
  1. ;;21,"67544-0159-58 ")
  1. ;;4066
  1. ;;21,"67544-0159-60 ")
  1. ;;4067
  1. ;;21,"67544-0159-80 ")
  1. ;;4068
  1. ;;21,"67544-0160-60 ")
  1. ;;4069
  1. ;;21,"67544-0160-80 ")
  1. ;;4070
  1. ;;21,"67544-0165-80 ")
  1. ;;4071
  1. ;;21,"67544-0173-30 ")
  1. ;;4072
  1. ;;21,"67544-0173-45 ")
  1. ;;4073
  1. ;;21,"67544-0173-53 ")
  1. ;;4074
  1. ;;21,"67544-0173-60 ")
  1. ;;4075
  1. ;;21,"67544-0174-30 ")
  1. ;;4076
  1. ;;21,"67544-0174-45 ")
  1. ;;4077
  1. ;;21,"67544-0174-60 ")
  1. ;;4078
  1. ;;21,"67544-0174-80 ")
  1. ;;4079
  1. ;;21,"67544-0177-45 ")
  1. ;;4080
  1. ;;21,"67544-0192-30 ")
  1. ;;4081
  1. ;;21,"67544-0192-45 ")
  1. ;;4082
  1. ;;21,"67544-0192-53 ")
  1. ;;4083
  1. ;;21,"67544-0192-60 ")
  1. ;;4084
  1. ;;21,"67544-0212-45 ")
  1. ;;4085
  1. ;;21,"67544-0212-53 ")
  1. ;;4086
  1. ;;21,"67544-0218-60 ")
  1. ;;4087
  1. ;;21,"67544-0218-82 ")
  1. ;;4088
  1. ;;21,"67544-0219-15 ")
  1. ;;4089
  1. ;;21,"67544-0219-30 ")
  1. ;;4090
  1. ;;21,"67544-0219-45 ")
  1. ;;4091
  1. ;;21,"67544-0219-60 ")
  1. ;;4092
  1. ;;21,"67544-0234-32 ")
  1. ;;4093
  1. ;;21,"67544-0234-45 ")
  1. ;;4094
  1. ;;21,"67544-0234-53 ")
  1. ;;4095
  1. ;;21,"67544-0250-60 ")
  1. ;;4096
  1. ;;21,"67544-0250-80 ")
  1. ;;4097
  1. ;;21,"67544-0276-60 ")
  1. ;;4098
  1. ;;21,"67544-0276-80 ")
  1. ;;4099
  1. ;;21,"67544-0306-30 ")
  1. ;;4100
  1. ;;21,"67544-0306-45 ")
  1. ;;4101
  1. ;;21,"67544-0306-60 ")
  1. ;;4102
  1. ;;21,"67544-0311-30 ")
  1. ;;4103
  1. ;;21,"67544-0311-45 ")
  1. ;;4104
  1. ;;21,"67544-0321-15 ")
  1. ;;4105
  1. ;;21,"67544-0321-30 ")
  1. ;;4106
  1. ;;21,"67544-0321-60 ")
  1. ;;4107
  1. ;;21,"67544-0322-30 ")
  1. ;;4108
  1. ;;21,"67544-0322-45 ")
  1. ;;4109
  1. ;;21,"67544-0322-53 ")
  1. ;;4110
  1. ;;21,"67544-0322-60 ")
  1. ;;4111
  1. ;;21,"67544-0322-73 ")
  1. ;;4112
  1. ;;21,"67544-0322-80 ")
  1. ;;4113
  1. ;;21,"67544-0322-92 ")
  1. ;;4114
  1. ;;21,"67544-0322-94 ")
  1. ;;4115
  1. ;;21,"67544-0382-30 ")
  1. ;;4116
  1. ;;21,"67544-0382-60 ")
  1. ;;4117
  1. ;;21,"67544-0400-45 ")
  1. ;;4118
  1. ;;21,"67544-0403-30 ")
  1. ;;4119
  1. ;;21,"67544-0403-79 ")
  1. ;;4120
  1. ;;21,"67544-0404-30 ")
  1. ;;4121
  1. ;;21,"67544-0404-79 ")
  1. ;;4122
  1. ;;21,"67544-0418-60 ")
  1. ;;4123
  1. ;;21,"67544-0418-80 ")
  1. ;;4124
  1. ;;21,"67544-0431-15 ")
  1. ;;4125
  1. ;;21,"67544-0431-30 ")
  1. ;;4126
  1. ;;21,"67544-0431-45 ")
  1. ;;4127
  1. ;;21,"67544-0431-53 ")
  1. ;;4128
  1. ;;21,"67544-0431-60 ")
  1. ;;4129
  1. ;;21,"67544-0431-70 ")
  1. ;;4130
  1. ;;21,"67544-0431-73 ")
  1. ;;4131
  1. ;;21,"67544-0431-80 ")
  1. ;;4132
  1. ;;21,"67544-0431-92 ")
  1. ;;4133
  1. ;;21,"67544-0431-94 ")
  1. ;;4134
  1. ;;21,"67544-0997-30 ")
  1. ;;4135
  1. ;;21,"67877-0445-30 ")
  1. ;;4136
  1. ;;21,"67877-0446-30 ")
  1. ;;4137
  1. ;;21,"67877-0446-90 ")
  1. ;;4138
  1. ;;21,"67877-0447-30 ")
  1. ;;4139
  1. ;;21,"67877-0447-90 ")
  1. ;;4140
  1. ;;21,"67877-0482-33 ")
  1. ;;4141
  1. ;;21,"67877-0482-84 ")
  1. ;;4142
  1. ;;21,"67877-0483-33 ")
  1. ;;4143
  1. ;;21,"67877-0483-84 ")
  1. ;;4144
  1. ;;21,"67877-0484-33 ")
  1. ;;4145
  1. ;;21,"67877-0484-84 ")
  1. ;;4146
  1. ;;21,"68001-0130-00 ")
  1. ;;4147
  1. ;;21,"68001-0131-00 ")
  1. ;;4148
  1. ;;21,"68001-0132-00 ")
  1. ;;4149
  1. ;;21,"68001-0133-00 ")
  1. ;;4150
  1. ;;21,"68001-0134-00 ")
  1. ;;4151
  1. ;;21,"68001-0135-00 ")
  1. ;;4152
  1. ;;21,"68001-0140-04 ")
  1. ;;4153
  1. ;;21,"68001-0141-00 ")
  1. ;;4154
  1. ;;21,"68001-0141-03 ")
  1. ;;4155
  1. ;;21,"68001-0142-00 ")
  1. ;;4156
  1. ;;21,"68001-0142-03 ")
  1. ;;4157
  1. ;;21,"68001-0143-00 ")
  1. ;;4158
  1. ;;21,"68001-0143-03 ")
  1. ;;4159
  1. ;;21,"68001-0186-05 ")
  1. ;;4160
  1. ;;21,"68001-0187-05 ")
  1. ;;4161
  1. ;;21,"68001-0188-05 ")
  1. ;;4162
  1. ;;21,"68001-0189-05 ")
  1. ;;4163
  1. ;;21,"68001-0207-00 ")
  1. ;;4164
  1. ;;21,"68001-0207-08 ")
  1. ;;4165
  1. ;;21,"68001-0208-00 ")
  1. ;;4166
  1. ;;21,"68001-0208-08 ")
  1. ;;4167
  1. ;;21,"68001-0209-00 ")
  1. ;;4168
  1. ;;21,"68001-0209-08 ")
  1. ;;4169
  1. ;;21,"68001-0210-00 ")
  1. ;;4170
  1. ;;21,"68001-0210-08 ")
  1. ;;4171
  1. ;;21,"68001-0211-00 ")
  1. ;;4172
  1. ;;21,"68001-0211-08 ")
  1. ;;4173
  1. ;;21,"68001-0212-00 ")
  1. ;;4174
  1. ;;21,"68001-0260-05 ")
  1. ;;4175
  1. ;;21,"68001-0268-00 ")
  1. ;;4176
  1. ;;21,"68001-0268-08 ")
  1. ;;4177
  1. ;;21,"68001-0269-00 ")
  1. ;;4178
  1. ;;21,"68001-0269-08 ")
  1. ;;4179
  1. ;;21,"68001-0270-00 ")
  1. ;;4180
  1. ;;21,"68001-0271-00 ")
  1. ;;4181
  1. ;;21,"68001-0271-08 ")
  1. ;;4182
  1. ;;21,"68001-0272-00 ")
  1. ;;4183
  1. ;;21,"68001-0272-08 ")
  1. ;;4184
  1. ;;21,"68071-0026-30 ")
  1. ;;4185
  1. ;;21,"68071-0026-60 ")
  1. ;;4186
  1. ;;21,"68071-0026-90 ")
  1. ;;4187
  1. ;;21,"68071-0146-30 ")
  1. ;;4188
  1. ;;21,"68071-0146-60 ")
  1. ;;4189
  1. ;;21,"68071-0146-90 ")
  1. ;;4190
  1. ;;21,"68071-0146-91 ")
  1. ;;4191
  1. ;;21,"68071-0153-30 ")
  1. ;;4192
  1. ;;21,"68071-0153-60 ")
  1. ;;4193
  1. ;;21,"68071-0153-90 ")
  1. ;;4194
  1. ;;21,"68071-0785-30 ")
  1. ;;4195
  1. ;;21,"68071-0785-60 ")
  1. ;;4196
  1. ;;21,"68071-0786-30 ")
  1. ;;4197
  1. ;;21,"68071-0786-60 ")
  1. ;;4198
  1. ;;21,"68071-0787-60 ")
  1. ;;4199
  1. ;;21,"68071-0857-30 ")
  1. ;;4200
  1. ;;21,"68071-0884-30 ")
  1. ;;4201
  1. ;;21,"68071-1517-09 ")
  1. ;;4202
  1. ;;21,"68084-0060-01 ")
  1. ;;4203
  1. ;;21,"68084-0060-11 ")
  1. ;;4204
  1. ;;21,"68084-0061-01 ")
  1. ;;4205
  1. ;;21,"68084-0061-11 ")
  1. ;;4206
  1. ;;21,"68084-0062-01 ")
  1. ;;4207
  1. ;;21,"68084-0062-11 ")
  1. ;;4208
  1. ;;21,"68084-0064-01 ")
  1. ;;4209
  1. ;;21,"68084-0064-11 ")
  1. ;;4210
  1. ;;21,"68084-0196-01 ")
  1. ;;4211
  1. ;;21,"68084-0196-11 ")
  1. ;;4212
  1. ;;21,"68084-0197-01 ")
  1. ;;4213
  1. ;;21,"68084-0197-11 ")
  1. ;;4214
  1. ;;21,"68084-0198-01 ")
  1. ;;4215
  1. ;;21,"68084-0198-11 ")
  1. ;;4216
  1. ;;21,"68084-0199-01 ")
  1. ;;4217
  1. ;;21,"68084-0199-11 ")
  1. ;;4218
  1. ;;21,"68084-0217-11 ")
  1. ;;4219
  1. ;;21,"68084-0217-21 ")
  1. ;;4220
  1. ;;21,"68084-0266-01 ")
  1. ;;4221
  1. ;;21,"68084-0266-11 ")
  1. ;;4222
  1. ;;21,"68084-0267-01 ")
  1. ;;4223
  1. ;;21,"68084-0267-11 ")
  1. ;;4224
  1. ;;21,"68084-0268-01 ")
  1. ;;4225
  1. ;;21,"68084-0268-11 ")
  1. ;;4226
  1. ;;21,"68084-0294-11 ")
  1. ;;4227
  1. ;;21,"68084-0294-21 ")
  1. ;;4228
  1. ;;21,"68084-0346-01 ")
  1. ;;4229
  1. ;;21,"68084-0346-11 ")
  1. ;;4230
  1. ;;21,"68084-0347-01 ")
  1. ;;4231
  1. ;;21,"68084-0347-11 ")
  1. ;;4232
  1. ;;21,"68084-0348-01 ")
  1. ;;4233
  1. ;;21,"68084-0348-11 ")
  1. ;;4234
  1. ;;21,"68084-0390-01 ")
  1. ;;4235
  1. ;;21,"68084-0390-11 ")
  1. ;;4236
  1. ;;21,"68084-0391-01 ")
  1. ;;4237
  1. ;;21,"68084-0391-11 ")
  1. ;;4238
  1. ;;21,"68084-0392-01 ")
  1. ;;4239
  1. ;;21,"68084-0392-11 ")
  1. ;;4240
  1. ;;21,"68084-0519-11 ")
  1. ;;4241
  1. ;;21,"68084-0519-21 ")
  1. ;;4242
  1. ;;21,"68084-0519-25 ")
  1. ;;4243
  1. ;;21,"68084-0519-95 ")
  1. ;;4244
  1. ;;21,"68084-0726-32 ")
  1. ;;4245
  1. ;;21,"68084-0726-33 ")
  1. ;;4246
  1. ;;21,"68084-0727-11 ")
  1. ;;4247
  1. ;;21,"68084-0727-21 ")
  1. ;;4248
  1. ;;21,"68084-0727-25 ")
  1. ;;4249
  1. ;;21,"68084-0727-95 ")
  1. ;;4250
  1. ;;21,"68084-0739-25 ")
  1. ;;4251
  1. ;;21,"68084-0739-95 ")
  1. ;;4252
  1. ;;21,"68084-0749-11 ")
  1. ;;4253
  1. ;;21,"68084-0749-21 ")
  1. ;;4254
  1. ;;21,"68084-0765-11 ")
  1. ;;4255
  1. ;;21,"68084-0765-21 ")
  1. ;;4256
  1. ;;21,"68084-0765-25 ")
  1. ;;4257
  1. ;;21,"68084-0765-95 ")
  1. ;;4258
  1. ;;21,"68084-0766-11 ")
  1. ;;4259
  1. ;;21,"68084-0766-21 ")
  1. ;;4260
  1. ;;21,"68084-0766-25 ")
  1. ;;4261
  1. ;;21,"68084-0766-95 ")
  1. ;;4262
  1. ;;21,"68084-0804-01 ")
  1. ;;4263
  1. ;;21,"68084-0804-11 ")
  1. ;;4264
  1. ;;21,"68084-0817-25 ")
  1. ;;4265
  1. ;;21,"68084-0817-95 ")
  1. ;;4266
  1. ;;21,"68084-0822-01 ")
  1. ;;4267
  1. ;;21,"68084-0822-11 ")
  1. ;;4268
  1. ;;21,"68084-0834-25 ")
  1. ;;4269
  1. ;;21,"68084-0834-95 ")
  1. ;;4270
  1. ;;21,"68084-0877-25 ")
  1. ;;4271
  1. ;;21,"68084-0877-95 ")
  1. ;;4272
  1. ;;21,"68084-0899-25 ")
  1. ;;4273
  1. ;;21,"68084-0899-95 ")
  1. ;;4274
  1. ;;21,"68084-0926-11 ")
  1. ;;4275
  1. ;;21,"68084-0926-21 ")
  1. ;;4276
  1. ;;21,"68084-0959-11 ")
  1. ;;4277
  1. ;;21,"68084-0959-21 ")
  1. ;;4278
  1. ;;21,"68180-0101-02 ")
  1. ;;4279
  1. ;;21,"68180-0101-09 ")
  1. ;;4280
  1. ;;21,"68180-0102-02 ")
  1. ;;4281
  1. ;;21,"68180-0102-09 ")
  1. ;;4282
  1. ;;21,"68180-0103-02 ")
  1. ;;4283
  1. ;;21,"68180-0103-09 ")
  1. ;;4284
  1. ;;21,"68180-0104-02 ")
  1. ;;4285
  1. ;;21,"68180-0104-09 ")
  1. ;;4286
  1. ;;21,"68180-0105-02 ")
  1. ;;4287
  1. ;;21,"68180-0105-09 ")
  1. ;;4288
  1. ;;21,"68180-0193-06 ")
  1. ;;4289
  1. ;;21,"68180-0193-09 ")
  1. ;;4290
  1. ;;21,"68180-0194-06 ")
  1. ;;4291
  1. ;;21,"68180-0194-09 ")
  1. ;;4292
  1. ;;21,"68180-0195-06 ")
  1. ;;4293
  1. ;;21,"68180-0195-09 ")
  1. ;;4294
  1. ;;21,"68180-0196-06 ")
  1. ;;4295
  1. ;;21,"68180-0197-06 ")
  1. ;;4296
  1. ;;21,"68180-0198-06 ")
  1. ;;4297
  1. ;;21,"68180-0199-06 ")
  1. ;;4298
  1. ;;21,"68180-0210-03 ")
  1. ;;4299
  1. ;;21,"68180-0210-09 ")
  1. ;;4300
  1. ;;21,"68180-0211-03 ")
  1. ;;4301
  1. ;;21,"68180-0211-06 ")
  1. ;;4302
  1. ;;21,"68180-0211-09 ")
  1. ;;4303
  1. ;;21,"68180-0212-03 ")
  1. ;;4304
  1. ;;21,"68180-0212-06 ")
  1. ;;4305
  1. ;;21,"68180-0212-09 ")
  1. ;;4306
  1. ;;21,"68180-0215-03 ")
  1. ;;4307
  1. ;;21,"68180-0215-06 ")
  1. ;;4308
  1. ;;21,"68180-0215-09 ")
  1. ;;4309
  1. ;;21,"68180-0216-03 ")
  1. ;;4310
  1. ;;21,"68180-0216-06 ")
  1. ;;4311
  1. ;;21,"68180-0216-09 ")
  1. ;;4312
  1. ;;21,"68180-0217-03 ")
  1. ;;4313
  1. ;;21,"68180-0217-06 ")
  1. ;;4314
  1. ;;21,"68180-0217-09 ")
  1. ;;4315
  1. ;;21,"68180-0276-01 ")
  1. ;;4316
  1. ;;21,"68180-0276-06 ")
  1. ;;4317
  1. ;;21,"68180-0277-03 ")
  1. ;;4318
  1. ;;21,"68180-0277-09 ")
  1. ;;4319
  1. ;;21,"68180-0278-03 ")
  1. ;;4320
  1. ;;21,"68180-0278-09 ")
  1. ;;4321
  1. ;;21,"68180-0279-02 ")
  1. ;;4322
  1. ;;21,"68180-0279-09 ")
  1. ;;4323
  1. ;;21,"68180-0307-02 ")
  1. ;;4324
  1. ;;21,"68180-0307-09 ")
  1. ;;4325
  1. ;;21,"68180-0308-02 ")
  1. ;;4326
  1. ;;21,"68180-0308-09 ")
  1. ;;4327
  1. ;;21,"68180-0309-02 ")
  1. ;;4328
  1. ;;21,"68180-0309-06 ")
  1. ;;4329
  1. ;;21,"68180-0309-09 ")
  1. ;;4330
  1. ;;21,"68180-0410-06 ")
  1. ;;4331
  1. ;;21,"68180-0410-09 ")
  1. ;;4332
  1. ;;21,"68180-0411-02 ")
  1. ;;4333
  1. ;;21,"68180-0411-06 ")
  1. ;;4334
  1. ;;21,"68180-0411-09 ")
  1. ;;4335
  1. ;;21,"68180-0412-06 ")
  1. ;;4336
  1. ;;21,"68180-0412-09 ")
  1. ;;4337
  1. ;;21,"68180-0413-06 ")
  1. ;;4338
  1. ;;21,"68180-0413-09 ")
  1. ;;4339
  1. ;;21,"68180-0414-06 ")
  1. ;;4340
  1. ;;21,"68180-0414-09 ")
  1. ;;4341
  1. ;;21,"68180-0512-01 ")
  1. ;;4342
  1. ;;21,"68180-0512-02 ")
  1. ;;4343
  1. ;;21,"68180-0512-09 ")
  1. ;;4344
  1. ;;21,"68180-0513-01 ")
  1. ;;4345
  1. ;;21,"68180-0513-03 ")
  1. ;;4346
  1. ;;21,"68180-0513-09 ")
  1. ;;4347
  1. ;;21,"68180-0514-01 ")
  1. ;;4348
  1. ;;21,"68180-0514-03 ")
  1. ;;4349
  1. ;;21,"68180-0514-09 ")
  1. ;;4350
  1. ;;21,"68180-0514-30 ")
  1. ;;4351
  1. ;;21,"68180-0515-01 ")
  1. ;;4352
  1. ;;21,"68180-0515-03 ")
  1. ;;4353