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

BGP73F14.m

Go to the documentation of this file.
  1. BGP73F14 ;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,"58016-0109-50 ")
  1. ;;4354
  1. ;;21,"58016-0109-60 ")
  1. ;;4355
  1. ;;21,"58016-0109-73 ")
  1. ;;4356
  1. ;;21,"58016-0109-80 ")
  1. ;;4357
  1. ;;21,"58016-0109-89 ")
  1. ;;4358
  1. ;;21,"58016-0109-90 ")
  1. ;;4359
  1. ;;21,"58016-0116-00 ")
  1. ;;4360
  1. ;;21,"58016-0116-10 ")
  1. ;;4361
  1. ;;21,"58016-0116-12 ")
  1. ;;4362
  1. ;;21,"58016-0116-15 ")
  1. ;;4363
  1. ;;21,"58016-0116-20 ")
  1. ;;4364
  1. ;;21,"58016-0116-30 ")
  1. ;;4365
  1. ;;21,"58016-0117-00 ")
  1. ;;4366
  1. ;;21,"58016-0117-10 ")
  1. ;;4367
  1. ;;21,"58016-0117-12 ")
  1. ;;4368
  1. ;;21,"58016-0117-14 ")
  1. ;;4369
  1. ;;21,"58016-0117-15 ")
  1. ;;4370
  1. ;;21,"58016-0117-20 ")
  1. ;;4371
  1. ;;21,"58016-0117-30 ")
  1. ;;4372
  1. ;;21,"58016-0118-10 ")
  1. ;;4373
  1. ;;21,"58016-0118-12 ")
  1. ;;4374
  1. ;;21,"58016-0118-14 ")
  1. ;;4375
  1. ;;21,"58016-0118-15 ")
  1. ;;4376
  1. ;;21,"58016-0118-20 ")
  1. ;;4377
  1. ;;21,"58016-0118-30 ")
  1. ;;4378
  1. ;;21,"58016-0118-50 ")
  1. ;;4379
  1. ;;21,"58016-0119-00 ")
  1. ;;4380
  1. ;;21,"58016-0119-02 ")
  1. ;;4381
  1. ;;21,"58016-0119-03 ")
  1. ;;4382
  1. ;;21,"58016-0119-10 ")
  1. ;;4383
  1. ;;21,"58016-0119-12 ")
  1. ;;4384
  1. ;;21,"58016-0119-14 ")
  1. ;;4385
  1. ;;21,"58016-0119-15 ")
  1. ;;4386
  1. ;;21,"58016-0119-20 ")
  1. ;;4387
  1. ;;21,"58016-0119-25 ")
  1. ;;4388
  1. ;;21,"58016-0119-30 ")
  1. ;;4389
  1. ;;21,"58016-0119-40 ")
  1. ;;4390
  1. ;;21,"58016-0119-60 ")
  1. ;;4391
  1. ;;21,"58016-0119-73 ")
  1. ;;4392
  1. ;;21,"58016-0119-89 ")
  1. ;;4393
  1. ;;21,"58016-0119-90 ")
  1. ;;4394
  1. ;;21,"58016-0121-00 ")
  1. ;;4395
  1. ;;21,"58016-0121-10 ")
  1. ;;4396
  1. ;;21,"58016-0121-12 ")
  1. ;;4397
  1. ;;21,"58016-0121-14 ")
  1. ;;4398
  1. ;;21,"58016-0121-15 ")
  1. ;;4399
  1. ;;21,"58016-0121-18 ")
  1. ;;4400
  1. ;;21,"58016-0121-20 ")
  1. ;;4401
  1. ;;21,"58016-0121-24 ")
  1. ;;4402
  1. ;;21,"58016-0121-28 ")
  1. ;;4403
  1. ;;21,"58016-0121-30 ")
  1. ;;4404
  1. ;;21,"58016-0121-40 ")
  1. ;;4405
  1. ;;21,"58016-0122-00 ")
  1. ;;4406
  1. ;;21,"58016-0122-12 ")
  1. ;;4407
  1. ;;21,"58016-0122-14 ")
  1. ;;4408
  1. ;;21,"58016-0122-15 ")
  1. ;;4409
  1. ;;21,"58016-0122-20 ")
  1. ;;4410
  1. ;;21,"58016-0122-28 ")
  1. ;;4411
  1. ;;21,"58016-0122-30 ")
  1. ;;4412
  1. ;;21,"58016-0122-40 ")
  1. ;;4413
  1. ;;21,"58016-0122-50 ")
  1. ;;4414
  1. ;;21,"58016-0123-00 ")
  1. ;;4415
  1. ;;21,"58016-0123-12 ")
  1. ;;4416
  1. ;;21,"58016-0123-15 ")
  1. ;;4417
  1. ;;21,"58016-0123-20 ")
  1. ;;4418
  1. ;;21,"58016-0123-24 ")
  1. ;;4419
  1. ;;21,"58016-0123-28 ")
  1. ;;4420
  1. ;;21,"58016-0123-30 ")
  1. ;;4421
  1. ;;21,"58016-0123-40 ")
  1. ;;4422
  1. ;;21,"58016-0126-00 ")
  1. ;;4423
  1. ;;21,"58016-0126-15 ")
  1. ;;4424
  1. ;;21,"58016-0126-18 ")
  1. ;;4425
  1. ;;21,"58016-0126-20 ")
  1. ;;4426
  1. ;;21,"58016-0126-21 ")
  1. ;;4427
  1. ;;21,"58016-0126-28 ")
  1. ;;4428
  1. ;;21,"58016-0126-30 ")
  1. ;;4429
  1. ;;21,"58016-0126-42 ")
  1. ;;4430
  1. ;;21,"58016-0126-60 ")
  1. ;;4431
  1. ;;21,"58016-0126-99 ")
  1. ;;4432
  1. ;;21,"58016-0127-06 ")
  1. ;;4433
  1. ;;21,"58016-0127-08 ")
  1. ;;4434
  1. ;;21,"58016-0127-10 ")
  1. ;;4435
  1. ;;21,"58016-0127-14 ")
  1. ;;4436
  1. ;;21,"58016-0127-20 ")
  1. ;;4437
  1. ;;21,"58016-0127-21 ")
  1. ;;4438
  1. ;;21,"58016-0127-24 ")
  1. ;;4439
  1. ;;21,"58016-0127-28 ")
  1. ;;4440
  1. ;;21,"58016-0127-30 ")
  1. ;;4441
  1. ;;21,"58016-0127-40 ")
  1. ;;4442
  1. ;;21,"58016-0127-42 ")
  1. ;;4443
  1. ;;21,"58016-0127-50 ")
  1. ;;4444
  1. ;;21,"58016-0127-60 ")
  1. ;;4445
  1. ;;21,"58016-0137-00 ")
  1. ;;4446
  1. ;;21,"58016-0137-02 ")
  1. ;;4447
  1. ;;21,"58016-0137-10 ")
  1. ;;4448
  1. ;;21,"58016-0137-12 ")
  1. ;;4449
  1. ;;21,"58016-0137-15 ")
  1. ;;4450
  1. ;;21,"58016-0137-20 ")
  1. ;;4451
  1. ;;21,"58016-0137-30 ")
  1. ;;4452
  1. ;;21,"58016-0137-60 ")
  1. ;;4453
  1. ;;21,"58016-0137-90 ")
  1. ;;4454
  1. ;;21,"58016-0138-00 ")
  1. ;;4455
  1. ;;21,"58016-0138-02 ")
  1. ;;4456
  1. ;;21,"58016-0138-03 ")
  1. ;;4457
  1. ;;21,"58016-0138-12 ")
  1. ;;4458
  1. ;;21,"58016-0138-14 ")
  1. ;;4459
  1. ;;21,"58016-0138-15 ")
  1. ;;4460
  1. ;;21,"58016-0138-20 ")
  1. ;;4461
  1. ;;21,"58016-0138-21 ")
  1. ;;4462
  1. ;;21,"58016-0138-24 ")
  1. ;;4463
  1. ;;21,"58016-0138-28 ")
  1. ;;4464
  1. ;;21,"58016-0138-30 ")
  1. ;;4465
  1. ;;21,"58016-0138-40 ")
  1. ;;4466
  1. ;;21,"58016-0138-56 ")
  1. ;;4467
  1. ;;21,"58016-0138-60 ")
  1. ;;4468
  1. ;;21,"58016-0138-73 ")
  1. ;;4469
  1. ;;21,"58016-0138-89 ")
  1. ;;4470
  1. ;;21,"58016-0139-00 ")
  1. ;;4471
  1. ;;21,"58016-0139-02 ")
  1. ;;4472
  1. ;;21,"58016-0139-03 ")
  1. ;;4473
  1. ;;21,"58016-0139-04 ")
  1. ;;4474
  1. ;;21,"58016-0139-05 ")
  1. ;;4475
  1. ;;21,"58016-0139-06 ")
  1. ;;4476
  1. ;;21,"58016-0139-08 ")
  1. ;;4477
  1. ;;21,"58016-0139-10 ")
  1. ;;4478
  1. ;;21,"58016-0139-12 ")
  1. ;;4479
  1. ;;21,"58016-0139-14 ")
  1. ;;4480
  1. ;;21,"58016-0139-15 ")
  1. ;;4481
  1. ;;21,"58016-0139-18 ")
  1. ;;4482
  1. ;;21,"58016-0139-20 ")
  1. ;;4483
  1. ;;21,"58016-0139-21 ")
  1. ;;4484
  1. ;;21,"58016-0139-24 ")
  1. ;;4485
  1. ;;21,"58016-0139-28 ")
  1. ;;4486
  1. ;;21,"58016-0139-30 ")
  1. ;;4487
  1. ;;21,"58016-0139-40 ")
  1. ;;4488
  1. ;;21,"58016-0139-50 ")
  1. ;;4489
  1. ;;21,"58016-0139-56 ")
  1. ;;4490
  1. ;;21,"58016-0139-60 ")
  1. ;;4491
  1. ;;21,"58016-0139-73 ")
  1. ;;4492
  1. ;;21,"58016-0139-89 ")
  1. ;;4493
  1. ;;21,"58016-0145-18 ")
  1. ;;4494
  1. ;;21,"58016-0146-00 ")
  1. ;;4495
  1. ;;21,"58016-0146-02 ")
  1. ;;4496
  1. ;;21,"58016-0146-03 ")
  1. ;;4497
  1. ;;21,"58016-0146-10 ")
  1. ;;4498
  1. ;;21,"58016-0146-12 ")
  1. ;;4499
  1. ;;21,"58016-0146-16 ")
  1. ;;4500
  1. ;;21,"58016-0146-20 ")
  1. ;;4501
  1. ;;21,"58016-0146-21 ")
  1. ;;4502
  1. ;;21,"58016-0146-24 ")
  1. ;;4503
  1. ;;21,"58016-0146-28 ")
  1. ;;4504
  1. ;;21,"58016-0146-30 ")
  1. ;;4505
  1. ;;21,"58016-0146-40 ")
  1. ;;4506
  1. ;;21,"58016-0146-60 ")
  1. ;;4507
  1. ;;21,"58016-0146-73 ")
  1. ;;4508
  1. ;;21,"58016-0146-89 ")
  1. ;;4509
  1. ;;21,"58016-0146-90 ")
  1. ;;4510
  1. ;;21,"58016-0147-00 ")
  1. ;;4511
  1. ;;21,"58016-0147-02 ")
  1. ;;4512
  1. ;;21,"58016-0147-03 ")
  1. ;;4513
  1. ;;21,"58016-0147-06 ")
  1. ;;4514
  1. ;;21,"58016-0147-10 ")
  1. ;;4515
  1. ;;21,"58016-0147-12 ")
  1. ;;4516
  1. ;;21,"58016-0147-15 ")
  1. ;;4517
  1. ;;21,"58016-0147-16 ")
  1. ;;4518
  1. ;;21,"58016-0147-20 ")
  1. ;;4519
  1. ;;21,"58016-0147-21 ")
  1. ;;4520
  1. ;;21,"58016-0147-24 ")
  1. ;;4521
  1. ;;21,"58016-0147-28 ")
  1. ;;4522
  1. ;;21,"58016-0147-30 ")
  1. ;;4523
  1. ;;21,"58016-0147-40 ")
  1. ;;4524
  1. ;;21,"58016-0147-50 ")
  1. ;;4525
  1. ;;21,"58016-0147-60 ")
  1. ;;4526
  1. ;;21,"58016-0147-73 ")
  1. ;;4527
  1. ;;21,"58016-0147-89 ")
  1. ;;4528
  1. ;;21,"58016-0147-90 ")
  1. ;;4529
  1. ;;21,"58016-0148-00 ")
  1. ;;4530
  1. ;;21,"58016-0148-08 ")
  1. ;;4531
  1. ;;21,"58016-0148-09 ")
  1. ;;4532
  1. ;;21,"58016-0148-10 ")
  1. ;;4533
  1. ;;21,"58016-0148-12 ")
  1. ;;4534
  1. ;;21,"58016-0148-14 ")
  1. ;;4535
  1. ;;21,"58016-0148-15 ")
  1. ;;4536
  1. ;;21,"58016-0148-20 ")
  1. ;;4537
  1. ;;21,"58016-0148-24 ")
  1. ;;4538
  1. ;;21,"58016-0148-28 ")
  1. ;;4539
  1. ;;21,"58016-0148-30 ")
  1. ;;4540
  1. ;;21,"58016-0148-40 ")
  1. ;;4541
  1. ;;21,"58016-0148-50 ")
  1. ;;4542
  1. ;;21,"58016-0149-00 ")
  1. ;;4543
  1. ;;21,"58016-0149-07 ")
  1. ;;4544
  1. ;;21,"58016-0149-10 ")
  1. ;;4545
  1. ;;21,"58016-0149-20 ")
  1. ;;4546
  1. ;;21,"58016-0149-21 ")
  1. ;;4547
  1. ;;21,"58016-0149-24 ")
  1. ;;4548
  1. ;;21,"58016-0149-25 ")
  1. ;;4549
  1. ;;21,"58016-0149-28 ")
  1. ;;4550
  1. ;;21,"58016-0149-30 ")
  1. ;;4551
  1. ;;21,"58016-0149-40 ")
  1. ;;4552
  1. ;;21,"58016-0156-00 ")
  1. ;;4553
  1. ;;21,"58016-0156-02 ")
  1. ;;4554
  1. ;;21,"58016-0156-03 ")
  1. ;;4555
  1. ;;21,"58016-0156-06 ")
  1. ;;4556
  1. ;;21,"58016-0156-07 ")
  1. ;;4557
  1. ;;21,"58016-0156-10 ")
  1. ;;4558
  1. ;;21,"58016-0156-12 ")
  1. ;;4559
  1. ;;21,"58016-0156-14 ")
  1. ;;4560
  1. ;;21,"58016-0156-15 ")
  1. ;;4561
  1. ;;21,"58016-0156-16 ")
  1. ;;4562
  1. ;;21,"58016-0156-20 ")
  1. ;;4563
  1. ;;21,"58016-0156-21 ")
  1. ;;4564
  1. ;;21,"58016-0156-24 ")
  1. ;;4565
  1. ;;21,"58016-0156-28 ")
  1. ;;4566
  1. ;;21,"58016-0156-30 ")
  1. ;;4567
  1. ;;21,"58016-0156-40 ")
  1. ;;4568
  1. ;;21,"58016-0156-60 ")
  1. ;;4569
  1. ;;21,"58016-0156-73 ")
  1. ;;4570
  1. ;;21,"58016-0156-89 ")
  1. ;;4571
  1. ;;21,"58016-0161-10 ")
  1. ;;4572
  1. ;;21,"58016-0161-12 ")
  1. ;;4573
  1. ;;21,"58016-0161-14 ")
  1. ;;4574
  1. ;;21,"58016-0161-15 ")
  1. ;;4575
  1. ;;21,"58016-0161-16 ")
  1. ;;4576
  1. ;;21,"58016-0161-18 ")
  1. ;;4577
  1. ;;21,"58016-0161-20 ")
  1. ;;4578
  1. ;;21,"58016-0161-21 ")
  1. ;;4579
  1. ;;21,"58016-0161-24 ")
  1. ;;4580
  1. ;;21,"58016-0161-28 ")
  1. ;;4581
  1. ;;21,"58016-0161-30 ")
  1. ;;4582
  1. ;;21,"58016-0161-40 ")
  1. ;;4583
  1. ;;21,"58016-0161-50 ")
  1. ;;4584
  1. ;;21,"58016-0161-60 ")
  1. ;;4585
  1. ;;21,"58016-0162-28 ")
  1. ;;4586
  1. ;;21,"58016-0162-30 ")
  1. ;;4587
  1. ;;21,"58016-0162-40 ")
  1. ;;4588
  1. ;;21,"58016-0167-00 ")
  1. ;;4589
  1. ;;21,"58016-0167-20 ")
  1. ;;4590
  1. ;;21,"58016-0167-40 ")
  1. ;;4591
  1. ;;21,"58016-0171-20 ")
  1. ;;4592
  1. ;;21,"58016-0171-30 ")
  1. ;;4593
  1. ;;21,"58016-0284-15 ")
  1. ;;4594
  1. ;;21,"58016-0284-20 ")
  1. ;;4595
  1. ;;21,"58016-0284-30 ")
  1. ;;4596
  1. ;;21,"58016-0284-50 ")
  1. ;;4597
  1. ;;21,"58016-0299-00 ")
  1. ;;4598
  1. ;;21,"58016-0299-30 ")
  1. ;;4599
  1. ;;21,"58016-0299-60 ")
  1. ;;4600
  1. ;;21,"58016-0299-90 ")
  1. ;;4601
  1. ;;21,"58016-0391-00 ")
  1. ;;4602
  1. ;;21,"58016-0391-01 ")
  1. ;;4603
  1. ;;21,"58016-0391-06 ")
  1. ;;4604
  1. ;;21,"58016-0391-10 ")
  1. ;;4605
  1. ;;21,"58016-0391-15 ")
  1. ;;4606
  1. ;;21,"58016-0391-18 ")
  1. ;;4607
  1. ;;21,"58016-0391-20 ")
  1. ;;4608
  1. ;;21,"58016-0391-28 ")
  1. ;;4609
  1. ;;21,"58016-0391-30 ")
  1. ;;4610
  1. ;;21,"58016-0391-60 ")
  1. ;;4611
  1. ;;21,"58016-0391-90 ")
  1. ;;4612
  1. ;;21,"58016-0453-00 ")
  1. ;;4613
  1. ;;21,"58016-0453-12 ")
  1. ;;4614
  1. ;;21,"58016-0453-15 ")
  1. ;;4615
  1. ;;21,"58016-0453-20 ")
  1. ;;4616
  1. ;;21,"58016-0453-21 ")
  1. ;;4617
  1. ;;21,"58016-0453-30 ")
  1. ;;4618
  1. ;;21,"58016-0453-40 ")
  1. ;;4619
  1. ;;21,"58016-0550-10 ")
  1. ;;4620
  1. ;;21,"58016-0550-12 ")
  1. ;;4621
  1. ;;21,"58016-0550-14 ")
  1. ;;4622
  1. ;;21,"58016-0550-15 ")
  1. ;;4623
  1. ;;21,"58016-0550-20 ")
  1. ;;4624
  1. ;;21,"58016-0550-30 ")
  1. ;;4625
  1. ;;21,"58016-0550-40 ")
  1. ;;4626
  1. ;;21,"58016-0573-00 ")
  1. ;;4627
  1. ;;21,"58016-0573-07 ")
  1. ;;4628
  1. ;;21,"58016-0573-10 ")
  1. ;;4629
  1. ;;21,"58016-0573-20 ")
  1. ;;4630
  1. ;;21,"58016-0573-30 ")
  1. ;;4631
  1. ;;21,"58016-0573-60 ")
  1. ;;4632
  1. ;;21,"58016-0573-90 ")
  1. ;;4633
  1. ;;21,"58016-0633-00 ")
  1. ;;4634
  1. ;;21,"58016-0633-30 ")
  1. ;;4635
  1. ;;21,"58016-0633-60 ")
  1. ;;4636
  1. ;;21,"58016-0633-90 ")
  1. ;;4637
  1. ;;21,"58016-0634-00 ")
  1. ;;4638
  1. ;;21,"58016-0634-30 ")
  1. ;;4639
  1. ;;21,"58016-0634-60 ")
  1. ;;4640
  1. ;;21,"58016-0634-90 ")
  1. ;;4641
  1. ;;21,"58016-0643-00 ")
  1. ;;4642
  1. ;;21,"58016-0643-02 ")
  1. ;;4643
  1. ;;21,"58016-0643-04 ")
  1. ;;4644
  1. ;;21,"58016-0643-09 ")
  1. ;;4645
  1. ;;21,"58016-0643-12 ")
  1. ;;4646
  1. ;;21,"58016-0643-15 ")
  1. ;;4647
  1. ;;21,"58016-0643-18 ")
  1. ;;4648
  1. ;;21,"58016-0643-20 ")
  1. ;;4649
  1. ;;21,"58016-0643-21 ")
  1. ;;4650
  1. ;;21,"58016-0643-24 ")
  1. ;;4651
  1. ;;21,"58016-0643-30 ")
  1. ;;4652
  1. ;;21,"58016-0643-40 ")
  1. ;;4653
  1. ;;21,"58016-0643-50 ")
  1. ;;4654
  1. ;;21,"58016-0643-60 ")
  1. ;;4655
  1. ;;21,"58016-0643-89 ")
  1. ;;4656
  1. ;;21,"58016-0643-90 ")
  1. ;;4657
  1. ;;21,"58016-0643-99 ")
  1. ;;4658
  1. ;;21,"58016-0873-00 ")
  1. ;;4659
  1. ;;21,"58016-0873-15 ")
  1. ;;4660
  1. ;;21,"58016-0873-20 ")
  1. ;;4661
  1. ;;21,"58016-0873-30 ")
  1. ;;4662
  1. ;;21,"58016-0924-00 ")
  1. ;;4663
  1. ;;21,"58016-0924-30 ")
  1. ;;4664
  1. ;;21,"58016-0924-60 ")
  1. ;;4665
  1. ;;21,"58016-0924-90 ")
  1. ;;4666
  1. ;;21,"58016-0953-00 ")
  1. ;;4667
  1. ;;21,"58016-0953-02 ")
  1. ;;4668
  1. ;;21,"58016-0953-10 ")
  1. ;;4669
  1. ;;21,"58016-0953-12 ")
  1. ;;4670
  1. ;;21,"58016-0953-15 ")
  1. ;;4671
  1. ;;21,"58016-0953-20 ")
  1. ;;4672
  1. ;;21,"58016-0953-30 ")
  1. ;;4673
  1. ;;21,"58016-0953-60 ")
  1. ;;4674
  1. ;;21,"58016-0953-90 ")
  1. ;;4675
  1. ;;21,"58016-0957-00 ")
  1. ;;4676
  1. ;;21,"58016-0957-02 ")
  1. ;;4677
  1. ;;21,"58016-0957-10 ")
  1. ;;4678
  1. ;;21,"58016-0957-12 ")
  1. ;;4679
  1. ;;21,"58016-0957-15 ")
  1. ;;4680
  1. ;;21,"58016-0957-20 ")
  1. ;;4681
  1. ;;21,"58016-0957-30 ")
  1. ;;4682
  1. ;;21,"58016-0957-60 ")
  1. ;;4683
  1. ;;21,"58016-0957-90 ")
  1. ;;4684
  1. ;;21,"58016-0975-00 ")
  1. ;;4685
  1. ;;21,"58016-0975-30 ")
  1. ;;4686