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

BGP61F12.m

Go to the documentation of this file.
BGP61F12 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"67544-0062-82 ")
 ;;3975
 ;;21,"67544-0128-15 ")
 ;;3976
 ;;21,"67544-0128-30 ")
 ;;3977
 ;;21,"67544-0128-45 ")
 ;;3978
 ;;21,"67544-0128-53 ")
 ;;3979
 ;;21,"67544-0128-60 ")
 ;;3980
 ;;21,"67544-0134-15 ")
 ;;3981
 ;;21,"67544-0134-30 ")
 ;;3982
 ;;21,"67544-0134-45 ")
 ;;3983
 ;;21,"67544-0134-60 ")
 ;;3984
 ;;21,"67544-0134-80 ")
 ;;3985
 ;;21,"67544-0148-15 ")
 ;;3986
 ;;21,"67544-0148-30 ")
 ;;3987
 ;;21,"67544-0148-45 ")
 ;;3988
 ;;21,"67544-0148-53 ")
 ;;3989
 ;;21,"67544-0148-60 ")
 ;;3990
 ;;21,"67544-0148-80 ")
 ;;3991
 ;;21,"67544-0150-45 ")
 ;;3992
 ;;21,"67544-0150-60 ")
 ;;3993
 ;;21,"67544-0150-73 ")
 ;;3994
 ;;21,"67544-0150-92 ")
 ;;3995
 ;;21,"67544-0159-15 ")
 ;;3996
 ;;21,"67544-0159-30 ")
 ;;3997
 ;;21,"67544-0159-45 ")
 ;;3998
 ;;21,"67544-0159-58 ")
 ;;3999
 ;;21,"67544-0159-60 ")
 ;;4000
 ;;21,"67544-0159-80 ")
 ;;4001
 ;;21,"67544-0160-60 ")
 ;;4002
 ;;21,"67544-0160-80 ")
 ;;4003
 ;;21,"67544-0165-80 ")
 ;;4004
 ;;21,"67544-0173-30 ")
 ;;4005
 ;;21,"67544-0173-45 ")
 ;;4006
 ;;21,"67544-0173-53 ")
 ;;4007
 ;;21,"67544-0173-60 ")
 ;;4008
 ;;21,"67544-0174-30 ")
 ;;4009
 ;;21,"67544-0174-45 ")
 ;;4010
 ;;21,"67544-0174-60 ")
 ;;4011
 ;;21,"67544-0174-80 ")
 ;;4012
 ;;21,"67544-0177-45 ")
 ;;4013
 ;;21,"67544-0192-30 ")
 ;;4014
 ;;21,"67544-0192-45 ")
 ;;4015
 ;;21,"67544-0192-53 ")
 ;;4016
 ;;21,"67544-0192-60 ")
 ;;4017
 ;;21,"67544-0212-45 ")
 ;;4018
 ;;21,"67544-0212-53 ")
 ;;4019
 ;;21,"67544-0218-60 ")
 ;;4020
 ;;21,"67544-0218-82 ")
 ;;4021
 ;;21,"67544-0219-15 ")
 ;;4022
 ;;21,"67544-0219-30 ")
 ;;4023
 ;;21,"67544-0219-45 ")
 ;;4024
 ;;21,"67544-0219-60 ")
 ;;4025
 ;;21,"67544-0234-45 ")
 ;;4026
 ;;21,"67544-0234-53 ")
 ;;4027
 ;;21,"67544-0250-60 ")
 ;;4028
 ;;21,"67544-0250-80 ")
 ;;4029
 ;;21,"67544-0276-60 ")
 ;;4030
 ;;21,"67544-0276-80 ")
 ;;4031
 ;;21,"67544-0306-30 ")
 ;;4032
 ;;21,"67544-0306-45 ")
 ;;4033
 ;;21,"67544-0306-60 ")
 ;;4034
 ;;21,"67544-0311-30 ")
 ;;4035
 ;;21,"67544-0311-45 ")
 ;;4036
 ;;21,"67544-0321-15 ")
 ;;4037
 ;;21,"67544-0321-30 ")
 ;;4038
 ;;21,"67544-0321-60 ")
 ;;4039
 ;;21,"67544-0322-30 ")
 ;;4040
 ;;21,"67544-0322-45 ")
 ;;4041
 ;;21,"67544-0322-53 ")
 ;;4042
 ;;21,"67544-0322-60 ")
 ;;4043
 ;;21,"67544-0322-73 ")
 ;;4044
 ;;21,"67544-0322-80 ")
 ;;4045
 ;;21,"67544-0322-92 ")
 ;;4046
 ;;21,"67544-0322-94 ")
 ;;4047
 ;;21,"67544-0382-30 ")
 ;;4048
 ;;21,"67544-0400-45 ")
 ;;4049
 ;;21,"67544-0403-30 ")
 ;;4050
 ;;21,"67544-0403-79 ")
 ;;4051
 ;;21,"67544-0404-30 ")
 ;;4052
 ;;21,"67544-0404-79 ")
 ;;4053
 ;;21,"67544-0418-60 ")
 ;;4054
 ;;21,"67544-0418-80 ")
 ;;4055
 ;;21,"67544-0431-15 ")
 ;;4056
 ;;21,"67544-0431-30 ")
 ;;4057
 ;;21,"67544-0431-45 ")
 ;;4058
 ;;21,"67544-0431-53 ")
 ;;4059
 ;;21,"67544-0431-60 ")
 ;;4060
 ;;21,"67544-0431-70 ")
 ;;4061
 ;;21,"67544-0431-73 ")
 ;;4062
 ;;21,"67544-0431-80 ")
 ;;4063
 ;;21,"67544-0431-92 ")
 ;;4064
 ;;21,"67544-0431-94 ")
 ;;4065
 ;;21,"67544-0997-30 ")
 ;;4066
 ;;21,"68001-0130-00 ")
 ;;4067
 ;;21,"68001-0131-00 ")
 ;;4068
 ;;21,"68001-0132-00 ")
 ;;4069
 ;;21,"68001-0133-00 ")
 ;;4070
 ;;21,"68001-0134-00 ")
 ;;4071
 ;;21,"68001-0135-00 ")
 ;;4072
 ;;21,"68001-0140-04 ")
 ;;4073
 ;;21,"68001-0141-00 ")
 ;;4074
 ;;21,"68001-0141-03 ")
 ;;4075
 ;;21,"68001-0142-00 ")
 ;;4076
 ;;21,"68001-0142-03 ")
 ;;4077
 ;;21,"68001-0143-00 ")
 ;;4078
 ;;21,"68001-0143-03 ")
 ;;4079
 ;;21,"68001-0186-05 ")
 ;;4080
 ;;21,"68001-0187-05 ")
 ;;4081
 ;;21,"68001-0188-05 ")
 ;;4082
 ;;21,"68001-0189-05 ")
 ;;4083
 ;;21,"68001-0207-00 ")
 ;;4084
 ;;21,"68001-0207-08 ")
 ;;4085
 ;;21,"68001-0208-00 ")
 ;;4086
 ;;21,"68001-0208-08 ")
 ;;4087
 ;;21,"68001-0209-00 ")
 ;;4088
 ;;21,"68001-0209-08 ")
 ;;4089
 ;;21,"68001-0210-00 ")
 ;;4090
 ;;21,"68001-0210-08 ")
 ;;4091
 ;;21,"68001-0211-00 ")
 ;;4092
 ;;21,"68001-0211-08 ")
 ;;4093
 ;;21,"68001-0212-00 ")
 ;;4094
 ;;21,"68001-0260-05 ")
 ;;4095
 ;;21,"68071-0026-30 ")
 ;;4096
 ;;21,"68071-0026-60 ")
 ;;4097
 ;;21,"68071-0026-90 ")
 ;;4098
 ;;21,"68071-0146-30 ")
 ;;4099
 ;;21,"68071-0146-60 ")
 ;;4100
 ;;21,"68071-0146-90 ")
 ;;4101
 ;;21,"68071-0146-91 ")
 ;;4102
 ;;21,"68071-0153-30 ")
 ;;4103
 ;;21,"68071-0153-60 ")
 ;;4104
 ;;21,"68071-0153-90 ")
 ;;4105
 ;;21,"68071-0785-30 ")
 ;;4106
 ;;21,"68071-0785-60 ")
 ;;4107
 ;;21,"68071-0786-30 ")
 ;;4108
 ;;21,"68071-0786-60 ")
 ;;4109
 ;;21,"68071-0787-60 ")
 ;;4110
 ;;21,"68071-0857-30 ")
 ;;4111
 ;;21,"68071-0884-30 ")
 ;;4112
 ;;21,"68071-1517-09 ")
 ;;4113
 ;;21,"68084-0007-11 ")
 ;;4114
 ;;21,"68084-0007-21 ")
 ;;4115
 ;;21,"68084-0060-01 ")
 ;;4116
 ;;21,"68084-0060-11 ")
 ;;4117
 ;;21,"68084-0061-01 ")
 ;;4118
 ;;21,"68084-0061-11 ")
 ;;4119
 ;;21,"68084-0062-01 ")
 ;;4120
 ;;21,"68084-0062-11 ")
 ;;4121
 ;;21,"68084-0064-01 ")
 ;;4122
 ;;21,"68084-0064-11 ")
 ;;4123
 ;;21,"68084-0196-01 ")
 ;;4124
 ;;21,"68084-0196-11 ")
 ;;4125
 ;;21,"68084-0197-01 ")
 ;;4126
 ;;21,"68084-0197-11 ")
 ;;4127
 ;;21,"68084-0198-01 ")
 ;;4128
 ;;21,"68084-0198-11 ")
 ;;4129
 ;;21,"68084-0199-01 ")
 ;;4130
 ;;21,"68084-0199-11 ")
 ;;4131
 ;;21,"68084-0217-11 ")
 ;;4132
 ;;21,"68084-0217-21 ")
 ;;4133
 ;;21,"68084-0266-01 ")
 ;;4134
 ;;21,"68084-0266-11 ")
 ;;4135
 ;;21,"68084-0267-01 ")
 ;;4136
 ;;21,"68084-0267-11 ")
 ;;4137
 ;;21,"68084-0268-01 ")
 ;;4138
 ;;21,"68084-0268-11 ")
 ;;4139
 ;;21,"68084-0294-11 ")
 ;;4140
 ;;21,"68084-0294-21 ")
 ;;4141
 ;;21,"68084-0346-01 ")
 ;;4142
 ;;21,"68084-0346-11 ")
 ;;4143
 ;;21,"68084-0347-01 ")
 ;;4144
 ;;21,"68084-0347-11 ")
 ;;4145
 ;;21,"68084-0348-01 ")
 ;;4146
 ;;21,"68084-0348-11 ")
 ;;4147
 ;;21,"68084-0349-11 ")
 ;;4148
 ;;21,"68084-0349-21 ")
 ;;4149
 ;;21,"68084-0350-01 ")
 ;;4150
 ;;21,"68084-0350-11 ")
 ;;4151
 ;;21,"68084-0351-11 ")
 ;;4152
 ;;21,"68084-0351-21 ")
 ;;4153
 ;;21,"68084-0390-01 ")
 ;;4154
 ;;21,"68084-0390-11 ")
 ;;4155
 ;;21,"68084-0391-01 ")
 ;;4156
 ;;21,"68084-0391-11 ")
 ;;4157
 ;;21,"68084-0392-01 ")
 ;;4158
 ;;21,"68084-0392-11 ")
 ;;4159
 ;;21,"68084-0518-11 ")
 ;;4160
 ;;21,"68084-0518-21 ")
 ;;4161
 ;;21,"68084-0519-11 ")
 ;;4162
 ;;21,"68084-0519-21 ")
 ;;4163
 ;;21,"68084-0644-11 ")
 ;;4164
 ;;21,"68084-0644-21 ")
 ;;4165
 ;;21,"68084-0726-32 ")
 ;;4166
 ;;21,"68084-0726-33 ")
 ;;4167
 ;;21,"68084-0727-11 ")
 ;;4168
 ;;21,"68084-0727-21 ")
 ;;4169
 ;;21,"68084-0739-25 ")
 ;;4170
 ;;21,"68084-0739-95 ")
 ;;4171
 ;;21,"68084-0749-11 ")
 ;;4172
 ;;21,"68084-0749-21 ")
 ;;4173
 ;;21,"68084-0765-11 ")
 ;;4174
 ;;21,"68084-0765-21 ")
 ;;4175
 ;;21,"68084-0766-11 ")
 ;;4176
 ;;21,"68084-0766-21 ")
 ;;4177
 ;;21,"68084-0804-01 ")
 ;;4178
 ;;21,"68084-0804-11 ")
 ;;4179
 ;;21,"68084-0817-25 ")
 ;;4180
 ;;21,"68084-0817-95 ")
 ;;4181
 ;;21,"68084-0822-01 ")
 ;;4182
 ;;21,"68084-0822-11 ")
 ;;4183
 ;;21,"68084-0834-25 ")
 ;;4184
 ;;21,"68084-0834-95 ")
 ;;4185
 ;;21,"68180-0101-02 ")
 ;;4186
 ;;21,"68180-0101-09 ")
 ;;4187
 ;;21,"68180-0102-02 ")
 ;;4188
 ;;21,"68180-0102-09 ")
 ;;4189
 ;;21,"68180-0103-02 ")
 ;;4190
 ;;21,"68180-0103-09 ")
 ;;4191
 ;;21,"68180-0104-02 ")
 ;;4192
 ;;21,"68180-0104-09 ")
 ;;4193
 ;;21,"68180-0105-02 ")
 ;;4194
 ;;21,"68180-0105-09 ")
 ;;4195
 ;;21,"68180-0193-06 ")
 ;;4196
 ;;21,"68180-0193-09 ")
 ;;4197
 ;;21,"68180-0194-06 ")
 ;;4198
 ;;21,"68180-0194-09 ")
 ;;4199
 ;;21,"68180-0195-06 ")
 ;;4200
 ;;21,"68180-0195-09 ")
 ;;4201
 ;;21,"68180-0196-06 ")
 ;;4202
 ;;21,"68180-0197-06 ")
 ;;4203
 ;;21,"68180-0198-06 ")
 ;;4204
 ;;21,"68180-0199-06 ")
 ;;4205
 ;;21,"68180-0210-03 ")
 ;;4206
 ;;21,"68180-0210-09 ")
 ;;4207
 ;;21,"68180-0211-03 ")
 ;;4208
 ;;21,"68180-0211-06 ")
 ;;4209
 ;;21,"68180-0211-09 ")
 ;;4210
 ;;21,"68180-0212-03 ")
 ;;4211
 ;;21,"68180-0212-06 ")
 ;;4212
 ;;21,"68180-0212-09 ")
 ;;4213
 ;;21,"68180-0215-03 ")
 ;;4214
 ;;21,"68180-0215-06 ")
 ;;4215
 ;;21,"68180-0215-09 ")
 ;;4216
 ;;21,"68180-0216-03 ")
 ;;4217
 ;;21,"68180-0216-06 ")
 ;;4218
 ;;21,"68180-0216-09 ")
 ;;4219
 ;;21,"68180-0217-03 ")
 ;;4220
 ;;21,"68180-0217-06 ")
 ;;4221
 ;;21,"68180-0217-09 ")
 ;;4222
 ;;21,"68180-0235-01 ")
 ;;4223
 ;;21,"68180-0236-01 ")
 ;;4224
 ;;21,"68180-0237-01 ")
 ;;4225
 ;;21,"68180-0276-01 ")
 ;;4226
 ;;21,"68180-0276-06 ")
 ;;4227
 ;;21,"68180-0277-03 ")
 ;;4228
 ;;21,"68180-0277-09 ")
 ;;4229
 ;;21,"68180-0278-03 ")
 ;;4230
 ;;21,"68180-0278-09 ")
 ;;4231
 ;;21,"68180-0279-02 ")
 ;;4232
 ;;21,"68180-0279-09 ")
 ;;4233
 ;;21,"68180-0410-06 ")
 ;;4234
 ;;21,"68180-0410-09 ")
 ;;4235
 ;;21,"68180-0411-02 ")
 ;;4236
 ;;21,"68180-0411-06 ")
 ;;4237
 ;;21,"68180-0411-09 ")
 ;;4238
 ;;21,"68180-0412-06 ")
 ;;4239
 ;;21,"68180-0412-09 ")
 ;;4240
 ;;21,"68180-0413-06 ")
 ;;4241
 ;;21,"68180-0413-09 ")
 ;;4242
 ;;21,"68180-0414-06 ")
 ;;4243
 ;;21,"68180-0414-09 ")
 ;;4244
 ;;21,"68180-0512-01 ")
 ;;4245
 ;;21,"68180-0512-02 ")
 ;;4246
 ;;21,"68180-0512-09 ")
 ;;4247
 ;;21,"68180-0513-01 ")
 ;;4248
 ;;21,"68180-0513-03 ")
 ;;4249
 ;;21,"68180-0513-09 ")
 ;;4250
 ;;21,"68180-0514-01 ")
 ;;4251
 ;;21,"68180-0514-03 ")
 ;;4252
 ;;21,"68180-0514-09 ")
 ;;4253
 ;;21,"68180-0514-30 ")
 ;;4254
 ;;21,"68180-0515-01 ")
 ;;4255
 ;;21,"68180-0515-03 ")
 ;;4256
 ;;21,"68180-0515-09 ")
 ;;4257
 ;;21,"68180-0516-01 ")
 ;;4258
 ;;21,"68180-0516-02 ")
 ;;4259
 ;;21,"68180-0516-09 ")
 ;;4260
 ;;21,"68180-0517-01 ")
 ;;4261
 ;;21,"68180-0517-03 ")
 ;;4262
 ;;21,"68180-0517-09 ")
 ;;4263
 ;;21,"68180-0518-01 ")
 ;;4264
 ;;21,"68180-0518-02 ")
 ;;4265
 ;;21,"68180-0519-01 ")
 ;;4266
 ;;21,"68180-0519-02 ")
 ;;4267
 ;;21,"68180-0520-01 ")
 ;;4268
 ;;21,"68180-0520-02 ")
 ;;4269
 ;;21,"68180-0554-09 ")
 ;;4270
 ;;21,"68180-0556-09 ")
 ;;4271
 ;;21,"68180-0557-09 ")
 ;;4272
 ;;21,"68180-0558-09 ")
 ;;4273
 ;;21,"68180-0559-09 ")
 ;;4274
 ;;21,"68180-0566-01 ")
 ;;4275
 ;;21,"68180-0567-01 ")
 ;;4276
 ;;21,"68180-0568-01 ")
 ;;4277
 ;;21,"68180-0588-01 ")
 ;;4278
 ;;21,"68180-0589-01 ")
 ;;4279
 ;;21,"68180-0589-02 ")
 ;;4280
 ;;21,"68180-0589-09 ")
 ;;4281
 ;;21,"68180-0590-01 ")
 ;;4282
 ;;21,"68180-0590-02 ")
 ;;4283
 ;;21,"68180-0590-09 ")
 ;;4284
 ;;21,"68180-0591-01 ")
 ;;4285
 ;;21,"68180-0591-02 ")
 ;;4286
 ;;21,"68180-0591-09 ")
 ;;4287
 ;;21,"68180-0755-01 ")
 ;;4288
 ;;21,"68180-0756-01 ")
 ;;4289
 ;;21,"68180-0756-02 ")
 ;;4290
 ;;21,"68180-0757-01 ")
 ;;4291
 ;;21,"68180-0757-02 ")
 ;;4292
 ;;21,"68180-0758-01 ")
 ;;4293
 ;;21,"68180-0758-02 ")
 ;;4294
 ;;21,"68180-0759-01 ")
 ;;4295
 ;;21,"68180-0760-01 ")
 ;;4296
 ;;21,"68180-0764-06 ")
 ;;4297
 ;;21,"68180-0765-06 ")
 ;;4298
 ;;21,"68180-0766-06 ")
 ;;4299
 ;;21,"68180-0767-06 ")
 ;;4300
 ;;21,"68180-0771-06 ")
 ;;4301
 ;;21,"68180-0771-09 ")
 ;;4302
 ;;21,"68180-0772-06 ")
 ;;4303
 ;;21,"68180-0772-09 ")
 ;;4304
 ;;21,"68180-0773-06 ")
 ;;4305
 ;;21,"68180-0773-09 ")
 ;;4306
 ;;21,"68180-0774-06 ")
 ;;4307
 ;;21,"68180-0774-09 ")
 ;;4308
 ;;21,"68180-0775-06 ")
 ;;4309
 ;;21,"68180-0775-09 ")
 ;;4310
 ;;21,"68258-4001-03 ")
 ;;4311
 ;;21,"68258-6003-03 ")
 ;;4312
 ;;21,"68258-6003-09 ")
 ;;4313
 ;;21,"68258-6021-03 ")
 ;;4314
 ;;21,"68258-6022-03 ")
 ;;4315
 ;;21,"68258-6022-09 ")
 ;;4316
 ;;21,"68258-6023-03 ")
 ;;4317
 ;;21,"68258-6023-09 ")
 ;;4318
 ;;21,"68258-6025-03 ")
 ;;4319
 ;;21,"68258-6025-06 ")
 ;;4320
 ;;21,"68258-6025-09 ")
 ;;4321
 ;;21,"68258-6027-03 ")
 ;;4322
 ;;21,"68258-6027-09 ")
 ;;4323
 ;;21,"68258-6028-03 ")
 ;;4324
 ;;21,"68258-6028-09 ")
 ;;4325
 ;;21,"68258-6030-03 ")
 ;;4326
 ;;21,"68258-6030-09 ")
 ;;4327
 ;;21,"68258-6031-03 ")
 ;;4328
 ;;21,"68258-6031-09 ")
 ;;4329
 ;;21,"68258-6036-03 ")
 ;;4330
 ;;21,"68258-6036-09 ")
 ;;4331
 ;;21,"68258-6040-03 ")
 ;;4332
 ;;21,"68258-6040-09 ")
 ;;4333