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

BGPM5AGJ.m

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