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

BGP8ZH13.m

Go to the documentation of this file.
BGP8ZH13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"58016-0101-14 ")
 ;;4021
 ;;21,"58016-0101-20 ")
 ;;4022
 ;;21,"58016-0101-24 ")
 ;;4023
 ;;21,"58016-0101-28 ")
 ;;4024
 ;;21,"58016-0101-30 ")
 ;;4025
 ;;21,"58016-0101-40 ")
 ;;4026
 ;;21,"58016-0101-60 ")
 ;;4027
 ;;21,"58016-0101-90 ")
 ;;4028
 ;;21,"58016-4847-01 ")
 ;;4029
 ;;21,"58463-0002-30 ")
 ;;4030
 ;;21,"58463-0012-01 ")
 ;;4031
 ;;21,"58864-0029-30 ")
 ;;4032
 ;;21,"58864-0029-40 ")
 ;;4033
 ;;21,"58864-0034-10 ")
 ;;4034
 ;;21,"58864-0034-14 ")
 ;;4035
 ;;21,"58864-0067-20 ")
 ;;4036
 ;;21,"58864-0072-30 ")
 ;;4037
 ;;21,"58864-0073-20 ")
 ;;4038
 ;;21,"58864-0073-28 ")
 ;;4039
 ;;21,"58864-0073-30 ")
 ;;4040
 ;;21,"58864-0073-40 ")
 ;;4041
 ;;21,"58864-0073-56 ")
 ;;4042
 ;;21,"58864-0149-40 ")
 ;;4043
 ;;21,"58864-0189-10 ")
 ;;4044
 ;;21,"58864-0189-20 ")
 ;;4045
 ;;21,"58864-0189-28 ")
 ;;4046
 ;;21,"58864-0190-12 ")
 ;;4047
 ;;21,"58864-0190-20 ")
 ;;4048
 ;;21,"58864-0190-28 ")
 ;;4049
 ;;21,"58864-0190-30 ")
 ;;4050
 ;;21,"58864-0195-40 ")
 ;;4051
 ;;21,"58864-0379-40 ")
 ;;4052
 ;;21,"58864-0478-06 ")
 ;;4053
 ;;21,"58864-0478-10 ")
 ;;4054
 ;;21,"58864-0478-14 ")
 ;;4055
 ;;21,"58864-0478-20 ")
 ;;4056
 ;;21,"58864-0478-30 ")
 ;;4057
 ;;21,"58864-0607-40 ")
 ;;4058
 ;;21,"58864-0607-60 ")
 ;;4059
 ;;21,"58864-0612-28 ")
 ;;4060
 ;;21,"58864-0615-30 ")
 ;;4061
 ;;21,"58864-0621-05 ")
 ;;4062
 ;;21,"58864-0621-10 ")
 ;;4063
 ;;21,"58864-0621-30 ")
 ;;4064
 ;;21,"58864-0632-40 ")
 ;;4065
 ;;21,"58864-0637-14 ")
 ;;4066
 ;;21,"58864-0637-20 ")
 ;;4067
 ;;21,"58864-0637-30 ")
 ;;4068
 ;;21,"58864-0655-04 ")
 ;;4069
 ;;21,"58864-0655-06 ")
 ;;4070
 ;;21,"58864-0655-14 ")
 ;;4071
 ;;21,"58864-0655-30 ")
 ;;4072
 ;;21,"58864-0675-30 ")
 ;;4073
 ;;21,"58864-0675-40 ")
 ;;4074
 ;;21,"58864-0690-20 ")
 ;;4075
 ;;21,"58864-0767-20 ")
 ;;4076
 ;;21,"58864-0767-21 ")
 ;;4077
 ;;21,"58864-0767-30 ")
 ;;4078
 ;;21,"58864-0775-20 ")
 ;;4079
 ;;21,"58864-0791-06 ")
 ;;4080
 ;;21,"58864-0806-06 ")
 ;;4081
 ;;21,"58864-0806-14 ")
 ;;4082
 ;;21,"58864-0806-20 ")
 ;;4083
 ;;21,"58864-0833-10 ")
 ;;4084
 ;;21,"58864-0833-20 ")
 ;;4085
 ;;21,"58864-0837-20 ")
 ;;4086
 ;;21,"58864-0845-30 ")
 ;;4087
 ;;21,"58864-0845-40 ")
 ;;4088
 ;;21,"58864-0848-30 ")
 ;;4089
 ;;21,"59366-7338-01 ")
 ;;4090
 ;;21,"59366-7339-01 ")
 ;;4091
 ;;21,"59366-7340-05 ")
 ;;4092
 ;;21,"59630-0112-10 ")
 ;;4093
 ;;21,"59630-0113-10 ")
 ;;4094
 ;;21,"59630-0115-05 ")
 ;;4095
 ;;21,"59630-0142-03 ")
 ;;4096
 ;;21,"59746-0742-60 ")
 ;;4097
 ;;21,"59746-0743-60 ")
 ;;4098
 ;;21,"59762-0016-01 ")
 ;;4099
 ;;21,"59762-0278-02 ")
 ;;4100
 ;;21,"59762-0279-02 ")
 ;;4101
 ;;21,"59762-0280-03 ")
 ;;4102
 ;;21,"59762-1020-01 ")
 ;;4103
 ;;21,"59762-1020-03 ")
 ;;4104
 ;;21,"59762-1021-01 ")
 ;;4105
 ;;21,"59762-1021-07 ")
 ;;4106
 ;;21,"59762-1022-02 ")
 ;;4107
 ;;21,"59762-1022-04 ")
 ;;4108
 ;;21,"59762-1022-07 ")
 ;;4109
 ;;21,"59762-1023-04 ")
 ;;4110
 ;;21,"59762-1023-05 ")
 ;;4111
 ;;21,"59762-1023-06 ")
 ;;4112
 ;;21,"59762-1050-02 ")
 ;;4113
 ;;21,"59762-1050-05 ")
 ;;4114
 ;;21,"59762-1534-01 ")
 ;;4115
 ;;21,"59762-1534-02 ")
 ;;4116
 ;;21,"59762-1537-01 ")
 ;;4117
 ;;21,"59762-1537-02 ")
 ;;4118
 ;;21,"59762-1537-03 ")
 ;;4119
 ;;21,"59762-3051-01 ")
 ;;4120
 ;;21,"59762-3051-02 ")
 ;;4121
 ;;21,"59762-3060-01 ")
 ;;4122
 ;;21,"59762-3060-02 ")
 ;;4123
 ;;21,"59762-3060-03 ")
 ;;4124
 ;;21,"59762-3070-01 ")
 ;;4125
 ;;21,"59762-3070-02 ")
 ;;4126
 ;;21,"59762-3080-01 ")
 ;;4127
 ;;21,"59762-3110-01 ")
 ;;4128
 ;;21,"59762-3120-01 ")
 ;;4129
 ;;21,"59762-3130-01 ")
 ;;4130
 ;;21,"59762-3140-01 ")
 ;;4131
 ;;21,"59762-3328-01 ")
 ;;4132
 ;;21,"59762-3690-01 ")
 ;;4133
 ;;21,"59762-3690-02 ")
 ;;4134
 ;;21,"59762-4081-02 ")
 ;;4135
 ;;21,"59762-5010-01 ")
 ;;4136
 ;;21,"59762-5010-02 ")
 ;;4137
 ;;21,"59772-0174-20 ")
 ;;4138
 ;;21,"59772-0802-02 ")
 ;;4139
 ;;21,"60429-0021-01 ")
 ;;4140
 ;;21,"60429-0021-05 ")
 ;;4141
 ;;21,"60429-0022-01 ")
 ;;4142
 ;;21,"60429-0022-05 ")
 ;;4143
 ;;21,"60429-0023-01 ")
 ;;4144
 ;;21,"60429-0023-05 ")
 ;;4145
 ;;21,"60429-0024-01 ")
 ;;4146
 ;;21,"60429-0024-05 ")
 ;;4147
 ;;21,"60429-0036-40 ")
 ;;4148
 ;;21,"60429-0037-40 ")
 ;;4149
 ;;21,"60429-0042-01 ")
 ;;4150
 ;;21,"60429-0042-20 ")
 ;;4151
 ;;21,"60429-0068-14 ")
 ;;4152
 ;;21,"60429-0069-20 ")
 ;;4153
 ;;21,"60429-0069-92 ")
 ;;4154
 ;;21,"60429-0070-40 ")
 ;;4155
 ;;21,"60429-0147-01 ")
 ;;4156
 ;;21,"60429-0147-10 ")
 ;;4157
 ;;21,"60429-0147-40 ")
 ;;4158
 ;;21,"60429-0148-01 ")
 ;;4159
 ;;21,"60429-0148-05 ")
 ;;4160
 ;;21,"60429-0148-40 ")
 ;;4161
 ;;21,"60429-0258-01 ")
 ;;4162
 ;;21,"60429-0259-01 ")
 ;;4163
 ;;21,"60429-0259-05 ")
 ;;4164
 ;;21,"60429-0259-20 ")
 ;;4165
 ;;21,"60429-0259-40 ")
 ;;4166
 ;;21,"60429-0263-05 ")
 ;;4167
 ;;21,"60429-0263-20 ")
 ;;4168
 ;;21,"60429-0263-50 ")
 ;;4169
 ;;21,"60429-0656-20 ")
 ;;4170
 ;;21,"60429-0656-60 ")
 ;;4171
 ;;21,"60429-0657-20 ")
 ;;4172
 ;;21,"60429-0657-60 ")
 ;;4173
 ;;21,"60429-0742-01 ")
 ;;4174
 ;;21,"60429-0743-01 ")
 ;;4175
 ;;21,"60429-0743-05 ")
 ;;4176
 ;;21,"60429-0743-20 ")
 ;;4177
 ;;21,"60429-0744-01 ")
 ;;4178
 ;;21,"60432-0065-00 ")
 ;;4179
 ;;21,"60432-0065-47 ")
 ;;4180
 ;;21,"60432-0065-75 ")
 ;;4181
 ;;21,"60432-0070-46 ")
 ;;4182
 ;;21,"60432-0070-48 ")
 ;;4183
 ;;21,"60432-0070-75 ")
 ;;4184
 ;;21,"60505-0679-05 ")
 ;;4185
 ;;21,"60505-0680-02 ")
 ;;4186
 ;;21,"60505-0748-04 ")
 ;;4187
 ;;21,"60505-0748-05 ")
 ;;4188
 ;;21,"60505-0749-01 ")
 ;;4189
 ;;21,"60505-0749-04 ")
 ;;4190
 ;;21,"60505-0749-05 ")
 ;;4191
 ;;21,"60505-0750-00 ")
 ;;4192
 ;;21,"60505-0750-01 ")
 ;;4193
 ;;21,"60505-0750-04 ")
 ;;4194
 ;;21,"60505-0751-00 ")
 ;;4195
 ;;21,"60505-0751-01 ")
 ;;4196
 ;;21,"60505-0751-04 ")
 ;;4197
 ;;21,"60505-0752-03 ")
 ;;4198
 ;;21,"60505-0752-04 ")
 ;;4199
 ;;21,"60505-0753-04 ")
 ;;4200
 ;;21,"60505-0769-00 ")
 ;;4201
 ;;21,"60505-0769-01 ")
 ;;4202
 ;;21,"60505-1308-01 ")
 ;;4203
 ;;21,"60505-1309-01 ")
 ;;4204
 ;;21,"60505-1310-01 ")
 ;;4205
 ;;21,"60505-1310-04 ")
 ;;4206
 ;;21,"60505-2532-01 ")
 ;;4207
 ;;21,"60505-2533-01 ")
 ;;4208
 ;;21,"60505-2533-05 ")
 ;;4209
 ;;21,"60505-2539-03 ")
 ;;4210
 ;;21,"60505-2540-02 ")
 ;;4211
 ;;21,"60505-2541-02 ")
 ;;4212
 ;;21,"60505-2581-00 ")
 ;;4213
 ;;21,"60505-2581-02 ")
 ;;4214
 ;;21,"60505-2581-03 ")
 ;;4215
 ;;21,"60505-2581-05 ")
 ;;4216
 ;;21,"60505-2582-00 ")
 ;;4217
 ;;21,"60505-2582-02 ")
 ;;4218
 ;;21,"60505-2582-03 ")
 ;;4219
 ;;21,"60505-2582-05 ")
 ;;4220
 ;;21,"60505-2583-03 ")
 ;;4221
 ;;21,"60505-2615-06 ")
 ;;4222
 ;;21,"60505-2616-06 ")
 ;;4223
 ;;21,"60505-6076-04 ")
 ;;4224
 ;;21,"60505-6093-01 ")
 ;;4225
 ;;21,"60505-6093-05 ")
 ;;4226
 ;;21,"60505-6094-00 ")
 ;;4227
 ;;21,"60505-6094-01 ")
 ;;4228
 ;;21,"60505-6102-01 ")
 ;;4229
 ;;21,"60505-6102-04 ")
 ;;4230
 ;;21,"60505-6103-06 ")
 ;;4231
 ;;21,"60505-6104-01 ")
 ;;4232
 ;;21,"60505-6104-04 ")
 ;;4233
 ;;21,"60505-6148-00 ")
 ;;4234
 ;;21,"60505-6148-04 ")
 ;;4235
 ;;21,"60505-6149-00 ")
 ;;4236
 ;;21,"60505-6149-04 ")
 ;;4237
 ;;21,"60505-6151-01 ")
 ;;4238
 ;;21,"60505-6151-04 ")
 ;;4239
 ;;21,"60505-6152-01 ")
 ;;4240
 ;;21,"60505-6152-04 ")
 ;;4241
 ;;21,"60605-0750-01 ")
 ;;4242
 ;;21,"60605-0751-01 ")
 ;;4243
 ;;21,"60605-0752-03 ")
 ;;4244
 ;;21,"60605-0753-03 ")
 ;;4245
 ;;21,"60605-0769-01 ")
 ;;4246
 ;;21,"60605-6094-01 ")
 ;;4247
 ;;21,"60687-0118-11 ")
 ;;4248
 ;;21,"60687-0118-21 ")
 ;;4249
 ;;21,"60687-0152-01 ")
 ;;4250
 ;;21,"60687-0152-11 ")
 ;;4251
 ;;21,"60687-0163-01 ")
 ;;4252
 ;;21,"60687-0271-11 ")
 ;;4253
 ;;21,"60687-0271-21 ")
 ;;4254
 ;;21,"60687-0282-01 ")
 ;;4255
 ;;21,"60687-0282-11 ")
 ;;4256
 ;;21,"60760-0069-20 ")
 ;;4257
 ;;21,"60760-0261-20 ")
 ;;4258
 ;;21,"60760-0337-08 ")
 ;;4259
 ;;21,"60760-0337-28 ")
 ;;4260
 ;;21,"60760-0337-60 ")
 ;;4261
 ;;21,"60760-0562-20 ")
 ;;4262
 ;;21,"60760-0693-05 ")
 ;;4263
 ;;21,"60760-0815-10 ")
 ;;4264
 ;;21,"61442-0161-01 ")
 ;;4265
 ;;21,"61442-0161-05 ")
 ;;4266
 ;;21,"61442-0162-01 ")
 ;;4267
 ;;21,"61442-0162-05 ")
 ;;4268
 ;;21,"61442-0171-30 ")
 ;;4269
 ;;21,"61442-0172-30 ")
 ;;4270
 ;;21,"61442-0201-01 ")
 ;;4271
 ;;21,"61442-0201-02 ")
 ;;4272
 ;;21,"61442-0202-01 ")
 ;;4273
 ;;21,"61442-0202-02 ")
 ;;4274
 ;;21,"61442-0222-01 ")
 ;;4275
 ;;21,"61442-0222-10 ")
 ;;4276
 ;;21,"61442-0223-01 ")
 ;;4277
 ;;21,"61442-0223-05 ")
 ;;4278
 ;;21,"61553-0012-72 ")
 ;;4279
 ;;21,"61553-0014-73 ")
 ;;4280
 ;;21,"61553-0039-41 ")
 ;;4281
 ;;21,"61553-0045-41 ")
 ;;4282
 ;;21,"61553-0048-72 ")
 ;;4283
 ;;21,"61553-0049-72 ")
 ;;4284
 ;;21,"61553-0060-73 ")
 ;;4285
 ;;21,"61553-0211-48 ")
 ;;4286
 ;;21,"61553-0216-48 ")
 ;;4287
 ;;21,"61570-0050-11 ")
 ;;4288
 ;;21,"61570-0052-01 ")
 ;;4289
 ;;21,"61570-0053-01 ")
 ;;4290
 ;;21,"61570-0053-05 ")
 ;;4291
 ;;21,"61570-0053-20 ")
 ;;4292
 ;;21,"61570-0054-10 ")
 ;;4293
 ;;21,"61570-0055-10 ")
 ;;4294
 ;;21,"61570-0056-10 ")
 ;;4295
 ;;21,"61748-0111-14 ")
 ;;4296
 ;;21,"61971-0115-01 ")
 ;;4297
 ;;21,"61971-0115-05 ")
 ;;4298
 ;;21,"61971-0120-01 ")
 ;;4299
 ;;21,"61971-0120-05 ")
 ;;4300
 ;;21,"62037-0777-60 ")
 ;;4301
 ;;21,"62436-0728-01 ")
 ;;4302
 ;;21,"62436-0729-03 ")
 ;;4303
 ;;21,"62436-0729-04 ")
 ;;4304
 ;;21,"62436-0730-01 ")
 ;;4305
 ;;21,"62436-0730-05 ")
 ;;4306
 ;;21,"62559-0440-01 ")
 ;;4307
 ;;21,"62559-0440-02 ")
 ;;4308
 ;;21,"62584-0693-01 ")
 ;;4309
 ;;21,"62584-0693-11 ")
 ;;4310
 ;;21,"62584-0693-21 ")
 ;;4311
 ;;21,"62756-0293-13 ")
 ;;4312
 ;;21,"62756-0293-88 ")
 ;;4313
 ;;21,"62756-0294-13 ")
 ;;4314
 ;;21,"62756-0294-88 ")
 ;;4315
 ;;21,"62756-0512-44 ")
 ;;4316
 ;;21,"63304-0131-01 ")
 ;;4317
 ;;21,"63304-0132-04 ")
 ;;4318
 ;;21,"63304-0132-50 ")
 ;;4319
 ;;21,"63304-0148-01 ")
 ;;4320
 ;;21,"63304-0149-01 ")
 ;;4321
 ;;21,"63304-0149-50 ")
 ;;4322
 ;;21,"63304-0173-30 ")
 ;;4323
 ;;21,"63304-0509-01 ")
 ;;4324
 ;;21,"63304-0509-20 ")
 ;;4325
 ;;21,"63304-0520-20 ")
 ;;4326
 ;;21,"63304-0521-01 ")
 ;;4327
 ;;21,"63304-0521-20 ")
 ;;4328
 ;;21,"63304-0615-01 ")
 ;;4329
 ;;21,"63304-0616-50 ")
 ;;4330
 ;;21,"63304-0692-01 ")
 ;;4331
 ;;21,"63304-0692-05 ")
 ;;4332
 ;;21,"63304-0693-01 ")
 ;;4333
 ;;21,"63304-0693-16 ")
 ;;4334
 ;;21,"63304-0694-01 ")
 ;;4335
 ;;21,"63304-0695-01 ")
 ;;4336
 ;;21,"63304-0696-05 ")
 ;;4337
 ;;21,"63304-0696-50 ")
 ;;4338
 ;;21,"63304-0697-01 ")
 ;;4339
 ;;21,"63304-0698-01 ")
 ;;4340
 ;;21,"63304-0699-50 ")
 ;;4341
 ;;21,"63304-0709-01 ")
 ;;4342
 ;;21,"63304-0710-01 ")
 ;;4343
 ;;21,"63304-0711-01 ")
 ;;4344
 ;;21,"63304-0711-50 ")
 ;;4345
 ;;21,"63304-0713-20 ")
 ;;4346
 ;;21,"63304-0725-01 ")
 ;;4347
 ;;21,"63304-0725-60 ")
 ;;4348
 ;;21,"63304-0726-01 ")
 ;;4349
 ;;21,"63304-0726-60 ")
 ;;4350
 ;;21,"63304-0751-20 ")
 ;;4351
 ;;21,"63304-0751-60 ")
 ;;4352
 ;;21,"63304-0752-20 ")
 ;;4353