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