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