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