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

BGPM5AUG.m

Go to the documentation of this file.
  1. BGPM5AUG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00093202723 ",.02)
  1. ;;00093202723
  1. ;;9002226.02101,"1033,00093215801 ",.01)
  1. ;;00093215801
  1. ;;9002226.02101,"1033,00093215801 ",.02)
  1. ;;00093215801
  1. ;;9002226.02101,"1033,00093223801 ",.01)
  1. ;;00093223801
  1. ;;9002226.02101,"1033,00093223801 ",.02)
  1. ;;00093223801
  1. ;;9002226.02101,"1033,00093224001 ",.01)
  1. ;;00093224001
  1. ;;9002226.02101,"1033,00093224001 ",.02)
  1. ;;00093224001
  1. ;;9002226.02101,"1033,00093226301 ",.01)
  1. ;;00093226301
  1. ;;9002226.02101,"1033,00093226301 ",.02)
  1. ;;00093226301
  1. ;;9002226.02101,"1033,00093226401 ",.01)
  1. ;;00093226401
  1. ;;9002226.02101,"1033,00093226401 ",.02)
  1. ;;00093226401
  1. ;;9002226.02101,"1033,00093226701 ",.01)
  1. ;;00093226701
  1. ;;9002226.02101,"1033,00093226701 ",.02)
  1. ;;00093226701
  1. ;;9002226.02101,"1033,00093226801 ",.01)
  1. ;;00093226801
  1. ;;9002226.02101,"1033,00093226801 ",.02)
  1. ;;00093226801
  1. ;;9002226.02101,"1033,00093226805 ",.01)
  1. ;;00093226805
  1. ;;9002226.02101,"1033,00093226805 ",.02)
  1. ;;00093226805
  1. ;;9002226.02101,"1033,00093227034 ",.01)
  1. ;;00093227034
  1. ;;9002226.02101,"1033,00093227034 ",.02)
  1. ;;00093227034
  1. ;;9002226.02101,"1033,00093227234 ",.01)
  1. ;;00093227234
  1. ;;9002226.02101,"1033,00093227234 ",.02)
  1. ;;00093227234
  1. ;;9002226.02101,"1033,00093227434 ",.01)
  1. ;;00093227434
  1. ;;9002226.02101,"1033,00093227434 ",.02)
  1. ;;00093227434
  1. ;;9002226.02101,"1033,00093227534 ",.01)
  1. ;;00093227534
  1. ;;9002226.02101,"1033,00093227534 ",.02)
  1. ;;00093227534
  1. ;;9002226.02101,"1033,00093227773 ",.01)
  1. ;;00093227773
  1. ;;9002226.02101,"1033,00093227773 ",.02)
  1. ;;00093227773
  1. ;;9002226.02101,"1033,00093227973 ",.01)
  1. ;;00093227973
  1. ;;9002226.02101,"1033,00093227973 ",.02)
  1. ;;00093227973
  1. ;;9002226.02101,"1033,00093310701 ",.01)
  1. ;;00093310701
  1. ;;9002226.02101,"1033,00093310701 ",.02)
  1. ;;00093310701
  1. ;;9002226.02101,"1033,00093310705 ",.01)
  1. ;;00093310705
  1. ;;9002226.02101,"1033,00093310705 ",.02)
  1. ;;00093310705
  1. ;;9002226.02101,"1033,00093310719 ",.01)
  1. ;;00093310719
  1. ;;9002226.02101,"1033,00093310719 ",.02)
  1. ;;00093310719
  1. ;;9002226.02101,"1033,00093310756 ",.01)
  1. ;;00093310756
  1. ;;9002226.02101,"1033,00093310756 ",.02)
  1. ;;00093310756
  1. ;;9002226.02101,"1033,00093310793 ",.01)
  1. ;;00093310793
  1. ;;9002226.02101,"1033,00093310793 ",.02)
  1. ;;00093310793
  1. ;;9002226.02101,"1033,00093310905 ",.01)
  1. ;;00093310905
  1. ;;9002226.02101,"1033,00093310905 ",.02)
  1. ;;00093310905
  1. ;;9002226.02101,"1033,00093310919 ",.01)
  1. ;;00093310919
  1. ;;9002226.02101,"1033,00093310919 ",.02)
  1. ;;00093310919
  1. ;;9002226.02101,"1033,00093310953 ",.01)
  1. ;;00093310953
  1. ;;9002226.02101,"1033,00093310953 ",.02)
  1. ;;00093310953
  1. ;;9002226.02101,"1033,00093310993 ",.01)
  1. ;;00093310993
  1. ;;9002226.02101,"1033,00093310993 ",.02)
  1. ;;00093310993
  1. ;;9002226.02101,"1033,00093312301 ",.01)
  1. ;;00093312301
  1. ;;9002226.02101,"1033,00093312301 ",.02)
  1. ;;00093312301
  1. ;;9002226.02101,"1033,00093312501 ",.01)
  1. ;;00093312501
  1. ;;9002226.02101,"1033,00093312501 ",.02)
  1. ;;00093312501
  1. ;;9002226.02101,"1033,00093314501 ",.01)
  1. ;;00093314501
  1. ;;9002226.02101,"1033,00093314501 ",.02)
  1. ;;00093314501
  1. ;;9002226.02101,"1033,00093314505 ",.01)
  1. ;;00093314505
  1. ;;9002226.02101,"1033,00093314505 ",.02)
  1. ;;00093314505
  1. ;;9002226.02101,"1033,00093314519 ",.01)
  1. ;;00093314519
  1. ;;9002226.02101,"1033,00093314519 ",.02)
  1. ;;00093314519
  1. ;;9002226.02101,"1033,00093314593 ",.01)
  1. ;;00093314593
  1. ;;9002226.02101,"1033,00093314593 ",.02)
  1. ;;00093314593
  1. ;;9002226.02101,"1033,00093314701 ",.01)
  1. ;;00093314701
  1. ;;9002226.02101,"1033,00093314701 ",.02)
  1. ;;00093314701
  1. ;;9002226.02101,"1033,00093314705 ",.01)
  1. ;;00093314705
  1. ;;9002226.02101,"1033,00093314705 ",.02)
  1. ;;00093314705
  1. ;;9002226.02101,"1033,00093314719 ",.01)
  1. ;;00093314719
  1. ;;9002226.02101,"1033,00093314719 ",.02)
  1. ;;00093314719
  1. ;;9002226.02101,"1033,00093314793 ",.01)
  1. ;;00093314793
  1. ;;9002226.02101,"1033,00093314793 ",.02)
  1. ;;00093314793
  1. ;;9002226.02101,"1033,00093316006 ",.01)
  1. ;;00093316006
  1. ;;9002226.02101,"1033,00093316006 ",.02)
  1. ;;00093316006
  1. ;;9002226.02101,"1033,00093316501 ",.01)
  1. ;;00093316501
  1. ;;9002226.02101,"1033,00093316501 ",.02)
  1. ;;00093316501
  1. ;;9002226.02101,"1033,00093316753 ",.01)
  1. ;;00093316753
  1. ;;9002226.02101,"1033,00093316753 ",.02)
  1. ;;00093316753
  1. ;;9002226.02101,"1033,00093317101 ",.01)
  1. ;;00093317101
  1. ;;9002226.02101,"1033,00093317101 ",.02)
  1. ;;00093317101
  1. ;;9002226.02101,"1033,00093319601 ",.01)
  1. ;;00093319601
  1. ;;9002226.02101,"1033,00093319601 ",.02)
  1. ;;00093319601
  1. ;;9002226.02101,"1033,00093319653 ",.01)
  1. ;;00093319653
  1. ;;9002226.02101,"1033,00093319653 ",.02)
  1. ;;00093319653
  1. ;;9002226.02101,"1033,00093405953 ",.01)
  1. ;;00093405953
  1. ;;9002226.02101,"1033,00093405953 ",.02)
  1. ;;00093405953
  1. ;;9002226.02101,"1033,00093412573 ",.01)
  1. ;;00093412573
  1. ;;9002226.02101,"1033,00093412573 ",.02)
  1. ;;00093412573
  1. ;;9002226.02101,"1033,00093412574 ",.01)
  1. ;;00093412574
  1. ;;9002226.02101,"1033,00093412574 ",.02)
  1. ;;00093412574
  1. ;;9002226.02101,"1033,00093412773 ",.01)
  1. ;;00093412773
  1. ;;9002226.02101,"1033,00093412773 ",.02)
  1. ;;00093412773
  1. ;;9002226.02101,"1033,00093412774 ",.01)
  1. ;;00093412774
  1. ;;9002226.02101,"1033,00093412774 ",.02)
  1. ;;00093412774
  1. ;;9002226.02101,"1033,00093413664 ",.01)
  1. ;;00093413664
  1. ;;9002226.02101,"1033,00093413664 ",.02)
  1. ;;00093413664
  1. ;;9002226.02101,"1033,00093413673 ",.01)
  1. ;;00093413673
  1. ;;9002226.02101,"1033,00093413673 ",.02)
  1. ;;00093413673
  1. ;;9002226.02101,"1033,00093413764 ",.01)
  1. ;;00093413764
  1. ;;9002226.02101,"1033,00093413764 ",.02)
  1. ;;00093413764
  1. ;;9002226.02101,"1033,00093413773 ",.01)
  1. ;;00093413773
  1. ;;9002226.02101,"1033,00093413773 ",.02)
  1. ;;00093413773
  1. ;;9002226.02101,"1033,00093415073 ",.01)
  1. ;;00093415073
  1. ;;9002226.02101,"1033,00093415073 ",.02)
  1. ;;00093415073
  1. ;;9002226.02101,"1033,00093415079 ",.01)
  1. ;;00093415079
  1. ;;9002226.02101,"1033,00093415079 ",.02)
  1. ;;00093415079
  1. ;;9002226.02101,"1033,00093415080 ",.01)
  1. ;;00093415080
  1. ;;9002226.02101,"1033,00093415080 ",.02)
  1. ;;00093415080
  1. ;;9002226.02101,"1033,00093415573 ",.01)
  1. ;;00093415573
  1. ;;9002226.02101,"1033,00093415573 ",.02)
  1. ;;00093415573
  1. ;;9002226.02101,"1033,00093415579 ",.01)
  1. ;;00093415579
  1. ;;9002226.02101,"1033,00093415579 ",.02)
  1. ;;00093415579
  1. ;;9002226.02101,"1033,00093415580 ",.01)
  1. ;;00093415580
  1. ;;9002226.02101,"1033,00093415580 ",.02)
  1. ;;00093415580
  1. ;;9002226.02101,"1033,00093416073 ",.01)
  1. ;;00093416073
  1. ;;9002226.02101,"1033,00093416073 ",.02)
  1. ;;00093416073
  1. ;;9002226.02101,"1033,00093416076 ",.01)
  1. ;;00093416076
  1. ;;9002226.02101,"1033,00093416076 ",.02)
  1. ;;00093416076
  1. ;;9002226.02101,"1033,00093416078 ",.01)
  1. ;;00093416078
  1. ;;9002226.02101,"1033,00093416078 ",.02)
  1. ;;00093416078
  1. ;;9002226.02101,"1033,00093416173 ",.01)
  1. ;;00093416173
  1. ;;9002226.02101,"1033,00093416173 ",.02)
  1. ;;00093416173
  1. ;;9002226.02101,"1033,00093416176 ",.01)
  1. ;;00093416176
  1. ;;9002226.02101,"1033,00093416176 ",.02)
  1. ;;00093416176
  1. ;;9002226.02101,"1033,00093416178 ",.01)
  1. ;;00093416178
  1. ;;9002226.02101,"1033,00093416178 ",.02)
  1. ;;00093416178
  1. ;;9002226.02101,"1033,00093417064 ",.01)
  1. ;;00093417064
  1. ;;9002226.02101,"1033,00093417064 ",.02)
  1. ;;00093417064
  1. ;;9002226.02101,"1033,00093417573 ",.01)
  1. ;;00093417573
  1. ;;9002226.02101,"1033,00093417573 ",.02)
  1. ;;00093417573
  1. ;;9002226.02101,"1033,00093417574 ",.01)
  1. ;;00093417574
  1. ;;9002226.02101,"1033,00093417574 ",.02)
  1. ;;00093417574
  1. ;;9002226.02101,"1033,00093417773 ",.01)
  1. ;;00093417773
  1. ;;9002226.02101,"1033,00093417773 ",.02)
  1. ;;00093417773
  1. ;;9002226.02101,"1033,00093417774 ",.01)
  1. ;;00093417774
  1. ;;9002226.02101,"1033,00093417774 ",.02)
  1. ;;00093417774
  1. ;;9002226.02101,"1033,00093418073 ",.01)
  1. ;;00093418073
  1. ;;9002226.02101,"1033,00093418073 ",.02)
  1. ;;00093418073
  1. ;;9002226.02101,"1033,00093418076 ",.01)
  1. ;;00093418076
  1. ;;9002226.02101,"1033,00093418076 ",.02)
  1. ;;00093418076
  1. ;;9002226.02101,"1033,00093418173 ",.01)
  1. ;;00093418173
  1. ;;9002226.02101,"1033,00093418173 ",.02)
  1. ;;00093418173
  1. ;;9002226.02101,"1033,00093418178 ",.01)
  1. ;;00093418178
  1. ;;9002226.02101,"1033,00093418178 ",.02)
  1. ;;00093418178
  1. ;;9002226.02101,"1033,00093519501 ",.01)
  1. ;;00093519501
  1. ;;9002226.02101,"1033,00093519501 ",.02)
  1. ;;00093519501
  1. ;;9002226.02101,"1033,00093525601 ",.01)
  1. ;;00093525601
  1. ;;9002226.02101,"1033,00093525601 ",.02)
  1. ;;00093525601
  1. ;;9002226.02101,"1033,00093525668 ",.01)
  1. ;;00093525668
  1. ;;9002226.02101,"1033,00093525668 ",.02)
  1. ;;00093525668
  1. ;;9002226.02101,"1033,00093547616 ",.01)
  1. ;;00093547616
  1. ;;9002226.02101,"1033,00093547616 ",.02)
  1. ;;00093547616
  1. ;;9002226.02101,"1033,00093714656 ",.01)
  1. ;;00093714656
  1. ;;9002226.02101,"1033,00093714656 ",.02)
  1. ;;00093714656
  1. ;;9002226.02101,"1033,00093714823 ",.01)
  1. ;;00093714823
  1. ;;9002226.02101,"1033,00093714823 ",.02)
  1. ;;00093714823
  1. ;;9002226.02101,"1033,00093714923 ",.01)
  1. ;;00093714923
  1. ;;9002226.02101,"1033,00093714923 ",.02)
  1. ;;00093714923
  1. ;;9002226.02101,"1033,00093714931 ",.01)
  1. ;;00093714931
  1. ;;9002226.02101,"1033,00093714931 ",.02)
  1. ;;00093714931
  1. ;;9002226.02101,"1033,00093714994 ",.01)
  1. ;;00093714994
  1. ;;9002226.02101,"1033,00093714994 ",.02)
  1. ;;00093714994
  1. ;;9002226.02101,"1033,00093715706 ",.01)
  1. ;;00093715706
  1. ;;9002226.02101,"1033,00093715706 ",.02)
  1. ;;00093715706
  1. ;;9002226.02101,"1033,00093715806 ",.01)
  1. ;;00093715806
  1. ;;9002226.02101,"1033,00093715806 ",.02)
  1. ;;00093715806
  1. ;;9002226.02101,"1033,00093718001 ",.01)
  1. ;;00093718001
  1. ;;9002226.02101,"1033,00093718001 ",.02)
  1. ;;00093718001
  1. ;;9002226.02101,"1033,00093718101 ",.01)
  1. ;;00093718101
  1. ;;9002226.02101,"1033,00093718101 ",.02)
  1. ;;00093718101
  1. ;;9002226.02101,"1033,00093718201 ",.01)
  1. ;;00093718201
  1. ;;9002226.02101,"1033,00093718201 ",.02)
  1. ;;00093718201
  1. ;;9002226.02101,"1033,00093724406 ",.01)
  1. ;;00093724406
  1. ;;9002226.02101,"1033,00093724406 ",.02)
  1. ;;00093724406
  1. ;;9002226.02101,"1033,00093729353 ",.01)
  1. ;;00093729353
  1. ;;9002226.02101,"1033,00093729353 ",.02)
  1. ;;00093729353
  1. ;;9002226.02101,"1033,00093730001 ",.01)
  1. ;;00093730001
  1. ;;9002226.02101,"1033,00093730001 ",.02)
  1. ;;00093730001
  1. ;;9002226.02101,"1033,00093867574 ",.01)
  1. ;;00093867574
  1. ;;9002226.02101,"1033,00093867574 ",.02)
  1. ;;00093867574
  1. ;;9002226.02101,"1033,00093867575 ",.01)
  1. ;;00093867575
  1. ;;9002226.02101,"1033,00093867575 ",.02)
  1. ;;00093867575
  1. ;;9002226.02101,"1033,00093867578 ",.01)
  1. ;;00093867578
  1. ;;9002226.02101,"1033,00093867578 ",.02)
  1. ;;00093867578
  1. ;;9002226.02101,"1033,00115120801 ",.01)
  1. ;;00115120801
  1. ;;9002226.02101,"1033,00115120801 ",.02)
  1. ;;00115120801
  1. ;;9002226.02101,"1033,00115120808 ",.01)
  1. ;;00115120808
  1. ;;9002226.02101,"1033,00115120808 ",.02)
  1. ;;00115120808
  1. ;;9002226.02101,"1033,00115120813 ",.01)
  1. ;;00115120813
  1. ;;9002226.02101,"1033,00115120813 ",.02)
  1. ;;00115120813
  1. ;;9002226.02101,"1033,00115120901 ",.01)
  1. ;;00115120901
  1. ;;9002226.02101,"1033,00115120901 ",.02)
  1. ;;00115120901
  1. ;;9002226.02101,"1033,00115120903 ",.01)
  1. ;;00115120903
  1. ;;9002226.02101,"1033,00115120903 ",.02)
  1. ;;00115120903
  1. ;;9002226.02101,"1033,00115120908 ",.01)
  1. ;;00115120908
  1. ;;9002226.02101,"1033,00115120908 ",.02)
  1. ;;00115120908
  1. ;;9002226.02101,"1033,00115124501 ",.01)
  1. ;;00115124501
  1. ;;9002226.02101,"1033,00115124501 ",.02)
  1. ;;00115124501
  1. ;;9002226.02101,"1033,00115124502 ",.01)
  1. ;;00115124502
  1. ;;9002226.02101,"1033,00115124502 ",.02)
  1. ;;00115124502
  1. ;;9002226.02101,"1033,00115124503 ",.01)
  1. ;;00115124503
  1. ;;9002226.02101,"1033,00115124503 ",.02)
  1. ;;00115124503
  1. ;;9002226.02101,"1033,00115124508 ",.01)
  1. ;;00115124508
  1. ;;9002226.02101,"1033,00115124508 ",.02)
  1. ;;00115124508
  1. ;;9002226.02101,"1033,00115124510 ",.01)
  1. ;;00115124510
  1. ;;9002226.02101,"1033,00115124510 ",.02)
  1. ;;00115124510