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

BGPM5ATZ.m

Go to the documentation of this file.
  1. BGPM5ATZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"62584057828 ")
  1. ;;3973
  1. ;;21,"62584069214 ")
  1. ;;3974
  1. ;;21,"62584069301 ")
  1. ;;3975
  1. ;;21,"62584069311 ")
  1. ;;3976
  1. ;;21,"62584085601 ")
  1. ;;3977
  1. ;;21,"62584085701 ")
  1. ;;3978
  1. ;;21,"62645010110 ")
  1. ;;3979
  1. ;;21,"62645010150 ")
  1. ;;3980
  1. ;;21,"62645010210 ")
  1. ;;3981
  1. ;;21,"62645010250 ")
  1. ;;3982
  1. ;;21,"62645020110 ")
  1. ;;3983
  1. ;;21,"62645020150 ")
  1. ;;3984
  1. ;;21,"62645020210 ")
  1. ;;3985
  1. ;;21,"62645020250 ")
  1. ;;3986
  1. ;;21,"62645050110 ")
  1. ;;3987
  1. ;;21,"62645050150 ")
  1. ;;3988
  1. ;;21,"62645050210 ")
  1. ;;3989
  1. ;;21,"62645050250 ")
  1. ;;3990
  1. ;;21,"62756029313 ")
  1. ;;3991
  1. ;;21,"62756029388 ")
  1. ;;3992
  1. ;;21,"62756029413 ")
  1. ;;3993
  1. ;;21,"62756029488 ")
  1. ;;3994
  1. ;;21,"62778000303 ")
  1. ;;3995
  1. ;;21,"62778000402 ")
  1. ;;3996
  1. ;;21,"62778000502 ")
  1. ;;3997
  1. ;;21,"62778000603 ")
  1. ;;3998
  1. ;;21,"62778000702 ")
  1. ;;3999
  1. ;;21,"62778000802 ")
  1. ;;4000
  1. ;;21,"62778000814 ")
  1. ;;4001
  1. ;;21,"62778000903 ")
  1. ;;4002
  1. ;;21,"62778001703 ")
  1. ;;4003
  1. ;;21,"62778001803 ")
  1. ;;4004
  1. ;;21,"62778001903 ")
  1. ;;4005
  1. ;;21,"62778002002 ")
  1. ;;4006
  1. ;;21,"62778002103 ")
  1. ;;4007
  1. ;;21,"62778002202 ")
  1. ;;4008
  1. ;;21,"62778003201 ")
  1. ;;4009
  1. ;;21,"62780065705 ")
  1. ;;4010
  1. ;;21,"62780065805 ")
  1. ;;4011
  1. ;;21,"62780065910 ")
  1. ;;4012
  1. ;;21,"63126016101 ")
  1. ;;4013
  1. ;;21,"63126016105 ")
  1. ;;4014
  1. ;;21,"63126016201 ")
  1. ;;4015
  1. ;;21,"63126016205 ")
  1. ;;4016
  1. ;;21,"63126017101 ")
  1. ;;4017
  1. ;;21,"63126017105 ")
  1. ;;4018
  1. ;;21,"63126017130 ")
  1. ;;4019
  1. ;;21,"63126017201 ")
  1. ;;4020
  1. ;;21,"63126017205 ")
  1. ;;4021
  1. ;;21,"63126017230 ")
  1. ;;4022
  1. ;;21,"63126025110 ")
  1. ;;4023
  1. ;;21,"63126025150 ")
  1. ;;4024
  1. ;;21,"63126025205 ")
  1. ;;4025
  1. ;;21,"63126025250 ")
  1. ;;4026
  1. ;;21,"63126025304 ")
  1. ;;4027
  1. ;;21,"63126025350 ")
  1. ;;4028
  1. ;;21,"63304013010 ")
  1. ;;4029
  1. ;;21,"63304013101 ")
  1. ;;4030
  1. ;;21,"63304013110 ")
  1. ;;4031
  1. ;;21,"63304013204 ")
  1. ;;4032
  1. ;;21,"63304013210 ")
  1. ;;4033
  1. ;;21,"63304013250 ")
  1. ;;4034
  1. ;;21,"63304014801 ")
  1. ;;4035
  1. ;;21,"63304014805 ")
  1. ;;4036
  1. ;;21,"63304014901 ")
  1. ;;4037
  1. ;;21,"63304014905 ")
  1. ;;4038
  1. ;;21,"63304014950 ")
  1. ;;4039
  1. ;;21,"63304017330 ")
  1. ;;4040
  1. ;;21,"63304050901 ")
  1. ;;4041
  1. ;;21,"63304050920 ")
  1. ;;4042
  1. ;;21,"63304051201 ")
  1. ;;4043
  1. ;;21,"63304051250 ")
  1. ;;4044
  1. ;;21,"63304051280 ")
  1. ;;4045
  1. ;;21,"63304051401 ")
  1. ;;4046
  1. ;;21,"63304051405 ")
  1. ;;4047
  1. ;;21,"63304051501 ")
  1. ;;4048
  1. ;;21,"63304051503 ")
  1. ;;4049
  1. ;;21,"63304051504 ")
  1. ;;4050
  1. ;;21,"63304051530 ")
  1. ;;4051
  1. ;;21,"63304052001 ")
  1. ;;4052
  1. ;;21,"63304052020 ")
  1. ;;4053
  1. ;;21,"63304052101 ")
  1. ;;4054
  1. ;;21,"63304052120 ")
  1. ;;4055
  1. ;;21,"63304058201 ")
  1. ;;4056
  1. ;;21,"63304058250 ")
  1. ;;4057
  1. ;;21,"63304061401 ")
  1. ;;4058
  1. ;;21,"63304061405 ")
  1. ;;4059
  1. ;;21,"63304061413 ")
  1. ;;4060
  1. ;;21,"63304061420 ")
  1. ;;4061
  1. ;;21,"63304061501 ")
  1. ;;4062
  1. ;;21,"63304061505 ")
  1. ;;4063
  1. ;;21,"63304061511 ")
  1. ;;4064
  1. ;;21,"63304061601 ")
  1. ;;4065
  1. ;;21,"63304061605 ")
  1. ;;4066
  1. ;;21,"63304061613 ")
  1. ;;4067
  1. ;;21,"63304061620 ")
  1. ;;4068
  1. ;;21,"63304064805 ")
  1. ;;4069
  1. ;;21,"63304065401 ")
  1. ;;4070
  1. ;;21,"63304065405 ")
  1. ;;4071
  1. ;;21,"63304065411 ")
  1. ;;4072
  1. ;;21,"63304065420 ")
  1. ;;4073
  1. ;;21,"63304065430 ")
  1. ;;4074
  1. ;;21,"63304065477 ")
  1. ;;4075
  1. ;;21,"63304065501 ")
  1. ;;4076
  1. ;;21,"63304065505 ")
  1. ;;4077
  1. ;;21,"63304065511 ")
  1. ;;4078
  1. ;;21,"63304065520 ")
  1. ;;4079
  1. ;;21,"63304065530 ")
  1. ;;4080
  1. ;;21,"63304065540 ")
  1. ;;4081
  1. ;;21,"63304065550 ")
  1. ;;4082
  1. ;;21,"63304065577 ")
  1. ;;4083
  1. ;;21,"63304065601 ")
  1. ;;4084
  1. ;;21,"63304065605 ")
  1. ;;4085
  1. ;;21,"63304065627 ")
  1. ;;4086
  1. ;;21,"63304065701 ")
  1. ;;4087
  1. ;;21,"63304065705 ")
  1. ;;4088
  1. ;;21,"63304065727 ")
  1. ;;4089
  1. ;;21,"63304065801 ")
  1. ;;4090
  1. ;;21,"63304065830 ")
  1. ;;4091
  1. ;;21,"63304065901 ")
  1. ;;4092
  1. ;;21,"63304065930 ")
  1. ;;4093
  1. ;;21,"63304067501 ")
  1. ;;4094
  1. ;;21,"63304067505 ")
  1. ;;4095
  1. ;;21,"63304067601 ")
  1. ;;4096
  1. ;;21,"63304067605 ")
  1. ;;4097
  1. ;;21,"63304068801 ")
  1. ;;4098
  1. ;;21,"63304068904 ")
  1. ;;4099
  1. ;;21,"63304068950 ")
  1. ;;4100
  1. ;;21,"63304069201 ")
  1. ;;4101
  1. ;;21,"63304069205 ")
  1. ;;4102
  1. ;;21,"63304069277 ")
  1. ;;4103
  1. ;;21,"63304069301 ")
  1. ;;4104
  1. ;;21,"63304069316 ")
  1. ;;4105
  1. ;;21,"63304069377 ")
  1. ;;4106
  1. ;;21,"63304069401 ")
  1. ;;4107
  1. ;;21,"63304069405 ")
  1. ;;4108
  1. ;;21,"63304069501 ")
  1. ;;4109
  1. ;;21,"63304069505 ")
  1. ;;4110
  1. ;;21,"63304069605 ")
  1. ;;4111
  1. ;;21,"63304069650 ")
  1. ;;4112
  1. ;;21,"63304069701 ")
  1. ;;4113
  1. ;;21,"63304069705 ")
  1. ;;4114
  1. ;;21,"63304069801 ")
  1. ;;4115
  1. ;;21,"63304069805 ")
  1. ;;4116
  1. ;;21,"63304069905 ")
  1. ;;4117
  1. ;;21,"63304069950 ")
  1. ;;4118
  1. ;;21,"63304070901 ")
  1. ;;4119
  1. ;;21,"63304070905 ")
  1. ;;4120
  1. ;;21,"63304070913 ")
  1. ;;4121
  1. ;;21,"63304070914 ")
  1. ;;4122
  1. ;;21,"63304070980 ")
  1. ;;4123
  1. ;;21,"63304071001 ")
  1. ;;4124
  1. ;;21,"63304071005 ")
  1. ;;4125
  1. ;;21,"63304071013 ")
  1. ;;4126
  1. ;;21,"63304071014 ")
  1. ;;4127
  1. ;;21,"63304071080 ")
  1. ;;4128
  1. ;;21,"63304071101 ")
  1. ;;4129
  1. ;;21,"63304071105 ")
  1. ;;4130
  1. ;;21,"63304071113 ")
  1. ;;4131
  1. ;;21,"63304071114 ")
  1. ;;4132
  1. ;;21,"63304071150 ")
  1. ;;4133
  1. ;;21,"63304071180 ")
  1. ;;4134
  1. ;;21,"63304071320 ")
  1. ;;4135
  1. ;;21,"63304071505 ")
  1. ;;4136
  1. ;;21,"63304071514 ")
  1. ;;4137
  1. ;;21,"63304071550 ")
  1. ;;4138
  1. ;;21,"63304071605 ")
  1. ;;4139
  1. ;;21,"63304071614 ")
  1. ;;4140
  1. ;;21,"63304071650 ")
  1. ;;4141
  1. ;;21,"63304071701 ")
  1. ;;4142
  1. ;;21,"63304071705 ")
  1. ;;4143
  1. ;;21,"63304071714 ")
  1. ;;4144
  1. ;;21,"63304071750 ")
  1. ;;4145
  1. ;;21,"63304072501 ")
  1. ;;4146
  1. ;;21,"63304072505 ")
  1. ;;4147
  1. ;;21,"63304072511 ")
  1. ;;4148
  1. ;;21,"63304072560 ")
  1. ;;4149
  1. ;;21,"63304072577 ")
  1. ;;4150
  1. ;;21,"63304072582 ")
  1. ;;4151
  1. ;;21,"63304072601 ")
  1. ;;4152
  1. ;;21,"63304072605 ")
  1. ;;4153
  1. ;;21,"63304072611 ")
  1. ;;4154
  1. ;;21,"63304072660 ")
  1. ;;4155
  1. ;;21,"63304072677 ")
  1. ;;4156
  1. ;;21,"63304072682 ")
  1. ;;4157
  1. ;;21,"63304075001 ")
  1. ;;4158
  1. ;;21,"63304075060 ")
  1. ;;4159
  1. ;;21,"63304075101 ")
  1. ;;4160
  1. ;;21,"63304075120 ")
  1. ;;4161
  1. ;;21,"63304075160 ")
  1. ;;4162
  1. ;;21,"63304075201 ")
  1. ;;4163
  1. ;;21,"63304075220 ")
  1. ;;4164
  1. ;;21,"63304075260 ")
  1. ;;4165
  1. ;;21,"63304075301 ")
  1. ;;4166
  1. ;;21,"63304075303 ")
  1. ;;4167
  1. ;;21,"63304075320 ")
  1. ;;4168
  1. ;;21,"63304075321 ")
  1. ;;4169
  1. ;;21,"63304075401 ")
  1. ;;4170
  1. ;;21,"63304075403 ")
  1. ;;4171
  1. ;;21,"63304075420 ")
  1. ;;4172
  1. ;;21,"63304075421 ")
  1. ;;4173
  1. ;;21,"63304076001 ")
  1. ;;4174
  1. ;;21,"63304076005 ")
  1. ;;4175
  1. ;;21,"63304076020 ")
  1. ;;4176
  1. ;;21,"63304076101 ")
  1. ;;4177
  1. ;;21,"63304076105 ")
  1. ;;4178
  1. ;;21,"63304076120 ")
  1. ;;4179
  1. ;;21,"63304076201 ")
  1. ;;4180
  1. ;;21,"63304076205 ")
  1. ;;4181
  1. ;;21,"63304076213 ")
  1. ;;4182
  1. ;;21,"63304076220 ")
  1. ;;4183
  1. ;;21,"63304076282 ")
  1. ;;4184
  1. ;;21,"63304076301 ")
  1. ;;4185
  1. ;;21,"63304076305 ")
  1. ;;4186
  1. ;;21,"63304076313 ")
  1. ;;4187
  1. ;;21,"63304076320 ")
  1. ;;4188
  1. ;;21,"63304076382 ")
  1. ;;4189
  1. ;;21,"63304076801 ")
  1. ;;4190
  1. ;;21,"63304076802 ")
  1. ;;4191
  1. ;;21,"63304076803 ")
  1. ;;4192
  1. ;;21,"63304076804 ")
  1. ;;4193
  1. ;;21,"63304076807 ")
  1. ;;4194
  1. ;;21,"63304076850 ")
  1. ;;4195
  1. ;;21,"63304082103 ")
  1. ;;4196
  1. ;;21,"63304082104 ")
  1. ;;4197
  1. ;;21,"63304082203 ")
  1. ;;4198
  1. ;;21,"63304082204 ")
  1. ;;4199
  1. ;;21,"63304083104 ")
  1. ;;4200
  1. ;;21,"63304083111 ")
  1. ;;4201
  1. ;;21,"63304083130 ")
  1. ;;4202
  1. ;;21,"63304083177 ")
  1. ;;4203
  1. ;;21,"63304083205 ")
  1. ;;4204
  1. ;;21,"63304083211 ")
  1. ;;4205
  1. ;;21,"63304083220 ")
  1. ;;4206
  1. ;;21,"63304083277 ")
  1. ;;4207
  1. ;;21,"63304083305 ")
  1. ;;4208
  1. ;;21,"63304083311 ")
  1. ;;4209
  1. ;;21,"63304083320 ")
  1. ;;4210
  1. ;;21,"63304083360 ")
  1. ;;4211
  1. ;;21,"63304083377 ")
  1. ;;4212
  1. ;;21,"63304094025 ")
  1. ;;4213
  1. ;;21,"63304094110 ")
  1. ;;4214
  1. ;;21,"63304094725 ")
  1. ;;4215
  1. ;;21,"63304094810 ")
  1. ;;4216
  1. ;;21,"63304095401 ")
  1. ;;4217
  1. ;;21,"63304095402 ")
  1. ;;4218
  1. ;;21,"63304095503 ")
  1. ;;4219
  1. ;;21,"63304095504 ")
  1. ;;4220
  1. ;;21,"63304095601 ")
  1. ;;4221
  1. ;;21,"63304095602 ")
  1. ;;4222
  1. ;;21,"63304095703 ")
  1. ;;4223
  1. ;;21,"63304095704 ")
  1. ;;4224
  1. ;;21,"63304095801 ")
  1. ;;4225
  1. ;;21,"63304095802 ")
  1. ;;4226
  1. ;;21,"63304095901 ")
  1. ;;4227
  1. ;;21,"63304095902 ")
  1. ;;4228
  1. ;;21,"63304096001 ")
  1. ;;4229
  1. ;;21,"63304096003 ")
  1. ;;4230
  1. ;;21,"63304096004 ")
  1. ;;4231
  1. ;;21,"63304096101 ")
  1. ;;4232
  1. ;;21,"63304096103 ")
  1. ;;4233
  1. ;;21,"63304096104 ")
  1. ;;4234
  1. ;;21,"63304096304 ")
  1. ;;4235
  1. ;;21,"63304096403 ")
  1. ;;4236
  1. ;;21,"63304096404 ")
  1. ;;4237
  1. ;;21,"63304096501 ")
  1. ;;4238
  1. ;;21,"63304096503 ")
  1. ;;4239
  1. ;;21,"63304096504 ")
  1. ;;4240
  1. ;;21,"63304096601 ")
  1. ;;4241
  1. ;;21,"63304096603 ")
  1. ;;4242
  1. ;;21,"63304096604 ")
  1. ;;4243
  1. ;;21,"63304096901 ")
  1. ;;4244
  1. ;;21,"63304096903 ")
  1. ;;4245
  1. ;;21,"63304096904 ")
  1. ;;4246
  1. ;;21,"63304097001 ")
  1. ;;4247
  1. ;;21,"63304097003 ")
  1. ;;4248
  1. ;;21,"63304097004 ")
  1. ;;4249
  1. ;;21,"63304097105 ")
  1. ;;4250
  1. ;;21,"63304097114 ")
  1. ;;4251
  1. ;;21,"63304097170 ")
  1. ;;4252
  1. ;;21,"63304097204 ")
  1. ;;4253
  1. ;;21,"63304097303 ")
  1. ;;4254
  1. ;;21,"63304097304 ")
  1. ;;4255
  1. ;;21,"63304097401 ")
  1. ;;4256
  1. ;;21,"63304097404 ")
  1. ;;4257
  1. ;;21,"63304097701 ")
  1. ;;4258
  1. ;;21,"63304097703 ")
  1. ;;4259
  1. ;;21,"63304097704 ")
  1. ;;4260
  1. ;;21,"63304097901 ")
  1. ;;4261
  1. ;;21,"63304097903 ")
  1. ;;4262
  1. ;;21,"63304097904 ")
  1. ;;4263
  1. ;;21,"63323013010 ")
  1. ;;4264
  1. ;;21,"63323013011 ")
  1. ;;4265
  1. ;;21,"63323023610 ")
  1. ;;4266
  1. ;;21,"63323023710 ")
  1. ;;4267
  1. ;;21,"63323023861 ")
  1. ;;4268
  1. ;;21,"63323028202 ")
  1. ;;4269
  1. ;;21,"63323028204 ")
  1. ;;4270
  1. ;;21,"63323028206 ")
  1. ;;4271
  1. ;;21,"63323028260 ")
  1. ;;4272
  1. ;;21,"63323031220 ")
  1. ;;4273
  1. ;;21,"63323031361 ")
  1. ;;4274
  1. ;;21,"63323032320 ")
  1. ;;4275
  1. ;;21,"63323032462 ")
  1. ;;4276
  1. ;;21,"63323034410 ")
  1. ;;4277
  1. ;;21,"63323034510 ")
  1. ;;4278
  1. ;;21,"63323034610 ")
  1. ;;4279
  1. ;;21,"63323034720 ")
  1. ;;4280
  1. ;;21,"63323034861 ")
  1. ;;4281
  1. ;;21,"63323035320 ")
  1. ;;4282
  1. ;;21,"63323035345 ")
  1. ;;4283
  1. ;;21,"63323035445 ")
  1. ;;4284
  1. ;;21,"63323035461 ")
  1. ;;4285
  1. ;;21,"63323036820 ")
  1. ;;4286
  1. ;;21,"63323036920 ")
  1. ;;4287
  1. ;;21,"63323037062 ")
  1. ;;4288
  1. ;;21,"63323038710 ")
  1. ;;4289
  1. ;;21,"63323038810 ")
  1. ;;4290
  1. ;;21,"63323038910 ")
  1. ;;4291
  1. ;;21,"63323039810 ")
  1. ;;4292
  1. ;;21,"63323039812 ")
  1. ;;4293
  1. ;;21,"63323039923 ")
  1. ;;4294
  1. ;;21,"63323044661 ")
  1. ;;4295
  1. ;;21,"63323044666 ")
  1. ;;4296
  1. ;;21,"63552014070 ")
  1. ;;4297
  1. ;;21,"63629123600 ")
  1. ;;4298
  1. ;;21,"63629123601 ")
  1. ;;4299
  1. ;;21,"63629123602 ")
  1. ;;4300
  1. ;;21,"63629123603 ")
  1. ;;4301
  1. ;;21,"63629123604 ")
  1. ;;4302
  1. ;;21,"63629123605 ")
  1. ;;4303
  1. ;;21,"63629123606 ")
  1. ;;4304
  1. ;;21,"63629123607 ")
  1. ;;4305
  1. ;;21,"63629123608 ")
  1. ;;4306
  1. ;;21,"63629123609 ")
  1. ;;4307
  1. ;;21,"63629124801 ")
  1. ;;4308
  1. ;;21,"63629124802 ")
  1. ;;4309
  1. ;;21,"63629124803 ")
  1. ;;4310
  1. ;;21,"63629124804 ")
  1. ;;4311
  1. ;;21,"63629125701 ")
  1. ;;4312
  1. ;;21,"63629125702 ")
  1. ;;4313
  1. ;;21,"63629125703 ")
  1. ;;4314
  1. ;;21,"63629128401 ")
  1. ;;4315
  1. ;;21,"63629128402 ")
  1. ;;4316
  1. ;;21,"63629128403 ")
  1. ;;4317
  1. ;;21,"63629130501 ")
  1. ;;4318
  1. ;;21,"63629130502 ")
  1. ;;4319
  1. ;;21,"63629130503 ")
  1. ;;4320
  1. ;;21,"63629130504 ")
  1. ;;4321
  1. ;;21,"63629130505 ")
  1. ;;4322
  1. ;;21,"63629131701 ")
  1. ;;4323
  1. ;;21,"63629131702 ")
  1. ;;4324