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

BGP73G14.m

Go to the documentation of this file.
  1. BGP73G14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"64679-0716-01 ")
  1. ;;4354
  1. ;;21,"64679-0716-04 ")
  1. ;;4355
  1. ;;21,"64679-0716-05 ")
  1. ;;4356
  1. ;;21,"64679-0717-01 ")
  1. ;;4357
  1. ;;21,"64679-0717-04 ")
  1. ;;4358
  1. ;;21,"64679-0717-05 ")
  1. ;;4359
  1. ;;21,"64679-0718-01 ")
  1. ;;4360
  1. ;;21,"64679-0718-04 ")
  1. ;;4361
  1. ;;21,"64679-0718-05 ")
  1. ;;4362
  1. ;;21,"64679-0752-01 ")
  1. ;;4363
  1. ;;21,"64679-0752-04 ")
  1. ;;4364
  1. ;;21,"64679-0752-07 ")
  1. ;;4365
  1. ;;21,"64679-0753-01 ")
  1. ;;4366
  1. ;;21,"64679-0753-04 ")
  1. ;;4367
  1. ;;21,"64679-0753-07 ")
  1. ;;4368
  1. ;;21,"64720-0171-11 ")
  1. ;;4369
  1. ;;21,"64720-0172-11 ")
  1. ;;4370
  1. ;;21,"64764-0550-30 ")
  1. ;;4371
  1. ;;21,"64764-0560-30 ")
  1. ;;4372
  1. ;;21,"64764-0580-30 ")
  1. ;;4373
  1. ;;21,"64764-0720-30 ")
  1. ;;4374
  1. ;;21,"64764-0730-30 ")
  1. ;;4375
  1. ;;21,"64764-0750-30 ")
  1. ;;4376
  1. ;;21,"64980-0158-01 ")
  1. ;;4377
  1. ;;21,"64980-0159-01 ")
  1. ;;4378
  1. ;;21,"64980-0183-01 ")
  1. ;;4379
  1. ;;21,"65084-0414-13 ")
  1. ;;4380
  1. ;;21,"65162-0052-03 ")
  1. ;;4381
  1. ;;21,"65162-0052-10 ")
  1. ;;4382
  1. ;;21,"65162-0052-50 ")
  1. ;;4383
  1. ;;21,"65162-0053-03 ")
  1. ;;4384
  1. ;;21,"65162-0053-10 ")
  1. ;;4385
  1. ;;21,"65162-0053-50 ")
  1. ;;4386
  1. ;;21,"65162-0054-03 ")
  1. ;;4387
  1. ;;21,"65162-0054-10 ")
  1. ;;4388
  1. ;;21,"65162-0054-50 ")
  1. ;;4389
  1. ;;21,"65162-0300-09 ")
  1. ;;4390
  1. ;;21,"65162-0302-09 ")
  1. ;;4391
  1. ;;21,"65162-0305-09 ")
  1. ;;4392
  1. ;;21,"65162-0306-09 ")
  1. ;;4393
  1. ;;21,"65162-0307-09 ")
  1. ;;4394
  1. ;;21,"65162-0705-88 ")
  1. ;;4395
  1. ;;21,"65224-0880-31 ")
  1. ;;4396
  1. ;;21,"65224-0880-90 ")
  1. ;;4397
  1. ;;21,"65224-0890-31 ")
  1. ;;4398
  1. ;;21,"65224-0890-90 ")
  1. ;;4399
  1. ;;21,"65243-0006-03 ")
  1. ;;4400
  1. ;;21,"65243-0063-03 ")
  1. ;;4401
  1. ;;21,"65243-0310-03 ")
  1. ;;4402
  1. ;;21,"65243-0319-03 ")
  1. ;;4403
  1. ;;21,"65243-0327-03 ")
  1. ;;4404
  1. ;;21,"65580-0301-03 ")
  1. ;;4405
  1. ;;21,"65580-0301-09 ")
  1. ;;4406
  1. ;;21,"65580-0302-03 ")
  1. ;;4407
  1. ;;21,"65580-0302-09 ")
  1. ;;4408
  1. ;;21,"65580-0303-03 ")
  1. ;;4409
  1. ;;21,"65580-0303-09 ")
  1. ;;4410
  1. ;;21,"65580-0304-03 ")
  1. ;;4411
  1. ;;21,"65580-0304-09 ")
  1. ;;4412
  1. ;;21,"65862-0001-01 ")
  1. ;;4413
  1. ;;21,"65862-0001-05 ")
  1. ;;4414
  1. ;;21,"65862-0001-30 ")
  1. ;;4415
  1. ;;21,"65862-0003-01 ")
  1. ;;4416
  1. ;;21,"65862-0003-03 ")
  1. ;;4417
  1. ;;21,"65862-0003-05 ")
  1. ;;4418
  1. ;;21,"65862-0003-30 ")
  1. ;;4419
  1. ;;21,"65862-0003-90 ")
  1. ;;4420
  1. ;;21,"65862-0005-01 ")
  1. ;;4421
  1. ;;21,"65862-0005-05 ")
  1. ;;4422
  1. ;;21,"65862-0005-30 ")
  1. ;;4423
  1. ;;21,"65862-0006-01 ")
  1. ;;4424
  1. ;;21,"65862-0006-05 ")
  1. ;;4425
  1. ;;21,"65862-0006-30 ")
  1. ;;4426
  1. ;;21,"65862-0007-01 ")
  1. ;;4427
  1. ;;21,"65862-0007-05 ")
  1. ;;4428
  1. ;;21,"65862-0007-30 ")
  1. ;;4429
  1. ;;21,"65862-0011-01 ")
  1. ;;4430
  1. ;;21,"65862-0011-05 ")
  1. ;;4431
  1. ;;21,"65862-0011-30 ")
  1. ;;4432
  1. ;;21,"65862-0011-90 ")
  1. ;;4433
  1. ;;21,"65862-0012-01 ")
  1. ;;4434
  1. ;;21,"65862-0012-05 ")
  1. ;;4435
  1. ;;21,"65862-0012-30 ")
  1. ;;4436
  1. ;;21,"65862-0012-90 ")
  1. ;;4437
  1. ;;21,"65862-0013-01 ")
  1. ;;4438
  1. ;;21,"65862-0013-05 ")
  1. ;;4439
  1. ;;21,"65862-0013-30 ")
  1. ;;4440
  1. ;;21,"65862-0013-90 ")
  1. ;;4441
  1. ;;21,"65862-0021-06 ")
  1. ;;4442
  1. ;;21,"65862-0022-06 ")
  1. ;;4443
  1. ;;21,"65862-0023-06 ")
  1. ;;4444
  1. ;;21,"65862-0031-01 ")
  1. ;;4445
  1. ;;21,"65862-0031-03 ")
  1. ;;4446
  1. ;;21,"65862-0031-05 ")
  1. ;;4447
  1. ;;21,"65862-0031-30 ")
  1. ;;4448
  1. ;;21,"65862-0031-90 ")
  1. ;;4449
  1. ;;21,"65862-0032-01 ")
  1. ;;4450
  1. ;;21,"65862-0032-03 ")
  1. ;;4451
  1. ;;21,"65862-0032-05 ")
  1. ;;4452
  1. ;;21,"65862-0032-30 ")
  1. ;;4453
  1. ;;21,"65862-0032-90 ")
  1. ;;4454
  1. ;;21,"65862-0074-24 ")
  1. ;;4455
  1. ;;21,"65862-0154-30 ")
  1. ;;4456
  1. ;;21,"65862-0155-05 ")
  1. ;;4457
  1. ;;21,"65862-0155-30 ")
  1. ;;4458
  1. ;;21,"65862-0155-99 ")
  1. ;;4459
  1. ;;21,"65862-0156-30 ")
  1. ;;4460
  1. ;;21,"65862-0156-99 ")
  1. ;;4461
  1. ;;21,"65862-0157-30 ")
  1. ;;4462
  1. ;;21,"65862-0157-99 ")
  1. ;;4463
  1. ;;21,"65862-0192-01 ")
  1. ;;4464
  1. ;;21,"65862-0192-05 ")
  1. ;;4465
  1. ;;21,"65862-0192-99 ")
  1. ;;4466
  1. ;;21,"65862-0193-01 ")
  1. ;;4467
  1. ;;21,"65862-0193-05 ")
  1. ;;4468
  1. ;;21,"65862-0193-99 ")
  1. ;;4469
  1. ;;21,"65862-0194-01 ")
  1. ;;4470
  1. ;;21,"65862-0194-05 ")
  1. ;;4471
  1. ;;21,"65862-0194-30 ")
  1. ;;4472
  1. ;;21,"65862-0194-99 ")
  1. ;;4473
  1. ;;21,"65862-0248-24 ")
  1. ;;4474
  1. ;;21,"65862-0373-01 ")
  1. ;;4475
  1. ;;21,"65862-0373-05 ")
  1. ;;4476
  1. ;;21,"65862-0374-01 ")
  1. ;;4477
  1. ;;21,"65862-0374-05 ")
  1. ;;4478
  1. ;;21,"65862-0375-01 ")
  1. ;;4479
  1. ;;21,"65862-0375-05 ")
  1. ;;4480
  1. ;;21,"65862-0404-01 ")
  1. ;;4481
  1. ;;21,"65862-0404-60 ")
  1. ;;4482
  1. ;;21,"65862-0405-01 ")
  1. ;;4483
  1. ;;21,"65862-0405-60 ")
  1. ;;4484
  1. ;;21,"65862-0405-90 ")
  1. ;;4485
  1. ;;21,"65862-0406-01 ")
  1. ;;4486
  1. ;;21,"65862-0406-30 ")
  1. ;;4487
  1. ;;21,"65862-0406-90 ")
  1. ;;4488
  1. ;;21,"65862-0407-01 ")
  1. ;;4489
  1. ;;21,"65862-0407-30 ")
  1. ;;4490
  1. ;;21,"65862-0408-01 ")
  1. ;;4491
  1. ;;21,"65862-0408-20 ")
  1. ;;4492
  1. ;;21,"65862-0527-01 ")
  1. ;;4493
  1. ;;21,"65862-0527-30 ")
  1. ;;4494
  1. ;;21,"65862-0527-90 ")
  1. ;;4495
  1. ;;21,"65862-0527-99 ")
  1. ;;4496
  1. ;;21,"65862-0528-01 ")
  1. ;;4497
  1. ;;21,"65862-0528-30 ")
  1. ;;4498
  1. ;;21,"65862-0528-90 ")
  1. ;;4499
  1. ;;21,"65862-0528-99 ")
  1. ;;4500
  1. ;;21,"65862-0529-30 ")
  1. ;;4501
  1. ;;21,"65862-0529-90 ")
  1. ;;4502
  1. ;;21,"65862-0697-01 ")
  1. ;;4503
  1. ;;21,"65862-0697-05 ")
  1. ;;4504
  1. ;;21,"65862-0697-30 ")
  1. ;;4505
  1. ;;21,"65862-0697-90 ")
  1. ;;4506
  1. ;;21,"66105-0111-10 ")
  1. ;;4507
  1. ;;21,"66105-0112-01 ")
  1. ;;4508
  1. ;;21,"66105-0112-03 ")
  1. ;;4509
  1. ;;21,"66105-0112-06 ")
  1. ;;4510
  1. ;;21,"66105-0112-10 ")
  1. ;;4511
  1. ;;21,"66105-0112-15 ")
  1. ;;4512
  1. ;;21,"66105-0116-03 ")
  1. ;;4513
  1. ;;21,"66105-0117-03 ")
  1. ;;4514
  1. ;;21,"66105-0118-10 ")
  1. ;;4515
  1. ;;21,"66105-0480-01 ")
  1. ;;4516
  1. ;;21,"66105-0480-02 ")
  1. ;;4517
  1. ;;21,"66105-0480-03 ")
  1. ;;4518
  1. ;;21,"66105-0480-06 ")
  1. ;;4519
  1. ;;21,"66105-0480-15 ")
  1. ;;4520
  1. ;;21,"66105-0481-01 ")
  1. ;;4521
  1. ;;21,"66105-0481-02 ")
  1. ;;4522
  1. ;;21,"66105-0481-03 ")
  1. ;;4523
  1. ;;21,"66105-0481-06 ")
  1. ;;4524
  1. ;;21,"66105-0481-15 ")
  1. ;;4525
  1. ;;21,"66105-0550-03 ")
  1. ;;4526
  1. ;;21,"66105-0564-03 ")
  1. ;;4527
  1. ;;21,"66105-0969-03 ")
  1. ;;4528
  1. ;;21,"66105-0977-03 ")
  1. ;;4529
  1. ;;21,"66267-0018-60 ")
  1. ;;4530
  1. ;;21,"66267-0018-90 ")
  1. ;;4531
  1. ;;21,"66267-0019-90 ")
  1. ;;4532
  1. ;;21,"66267-0488-60 ")
  1. ;;4533
  1. ;;21,"66267-0488-90 ")
  1. ;;4534
  1. ;;21,"66267-0560-90 ")
  1. ;;4535
  1. ;;21,"66267-0576-30 ")
  1. ;;4536
  1. ;;21,"66267-0587-30 ")
  1. ;;4537
  1. ;;21,"66267-0680-30 ")
  1. ;;4538
  1. ;;21,"66336-0004-30 ")
  1. ;;4539
  1. ;;21,"66336-0004-60 ")
  1. ;;4540
  1. ;;21,"66336-0014-30 ")
  1. ;;4541
  1. ;;21,"66336-0014-60 ")
  1. ;;4542
  1. ;;21,"66336-0027-30 ")
  1. ;;4543
  1. ;;21,"66336-0027-60 ")
  1. ;;4544
  1. ;;21,"66336-0224-30 ")
  1. ;;4545
  1. ;;21,"66336-0271-30 ")
  1. ;;4546
  1. ;;21,"66336-0354-30 ")
  1. ;;4547
  1. ;;21,"66336-0354-60 ")
  1. ;;4548
  1. ;;21,"66336-0354-90 ")
  1. ;;4549
  1. ;;21,"66336-0553-30 ")
  1. ;;4550
  1. ;;21,"66336-0620-28 ")
  1. ;;4551
  1. ;;21,"66336-0620-30 ")
  1. ;;4552
  1. ;;21,"66336-0620-60 ")
  1. ;;4553
  1. ;;21,"66336-0621-60 ")
  1. ;;4554
  1. ;;21,"66336-0673-30 ")
  1. ;;4555
  1. ;;21,"66336-0673-50 ")
  1. ;;4556
  1. ;;21,"66336-0673-60 ")
  1. ;;4557
  1. ;;21,"66336-0757-60 ")
  1. ;;4558
  1. ;;21,"66336-0799-30 ")
  1. ;;4559
  1. ;;21,"66336-0838-14 ")
  1. ;;4560
  1. ;;21,"66336-0844-30 ")
  1. ;;4561
  1. ;;21,"66336-0897-30 ")
  1. ;;4562
  1. ;;21,"66336-0897-60 ")
  1. ;;4563
  1. ;;21,"66336-0973-60 ")
  1. ;;4564
  1. ;;21,"66336-0993-30 ")
  1. ;;4565
  1. ;;21,"66993-0075-60 ")
  1. ;;4566
  1. ;;21,"66993-0076-30 ")
  1. ;;4567
  1. ;;21,"66993-0077-30 ")
  1. ;;4568
  1. ;;21,"66993-0662-60 ")
  1. ;;4569
  1. ;;21,"66993-0663-05 ")
  1. ;;4570
  1. ;;21,"66993-0663-30 ")
  1. ;;4571
  1. ;;21,"66993-0664-05 ")
  1. ;;4572
  1. ;;21,"66993-0664-30 ")
  1. ;;4573
  1. ;;21,"66993-0709-30 ")
  1. ;;4574
  1. ;;21,"66993-0711-30 ")
  1. ;;4575
  1. ;;21,"66993-0712-30 ")
  1. ;;4576
  1. ;;21,"67046-0015-30 ")
  1. ;;4577
  1. ;;21,"67253-0700-06 ")
  1. ;;4578
  1. ;;21,"67544-0078-30 ")
  1. ;;4579
  1. ;;21,"67544-0080-15 ")
  1. ;;4580
  1. ;;21,"67544-0085-30 ")
  1. ;;4581
  1. ;;21,"67544-0085-60 ")
  1. ;;4582
  1. ;;21,"67544-0162-30 ")
  1. ;;4583
  1. ;;21,"67544-0169-15 ")
  1. ;;4584
  1. ;;21,"67544-0189-30 ")
  1. ;;4585
  1. ;;21,"67544-0190-30 ")
  1. ;;4586
  1. ;;21,"67544-0206-30 ")
  1. ;;4587
  1. ;;21,"67544-0253-30 ")
  1. ;;4588
  1. ;;21,"67544-0295-30 ")
  1. ;;4589
  1. ;;21,"67544-0298-15 ")
  1. ;;4590
  1. ;;21,"67544-0299-30 ")
  1. ;;4591
  1. ;;21,"67544-0316-15 ")
  1. ;;4592
  1. ;;21,"67544-0317-15 ")
  1. ;;4593
  1. ;;21,"67544-0331-30 ")
  1. ;;4594
  1. ;;21,"67544-0360-15 ")
  1. ;;4595
  1. ;;21,"67544-0365-15 ")
  1. ;;4596
  1. ;;21,"67544-0366-15 ")
  1. ;;4597
  1. ;;21,"67544-0409-15 ")
  1. ;;4598
  1. ;;21,"67544-0429-15 ")
  1. ;;4599
  1. ;;21,"67544-0430-15 ")
  1. ;;4600
  1. ;;21,"67544-0434-15 ")
  1. ;;4601
  1. ;;21,"67544-0455-15 ")
  1. ;;4602
  1. ;;21,"67544-0464-82 ")
  1. ;;4603
  1. ;;21,"67544-0499-82 ")
  1. ;;4604
  1. ;;21,"67544-0500-15 ")
  1. ;;4605
  1. ;;21,"67544-0528-30 ")
  1. ;;4606
  1. ;;21,"67544-0547-30 ")
  1. ;;4607
  1. ;;21,"67544-0848-30 ")
  1. ;;4608
  1. ;;21,"67544-0906-15 ")
  1. ;;4609
  1. ;;21,"67544-0906-73 ")
  1. ;;4610
  1. ;;21,"67544-0908-15 ")
  1. ;;4611
  1. ;;21,"67767-0117-60 ")
  1. ;;4612
  1. ;;21,"67767-0133-05 ")
  1. ;;4613
  1. ;;21,"67767-0133-25 ")
  1. ;;4614
  1. ;;21,"67767-0133-60 ")
  1. ;;4615
  1. ;;21,"67767-0135-60 ")
  1. ;;4616
  1. ;;21,"67767-0141-30 ")
  1. ;;4617
  1. ;;21,"67767-0141-90 ")
  1. ;;4618
  1. ;;21,"67767-0142-05 ")
  1. ;;4619
  1. ;;21,"67767-0142-30 ")
  1. ;;4620
  1. ;;21,"67767-0142-90 ")
  1. ;;4621
  1. ;;21,"67767-0171-60 ")
  1. ;;4622
  1. ;;21,"67801-0204-10 ")
  1. ;;4623
  1. ;;21,"67801-0205-10 ")
  1. ;;4624
  1. ;;21,"67801-0310-30 ")
  1. ;;4625
  1. ;;21,"67801-0312-03 ")
  1. ;;4626
  1. ;;21,"67801-0321-03 ")
  1. ;;4627
  1. ;;21,"67801-0409-30 ")
  1. ;;4628
  1. ;;21,"67801-0411-03 ")
  1. ;;4629
  1. ;;21,"67801-0433-30 ")
  1. ;;4630
  1. ;;21,"68001-0129-00 ")
  1. ;;4631
  1. ;;21,"68001-0129-03 ")
  1. ;;4632
  1. ;;21,"68001-0129-04 ")
  1. ;;4633
  1. ;;21,"68001-0156-00 ")
  1. ;;4634
  1. ;;21,"68001-0157-00 ")
  1. ;;4635
  1. ;;21,"68001-0158-00 ")
  1. ;;4636
  1. ;;21,"68001-0159-00 ")
  1. ;;4637
  1. ;;21,"68001-0160-00 ")
  1. ;;4638
  1. ;;21,"68001-0195-00 ")
  1. ;;4639
  1. ;;21,"68001-0196-00 ")
  1. ;;4640
  1. ;;21,"68001-0196-03 ")
  1. ;;4641
  1. ;;21,"68001-0197-00 ")
  1. ;;4642
  1. ;;21,"68001-0197-03 ")
  1. ;;4643
  1. ;;21,"68001-0198-00 ")
  1. ;;4644
  1. ;;21,"68001-0199-00 ")
  1. ;;4645
  1. ;;21,"68001-0255-06 ")
  1. ;;4646
  1. ;;21,"68001-0256-04 ")
  1. ;;4647
  1. ;;21,"68001-0256-05 ")
  1. ;;4648
  1. ;;21,"68001-0257-04 ")
  1. ;;4649
  1. ;;21,"68001-0261-04 ")
  1. ;;4650
  1. ;;21,"68001-0264-03 ")
  1. ;;4651
  1. ;;21,"68001-0264-04 ")
  1. ;;4652
  1. ;;21,"68001-0264-05 ")
  1. ;;4653
  1. ;;21,"68071-0222-30 ")
  1. ;;4654
  1. ;;21,"68071-0231-90 ")
  1. ;;4655
  1. ;;21,"68071-0322-30 ")
  1. ;;4656
  1. ;;21,"68071-0322-40 ")
  1. ;;4657
  1. ;;21,"68071-0322-90 ")
  1. ;;4658
  1. ;;21,"68071-0333-30 ")
  1. ;;4659
  1. ;;21,"68071-0412-15 ")
  1. ;;4660
  1. ;;21,"68071-0412-30 ")
  1. ;;4661
  1. ;;21,"68071-0412-60 ")
  1. ;;4662
  1. ;;21,"68071-0444-15 ")
  1. ;;4663
  1. ;;21,"68071-0444-60 ")
  1. ;;4664
  1. ;;21,"68071-0445-15 ")
  1. ;;4665
  1. ;;21,"68071-0445-60 ")
  1. ;;4666
  1. ;;21,"68071-1312-00 ")
  1. ;;4667
  1. ;;21,"68071-1313-00 ")
  1. ;;4668
  1. ;;21,"68084-0031-01 ")
  1. ;;4669
  1. ;;21,"68084-0031-11 ")
  1. ;;4670
  1. ;;21,"68084-0032-01 ")
  1. ;;4671
  1. ;;21,"68084-0032-11 ")
  1. ;;4672
  1. ;;21,"68084-0044-01 ")
  1. ;;4673
  1. ;;21,"68084-0044-11 ")
  1. ;;4674
  1. ;;21,"68084-0044-85 ")
  1. ;;4675
  1. ;;21,"68084-0045-01 ")
  1. ;;4676
  1. ;;21,"68084-0045-11 ")
  1. ;;4677
  1. ;;21,"68084-0045-85 ")
  1. ;;4678
  1. ;;21,"68084-0046-01 ")
  1. ;;4679
  1. ;;21,"68084-0046-11 ")
  1. ;;4680
  1. ;;21,"68084-0046-85 ")
  1. ;;4681
  1. ;;21,"68084-0047-01 ")
  1. ;;4682
  1. ;;21,"68084-0047-11 ")
  1. ;;4683
  1. ;;21,"68084-0047-85 ")
  1. ;;4684
  1. ;;21,"68084-0066-01 ")
  1. ;;4685
  1. ;;21,"68084-0101-01 ")
  1. ;;4686