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

BGP82I14.m

Go to the documentation of this file.
  1. BGP82I14 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"68180-0515-09 ")
  1. ;;4354
  1. ;;21,"68180-0516-01 ")
  1. ;;4355
  1. ;;21,"68180-0516-02 ")
  1. ;;4356
  1. ;;21,"68180-0516-09 ")
  1. ;;4357
  1. ;;21,"68180-0517-01 ")
  1. ;;4358
  1. ;;21,"68180-0517-03 ")
  1. ;;4359
  1. ;;21,"68180-0517-09 ")
  1. ;;4360
  1. ;;21,"68180-0518-01 ")
  1. ;;4361
  1. ;;21,"68180-0518-02 ")
  1. ;;4362
  1. ;;21,"68180-0518-30 ")
  1. ;;4363
  1. ;;21,"68180-0519-01 ")
  1. ;;4364
  1. ;;21,"68180-0519-02 ")
  1. ;;4365
  1. ;;21,"68180-0519-30 ")
  1. ;;4366
  1. ;;21,"68180-0520-01 ")
  1. ;;4367
  1. ;;21,"68180-0520-02 ")
  1. ;;4368
  1. ;;21,"68180-0520-30 ")
  1. ;;4369
  1. ;;21,"68180-0554-09 ")
  1. ;;4370
  1. ;;21,"68180-0556-09 ")
  1. ;;4371
  1. ;;21,"68180-0557-09 ")
  1. ;;4372
  1. ;;21,"68180-0558-09 ")
  1. ;;4373
  1. ;;21,"68180-0559-09 ")
  1. ;;4374
  1. ;;21,"68180-0566-01 ")
  1. ;;4375
  1. ;;21,"68180-0567-01 ")
  1. ;;4376
  1. ;;21,"68180-0568-01 ")
  1. ;;4377
  1. ;;21,"68180-0588-01 ")
  1. ;;4378
  1. ;;21,"68180-0589-01 ")
  1. ;;4379
  1. ;;21,"68180-0589-02 ")
  1. ;;4380
  1. ;;21,"68180-0589-09 ")
  1. ;;4381
  1. ;;21,"68180-0590-01 ")
  1. ;;4382
  1. ;;21,"68180-0590-02 ")
  1. ;;4383
  1. ;;21,"68180-0590-09 ")
  1. ;;4384
  1. ;;21,"68180-0591-01 ")
  1. ;;4385
  1. ;;21,"68180-0591-02 ")
  1. ;;4386
  1. ;;21,"68180-0591-09 ")
  1. ;;4387
  1. ;;21,"68180-0724-06 ")
  1. ;;4388
  1. ;;21,"68180-0725-06 ")
  1. ;;4389
  1. ;;21,"68180-0725-09 ")
  1. ;;4390
  1. ;;21,"68180-0726-06 ")
  1. ;;4391
  1. ;;21,"68180-0726-09 ")
  1. ;;4392
  1. ;;21,"68180-0755-01 ")
  1. ;;4393
  1. ;;21,"68180-0756-01 ")
  1. ;;4394
  1. ;;21,"68180-0756-02 ")
  1. ;;4395
  1. ;;21,"68180-0757-01 ")
  1. ;;4396
  1. ;;21,"68180-0757-02 ")
  1. ;;4397
  1. ;;21,"68180-0758-01 ")
  1. ;;4398
  1. ;;21,"68180-0758-02 ")
  1. ;;4399
  1. ;;21,"68180-0759-01 ")
  1. ;;4400
  1. ;;21,"68180-0760-01 ")
  1. ;;4401
  1. ;;21,"68180-0764-06 ")
  1. ;;4402
  1. ;;21,"68180-0765-06 ")
  1. ;;4403
  1. ;;21,"68180-0766-06 ")
  1. ;;4404
  1. ;;21,"68180-0767-06 ")
  1. ;;4405
  1. ;;21,"68180-0771-06 ")
  1. ;;4406
  1. ;;21,"68180-0771-09 ")
  1. ;;4407
  1. ;;21,"68180-0772-06 ")
  1. ;;4408
  1. ;;21,"68180-0772-09 ")
  1. ;;4409
  1. ;;21,"68180-0773-06 ")
  1. ;;4410
  1. ;;21,"68180-0773-09 ")
  1. ;;4411
  1. ;;21,"68180-0774-06 ")
  1. ;;4412
  1. ;;21,"68180-0774-09 ")
  1. ;;4413
  1. ;;21,"68180-0775-06 ")
  1. ;;4414
  1. ;;21,"68180-0775-09 ")
  1. ;;4415
  1. ;;21,"68180-0980-01 ")
  1. ;;4416
  1. ;;21,"68180-0980-03 ")
  1. ;;4417
  1. ;;21,"68180-0980-30 ")
  1. ;;4418
  1. ;;21,"68180-0981-01 ")
  1. ;;4419
  1. ;;21,"68180-0981-03 ")
  1. ;;4420
  1. ;;21,"68180-0982-01 ")
  1. ;;4421
  1. ;;21,"68180-0982-02 ")
  1. ;;4422
  1. ;;21,"68258-6023-09 ")
  1. ;;4423
  1. ;;21,"68258-6031-09 ")
  1. ;;4424
  1. ;;21,"68258-6036-03 ")
  1. ;;4425
  1. ;;21,"68258-6036-09 ")
  1. ;;4426
  1. ;;21,"68258-6040-03 ")
  1. ;;4427
  1. ;;21,"68258-6040-09 ")
  1. ;;4428
  1. ;;21,"68258-6053-03 ")
  1. ;;4429
  1. ;;21,"68258-6056-03 ")
  1. ;;4430
  1. ;;21,"68258-6095-03 ")
  1. ;;4431
  1. ;;21,"68258-6095-09 ")
  1. ;;4432
  1. ;;21,"68258-6096-03 ")
  1. ;;4433
  1. ;;21,"68258-6096-09 ")
  1. ;;4434
  1. ;;21,"68258-6100-03 ")
  1. ;;4435
  1. ;;21,"68258-6106-03 ")
  1. ;;4436
  1. ;;21,"68258-6969-09 ")
  1. ;;4437
  1. ;;21,"68258-6973-03 ")
  1. ;;4438
  1. ;;21,"68382-0135-01 ")
  1. ;;4439
  1. ;;21,"68382-0135-06 ")
  1. ;;4440
  1. ;;21,"68382-0135-10 ")
  1. ;;4441
  1. ;;21,"68382-0135-16 ")
  1. ;;4442
  1. ;;21,"68382-0136-01 ")
  1. ;;4443
  1. ;;21,"68382-0136-06 ")
  1. ;;4444
  1. ;;21,"68382-0136-10 ")
  1. ;;4445
  1. ;;21,"68382-0136-16 ")
  1. ;;4446
  1. ;;21,"68382-0137-01 ")
  1. ;;4447
  1. ;;21,"68382-0137-06 ")
  1. ;;4448
  1. ;;21,"68382-0137-10 ")
  1. ;;4449
  1. ;;21,"68382-0137-16 ")
  1. ;;4450
  1. ;;21,"68382-0142-06 ")
  1. ;;4451
  1. ;;21,"68382-0142-10 ")
  1. ;;4452
  1. ;;21,"68382-0142-16 ")
  1. ;;4453
  1. ;;21,"68382-0143-06 ")
  1. ;;4454
  1. ;;21,"68382-0143-10 ")
  1. ;;4455
  1. ;;21,"68382-0143-16 ")
  1. ;;4456
  1. ;;21,"68382-0144-01 ")
  1. ;;4457
  1. ;;21,"68382-0144-05 ")
  1. ;;4458
  1. ;;21,"68382-0144-06 ")
  1. ;;4459
  1. ;;21,"68382-0145-01 ")
  1. ;;4460
  1. ;;21,"68382-0145-05 ")
  1. ;;4461
  1. ;;21,"68382-0145-06 ")
  1. ;;4462
  1. ;;21,"68382-0146-01 ")
  1. ;;4463
  1. ;;21,"68382-0146-05 ")
  1. ;;4464
  1. ;;21,"68382-0146-06 ")
  1. ;;4465
  1. ;;21,"68382-0147-01 ")
  1. ;;4466
  1. ;;21,"68382-0147-05 ")
  1. ;;4467
  1. ;;21,"68382-0147-06 ")
  1. ;;4468
  1. ;;21,"68382-0471-30 ")
  1. ;;4469
  1. ;;21,"68382-0471-78 ")
  1. ;;4470
  1. ;;21,"68382-0472-30 ")
  1. ;;4471
  1. ;;21,"68382-0472-78 ")
  1. ;;4472
  1. ;;21,"68382-0473-30 ")
  1. ;;4473
  1. ;;21,"68382-0473-78 ")
  1. ;;4474
  1. ;;21,"68382-0643-06 ")
  1. ;;4475
  1. ;;21,"68382-0644-06 ")
  1. ;;4476
  1. ;;21,"68382-0644-16 ")
  1. ;;4477
  1. ;;21,"68382-0645-06 ")
  1. ;;4478
  1. ;;21,"68382-0645-16 ")
  1. ;;4479
  1. ;;21,"68462-0199-11 ")
  1. ;;4480
  1. ;;21,"68462-0199-13 ")
  1. ;;4481
  1. ;;21,"68462-0200-11 ")
  1. ;;4482
  1. ;;21,"68462-0200-13 ")
  1. ;;4483
  1. ;;21,"68462-0201-11 ")
  1. ;;4484
  1. ;;21,"68462-0201-13 ")
  1. ;;4485
  1. ;;21,"68462-0205-01 ")
  1. ;;4486
  1. ;;21,"68462-0206-01 ")
  1. ;;4487
  1. ;;21,"68462-0207-01 ")
  1. ;;4488
  1. ;;21,"68462-0208-01 ")
  1. ;;4489
  1. ;;21,"68462-0209-01 ")
  1. ;;4490
  1. ;;21,"68462-0294-01 ")
  1. ;;4491
  1. ;;21,"68462-0295-01 ")
  1. ;;4492
  1. ;;21,"68462-0296-01 ")
  1. ;;4493
  1. ;;21,"68462-0329-01 ")
  1. ;;4494
  1. ;;21,"68462-0368-10 ")
  1. ;;4495
  1. ;;21,"68462-0436-30 ")
  1. ;;4496
  1. ;;21,"68462-0437-30 ")
  1. ;;4497
  1. ;;21,"68462-0437-90 ")
  1. ;;4498
  1. ;;21,"68462-0438-30 ")
  1. ;;4499
  1. ;;21,"68462-0438-90 ")
  1. ;;4500
  1. ;;21,"68462-0554-01 ")
  1. ;;4501
  1. ;;21,"68462-0555-01 ")
  1. ;;4502
  1. ;;21,"68645-0160-59 ")
  1. ;;4503
  1. ;;21,"68645-0161-59 ")
  1. ;;4504
  1. ;;21,"68645-0162-59 ")
  1. ;;4505
  1. ;;21,"68645-0163-59 ")
  1. ;;4506
  1. ;;21,"68645-0272-54 ")
  1. ;;4507
  1. ;;21,"68645-0404-70 ")
  1. ;;4508
  1. ;;21,"68645-0405-70 ")
  1. ;;4509
  1. ;;21,"68645-0406-70 ")
  1. ;;4510
  1. ;;21,"68645-0407-54 ")
  1. ;;4511
  1. ;;21,"68645-0407-70 ")
  1. ;;4512
  1. ;;21,"68645-0408-70 ")
  1. ;;4513
  1. ;;21,"68645-0409-54 ")
  1. ;;4514
  1. ;;21,"68645-0409-70 ")
  1. ;;4515
  1. ;;21,"68645-0410-70 ")
  1. ;;4516
  1. ;;21,"68645-0411-54 ")
  1. ;;4517
  1. ;;21,"68645-0411-70 ")
  1. ;;4518
  1. ;;21,"68645-0454-90 ")
  1. ;;4519
  1. ;;21,"68645-0455-90 ")
  1. ;;4520
  1. ;;21,"68645-0456-90 ")
  1. ;;4521
  1. ;;21,"68645-0457-90 ")
  1. ;;4522
  1. ;;21,"68645-0469-54 ")
  1. ;;4523
  1. ;;21,"68645-0486-54 ")
  1. ;;4524
  1. ;;21,"68645-0494-54 ")
  1. ;;4525
  1. ;;21,"68645-0524-70 ")
  1. ;;4526
  1. ;;21,"68645-0525-70 ")
  1. ;;4527
  1. ;;21,"68645-0526-70 ")
  1. ;;4528
  1. ;;21,"68645-0532-54 ")
  1. ;;4529
  1. ;;21,"68645-0550-54 ")
  1. ;;4530
  1. ;;21,"68645-0551-54 ")
  1. ;;4531
  1. ;;21,"68645-0552-54 ")
  1. ;;4532
  1. ;;21,"68645-0553-54 ")
  1. ;;4533
  1. ;;21,"68645-0554-54 ")
  1. ;;4534
  1. ;;21,"68645-0555-54 ")
  1. ;;4535
  1. ;;21,"68645-0556-54 ")
  1. ;;4536
  1. ;;21,"68645-0557-54 ")
  1. ;;4537
  1. ;;21,"68645-0558-54 ")
  1. ;;4538
  1. ;;21,"68682-0146-01 ")
  1. ;;4539
  1. ;;21,"68682-0710-01 ")
  1. ;;4540
  1. ;;21,"68682-0710-10 ")
  1. ;;4541
  1. ;;21,"68682-0710-30 ")
  1. ;;4542
  1. ;;21,"68682-0710-90 ")
  1. ;;4543
  1. ;;21,"68682-0711-01 ")
  1. ;;4544
  1. ;;21,"68682-0711-10 ")
  1. ;;4545
  1. ;;21,"68682-0711-30 ")
  1. ;;4546
  1. ;;21,"68682-0711-90 ")
  1. ;;4547
  1. ;;21,"68682-0712-01 ")
  1. ;;4548
  1. ;;21,"68682-0712-10 ")
  1. ;;4549
  1. ;;21,"68682-0712-30 ")
  1. ;;4550
  1. ;;21,"68682-0712-90 ")
  1. ;;4551
  1. ;;21,"68682-0713-01 ")
  1. ;;4552
  1. ;;21,"68682-0713-10 ")
  1. ;;4553
  1. ;;21,"68682-0713-30 ")
  1. ;;4554
  1. ;;21,"68682-0713-90 ")
  1. ;;4555
  1. ;;21,"68788-0048-03 ")
  1. ;;4556
  1. ;;21,"68788-6329-01 ")
  1. ;;4557
  1. ;;21,"68788-6329-03 ")
  1. ;;4558
  1. ;;21,"68788-6329-06 ")
  1. ;;4559
  1. ;;21,"68788-6329-09 ")
  1. ;;4560
  1. ;;21,"68788-6333-01 ")
  1. ;;4561
  1. ;;21,"68788-6333-03 ")
  1. ;;4562
  1. ;;21,"68788-6333-06 ")
  1. ;;4563
  1. ;;21,"68788-6333-09 ")
  1. ;;4564
  1. ;;21,"68788-6361-01 ")
  1. ;;4565
  1. ;;21,"68788-6361-03 ")
  1. ;;4566
  1. ;;21,"68788-6361-06 ")
  1. ;;4567
  1. ;;21,"68788-6361-08 ")
  1. ;;4568
  1. ;;21,"68788-6361-09 ")
  1. ;;4569
  1. ;;21,"68788-6364-01 ")
  1. ;;4570
  1. ;;21,"68788-6364-03 ")
  1. ;;4571
  1. ;;21,"68788-6364-06 ")
  1. ;;4572
  1. ;;21,"68788-6364-09 ")
  1. ;;4573
  1. ;;21,"68788-6371-01 ")
  1. ;;4574
  1. ;;21,"68788-6371-03 ")
  1. ;;4575
  1. ;;21,"68788-6371-06 ")
  1. ;;4576
  1. ;;21,"68788-6371-09 ")
  1. ;;4577
  1. ;;21,"68788-6373-01 ")
  1. ;;4578
  1. ;;21,"68788-6373-03 ")
  1. ;;4579
  1. ;;21,"68788-6373-06 ")
  1. ;;4580
  1. ;;21,"68788-6373-09 ")
  1. ;;4581
  1. ;;21,"68788-6405-01 ")
  1. ;;4582
  1. ;;21,"68788-6405-03 ")
  1. ;;4583
  1. ;;21,"68788-6405-06 ")
  1. ;;4584
  1. ;;21,"68788-6405-09 ")
  1. ;;4585
  1. ;;21,"68788-6407-01 ")
  1. ;;4586
  1. ;;21,"68788-6407-03 ")
  1. ;;4587
  1. ;;21,"68788-6407-06 ")
  1. ;;4588
  1. ;;21,"68788-6407-09 ")
  1. ;;4589
  1. ;;21,"68788-6418-01 ")
  1. ;;4590
  1. ;;21,"68788-6418-03 ")
  1. ;;4591
  1. ;;21,"68788-6418-06 ")
  1. ;;4592
  1. ;;21,"68788-6418-09 ")
  1. ;;4593
  1. ;;21,"68788-6445-01 ")
  1. ;;4594
  1. ;;21,"68788-6445-03 ")
  1. ;;4595
  1. ;;21,"68788-6445-06 ")
  1. ;;4596
  1. ;;21,"68788-6445-09 ")
  1. ;;4597
  1. ;;21,"68788-6452-01 ")
  1. ;;4598
  1. ;;21,"68788-6452-03 ")
  1. ;;4599
  1. ;;21,"68788-6452-06 ")
  1. ;;4600
  1. ;;21,"68788-6452-09 ")
  1. ;;4601
  1. ;;21,"68788-6462-01 ")
  1. ;;4602
  1. ;;21,"68788-6462-03 ")
  1. ;;4603
  1. ;;21,"68788-6462-06 ")
  1. ;;4604
  1. ;;21,"68788-6462-09 ")
  1. ;;4605
  1. ;;21,"68788-6782-01 ")
  1. ;;4606
  1. ;;21,"68788-6782-03 ")
  1. ;;4607
  1. ;;21,"68788-6782-06 ")
  1. ;;4608
  1. ;;21,"68788-6782-09 ")
  1. ;;4609
  1. ;;21,"68788-6788-01 ")
  1. ;;4610
  1. ;;21,"68788-6788-03 ")
  1. ;;4611
  1. ;;21,"68788-6788-05 ")
  1. ;;4612
  1. ;;21,"68788-6788-06 ")
  1. ;;4613
  1. ;;21,"68788-6788-09 ")
  1. ;;4614
  1. ;;21,"68788-6793-01 ")
  1. ;;4615
  1. ;;21,"68788-6793-02 ")
  1. ;;4616
  1. ;;21,"68788-6793-03 ")
  1. ;;4617
  1. ;;21,"68788-6793-06 ")
  1. ;;4618
  1. ;;21,"68788-6793-08 ")
  1. ;;4619
  1. ;;21,"68788-6793-09 ")
  1. ;;4620
  1. ;;21,"68788-6804-01 ")
  1. ;;4621
  1. ;;21,"68788-6804-02 ")
  1. ;;4622
  1. ;;21,"68788-6804-03 ")
  1. ;;4623
  1. ;;21,"68788-6804-06 ")
  1. ;;4624
  1. ;;21,"68788-6804-09 ")
  1. ;;4625
  1. ;;21,"68788-6811-01 ")
  1. ;;4626
  1. ;;21,"68788-6811-03 ")
  1. ;;4627
  1. ;;21,"68788-6811-06 ")
  1. ;;4628
  1. ;;21,"68788-6811-09 ")
  1. ;;4629
  1. ;;21,"68788-6812-01 ")
  1. ;;4630
  1. ;;21,"68788-6812-03 ")
  1. ;;4631
  1. ;;21,"68788-6812-06 ")
  1. ;;4632
  1. ;;21,"68788-6812-09 ")
  1. ;;4633
  1. ;;21,"68788-6813-01 ")
  1. ;;4634
  1. ;;21,"68788-6813-02 ")
  1. ;;4635
  1. ;;21,"68788-6813-03 ")
  1. ;;4636
  1. ;;21,"68788-6813-06 ")
  1. ;;4637
  1. ;;21,"68788-6813-08 ")
  1. ;;4638
  1. ;;21,"68788-6813-09 ")
  1. ;;4639
  1. ;;21,"68788-6814-01 ")
  1. ;;4640
  1. ;;21,"68788-6814-02 ")
  1. ;;4641
  1. ;;21,"68788-6814-03 ")
  1. ;;4642
  1. ;;21,"68788-6814-06 ")
  1. ;;4643
  1. ;;21,"68788-6814-08 ")
  1. ;;4644
  1. ;;21,"68788-6814-09 ")
  1. ;;4645
  1. ;;21,"68788-6820-01 ")
  1. ;;4646
  1. ;;21,"68788-6820-03 ")
  1. ;;4647
  1. ;;21,"68788-6820-06 ")
  1. ;;4648
  1. ;;21,"68788-6820-09 ")
  1. ;;4649
  1. ;;21,"68788-6957-01 ")
  1. ;;4650
  1. ;;21,"68788-6957-03 ")
  1. ;;4651
  1. ;;21,"68788-6957-06 ")
  1. ;;4652
  1. ;;21,"68788-6957-08 ")
  1. ;;4653
  1. ;;21,"68788-6957-09 ")
  1. ;;4654
  1. ;;21,"68788-7365-03 ")
  1. ;;4655
  1. ;;21,"68788-7386-01 ")
  1. ;;4656
  1. ;;21,"68788-7386-03 ")
  1. ;;4657
  1. ;;21,"68788-7386-06 ")
  1. ;;4658
  1. ;;21,"68788-7386-09 ")
  1. ;;4659
  1. ;;21,"68788-7389-01 ")
  1. ;;4660
  1. ;;21,"68788-7389-03 ")
  1. ;;4661
  1. ;;21,"68788-7389-06 ")
  1. ;;4662
  1. ;;21,"68788-7389-09 ")
  1. ;;4663
  1. ;;21,"68788-8912-01 ")
  1. ;;4664
  1. ;;21,"68788-8912-03 ")
  1. ;;4665
  1. ;;21,"68788-8912-06 ")
  1. ;;4666
  1. ;;21,"68788-8912-09 ")
  1. ;;4667
  1. ;;21,"68788-8914-01 ")
  1. ;;4668
  1. ;;21,"68788-8914-03 ")
  1. ;;4669
  1. ;;21,"68788-8914-06 ")
  1. ;;4670
  1. ;;21,"68788-8914-09 ")
  1. ;;4671
  1. ;;21,"68788-8943-01 ")
  1. ;;4672
  1. ;;21,"68788-8943-03 ")
  1. ;;4673
  1. ;;21,"68788-8943-06 ")
  1. ;;4674
  1. ;;21,"68788-8943-09 ")
  1. ;;4675
  1. ;;21,"68788-8944-01 ")
  1. ;;4676
  1. ;;21,"68788-8944-03 ")
  1. ;;4677
  1. ;;21,"68788-8944-06 ")
  1. ;;4678
  1. ;;21,"68788-8944-09 ")
  1. ;;4679
  1. ;;21,"68788-8968-01 ")
  1. ;;4680
  1. ;;21,"68788-8968-03 ")
  1. ;;4681
  1. ;;21,"68788-8968-06 ")
  1. ;;4682
  1. ;;21,"68788-8968-08 ")
  1. ;;4683
  1. ;;21,"68788-8968-09 ")
  1. ;;4684
  1. ;;21,"68788-9050-03 ")
  1. ;;4685
  1. ;;21,"68788-9051-09 ")
  1. ;;4686