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

BGPM5ATM.m

Go to the documentation of this file.
BGPM5ATM ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"00480778101 ")
 ;;7487
 ;;21,"00480778201 ")
 ;;7488
 ;;21,"00480778203 ")
 ;;7489
 ;;21,"00480778301 ")
 ;;7490
 ;;21,"00480778303 ")
 ;;7491
 ;;21,"00480778401 ")
 ;;7492
 ;;21,"00480778404 ")
 ;;7493
 ;;21,"00480778501 ")
 ;;7494
 ;;21,"00480778503 ")
 ;;7495
 ;;21,"00490709800 ")
 ;;7496
 ;;21,"00490709801 ")
 ;;7497
 ;;21,"00490709802 ")
 ;;7498
 ;;21,"00490709803 ")
 ;;7499
 ;;21,"00490709804 ")
 ;;7500
 ;;21,"00490709805 ")
 ;;7501
 ;;21,"00490709806 ")
 ;;7502
 ;;21,"00490709807 ")
 ;;7503
 ;;21,"00490709808 ")
 ;;7504
 ;;21,"00490709809 ")
 ;;7505
 ;;21,"00490709810 ")
 ;;7506
 ;;21,"00490709812 ")
 ;;7507
 ;;21,"00490709814 ")
 ;;7508
 ;;21,"00490709815 ")
 ;;7509
 ;;21,"00490709816 ")
 ;;7510
 ;;21,"00490709818 ")
 ;;7511
 ;;21,"00490709820 ")
 ;;7512
 ;;21,"00490709821 ")
 ;;7513
 ;;21,"00490709824 ")
 ;;7514
 ;;21,"00490709825 ")
 ;;7515
 ;;21,"00490709826 ")
 ;;7516
 ;;21,"00490709827 ")
 ;;7517
 ;;21,"00490709828 ")
 ;;7518
 ;;21,"00490709830 ")
 ;;7519
 ;;21,"00490709832 ")
 ;;7520
 ;;21,"00490709835 ")
 ;;7521
 ;;21,"00490709836 ")
 ;;7522
 ;;21,"00490709840 ")
 ;;7523
 ;;21,"00490709842 ")
 ;;7524
 ;;21,"00490709844 ")
 ;;7525
 ;;21,"00490709845 ")
 ;;7526
 ;;21,"00490709848 ")
 ;;7527
 ;;21,"00490709850 ")
 ;;7528
 ;;21,"00490709856 ")
 ;;7529
 ;;21,"00490709860 ")
 ;;7530
 ;;21,"00490709867 ")
 ;;7531
 ;;21,"00490709869 ")
 ;;7532
 ;;21,"00490709870 ")
 ;;7533
 ;;21,"00490709871 ")
 ;;7534
 ;;21,"00490709872 ")
 ;;7535
 ;;21,"00490709873 ")
 ;;7536
 ;;21,"00490709875 ")
 ;;7537
 ;;21,"00490709876 ")
 ;;7538
 ;;21,"00490709877 ")
 ;;7539
 ;;21,"00490709879 ")
 ;;7540
 ;;21,"00490709880 ")
 ;;7541
 ;;21,"00490709881 ")
 ;;7542
 ;;21,"00490709882 ")
 ;;7543
 ;;21,"00490709883 ")
 ;;7544
 ;;21,"00490709884 ")
 ;;7545
 ;;21,"00490709887 ")
 ;;7546
 ;;21,"00490709889 ")
 ;;7547
 ;;21,"00490709890 ")
 ;;7548
 ;;21,"00490709891 ")
 ;;7549
 ;;21,"00490709892 ")
 ;;7550
 ;;21,"00490709893 ")
 ;;7551
 ;;21,"00490709896 ")
 ;;7552
 ;;21,"00490709897 ")
 ;;7553
 ;;21,"00490709898 ")
 ;;7554
 ;;21,"00490709899 ")
 ;;7555
 ;;21,"00490714601 ")
 ;;7556
 ;;21,"00490714602 ")
 ;;7557
 ;;21,"00490714603 ")
 ;;7558
 ;;21,"00490714604 ")
 ;;7559
 ;;21,"00490714605 ")
 ;;7560
 ;;21,"00490714606 ")
 ;;7561
 ;;21,"00490714607 ")
 ;;7562
 ;;21,"00490714608 ")
 ;;7563
 ;;21,"00490714609 ")
 ;;7564
 ;;21,"00490714610 ")
 ;;7565
 ;;21,"00490714612 ")
 ;;7566
 ;;21,"00490714614 ")
 ;;7567
 ;;21,"00490714615 ")
 ;;7568
 ;;21,"00490714616 ")
 ;;7569
 ;;21,"00490714618 ")
 ;;7570
 ;;21,"00490714620 ")
 ;;7571
 ;;21,"00490714621 ")
 ;;7572
 ;;21,"00490714624 ")
 ;;7573
 ;;21,"00490714625 ")
 ;;7574
 ;;21,"00490714626 ")
 ;;7575
 ;;21,"00490714627 ")
 ;;7576
 ;;21,"00490714628 ")
 ;;7577
 ;;21,"00490714630 ")
 ;;7578
 ;;21,"00490714632 ")
 ;;7579
 ;;21,"00490714635 ")
 ;;7580
 ;;21,"00490714636 ")
 ;;7581
 ;;21,"00490714640 ")
 ;;7582
 ;;21,"00490714642 ")
 ;;7583
 ;;21,"00490714644 ")
 ;;7584
 ;;21,"00490714645 ")
 ;;7585
 ;;21,"00490714648 ")
 ;;7586
 ;;21,"00490714650 ")
 ;;7587
 ;;21,"00490714656 ")
 ;;7588
 ;;21,"00490714660 ")
 ;;7589
 ;;21,"00490714667 ")
 ;;7590
 ;;21,"00490714669 ")
 ;;7591
 ;;21,"00490714670 ")
 ;;7592
 ;;21,"00490714671 ")
 ;;7593
 ;;21,"00490714672 ")
 ;;7594
 ;;21,"00490714673 ")
 ;;7595
 ;;21,"00490714675 ")
 ;;7596
 ;;21,"00490714676 ")
 ;;7597
 ;;21,"00490714677 ")
 ;;7598
 ;;21,"00490714679 ")
 ;;7599
 ;;21,"00490714680 ")
 ;;7600
 ;;21,"00490714681 ")
 ;;7601
 ;;21,"00490714682 ")
 ;;7602
 ;;21,"00490714683 ")
 ;;7603
 ;;21,"00490714684 ")
 ;;7604
 ;;21,"00490714687 ")
 ;;7605
 ;;21,"00490714689 ")
 ;;7606
 ;;21,"00490714690 ")
 ;;7607
 ;;21,"00490714691 ")
 ;;7608
 ;;21,"00490714692 ")
 ;;7609
 ;;21,"00490714693 ")
 ;;7610
 ;;21,"00517871110 ")
 ;;7611
 ;;21,"00517872210 ")
 ;;7612
 ;;21,"00517872510 ")
 ;;7613
 ;;21,"00517875010 ")
 ;;7614
 ;;21,"00527133501 ")
 ;;7615
 ;;21,"00527133601 ")
 ;;7616
 ;;21,"00527133606 ")
 ;;7617
 ;;21,"00527133610 ")
 ;;7618
 ;;21,"00527133825 ")
 ;;7619
 ;;21,"00527133850 ")
 ;;7620
 ;;21,"00527138101 ")
 ;;7621
 ;;21,"00527138104 ")
 ;;7622
 ;;21,"00527138201 ")
 ;;7623
 ;;21,"00527138301 ")
 ;;7624
 ;;21,"00527138302 ")
 ;;7625
 ;;21,"00527138401 ")
 ;;7626
 ;;21,"00527138501 ")
 ;;7627
 ;;21,"00527138650 ")
 ;;7628
 ;;21,"00527144201 ")
 ;;7629
 ;;21,"00527144301 ")
 ;;7630
 ;;21,"00527144305 ")
 ;;7631
 ;;21,"00527153501 ")
 ;;7632
 ;;21,"00527153701 ")
 ;;7633
 ;;21,"00527153730 ")
 ;;7634
 ;;21,"00555001002 ")
 ;;7635
 ;;21,"00555001005 ")
 ;;7636
 ;;21,"00555001102 ")
 ;;7637
 ;;21,"00555001105 ")
 ;;7638
 ;;21,"00555001302 ")
 ;;7639
 ;;21,"00555001304 ")
 ;;7640
 ;;21,"00555001305 ")
 ;;7641
 ;;21,"00555001313 ")
 ;;7642
 ;;21,"00555017801 ")
 ;;7643
 ;;21,"00555017802 ")
 ;;7644
 ;;21,"00555017901 ")
 ;;7645
 ;;21,"00555017902 ")
 ;;7646
 ;;21,"00555018001 ")
 ;;7647
 ;;21,"00555018002 ")
 ;;7648
 ;;21,"00555021522 ")
 ;;7649
 ;;21,"00555021523 ")
 ;;7650
 ;;21,"00555023002 ")
 ;;7651
 ;;21,"00555025902 ")
 ;;7652
 ;;21,"00555025904 ")
 ;;7653
 ;;21,"00555037987 ")
 ;;7654
 ;;21,"00555038087 ")
 ;;7655
 ;;21,"00555044521 ")
 ;;7656
 ;;21,"00555044522 ")
 ;;7657
 ;;21,"00555044523 ")
 ;;7658
 ;;21,"00555044536 ")
 ;;7659
 ;;21,"00555051210 ")
 ;;7660
 ;;21,"00555051402 ")
 ;;7661
 ;;21,"00555051404 ")
 ;;7662
 ;;21,"00555051418 ")
 ;;7663
 ;;21,"00555051502 ")
 ;;7664
 ;;21,"00555051504 ")
 ;;7665
 ;;21,"00555051518 ")
 ;;7666
 ;;21,"00555052522 ")
 ;;7667
 ;;21,"00555052523 ")
 ;;7668
 ;;21,"00555052528 ")
 ;;7669
 ;;21,"00555052622 ")
 ;;7670
 ;;21,"00555052623 ")
 ;;7671
 ;;21,"00555058202 ")
 ;;7672
 ;;21,"00555058210 ")
 ;;7673
 ;;21,"00555058218 ")
 ;;7674
 ;;21,"00555069402 ")
 ;;7675
 ;;21,"00555069502 ")
 ;;7676
 ;;21,"00555069610 ")
 ;;7677
 ;;21,"00555081402 ")
 ;;7678
 ;;21,"00555081403 ")
 ;;7679
 ;;21,"00555081405 ")
 ;;7680
 ;;21,"00555081502 ")
 ;;7681
 ;;21,"00555081503 ")
 ;;7682
 ;;21,"00555081505 ")
 ;;7683
 ;;21,"00555081602 ")
 ;;7684
 ;;21,"00555081603 ")
 ;;7685
 ;;21,"00555081605 ")
 ;;7686
 ;;21,"00555081610 ")
 ;;7687
 ;;21,"00574012901 ")
 ;;7688
 ;;21,"00591030901 ")
 ;;7689
 ;;21,"00591031025 ")
 ;;7690
 ;;21,"00591031050 ")
 ;;7691
 ;;21,"00591041001 ")
 ;;7692
 ;;21,"00591041125 ")
 ;;7693
 ;;21,"00591041150 ")
 ;;7694
 ;;21,"00591049905 ")
 ;;7695
 ;;21,"00591049950 ")
 ;;7696
 ;;21,"00591223401 ")
 ;;7697
 ;;21,"00591223410 ")
 ;;7698
 ;;21,"00591223501 ")
 ;;7699
 ;;21,"00591223510 ")
 ;;7700
 ;;21,"00591236569 ")
 ;;7701
 ;;21,"00591240401 ")
 ;;7702
 ;;21,"00591247401 ")
 ;;7703
 ;;21,"00591247410 ")
 ;;7704
 ;;21,"00591247501 ")
 ;;7705
 ;;21,"00591247510 ")
 ;;7706
 ;;21,"00591312001 ")
 ;;7707
 ;;21,"00591312016 ")
 ;;7708
 ;;21,"00591315300 ")
 ;;7709
 ;;21,"00591315301 ")
 ;;7710
 ;;21,"00591322415 ")
 ;;7711
 ;;21,"00591322560 ")
 ;;7712
 ;;21,"00591354969 ")
 ;;7713
 ;;21,"00591355068 ")
 ;;7714
 ;;21,"00591396111 ")
 ;;7715
 ;;21,"00591544005 ")
 ;;7716
 ;;21,"00591544050 ")
 ;;7717
 ;;21,"00591553550 ")
 ;;7718
 ;;21,"00591554601 ")
 ;;7719
 ;;21,"00591554605 ")
 ;;7720
 ;;21,"00591554701 ")
 ;;7721
 ;;21,"00591555305 ")
 ;;7722
 ;;21,"00591555350 ")
 ;;7723
 ;;21,"00591557101 ")
 ;;7724
 ;;21,"00591569401 ")
 ;;7725
 ;;21,"00591569460 ")
 ;;7726
 ;;21,"00591569500 ")
 ;;7727
 ;;21,"00591569550 ")
 ;;7728
 ;;21,"00591570801 ")
 ;;7729
 ;;21,"00603168454 ")
 ;;7730
 ;;21,"00603168458 ")
 ;;7731
 ;;21,"00603168554 ")
 ;;7732
 ;;21,"00603168558 ")
 ;;7733
 ;;21,"00603226621 ")
 ;;7734
 ;;21,"00603226628 ")
 ;;7735
 ;;21,"00603226719 ")
 ;;7736
 ;;21,"00603226728 ")
 ;;7737
 ;;21,"00603258621 ")
 ;;7738
 ;;21,"00603258721 ")
 ;;7739
 ;;21,"00603259521 ")
 ;;7740
 ;;21,"00603259528 ")
 ;;7741
 ;;21,"00603259621 ")
 ;;7742
 ;;21,"00603259628 ")
 ;;7743
 ;;21,"00603348019 ")
 ;;7744
 ;;21,"00603348119 ")
 ;;7745
 ;;21,"00603348128 ")
 ;;7746
 ;;21,"00603348219 ")
 ;;7747
 ;;21,"00603348228 ")
 ;;7748
 ;;21,"00603577821 ")
 ;;7749
 ;;21,"00603577921 ")
 ;;7750
 ;;21,"00603577928 ")
 ;;7751
 ;;21,"00603578010 ")
 ;;7752
 ;;21,"00603578021 ")
 ;;7753
 ;;21,"00603578028 ")
 ;;7754
 ;;21,"00603578032 ")
 ;;7755
 ;;21,"00603578110 ")
 ;;7756
 ;;21,"00603578121 ")
 ;;7757
 ;;21,"00603578128 ")
 ;;7758
 ;;21,"00603591921 ")
 ;;7759
 ;;21,"00603591932 ")
 ;;7760
 ;;21,"00603592021 ")
 ;;7761
 ;;21,"00603592032 ")
 ;;7762
 ;;21,"00603650064 ")
 ;;7763
 ;;21,"00603650066 ")
 ;;7764
 ;;21,"00603650084 ")
 ;;7765
 ;;21,"00603650164 ")
 ;;7766
 ;;21,"00603650166 ")
 ;;7767
 ;;21,"00603654164 ")
 ;;7768
 ;;21,"00603654168 ")
 ;;7769
 ;;21,"00603654264 ")
 ;;7770
 ;;21,"00603654268 ")
 ;;7771
 ;;21,"00603853747 ")
 ;;7772
 ;;21,"00615017031 ")
 ;;7773
 ;;21,"00615017039 ")
 ;;7774
 ;;21,"00641276441 ")
 ;;7775
 ;;21,"00641276443 ")
 ;;7776
 ;;21,"00641276541 ")
 ;;7777
 ;;21,"00641276543 ")
 ;;7778
 ;;21,"00641276641 ")
 ;;7779
 ;;21,"00641590001 ")
 ;;7780
 ;;21,"00641590101 ")
 ;;7781
 ;;21,"00641590102 ")
 ;;7782
 ;;21,"00641590201 ")
 ;;7783
 ;;21,"00641590202 ")
 ;;7784
 ;;21,"00677143501 ")
 ;;7785
 ;;21,"00682911301 ")
 ;;7786
 ;;21,"00686314509 ")
 ;;7787
 ;;21,"00703031501 ")
 ;;7788
 ;;21,"00703031503 ")
 ;;7789
 ;;21,"00703032501 ")
 ;;7790
 ;;21,"00703032503 ")
 ;;7791
 ;;21,"00703033501 ")
 ;;7792
 ;;21,"00703033503 ")
 ;;7793
 ;;21,"00703033504 ")
 ;;7794
 ;;21,"00703034601 ")
 ;;7795
 ;;21,"00703034603 ")
 ;;7796
 ;;21,"00703035901 ")
 ;;7797
 ;;21,"00703096031 ")
 ;;7798
 ;;21,"00703096036 ")
 ;;7799
 ;;21,"00703096931 ")
 ;;7800
 ;;21,"00703096936 ")
 ;;7801
 ;;21,"00703908501 ")
 ;;7802
 ;;21,"00703908503 ")
 ;;7803
 ;;21,"00703908901 ")
 ;;7804
 ;;21,"00703910204 ")
 ;;7805
 ;;21,"00703911004 ")
 ;;7806
 ;;21,"00703912004 ")
 ;;7807
 ;;21,"00703913801 ")
 ;;7808
 ;;21,"00703950301 ")
 ;;7809
 ;;21,"00703950303 ")
 ;;7810
 ;;21,"00703951401 ")
 ;;7811
 ;;21,"00703951403 ")
 ;;7812
 ;;21,"00703952601 ")
 ;;7813
 ;;21,"00781120501 ")
 ;;7814
 ;;21,"00781120510 ")
 ;;7815
 ;;21,"00781149601 ")
 ;;7816
 ;;21,"00781149631 ")
 ;;7817
 ;;21,"00781149669 ")
 ;;7818
 ;;21,"00781161966 ")
 ;;7819
 ;;21,"00781164366 ")
 ;;7820
 ;;21,"00781165501 ")
 ;;7821
 ;;21,"00781165510 ")
 ;;7822
 ;;21,"00781183113 ")
 ;;7823
 ;;21,"00781183120 ")
 ;;7824
 ;;21,"00781185213 ")
 ;;7825
 ;;21,"00781185220 ")
 ;;7826
 ;;21,"00781187431 ")
 ;;7827
 ;;21,"00781194339 ")
 ;;7828
 ;;21,"00781194382 ")
 ;;7829
 ;;21,"00781196101 ")
 ;;7830
 ;;21,"00781196110 ")
 ;;7831
 ;;21,"00781196131 ")
 ;;7832
 ;;21,"00781196160 ")
 ;;7833
 ;;21,"00781196201 ")
 ;;7834
 ;;21,"00781196205 ")
 ;;7835
 ;;21,"00781196231 ")
 ;;7836
 ;;21,"00781196260 ")
 ;;7837
 ;;21,"00781202001 ")
 ;;7838