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