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

BGP82Z14.m

Go to the documentation of this file.
  1. BGP82Z14 ; 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,"63187-0063-60 ")
  1. ;;4354
  1. ;;21,"63187-0063-72 ")
  1. ;;4355
  1. ;;21,"63187-0063-78 ")
  1. ;;4356
  1. ;;21,"63187-0063-90 ")
  1. ;;4357
  1. ;;21,"63187-0112-30 ")
  1. ;;4358
  1. ;;21,"63187-0112-60 ")
  1. ;;4359
  1. ;;21,"63187-0120-60 ")
  1. ;;4360
  1. ;;21,"63187-0375-15 ")
  1. ;;4361
  1. ;;21,"63187-0375-20 ")
  1. ;;4362
  1. ;;21,"63187-0375-30 ")
  1. ;;4363
  1. ;;21,"63187-0375-60 ")
  1. ;;4364
  1. ;;21,"63187-0615-30 ")
  1. ;;4365
  1. ;;21,"63187-0615-60 ")
  1. ;;4366
  1. ;;21,"63187-0658-30 ")
  1. ;;4367
  1. ;;21,"63187-0658-60 ")
  1. ;;4368
  1. ;;21,"63187-0705-00 ")
  1. ;;4369
  1. ;;21,"63187-0705-60 ")
  1. ;;4370
  1. ;;21,"63187-0719-30 ")
  1. ;;4371
  1. ;;21,"63187-0778-15 ")
  1. ;;4372
  1. ;;21,"63187-0778-30 ")
  1. ;;4373
  1. ;;21,"63187-0778-60 ")
  1. ;;4374
  1. ;;21,"63187-0778-90 ")
  1. ;;4375
  1. ;;21,"63187-0815-20 ")
  1. ;;4376
  1. ;;21,"63187-0815-30 ")
  1. ;;4377
  1. ;;21,"63187-0823-60 ")
  1. ;;4378
  1. ;;21,"63187-0824-30 ")
  1. ;;4379
  1. ;;21,"63187-0824-90 ")
  1. ;;4380
  1. ;;21,"63187-0838-60 ")
  1. ;;4381
  1. ;;21,"63187-0838-90 ")
  1. ;;4382
  1. ;;21,"63304-0450-01 ")
  1. ;;4383
  1. ;;21,"63304-0451-01 ")
  1. ;;4384
  1. ;;21,"63304-0452-01 ")
  1. ;;4385
  1. ;;21,"63304-0453-01 ")
  1. ;;4386
  1. ;;21,"63304-0561-01 ")
  1. ;;4387
  1. ;;21,"63304-0683-01 ")
  1. ;;4388
  1. ;;21,"63304-0684-01 ")
  1. ;;4389
  1. ;;21,"63304-0758-01 ")
  1. ;;4390
  1. ;;21,"63459-0502-01 ")
  1. ;;4391
  1. ;;21,"63459-0502-30 ")
  1. ;;4392
  1. ;;21,"63459-0504-01 ")
  1. ;;4393
  1. ;;21,"63459-0504-30 ")
  1. ;;4394
  1. ;;21,"63459-0506-01 ")
  1. ;;4395
  1. ;;21,"63459-0506-30 ")
  1. ;;4396
  1. ;;21,"63459-0508-01 ")
  1. ;;4397
  1. ;;21,"63459-0508-30 ")
  1. ;;4398
  1. ;;21,"63459-0512-01 ")
  1. ;;4399
  1. ;;21,"63459-0512-30 ")
  1. ;;4400
  1. ;;21,"63459-0516-01 ")
  1. ;;4401
  1. ;;21,"63459-0516-30 ")
  1. ;;4402
  1. ;;21,"63459-0541-04 ")
  1. ;;4403
  1. ;;21,"63459-0541-28 ")
  1. ;;4404
  1. ;;21,"63459-0542-04 ")
  1. ;;4405
  1. ;;21,"63459-0542-28 ")
  1. ;;4406
  1. ;;21,"63459-0544-04 ")
  1. ;;4407
  1. ;;21,"63459-0544-28 ")
  1. ;;4408
  1. ;;21,"63459-0546-04 ")
  1. ;;4409
  1. ;;21,"63459-0546-28 ")
  1. ;;4410
  1. ;;21,"63459-0548-04 ")
  1. ;;4411
  1. ;;21,"63459-0548-28 ")
  1. ;;4412
  1. ;;21,"63481-0161-01 ")
  1. ;;4413
  1. ;;21,"63481-0161-60 ")
  1. ;;4414
  1. ;;21,"63481-0207-01 ")
  1. ;;4415
  1. ;;21,"63481-0207-60 ")
  1. ;;4416
  1. ;;21,"63481-0348-01 ")
  1. ;;4417
  1. ;;21,"63481-0348-60 ")
  1. ;;4418
  1. ;;21,"63481-0519-01 ")
  1. ;;4419
  1. ;;21,"63481-0519-60 ")
  1. ;;4420
  1. ;;21,"63481-0612-70 ")
  1. ;;4421
  1. ;;21,"63481-0613-70 ")
  1. ;;4422
  1. ;;21,"63481-0623-70 ")
  1. ;;4423
  1. ;;21,"63481-0623-85 ")
  1. ;;4424
  1. ;;21,"63481-0627-70 ")
  1. ;;4425
  1. ;;21,"63481-0628-70 ")
  1. ;;4426
  1. ;;21,"63481-0629-70 ")
  1. ;;4427
  1. ;;21,"63481-0685-01 ")
  1. ;;4428
  1. ;;21,"63481-0685-60 ")
  1. ;;4429
  1. ;;21,"63481-0812-20 ")
  1. ;;4430
  1. ;;21,"63481-0812-60 ")
  1. ;;4431
  1. ;;21,"63481-0813-20 ")
  1. ;;4432
  1. ;;21,"63481-0813-60 ")
  1. ;;4433
  1. ;;21,"63481-0814-20 ")
  1. ;;4434
  1. ;;21,"63481-0814-60 ")
  1. ;;4435
  1. ;;21,"63481-0815-20 ")
  1. ;;4436
  1. ;;21,"63481-0815-60 ")
  1. ;;4437
  1. ;;21,"63481-0816-20 ")
  1. ;;4438
  1. ;;21,"63481-0816-60 ")
  1. ;;4439
  1. ;;21,"63481-0817-20 ")
  1. ;;4440
  1. ;;21,"63481-0817-60 ")
  1. ;;4441
  1. ;;21,"63481-0818-20 ")
  1. ;;4442
  1. ;;21,"63481-0818-60 ")
  1. ;;4443
  1. ;;21,"63481-0820-01 ")
  1. ;;4444
  1. ;;21,"63481-0820-60 ")
  1. ;;4445
  1. ;;21,"63481-0952-01 ")
  1. ;;4446
  1. ;;21,"63481-0952-60 ")
  1. ;;4447
  1. ;;21,"63629-1494-00 ")
  1. ;;4448
  1. ;;21,"63629-1494-01 ")
  1. ;;4449
  1. ;;21,"63629-1494-02 ")
  1. ;;4450
  1. ;;21,"63629-1494-03 ")
  1. ;;4451
  1. ;;21,"63629-1494-04 ")
  1. ;;4452
  1. ;;21,"63629-1494-05 ")
  1. ;;4453
  1. ;;21,"63629-1494-06 ")
  1. ;;4454
  1. ;;21,"63629-1494-07 ")
  1. ;;4455
  1. ;;21,"63629-1494-08 ")
  1. ;;4456
  1. ;;21,"63629-1494-09 ")
  1. ;;4457
  1. ;;21,"63629-1494-10 ")
  1. ;;4458
  1. ;;21,"63629-1607-01 ")
  1. ;;4459
  1. ;;21,"63629-1607-02 ")
  1. ;;4460
  1. ;;21,"63629-1607-03 ")
  1. ;;4461
  1. ;;21,"63629-2868-00 ")
  1. ;;4462
  1. ;;21,"63629-2868-01 ")
  1. ;;4463
  1. ;;21,"63629-2868-02 ")
  1. ;;4464
  1. ;;21,"63629-2868-03 ")
  1. ;;4465
  1. ;;21,"63629-2868-04 ")
  1. ;;4466
  1. ;;21,"63629-2868-05 ")
  1. ;;4467
  1. ;;21,"63629-2868-06 ")
  1. ;;4468
  1. ;;21,"63629-2868-07 ")
  1. ;;4469
  1. ;;21,"63629-2868-08 ")
  1. ;;4470
  1. ;;21,"63629-2868-09 ")
  1. ;;4471
  1. ;;21,"63629-2945-01 ")
  1. ;;4472
  1. ;;21,"63629-2946-00 ")
  1. ;;4473
  1. ;;21,"63629-2946-01 ")
  1. ;;4474
  1. ;;21,"63629-2946-02 ")
  1. ;;4475
  1. ;;21,"63629-2946-03 ")
  1. ;;4476
  1. ;;21,"63629-2946-04 ")
  1. ;;4477
  1. ;;21,"63629-2946-05 ")
  1. ;;4478
  1. ;;21,"63629-2946-06 ")
  1. ;;4479
  1. ;;21,"63629-2946-07 ")
  1. ;;4480
  1. ;;21,"63629-2946-08 ")
  1. ;;4481
  1. ;;21,"63629-2946-09 ")
  1. ;;4482
  1. ;;21,"63629-2946-10 ")
  1. ;;4483
  1. ;;21,"63629-2947-00 ")
  1. ;;4484
  1. ;;21,"63629-2947-01 ")
  1. ;;4485
  1. ;;21,"63629-2947-02 ")
  1. ;;4486
  1. ;;21,"63629-2947-03 ")
  1. ;;4487
  1. ;;21,"63629-2947-04 ")
  1. ;;4488
  1. ;;21,"63629-2947-05 ")
  1. ;;4489
  1. ;;21,"63629-2947-06 ")
  1. ;;4490
  1. ;;21,"63629-2947-07 ")
  1. ;;4491
  1. ;;21,"63629-2947-08 ")
  1. ;;4492
  1. ;;21,"63629-2947-09 ")
  1. ;;4493
  1. ;;21,"63629-2947-10 ")
  1. ;;4494
  1. ;;21,"63629-2952-01 ")
  1. ;;4495
  1. ;;21,"63629-2952-02 ")
  1. ;;4496
  1. ;;21,"63629-2952-03 ")
  1. ;;4497
  1. ;;21,"63629-2958-01 ")
  1. ;;4498
  1. ;;21,"63629-2958-02 ")
  1. ;;4499
  1. ;;21,"63629-2958-03 ")
  1. ;;4500
  1. ;;21,"63629-2958-04 ")
  1. ;;4501
  1. ;;21,"63629-2958-05 ")
  1. ;;4502
  1. ;;21,"63629-2958-06 ")
  1. ;;4503
  1. ;;21,"63629-2959-01 ")
  1. ;;4504
  1. ;;21,"63629-2962-01 ")
  1. ;;4505
  1. ;;21,"63629-2962-02 ")
  1. ;;4506
  1. ;;21,"63629-3031-01 ")
  1. ;;4507
  1. ;;21,"63629-3031-02 ")
  1. ;;4508
  1. ;;21,"63629-3031-03 ")
  1. ;;4509
  1. ;;21,"63629-3031-04 ")
  1. ;;4510
  1. ;;21,"63629-3031-05 ")
  1. ;;4511
  1. ;;21,"63629-3066-01 ")
  1. ;;4512
  1. ;;21,"63629-3066-02 ")
  1. ;;4513
  1. ;;21,"63629-3066-03 ")
  1. ;;4514
  1. ;;21,"63629-3066-04 ")
  1. ;;4515
  1. ;;21,"63629-3066-05 ")
  1. ;;4516
  1. ;;21,"63629-3066-06 ")
  1. ;;4517
  1. ;;21,"63629-3066-07 ")
  1. ;;4518
  1. ;;21,"63629-3066-08 ")
  1. ;;4519
  1. ;;21,"63629-3066-09 ")
  1. ;;4520
  1. ;;21,"63629-3066-10 ")
  1. ;;4521
  1. ;;21,"63629-3152-01 ")
  1. ;;4522
  1. ;;21,"63629-3152-02 ")
  1. ;;4523
  1. ;;21,"63629-3184-01 ")
  1. ;;4524
  1. ;;21,"63629-3184-02 ")
  1. ;;4525
  1. ;;21,"63629-3184-03 ")
  1. ;;4526
  1. ;;21,"63629-3184-04 ")
  1. ;;4527
  1. ;;21,"63629-3184-05 ")
  1. ;;4528
  1. ;;21,"63629-3184-06 ")
  1. ;;4529
  1. ;;21,"63629-3184-07 ")
  1. ;;4530
  1. ;;21,"63629-3206-01 ")
  1. ;;4531
  1. ;;21,"63629-3206-02 ")
  1. ;;4532
  1. ;;21,"63629-3206-03 ")
  1. ;;4533
  1. ;;21,"63629-3342-01 ")
  1. ;;4534
  1. ;;21,"63629-3342-02 ")
  1. ;;4535
  1. ;;21,"63629-3342-03 ")
  1. ;;4536
  1. ;;21,"63629-3342-04 ")
  1. ;;4537
  1. ;;21,"63629-3342-05 ")
  1. ;;4538
  1. ;;21,"63629-3342-06 ")
  1. ;;4539
  1. ;;21,"63629-3342-07 ")
  1. ;;4540
  1. ;;21,"63629-3342-08 ")
  1. ;;4541
  1. ;;21,"63629-3342-09 ")
  1. ;;4542
  1. ;;21,"63629-3406-01 ")
  1. ;;4543
  1. ;;21,"63629-3406-02 ")
  1. ;;4544
  1. ;;21,"63629-3406-03 ")
  1. ;;4545
  1. ;;21,"63629-3406-04 ")
  1. ;;4546
  1. ;;21,"63629-3406-05 ")
  1. ;;4547
  1. ;;21,"63629-3406-06 ")
  1. ;;4548
  1. ;;21,"63629-3406-07 ")
  1. ;;4549
  1. ;;21,"63629-3406-08 ")
  1. ;;4550
  1. ;;21,"63629-3763-01 ")
  1. ;;4551
  1. ;;21,"63629-3763-02 ")
  1. ;;4552
  1. ;;21,"63629-3763-03 ")
  1. ;;4553
  1. ;;21,"63629-3764-01 ")
  1. ;;4554
  1. ;;21,"63629-3764-02 ")
  1. ;;4555
  1. ;;21,"63629-3764-03 ")
  1. ;;4556
  1. ;;21,"63629-3765-01 ")
  1. ;;4557
  1. ;;21,"63629-3766-01 ")
  1. ;;4558
  1. ;;21,"63629-3766-02 ")
  1. ;;4559
  1. ;;21,"63629-3767-01 ")
  1. ;;4560
  1. ;;21,"63629-3767-02 ")
  1. ;;4561
  1. ;;21,"63629-3770-01 ")
  1. ;;4562
  1. ;;21,"63629-3770-02 ")
  1. ;;4563
  1. ;;21,"63629-3770-03 ")
  1. ;;4564
  1. ;;21,"63629-3770-04 ")
  1. ;;4565
  1. ;;21,"63629-3770-05 ")
  1. ;;4566
  1. ;;21,"63629-3771-01 ")
  1. ;;4567
  1. ;;21,"63629-3771-02 ")
  1. ;;4568
  1. ;;21,"63629-3771-03 ")
  1. ;;4569
  1. ;;21,"63629-3771-04 ")
  1. ;;4570
  1. ;;21,"63629-3771-05 ")
  1. ;;4571
  1. ;;21,"63629-3771-06 ")
  1. ;;4572
  1. ;;21,"63629-3771-07 ")
  1. ;;4573
  1. ;;21,"63629-3771-08 ")
  1. ;;4574
  1. ;;21,"63629-3771-09 ")
  1. ;;4575
  1. ;;21,"63629-3771-10 ")
  1. ;;4576
  1. ;;21,"63629-3772-01 ")
  1. ;;4577
  1. ;;21,"63629-3772-02 ")
  1. ;;4578
  1. ;;21,"63629-3772-03 ")
  1. ;;4579
  1. ;;21,"63629-3772-04 ")
  1. ;;4580
  1. ;;21,"63629-3772-05 ")
  1. ;;4581
  1. ;;21,"63629-3774-01 ")
  1. ;;4582
  1. ;;21,"63629-3774-02 ")
  1. ;;4583
  1. ;;21,"63629-3774-03 ")
  1. ;;4584
  1. ;;21,"63629-3774-04 ")
  1. ;;4585
  1. ;;21,"63629-3775-01 ")
  1. ;;4586
  1. ;;21,"63629-3775-02 ")
  1. ;;4587
  1. ;;21,"63629-3775-03 ")
  1. ;;4588
  1. ;;21,"63629-3775-04 ")
  1. ;;4589
  1. ;;21,"63629-3775-05 ")
  1. ;;4590
  1. ;;21,"63629-3788-01 ")
  1. ;;4591
  1. ;;21,"63629-3788-02 ")
  1. ;;4592
  1. ;;21,"63629-3788-03 ")
  1. ;;4593
  1. ;;21,"63629-3788-04 ")
  1. ;;4594
  1. ;;21,"63629-3788-05 ")
  1. ;;4595
  1. ;;21,"63629-3789-01 ")
  1. ;;4596
  1. ;;21,"63629-3789-02 ")
  1. ;;4597
  1. ;;21,"63629-3789-03 ")
  1. ;;4598
  1. ;;21,"63629-3798-00 ")
  1. ;;4599
  1. ;;21,"63629-3798-01 ")
  1. ;;4600
  1. ;;21,"63629-3798-02 ")
  1. ;;4601
  1. ;;21,"63629-3798-03 ")
  1. ;;4602
  1. ;;21,"63629-3798-04 ")
  1. ;;4603
  1. ;;21,"63629-3798-05 ")
  1. ;;4604
  1. ;;21,"63629-3798-06 ")
  1. ;;4605
  1. ;;21,"63629-3798-07 ")
  1. ;;4606
  1. ;;21,"63629-3798-08 ")
  1. ;;4607
  1. ;;21,"63629-3798-09 ")
  1. ;;4608
  1. ;;21,"63629-3798-10 ")
  1. ;;4609
  1. ;;21,"63629-3803-01 ")
  1. ;;4610
  1. ;;21,"63629-3803-02 ")
  1. ;;4611
  1. ;;21,"63629-3803-03 ")
  1. ;;4612
  1. ;;21,"63629-3803-04 ")
  1. ;;4613
  1. ;;21,"63629-3861-01 ")
  1. ;;4614
  1. ;;21,"63629-3861-02 ")
  1. ;;4615
  1. ;;21,"63629-3861-03 ")
  1. ;;4616
  1. ;;21,"63629-3861-04 ")
  1. ;;4617
  1. ;;21,"63629-3861-05 ")
  1. ;;4618
  1. ;;21,"63629-3953-01 ")
  1. ;;4619
  1. ;;21,"63629-3953-02 ")
  1. ;;4620
  1. ;;21,"63629-3953-03 ")
  1. ;;4621
  1. ;;21,"63629-3953-04 ")
  1. ;;4622
  1. ;;21,"63629-3953-05 ")
  1. ;;4623
  1. ;;21,"63629-3953-06 ")
  1. ;;4624
  1. ;;21,"63629-3953-07 ")
  1. ;;4625
  1. ;;21,"63629-3953-08 ")
  1. ;;4626
  1. ;;21,"63629-3953-09 ")
  1. ;;4627
  1. ;;21,"63629-3953-10 ")
  1. ;;4628
  1. ;;21,"63629-3975-01 ")
  1. ;;4629
  1. ;;21,"63629-3975-02 ")
  1. ;;4630
  1. ;;21,"63629-3975-03 ")
  1. ;;4631
  1. ;;21,"63629-3976-01 ")
  1. ;;4632
  1. ;;21,"63629-3976-02 ")
  1. ;;4633
  1. ;;21,"63629-3979-01 ")
  1. ;;4634
  1. ;;21,"63629-3979-02 ")
  1. ;;4635
  1. ;;21,"63629-3979-03 ")
  1. ;;4636
  1. ;;21,"63629-4000-01 ")
  1. ;;4637
  1. ;;21,"63629-4000-02 ")
  1. ;;4638
  1. ;;21,"63629-4000-03 ")
  1. ;;4639
  1. ;;21,"63629-4000-04 ")
  1. ;;4640
  1. ;;21,"63629-4000-05 ")
  1. ;;4641
  1. ;;21,"63629-4000-06 ")
  1. ;;4642
  1. ;;21,"63629-4000-07 ")
  1. ;;4643
  1. ;;21,"63629-4009-01 ")
  1. ;;4644
  1. ;;21,"63629-4068-01 ")
  1. ;;4645
  1. ;;21,"63629-4068-02 ")
  1. ;;4646
  1. ;;21,"63629-4068-03 ")
  1. ;;4647
  1. ;;21,"63629-4068-04 ")
  1. ;;4648
  1. ;;21,"63629-4068-05 ")
  1. ;;4649
  1. ;;21,"63629-4068-06 ")
  1. ;;4650
  1. ;;21,"63629-4068-07 ")
  1. ;;4651
  1. ;;21,"63629-4068-08 ")
  1. ;;4652
  1. ;;21,"63629-4068-09 ")
  1. ;;4653
  1. ;;21,"63629-4068-10 ")
  1. ;;4654
  1. ;;21,"63629-4153-01 ")
  1. ;;4655
  1. ;;21,"63629-4153-02 ")
  1. ;;4656
  1. ;;21,"63629-4153-03 ")
  1. ;;4657
  1. ;;21,"63629-4153-04 ")
  1. ;;4658
  1. ;;21,"63629-4153-05 ")
  1. ;;4659
  1. ;;21,"63629-4165-01 ")
  1. ;;4660
  1. ;;21,"63629-4166-01 ")
  1. ;;4661
  1. ;;21,"63629-4167-01 ")
  1. ;;4662
  1. ;;21,"63629-4168-01 ")
  1. ;;4663
  1. ;;21,"63629-4174-01 ")
  1. ;;4664
  1. ;;21,"63629-4174-02 ")
  1. ;;4665
  1. ;;21,"63629-4174-03 ")
  1. ;;4666
  1. ;;21,"63629-4175-01 ")
  1. ;;4667
  1. ;;21,"63629-4175-02 ")
  1. ;;4668
  1. ;;21,"63629-4175-03 ")
  1. ;;4669
  1. ;;21,"63629-4177-01 ")
  1. ;;4670
  1. ;;21,"63629-4177-02 ")
  1. ;;4671
  1. ;;21,"63629-4177-03 ")
  1. ;;4672
  1. ;;21,"63629-4178-01 ")
  1. ;;4673
  1. ;;21,"63629-4179-02 ")
  1. ;;4674
  1. ;;21,"63629-4184-01 ")
  1. ;;4675
  1. ;;21,"63629-4184-02 ")
  1. ;;4676
  1. ;;21,"63629-4184-03 ")
  1. ;;4677
  1. ;;21,"63629-4184-04 ")
  1. ;;4678
  1. ;;21,"63629-4184-05 ")
  1. ;;4679
  1. ;;21,"63629-4184-06 ")
  1. ;;4680
  1. ;;21,"63629-4184-07 ")
  1. ;;4681
  1. ;;21,"63629-4184-08 ")
  1. ;;4682
  1. ;;21,"63629-4272-01 ")
  1. ;;4683
  1. ;;21,"63629-4272-02 ")
  1. ;;4684
  1. ;;21,"63629-4272-03 ")
  1. ;;4685
  1. ;;21,"63629-4272-04 ")
  1. ;;4686