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

BGP8ZH14.m

Go to the documentation of this file.
BGP8ZH14 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"63304-0752-60 ")
 ;;4354
 ;;21,"63304-0753-20 ")
 ;;4355
 ;;21,"63304-0754-20 ")
 ;;4356
 ;;21,"63304-0760-20 ")
 ;;4357
 ;;21,"63304-0763-01 ")
 ;;4358
 ;;21,"63304-0768-01 ")
 ;;4359
 ;;21,"63304-0768-02 ")
 ;;4360
 ;;21,"63304-0768-07 ")
 ;;4361
 ;;21,"63304-0821-03 ")
 ;;4362
 ;;21,"63304-0821-04 ")
 ;;4363
 ;;21,"63304-0822-03 ")
 ;;4364
 ;;21,"63304-0822-04 ")
 ;;4365
 ;;21,"63304-0940-25 ")
 ;;4366
 ;;21,"63304-0941-10 ")
 ;;4367
 ;;21,"63304-0946-25 ")
 ;;4368
 ;;21,"63304-0947-25 ")
 ;;4369
 ;;21,"63304-0948-10 ")
 ;;4370
 ;;21,"63304-0958-01 ")
 ;;4371
 ;;21,"63304-0958-02 ")
 ;;4372
 ;;21,"63304-0959-01 ")
 ;;4373
 ;;21,"63304-0959-02 ")
 ;;4374
 ;;21,"63304-0960-01 ")
 ;;4375
 ;;21,"63304-0960-03 ")
 ;;4376
 ;;21,"63304-0960-04 ")
 ;;4377
 ;;21,"63304-0961-01 ")
 ;;4378
 ;;21,"63304-0961-03 ")
 ;;4379
 ;;21,"63304-0961-04 ")
 ;;4380
 ;;21,"63304-0963-04 ")
 ;;4381
 ;;21,"63304-0964-03 ")
 ;;4382
 ;;21,"63304-0964-04 ")
 ;;4383
 ;;21,"63304-0965-03 ")
 ;;4384
 ;;21,"63304-0965-04 ")
 ;;4385
 ;;21,"63304-0966-03 ")
 ;;4386
 ;;21,"63304-0966-04 ")
 ;;4387
 ;;21,"63304-0969-03 ")
 ;;4388
 ;;21,"63304-0970-01 ")
 ;;4389
 ;;21,"63304-0970-04 ")
 ;;4390
 ;;21,"63304-0973-04 ")
 ;;4391
 ;;21,"63304-0974-01 ")
 ;;4392
 ;;21,"63304-0974-04 ")
 ;;4393
 ;;21,"63304-0977-01 ")
 ;;4394
 ;;21,"63304-0977-03 ")
 ;;4395
 ;;21,"63304-0977-04 ")
 ;;4396
 ;;21,"63304-0979-01 ")
 ;;4397
 ;;21,"63304-0979-03 ")
 ;;4398
 ;;21,"63304-0979-04 ")
 ;;4399
 ;;21,"63323-0130-11 ")
 ;;4400
 ;;21,"63323-0130-13 ")
 ;;4401
 ;;21,"63323-0130-17 ")
 ;;4402
 ;;21,"63323-0236-10 ")
 ;;4403
 ;;21,"63323-0237-10 ")
 ;;4404
 ;;21,"63323-0238-61 ")
 ;;4405
 ;;21,"63323-0282-02 ")
 ;;4406
 ;;21,"63323-0282-04 ")
 ;;4407
 ;;21,"63323-0282-06 ")
 ;;4408
 ;;21,"63323-0282-60 ")
 ;;4409
 ;;21,"63323-0323-20 ")
 ;;4410
 ;;21,"63323-0324-62 ")
 ;;4411
 ;;21,"63323-0344-10 ")
 ;;4412
 ;;21,"63323-0345-10 ")
 ;;4413
 ;;21,"63323-0346-10 ")
 ;;4414
 ;;21,"63323-0347-20 ")
 ;;4415
 ;;21,"63323-0348-61 ")
 ;;4416
 ;;21,"63323-0352-10 ")
 ;;4417
 ;;21,"63323-0352-45 ")
 ;;4418
 ;;21,"63323-0353-20 ")
 ;;4419
 ;;21,"63323-0353-45 ")
 ;;4420
 ;;21,"63323-0354-45 ")
 ;;4421
 ;;21,"63323-0354-61 ")
 ;;4422
 ;;21,"63323-0355-50 ")
 ;;4423
 ;;21,"63323-0355-60 ")
 ;;4424
 ;;21,"63323-0355-65 ")
 ;;4425
 ;;21,"63323-0387-10 ")
 ;;4426
 ;;21,"63323-0388-10 ")
 ;;4427
 ;;21,"63323-0389-10 ")
 ;;4428
 ;;21,"63323-0398-10 ")
 ;;4429
 ;;21,"63323-0398-12 ")
 ;;4430
 ;;21,"63323-0398-14 ")
 ;;4431
 ;;21,"63323-0399-23 ")
 ;;4432
 ;;21,"63323-0404-00 ")
 ;;4433
 ;;21,"63323-0446-61 ")
 ;;4434
 ;;21,"63323-0446-66 ")
 ;;4435
 ;;21,"63323-0449-61 ")
 ;;4436
 ;;21,"63323-0704-08 ")
 ;;4437
 ;;21,"63323-0705-08 ")
 ;;4438
 ;;21,"63323-0707-20 ")
 ;;4439
 ;;21,"63323-0850-74 ")
 ;;4440
 ;;21,"63629-1248-03 ")
 ;;4441
 ;;21,"63629-1257-01 ")
 ;;4442
 ;;21,"63629-1257-02 ")
 ;;4443
 ;;21,"63629-1257-03 ")
 ;;4444
 ;;21,"63629-1284-01 ")
 ;;4445
 ;;21,"63629-1305-01 ")
 ;;4446
 ;;21,"63629-1305-02 ")
 ;;4447
 ;;21,"63629-1305-03 ")
 ;;4448
 ;;21,"63629-1320-01 ")
 ;;4449
 ;;21,"63629-1320-02 ")
 ;;4450
 ;;21,"63629-1320-03 ")
 ;;4451
 ;;21,"63629-1320-04 ")
 ;;4452
 ;;21,"63629-1321-01 ")
 ;;4453
 ;;21,"63629-1357-01 ")
 ;;4454
 ;;21,"63629-1357-02 ")
 ;;4455
 ;;21,"63629-1357-03 ")
 ;;4456
 ;;21,"63629-1490-01 ")
 ;;4457
 ;;21,"63629-1490-02 ")
 ;;4458
 ;;21,"63629-1490-03 ")
 ;;4459
 ;;21,"63629-1490-04 ")
 ;;4460
 ;;21,"63629-1501-01 ")
 ;;4461
 ;;21,"63629-1501-02 ")
 ;;4462
 ;;21,"63629-1501-03 ")
 ;;4463
 ;;21,"63629-1501-04 ")
 ;;4464
 ;;21,"63629-1531-01 ")
 ;;4465
 ;;21,"63629-1531-02 ")
 ;;4466
 ;;21,"63629-1531-03 ")
 ;;4467
 ;;21,"63629-1531-04 ")
 ;;4468
 ;;21,"63629-1531-05 ")
 ;;4469
 ;;21,"63629-1724-03 ")
 ;;4470
 ;;21,"63629-1724-04 ")
 ;;4471
 ;;21,"63629-1724-05 ")
 ;;4472
 ;;21,"63629-1724-06 ")
 ;;4473
 ;;21,"63629-1765-01 ")
 ;;4474
 ;;21,"63629-1835-01 ")
 ;;4475
 ;;21,"63629-1835-02 ")
 ;;4476
 ;;21,"63629-2610-01 ")
 ;;4477
 ;;21,"63629-2610-02 ")
 ;;4478
 ;;21,"63629-2610-03 ")
 ;;4479
 ;;21,"63629-2685-01 ")
 ;;4480
 ;;21,"63629-2685-02 ")
 ;;4481
 ;;21,"63629-2755-01 ")
 ;;4482
 ;;21,"63629-2755-02 ")
 ;;4483
 ;;21,"63629-2817-01 ")
 ;;4484
 ;;21,"63629-2817-02 ")
 ;;4485
 ;;21,"63629-2817-03 ")
 ;;4486
 ;;21,"63629-2817-04 ")
 ;;4487
 ;;21,"63629-2887-01 ")
 ;;4488
 ;;21,"63629-2887-02 ")
 ;;4489
 ;;21,"63629-2924-01 ")
 ;;4490
 ;;21,"63629-2924-02 ")
 ;;4491
 ;;21,"63629-3057-01 ")
 ;;4492
 ;;21,"63739-0059-10 ")
 ;;4493
 ;;21,"63739-0168-33 ")
 ;;4494
 ;;21,"63739-0228-10 ")
 ;;4495
 ;;21,"63739-0400-10 ")
 ;;4496
 ;;21,"63739-0559-10 ")
 ;;4497
 ;;21,"63739-0575-09 ")
 ;;4498
 ;;21,"63739-0575-10 ")
 ;;4499
 ;;21,"63739-0700-10 ")
 ;;4500
 ;;21,"63874-0101-01 ")
 ;;4501
 ;;21,"63874-0101-03 ")
 ;;4502
 ;;21,"63874-0101-21 ")
 ;;4503
 ;;21,"63874-0101-28 ")
 ;;4504
 ;;21,"63874-0101-30 ")
 ;;4505
 ;;21,"63874-0101-40 ")
 ;;4506
 ;;21,"63874-0102-01 ")
 ;;4507
 ;;21,"63874-0102-03 ")
 ;;4508
 ;;21,"63874-0102-21 ")
 ;;4509
 ;;21,"63874-0102-28 ")
 ;;4510
 ;;21,"63874-0102-30 ")
 ;;4511
 ;;21,"63874-0102-40 ")
 ;;4512
 ;;21,"63874-0107-01 ")
 ;;4513
 ;;21,"63874-0107-02 ")
 ;;4514
 ;;21,"63874-0107-04 ")
 ;;4515
 ;;21,"63874-0107-06 ")
 ;;4516
 ;;21,"63874-0107-08 ")
 ;;4517
 ;;21,"63874-0107-09 ")
 ;;4518
 ;;21,"63874-0107-10 ")
 ;;4519
 ;;21,"63874-0107-12 ")
 ;;4520
 ;;21,"63874-0107-14 ")
 ;;4521
 ;;21,"63874-0107-15 ")
 ;;4522
 ;;21,"63874-0107-16 ")
 ;;4523
 ;;21,"63874-0107-20 ")
 ;;4524
 ;;21,"63874-0107-28 ")
 ;;4525
 ;;21,"63874-0107-30 ")
 ;;4526
 ;;21,"63874-0107-40 ")
 ;;4527
 ;;21,"63874-0107-50 ")
 ;;4528
 ;;21,"63874-0107-60 ")
 ;;4529
 ;;21,"63874-0107-90 ")
 ;;4530
 ;;21,"63874-0108-01 ")
 ;;4531
 ;;21,"63874-0108-12 ")
 ;;4532
 ;;21,"63874-0108-14 ")
 ;;4533
 ;;21,"63874-0108-15 ")
 ;;4534
 ;;21,"63874-0108-18 ")
 ;;4535
 ;;21,"63874-0108-20 ")
 ;;4536
 ;;21,"63874-0108-24 ")
 ;;4537
 ;;21,"63874-0108-28 ")
 ;;4538
 ;;21,"63874-0108-30 ")
 ;;4539
 ;;21,"63874-0108-40 ")
 ;;4540
 ;;21,"63874-0108-60 ")
 ;;4541
 ;;21,"63874-0109-03 ")
 ;;4542
 ;;21,"63874-0110-01 ")
 ;;4543
 ;;21,"63874-0110-20 ")
 ;;4544
 ;;21,"63874-0110-28 ")
 ;;4545
 ;;21,"63874-0110-30 ")
 ;;4546
 ;;21,"63874-0110-40 ")
 ;;4547
 ;;21,"63874-0110-50 ")
 ;;4548
 ;;21,"63874-0111-01 ")
 ;;4549
 ;;21,"63874-0111-03 ")
 ;;4550
 ;;21,"63874-0111-14 ")
 ;;4551
 ;;21,"63874-0111-28 ")
 ;;4552
 ;;21,"63874-0111-30 ")
 ;;4553
 ;;21,"63874-0111-40 ")
 ;;4554
 ;;21,"63874-0112-01 ")
 ;;4555
 ;;21,"63874-0112-03 ")
 ;;4556
 ;;21,"63874-0112-14 ")
 ;;4557
 ;;21,"63874-0112-28 ")
 ;;4558
 ;;21,"63874-0112-30 ")
 ;;4559
 ;;21,"63874-0112-40 ")
 ;;4560
 ;;21,"63874-0113-01 ")
 ;;4561
 ;;21,"63874-0113-03 ")
 ;;4562
 ;;21,"63874-0113-08 ")
 ;;4563
 ;;21,"63874-0113-09 ")
 ;;4564
 ;;21,"63874-0113-10 ")
 ;;4565
 ;;21,"63874-0113-12 ")
 ;;4566
 ;;21,"63874-0113-14 ")
 ;;4567
 ;;21,"63874-0113-15 ")
 ;;4568
 ;;21,"63874-0113-20 ")
 ;;4569
 ;;21,"63874-0113-21 ")
 ;;4570
 ;;21,"63874-0113-24 ")
 ;;4571
 ;;21,"63874-0113-28 ")
 ;;4572
 ;;21,"63874-0113-30 ")
 ;;4573
 ;;21,"63874-0113-40 ")
 ;;4574
 ;;21,"63874-0113-50 ")
 ;;4575
 ;;21,"63874-0114-01 ")
 ;;4576
 ;;21,"63874-0114-03 ")
 ;;4577
 ;;21,"63874-0114-07 ")
 ;;4578
 ;;21,"63874-0114-10 ")
 ;;4579
 ;;21,"63874-0114-20 ")
 ;;4580
 ;;21,"63874-0114-21 ")
 ;;4581
 ;;21,"63874-0114-24 ")
 ;;4582
 ;;21,"63874-0114-25 ")
 ;;4583
 ;;21,"63874-0114-28 ")
 ;;4584
 ;;21,"63874-0114-30 ")
 ;;4585
 ;;21,"63874-0114-40 ")
 ;;4586
 ;;21,"63874-0114-50 ")
 ;;4587
 ;;21,"63874-0118-01 ")
 ;;4588
 ;;21,"63874-0118-03 ")
 ;;4589
 ;;21,"63874-0118-06 ")
 ;;4590
 ;;21,"63874-0118-07 ")
 ;;4591
 ;;21,"63874-0118-10 ")
 ;;4592
 ;;21,"63874-0118-12 ")
 ;;4593
 ;;21,"63874-0118-14 ")
 ;;4594
 ;;21,"63874-0118-15 ")
 ;;4595
 ;;21,"63874-0118-18 ")
 ;;4596
 ;;21,"63874-0118-20 ")
 ;;4597
 ;;21,"63874-0118-21 ")
 ;;4598
 ;;21,"63874-0118-24 ")
 ;;4599
 ;;21,"63874-0118-28 ")
 ;;4600
 ;;21,"63874-0118-30 ")
 ;;4601
 ;;21,"63874-0118-40 ")
 ;;4602
 ;;21,"63874-0118-50 ")
 ;;4603
 ;;21,"63874-0118-60 ")
 ;;4604
 ;;21,"63874-0119-01 ")
 ;;4605
 ;;21,"63874-0119-21 ")
 ;;4606
 ;;21,"63874-0119-30 ")
 ;;4607
 ;;21,"63874-0120-01 ")
 ;;4608
 ;;21,"63874-0120-12 ")
 ;;4609
 ;;21,"63874-0120-20 ")
 ;;4610
 ;;21,"63874-0120-30 ")
 ;;4611
 ;;21,"63874-0123-01 ")
 ;;4612
 ;;21,"63874-0123-12 ")
 ;;4613
 ;;21,"63874-0123-14 ")
 ;;4614
 ;;21,"63874-0123-15 ")
 ;;4615
 ;;21,"63874-0123-20 ")
 ;;4616
 ;;21,"63874-0123-21 ")
 ;;4617
 ;;21,"63874-0123-24 ")
 ;;4618
 ;;21,"63874-0123-28 ")
 ;;4619
 ;;21,"63874-0123-30 ")
 ;;4620
 ;;21,"63874-0123-40 ")
 ;;4621
 ;;21,"63874-0123-50 ")
 ;;4622
 ;;21,"63874-0123-60 ")
 ;;4623
 ;;21,"63874-0125-01 ")
 ;;4624
 ;;21,"63874-0125-02 ")
 ;;4625
 ;;21,"63874-0125-10 ")
 ;;4626
 ;;21,"63874-0125-14 ")
 ;;4627
 ;;21,"63874-0125-15 ")
 ;;4628
 ;;21,"63874-0125-20 ")
 ;;4629
 ;;21,"63874-0125-21 ")
 ;;4630
 ;;21,"63874-0125-24 ")
 ;;4631
 ;;21,"63874-0125-28 ")
 ;;4632
 ;;21,"63874-0125-30 ")
 ;;4633
 ;;21,"63874-0125-40 ")
 ;;4634
 ;;21,"63874-0125-60 ")
 ;;4635
 ;;21,"63874-0125-80 ")
 ;;4636
 ;;21,"63874-0127-01 ")
 ;;4637
 ;;21,"63874-0127-05 ")
 ;;4638
 ;;21,"63874-0127-18 ")
 ;;4639
 ;;21,"63874-0127-20 ")
 ;;4640
 ;;21,"63874-0127-21 ")
 ;;4641
 ;;21,"63874-0127-28 ")
 ;;4642
 ;;21,"63874-0127-30 ")
 ;;4643
 ;;21,"63874-0127-40 ")
 ;;4644
 ;;21,"63874-0127-42 ")
 ;;4645
 ;;21,"63874-0143-10 ")
 ;;4646
 ;;21,"63874-0143-15 ")
 ;;4647
 ;;21,"63874-0143-80 ")
 ;;4648
 ;;21,"63874-0144-10 ")
 ;;4649
 ;;21,"63874-0144-15 ")
 ;;4650
 ;;21,"63874-0146-10 ")
 ;;4651
 ;;21,"63874-0146-15 ")
 ;;4652
 ;;21,"63874-0146-20 ")
 ;;4653
 ;;21,"63874-0150-10 ")
 ;;4654
 ;;21,"63874-0150-20 ")
 ;;4655
 ;;21,"63874-0155-10 ")
 ;;4656
 ;;21,"63874-0155-20 ")
 ;;4657
 ;;21,"63874-0156-10 ")
 ;;4658
 ;;21,"63874-0156-15 ")
 ;;4659
 ;;21,"63874-0156-20 ")
 ;;4660
 ;;21,"63874-0159-10 ")
 ;;4661
 ;;21,"63874-0159-20 ")
 ;;4662
 ;;21,"63874-0160-10 ")
 ;;4663
 ;;21,"63874-0160-20 ")
 ;;4664
 ;;21,"63874-0160-48 ")
 ;;4665
 ;;21,"63874-0166-10 ")
 ;;4666
 ;;21,"63874-0166-20 ")
 ;;4667
 ;;21,"63874-0170-10 ")
 ;;4668
 ;;21,"63874-0170-20 ")
 ;;4669
 ;;21,"63874-0232-01 ")
 ;;4670
 ;;21,"63874-0232-02 ")
 ;;4671
 ;;21,"63874-0232-03 ")
 ;;4672
 ;;21,"63874-0232-10 ")
 ;;4673
 ;;21,"63874-0232-12 ")
 ;;4674
 ;;21,"63874-0232-16 ")
 ;;4675
 ;;21,"63874-0232-20 ")
 ;;4676
 ;;21,"63874-0232-21 ")
 ;;4677
 ;;21,"63874-0232-24 ")
 ;;4678
 ;;21,"63874-0232-28 ")
 ;;4679
 ;;21,"63874-0232-30 ")
 ;;4680
 ;;21,"63874-0232-40 ")
 ;;4681
 ;;21,"63874-0232-50 ")
 ;;4682
 ;;21,"63874-0233-01 ")
 ;;4683
 ;;21,"63874-0233-02 ")
 ;;4684
 ;;21,"63874-0233-06 ")
 ;;4685
 ;;21,"63874-0233-10 ")
 ;;4686