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

BGPM3AEH.m

Go to the documentation of this file.
  1. BGPM3AEH ;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,"807,00074628611 ",.02)
  1. ;;00074628611
  1. ;;9002226.02101,"807,00074629202 ",.01)
  1. ;;00074629202
  1. ;;9002226.02101,"807,00074629202 ",.02)
  1. ;;00074629202
  1. ;;9002226.02101,"807,00074765002 ",.01)
  1. ;;00074765002
  1. ;;9002226.02101,"807,00074765002 ",.02)
  1. ;;00074765002
  1. ;;9002226.02101,"807,00074765062 ",.01)
  1. ;;00074765062
  1. ;;9002226.02101,"807,00074765062 ",.02)
  1. ;;00074765062
  1. ;;9002226.02101,"807,00074779312 ",.01)
  1. ;;00074779312
  1. ;;9002226.02101,"807,00074779312 ",.02)
  1. ;;00074779312
  1. ;;9002226.02101,"807,00074779323 ",.01)
  1. ;;00074779323
  1. ;;9002226.02101,"807,00074779323 ",.02)
  1. ;;00074779323
  1. ;;9002226.02101,"807,00074779361 ",.01)
  1. ;;00074779361
  1. ;;9002226.02101,"807,00074779361 ",.02)
  1. ;;00074779361
  1. ;;9002226.02101,"807,00074779362 ",.01)
  1. ;;00074779362
  1. ;;9002226.02101,"807,00074779362 ",.02)
  1. ;;00074779362
  1. ;;9002226.02101,"807,00089041001 ",.01)
  1. ;;00089041001
  1. ;;9002226.02101,"807,00089041001 ",.02)
  1. ;;00089041001
  1. ;;9002226.02101,"807,00209422014 ",.01)
  1. ;;00209422014
  1. ;;9002226.02101,"807,00209422014 ",.02)
  1. ;;00209422014
  1. ;;9002226.02101,"807,00223780101 ",.01)
  1. ;;00223780101
  1. ;;9002226.02101,"807,00223780101 ",.02)
  1. ;;00223780101
  1. ;;9002226.02101,"807,00223780801 ",.01)
  1. ;;00223780801
  1. ;;9002226.02101,"807,00223780801 ",.02)
  1. ;;00223780801
  1. ;;9002226.02101,"807,00223781010 ",.01)
  1. ;;00223781010
  1. ;;9002226.02101,"807,00223781010 ",.02)
  1. ;;00223781010
  1. ;;9002226.02101,"807,00223784310 ",.01)
  1. ;;00223784310
  1. ;;9002226.02101,"807,00223784310 ",.02)
  1. ;;00223784310
  1. ;;9002226.02101,"807,00223784430 ",.01)
  1. ;;00223784430
  1. ;;9002226.02101,"807,00223784430 ",.02)
  1. ;;00223784430
  1. ;;9002226.02101,"807,00223786501 ",.01)
  1. ;;00223786501
  1. ;;9002226.02101,"807,00223786501 ",.02)
  1. ;;00223786501
  1. ;;9002226.02101,"807,00223786702 ",.01)
  1. ;;00223786702
  1. ;;9002226.02101,"807,00223786702 ",.02)
  1. ;;00223786702
  1. ;;9002226.02101,"807,00247119530 ",.01)
  1. ;;00247119530
  1. ;;9002226.02101,"807,00247119530 ",.02)
  1. ;;00247119530
  1. ;;9002226.02101,"807,00247119550 ",.01)
  1. ;;00247119550
  1. ;;9002226.02101,"807,00247119550 ",.02)
  1. ;;00247119550
  1. ;;9002226.02101,"807,00264958720 ",.01)
  1. ;;00264958720
  1. ;;9002226.02101,"807,00264958720 ",.02)
  1. ;;00264958720
  1. ;;9002226.02101,"807,00298690861 ",.01)
  1. ;;00298690861
  1. ;;9002226.02101,"807,00298690861 ",.02)
  1. ;;00298690861
  1. ;;9002226.02101,"807,00338045102 ",.01)
  1. ;;00338045102
  1. ;;9002226.02101,"807,00338045102 ",.02)
  1. ;;00338045102
  1. ;;9002226.02101,"807,00338055002 ",.01)
  1. ;;00338055002
  1. ;;9002226.02101,"807,00338055002 ",.02)
  1. ;;00338055002
  1. ;;9002226.02101,"807,00364666934 ",.01)
  1. ;;00364666934
  1. ;;9002226.02101,"807,00364666934 ",.02)
  1. ;;00364666934
  1. ;;9002226.02101,"807,00364666954 ",.01)
  1. ;;00364666954
  1. ;;9002226.02101,"807,00364666954 ",.02)
  1. ;;00364666954
  1. ;;9002226.02101,"807,00364666956 ",.01)
  1. ;;00364666956
  1. ;;9002226.02101,"807,00364666956 ",.02)
  1. ;;00364666956
  1. ;;9002226.02101,"807,00381040301 ",.01)
  1. ;;00381040301
  1. ;;9002226.02101,"807,00381040301 ",.02)
  1. ;;00381040301
  1. ;;9002226.02101,"807,00381046301 ",.01)
  1. ;;00381046301
  1. ;;9002226.02101,"807,00381046301 ",.02)
  1. ;;00381046301
  1. ;;9002226.02101,"807,00381046305 ",.01)
  1. ;;00381046305
  1. ;;9002226.02101,"807,00381046305 ",.02)
  1. ;;00381046305
  1. ;;9002226.02101,"807,00381046310 ",.01)
  1. ;;00381046310
  1. ;;9002226.02101,"807,00381046310 ",.02)
  1. ;;00381046310
  1. ;;9002226.02101,"807,00402046310 ",.01)
  1. ;;00402046310
  1. ;;9002226.02101,"807,00402046310 ",.02)
  1. ;;00402046310
  1. ;;9002226.02101,"807,00409115212 ",.01)
  1. ;;00409115212
  1. ;;9002226.02101,"807,00409115212 ",.02)
  1. ;;00409115212
  1. ;;9002226.02101,"807,00409115214 ",.01)
  1. ;;00409115214
  1. ;;9002226.02101,"807,00409115214 ",.02)
  1. ;;00409115214
  1. ;;9002226.02101,"807,00409115270 ",.01)
  1. ;;00409115270
  1. ;;9002226.02101,"807,00409115270 ",.02)
  1. ;;00409115270
  1. ;;9002226.02101,"807,00409115278 ",.01)
  1. ;;00409115278
  1. ;;9002226.02101,"807,00409115278 ",.02)
  1. ;;00409115278
  1. ;;9002226.02101,"807,00409131625 ",.01)
  1. ;;00409131625
  1. ;;9002226.02101,"807,00409131625 ",.02)
  1. ;;00409131625
  1. ;;9002226.02101,"807,00409131632 ",.01)
  1. ;;00409131632
  1. ;;9002226.02101,"807,00409131632 ",.02)
  1. ;;00409131632
  1. ;;9002226.02101,"807,00409131666 ",.01)
  1. ;;00409131666
  1. ;;9002226.02101,"807,00409131666 ",.02)
  1. ;;00409131666
  1. ;;9002226.02101,"807,00409272001 ",.01)
  1. ;;00409272001
  1. ;;9002226.02101,"807,00409272001 ",.02)
  1. ;;00409272001
  1. ;;9002226.02101,"807,00409272002 ",.01)
  1. ;;00409272002
  1. ;;9002226.02101,"807,00409272002 ",.02)
  1. ;;00409272002
  1. ;;9002226.02101,"807,00409272003 ",.01)
  1. ;;00409272003
  1. ;;9002226.02101,"807,00409272003 ",.02)
  1. ;;00409272003
  1. ;;9002226.02101,"807,00409765062 ",.01)
  1. ;;00409765062
  1. ;;9002226.02101,"807,00409765062 ",.02)
  1. ;;00409765062
  1. ;;9002226.02101,"807,00409779323 ",.01)
  1. ;;00409779323
  1. ;;9002226.02101,"807,00409779323 ",.02)
  1. ;;00409779323
  1. ;;9002226.02101,"807,00409779362 ",.01)
  1. ;;00409779362
  1. ;;9002226.02101,"807,00409779362 ",.02)
  1. ;;00409779362
  1. ;;9002226.02101,"807,00436022070 ",.01)
  1. ;;00436022070
  1. ;;9002226.02101,"807,00436022070 ",.02)
  1. ;;00436022070
  1. ;;9002226.02101,"807,00454091330 ",.01)
  1. ;;00454091330
  1. ;;9002226.02101,"807,00454091330 ",.02)
  1. ;;00454091330
  1. ;;9002226.02101,"807,00456077826 ",.01)
  1. ;;00456077826
  1. ;;9002226.02101,"807,00456077826 ",.02)
  1. ;;00456077826
  1. ;;9002226.02101,"807,00463103410 ",.01)
  1. ;;00463103410
  1. ;;9002226.02101,"807,00463103410 ",.02)
  1. ;;00463103410
  1. ;;9002226.02101,"807,00467103325 ",.01)
  1. ;;00467103325
  1. ;;9002226.02101,"807,00467103325 ",.02)
  1. ;;00467103325
  1. ;;9002226.02101,"807,00467203325 ",.01)
  1. ;;00467203325
  1. ;;9002226.02101,"807,00467203325 ",.02)
  1. ;;00467203325
  1. ;;9002226.02101,"807,00467750710 ",.01)
  1. ;;00467750710
  1. ;;9002226.02101,"807,00467750710 ",.02)
  1. ;;00467750710
  1. ;;9002226.02101,"807,00469003115 ",.01)
  1. ;;00469003115
  1. ;;9002226.02101,"807,00469003115 ",.02)
  1. ;;00469003115
  1. ;;9002226.02101,"807,00469003325 ",.01)
  1. ;;00469003325
  1. ;;9002226.02101,"807,00469003325 ",.02)
  1. ;;00469003325
  1. ;;9002226.02101,"807,00469081330 ",.01)
  1. ;;00469081330
  1. ;;9002226.02101,"807,00469081330 ",.02)
  1. ;;00469081330
  1. ;;9002226.02101,"807,00469081350 ",.01)
  1. ;;00469081350
  1. ;;9002226.02101,"807,00469081350 ",.02)
  1. ;;00469081350
  1. ;;9002226.02101,"807,00469091300 ",.01)
  1. ;;00469091300
  1. ;;9002226.02101,"807,00469091300 ",.02)
  1. ;;00469091300
  1. ;;9002226.02101,"807,00469091330 ",.01)
  1. ;;00469091330
  1. ;;9002226.02101,"807,00469091330 ",.02)
  1. ;;00469091330
  1. ;;9002226.02101,"807,00469091350 ",.01)
  1. ;;00469091350
  1. ;;9002226.02101,"807,00469091350 ",.02)
  1. ;;00469091350
  1. ;;9002226.02101,"807,00469103315 ",.01)
  1. ;;00469103315
  1. ;;9002226.02101,"807,00469103315 ",.02)
  1. ;;00469103315
  1. ;;9002226.02101,"807,00469190300 ",.01)
  1. ;;00469190300
  1. ;;9002226.02101,"807,00469190300 ",.02)
  1. ;;00469190300
  1. ;;9002226.02101,"807,00469190303 ",.01)
  1. ;;00469190303
  1. ;;9002226.02101,"807,00469190303 ",.02)
  1. ;;00469190303
  1. ;;9002226.02101,"807,00469203325 ",.01)
  1. ;;00469203325
  1. ;;9002226.02101,"807,00469203325 ",.02)
  1. ;;00469203325
  1. ;;9002226.02101,"807,00469276010 ",.01)
  1. ;;00469276010
  1. ;;9002226.02101,"807,00469276010 ",.02)
  1. ;;00469276010
  1. ;;9002226.02101,"807,00469276025 ",.01)
  1. ;;00469276025
  1. ;;9002226.02101,"807,00469276025 ",.02)
  1. ;;00469276025
  1. ;;9002226.02101,"807,00469310115 ",.01)
  1. ;;00469310115
  1. ;;9002226.02101,"807,00469310115 ",.02)
  1. ;;00469310115
  1. ;;9002226.02101,"807,00469310525 ",.01)
  1. ;;00469310525
  1. ;;9002226.02101,"807,00469310525 ",.02)
  1. ;;00469310525
  1. ;;9002226.02101,"807,00469504001 ",.01)
  1. ;;00469504001
  1. ;;9002226.02101,"807,00469504001 ",.02)
  1. ;;00469504001
  1. ;;9002226.02101,"807,00469504501 ",.01)
  1. ;;00469504501
  1. ;;9002226.02101,"807,00469504501 ",.02)
  1. ;;00469504501
  1. ;;9002226.02101,"807,00469504505 ",.01)
  1. ;;00469504505
  1. ;;9002226.02101,"807,00469504505 ",.02)
  1. ;;00469504505
  1. ;;9002226.02101,"807,00517430101 ",.01)
  1. ;;00517430101
  1. ;;9002226.02101,"807,00517430101 ",.02)
  1. ;;00517430101
  1. ;;9002226.02101,"807,00527013955 ",.01)
  1. ;;00527013955
  1. ;;9002226.02101,"807,00527013955 ",.02)
  1. ;;00527013955
  1. ;;9002226.02101,"807,00536486070 ",.01)
  1. ;;00536486070
  1. ;;9002226.02101,"807,00536486070 ",.02)
  1. ;;00536486070
  1. ;;9002226.02101,"807,00536486075 ",.01)
  1. ;;00536486075
  1. ;;9002226.02101,"807,00536486075 ",.02)
  1. ;;00536486075
  1. ;;9002226.02101,"807,00641039102 ",.01)
  1. ;;00641039102
  1. ;;9002226.02101,"807,00641039102 ",.02)
  1. ;;00641039102
  1. ;;9002226.02101,"807,00641039125 ",.01)
  1. ;;00641039125
  1. ;;9002226.02101,"807,00641039125 ",.02)
  1. ;;00641039125
  1. ;;9002226.02101,"807,00641039164 ",.01)
  1. ;;00641039164
  1. ;;9002226.02101,"807,00641039164 ",.02)
  1. ;;00641039164
  1. ;;9002226.02101,"807,00641040125 ",.01)
  1. ;;00641040125
  1. ;;9002226.02101,"807,00641040125 ",.02)
  1. ;;00641040125
  1. ;;9002226.02101,"807,00641244041 ",.01)
  1. ;;00641244041
  1. ;;9002226.02101,"807,00641244041 ",.02)
  1. ;;00641244041
  1. ;;9002226.02101,"807,00641244045 ",.01)
  1. ;;00641244045
  1. ;;9002226.02101,"807,00641244045 ",.02)
  1. ;;00641244045
  1. ;;9002226.02101,"807,00641245041 ",.01)
  1. ;;00641245041
  1. ;;9002226.02101,"807,00641245041 ",.02)
  1. ;;00641245041
  1. ;;9002226.02101,"807,00641245045 ",.01)
  1. ;;00641245045
  1. ;;9002226.02101,"807,00641245045 ",.02)
  1. ;;00641245045
  1. ;;9002226.02101,"807,00641326209 ",.01)
  1. ;;00641326209
  1. ;;9002226.02101,"807,00641326209 ",.02)
  1. ;;00641326209
  1. ;;9002226.02101,"807,00641326403 ",.01)
  1. ;;00641326403
  1. ;;9002226.02101,"807,00641326403 ",.02)
  1. ;;00641326403
  1. ;;9002226.02101,"807,00641326503 ",.01)
  1. ;;00641326503
  1. ;;9002226.02101,"807,00641326503 ",.02)
  1. ;;00641326503
  1. ;;9002226.02101,"807,00686001101 ",.01)
  1. ;;00686001101
  1. ;;9002226.02101,"807,00686001101 ",.02)
  1. ;;00686001101
  1. ;;9002226.02101,"807,00686001105 ",.01)
  1. ;;00686001105
  1. ;;9002226.02101,"807,00686001105 ",.02)
  1. ;;00686001105
  1. ;;9002226.02101,"807,00686001910 ",.01)
  1. ;;00686001910
  1. ;;9002226.02101,"807,00686001910 ",.02)
  1. ;;00686001910
  1. ;;9002226.02101,"807,00814365046 ",.01)
  1. ;;00814365046
  1. ;;9002226.02101,"807,00814365046 ",.02)
  1. ;;00814365046
  1. ;;9002226.02101,"807,08290037003 ",.01)
  1. ;;08290037003
  1. ;;9002226.02101,"807,08290037003 ",.02)
  1. ;;08290037003
  1. ;;9002226.02101,"807,08290038003 ",.01)
  1. ;;08290038003
  1. ;;9002226.02101,"807,08290038003 ",.02)
  1. ;;08290038003
  1. ;;9002226.02101,"807,08290038005 ",.01)
  1. ;;08290038005
  1. ;;9002226.02101,"807,08290038005 ",.02)
  1. ;;08290038005
  1. ;;9002226.02101,"807,08290039003 ",.01)
  1. ;;08290039003
  1. ;;9002226.02101,"807,08290039003 ",.02)
  1. ;;08290039003
  1. ;;9002226.02101,"807,08290039005 ",.01)
  1. ;;08290039005
  1. ;;9002226.02101,"807,08290039005 ",.02)
  1. ;;08290039005
  1. ;;9002226.02101,"807,08290039105 ",.01)
  1. ;;08290039105
  1. ;;9002226.02101,"807,08290039105 ",.02)
  1. ;;08290039105
  1. ;;9002226.02101,"807,10719004542 ",.01)
  1. ;;10719004542
  1. ;;9002226.02101,"807,10719004542 ",.02)
  1. ;;10719004542
  1. ;;9002226.02101,"807,10719004731 ",.01)
  1. ;;10719004731
  1. ;;9002226.02101,"807,10719004731 ",.02)
  1. ;;10719004731
  1. ;;9002226.02101,"807,10719004742 ",.01)
  1. ;;10719004742
  1. ;;9002226.02101,"807,10719004742 ",.02)
  1. ;;10719004742
  1. ;;9002226.02101,"807,10974000805 ",.01)
  1. ;;10974000805
  1. ;;9002226.02101,"807,10974000805 ",.02)
  1. ;;10974000805
  1. ;;9002226.02101,"807,10974030605 ",.01)
  1. ;;10974030605
  1. ;;9002226.02101,"807,10974030605 ",.02)
  1. ;;10974030605
  1. ;;9002226.02101,"807,11743021002 ",.01)
  1. ;;11743021002
  1. ;;9002226.02101,"807,11743021002 ",.02)
  1. ;;11743021002
  1. ;;9002226.02101,"807,12671002403 ",.01)
  1. ;;12671002403
  1. ;;9002226.02101,"807,12671002403 ",.02)
  1. ;;12671002403
  1. ;;9002226.02101,"807,12671002407 ",.01)
  1. ;;12671002407
  1. ;;9002226.02101,"807,12671002407 ",.02)
  1. ;;12671002407
  1. ;;9002226.02101,"807,12671002601 ",.01)
  1. ;;12671002601