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

BGPM5AEF.m

Go to the documentation of this file.
  1. BGPM5AEF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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. ;;9002226.02101,"881,00781166931 ",.01)
  1. ;;00781166931
  1. ;;9002226.02101,"881,00781166931 ",.02)
  1. ;;00781166931
  1. ;;9002226.02101,"881,00781166934 ",.01)
  1. ;;00781166934
  1. ;;9002226.02101,"881,00781166934 ",.02)
  1. ;;00781166934
  1. ;;9002226.02101,"881,00781166992 ",.01)
  1. ;;00781166992
  1. ;;9002226.02101,"881,00781166992 ",.02)
  1. ;;00781166992
  1. ;;9002226.02101,"881,00781167301 ",.01)
  1. ;;00781167301
  1. ;;9002226.02101,"881,00781167301 ",.02)
  1. ;;00781167301
  1. ;;9002226.02101,"881,00781167310 ",.01)
  1. ;;00781167310
  1. ;;9002226.02101,"881,00781167310 ",.02)
  1. ;;00781167310
  1. ;;9002226.02101,"881,00781167331 ",.01)
  1. ;;00781167331
  1. ;;9002226.02101,"881,00781167331 ",.02)
  1. ;;00781167331
  1. ;;9002226.02101,"881,00781167334 ",.01)
  1. ;;00781167334
  1. ;;9002226.02101,"881,00781167334 ",.02)
  1. ;;00781167334
  1. ;;9002226.02101,"881,00781167392 ",.01)
  1. ;;00781167392
  1. ;;9002226.02101,"881,00781167392 ",.02)
  1. ;;00781167392
  1. ;;9002226.02101,"881,00781182801 ",.01)
  1. ;;00781182801
  1. ;;9002226.02101,"881,00781182801 ",.02)
  1. ;;00781182801
  1. ;;9002226.02101,"881,00781182810 ",.01)
  1. ;;00781182810
  1. ;;9002226.02101,"881,00781182810 ",.02)
  1. ;;00781182810
  1. ;;9002226.02101,"881,00781182813 ",.01)
  1. ;;00781182813
  1. ;;9002226.02101,"881,00781182813 ",.02)
  1. ;;00781182813
  1. ;;9002226.02101,"881,00781182901 ",.01)
  1. ;;00781182901
  1. ;;9002226.02101,"881,00781182901 ",.02)
  1. ;;00781182901
  1. ;;9002226.02101,"881,00781182910 ",.01)
  1. ;;00781182910
  1. ;;9002226.02101,"881,00781182910 ",.02)
  1. ;;00781182910
  1. ;;9002226.02101,"881,00781182913 ",.01)
  1. ;;00781182913
  1. ;;9002226.02101,"881,00781182913 ",.02)
  1. ;;00781182913
  1. ;;9002226.02101,"881,00781183801 ",.01)
  1. ;;00781183801
  1. ;;9002226.02101,"881,00781183801 ",.02)
  1. ;;00781183801
  1. ;;9002226.02101,"881,00781183810 ",.01)
  1. ;;00781183810
  1. ;;9002226.02101,"881,00781183810 ",.02)
  1. ;;00781183810
  1. ;;9002226.02101,"881,00781183813 ",.01)
  1. ;;00781183813
  1. ;;9002226.02101,"881,00781183813 ",.02)
  1. ;;00781183813
  1. ;;9002226.02101,"881,00781183901 ",.01)
  1. ;;00781183901
  1. ;;9002226.02101,"881,00781183901 ",.02)
  1. ;;00781183901
  1. ;;9002226.02101,"881,00781183910 ",.01)
  1. ;;00781183910
  1. ;;9002226.02101,"881,00781183910 ",.02)
  1. ;;00781183910
  1. ;;9002226.02101,"881,00781183913 ",.01)
  1. ;;00781183913
  1. ;;9002226.02101,"881,00781183913 ",.02)
  1. ;;00781183913
  1. ;;9002226.02101,"881,00781184801 ",.01)
  1. ;;00781184801
  1. ;;9002226.02101,"881,00781184801 ",.02)
  1. ;;00781184801
  1. ;;9002226.02101,"881,00781184810 ",.01)
  1. ;;00781184810
  1. ;;9002226.02101,"881,00781184810 ",.02)
  1. ;;00781184810
  1. ;;9002226.02101,"881,00781184831 ",.01)
  1. ;;00781184831
  1. ;;9002226.02101,"881,00781184831 ",.02)
  1. ;;00781184831
  1. ;;9002226.02101,"881,00781212601 ",.01)
  1. ;;00781212601
  1. ;;9002226.02101,"881,00781212601 ",.02)
  1. ;;00781212601
  1. ;;9002226.02101,"881,00781212701 ",.01)
  1. ;;00781212701
  1. ;;9002226.02101,"881,00781212701 ",.02)
  1. ;;00781212701
  1. ;;9002226.02101,"881,00781212705 ",.01)
  1. ;;00781212705
  1. ;;9002226.02101,"881,00781212705 ",.02)
  1. ;;00781212705
  1. ;;9002226.02101,"881,00781212710 ",.01)
  1. ;;00781212710
  1. ;;9002226.02101,"881,00781212710 ",.02)
  1. ;;00781212710
  1. ;;9002226.02101,"881,00781212801 ",.01)
  1. ;;00781212801
  1. ;;9002226.02101,"881,00781212801 ",.02)
  1. ;;00781212801
  1. ;;9002226.02101,"881,00781212805 ",.01)
  1. ;;00781212805
  1. ;;9002226.02101,"881,00781212805 ",.02)
  1. ;;00781212805
  1. ;;9002226.02101,"881,00781212826 ",.01)
  1. ;;00781212826
  1. ;;9002226.02101,"881,00781212826 ",.02)
  1. ;;00781212826
  1. ;;9002226.02101,"881,00781212901 ",.01)
  1. ;;00781212901
  1. ;;9002226.02101,"881,00781212901 ",.02)
  1. ;;00781212901
  1. ;;9002226.02101,"881,00781212905 ",.01)
  1. ;;00781212905
  1. ;;9002226.02101,"881,00781212905 ",.02)
  1. ;;00781212905
  1. ;;9002226.02101,"881,00781212910 ",.01)
  1. ;;00781212910
  1. ;;9002226.02101,"881,00781212910 ",.02)
  1. ;;00781212910
  1. ;;9002226.02101,"881,00781508310 ",.01)
  1. ;;00781508310
  1. ;;9002226.02101,"881,00781508310 ",.02)
  1. ;;00781508310
  1. ;;9002226.02101,"881,00781508392 ",.01)
  1. ;;00781508392
  1. ;;9002226.02101,"881,00781508392 ",.02)
  1. ;;00781508392
  1. ;;9002226.02101,"881,00781508410 ",.01)
  1. ;;00781508410
  1. ;;9002226.02101,"881,00781508410 ",.02)
  1. ;;00781508410
  1. ;;9002226.02101,"881,00781508492 ",.01)
  1. ;;00781508492
  1. ;;9002226.02101,"881,00781508492 ",.02)
  1. ;;00781508492
  1. ;;9002226.02101,"881,00781532001 ",.01)
  1. ;;00781532001
  1. ;;9002226.02101,"881,00781532001 ",.02)
  1. ;;00781532001
  1. ;;9002226.02101,"881,00781532010 ",.01)
  1. ;;00781532010
  1. ;;9002226.02101,"881,00781532010 ",.02)
  1. ;;00781532010
  1. ;;9002226.02101,"881,00781532101 ",.01)
  1. ;;00781532101
  1. ;;9002226.02101,"881,00781532101 ",.02)
  1. ;;00781532101
  1. ;;9002226.02101,"881,00781532110 ",.01)
  1. ;;00781532110
  1. ;;9002226.02101,"881,00781532110 ",.02)
  1. ;;00781532110
  1. ;;9002226.02101,"881,00781544101 ",.01)
  1. ;;00781544101
  1. ;;9002226.02101,"881,00781544101 ",.02)
  1. ;;00781544101
  1. ;;9002226.02101,"881,00781544110 ",.01)
  1. ;;00781544110
  1. ;;9002226.02101,"881,00781544110 ",.02)
  1. ;;00781544110
  1. ;;9002226.02101,"881,00781544201 ",.01)
  1. ;;00781544201
  1. ;;9002226.02101,"881,00781544201 ",.02)
  1. ;;00781544201
  1. ;;9002226.02101,"881,00781544210 ",.01)
  1. ;;00781544210
  1. ;;9002226.02101,"881,00781544210 ",.02)
  1. ;;00781544210
  1. ;;9002226.02101,"881,00781544301 ",.01)
  1. ;;00781544301
  1. ;;9002226.02101,"881,00781544301 ",.02)
  1. ;;00781544301
  1. ;;9002226.02101,"881,00781544310 ",.01)
  1. ;;00781544310
  1. ;;9002226.02101,"881,00781544310 ",.02)
  1. ;;00781544310
  1. ;;9002226.02101,"881,00781544401 ",.01)
  1. ;;00781544401
  1. ;;9002226.02101,"881,00781544401 ",.02)
  1. ;;00781544401
  1. ;;9002226.02101,"881,00781544410 ",.01)
  1. ;;00781544410
  1. ;;9002226.02101,"881,00781544410 ",.02)
  1. ;;00781544410
  1. ;;9002226.02101,"881,00855082750 ",.01)
  1. ;;00855082750
  1. ;;9002226.02101,"881,00855082750 ",.02)
  1. ;;00855082750
  1. ;;9002226.02101,"881,00904504561 ",.01)
  1. ;;00904504561
  1. ;;9002226.02101,"881,00904504561 ",.02)
  1. ;;00904504561
  1. ;;9002226.02101,"881,00904504661 ",.01)
  1. ;;00904504661
  1. ;;9002226.02101,"881,00904504661 ",.02)
  1. ;;00904504661
  1. ;;9002226.02101,"881,00904504761 ",.01)
  1. ;;00904504761
  1. ;;9002226.02101,"881,00904504761 ",.02)
  1. ;;00904504761
  1. ;;9002226.02101,"881,00904504840 ",.01)
  1. ;;00904504840
  1. ;;9002226.02101,"881,00904504840 ",.02)
  1. ;;00904504840
  1. ;;9002226.02101,"881,00904504860 ",.01)
  1. ;;00904504860
  1. ;;9002226.02101,"881,00904504860 ",.02)
  1. ;;00904504860
  1. ;;9002226.02101,"881,00904504880 ",.01)
  1. ;;00904504880
  1. ;;9002226.02101,"881,00904504880 ",.02)
  1. ;;00904504880
  1. ;;9002226.02101,"881,00904550160 ",.01)
  1. ;;00904550160
  1. ;;9002226.02101,"881,00904550160 ",.02)
  1. ;;00904550160
  1. ;;9002226.02101,"881,00904550260 ",.01)
  1. ;;00904550260
  1. ;;9002226.02101,"881,00904550260 ",.02)
  1. ;;00904550260
  1. ;;9002226.02101,"881,00904550261 ",.01)
  1. ;;00904550261
  1. ;;9002226.02101,"881,00904550261 ",.02)
  1. ;;00904550261
  1. ;;9002226.02101,"881,00904550280 ",.01)
  1. ;;00904550280
  1. ;;9002226.02101,"881,00904550280 ",.02)
  1. ;;00904550280
  1. ;;9002226.02101,"881,00904550360 ",.01)
  1. ;;00904550360
  1. ;;9002226.02101,"881,00904550360 ",.02)
  1. ;;00904550360
  1. ;;9002226.02101,"881,00904550380 ",.01)
  1. ;;00904550380
  1. ;;9002226.02101,"881,00904550380 ",.02)
  1. ;;00904550380
  1. ;;9002226.02101,"881,00904550460 ",.01)
  1. ;;00904550460
  1. ;;9002226.02101,"881,00904550460 ",.02)
  1. ;;00904550460
  1. ;;9002226.02101,"881,00904550480 ",.01)
  1. ;;00904550480
  1. ;;9002226.02101,"881,00904550480 ",.02)
  1. ;;00904550480
  1. ;;9002226.02101,"881,00904560960 ",.01)
  1. ;;00904560960
  1. ;;9002226.02101,"881,00904560960 ",.02)
  1. ;;00904560960
  1. ;;9002226.02101,"881,00904560961 ",.01)
  1. ;;00904560961
  1. ;;9002226.02101,"881,00904560961 ",.02)
  1. ;;00904560961
  1. ;;9002226.02101,"881,00904560980 ",.01)
  1. ;;00904560980
  1. ;;9002226.02101,"881,00904560980 ",.02)
  1. ;;00904560980
  1. ;;9002226.02101,"881,00904561060 ",.01)
  1. ;;00904561060
  1. ;;9002226.02101,"881,00904561060 ",.02)
  1. ;;00904561060
  1. ;;9002226.02101,"881,00904561061 ",.01)
  1. ;;00904561061
  1. ;;9002226.02101,"881,00904561061 ",.02)
  1. ;;00904561061
  1. ;;9002226.02101,"881,00904561080 ",.01)
  1. ;;00904561080
  1. ;;9002226.02101,"881,00904561080 ",.02)
  1. ;;00904561080
  1. ;;9002226.02101,"881,00904561160 ",.01)
  1. ;;00904561160
  1. ;;9002226.02101,"881,00904561160 ",.02)
  1. ;;00904561160
  1. ;;9002226.02101,"881,00904561161 ",.01)
  1. ;;00904561161
  1. ;;9002226.02101,"881,00904561161 ",.02)
  1. ;;00904561161
  1. ;;9002226.02101,"881,00904561180 ",.01)
  1. ;;00904561180
  1. ;;9002226.02101,"881,00904561180 ",.02)
  1. ;;00904561180
  1. ;;9002226.02101,"881,00904563761 ",.01)
  1. ;;00904563761
  1. ;;9002226.02101,"881,00904563761 ",.02)
  1. ;;00904563761
  1. ;;9002226.02101,"881,00904563843 ",.01)
  1. ;;00904563843
  1. ;;9002226.02101,"881,00904563843 ",.02)
  1. ;;00904563843
  1. ;;9002226.02101,"881,00904563846 ",.01)
  1. ;;00904563846
  1. ;;9002226.02101,"881,00904563846 ",.02)
  1. ;;00904563846
  1. ;;9002226.02101,"881,00904563861 ",.01)
  1. ;;00904563861
  1. ;;9002226.02101,"881,00904563861 ",.02)
  1. ;;00904563861
  1. ;;9002226.02101,"881,00904563889 ",.01)
  1. ;;00904563889
  1. ;;9002226.02101,"881,00904563889 ",.02)
  1. ;;00904563889
  1. ;;9002226.02101,"881,00904563943 ",.01)
  1. ;;00904563943
  1. ;;9002226.02101,"881,00904563943 ",.02)
  1. ;;00904563943
  1. ;;9002226.02101,"881,00904563946 ",.01)
  1. ;;00904563946
  1. ;;9002226.02101,"881,00904563946 ",.02)
  1. ;;00904563946
  1. ;;9002226.02101,"881,00904563948 ",.01)
  1. ;;00904563948
  1. ;;9002226.02101,"881,00904563948 ",.02)
  1. ;;00904563948
  1. ;;9002226.02101,"881,00904563961 ",.01)
  1. ;;00904563961
  1. ;;9002226.02101,"881,00904563961 ",.02)
  1. ;;00904563961
  1. ;;9002226.02101,"881,00904563989 ",.01)
  1. ;;00904563989
  1. ;;9002226.02101,"881,00904563989 ",.02)
  1. ;;00904563989
  1. ;;9002226.02101,"881,00904563993 ",.01)
  1. ;;00904563993
  1. ;;9002226.02101,"881,00904563993 ",.02)
  1. ;;00904563993
  1. ;;9002226.02101,"881,00904564043 ",.01)
  1. ;;00904564043
  1. ;;9002226.02101,"881,00904564043 ",.02)
  1. ;;00904564043
  1. ;;9002226.02101,"881,00904564046 ",.01)
  1. ;;00904564046
  1. ;;9002226.02101,"881,00904564046 ",.02)
  1. ;;00904564046
  1. ;;9002226.02101,"881,00904564048 ",.01)
  1. ;;00904564048
  1. ;;9002226.02101,"881,00904564048 ",.02)
  1. ;;00904564048
  1. ;;9002226.02101,"881,00904564061 ",.01)
  1. ;;00904564061
  1. ;;9002226.02101,"881,00904564061 ",.02)
  1. ;;00904564061
  1. ;;9002226.02101,"881,00904564089 ",.01)
  1. ;;00904564089
  1. ;;9002226.02101,"881,00904564089 ",.02)
  1. ;;00904564089
  1. ;;9002226.02101,"881,00904564093 ",.01)
  1. ;;00904564093
  1. ;;9002226.02101,"881,00904564093 ",.02)
  1. ;;00904564093
  1. ;;9002226.02101,"881,00904564161 ",.01)
  1. ;;00904564161
  1. ;;9002226.02101,"881,00904564161 ",.02)
  1. ;;00904564161
  1. ;;9002226.02101,"881,00904564243 ",.01)
  1. ;;00904564243
  1. ;;9002226.02101,"881,00904564243 ",.02)
  1. ;;00904564243
  1. ;;9002226.02101,"881,00904564246 ",.01)
  1. ;;00904564246
  1. ;;9002226.02101,"881,00904564246 ",.02)
  1. ;;00904564246
  1. ;;9002226.02101,"881,00904564248 ",.01)
  1. ;;00904564248
  1. ;;9002226.02101,"881,00904564248 ",.02)
  1. ;;00904564248
  1. ;;9002226.02101,"881,00904564252 ",.01)
  1. ;;00904564252
  1. ;;9002226.02101,"881,00904564252 ",.02)
  1. ;;00904564252
  1. ;;9002226.02101,"881,00904564261 ",.01)
  1. ;;00904564261
  1. ;;9002226.02101,"881,00904564261 ",.02)
  1. ;;00904564261
  1. ;;9002226.02101,"881,00904564289 ",.01)
  1. ;;00904564289
  1. ;;9002226.02101,"881,00904564289 ",.02)
  1. ;;00904564289
  1. ;;9002226.02101,"881,00904564293 ",.01)
  1. ;;00904564293
  1. ;;9002226.02101,"881,00904564293 ",.02)
  1. ;;00904564293
  1. ;;9002226.02101,"881,00904575789 ",.01)
  1. ;;00904575789
  1. ;;9002226.02101,"881,00904575789 ",.02)
  1. ;;00904575789
  1. ;;9002226.02101,"881,00904577889 ",.01)
  1. ;;00904577889
  1. ;;9002226.02101,"881,00904577889 ",.02)
  1. ;;00904577889
  1. ;;9002226.02101,"881,00904580843 ",.01)
  1. ;;00904580843
  1. ;;9002226.02101,"881,00904580843 ",.02)
  1. ;;00904580843
  1. ;;9002226.02101,"881,00904580846 ",.01)
  1. ;;00904580846
  1. ;;9002226.02101,"881,00904580846 ",.02)
  1. ;;00904580846