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

BGP53I17.m

Go to the documentation of this file.
BGP53I17 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"65862-0503-01 ")
 ;;6199
 ;;21,"65862-0503-20 ")
 ;;6200
 ;;21,"65862-0533-01 ")
 ;;6201
 ;;21,"65862-0533-50 ")
 ;;6202
 ;;21,"65862-0533-75 ")
 ;;6203
 ;;21,"65862-0534-01 ")
 ;;6204
 ;;21,"65862-0534-50 ")
 ;;6205
 ;;21,"65862-0534-75 ")
 ;;6206
 ;;21,"65862-0535-02 ")
 ;;6207
 ;;21,"65862-0535-13 ")
 ;;6208
 ;;21,"65862-0535-75 ")
 ;;6209
 ;;21,"65862-0536-50 ")
 ;;6210
 ;;21,"65862-0537-50 ")
 ;;6211
 ;;21,"65862-0538-20 ")
 ;;6212
 ;;21,"65862-0596-01 ")
 ;;6213
 ;;21,"65862-0603-30 ")
 ;;6214
 ;;21,"65862-0699-20 ")
 ;;6215
 ;;21,"65862-0699-60 ")
 ;;6216
 ;;21,"65862-0700-20 ")
 ;;6217
 ;;21,"65862-0700-60 ")
 ;;6218
 ;;21,"66105-0108-10 ")
 ;;6219
 ;;21,"66105-0109-01 ")
 ;;6220
 ;;21,"66105-0109-02 ")
 ;;6221
 ;;21,"66105-0109-03 ")
 ;;6222
 ;;21,"66105-0109-06 ")
 ;;6223
 ;;21,"66105-0109-10 ")
 ;;6224
 ;;21,"66105-0477-05 ")
 ;;6225
 ;;21,"66105-0478-05 ")
 ;;6226
 ;;21,"66105-0507-01 ")
 ;;6227
 ;;21,"66105-0507-03 ")
 ;;6228
 ;;21,"66105-0507-06 ")
 ;;6229
 ;;21,"66105-0507-09 ")
 ;;6230
 ;;21,"66105-0507-10 ")
 ;;6231
 ;;21,"66105-0537-01 ")
 ;;6232
 ;;21,"66105-0537-03 ")
 ;;6233
 ;;21,"66105-0537-06 ")
 ;;6234
 ;;21,"66105-0537-09 ")
 ;;6235
 ;;21,"66105-0537-15 ")
 ;;6236
 ;;21,"66105-0653-01 ")
 ;;6237
 ;;21,"66105-0653-03 ")
 ;;6238
 ;;21,"66105-0653-05 ")
 ;;6239
 ;;21,"66105-0653-06 ")
 ;;6240
 ;;21,"66105-0653-19 ")
 ;;6241
 ;;21,"66105-0670-01 ")
 ;;6242
 ;;21,"66105-0670-03 ")
 ;;6243
 ;;21,"66105-0670-05 ")
 ;;6244
 ;;21,"66105-0670-06 ")
 ;;6245
 ;;21,"66105-0670-18 ")
 ;;6246
 ;;21,"66105-0743-01 ")
 ;;6247
 ;;21,"66105-0743-03 ")
 ;;6248
 ;;21,"66105-0743-06 ")
 ;;6249
 ;;21,"66105-0743-09 ")
 ;;6250
 ;;21,"66105-0743-15 ")
 ;;6251
 ;;21,"66105-0744-01 ")
 ;;6252
 ;;21,"66105-0744-03 ")
 ;;6253
 ;;21,"66105-0744-06 ")
 ;;6254
 ;;21,"66105-0744-09 ")
 ;;6255
 ;;21,"66105-0744-15 ")
 ;;6256
 ;;21,"66105-0745-01 ")
 ;;6257
 ;;21,"66105-0745-03 ")
 ;;6258
 ;;21,"66105-0745-06 ")
 ;;6259
 ;;21,"66105-0745-09 ")
 ;;6260
 ;;21,"66105-0745-15 ")
 ;;6261
 ;;21,"66267-0021-15 ")
 ;;6262
 ;;21,"66267-0023-04 ")
 ;;6263
 ;;21,"66267-0023-08 ")
 ;;6264
 ;;21,"66267-0023-09 ")
 ;;6265
 ;;21,"66267-0023-15 ")
 ;;6266
 ;;21,"66267-0023-20 ")
 ;;6267
 ;;21,"66267-0023-60 ")
 ;;6268
 ;;21,"66267-0024-30 ")
 ;;6269
 ;;21,"66267-0025-30 ")
 ;;6270
 ;;21,"66267-0034-14 ")
 ;;6271
 ;;21,"66267-0034-20 ")
 ;;6272
 ;;21,"66267-0045-30 ")
 ;;6273
 ;;21,"66267-0050-05 ")
 ;;6274
 ;;21,"66267-0050-06 ")
 ;;6275
 ;;21,"66267-0050-10 ")
 ;;6276
 ;;21,"66267-0060-04 ")
 ;;6277
 ;;21,"66267-0060-06 ")
 ;;6278
 ;;21,"66267-0060-08 ")
 ;;6279
 ;;21,"66267-0060-10 ")
 ;;6280
 ;;21,"66267-0060-14 ")
 ;;6281
 ;;21,"66267-0060-21 ")
 ;;6282
 ;;21,"66267-0060-30 ")
 ;;6283
 ;;21,"66267-0060-40 ")
 ;;6284
 ;;21,"66267-0060-60 ")
 ;;6285
 ;;21,"66267-0196-30 ")
 ;;6286
 ;;21,"66267-0919-06 ")
 ;;6287
 ;;21,"66267-0919-10 ")
 ;;6288
 ;;21,"66267-0919-15 ")
 ;;6289
 ;;21,"66267-0919-28 ")
 ;;6290
 ;;21,"66267-0919-30 ")
 ;;6291
 ;;21,"66267-0919-60 ")
 ;;6292
 ;;21,"66336-0018-08 ")
 ;;6293
 ;;21,"66336-0018-14 ")
 ;;6294
 ;;21,"66336-0018-20 ")
 ;;6295
 ;;21,"66336-0018-28 ")
 ;;6296
 ;;21,"66336-0018-42 ")
 ;;6297
 ;;21,"66336-0037-03 ")
 ;;6298
 ;;21,"66336-0037-20 ")
 ;;6299
 ;;21,"66336-0037-28 ")
 ;;6300
 ;;21,"66336-0037-40 ")
 ;;6301
 ;;21,"66336-0055-06 ")
 ;;6302
 ;;21,"66336-0055-08 ")
 ;;6303
 ;;21,"66336-0055-10 ")
 ;;6304
 ;;21,"66336-0055-14 ")
 ;;6305
 ;;21,"66336-0055-20 ")
 ;;6306
 ;;21,"66336-0055-28 ")
 ;;6307
 ;;21,"66336-0055-30 ")
 ;;6308
 ;;21,"66336-0055-40 ")
 ;;6309
 ;;21,"66336-0074-20 ")
 ;;6310
 ;;21,"66336-0077-20 ")
 ;;6311
 ;;21,"66336-0077-28 ")
 ;;6312
 ;;21,"66336-0077-40 ")
 ;;6313
 ;;21,"66336-0087-06 ")
 ;;6314
 ;;21,"66336-0087-10 ")
 ;;6315
 ;;21,"66336-0087-14 ")
 ;;6316
 ;;21,"66336-0087-20 ")
 ;;6317
 ;;21,"66336-0087-40 ")
 ;;6318
 ;;21,"66336-0095-06 ")
 ;;6319
 ;;21,"66336-0095-20 ")
 ;;6320
 ;;21,"66336-0095-28 ")
 ;;6321
 ;;21,"66336-0095-30 ")
 ;;6322
 ;;21,"66336-0095-40 ")
 ;;6323
 ;;21,"66336-0098-21 ")
 ;;6324
 ;;21,"66336-0098-30 ")
 ;;6325
 ;;21,"66336-0104-20 ")
 ;;6326
 ;;21,"66336-0109-14 ")
 ;;6327
 ;;21,"66336-0109-28 ")
 ;;6328
 ;;21,"66336-0109-30 ")
 ;;6329
 ;;21,"66336-0109-50 ")
 ;;6330
 ;;21,"66336-0113-30 ")
 ;;6331
 ;;21,"66336-0202-30 ")
 ;;6332
 ;;21,"66336-0229-20 ")
 ;;6333
 ;;21,"66336-0229-56 ")
 ;;6334
 ;;21,"66336-0229-84 ")
 ;;6335
 ;;21,"66336-0293-30 ")
 ;;6336
 ;;21,"66336-0347-20 ")
 ;;6337
 ;;21,"66336-0369-20 ")
 ;;6338
 ;;21,"66336-0400-05 ")
 ;;6339
 ;;21,"66336-0414-20 ")
 ;;6340
 ;;21,"66336-0414-28 ")
 ;;6341
 ;;21,"66336-0414-40 ")
 ;;6342
 ;;21,"66336-0433-14 ")
 ;;6343
 ;;21,"66336-0435-20 ")
 ;;6344
 ;;21,"66336-0435-28 ")
 ;;6345
 ;;21,"66336-0435-30 ")
 ;;6346
 ;;21,"66336-0435-40 ")
 ;;6347
 ;;21,"66336-0435-60 ")
 ;;6348
 ;;21,"66336-0441-03 ")
 ;;6349
 ;;21,"66336-0441-06 ")
 ;;6350
 ;;21,"66336-0441-08 ")
 ;;6351
 ;;21,"66336-0441-20 ")
 ;;6352
 ;;21,"66336-0441-28 ")
 ;;6353
 ;;21,"66336-0441-40 ")
 ;;6354
 ;;21,"66336-0449-14 ")
 ;;6355
 ;;21,"66336-0454-30 ")
 ;;6356
 ;;21,"66336-0480-20 ")
 ;;6357
 ;;21,"66336-0480-40 ")
 ;;6358
 ;;21,"66336-0580-28 ")
 ;;6359
 ;;21,"66336-0580-30 ")
 ;;6360
 ;;21,"66336-0593-40 ")
 ;;6361
 ;;21,"66336-0609-06 ")
 ;;6362
 ;;21,"66336-0609-12 ")
 ;;6363
 ;;21,"66336-0609-20 ")
 ;;6364
 ;;21,"66336-0609-28 ")
 ;;6365
 ;;21,"66336-0609-40 ")
 ;;6366
 ;;21,"66336-0617-30 ")
 ;;6367
 ;;21,"66336-0617-40 ")
 ;;6368
 ;;21,"66336-0634-08 ")
 ;;6369
 ;;21,"66336-0634-15 ")
 ;;6370
 ;;21,"66336-0634-21 ")
 ;;6371
 ;;21,"66336-0634-30 ")
 ;;6372
 ;;21,"66336-0634-40 ")
 ;;6373
 ;;21,"66336-0634-42 ")
 ;;6374
 ;;21,"66336-0644-40 ")
 ;;6375
 ;;21,"66336-0655-21 ")
 ;;6376
 ;;21,"66336-0655-30 ")
 ;;6377
 ;;21,"66336-0830-05 ")
 ;;6378
 ;;21,"66336-0903-10 ")
 ;;6379
 ;;21,"66336-0903-14 ")
 ;;6380
 ;;21,"66336-0903-20 ")
 ;;6381
 ;;21,"66336-0903-28 ")
 ;;6382
 ;;21,"66336-0903-99 ")
 ;;6383
 ;;21,"66336-0906-28 ")
 ;;6384
 ;;21,"66647-6152-11 ")
 ;;6385
 ;;21,"66647-6153-11 ")
 ;;6386
 ;;21,"66685-1001-00 ")
 ;;6387
 ;;21,"66685-1001-01 ")
 ;;6388
 ;;21,"66685-1002-00 ")
 ;;6389
 ;;21,"66685-1002-02 ")
 ;;6390
 ;;21,"66685-1011-00 ")
 ;;6391
 ;;21,"66685-1011-01 ")
 ;;6392
 ;;21,"66685-1011-02 ")
 ;;6393
 ;;21,"66685-1012-00 ")
 ;;6394
 ;;21,"66685-1012-01 ")
 ;;6395
 ;;21,"66685-1012-02 ")
 ;;6396
 ;;21,"66860-0001-03 ")
 ;;6397
 ;;21,"66860-0002-03 ")
 ;;6398
 ;;21,"66860-0003-02 ")
 ;;6399
 ;;21,"66860-0011-02 ")
 ;;6400
 ;;21,"66860-0030-03 ")
 ;;6401
 ;;21,"66860-0031-03 ")
 ;;6402
 ;;21,"66860-0032-02 ")
 ;;6403
 ;;21,"66860-0071-02 ")
 ;;6404
 ;;21,"66860-0072-02 ")
 ;;6405
 ;;21,"66860-0073-02 ")
 ;;6406
 ;;21,"66860-0074-02 ")
 ;;6407
 ;;21,"66860-0730-03 ")
 ;;6408
 ;;21,"66860-0731-03 ")
 ;;6409
 ;;21,"66860-0732-02 ")
 ;;6410
 ;;21,"66860-0902-03 ")
 ;;6411
 ;;21,"67046-0020-21 ")
 ;;6412
 ;;21,"67046-0090-21 ")
 ;;6413
 ;;21,"67046-0090-28 ")
 ;;6414
 ;;21,"67046-0090-30 ")
 ;;6415
 ;;21,"67046-0135-14 ")
 ;;6416
 ;;21,"67046-0135-20 ")
 ;;6417
 ;;21,"67046-0135-30 ")
 ;;6418
 ;;21,"67046-0576-21 ")
 ;;6419
 ;;21,"67046-0576-28 ")
 ;;6420
 ;;21,"67046-0576-30 ")
 ;;6421
 ;;21,"67046-0728-30 ")
 ;;6422
 ;;21,"67253-0007-60 ")
 ;;6423
 ;;21,"67253-0008-41 ")
 ;;6424
 ;;21,"67253-0008-46 ")
 ;;6425
 ;;21,"67253-0009-41 ")
 ;;6426
 ;;21,"67253-0009-46 ")
 ;;6427
 ;;21,"67253-0011-06 ")
 ;;6428
 ;;21,"67253-0012-41 ")
 ;;6429
 ;;21,"67253-0012-42 ")
 ;;6430
 ;;21,"67253-0013-41 ")
 ;;6431
 ;;21,"67253-0013-42 ")
 ;;6432
 ;;21,"67253-0140-10 ")
 ;;6433
 ;;21,"67253-0140-50 ")
 ;;6434
 ;;21,"67253-0141-10 ")
 ;;6435
 ;;21,"67253-0141-50 ")
 ;;6436
 ;;21,"67253-0142-08 ")
 ;;6437
 ;;21,"67253-0142-10 ")
 ;;6438
 ;;21,"67253-0142-15 ")
 ;;6439
 ;;21,"67253-0143-08 ")
 ;;6440
 ;;21,"67253-0143-10 ")
 ;;6441
 ;;21,"67253-0143-15 ")
 ;;6442
 ;;21,"67253-0145-10 ")
 ;;6443
 ;;21,"67253-0180-10 ")
 ;;6444
 ;;21,"67253-0180-50 ")
 ;;6445
 ;;21,"67253-0181-10 ")
 ;;6446
 ;;21,"67253-0181-50 ")
 ;;6447
 ;;21,"67253-0182-10 ")
 ;;6448
 ;;21,"67253-0182-20 ")
 ;;6449
 ;;21,"67253-0183-10 ")
 ;;6450
 ;;21,"67253-0183-20 ")
 ;;6451
 ;;21,"67253-0200-10 ")
 ;;6452
 ;;21,"67253-0200-11 ")
 ;;6453
 ;;21,"67253-0201-10 ")
 ;;6454
 ;;21,"67253-0201-50 ")
 ;;6455
 ;;21,"67253-0202-10 ")
 ;;6456
 ;;21,"67253-0202-20 ")
 ;;6457
 ;;21,"67253-0203-10 ")
 ;;6458
 ;;21,"67253-0203-20 ")
 ;;6459
 ;;21,"67253-0300-10 ")
 ;;6460
 ;;21,"67253-0300-50 ")
 ;;6461
 ;;21,"67253-0301-10 ")
 ;;6462
 ;;21,"67253-0301-50 ")
 ;;6463
 ;;21,"67253-0388-15 ")
 ;;6464
 ;;21,"67253-0389-15 ")
 ;;6465
 ;;21,"67253-0389-50 ")
 ;;6466
 ;;21,"67253-0391-15 ")
 ;;6467
 ;;21,"67253-0391-50 ")
 ;;6468
 ;;21,"67253-0780-02 ")
 ;;6469
 ;;21,"67253-0781-02 ")
 ;;6470
 ;;21,"67405-0550-05 ")
 ;;6471
 ;;21,"67405-0550-55 ")
 ;;6472
 ;;21,"67405-0650-55 ")
 ;;6473
 ;;21,"67405-0651-05 ")
 ;;6474
 ;;21,"67405-0651-55 ")
 ;;6475
 ;;21,"67457-0437-10 ")
 ;;6476
 ;;21,"67544-0775-28 ")
 ;;6477
 ;;21,"67877-0215-20 ")
 ;;6478
 ;;21,"67877-0215-60 ")
 ;;6479
 ;;21,"67877-0216-20 ")
 ;;6480
 ;;21,"67877-0216-60 ")
 ;;6481
 ;;21,"67877-0219-01 ")
 ;;6482
 ;;21,"67877-0219-05 ")
 ;;6483
 ;;21,"67877-0220-05 ")
 ;;6484
 ;;21,"67877-0255-20 ")
 ;;6485
 ;;21,"67877-0255-23 ")
 ;;6486
 ;;21,"68001-0150-06 ")
 ;;6487
 ;;21,"68047-0714-01 ")
 ;;6488
 ;;21,"68047-0714-60 ")
 ;;6489
 ;;21,"68071-0055-06 ")
 ;;6490
 ;;21,"68071-0055-10 ")
 ;;6491
 ;;21,"68071-0055-14 ")
 ;;6492
 ;;21,"68071-0055-20 ")
 ;;6493
 ;;21,"68071-0055-28 ")
 ;;6494
 ;;21,"68071-0055-30 ")
 ;;6495
 ;;21,"68071-0331-14 ")
 ;;6496
 ;;21,"68071-0331-20 ")
 ;;6497
 ;;21,"68071-0331-30 ")
 ;;6498
 ;;21,"68071-0337-14 ")
 ;;6499
 ;;21,"68071-0337-20 ")
 ;;6500
 ;;21,"68071-0337-30 ")
 ;;6501
 ;;21,"68071-0398-06 ")
 ;;6502
 ;;21,"68071-0398-14 ")
 ;;6503
 ;;21,"68071-0398-20 ")
 ;;6504
 ;;21,"68071-0398-30 ")
 ;;6505
 ;;21,"68071-0398-40 ")
 ;;6506
 ;;21,"68071-0398-90 ")
 ;;6507
 ;;21,"68084-0069-01 ")
 ;;6508
 ;;21,"68084-0069-11 ")
 ;;6509
 ;;21,"68084-0070-01 ")
 ;;6510
 ;;21,"68084-0070-11 ")
 ;;6511
 ;;21,"68084-0071-01 ")
 ;;6512
 ;;21,"68084-0071-11 ")
 ;;6513
 ;;21,"68084-0218-01 ")
 ;;6514
 ;;21,"68084-0218-11 ")
 ;;6515
 ;;21,"68084-0219-01 ")
 ;;6516
 ;;21,"68084-0219-11 ")
 ;;6517
 ;;21,"68084-0230-01 ")
 ;;6518
 ;;21,"68084-0230-11 ")
 ;;6519
 ;;21,"68084-0235-01 ")
 ;;6520
 ;;21,"68084-0235-11 ")
 ;;6521
 ;;21,"68084-0236-01 ")
 ;;6522
 ;;21,"68084-0236-11 ")
 ;;6523
 ;;21,"68084-0243-01 ")
 ;;6524
 ;;21,"68084-0243-11 ")
 ;;6525
 ;;21,"68084-0244-01 ")
 ;;6526
 ;;21,"68084-0244-11 ")
 ;;6527
 ;;21,"68084-0278-01 ")
 ;;6528
 ;;21,"68084-0278-11 ")
 ;;6529
 ;;21,"68084-0278-30 ")
 ;;6530
 ;;21,"68084-0278-65 ")
 ;;6531
 ;;21,"68084-0278-89 ")
 ;;6532
 ;;21,"68084-0279-11 ")
 ;;6533
 ;;21,"68084-0279-21 ")
 ;;6534
 ;;21,"68084-0289-01 ")
 ;;6535
 ;;21,"68084-0289-11 ")
 ;;6536
 ;;21,"68084-0437-11 ")
 ;;6537
 ;;21,"68084-0437-65 ")
 ;;6538
 ;;21,"68084-0443-11 ")
 ;;6539
 ;;21,"68084-0443-65 ")
 ;;6540
 ;;21,"68084-0464-11 ")
 ;;6541
 ;;21,"68084-0464-21 ")
 ;;6542
 ;;21,"68084-0481-01 ")
 ;;6543
 ;;21,"68084-0481-11 ")
 ;;6544
 ;;21,"68084-0482-01 ")
 ;;6545
 ;;21,"68084-0482-11 ")
 ;;6546
 ;;21,"68084-0483-01 ")
 ;;6547
 ;;21,"68084-0483-11 ")
 ;;6548
 ;;21,"68084-0623-11 ")
 ;;6549
 ;;21,"68084-0623-65 ")
 ;;6550
 ;;21,"68084-0651-25 ")
 ;;6551
 ;;21,"68084-0656-01 ")
 ;;6552
 ;;21,"68084-0722-65 ")
 ;;6553
 ;;21,"68115-0026-06 ")
 ;;6554
 ;;21,"68115-0026-09 ")
 ;;6555
 ;;21,"68115-0026-15 ")
 ;;6556
 ;;21,"68115-0026-40 ")
 ;;6557
 ;;21,"68115-0029-20 ")
 ;;6558
 ;;21,"68115-0030-10 ")
 ;;6559
 ;;21,"68115-0032-40 ")
 ;;6560
 ;;21,"68115-0033-15 ")
 ;;6561
 ;;21,"68115-0033-40 ")
 ;;6562
 ;;21,"68115-0067-20 ")
 ;;6563
 ;;21,"68115-0081-06 ")
 ;;6564
 ;;21,"68115-0081-10 ")
 ;;6565
 ;;21,"68115-0082-01 ")
 ;;6566
 ;;21,"68115-0082-06 ")
 ;;6567
 ;;21,"68115-0090-20 ")
 ;;6568
 ;;21,"68115-0104-06 ")
 ;;6569
 ;;21,"68115-0104-40 ")
 ;;6570
 ;;21,"68115-0105-30 ")
 ;;6571
 ;;21,"68115-0105-40 ")
 ;;6572
 ;;21,"68115-0125-28 ")
 ;;6573
 ;;21,"68115-0131-06 ")
 ;;6574
 ;;21,"68115-0131-15 ")
 ;;6575
 ;;21,"68115-0131-21 ")
 ;;6576
 ;;21,"68115-0131-40 ")
 ;;6577
 ;;21,"68115-0133-20 ")
 ;;6578
 ;;21,"68115-0133-40 ")
 ;;6579
 ;;21,"68115-0134-06 ")
 ;;6580
 ;;21,"68115-0134-40 ")
 ;;6581
 ;;21,"68115-0421-28 ")
 ;;6582
 ;;21,"68115-0445-22 ")
 ;;6583
 ;;21,"68180-0121-01 ")
 ;;6584