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

BGPM3ABF.m

Go to the documentation of this file.
  1. BGPM3ABF ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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. ;;9002226.02101,"775,00603002622 ",.01)
  1. ;;00603002622
  1. ;;9002226.02101,"775,00603002622 ",.02)
  1. ;;00603002622
  1. ;;9002226.02101,"775,00603002632 ",.01)
  1. ;;00603002632
  1. ;;9002226.02101,"775,00603002632 ",.02)
  1. ;;00603002632
  1. ;;9002226.02101,"775,00603003121 ",.01)
  1. ;;00603003121
  1. ;;9002226.02101,"775,00603003121 ",.02)
  1. ;;00603003121
  1. ;;9002226.02101,"775,00603003125 ",.01)
  1. ;;00603003125
  1. ;;9002226.02101,"775,00603003125 ",.02)
  1. ;;00603003125
  1. ;;9002226.02101,"775,00603008521 ",.01)
  1. ;;00603008521
  1. ;;9002226.02101,"775,00603008521 ",.02)
  1. ;;00603008521
  1. ;;9002226.02101,"775,00603016702 ",.01)
  1. ;;00603016702
  1. ;;9002226.02101,"775,00603016702 ",.02)
  1. ;;00603016702
  1. ;;9002226.02101,"775,00603016721 ",.01)
  1. ;;00603016721
  1. ;;9002226.02101,"775,00603016721 ",.02)
  1. ;;00603016721
  1. ;;9002226.02101,"775,00603016732 ",.01)
  1. ;;00603016732
  1. ;;9002226.02101,"775,00603016732 ",.02)
  1. ;;00603016732
  1. ;;9002226.02101,"775,00603016821 ",.01)
  1. ;;00603016821
  1. ;;9002226.02101,"775,00603016821 ",.02)
  1. ;;00603016821
  1. ;;9002226.02101,"775,00603016902 ",.01)
  1. ;;00603016902
  1. ;;9002226.02101,"775,00603016902 ",.02)
  1. ;;00603016902
  1. ;;9002226.02101,"775,00603016921 ",.01)
  1. ;;00603016921
  1. ;;9002226.02101,"775,00603016921 ",.02)
  1. ;;00603016921
  1. ;;9002226.02101,"775,00603016932 ",.01)
  1. ;;00603016932
  1. ;;9002226.02101,"775,00603016932 ",.02)
  1. ;;00603016932
  1. ;;9002226.02101,"775,00603806511 ",.01)
  1. ;;00603806511
  1. ;;9002226.02101,"775,00603806511 ",.02)
  1. ;;00603806511
  1. ;;9002226.02101,"775,00603806611 ",.01)
  1. ;;00603806611
  1. ;;9002226.02101,"775,00603806611 ",.02)
  1. ;;00603806611
  1. ;;9002226.02101,"775,00615052210 ",.01)
  1. ;;00615052210
  1. ;;9002226.02101,"775,00615052210 ",.02)
  1. ;;00615052210
  1. ;;9002226.02101,"775,00615052213 ",.01)
  1. ;;00615052213
  1. ;;9002226.02101,"775,00615052213 ",.02)
  1. ;;00615052213
  1. ;;9002226.02101,"775,00615052214 ",.01)
  1. ;;00615052214
  1. ;;9002226.02101,"775,00615052214 ",.02)
  1. ;;00615052214
  1. ;;9002226.02101,"775,00615052263 ",.01)
  1. ;;00615052263
  1. ;;9002226.02101,"775,00615052263 ",.02)
  1. ;;00615052263
  1. ;;9002226.02101,"775,00615052310 ",.01)
  1. ;;00615052310
  1. ;;9002226.02101,"775,00615052310 ",.02)
  1. ;;00615052310
  1. ;;9002226.02101,"775,00615056410 ",.01)
  1. ;;00615056410
  1. ;;9002226.02101,"775,00615056410 ",.02)
  1. ;;00615056410
  1. ;;9002226.02101,"775,00615056439 ",.01)
  1. ;;00615056439
  1. ;;9002226.02101,"775,00615056439 ",.02)
  1. ;;00615056439
  1. ;;9002226.02101,"775,00615056463 ",.01)
  1. ;;00615056463
  1. ;;9002226.02101,"775,00615056463 ",.02)
  1. ;;00615056463
  1. ;;9002226.02101,"775,00615150905 ",.01)
  1. ;;00615150905
  1. ;;9002226.02101,"775,00615150905 ",.02)
  1. ;;00615150905
  1. ;;9002226.02101,"775,00615150929 ",.01)
  1. ;;00615150929
  1. ;;9002226.02101,"775,00615150929 ",.02)
  1. ;;00615150929
  1. ;;9002226.02101,"775,00615150939 ",.01)
  1. ;;00615150939
  1. ;;9002226.02101,"775,00615150939 ",.02)
  1. ;;00615150939
  1. ;;9002226.02101,"775,00615151005 ",.01)
  1. ;;00615151005
  1. ;;9002226.02101,"775,00615151005 ",.02)
  1. ;;00615151005
  1. ;;9002226.02101,"775,00615151029 ",.01)
  1. ;;00615151029
  1. ;;9002226.02101,"775,00615151029 ",.02)
  1. ;;00615151029
  1. ;;9002226.02101,"775,00615151039 ",.01)
  1. ;;00615151039
  1. ;;9002226.02101,"775,00615151039 ",.02)
  1. ;;00615151039
  1. ;;9002226.02101,"775,00615151205 ",.01)
  1. ;;00615151205
  1. ;;9002226.02101,"775,00615151205 ",.02)
  1. ;;00615151205
  1. ;;9002226.02101,"775,00615151229 ",.01)
  1. ;;00615151229
  1. ;;9002226.02101,"775,00615151229 ",.02)
  1. ;;00615151229
  1. ;;9002226.02101,"775,00615151239 ",.01)
  1. ;;00615151239
  1. ;;9002226.02101,"775,00615151239 ",.02)
  1. ;;00615151239
  1. ;;9002226.02101,"775,00615350863 ",.01)
  1. ;;00615350863
  1. ;;9002226.02101,"775,00615350863 ",.02)
  1. ;;00615350863
  1. ;;9002226.02101,"775,00615454729 ",.01)
  1. ;;00615454729
  1. ;;9002226.02101,"775,00615454729 ",.02)
  1. ;;00615454729
  1. ;;9002226.02101,"775,00615454739 ",.01)
  1. ;;00615454739
  1. ;;9002226.02101,"775,00615454739 ",.02)
  1. ;;00615454739
  1. ;;9002226.02101,"775,00615454805 ",.01)
  1. ;;00615454805
  1. ;;9002226.02101,"775,00615454805 ",.02)
  1. ;;00615454805
  1. ;;9002226.02101,"775,00615454829 ",.01)
  1. ;;00615454829
  1. ;;9002226.02101,"775,00615454829 ",.02)
  1. ;;00615454829
  1. ;;9002226.02101,"775,00615454831 ",.01)
  1. ;;00615454831
  1. ;;9002226.02101,"775,00615454831 ",.02)
  1. ;;00615454831
  1. ;;9002226.02101,"775,00615454839 ",.01)
  1. ;;00615454839
  1. ;;9002226.02101,"775,00615454839 ",.02)
  1. ;;00615454839
  1. ;;9002226.02101,"775,00615454905 ",.01)
  1. ;;00615454905
  1. ;;9002226.02101,"775,00615454905 ",.02)
  1. ;;00615454905
  1. ;;9002226.02101,"775,00615454929 ",.01)
  1. ;;00615454929
  1. ;;9002226.02101,"775,00615454929 ",.02)
  1. ;;00615454929
  1. ;;9002226.02101,"775,00615454939 ",.01)
  1. ;;00615454939
  1. ;;9002226.02101,"775,00615454939 ",.02)
  1. ;;00615454939
  1. ;;9002226.02101,"775,00615455029 ",.01)
  1. ;;00615455029
  1. ;;9002226.02101,"775,00615455029 ",.02)
  1. ;;00615455029
  1. ;;9002226.02101,"775,00615455031 ",.01)
  1. ;;00615455031
  1. ;;9002226.02101,"775,00615455031 ",.02)
  1. ;;00615455031
  1. ;;9002226.02101,"775,00615455039 ",.01)
  1. ;;00615455039
  1. ;;9002226.02101,"775,00615455039 ",.02)
  1. ;;00615455039
  1. ;;9002226.02101,"775,00615455129 ",.01)
  1. ;;00615455129
  1. ;;9002226.02101,"775,00615455129 ",.02)
  1. ;;00615455129
  1. ;;9002226.02101,"775,00641039102 ",.01)
  1. ;;00641039102
  1. ;;9002226.02101,"775,00641039102 ",.02)
  1. ;;00641039102
  1. ;;9002226.02101,"775,00641039125 ",.01)
  1. ;;00641039125
  1. ;;9002226.02101,"775,00641039125 ",.02)
  1. ;;00641039125
  1. ;;9002226.02101,"775,00641039164 ",.01)
  1. ;;00641039164
  1. ;;9002226.02101,"775,00641039164 ",.02)
  1. ;;00641039164
  1. ;;9002226.02101,"775,00641040002 ",.01)
  1. ;;00641040002
  1. ;;9002226.02101,"775,00641040002 ",.02)
  1. ;;00641040002
  1. ;;9002226.02101,"775,00641040021 ",.01)
  1. ;;00641040021
  1. ;;9002226.02101,"775,00641040021 ",.02)
  1. ;;00641040021
  1. ;;9002226.02101,"775,00641040025 ",.01)
  1. ;;00641040025
  1. ;;9002226.02101,"775,00641040025 ",.02)
  1. ;;00641040025
  1. ;;9002226.02101,"775,00641040064 ",.01)
  1. ;;00641040064
  1. ;;9002226.02101,"775,00641040064 ",.02)
  1. ;;00641040064
  1. ;;9002226.02101,"775,00641040125 ",.01)
  1. ;;00641040125
  1. ;;9002226.02101,"775,00641040125 ",.02)
  1. ;;00641040125
  1. ;;9002226.02101,"775,00641041002 ",.01)
  1. ;;00641041002
  1. ;;9002226.02101,"775,00641041002 ",.02)
  1. ;;00641041002
  1. ;;9002226.02101,"775,00641041025 ",.01)
  1. ;;00641041025
  1. ;;9002226.02101,"775,00641041025 ",.02)
  1. ;;00641041025
  1. ;;9002226.02101,"775,00641041064 ",.01)
  1. ;;00641041064
  1. ;;9002226.02101,"775,00641041064 ",.02)
  1. ;;00641041064
  1. ;;9002226.02101,"775,00641244041 ",.01)
  1. ;;00641244041
  1. ;;9002226.02101,"775,00641244041 ",.02)
  1. ;;00641244041
  1. ;;9002226.02101,"775,00641244045 ",.01)
  1. ;;00641244045
  1. ;;9002226.02101,"775,00641244045 ",.02)
  1. ;;00641244045
  1. ;;9002226.02101,"775,00641245041 ",.01)
  1. ;;00641245041
  1. ;;9002226.02101,"775,00641245041 ",.02)
  1. ;;00641245041
  1. ;;9002226.02101,"775,00641245045 ",.01)
  1. ;;00641245045
  1. ;;9002226.02101,"775,00641245045 ",.02)
  1. ;;00641245045
  1. ;;9002226.02101,"775,00641246041 ",.01)
  1. ;;00641246041
  1. ;;9002226.02101,"775,00641246041 ",.02)
  1. ;;00641246041
  1. ;;9002226.02101,"775,00641246045 ",.01)
  1. ;;00641246045
  1. ;;9002226.02101,"775,00641246045 ",.02)
  1. ;;00641246045
  1. ;;9002226.02101,"775,00641247041 ",.01)
  1. ;;00641247041
  1. ;;9002226.02101,"775,00641247041 ",.02)
  1. ;;00641247041
  1. ;;9002226.02101,"775,00641247045 ",.01)
  1. ;;00641247045
  1. ;;9002226.02101,"775,00641247045 ",.02)
  1. ;;00641247045
  1. ;;9002226.02101,"775,00641326209 ",.01)
  1. ;;00641326209
  1. ;;9002226.02101,"775,00641326209 ",.02)
  1. ;;00641326209
  1. ;;9002226.02101,"775,00641326403 ",.01)
  1. ;;00641326403
  1. ;;9002226.02101,"775,00641326403 ",.02)
  1. ;;00641326403
  1. ;;9002226.02101,"775,00641326503 ",.01)
  1. ;;00641326503
  1. ;;9002226.02101,"775,00641326503 ",.02)
  1. ;;00641326503
  1. ;;9002226.02101,"775,00641326603 ",.01)
  1. ;;00641326603
  1. ;;9002226.02101,"775,00641326603 ",.02)
  1. ;;00641326603
  1. ;;9002226.02101,"775,00641326703 ",.01)
  1. ;;00641326703
  1. ;;9002226.02101,"775,00641326703 ",.02)
  1. ;;00641326703
  1. ;;9002226.02101,"775,00641326803 ",.01)
  1. ;;00641326803
  1. ;;9002226.02101,"775,00641326803 ",.02)
  1. ;;00641326803
  1. ;;9002226.02101,"775,00677001710 ",.01)
  1. ;;00677001710
  1. ;;9002226.02101,"775,00677001710 ",.02)
  1. ;;00677001710
  1. ;;9002226.02101,"775,00677002001 ",.01)
  1. ;;00677002001
  1. ;;9002226.02101,"775,00677002001 ",.02)
  1. ;;00677002001
  1. ;;9002226.02101,"775,00677002010 ",.01)
  1. ;;00677002010
  1. ;;9002226.02101,"775,00677002010 ",.02)
  1. ;;00677002010
  1. ;;9002226.02101,"775,00677027521 ",.01)
  1. ;;00677027521
  1. ;;9002226.02101,"775,00677027521 ",.02)
  1. ;;00677027521
  1. ;;9002226.02101,"775,00677077101 ",.01)
  1. ;;00677077101
  1. ;;9002226.02101,"775,00677077101 ",.02)
  1. ;;00677077101
  1. ;;9002226.02101,"775,00677077110 ",.01)
  1. ;;00677077110
  1. ;;9002226.02101,"775,00677077110 ",.02)
  1. ;;00677077110
  1. ;;9002226.02101,"775,00677077201 ",.01)
  1. ;;00677077201
  1. ;;9002226.02101,"775,00677077201 ",.02)
  1. ;;00677077201
  1. ;;9002226.02101,"775,00677077812 ",.01)
  1. ;;00677077812
  1. ;;9002226.02101,"775,00677077812 ",.02)
  1. ;;00677077812
  1. ;;9002226.02101,"775,00677077912 ",.01)
  1. ;;00677077912
  1. ;;9002226.02101,"775,00677077912 ",.02)
  1. ;;00677077912
  1. ;;9002226.02101,"775,00677079301 ",.01)
  1. ;;00677079301
  1. ;;9002226.02101,"775,00677079301 ",.02)
  1. ;;00677079301
  1. ;;9002226.02101,"775,00677079401 ",.01)
  1. ;;00677079401
  1. ;;9002226.02101,"775,00677079401 ",.02)
  1. ;;00677079401
  1. ;;9002226.02101,"775,00677085001 ",.01)
  1. ;;00677085001
  1. ;;9002226.02101,"775,00677085001 ",.02)
  1. ;;00677085001
  1. ;;9002226.02101,"775,00677085101 ",.01)
  1. ;;00677085101
  1. ;;9002226.02101,"775,00677085101 ",.02)
  1. ;;00677085101
  1. ;;9002226.02101,"775,00677117201 ",.01)
  1. ;;00677117201
  1. ;;9002226.02101,"775,00677117201 ",.02)
  1. ;;00677117201
  1. ;;9002226.02101,"775,00677134701 ",.01)
  1. ;;00677134701
  1. ;;9002226.02101,"775,00677134701 ",.02)
  1. ;;00677134701
  1. ;;9002226.02101,"775,00677179901 ",.01)
  1. ;;00677179901
  1. ;;9002226.02101,"775,00677179901 ",.02)
  1. ;;00677179901
  1. ;;9002226.02101,"775,00677185301 ",.01)
  1. ;;00677185301
  1. ;;9002226.02101,"775,00677185301 ",.02)
  1. ;;00677185301
  1. ;;9002226.02101,"775,00677185310 ",.01)
  1. ;;00677185310
  1. ;;9002226.02101,"775,00677185310 ",.02)
  1. ;;00677185310
  1. ;;9002226.02101,"775,00677185408 ",.01)
  1. ;;00677185408
  1. ;;9002226.02101,"775,00677185408 ",.02)
  1. ;;00677185408
  1. ;;9002226.02101,"775,00677185510 ",.01)
  1. ;;00677185510
  1. ;;9002226.02101,"775,00677185510 ",.02)
  1. ;;00677185510
  1. ;;9002226.02101,"775,00677185567 ",.01)
  1. ;;00677185567
  1. ;;9002226.02101,"775,00677185567 ",.02)
  1. ;;00677185567
  1. ;;9002226.02101,"775,00677197101 ",.01)
  1. ;;00677197101
  1. ;;9002226.02101,"775,00677197101 ",.02)
  1. ;;00677197101
  1. ;;9002226.02101,"775,00677197110 ",.01)
  1. ;;00677197110
  1. ;;9002226.02101,"775,00677197110 ",.02)
  1. ;;00677197110
  1. ;;9002226.02101,"775,00677197210 ",.01)
  1. ;;00677197210
  1. ;;9002226.02101,"775,00677197210 ",.02)
  1. ;;00677197210
  1. ;;9002226.02101,"775,00677197708 ",.01)
  1. ;;00677197708
  1. ;;9002226.02101,"775,00677197708 ",.02)
  1. ;;00677197708
  1. ;;9002226.02101,"775,00686000520 ",.01)
  1. ;;00686000520
  1. ;;9002226.02101,"775,00686000520 ",.02)
  1. ;;00686000520
  1. ;;9002226.02101,"775,00686001101 ",.01)
  1. ;;00686001101
  1. ;;9002226.02101,"775,00686001101 ",.02)
  1. ;;00686001101
  1. ;;9002226.02101,"775,00686001105 ",.01)
  1. ;;00686001105
  1. ;;9002226.02101,"775,00686001105 ",.02)
  1. ;;00686001105
  1. ;;9002226.02101,"775,00686001910 ",.01)
  1. ;;00686001910
  1. ;;9002226.02101,"775,00686001910 ",.02)
  1. ;;00686001910
  1. ;;9002226.02101,"775,00713010401 ",.01)
  1. ;;00713010401
  1. ;;9002226.02101,"775,00713010401 ",.02)
  1. ;;00713010401
  1. ;;9002226.02101,"775,00713010412 ",.01)
  1. ;;00713010412
  1. ;;9002226.02101,"775,00713010412 ",.02)
  1. ;;00713010412
  1. ;;9002226.02101,"775,00713010450 ",.01)
  1. ;;00713010450
  1. ;;9002226.02101,"775,00713010450 ",.02)
  1. ;;00713010450