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

BGPM5AKA.m

Go to the documentation of this file.
BGPM5AKA ;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,"889,58016085296 ",.01)
 ;;58016085296
 ;;9002226.02101,"889,58016085296 ",.02)
 ;;58016085296
 ;;9002226.02101,"889,58016085297 ",.01)
 ;;58016085297
 ;;9002226.02101,"889,58016085297 ",.02)
 ;;58016085297
 ;;9002226.02101,"889,58016085298 ",.01)
 ;;58016085298
 ;;9002226.02101,"889,58016085298 ",.02)
 ;;58016085298
 ;;9002226.02101,"889,58016085299 ",.01)
 ;;58016085299
 ;;9002226.02101,"889,58016085299 ",.02)
 ;;58016085299
 ;;9002226.02101,"889,58016085900 ",.01)
 ;;58016085900
 ;;9002226.02101,"889,58016085900 ",.02)
 ;;58016085900
 ;;9002226.02101,"889,58016085901 ",.01)
 ;;58016085901
 ;;9002226.02101,"889,58016085901 ",.02)
 ;;58016085901
 ;;9002226.02101,"889,58016085902 ",.01)
 ;;58016085902
 ;;9002226.02101,"889,58016085902 ",.02)
 ;;58016085902
 ;;9002226.02101,"889,58016085903 ",.01)
 ;;58016085903
 ;;9002226.02101,"889,58016085903 ",.02)
 ;;58016085903
 ;;9002226.02101,"889,58016085904 ",.01)
 ;;58016085904
 ;;9002226.02101,"889,58016085904 ",.02)
 ;;58016085904
 ;;9002226.02101,"889,58016085905 ",.01)
 ;;58016085905
 ;;9002226.02101,"889,58016085905 ",.02)
 ;;58016085905
 ;;9002226.02101,"889,58016085906 ",.01)
 ;;58016085906
 ;;9002226.02101,"889,58016085906 ",.02)
 ;;58016085906
 ;;9002226.02101,"889,58016085907 ",.01)
 ;;58016085907
 ;;9002226.02101,"889,58016085907 ",.02)
 ;;58016085907
 ;;9002226.02101,"889,58016085908 ",.01)
 ;;58016085908
 ;;9002226.02101,"889,58016085908 ",.02)
 ;;58016085908
 ;;9002226.02101,"889,58016085909 ",.01)
 ;;58016085909
 ;;9002226.02101,"889,58016085909 ",.02)
 ;;58016085909
 ;;9002226.02101,"889,58016085910 ",.01)
 ;;58016085910
 ;;9002226.02101,"889,58016085910 ",.02)
 ;;58016085910
 ;;9002226.02101,"889,58016085912 ",.01)
 ;;58016085912
 ;;9002226.02101,"889,58016085912 ",.02)
 ;;58016085912
 ;;9002226.02101,"889,58016085914 ",.01)
 ;;58016085914
 ;;9002226.02101,"889,58016085914 ",.02)
 ;;58016085914
 ;;9002226.02101,"889,58016085915 ",.01)
 ;;58016085915
 ;;9002226.02101,"889,58016085915 ",.02)
 ;;58016085915
 ;;9002226.02101,"889,58016085916 ",.01)
 ;;58016085916
 ;;9002226.02101,"889,58016085916 ",.02)
 ;;58016085916
 ;;9002226.02101,"889,58016085918 ",.01)
 ;;58016085918
 ;;9002226.02101,"889,58016085918 ",.02)
 ;;58016085918
 ;;9002226.02101,"889,58016085920 ",.01)
 ;;58016085920
 ;;9002226.02101,"889,58016085920 ",.02)
 ;;58016085920
 ;;9002226.02101,"889,58016085921 ",.01)
 ;;58016085921
 ;;9002226.02101,"889,58016085921 ",.02)
 ;;58016085921
 ;;9002226.02101,"889,58016085924 ",.01)
 ;;58016085924
 ;;9002226.02101,"889,58016085924 ",.02)
 ;;58016085924
 ;;9002226.02101,"889,58016085925 ",.01)
 ;;58016085925
 ;;9002226.02101,"889,58016085925 ",.02)
 ;;58016085925
 ;;9002226.02101,"889,58016085926 ",.01)
 ;;58016085926
 ;;9002226.02101,"889,58016085926 ",.02)
 ;;58016085926
 ;;9002226.02101,"889,58016085927 ",.01)
 ;;58016085927
 ;;9002226.02101,"889,58016085927 ",.02)
 ;;58016085927
 ;;9002226.02101,"889,58016085928 ",.01)
 ;;58016085928
 ;;9002226.02101,"889,58016085928 ",.02)
 ;;58016085928
 ;;9002226.02101,"889,58016085930 ",.01)
 ;;58016085930
 ;;9002226.02101,"889,58016085930 ",.02)
 ;;58016085930
 ;;9002226.02101,"889,58016085932 ",.01)
 ;;58016085932
 ;;9002226.02101,"889,58016085932 ",.02)
 ;;58016085932
 ;;9002226.02101,"889,58016085935 ",.01)
 ;;58016085935
 ;;9002226.02101,"889,58016085935 ",.02)
 ;;58016085935
 ;;9002226.02101,"889,58016085936 ",.01)
 ;;58016085936
 ;;9002226.02101,"889,58016085936 ",.02)
 ;;58016085936
 ;;9002226.02101,"889,58016085940 ",.01)
 ;;58016085940
 ;;9002226.02101,"889,58016085940 ",.02)
 ;;58016085940
 ;;9002226.02101,"889,58016085942 ",.01)
 ;;58016085942
 ;;9002226.02101,"889,58016085942 ",.02)
 ;;58016085942
 ;;9002226.02101,"889,58016085944 ",.01)
 ;;58016085944
 ;;9002226.02101,"889,58016085944 ",.02)
 ;;58016085944
 ;;9002226.02101,"889,58016085945 ",.01)
 ;;58016085945
 ;;9002226.02101,"889,58016085945 ",.02)
 ;;58016085945
 ;;9002226.02101,"889,58016085948 ",.01)
 ;;58016085948
 ;;9002226.02101,"889,58016085948 ",.02)
 ;;58016085948
 ;;9002226.02101,"889,58016085950 ",.01)
 ;;58016085950
 ;;9002226.02101,"889,58016085950 ",.02)
 ;;58016085950
 ;;9002226.02101,"889,58016085956 ",.01)
 ;;58016085956
 ;;9002226.02101,"889,58016085956 ",.02)
 ;;58016085956
 ;;9002226.02101,"889,58016085960 ",.01)
 ;;58016085960
 ;;9002226.02101,"889,58016085960 ",.02)
 ;;58016085960
 ;;9002226.02101,"889,58016085967 ",.01)
 ;;58016085967
 ;;9002226.02101,"889,58016085967 ",.02)
 ;;58016085967
 ;;9002226.02101,"889,58016085969 ",.01)
 ;;58016085969
 ;;9002226.02101,"889,58016085969 ",.02)
 ;;58016085969
 ;;9002226.02101,"889,58016085970 ",.01)
 ;;58016085970
 ;;9002226.02101,"889,58016085970 ",.02)
 ;;58016085970
 ;;9002226.02101,"889,58016085971 ",.01)
 ;;58016085971
 ;;9002226.02101,"889,58016085971 ",.02)
 ;;58016085971
 ;;9002226.02101,"889,58016085972 ",.01)
 ;;58016085972
 ;;9002226.02101,"889,58016085972 ",.02)
 ;;58016085972
 ;;9002226.02101,"889,58016085973 ",.01)
 ;;58016085973
 ;;9002226.02101,"889,58016085973 ",.02)
 ;;58016085973
 ;;9002226.02101,"889,58016085975 ",.01)
 ;;58016085975
 ;;9002226.02101,"889,58016085975 ",.02)
 ;;58016085975
 ;;9002226.02101,"889,58016085976 ",.01)
 ;;58016085976
 ;;9002226.02101,"889,58016085976 ",.02)
 ;;58016085976
 ;;9002226.02101,"889,58016085977 ",.01)
 ;;58016085977
 ;;9002226.02101,"889,58016085977 ",.02)
 ;;58016085977
 ;;9002226.02101,"889,58016085979 ",.01)
 ;;58016085979
 ;;9002226.02101,"889,58016085979 ",.02)
 ;;58016085979
 ;;9002226.02101,"889,58016085980 ",.01)
 ;;58016085980
 ;;9002226.02101,"889,58016085980 ",.02)
 ;;58016085980
 ;;9002226.02101,"889,58016085981 ",.01)
 ;;58016085981
 ;;9002226.02101,"889,58016085981 ",.02)
 ;;58016085981
 ;;9002226.02101,"889,58016085982 ",.01)
 ;;58016085982
 ;;9002226.02101,"889,58016085982 ",.02)
 ;;58016085982
 ;;9002226.02101,"889,58016085989 ",.01)
 ;;58016085989
 ;;9002226.02101,"889,58016085989 ",.02)
 ;;58016085989
 ;;9002226.02101,"889,58016085990 ",.01)
 ;;58016085990
 ;;9002226.02101,"889,58016085990 ",.02)
 ;;58016085990
 ;;9002226.02101,"889,58016085991 ",.01)
 ;;58016085991
 ;;9002226.02101,"889,58016085991 ",.02)
 ;;58016085991
 ;;9002226.02101,"889,58016085992 ",.01)
 ;;58016085992
 ;;9002226.02101,"889,58016085992 ",.02)
 ;;58016085992
 ;;9002226.02101,"889,58016085993 ",.01)
 ;;58016085993
 ;;9002226.02101,"889,58016085993 ",.02)
 ;;58016085993
 ;;9002226.02101,"889,58016085996 ",.01)
 ;;58016085996
 ;;9002226.02101,"889,58016085996 ",.02)
 ;;58016085996
 ;;9002226.02101,"889,58016085997 ",.01)
 ;;58016085997
 ;;9002226.02101,"889,58016085997 ",.02)
 ;;58016085997
 ;;9002226.02101,"889,58016085998 ",.01)
 ;;58016085998
 ;;9002226.02101,"889,58016085998 ",.02)
 ;;58016085998
 ;;9002226.02101,"889,58016085999 ",.01)
 ;;58016085999
 ;;9002226.02101,"889,58016085999 ",.02)
 ;;58016085999
 ;;9002226.02101,"889,58016097400 ",.01)
 ;;58016097400
 ;;9002226.02101,"889,58016097400 ",.02)
 ;;58016097400
 ;;9002226.02101,"889,58016097430 ",.01)
 ;;58016097430
 ;;9002226.02101,"889,58016097430 ",.02)
 ;;58016097430
 ;;9002226.02101,"889,58016097460 ",.01)
 ;;58016097460
 ;;9002226.02101,"889,58016097460 ",.02)
 ;;58016097460
 ;;9002226.02101,"889,58016097490 ",.01)
 ;;58016097490
 ;;9002226.02101,"889,58016097490 ",.02)
 ;;58016097490
 ;;9002226.02101,"889,58016481001 ",.01)
 ;;58016481001
 ;;9002226.02101,"889,58016481001 ",.02)
 ;;58016481001
 ;;9002226.02101,"889,58016499601 ",.01)
 ;;58016499601
 ;;9002226.02101,"889,58016499601 ",.02)
 ;;58016499601
 ;;9002226.02101,"889,58087005712 ",.01)
 ;;58087005712
 ;;9002226.02101,"889,58087005712 ",.02)
 ;;58087005712
 ;;9002226.02101,"889,58087005812 ",.01)
 ;;58087005812
 ;;9002226.02101,"889,58087005812 ",.02)
 ;;58087005812
 ;;9002226.02101,"889,58087007030 ",.01)
 ;;58087007030
 ;;9002226.02101,"889,58087007030 ",.02)
 ;;58087007030
 ;;9002226.02101,"889,58087007060 ",.01)
 ;;58087007060
 ;;9002226.02101,"889,58087007060 ",.02)
 ;;58087007060
 ;;9002226.02101,"889,58087007130 ",.01)
 ;;58087007130
 ;;9002226.02101,"889,58087007130 ",.02)
 ;;58087007130
 ;;9002226.02101,"889,58087007160 ",.01)
 ;;58087007160
 ;;9002226.02101,"889,58087007160 ",.02)
 ;;58087007160
 ;;9002226.02101,"889,58107000290 ",.01)
 ;;58107000290
 ;;9002226.02101,"889,58107000290 ",.02)
 ;;58107000290
 ;;9002226.02101,"889,58107000350 ",.01)
 ;;58107000350
 ;;9002226.02101,"889,58107000350 ",.02)
 ;;58107000350
 ;;9002226.02101,"889,58107000415 ",.01)
 ;;58107000415
 ;;9002226.02101,"889,58107000415 ",.02)
 ;;58107000415
 ;;9002226.02101,"889,58107000575 ",.01)
 ;;58107000575
 ;;9002226.02101,"889,58107000575 ",.02)
 ;;58107000575
 ;;9002226.02101,"889,58107000690 ",.01)
 ;;58107000690
 ;;9002226.02101,"889,58107000690 ",.02)
 ;;58107000690
 ;;9002226.02101,"889,58107000745 ",.01)
 ;;58107000745
 ;;9002226.02101,"889,58107000745 ",.02)
 ;;58107000745
 ;;9002226.02101,"889,58864001601 ",.01)
 ;;58864001601
 ;;9002226.02101,"889,58864001601 ",.02)
 ;;58864001601
 ;;9002226.02101,"889,58864001628 ",.01)
 ;;58864001628
 ;;9002226.02101,"889,58864001628 ",.02)
 ;;58864001628
 ;;9002226.02101,"889,58864001630 ",.01)
 ;;58864001630
 ;;9002226.02101,"889,58864001630 ",.02)
 ;;58864001630
 ;;9002226.02101,"889,58864001660 ",.01)
 ;;58864001660
 ;;9002226.02101,"889,58864001660 ",.02)
 ;;58864001660
 ;;9002226.02101,"889,58864006501 ",.01)
 ;;58864006501
 ;;9002226.02101,"889,58864006501 ",.02)
 ;;58864006501
 ;;9002226.02101,"889,58864006530 ",.01)
 ;;58864006530
 ;;9002226.02101,"889,58864006530 ",.02)
 ;;58864006530
 ;;9002226.02101,"889,58864036330 ",.01)
 ;;58864036330
 ;;9002226.02101,"889,58864036330 ",.02)
 ;;58864036330
 ;;9002226.02101,"889,58864043160 ",.01)
 ;;58864043160
 ;;9002226.02101,"889,58864043160 ",.02)
 ;;58864043160
 ;;9002226.02101,"889,58864064556 ",.01)
 ;;58864064556
 ;;9002226.02101,"889,58864064556 ",.02)
 ;;58864064556
 ;;9002226.02101,"889,58864068030 ",.01)
 ;;58864068030
 ;;9002226.02101,"889,58864068030 ",.02)
 ;;58864068030
 ;;9002226.02101,"889,58864069530 ",.01)
 ;;58864069530
 ;;9002226.02101,"889,58864069530 ",.02)
 ;;58864069530
 ;;9002226.02101,"889,58864071730 ",.01)
 ;;58864071730
 ;;9002226.02101,"889,58864071730 ",.02)
 ;;58864071730
 ;;9002226.02101,"889,58864072730 ",.01)
 ;;58864072730
 ;;9002226.02101,"889,58864072730 ",.02)
 ;;58864072730
 ;;9002226.02101,"889,58864073730 ",.01)
 ;;58864073730
 ;;9002226.02101,"889,58864073730 ",.02)
 ;;58864073730
 ;;9002226.02101,"889,58864074930 ",.01)
 ;;58864074930
 ;;9002226.02101,"889,58864074930 ",.02)
 ;;58864074930
 ;;9002226.02101,"889,58864074990 ",.01)
 ;;58864074990
 ;;9002226.02101,"889,58864074990 ",.02)
 ;;58864074990
 ;;9002226.02101,"889,58864075930 ",.01)
 ;;58864075930
 ;;9002226.02101,"889,58864075930 ",.02)
 ;;58864075930
 ;;9002226.02101,"889,58864076530 ",.01)
 ;;58864076530
 ;;9002226.02101,"889,58864076530 ",.02)
 ;;58864076530
 ;;9002226.02101,"889,58864078430 ",.01)
 ;;58864078430
 ;;9002226.02101,"889,58864078430 ",.02)
 ;;58864078430
 ;;9002226.02101,"889,59252011100 ",.01)
 ;;59252011100
 ;;9002226.02101,"889,59252011100 ",.02)
 ;;59252011100
 ;;9002226.02101,"889,59564012510 ",.01)
 ;;59564012510
 ;;9002226.02101,"889,59564012510 ",.02)
 ;;59564012510
 ;;9002226.02101,"889,59564012525 ",.01)
 ;;59564012525
 ;;9002226.02101,"889,59564012525 ",.02)
 ;;59564012525
 ;;9002226.02101,"889,59564012610 ",.01)
 ;;59564012610
 ;;9002226.02101,"889,59564012610 ",.02)
 ;;59564012610