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

BGPM5ASX.m

Go to the documentation of this file.
BGPM5ASX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"53002038220 ")
 ;;173
 ;;21,"53002038230 ")
 ;;174
 ;;21,"53002038240 ")
 ;;175
 ;;21,"53002038260 ")
 ;;176
 ;;21,"53002052373 ")
 ;;177
 ;;21,"53002057500 ")
 ;;178
 ;;21,"53002057520 ")
 ;;179
 ;;21,"53002057530 ")
 ;;180
 ;;21,"53002057550 ")
 ;;181
 ;;21,"53002057560 ")
 ;;182
 ;;21,"53002083601 ")
 ;;183
 ;;21,"53002087199 ")
 ;;184
 ;;21,"53002088099 ")
 ;;185
 ;;21,"53002104200 ")
 ;;186
 ;;21,"53002104202 ")
 ;;187
 ;;21,"53002104203 ")
 ;;188
 ;;21,"53002104205 ")
 ;;189
 ;;21,"53002104206 ")
 ;;190
 ;;21,"53002105800 ")
 ;;191
 ;;21,"53002105802 ")
 ;;192
 ;;21,"53002105803 ")
 ;;193
 ;;21,"53002105805 ")
 ;;194
 ;;21,"53002105806 ")
 ;;195
 ;;21,"53002107600 ")
 ;;196
 ;;21,"53002107602 ")
 ;;197
 ;;21,"53002107603 ")
 ;;198
 ;;21,"53002107605 ")
 ;;199
 ;;21,"53002107606 ")
 ;;200
 ;;21,"53104015301 ")
 ;;201
 ;;21,"53104015309 ")
 ;;202
 ;;21,"53808020301 ")
 ;;203
 ;;21,"53808031601 ")
 ;;204
 ;;21,"53978024309 ")
 ;;205
 ;;21,"53978032003 ")
 ;;206
 ;;21,"53978032009 ")
 ;;207
 ;;21,"53978034309 ")
 ;;208
 ;;21,"53978342409 ")
 ;;209
 ;;21,"54569005200 ")
 ;;210
 ;;21,"54569006501 ")
 ;;211
 ;;21,"54569006502 ")
 ;;212
 ;;21,"54569006505 ")
 ;;213
 ;;21,"54569166600 ")
 ;;214
 ;;21,"54569198900 ")
 ;;215
 ;;21,"54569248300 ")
 ;;216
 ;;21,"54569248301 ")
 ;;217
 ;;21,"54569248302 ")
 ;;218
 ;;21,"54569248303 ")
 ;;219
 ;;21,"54569389900 ")
 ;;220
 ;;21,"54569390000 ")
 ;;221
 ;;21,"54569454900 ")
 ;;222
 ;;21,"54569460000 ")
 ;;223
 ;;21,"54569460401 ")
 ;;224
 ;;21,"54569460500 ")
 ;;225
 ;;21,"54569460501 ")
 ;;226
 ;;21,"54569462100 ")
 ;;227
 ;;21,"54569473600 ")
 ;;228
 ;;21,"54569473602 ")
 ;;229
 ;;21,"54569474800 ")
 ;;230
 ;;21,"54569477200 ")
 ;;231
 ;;21,"54569516200 ")
 ;;232
 ;;21,"54569516300 ")
 ;;233
 ;;21,"54569516700 ")
 ;;234
 ;;21,"54569516702 ")
 ;;235
 ;;21,"54569524100 ")
 ;;236
 ;;21,"54569524200 ")
 ;;237
 ;;21,"54569524300 ")
 ;;238
 ;;21,"54569544500 ")
 ;;239
 ;;21,"54569566300 ")
 ;;240
 ;;21,"54569567100 ")
 ;;241
 ;;21,"54569570200 ")
 ;;242
 ;;21,"54569585300 ")
 ;;243
 ;;21,"54868002900 ")
 ;;244
 ;;21,"54868002902 ")
 ;;245
 ;;21,"54868002903 ")
 ;;246
 ;;21,"54868002904 ")
 ;;247
 ;;21,"54868002905 ")
 ;;248
 ;;21,"54868002906 ")
 ;;249
 ;;21,"54868002907 ")
 ;;250
 ;;21,"54868104101 ")
 ;;251
 ;;21,"54868143800 ")
 ;;252
 ;;21,"54868143801 ")
 ;;253
 ;;21,"54868188301 ")
 ;;254
 ;;21,"54868189402 ")
 ;;255
 ;;21,"54868247200 ")
 ;;256
 ;;21,"54868247201 ")
 ;;257
 ;;21,"54868271000 ")
 ;;258
 ;;21,"54868271001 ")
 ;;259
 ;;21,"54868282200 ")
 ;;260
 ;;21,"54868291100 ")
 ;;261
 ;;21,"54868328300 ")
 ;;262
 ;;21,"54868328301 ")
 ;;263
 ;;21,"54868328302 ")
 ;;264
 ;;21,"54868340700 ")
 ;;265
 ;;21,"54868347900 ")
 ;;266
 ;;21,"54868355500 ")
 ;;267
 ;;21,"54868355501 ")
 ;;268
 ;;21,"54868417200 ")
 ;;269
 ;;21,"54868417201 ")
 ;;270
 ;;21,"54868417202 ")
 ;;271
 ;;21,"54868422500 ")
 ;;272
 ;;21,"54868440900 ")
 ;;273
 ;;21,"54868448100 ")
 ;;274
 ;;21,"54868451600 ")
 ;;275
 ;;21,"54868451700 ")
 ;;276
 ;;21,"54868451800 ")
 ;;277
 ;;21,"54868463000 ")
 ;;278
 ;;21,"54868484700 ")
 ;;279
 ;;21,"54868497200 ")
 ;;280
 ;;21,"54868497201 ")
 ;;281
 ;;21,"54868529400 ")
 ;;282
 ;;21,"54868536200 ")
 ;;283
 ;;21,"54868545900 ")
 ;;284
 ;;21,"54868553100 ")
 ;;285
 ;;21,"54868553101 ")
 ;;286
 ;;21,"54868554700 ")
 ;;287
 ;;21,"54868554701 ")
 ;;288
 ;;21,"54868554702 ")
 ;;289
 ;;21,"54868562100 ")
 ;;290
 ;;21,"54868563700 ")
 ;;291
 ;;21,"54868564600 ")
 ;;292
 ;;21,"54868564601 ")
 ;;293
 ;;21,"54868564602 ")
 ;;294
 ;;21,"54868568900 ")
 ;;295
 ;;21,"54868570900 ")
 ;;296
 ;;21,"54868577400 ")
 ;;297
 ;;21,"54868599500 ")
 ;;298
 ;;21,"54868602100 ")
 ;;299
 ;;21,"54868605000 ")
 ;;300
 ;;21,"54868605100 ")
 ;;301
 ;;21,"54921040102 ")
 ;;302
 ;;21,"54921040139 ")
 ;;303
 ;;21,"54921040160 ")
 ;;304
 ;;21,"54921040195 ")
 ;;305
 ;;21,"54921040202 ")
 ;;306
 ;;21,"54921040239 ")
 ;;307
 ;;21,"54921040260 ")
 ;;308
 ;;21,"54921040295 ")
 ;;309
 ;;21,"55045131202 ")
 ;;310
 ;;21,"55045131203 ")
 ;;311
 ;;21,"55045131207 ")
 ;;312
 ;;21,"55045131208 ")
 ;;313
 ;;21,"55045131209 ")
 ;;314
 ;;21,"55045145200 ")
 ;;315
 ;;21,"55045145202 ")
 ;;316
 ;;21,"55045145203 ")
 ;;317
 ;;21,"55045145207 ")
 ;;318
 ;;21,"55045145208 ")
 ;;319
 ;;21,"55045145209 ")
 ;;320
 ;;21,"55045148605 ")
 ;;321
 ;;21,"55045182807 ")
 ;;322
 ;;21,"55045186803 ")
 ;;323
 ;;21,"55045193105 ")
 ;;324
 ;;21,"55045204307 ")
 ;;325
 ;;21,"55045227908 ")
 ;;326
 ;;21,"55045228007 ")
 ;;327
 ;;21,"55045228008 ")
 ;;328
 ;;21,"55045239005 ")
 ;;329
 ;;21,"55045247002 ")
 ;;330
 ;;21,"55045291901 ")
 ;;331
 ;;21,"55045305401 ")
 ;;332
 ;;21,"55045316200 ")
 ;;333
 ;;21,"55045335100 ")
 ;;334
 ;;21,"55045335400 ")
 ;;335
 ;;21,"55045341600 ")
 ;;336
 ;;21,"55045368601 ")
 ;;337
 ;;21,"55154068200 ")
 ;;338
 ;;21,"55154075208 ")
 ;;339
 ;;21,"55154435005 ")
 ;;340
 ;;21,"55154435405 ")
 ;;341
 ;;21,"55154435506 ")
 ;;342
 ;;21,"55154502800 ")
 ;;343
 ;;21,"55154502900 ")
 ;;344
 ;;21,"55154690700 ")
 ;;345
 ;;21,"55154720601 ")
 ;;346
 ;;21,"55154850207 ")
 ;;347
 ;;21,"55154850605 ")
 ;;348
 ;;21,"55154850805 ")
 ;;349
 ;;21,"55154915200 ")
 ;;350
 ;;21,"55154915201 ")
 ;;351
 ;;21,"55154915202 ")
 ;;352
 ;;21,"55154915300 ")
 ;;353
 ;;21,"55154915301 ")
 ;;354
 ;;21,"55154915302 ")
 ;;355
 ;;21,"55154917001 ")
 ;;356
 ;;21,"55154917002 ")
 ;;357
 ;;21,"55154917003 ")
 ;;358
 ;;21,"55288126901 ")
 ;;359
 ;;21,"55289000360 ")
 ;;360
 ;;21,"55289026001 ")
 ;;361
 ;;21,"55289026006 ")
 ;;362
 ;;21,"55289026020 ")
 ;;363
 ;;21,"55289026030 ")
 ;;364
 ;;21,"55289026060 ")
 ;;365
 ;;21,"55289026097 ")
 ;;366
 ;;21,"55289078530 ")
 ;;367
 ;;21,"55289078560 ")
 ;;368
 ;;21,"55289078860 ")
 ;;369
 ;;21,"55289078930 ")
 ;;370
 ;;21,"55289096115 ")
 ;;371
 ;;21,"55289096130 ")
 ;;372
 ;;21,"55289098921 ")
 ;;373
 ;;21,"55289098930 ")
 ;;374
 ;;21,"55289099021 ")
 ;;375
 ;;21,"55289099030 ")
 ;;376
 ;;21,"55887004318 ")
 ;;377
 ;;21,"55887012090 ")
 ;;378
 ;;21,"55887033224 ")
 ;;379
 ;;21,"55887038220 ")
 ;;380
 ;;21,"55887039030 ")
 ;;381
 ;;21,"55887039125 ")
 ;;382
 ;;21,"55887039130 ")
 ;;383
 ;;21,"55887067860 ")
 ;;384
 ;;21,"55887084760 ")
 ;;385
 ;;21,"55887084790 ")
 ;;386
 ;;21,"57866465201 ")
 ;;387
 ;;21,"57866465202 ")
 ;;388
 ;;21,"57866465203 ")
 ;;389
 ;;21,"57866677101 ")
 ;;390
 ;;21,"58016039700 ")
 ;;391
 ;;21,"58016039730 ")
 ;;392
 ;;21,"58016460401 ")
 ;;393
 ;;21,"58016481301 ")
 ;;394
 ;;21,"58016640401 ")
 ;;395
 ;;21,"58864065830 ")
 ;;396
 ;;21,"58864069430 ")
 ;;397
 ;;21,"59930150901 ")
 ;;398
 ;;21,"59930150902 ")
 ;;399
 ;;21,"59930151701 ")
 ;;400
 ;;21,"59930151702 ")
 ;;401
 ;;21,"59930156001 ")
 ;;402
 ;;21,"59930156002 ")
 ;;403
 ;;21,"59930164702 ")
 ;;404
 ;;21,"59930167001 ")
 ;;405
 ;;21,"59930167002 ")
 ;;406
 ;;21,"59930167003 ")
 ;;407
 ;;21,"60312011715 ")
 ;;408
 ;;21,"60312011728 ")
 ;;409
 ;;21,"60312011731 ")
 ;;410
 ;;21,"60312011754 ")
 ;;411
 ;;21,"60312011780 ")
 ;;412
 ;;21,"60312027501 ")
 ;;413
 ;;21,"60312027502 ")
 ;;414
 ;;21,"60312027503 ")
 ;;415
 ;;21,"60312027504 ")
 ;;416
 ;;21,"60312027582 ")
 ;;417
 ;;21,"60312071101 ")
 ;;418
 ;;21,"60312071102 ")
 ;;419
 ;;21,"60312071103 ")
 ;;420
 ;;21,"60312071104 ")
 ;;421
 ;;21,"60432015706 ")
 ;;422
 ;;21,"60432015712 ")
 ;;423
 ;;21,"60432015721 ")
 ;;424
 ;;21,"60491063580 ")
 ;;425
 ;;21,"60491063590 ")
 ;;426
 ;;21,"60491063601 ")
 ;;427
 ;;21,"60491063680 ")
 ;;428
 ;;21,"60491063690 ")
 ;;429
 ;;21,"60491063701 ")
 ;;430
 ;;21,"60491063720 ")
 ;;431
 ;;21,"60491063760 ")
 ;;432
 ;;21,"60491063768 ")
 ;;433
 ;;21,"60505080201 ")
 ;;434
 ;;21,"60793001012 ")
 ;;435
 ;;21,"60793001060 ")
 ;;436
 ;;21,"60793001108 ")
 ;;437
 ;;21,"60793001114 ")
 ;;438
 ;;21,"61392001725 ")
 ;;439
 ;;21,"61392001730 ")
 ;;440
 ;;21,"61392001731 ")
 ;;441
 ;;21,"61392001739 ")
 ;;442
 ;;21,"61392001754 ")
 ;;443
 ;;21,"61392001756 ")
 ;;444
 ;;21,"61392001760 ")
 ;;445
 ;;21,"61392001765 ")
 ;;446
 ;;21,"61392001790 ")
 ;;447
 ;;21,"61392001791 ")
 ;;448
 ;;21,"61570001901 ")
 ;;449
 ;;21,"61570001905 ")
 ;;450
 ;;21,"61570002001 ")
 ;;451
 ;;21,"62584048700 ")
 ;;452
 ;;21,"62584055470 ")
 ;;453
 ;;21,"62584058400 ")
 ;;454
 ;;21,"62584058405 ")
 ;;455
 ;;21,"62584058406 ")
 ;;456
 ;;21,"62584093300 ")
 ;;457
 ;;21,"62584093305 ")
 ;;458
 ;;21,"62947640504 ")
 ;;459
 ;;21,"62947640509 ")
 ;;460
 ;;21,"62947640605 ")
 ;;461
 ;;21,"62947640609 ")
 ;;462
 ;;21,"63402051001 ")
 ;;463
 ;;21,"63402051005 ")
 ;;464
 ;;21,"63402051100 ")
 ;;465
 ;;21,"63402051124 ")
 ;;466
 ;;21,"63402051200 ")
 ;;467
 ;;21,"63402051224 ")
 ;;468
 ;;21,"63402051300 ")
 ;;469
 ;;21,"63402051324 ")
 ;;470
 ;;21,"63402051500 ")
 ;;471
 ;;21,"63402051530 ")
 ;;472
 ;;21,"63629163901 ")
 ;;473
 ;;21,"63629163902 ")
 ;;474
 ;;21,"63629163903 ")
 ;;475
 ;;21,"63775080201 ")
 ;;476
 ;;21,"63874067501 ")
 ;;477
 ;;21,"63874067515 ")
 ;;478
 ;;21,"63874067520 ")
 ;;479
 ;;21,"63874070820 ")
 ;;480
 ;;21,"64725030303 ")
 ;;481
 ;;21,"64725032703 ")
 ;;482
 ;;21,"65084012710 ")
 ;;483
 ;;21,"65162032510 ")
 ;;484
 ;;21,"65162032511 ")
 ;;485
 ;;21,"65271000205 ")
 ;;486
 ;;21,"65271000206 ")
 ;;487
 ;;21,"65302008301 ")
 ;;488
 ;;21,"65302008302 ")
 ;;489
 ;;21,"65302008303 ")
 ;;490
 ;;21,"65302051300 ")
 ;;491
 ;;21,"65302051324 ")
 ;;492
 ;;21,"65427078401 ")
 ;;493
 ;;21,"65427078501 ")
 ;;494
 ;;21,"65427078550 ")
 ;;495
 ;;21,"65427078701 ")
 ;;496
 ;;21,"65427078750 ")
 ;;497
 ;;21,"65427078901 ")
 ;;498
 ;;21,"66105016402 ")
 ;;499
 ;;21,"66105016403 ")
 ;;500
 ;;21,"66105016406 ")
 ;;501
 ;;21,"66105016409 ")
 ;;502
 ;;21,"66105016410 ")
 ;;503
 ;;21,"66105050106 ")
 ;;504
 ;;21,"66105050206 ")
 ;;505
 ;;21,"66267036830 ")
 ;;506
 ;;21,"66267036930 ")
 ;;507
 ;;21,"66267062210 ")
 ;;508
 ;;21,"66267062220 ")
 ;;509
 ;;21,"66267062230 ")
 ;;510
 ;;21,"66267062240 ")
 ;;511
 ;;21,"66267062260 ")
 ;;512
 ;;21,"66267074604 ")
 ;;513
 ;;21,"66267074605 ")
 ;;514
 ;;21,"66267074606 ")
 ;;515
 ;;21,"66267099517 ")
 ;;516
 ;;21,"66794000125 ")
 ;;517
 ;;21,"66794000130 ")
 ;;518
 ;;21,"66794000160 ")
 ;;519
 ;;21,"67120079421 ")
 ;;520
 ;;21,"67120079423 ")
 ;;521
 ;;21,"67228013903 ")
 ;;522
 ;;21,"67228013906 ")
 ;;523
 ;;21,"67296015001 ")
 ;;524
 ;;21,"67296024901 ")
 ;;525
 ;;21,"67296025001 ")
 ;;526
 ;;21,"67296025601 ")
 ;;527
 ;;21,"67296025701 ")
 ;;528
 ;;21,"67544059131 ")
 ;;529
 ;;21,"67544084932 ")
 ;;530
 ;;21,"67781025101 ")
 ;;531
 ;;21,"67781025105 ")
 ;;532
 ;;21,"67781025201 ")
 ;;533
 ;;21,"67801030503 ")
 ;;534