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