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

BGPM5BAQ.m

Go to the documentation of this file.
  1. BGPM5BAQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"13668000450 ")
  1. ;;164
  1. ;;21,"13668000490 ")
  1. ;;165
  1. ;;21,"13668000501 ")
  1. ;;166
  1. ;;21,"13668000505 ")
  1. ;;167
  1. ;;21,"13668000510 ")
  1. ;;168
  1. ;;21,"13668000530 ")
  1. ;;169
  1. ;;21,"13668000550 ")
  1. ;;170
  1. ;;21,"13668000590 ")
  1. ;;171
  1. ;;21,"13668000601 ")
  1. ;;172
  1. ;;21,"13668000605 ")
  1. ;;173
  1. ;;21,"13668000610 ")
  1. ;;174
  1. ;;21,"13668000613 ")
  1. ;;175
  1. ;;21,"13668000630 ")
  1. ;;176
  1. ;;21,"13668000650 ")
  1. ;;177
  1. ;;21,"13668000674 ")
  1. ;;178
  1. ;;21,"13668000690 ")
  1. ;;179
  1. ;;21,"13668000901 ")
  1. ;;180
  1. ;;21,"13668000905 ")
  1. ;;181
  1. ;;21,"13668000909 ")
  1. ;;182
  1. ;;21,"13668000930 ")
  1. ;;183
  1. ;;21,"13668000974 ")
  1. ;;184
  1. ;;21,"13668001001 ")
  1. ;;185
  1. ;;21,"13668001005 ")
  1. ;;186
  1. ;;21,"13668001006 ")
  1. ;;187
  1. ;;21,"13668001030 ")
  1. ;;188
  1. ;;21,"13668001074 ")
  1. ;;189
  1. ;;21,"13668001101 ")
  1. ;;190
  1. ;;21,"13668001105 ")
  1. ;;191
  1. ;;21,"13668001108 ")
  1. ;;192
  1. ;;21,"13668001130 ")
  1. ;;193
  1. ;;21,"13668001174 ")
  1. ;;194
  1. ;;21,"13668001801 ")
  1. ;;195
  1. ;;21,"13668001805 ")
  1. ;;196
  1. ;;21,"13668001830 ")
  1. ;;197
  1. ;;21,"13668001845 ")
  1. ;;198
  1. ;;21,"13668001874 ")
  1. ;;199
  1. ;;21,"13668001890 ")
  1. ;;200
  1. ;;21,"13668001901 ")
  1. ;;201
  1. ;;21,"13668001905 ")
  1. ;;202
  1. ;;21,"13668001930 ")
  1. ;;203
  1. ;;21,"13668001946 ")
  1. ;;204
  1. ;;21,"13668001974 ")
  1. ;;205
  1. ;;21,"13668001990 ")
  1. ;;206
  1. ;;21,"13668002001 ")
  1. ;;207
  1. ;;21,"13668002005 ")
  1. ;;208
  1. ;;21,"13668002030 ")
  1. ;;209
  1. ;;21,"13668002074 ")
  1. ;;210
  1. ;;21,"13668002090 ")
  1. ;;211
  1. ;;21,"16252001200 ")
  1. ;;212
  1. ;;21,"16252001217 ")
  1. ;;213
  1. ;;21,"16252001225 ")
  1. ;;214
  1. ;;21,"16252001240 ")
  1. ;;215
  1. ;;21,"16252051000 ")
  1. ;;216
  1. ;;21,"16252051001 ")
  1. ;;217
  1. ;;21,"16252051100 ")
  1. ;;218
  1. ;;21,"16252051101 ")
  1. ;;219
  1. ;;21,"16252051200 ")
  1. ;;220
  1. ;;21,"16252051201 ")
  1. ;;221
  1. ;;21,"16252053330 ")
  1. ;;222
  1. ;;21,"16252053350 ")
  1. ;;223
  1. ;;21,"16252053390 ")
  1. ;;224
  1. ;;21,"16252053430 ")
  1. ;;225
  1. ;;21,"16252053450 ")
  1. ;;226
  1. ;;21,"16252053490 ")
  1. ;;227
  1. ;;21,"16252053530 ")
  1. ;;228
  1. ;;21,"16252053550 ")
  1. ;;229
  1. ;;21,"16252053590 ")
  1. ;;230
  1. ;;21,"16590001128 ")
  1. ;;231
  1. ;;21,"16590001130 ")
  1. ;;232
  1. ;;21,"16590001145 ")
  1. ;;233
  1. ;;21,"16590001156 ")
  1. ;;234
  1. ;;21,"16590001160 ")
  1. ;;235
  1. ;;21,"16590001172 ")
  1. ;;236
  1. ;;21,"16590001190 ")
  1. ;;237
  1. ;;21,"16590001215 ")
  1. ;;238
  1. ;;21,"16590001230 ")
  1. ;;239
  1. ;;21,"16590001256 ")
  1. ;;240
  1. ;;21,"16590001260 ")
  1. ;;241
  1. ;;21,"16590001272 ")
  1. ;;242
  1. ;;21,"16590001282 ")
  1. ;;243
  1. ;;21,"16590001290 ")
  1. ;;244
  1. ;;21,"16590001328 ")
  1. ;;245
  1. ;;21,"16590001330 ")
  1. ;;246
  1. ;;21,"16590001360 ")
  1. ;;247
  1. ;;21,"16590001390 ")
  1. ;;248
  1. ;;21,"16590005530 ")
  1. ;;249
  1. ;;21,"16590005560 ")
  1. ;;250
  1. ;;21,"16590005590 ")
  1. ;;251
  1. ;;21,"16590005615 ")
  1. ;;252
  1. ;;21,"16590005630 ")
  1. ;;253
  1. ;;21,"16590005660 ")
  1. ;;254
  1. ;;21,"16590005671 ")
  1. ;;255
  1. ;;21,"16590005690 ")
  1. ;;256
  1. ;;21,"16590009930 ")
  1. ;;257
  1. ;;21,"16590009960 ")
  1. ;;258
  1. ;;21,"16590010028 ")
  1. ;;259
  1. ;;21,"16590010030 ")
  1. ;;260
  1. ;;21,"16590010056 ")
  1. ;;261
  1. ;;21,"16590010060 ")
  1. ;;262
  1. ;;21,"16590010071 ")
  1. ;;263
  1. ;;21,"16590010090 ")
  1. ;;264
  1. ;;21,"16590015330 ")
  1. ;;265
  1. ;;21,"16590015360 ")
  1. ;;266
  1. ;;21,"16590015430 ")
  1. ;;267
  1. ;;21,"16590015445 ")
  1. ;;268
  1. ;;21,"16590015456 ")
  1. ;;269
  1. ;;21,"16590015460 ")
  1. ;;270
  1. ;;21,"16590015490 ")
  1. ;;271
  1. ;;21,"16590015530 ")
  1. ;;272
  1. ;;21,"16590015560 ")
  1. ;;273
  1. ;;21,"16590017130 ")
  1. ;;274
  1. ;;21,"16590017160 ")
  1. ;;275
  1. ;;21,"16590017171 ")
  1. ;;276
  1. ;;21,"16590017190 ")
  1. ;;277
  1. ;;21,"16590018115 ")
  1. ;;278
  1. ;;21,"16590018128 ")
  1. ;;279
  1. ;;21,"16590018130 ")
  1. ;;280
  1. ;;21,"16590018160 ")
  1. ;;281
  1. ;;21,"16590018182 ")
  1. ;;282
  1. ;;21,"16590018190 ")
  1. ;;283
  1. ;;21,"16590023115 ")
  1. ;;284
  1. ;;21,"16590023130 ")
  1. ;;285
  1. ;;21,"16590023145 ")
  1. ;;286
  1. ;;21,"16590023160 ")
  1. ;;287
  1. ;;21,"16590023182 ")
  1. ;;288
  1. ;;21,"16590023190 ")
  1. ;;289
  1. ;;21,"16590023215 ")
  1. ;;290
  1. ;;21,"16590023228 ")
  1. ;;291
  1. ;;21,"16590023230 ")
  1. ;;292
  1. ;;21,"16590023245 ")
  1. ;;293
  1. ;;21,"16590023260 ")
  1. ;;294
  1. ;;21,"16590023271 ")
  1. ;;295
  1. ;;21,"16590023290 ")
  1. ;;296
  1. ;;21,"16590027030 ")
  1. ;;297
  1. ;;21,"16590027060 ")
  1. ;;298
  1. ;;21,"16590027090 ")
  1. ;;299
  1. ;;21,"16590032215 ")
  1. ;;300
  1. ;;21,"16590032230 ")
  1. ;;301
  1. ;;21,"16590032256 ")
  1. ;;302
  1. ;;21,"16590032260 ")
  1. ;;303
  1. ;;21,"16590032272 ")
  1. ;;304
  1. ;;21,"16590032290 ")
  1. ;;305
  1. ;;21,"16590040630 ")
  1. ;;306
  1. ;;21,"16590040660 ")
  1. ;;307
  1. ;;21,"16590041610 ")
  1. ;;308
  1. ;;21,"16590041615 ")
  1. ;;309
  1. ;;21,"16590041630 ")
  1. ;;310
  1. ;;21,"16590041660 ")
  1. ;;311
  1. ;;21,"16590041672 ")
  1. ;;312
  1. ;;21,"16590041690 ")
  1. ;;313
  1. ;;21,"16590043530 ")
  1. ;;314
  1. ;;21,"16590043560 ")
  1. ;;315
  1. ;;21,"16590043590 ")
  1. ;;316
  1. ;;21,"16590043730 ")
  1. ;;317
  1. ;;21,"16590043760 ")
  1. ;;318
  1. ;;21,"16590043772 ")
  1. ;;319
  1. ;;21,"16590043790 ")
  1. ;;320
  1. ;;21,"16590045715 ")
  1. ;;321
  1. ;;21,"16590045728 ")
  1. ;;322
  1. ;;21,"16590045730 ")
  1. ;;323
  1. ;;21,"16590045745 ")
  1. ;;324
  1. ;;21,"16590045756 ")
  1. ;;325
  1. ;;21,"16590045760 ")
  1. ;;326
  1. ;;21,"16590045772 ")
  1. ;;327
  1. ;;21,"16590045790 ")
  1. ;;328
  1. ;;21,"16590048015 ")
  1. ;;329
  1. ;;21,"16590048030 ")
  1. ;;330
  1. ;;21,"16590048045 ")
  1. ;;331
  1. ;;21,"16590048060 ")
  1. ;;332
  1. ;;21,"16590048072 ")
  1. ;;333
  1. ;;21,"16590048090 ")
  1. ;;334
  1. ;;21,"16590049030 ")
  1. ;;335
  1. ;;21,"16590049060 ")
  1. ;;336
  1. ;;21,"16590049072 ")
  1. ;;337
  1. ;;21,"16590049090 ")
  1. ;;338
  1. ;;21,"16590051030 ")
  1. ;;339
  1. ;;21,"16590051060 ")
  1. ;;340
  1. ;;21,"16590051072 ")
  1. ;;341
  1. ;;21,"16590051090 ")
  1. ;;342
  1. ;;21,"16590051206 ")
  1. ;;343
  1. ;;21,"16590051230 ")
  1. ;;344
  1. ;;21,"16590051260 ")
  1. ;;345
  1. ;;21,"16590051272 ")
  1. ;;346
  1. ;;21,"16590051290 ")
  1. ;;347
  1. ;;21,"16590051330 ")
  1. ;;348
  1. ;;21,"16590051356 ")
  1. ;;349
  1. ;;21,"16590051360 ")
  1. ;;350
  1. ;;21,"16590051372 ")
  1. ;;351
  1. ;;21,"16590051390 ")
  1. ;;352
  1. ;;21,"16590053530 ")
  1. ;;353
  1. ;;21,"16590053560 ")
  1. ;;354
  1. ;;21,"16590053562 ")
  1. ;;355
  1. ;;21,"16590053571 ")
  1. ;;356
  1. ;;21,"16590053572 ")
  1. ;;357
  1. ;;21,"16590053590 ")
  1. ;;358
  1. ;;21,"16590054130 ")
  1. ;;359
  1. ;;21,"16590054160 ")
  1. ;;360
  1. ;;21,"16590054172 ")
  1. ;;361
  1. ;;21,"16590054190 ")
  1. ;;362
  1. ;;21,"16590056530 ")
  1. ;;363
  1. ;;21,"16590056560 ")
  1. ;;364
  1. ;;21,"16590056572 ")
  1. ;;365
  1. ;;21,"16590056590 ")
  1. ;;366
  1. ;;21,"16590057730 ")
  1. ;;367
  1. ;;21,"16590057760 ")
  1. ;;368
  1. ;;21,"16590057790 ")
  1. ;;369
  1. ;;21,"16590058528 ")
  1. ;;370
  1. ;;21,"16590058530 ")
  1. ;;371
  1. ;;21,"16590058560 ")
  1. ;;372
  1. ;;21,"16590058571 ")
  1. ;;373
  1. ;;21,"16590058572 ")
  1. ;;374
  1. ;;21,"16590058590 ")
  1. ;;375
  1. ;;21,"16590059030 ")
  1. ;;376
  1. ;;21,"16590059060 ")
  1. ;;377
  1. ;;21,"16590059072 ")
  1. ;;378
  1. ;;21,"16590059090 ")
  1. ;;379
  1. ;;21,"16590064430 ")
  1. ;;380
  1. ;;21,"16590064460 ")
  1. ;;381
  1. ;;21,"16590064482 ")
  1. ;;382
  1. ;;21,"16590064490 ")
  1. ;;383
  1. ;;21,"16590065030 ")
  1. ;;384
  1. ;;21,"16590065060 ")
  1. ;;385
  1. ;;21,"16590065090 ")
  1. ;;386
  1. ;;21,"16590070030 ")
  1. ;;387
  1. ;;21,"16590070082 ")
  1. ;;388
  1. ;;21,"16590071330 ")
  1. ;;389
  1. ;;21,"16590071360 ")
  1. ;;390
  1. ;;21,"16590071390 ")
  1. ;;391
  1. ;;21,"16590072030 ")
  1. ;;392
  1. ;;21,"16590079930 ")
  1. ;;393
  1. ;;21,"16590080030 ")
  1. ;;394
  1. ;;21,"16590080430 ")
  1. ;;395
  1. ;;21,"16590080472 ")
  1. ;;396
  1. ;;21,"16590084830 ")
  1. ;;397
  1. ;;21,"16590084860 ")
  1. ;;398
  1. ;;21,"16590089630 ")
  1. ;;399
  1. ;;21,"16590089660 ")
  1. ;;400
  1. ;;21,"16590089690 ")
  1. ;;401
  1. ;;21,"16590092030 ")
  1. ;;402
  1. ;;21,"16590092060 ")
  1. ;;403
  1. ;;21,"16590092090 ")
  1. ;;404
  1. ;;21,"16590096330 ")
  1. ;;405
  1. ;;21,"16590096360 ")
  1. ;;406
  1. ;;21,"16590096390 ")
  1. ;;407
  1. ;;21,"16714031101 ")
  1. ;;408
  1. ;;21,"16714031110 ")
  1. ;;409
  1. ;;21,"16714031111 ")
  1. ;;410
  1. ;;21,"16714031201 ")
  1. ;;411
  1. ;;21,"16714031210 ")
  1. ;;412
  1. ;;21,"16714031211 ")
  1. ;;413
  1. ;;21,"16714031301 ")
  1. ;;414
  1. ;;21,"16714031310 ")
  1. ;;415
  1. ;;21,"16714031311 ")
  1. ;;416
  1. ;;21,"16714031401 ")
  1. ;;417
  1. ;;21,"16714031410 ")
  1. ;;418
  1. ;;21,"16714031411 ")
  1. ;;419
  1. ;;21,"16714031501 ")
  1. ;;420
  1. ;;21,"16714031510 ")
  1. ;;421
  1. ;;21,"16714031511 ")
  1. ;;422
  1. ;;21,"16714035101 ")
  1. ;;423
  1. ;;21,"16714035102 ")
  1. ;;424
  1. ;;21,"16714035103 ")
  1. ;;425
  1. ;;21,"16714035201 ")
  1. ;;426
  1. ;;21,"16714035202 ")
  1. ;;427
  1. ;;21,"16714035203 ")
  1. ;;428
  1. ;;21,"16714035301 ")
  1. ;;429
  1. ;;21,"16714035302 ")
  1. ;;430
  1. ;;21,"16714035303 ")
  1. ;;431
  1. ;;21,"16714035304 ")
  1. ;;432
  1. ;;21,"16714060101 ")
  1. ;;433
  1. ;;21,"16714061101 ")
  1. ;;434
  1. ;;21,"16714061102 ")
  1. ;;435
  1. ;;21,"16714061103 ")
  1. ;;436
  1. ;;21,"16714061104 ")
  1. ;;437
  1. ;;21,"16714061105 ")
  1. ;;438
  1. ;;21,"16714061106 ")
  1. ;;439
  1. ;;21,"16714061201 ")
  1. ;;440
  1. ;;21,"16714061202 ")
  1. ;;441
  1. ;;21,"16714061203 ")
  1. ;;442
  1. ;;21,"16714061204 ")
  1. ;;443
  1. ;;21,"16714061205 ")
  1. ;;444
  1. ;;21,"16714061206 ")
  1. ;;445
  1. ;;21,"16714061301 ")
  1. ;;446
  1. ;;21,"16714061302 ")
  1. ;;447
  1. ;;21,"16714061303 ")
  1. ;;448
  1. ;;21,"16714061304 ")
  1. ;;449
  1. ;;21,"16714061305 ")
  1. ;;450
  1. ;;21,"16714061306 ")
  1. ;;451
  1. ;;21,"17856054002 ")
  1. ;;452
  1. ;;21,"17856054030 ")
  1. ;;453
  1. ;;21,"17856418602 ")
  1. ;;454
  1. ;;21,"18837000630 ")
  1. ;;455
  1. ;;21,"18837000660 ")
  1. ;;456
  1. ;;21,"18837000690 ")
  1. ;;457
  1. ;;21,"18837000730 ")
  1. ;;458
  1. ;;21,"18837000830 ")
  1. ;;459
  1. ;;21,"18837000860 ")
  1. ;;460
  1. ;;21,"18837000890 ")
  1. ;;461
  1. ;;21,"18837000898 ")
  1. ;;462
  1. ;;21,"18837000930 ")
  1. ;;463
  1. ;;21,"18837000960 ")
  1. ;;464
  1. ;;21,"18837000990 ")
  1. ;;465
  1. ;;21,"18837004730 ")
  1. ;;466
  1. ;;21,"18837004760 ")
  1. ;;467
  1. ;;21,"18837005430 ")
  1. ;;468
  1. ;;21,"18837005460 ")
  1. ;;469
  1. ;;21,"18837005490 ")
  1. ;;470
  1. ;;21,"18837009360 ")
  1. ;;471
  1. ;;21,"18837009430 ")
  1. ;;472
  1. ;;21,"18837011430 ")
  1. ;;473
  1. ;;21,"18837016030 ")
  1. ;;474
  1. ;;21,"18837016060 ")
  1. ;;475
  1. ;;21,"18837016230 ")
  1. ;;476
  1. ;;21,"18837016260 ")
  1. ;;477
  1. ;;21,"18837022230 ")
  1. ;;478
  1. ;;21,"18837024230 ")
  1. ;;479
  1. ;;21,"18837024830 ")
  1. ;;480
  1. ;;21,"18837024860 ")
  1. ;;481
  1. ;;21,"18837024890 ")
  1. ;;482
  1. ;;21,"18837024930 ")
  1. ;;483
  1. ;;21,"18837024960 ")
  1. ;;484
  1. ;;21,"18837024990 ")
  1. ;;485
  1. ;;21,"18837025230 ")
  1. ;;486
  1. ;;21,"18837025260 ")
  1. ;;487
  1. ;;21,"18837025290 ")
  1. ;;488
  1. ;;21,"18837025330 ")
  1. ;;489
  1. ;;21,"18837025360 ")
  1. ;;490
  1. ;;21,"18837025390 ")
  1. ;;491
  1. ;;21,"18837027830 ")
  1. ;;492
  1. ;;21,"18837029530 ")
  1. ;;493
  1. ;;21,"18837030430 ")
  1. ;;494
  1. ;;21,"18837030630 ")
  1. ;;495
  1. ;;21,"18837031030 ")
  1. ;;496
  1. ;;21,"18837031060 ")
  1. ;;497
  1. ;;21,"18837036490 ")
  1. ;;498
  1. ;;21,"18837037630 ")
  1. ;;499
  1. ;;21,"21695003000 ")
  1. ;;500
  1. ;;21,"21695003030 ")
  1. ;;501
  1. ;;21,"21695003060 ")
  1. ;;502
  1. ;;21,"21695003090 ")
  1. ;;503
  1. ;;21,"21695003100 ")
  1. ;;504
  1. ;;21,"21695003130 ")
  1. ;;505
  1. ;;21,"21695003160 ")
  1. ;;506
  1. ;;21,"21695003190 ")
  1. ;;507
  1. ;;21,"21695003200 ")
  1. ;;508
  1. ;;21,"21695003230 ")
  1. ;;509
  1. ;;21,"21695003260 ")
  1. ;;510
  1. ;;21,"21695003290 ")
  1. ;;511
  1. ;;21,"21695005220 ")
  1. ;;512
  1. ;;21,"21695005230 ")
  1. ;;513
  1. ;;21,"21695005260 ")
  1. ;;514
  1. ;;21,"21695005290 ")
  1. ;;515
  1. ;;21,"21695005330 ")
  1. ;;516
  1. ;;21,"21695005360 ")
  1. ;;517
  1. ;;21,"21695005390 ")
  1. ;;518
  1. ;;21,"21695005407 ")
  1. ;;519
  1. ;;21,"21695005430 ")
  1. ;;520
  1. ;;21,"21695005460 ")
  1. ;;521
  1. ;;21,"21695005490 ")
  1. ;;522
  1. ;;21,"21695008100 ")
  1. ;;523
  1. ;;21,"21695008130 ")
  1. ;;524
  1. ;;21,"21695008160 ")
  1. ;;525