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

BGPM3AEM.m

Go to the documentation of this file.
BGPM3AEM ;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,"799,00409131666 ",.02)
 ;;00409131666
 ;;9002226.02101,"799,00409140231 ",.01)
 ;;00409140231
 ;;9002226.02101,"799,00409140231 ",.02)
 ;;00409140231
 ;;9002226.02101,"799,00409258102 ",.01)
 ;;00409258102
 ;;9002226.02101,"799,00409258102 ",.02)
 ;;00409258102
 ;;9002226.02101,"799,00409258402 ",.01)
 ;;00409258402
 ;;9002226.02101,"799,00409258402 ",.02)
 ;;00409258402
 ;;9002226.02101,"799,00409272001 ",.01)
 ;;00409272001
 ;;9002226.02101,"799,00409272001 ",.02)
 ;;00409272001
 ;;9002226.02101,"799,00409272002 ",.01)
 ;;00409272002
 ;;9002226.02101,"799,00409272002 ",.02)
 ;;00409272002
 ;;9002226.02101,"799,00409272003 ",.01)
 ;;00409272003
 ;;9002226.02101,"799,00409272003 ",.02)
 ;;00409272003
 ;;9002226.02101,"799,00409272101 ",.01)
 ;;00409272101
 ;;9002226.02101,"799,00409272101 ",.02)
 ;;00409272101
 ;;9002226.02101,"799,00409272301 ",.01)
 ;;00409272301
 ;;9002226.02101,"799,00409272301 ",.02)
 ;;00409272301
 ;;9002226.02101,"799,00409272302 ",.01)
 ;;00409272302
 ;;9002226.02101,"799,00409272302 ",.02)
 ;;00409272302
 ;;9002226.02101,"799,00409765062 ",.01)
 ;;00409765062
 ;;9002226.02101,"799,00409765062 ",.02)
 ;;00409765062
 ;;9002226.02101,"799,00409765103 ",.01)
 ;;00409765103
 ;;9002226.02101,"799,00409765103 ",.02)
 ;;00409765103
 ;;9002226.02101,"799,00409765162 ",.01)
 ;;00409765162
 ;;9002226.02101,"799,00409765162 ",.02)
 ;;00409765162
 ;;9002226.02101,"799,00409776003 ",.01)
 ;;00409776003
 ;;9002226.02101,"799,00409776003 ",.02)
 ;;00409776003
 ;;9002226.02101,"799,00409776103 ",.01)
 ;;00409776103
 ;;9002226.02101,"799,00409776103 ",.02)
 ;;00409776103
 ;;9002226.02101,"799,00409776130 ",.01)
 ;;00409776130
 ;;9002226.02101,"799,00409776130 ",.02)
 ;;00409776130
 ;;9002226.02101,"799,00409779323 ",.01)
 ;;00409779323
 ;;9002226.02101,"799,00409779323 ",.02)
 ;;00409779323
 ;;9002226.02101,"799,00409779362 ",.01)
 ;;00409779362
 ;;9002226.02101,"799,00409779362 ",.02)
 ;;00409779362
 ;;9002226.02101,"799,00409779462 ",.01)
 ;;00409779462
 ;;9002226.02101,"799,00409779462 ",.02)
 ;;00409779462
 ;;9002226.02101,"799,00418434105 ",.01)
 ;;00418434105
 ;;9002226.02101,"799,00418434105 ",.02)
 ;;00418434105
 ;;9002226.02101,"799,00418435105 ",.01)
 ;;00418435105
 ;;9002226.02101,"799,00418435105 ",.02)
 ;;00418435105
 ;;9002226.02101,"799,00418435141 ",.01)
 ;;00418435141
 ;;9002226.02101,"799,00418435141 ",.02)
 ;;00418435141
 ;;9002226.02101,"799,00418446105 ",.01)
 ;;00418446105
 ;;9002226.02101,"799,00418446105 ",.02)
 ;;00418446105
 ;;9002226.02101,"799,00436022070 ",.01)
 ;;00436022070
 ;;9002226.02101,"799,00436022070 ",.02)
 ;;00436022070
 ;;9002226.02101,"799,00436022145 ",.01)
 ;;00436022145
 ;;9002226.02101,"799,00436022145 ",.02)
 ;;00436022145
 ;;9002226.02101,"799,00436022170 ",.01)
 ;;00436022170
 ;;9002226.02101,"799,00436022170 ",.02)
 ;;00436022170
 ;;9002226.02101,"799,00436022175 ",.01)
 ;;00436022175
 ;;9002226.02101,"799,00436022175 ",.02)
 ;;00436022175
 ;;9002226.02101,"799,00436027570 ",.01)
 ;;00436027570
 ;;9002226.02101,"799,00436027570 ",.02)
 ;;00436027570
 ;;9002226.02101,"799,00454091330 ",.01)
 ;;00454091330
 ;;9002226.02101,"799,00454091330 ",.02)
 ;;00454091330
 ;;9002226.02101,"799,00456077826 ",.01)
 ;;00456077826
 ;;9002226.02101,"799,00456077826 ",.02)
 ;;00456077826
 ;;9002226.02101,"799,00463103410 ",.01)
 ;;00463103410
 ;;9002226.02101,"799,00463103410 ",.02)
 ;;00463103410
 ;;9002226.02101,"799,00467103325 ",.01)
 ;;00467103325
 ;;9002226.02101,"799,00467103325 ",.02)
 ;;00467103325
 ;;9002226.02101,"799,00467126225 ",.01)
 ;;00467126225
 ;;9002226.02101,"799,00467126225 ",.02)
 ;;00467126225
 ;;9002226.02101,"799,00467203325 ",.01)
 ;;00467203325
 ;;9002226.02101,"799,00467203325 ",.02)
 ;;00467203325
 ;;9002226.02101,"799,00467215225 ",.01)
 ;;00467215225
 ;;9002226.02101,"799,00467215225 ",.02)
 ;;00467215225
 ;;9002226.02101,"799,00467750710 ",.01)
 ;;00467750710
 ;;9002226.02101,"799,00467750710 ",.02)
 ;;00467750710
 ;;9002226.02101,"799,00469003115 ",.01)
 ;;00469003115
 ;;9002226.02101,"799,00469003115 ",.02)
 ;;00469003115
 ;;9002226.02101,"799,00469003325 ",.01)
 ;;00469003325
 ;;9002226.02101,"799,00469003325 ",.02)
 ;;00469003325
 ;;9002226.02101,"799,00469015225 ",.01)
 ;;00469015225
 ;;9002226.02101,"799,00469015225 ",.02)
 ;;00469015225
 ;;9002226.02101,"799,00469081330 ",.01)
 ;;00469081330
 ;;9002226.02101,"799,00469081330 ",.02)
 ;;00469081330
 ;;9002226.02101,"799,00469081350 ",.01)
 ;;00469081350
 ;;9002226.02101,"799,00469081350 ",.02)
 ;;00469081350
 ;;9002226.02101,"799,00469083300 ",.01)
 ;;00469083300
 ;;9002226.02101,"799,00469083300 ",.02)
 ;;00469083300
 ;;9002226.02101,"799,00469083303 ",.01)
 ;;00469083303
 ;;9002226.02101,"799,00469083303 ",.02)
 ;;00469083303
 ;;9002226.02101,"799,00469083370 ",.01)
 ;;00469083370
 ;;9002226.02101,"799,00469083370 ",.02)
 ;;00469083370
 ;;9002226.02101,"799,00469091300 ",.01)
 ;;00469091300
 ;;9002226.02101,"799,00469091300 ",.02)
 ;;00469091300
 ;;9002226.02101,"799,00469091330 ",.01)
 ;;00469091330
 ;;9002226.02101,"799,00469091330 ",.02)
 ;;00469091330
 ;;9002226.02101,"799,00469091350 ",.01)
 ;;00469091350
 ;;9002226.02101,"799,00469091350 ",.02)
 ;;00469091350
 ;;9002226.02101,"799,00469092300 ",.01)
 ;;00469092300
 ;;9002226.02101,"799,00469092300 ",.02)
 ;;00469092300
 ;;9002226.02101,"799,00469092303 ",.01)
 ;;00469092303
 ;;9002226.02101,"799,00469092303 ",.02)
 ;;00469092303
 ;;9002226.02101,"799,00469092330 ",.01)
 ;;00469092330
 ;;9002226.02101,"799,00469092330 ",.02)
 ;;00469092330
 ;;9002226.02101,"799,00469093300 ",.01)
 ;;00469093300
 ;;9002226.02101,"799,00469093300 ",.02)
 ;;00469093300
 ;;9002226.02101,"799,00469093320 ",.01)
 ;;00469093320
 ;;9002226.02101,"799,00469093320 ",.02)
 ;;00469093320
 ;;9002226.02101,"799,00469103315 ",.01)
 ;;00469103315
 ;;9002226.02101,"799,00469103315 ",.02)
 ;;00469103315
 ;;9002226.02101,"799,00469115515 ",.01)
 ;;00469115515
 ;;9002226.02101,"799,00469115515 ",.02)
 ;;00469115515
 ;;9002226.02101,"799,00469126215 ",.01)
 ;;00469126215
 ;;9002226.02101,"799,00469126215 ",.02)
 ;;00469126215
 ;;9002226.02101,"799,00469190300 ",.01)
 ;;00469190300
 ;;9002226.02101,"799,00469190300 ",.02)
 ;;00469190300
 ;;9002226.02101,"799,00469190303 ",.01)
 ;;00469190303
 ;;9002226.02101,"799,00469190303 ",.02)
 ;;00469190303
 ;;9002226.02101,"799,00469203325 ",.01)
 ;;00469203325
 ;;9002226.02101,"799,00469203325 ",.02)
 ;;00469203325
 ;;9002226.02101,"799,00469215215 ",.01)
 ;;00469215215
 ;;9002226.02101,"799,00469215215 ",.02)
 ;;00469215215
 ;;9002226.02101,"799,00469276010 ",.01)
 ;;00469276010
 ;;9002226.02101,"799,00469276010 ",.02)
 ;;00469276010
 ;;9002226.02101,"799,00469276025 ",.01)
 ;;00469276025
 ;;9002226.02101,"799,00469276025 ",.02)
 ;;00469276025
 ;;9002226.02101,"799,00469310115 ",.01)
 ;;00469310115
 ;;9002226.02101,"799,00469310115 ",.02)
 ;;00469310115
 ;;9002226.02101,"799,00469310525 ",.01)
 ;;00469310525
 ;;9002226.02101,"799,00469310525 ",.02)
 ;;00469310525
 ;;9002226.02101,"799,00469504001 ",.01)
 ;;00469504001
 ;;9002226.02101,"799,00469504001 ",.02)
 ;;00469504001
 ;;9002226.02101,"799,00469504501 ",.01)
 ;;00469504501
 ;;9002226.02101,"799,00469504501 ",.02)
 ;;00469504501
 ;;9002226.02101,"799,00469504505 ",.01)
 ;;00469504505
 ;;9002226.02101,"799,00469504505 ",.02)
 ;;00469504505
 ;;9002226.02101,"799,00517430101 ",.01)
 ;;00517430101
 ;;9002226.02101,"799,00517430101 ",.02)
 ;;00517430101
 ;;9002226.02101,"799,00527013955 ",.01)
 ;;00527013955
 ;;9002226.02101,"799,00527013955 ",.02)
 ;;00527013955
 ;;9002226.02101,"799,00527014855 ",.01)
 ;;00527014855
 ;;9002226.02101,"799,00527014855 ",.02)
 ;;00527014855
 ;;9002226.02101,"799,00527017455 ",.01)
 ;;00527017455
 ;;9002226.02101,"799,00527017455 ",.02)
 ;;00527017455
 ;;9002226.02101,"799,00536486070 ",.01)
 ;;00536486070
 ;;9002226.02101,"799,00536486070 ",.02)
 ;;00536486070
 ;;9002226.02101,"799,00536486075 ",.01)
 ;;00536486075
 ;;9002226.02101,"799,00536486075 ",.02)
 ;;00536486075
 ;;9002226.02101,"799,00536490070 ",.01)
 ;;00536490070
 ;;9002226.02101,"799,00536490070 ",.02)
 ;;00536490070
 ;;9002226.02101,"799,00536492570 ",.01)
 ;;00536492570
 ;;9002226.02101,"799,00536492570 ",.02)
 ;;00536492570
 ;;9002226.02101,"799,00536495065 ",.01)
 ;;00536495065
 ;;9002226.02101,"799,00536495065 ",.02)
 ;;00536495065
 ;;9002226.02101,"799,00641039102 ",.01)
 ;;00641039102
 ;;9002226.02101,"799,00641039102 ",.02)
 ;;00641039102
 ;;9002226.02101,"799,00641039125 ",.01)
 ;;00641039125
 ;;9002226.02101,"799,00641039125 ",.02)
 ;;00641039125
 ;;9002226.02101,"799,00641039164 ",.01)
 ;;00641039164
 ;;9002226.02101,"799,00641039164 ",.02)
 ;;00641039164
 ;;9002226.02101,"799,00641040002 ",.01)
 ;;00641040002
 ;;9002226.02101,"799,00641040002 ",.02)
 ;;00641040002
 ;;9002226.02101,"799,00641040021 ",.01)
 ;;00641040021
 ;;9002226.02101,"799,00641040021 ",.02)
 ;;00641040021
 ;;9002226.02101,"799,00641040025 ",.01)
 ;;00641040025
 ;;9002226.02101,"799,00641040025 ",.02)
 ;;00641040025
 ;;9002226.02101,"799,00641040064 ",.01)
 ;;00641040064
 ;;9002226.02101,"799,00641040064 ",.02)
 ;;00641040064
 ;;9002226.02101,"799,00641040125 ",.01)
 ;;00641040125
 ;;9002226.02101,"799,00641040125 ",.02)
 ;;00641040125
 ;;9002226.02101,"799,00641041002 ",.01)
 ;;00641041002
 ;;9002226.02101,"799,00641041002 ",.02)
 ;;00641041002
 ;;9002226.02101,"799,00641041025 ",.01)
 ;;00641041025
 ;;9002226.02101,"799,00641041025 ",.02)
 ;;00641041025
 ;;9002226.02101,"799,00641041064 ",.01)
 ;;00641041064
 ;;9002226.02101,"799,00641041064 ",.02)
 ;;00641041064
 ;;9002226.02101,"799,00641244041 ",.01)
 ;;00641244041
 ;;9002226.02101,"799,00641244041 ",.02)
 ;;00641244041
 ;;9002226.02101,"799,00641244045 ",.01)
 ;;00641244045
 ;;9002226.02101,"799,00641244045 ",.02)
 ;;00641244045
 ;;9002226.02101,"799,00641245041 ",.01)
 ;;00641245041
 ;;9002226.02101,"799,00641245041 ",.02)
 ;;00641245041
 ;;9002226.02101,"799,00641245045 ",.01)
 ;;00641245045
 ;;9002226.02101,"799,00641245045 ",.02)
 ;;00641245045
 ;;9002226.02101,"799,00641246041 ",.01)
 ;;00641246041
 ;;9002226.02101,"799,00641246041 ",.02)
 ;;00641246041
 ;;9002226.02101,"799,00641246045 ",.01)
 ;;00641246045
 ;;9002226.02101,"799,00641246045 ",.02)
 ;;00641246045
 ;;9002226.02101,"799,00641247041 ",.01)
 ;;00641247041
 ;;9002226.02101,"799,00641247041 ",.02)
 ;;00641247041
 ;;9002226.02101,"799,00641247045 ",.01)
 ;;00641247045
 ;;9002226.02101,"799,00641247045 ",.02)
 ;;00641247045
 ;;9002226.02101,"799,00641326209 ",.01)
 ;;00641326209
 ;;9002226.02101,"799,00641326209 ",.02)
 ;;00641326209
 ;;9002226.02101,"799,00641326403 ",.01)
 ;;00641326403
 ;;9002226.02101,"799,00641326403 ",.02)
 ;;00641326403
 ;;9002226.02101,"799,00641326503 ",.01)
 ;;00641326503
 ;;9002226.02101,"799,00641326503 ",.02)
 ;;00641326503
 ;;9002226.02101,"799,00641326603 ",.01)
 ;;00641326603
 ;;9002226.02101,"799,00641326603 ",.02)
 ;;00641326603
 ;;9002226.02101,"799,00641326703 ",.01)
 ;;00641326703
 ;;9002226.02101,"799,00641326703 ",.02)
 ;;00641326703
 ;;9002226.02101,"799,00641326803 ",.01)
 ;;00641326803
 ;;9002226.02101,"799,00641326803 ",.02)
 ;;00641326803
 ;;9002226.02101,"799,00677027521 ",.01)
 ;;00677027521
 ;;9002226.02101,"799,00677027521 ",.02)
 ;;00677027521
 ;;9002226.02101,"799,00686001101 ",.01)
 ;;00686001101
 ;;9002226.02101,"799,00686001101 ",.02)
 ;;00686001101
 ;;9002226.02101,"799,00686001105 ",.01)
 ;;00686001105