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

BGPM5ATL.m

Go to the documentation of this file.
BGPM5ATL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"00247063950 ")
 ;;7135
 ;;21,"00247063956 ")
 ;;7136
 ;;21,"00247063960 ")
 ;;7137
 ;;21,"00247063980 ")
 ;;7138
 ;;21,"00247064506 ")
 ;;7139
 ;;21,"00247064520 ")
 ;;7140
 ;;21,"00247064528 ")
 ;;7141
 ;;21,"00247064530 ")
 ;;7142
 ;;21,"00247066015 ")
 ;;7143
 ;;21,"00247066030 ")
 ;;7144
 ;;21,"00247066060 ")
 ;;7145
 ;;21,"00247066075 ")
 ;;7146
 ;;21,"00247078401 ")
 ;;7147
 ;;21,"00247078402 ")
 ;;7148
 ;;21,"00247078403 ")
 ;;7149
 ;;21,"00247078408 ")
 ;;7150
 ;;21,"00247078418 ")
 ;;7151
 ;;21,"00247078424 ")
 ;;7152
 ;;21,"00247078428 ")
 ;;7153
 ;;21,"00247092801 ")
 ;;7154
 ;;21,"00247092802 ")
 ;;7155
 ;;21,"00247094015 ")
 ;;7156
 ;;21,"00247094200 ")
 ;;7157
 ;;21,"00247094250 ")
 ;;7158
 ;;21,"00247094275 ")
 ;;7159
 ;;21,"00247100900 ")
 ;;7160
 ;;21,"00247100902 ")
 ;;7161
 ;;21,"00247100903 ")
 ;;7162
 ;;21,"00247100906 ")
 ;;7163
 ;;21,"00247100930 ")
 ;;7164
 ;;21,"00247118320 ")
 ;;7165
 ;;21,"00247138300 ")
 ;;7166
 ;;21,"00247138350 ")
 ;;7167
 ;;21,"00247138600 ")
 ;;7168
 ;;21,"00247138650 ")
 ;;7169
 ;;21,"00247146802 ")
 ;;7170
 ;;21,"00247146804 ")
 ;;7171
 ;;21,"00247146810 ")
 ;;7172
 ;;21,"00247146814 ")
 ;;7173
 ;;21,"00247146820 ")
 ;;7174
 ;;21,"00247151805 ")
 ;;7175
 ;;21,"00247151850 ")
 ;;7176
 ;;21,"00247151905 ")
 ;;7177
 ;;21,"00247151910 ")
 ;;7178
 ;;21,"00247151915 ")
 ;;7179
 ;;21,"00247151950 ")
 ;;7180
 ;;21,"00247152406 ")
 ;;7181
 ;;21,"00247166930 ")
 ;;7182
 ;;21,"00247171410 ")
 ;;7183
 ;;21,"00247172900 ")
 ;;7184
 ;;21,"00247172979 ")
 ;;7185
 ;;21,"00247195120 ")
 ;;7186
 ;;21,"00247196302 ")
 ;;7187
 ;;21,"00247196310 ")
 ;;7188
 ;;21,"00247196320 ")
 ;;7189
 ;;21,"00247199002 ")
 ;;7190
 ;;21,"00247199003 ")
 ;;7191
 ;;21,"00247199004 ")
 ;;7192
 ;;21,"00247199009 ")
 ;;7193
 ;;21,"00247199012 ")
 ;;7194
 ;;21,"00247199015 ")
 ;;7195
 ;;21,"00247199020 ")
 ;;7196
 ;;21,"00247199021 ")
 ;;7197
 ;;21,"00247199030 ")
 ;;7198
 ;;21,"00247199100 ")
 ;;7199
 ;;21,"00247199102 ")
 ;;7200
 ;;21,"00247199104 ")
 ;;7201
 ;;21,"00247199106 ")
 ;;7202
 ;;21,"00247199114 ")
 ;;7203
 ;;21,"00247199120 ")
 ;;7204
 ;;21,"00247201800 ")
 ;;7205
 ;;21,"00247201850 ")
 ;;7206
 ;;21,"00247201875 ")
 ;;7207
 ;;21,"00247204200 ")
 ;;7208
 ;;21,"00247204201 ")
 ;;7209
 ;;21,"00247204202 ")
 ;;7210
 ;;21,"00247204203 ")
 ;;7211
 ;;21,"00247204204 ")
 ;;7212
 ;;21,"00247204206 ")
 ;;7213
 ;;21,"00247204209 ")
 ;;7214
 ;;21,"00247204210 ")
 ;;7215
 ;;21,"00247204214 ")
 ;;7216
 ;;21,"00247204220 ")
 ;;7217
 ;;21,"00247204228 ")
 ;;7218
 ;;21,"00247204230 ")
 ;;7219
 ;;21,"00247204400 ")
 ;;7220
 ;;21,"00247204402 ")
 ;;7221
 ;;21,"00247204404 ")
 ;;7222
 ;;21,"00247204406 ")
 ;;7223
 ;;21,"00247204410 ")
 ;;7224
 ;;21,"00247204414 ")
 ;;7225
 ;;21,"00247204420 ")
 ;;7226
 ;;21,"00247204428 ")
 ;;7227
 ;;21,"00247217720 ")
 ;;7228
 ;;21,"00247220901 ")
 ;;7229
 ;;21,"00247220910 ")
 ;;7230
 ;;21,"00247220920 ")
 ;;7231
 ;;21,"00247221001 ")
 ;;7232
 ;;21,"00247221010 ")
 ;;7233
 ;;21,"00247221101 ")
 ;;7234
 ;;21,"00247221110 ")
 ;;7235
 ;;21,"00247221620 ")
 ;;7236
 ;;21,"00247223300 ")
 ;;7237
 ;;21,"00247223350 ")
 ;;7238
 ;;21,"00247223375 ")
 ;;7239
 ;;21,"00247225815 ")
 ;;7240
 ;;21,"00247227900 ")
 ;;7241
 ;;21,"00247227901 ")
 ;;7242
 ;;21,"00247227930 ")
 ;;7243
 ;;21,"00247227958 ")
 ;;7244
 ;;21,"00247235801 ")
 ;;7245
 ;;21,"00247235802 ")
 ;;7246
 ;;21,"00247235806 ")
 ;;7247
 ;;21,"00254168658 ")
 ;;7248
 ;;21,"00254168758 ")
 ;;7249
 ;;21,"00254589721 ")
 ;;7250
 ;;21,"00254589728 ")
 ;;7251
 ;;21,"00254589735 ")
 ;;7252
 ;;21,"00254589821 ")
 ;;7253
 ;;21,"00254589828 ")
 ;;7254
 ;;21,"00254589835 ")
 ;;7255
 ;;21,"00264310211 ")
 ;;7256
 ;;21,"00264310311 ")
 ;;7257
 ;;21,"00264311211 ")
 ;;7258
 ;;21,"00264311411 ")
 ;;7259
 ;;21,"00264315311 ")
 ;;7260
 ;;21,"00264315511 ")
 ;;7261
 ;;21,"00338096037 ")
 ;;7262
 ;;21,"00338096048 ")
 ;;7263
 ;;21,"00338102141 ")
 ;;7264
 ;;21,"00338102341 ")
 ;;7265
 ;;21,"00338102541 ")
 ;;7266
 ;;21,"00338350241 ")
 ;;7267
 ;;21,"00338350341 ")
 ;;7268
 ;;21,"00338500241 ")
 ;;7269
 ;;21,"00338500341 ")
 ;;7270
 ;;21,"00364203350 ")
 ;;7271
 ;;21,"00364246434 ")
 ;;7272
 ;;21,"00364246693 ")
 ;;7273
 ;;21,"00364290638 ")
 ;;7274
 ;;21,"00364290861 ")
 ;;7275
 ;;21,"00378010110 ")
 ;;7276
 ;;21,"00378010201 ")
 ;;7277
 ;;21,"00378010205 ")
 ;;7278
 ;;21,"00378122101 ")
 ;;7279
 ;;21,"00378122105 ")
 ;;7280
 ;;21,"00378122189 ")
 ;;7281
 ;;21,"00378122194 ")
 ;;7282
 ;;21,"00378132201 ")
 ;;7283
 ;;21,"00378132205 ")
 ;;7284
 ;;21,"00378132301 ")
 ;;7285
 ;;21,"00378132305 ")
 ;;7286
 ;;21,"00378132425 ")
 ;;7287
 ;;21,"00378132489 ")
 ;;7288
 ;;21,"00378153305 ")
 ;;7289
 ;;21,"00378153356 ")
 ;;7290
 ;;21,"00378153393 ")
 ;;7291
 ;;21,"00378174301 ")
 ;;7292
 ;;21,"00378174305 ")
 ;;7293
 ;;21,"00378174389 ")
 ;;7294
 ;;21,"00378174501 ")
 ;;7295
 ;;21,"00378174525 ")
 ;;7296
 ;;21,"00378174589 ")
 ;;7297
 ;;21,"00378429601 ")
 ;;7298
 ;;21,"00378429693 ")
 ;;7299
 ;;21,"00378429701 ")
 ;;7300
 ;;21,"00378429730 ")
 ;;7301
 ;;21,"00378429793 ")
 ;;7302
 ;;21,"00378429801 ")
 ;;7303
 ;;21,"00378429893 ")
 ;;7304
 ;;21,"00378453105 ")
 ;;7305
 ;;21,"00378453191 ")
 ;;7306
 ;;21,"00378453201 ")
 ;;7307
 ;;21,"00378453205 ")
 ;;7308
 ;;21,"00378453291 ")
 ;;7309
 ;;21,"00378602101 ")
 ;;7310
 ;;21,"00378602105 ")
 ;;7311
 ;;21,"00378602201 ")
 ;;7312
 ;;21,"00378602205 ")
 ;;7313
 ;;21,"00378602325 ")
 ;;7314
 ;;21,"00378602389 ")
 ;;7315
 ;;21,"00378606801 ")
 ;;7316
 ;;21,"00378606805 ")
 ;;7317
 ;;21,"00378606901 ")
 ;;7318
 ;;21,"00378606905 ")
 ;;7319
 ;;21,"00378607001 ")
 ;;7320
 ;;21,"00378607005 ")
 ;;7321
 ;;21,"00378612401 ")
 ;;7322
 ;;21,"00378612405 ")
 ;;7323
 ;;21,"00378612493 ")
 ;;7324
 ;;21,"00378640001 ")
 ;;7325
 ;;21,"00378640005 ")
 ;;7326
 ;;21,"00378709701 ")
 ;;7327
 ;;21,"00378709705 ")
 ;;7328
 ;;21,"00378709801 ")
 ;;7329
 ;;21,"00378709805 ")
 ;;7330
 ;;21,"00378709989 ")
 ;;7331
 ;;21,"00378825091 ")
 ;;7332
 ;;21,"00378850091 ")
 ;;7333
 ;;21,"00378868854 ")
 ;;7334
 ;;21,"00409014410 ")
 ;;7335
 ;;21,"00409014411 ")
 ;;7336
 ;;21,"00409052813 ")
 ;;7337
 ;;21,"00409052823 ")
 ;;7338
 ;;21,"00409052831 ")
 ;;7339
 ;;21,"00409080201 ")
 ;;7340
 ;;21,"00409080301 ")
 ;;7341
 ;;21,"00409080501 ")
 ;;7342
 ;;21,"00409080601 ")
 ;;7343
 ;;21,"00409258501 ")
 ;;7344
 ;;21,"00409268715 ")
 ;;7345
 ;;21,"00409268949 ")
 ;;7346
 ;;21,"00409298749 ")
 ;;7347
 ;;21,"00409298801 ")
 ;;7348
 ;;21,"00409299803 ")
 ;;7349
 ;;21,"00409405001 ")
 ;;7350
 ;;21,"00409405101 ")
 ;;7351
 ;;21,"00409405201 ")
 ;;7352
 ;;21,"00409405303 ")
 ;;7353
 ;;21,"00409405403 ")
 ;;7354
 ;;21,"00409405503 ")
 ;;7355
 ;;21,"00409419701 ")
 ;;7356
 ;;21,"00409477702 ")
 ;;7357
 ;;21,"00409477723 ")
 ;;7358
 ;;21,"00409477749 ")
 ;;7359
 ;;21,"00409477750 ")
 ;;7360
 ;;21,"00409477761 ")
 ;;7361
 ;;21,"00409477762 ")
 ;;7362
 ;;21,"00409733201 ")
 ;;7363
 ;;21,"00409733261 ")
 ;;7364
 ;;21,"00409733304 ")
 ;;7365
 ;;21,"00409733349 ")
 ;;7366
 ;;21,"00409733410 ")
 ;;7367
 ;;21,"00409733503 ")
 ;;7368
 ;;21,"00409733561 ")
 ;;7369
 ;;21,"00409733604 ")
 ;;7370
 ;;21,"00409733649 ")
 ;;7371
 ;;21,"00409733701 ")
 ;;7372
 ;;21,"00409733801 ")
 ;;7373
 ;;21,"00440110030 ")
 ;;7374
 ;;21,"00440110104 ")
 ;;7375
 ;;21,"00440110130 ")
 ;;7376
 ;;21,"00440124040 ")
 ;;7377
 ;;21,"00440124340 ")
 ;;7378
 ;;21,"00440124440 ")
 ;;7379
 ;;21,"00440130040 ")
 ;;7380
 ;;21,"00440138040 ")
 ;;7381
 ;;21,"00440148114 ")
 ;;7382
 ;;21,"00440148120 ")
 ;;7383
 ;;21,"00440205540 ")
 ;;7384
 ;;21,"00440205640 ")
 ;;7385
 ;;21,"00440240620 ")
 ;;7386
 ;;21,"00440250528 ")
 ;;7387
 ;;21,"00440710000 ")
 ;;7388
 ;;21,"00440710020 ")
 ;;7389
 ;;21,"00440710030 ")
 ;;7390
 ;;21,"00440710060 ")
 ;;7391
 ;;21,"00440710090 ")
 ;;7392
 ;;21,"00440710130 ")
 ;;7393
 ;;21,"00440710530 ")
 ;;7394
 ;;21,"00440710621 ")
 ;;7395
 ;;21,"00440710630 ")
 ;;7396
 ;;21,"00440710820 ")
 ;;7397
 ;;21,"00440724028 ")
 ;;7398
 ;;21,"00440724040 ")
 ;;7399
 ;;21,"00440724121 ")
 ;;7400
 ;;21,"00440724140 ")
 ;;7401
 ;;21,"00440724328 ")
 ;;7402
 ;;21,"00440729006 ")
 ;;7403
 ;;21,"00440729120 ")
 ;;7404
 ;;21,"00440729160 ")
 ;;7405
 ;;21,"00440730030 ")
 ;;7406
 ;;21,"00440730040 ")
 ;;7407
 ;;21,"00440730056 ")
 ;;7408
 ;;21,"00440730090 ")
 ;;7409
 ;;21,"00440738000 ")
 ;;7410
 ;;21,"00440738002 ")
 ;;7411
 ;;21,"00440738010 ")
 ;;7412
 ;;21,"00440738020 ")
 ;;7413
 ;;21,"00440738028 ")
 ;;7414
 ;;21,"00440738040 ")
 ;;7415
 ;;21,"00440738140 ")
 ;;7416
 ;;21,"00440748114 ")
 ;;7417
 ;;21,"00440748120 ")
 ;;7418
 ;;21,"00440748130 ")
 ;;7419
 ;;21,"00440748160 ")
 ;;7420
 ;;21,"00440748319 ")
 ;;7421
 ;;21,"00440748371 ")
 ;;7422
 ;;21,"00440748392 ")
 ;;7423
 ;;21,"00440748395 ")
 ;;7424
 ;;21,"00440748397 ")
 ;;7425
 ;;21,"00440751040 ")
 ;;7426
 ;;21,"00440780560 ")
 ;;7427
 ;;21,"00440805040 ")
 ;;7428
 ;;21,"00440805140 ")
 ;;7429
 ;;21,"00440805540 ")
 ;;7430
 ;;21,"00440805620 ")
 ;;7431
 ;;21,"00440805640 ")
 ;;7432
 ;;21,"00440805690 ")
 ;;7433
 ;;21,"00440835820 ")
 ;;7434
 ;;21,"00440835840 ")
 ;;7435
 ;;21,"00440840603 ")
 ;;7436
 ;;21,"00440840606 ")
 ;;7437
 ;;21,"00440840608 ")
 ;;7438
 ;;21,"00440840614 ")
 ;;7439
 ;;21,"00440840620 ")
 ;;7440
 ;;21,"00440840628 ")
 ;;7441
 ;;21,"00440840630 ")
 ;;7442
 ;;21,"00440840640 ")
 ;;7443
 ;;21,"00440840660 ")
 ;;7444
 ;;21,"00440850540 ")
 ;;7445
 ;;21,"00440850591 ")
 ;;7446
 ;;21,"00463025421 ")
 ;;7447
 ;;21,"00463025440 ")
 ;;7448
 ;;21,"00463111810 ")
 ;;7449
 ;;21,"00463111811 ")
 ;;7450
 ;;21,"00463501401 ")
 ;;7451
 ;;21,"00463501501 ")
 ;;7452
 ;;21,"00463501601 ")
 ;;7453
 ;;21,"00472085010 ")
 ;;7454
 ;;21,"00472192110 ")
 ;;7455
 ;;21,"00472192130 ")
 ;;7456
 ;;21,"00472192210 ")
 ;;7457
 ;;21,"00472192230 ")
 ;;7458
 ;;21,"00480008801 ")
 ;;7459
 ;;21,"00480008805 ")
 ;;7460
 ;;21,"00480008901 ")
 ;;7461
 ;;21,"00480008905 ")
 ;;7462
 ;;21,"00480056216 ")
 ;;7463
 ;;21,"00480086301 ")
 ;;7464
 ;;21,"00480086401 ")
 ;;7465
 ;;21,"00480086553 ")
 ;;7466
 ;;21,"00480316501 ")
 ;;7467
 ;;21,"00480316753 ")
 ;;7468
 ;;21,"00480714609 ")
 ;;7469
 ;;21,"00480714618 ")
 ;;7470
 ;;21,"00480714656 ")
 ;;7471
 ;;21,"00480714699 ")
 ;;7472
 ;;21,"00480714823 ")
 ;;7473
 ;;21,"00480714923 ")
 ;;7474
 ;;21,"00480714931 ")
 ;;7475
 ;;21,"00480714994 ")
 ;;7476
 ;;21,"00480715706 ")
 ;;7477
 ;;21,"00480715806 ")
 ;;7478
 ;;21,"00480718001 ")
 ;;7479
 ;;21,"00480718101 ")
 ;;7480
 ;;21,"00480718201 ")
 ;;7481
 ;;21,"00480719136 ")
 ;;7482
 ;;21,"00480719203 ")
 ;;7483
 ;;21,"00480724406 ")
 ;;7484
 ;;21,"00480729353 ")
 ;;7485
 ;;21,"00480730001 ")
 ;;7486