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