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

BGPM5ASZ.m

Go to the documentation of this file.
  1. BGPM5ASZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"1011,00247017110 ",.02)
  1. ;;00247017110
  1. ;;9002226.02101,"1011,00247017112 ",.01)
  1. ;;00247017112
  1. ;;9002226.02101,"1011,00247017112 ",.02)
  1. ;;00247017112
  1. ;;9002226.02101,"1011,00247017130 ",.01)
  1. ;;00247017130
  1. ;;9002226.02101,"1011,00247017130 ",.02)
  1. ;;00247017130
  1. ;;9002226.02101,"1011,00247017175 ",.01)
  1. ;;00247017175
  1. ;;9002226.02101,"1011,00247017175 ",.02)
  1. ;;00247017175
  1. ;;9002226.02101,"1011,00247087020 ",.01)
  1. ;;00247087020
  1. ;;9002226.02101,"1011,00247087020 ",.02)
  1. ;;00247087020
  1. ;;9002226.02101,"1011,00247189700 ",.01)
  1. ;;00247189700
  1. ;;9002226.02101,"1011,00247189700 ",.02)
  1. ;;00247189700
  1. ;;9002226.02101,"1011,00247189730 ",.01)
  1. ;;00247189730
  1. ;;9002226.02101,"1011,00247189730 ",.02)
  1. ;;00247189730
  1. ;;9002226.02101,"1011,00247189760 ",.01)
  1. ;;00247189760
  1. ;;9002226.02101,"1011,00247189760 ",.02)
  1. ;;00247189760
  1. ;;9002226.02101,"1011,00247189777 ",.01)
  1. ;;00247189777
  1. ;;9002226.02101,"1011,00247189777 ",.02)
  1. ;;00247189777
  1. ;;9002226.02101,"1011,00247189790 ",.01)
  1. ;;00247189790
  1. ;;9002226.02101,"1011,00247189790 ",.02)
  1. ;;00247189790
  1. ;;9002226.02101,"1011,00247189800 ",.01)
  1. ;;00247189800
  1. ;;9002226.02101,"1011,00247189800 ",.02)
  1. ;;00247189800
  1. ;;9002226.02101,"1011,00247189814 ",.01)
  1. ;;00247189814
  1. ;;9002226.02101,"1011,00247189814 ",.02)
  1. ;;00247189814
  1. ;;9002226.02101,"1011,00247189830 ",.01)
  1. ;;00247189830
  1. ;;9002226.02101,"1011,00247189830 ",.02)
  1. ;;00247189830
  1. ;;9002226.02101,"1011,00247189860 ",.01)
  1. ;;00247189860
  1. ;;9002226.02101,"1011,00247189860 ",.02)
  1. ;;00247189860
  1. ;;9002226.02101,"1011,00247189877 ",.01)
  1. ;;00247189877
  1. ;;9002226.02101,"1011,00247189877 ",.02)
  1. ;;00247189877
  1. ;;9002226.02101,"1011,00247189890 ",.01)
  1. ;;00247189890
  1. ;;9002226.02101,"1011,00247189890 ",.02)
  1. ;;00247189890
  1. ;;9002226.02101,"1011,00247198830 ",.01)
  1. ;;00247198830
  1. ;;9002226.02101,"1011,00247198830 ",.02)
  1. ;;00247198830
  1. ;;9002226.02101,"1011,00247200646 ",.01)
  1. ;;00247200646
  1. ;;9002226.02101,"1011,00247200646 ",.02)
  1. ;;00247200646
  1. ;;9002226.02101,"1011,00247200673 ",.01)
  1. ;;00247200673
  1. ;;9002226.02101,"1011,00247200673 ",.02)
  1. ;;00247200673
  1. ;;9002226.02101,"1011,00247200674 ",.01)
  1. ;;00247200674
  1. ;;9002226.02101,"1011,00247200674 ",.02)
  1. ;;00247200674
  1. ;;9002226.02101,"1011,00247222472 ",.01)
  1. ;;00247222472
  1. ;;9002226.02101,"1011,00247222472 ",.02)
  1. ;;00247222472
  1. ;;9002226.02101,"1011,00247222572 ",.01)
  1. ;;00247222572
  1. ;;9002226.02101,"1011,00247222572 ",.02)
  1. ;;00247222572
  1. ;;9002226.02101,"1011,00247222672 ",.01)
  1. ;;00247222672
  1. ;;9002226.02101,"1011,00247222672 ",.02)
  1. ;;00247222672
  1. ;;9002226.02101,"1011,00247222701 ",.01)
  1. ;;00247222701
  1. ;;9002226.02101,"1011,00247222701 ",.02)
  1. ;;00247222701
  1. ;;9002226.02101,"1011,00258358101 ",.01)
  1. ;;00258358101
  1. ;;9002226.02101,"1011,00258358101 ",.02)
  1. ;;00258358101
  1. ;;9002226.02101,"1011,00258358105 ",.01)
  1. ;;00258358105
  1. ;;9002226.02101,"1011,00258358105 ",.02)
  1. ;;00258358105
  1. ;;9002226.02101,"1011,00258358110 ",.01)
  1. ;;00258358110
  1. ;;9002226.02101,"1011,00258358110 ",.02)
  1. ;;00258358110
  1. ;;9002226.02101,"1011,00258362501 ",.01)
  1. ;;00258362501
  1. ;;9002226.02101,"1011,00258362501 ",.02)
  1. ;;00258362501
  1. ;;9002226.02101,"1011,00258363401 ",.01)
  1. ;;00258363401
  1. ;;9002226.02101,"1011,00258363401 ",.02)
  1. ;;00258363401
  1. ;;9002226.02101,"1011,00258363701 ",.01)
  1. ;;00258363701
  1. ;;9002226.02101,"1011,00258363701 ",.02)
  1. ;;00258363701
  1. ;;9002226.02101,"1011,00258363801 ",.01)
  1. ;;00258363801
  1. ;;9002226.02101,"1011,00258363801 ",.02)
  1. ;;00258363801
  1. ;;9002226.02101,"1011,00310040160 ",.01)
  1. ;;00310040160
  1. ;;9002226.02101,"1011,00310040160 ",.02)
  1. ;;00310040160
  1. ;;9002226.02101,"1011,00310040260 ",.01)
  1. ;;00310040260
  1. ;;9002226.02101,"1011,00310040260 ",.02)
  1. ;;00310040260
  1. ;;9002226.02101,"1011,00378699052 ",.01)
  1. ;;00378699052
  1. ;;9002226.02101,"1011,00378699052 ",.02)
  1. ;;00378699052
  1. ;;9002226.02101,"1011,00378699058 ",.01)
  1. ;;00378699058
  1. ;;9002226.02101,"1011,00378699058 ",.02)
  1. ;;00378699058
  1. ;;9002226.02101,"1011,00378699091 ",.01)
  1. ;;00378699091
  1. ;;9002226.02101,"1011,00378699091 ",.02)
  1. ;;00378699091
  1. ;;9002226.02101,"1011,00378699093 ",.01)
  1. ;;00378699093
  1. ;;9002226.02101,"1011,00378699093 ",.02)
  1. ;;00378699093
  1. ;;9002226.02101,"1011,00378699252 ",.01)
  1. ;;00378699252
  1. ;;9002226.02101,"1011,00378699252 ",.02)
  1. ;;00378699252
  1. ;;9002226.02101,"1011,00430021424 ",.01)
  1. ;;00430021424
  1. ;;9002226.02101,"1011,00430021424 ",.02)
  1. ;;00430021424
  1. ;;9002226.02101,"1011,00456067098 ",.01)
  1. ;;00456067098
  1. ;;9002226.02101,"1011,00456067098 ",.02)
  1. ;;00456067098
  1. ;;9002226.02101,"1011,00456067099 ",.01)
  1. ;;00456067099
  1. ;;9002226.02101,"1011,00456067099 ",.02)
  1. ;;00456067099
  1. ;;9002226.02101,"1011,00456067298 ",.01)
  1. ;;00456067298
  1. ;;9002226.02101,"1011,00456067298 ",.02)
  1. ;;00456067298
  1. ;;9002226.02101,"1011,00456067299 ",.01)
  1. ;;00456067299
  1. ;;9002226.02101,"1011,00456067299 ",.02)
  1. ;;00456067299
  1. ;;9002226.02101,"1011,00472075221 ",.01)
  1. ;;00472075221
  1. ;;9002226.02101,"1011,00472075221 ",.02)
  1. ;;00472075221
  1. ;;9002226.02101,"1011,00472075260 ",.01)
  1. ;;00472075260
  1. ;;9002226.02101,"1011,00472075260 ",.02)
  1. ;;00472075260
  1. ;;9002226.02101,"1011,00472083123 ",.01)
  1. ;;00472083123
  1. ;;9002226.02101,"1011,00472083123 ",.02)
  1. ;;00472083123
  1. ;;9002226.02101,"1011,00472083125 ",.01)
  1. ;;00472083125
  1. ;;9002226.02101,"1011,00472083125 ",.02)
  1. ;;00472083125
  1. ;;9002226.02101,"1011,00472083130 ",.01)
  1. ;;00472083130
  1. ;;9002226.02101,"1011,00472083130 ",.02)
  1. ;;00472083130
  1. ;;9002226.02101,"1011,00472083160 ",.01)
  1. ;;00472083160
  1. ;;9002226.02101,"1011,00472083160 ",.02)
  1. ;;00472083160
  1. ;;9002226.02101,"1011,00487760100 ",.01)
  1. ;;00487760100
  1. ;;9002226.02101,"1011,00487760100 ",.02)
  1. ;;00487760100
  1. ;;9002226.02101,"1011,00487760101 ",.01)
  1. ;;00487760101
  1. ;;9002226.02101,"1011,00487760101 ",.02)
  1. ;;00487760101
  1. ;;9002226.02101,"1011,00487950101 ",.01)
  1. ;;00487950101
  1. ;;9002226.02101,"1011,00487950101 ",.02)
  1. ;;00487950101
  1. ;;9002226.02101,"1011,00487950102 ",.01)
  1. ;;00487950102
  1. ;;9002226.02101,"1011,00487950102 ",.02)
  1. ;;00487950102
  1. ;;9002226.02101,"1011,00487950103 ",.01)
  1. ;;00487950103
  1. ;;9002226.02101,"1011,00487950103 ",.02)
  1. ;;00487950103
  1. ;;9002226.02101,"1011,00487950125 ",.01)
  1. ;;00487950125
  1. ;;9002226.02101,"1011,00487950125 ",.02)
  1. ;;00487950125
  1. ;;9002226.02101,"1011,00487950160 ",.01)
  1. ;;00487950160
  1. ;;9002226.02101,"1011,00487950160 ",.02)
  1. ;;00487950160
  1. ;;9002226.02101,"1011,00487990102 ",.01)
  1. ;;00487990102
  1. ;;9002226.02101,"1011,00487990102 ",.02)
  1. ;;00487990102
  1. ;;9002226.02101,"1011,00487990130 ",.01)
  1. ;;00487990130
  1. ;;9002226.02101,"1011,00487990130 ",.02)
  1. ;;00487990130
  1. ;;9002226.02101,"1011,00487990401 ",.01)
  1. ;;00487990401
  1. ;;9002226.02101,"1011,00487990401 ",.02)
  1. ;;00487990401
  1. ;;9002226.02101,"1011,00487990402 ",.01)
  1. ;;00487990402
  1. ;;9002226.02101,"1011,00487990402 ",.02)
  1. ;;00487990402
  1. ;;9002226.02101,"1011,00487990425 ",.01)
  1. ;;00487990425
  1. ;;9002226.02101,"1011,00487990425 ",.02)
  1. ;;00487990425
  1. ;;9002226.02101,"1011,00591346853 ",.01)
  1. ;;00591346853
  1. ;;9002226.02101,"1011,00591346853 ",.02)
  1. ;;00591346853
  1. ;;9002226.02101,"1011,00591379730 ",.01)
  1. ;;00591379730
  1. ;;9002226.02101,"1011,00591379730 ",.02)
  1. ;;00591379730
  1. ;;9002226.02101,"1011,00591379760 ",.01)
  1. ;;00591379760
  1. ;;9002226.02101,"1011,00591379760 ",.02)
  1. ;;00591379760
  1. ;;9002226.02101,"1011,00591379783 ",.01)
  1. ;;00591379783
  1. ;;9002226.02101,"1011,00591379783 ",.02)
  1. ;;00591379783
  1. ;;9002226.02101,"1011,00597001314 ",.01)
  1. ;;00597001314
  1. ;;9002226.02101,"1011,00597001314 ",.02)
  1. ;;00597001314
  1. ;;9002226.02101,"1011,00603100540 ",.01)
  1. ;;00603100540
  1. ;;9002226.02101,"1011,00603100540 ",.02)
  1. ;;00603100540
  1. ;;9002226.02101,"1011,00603594621 ",.01)
  1. ;;00603594621
  1. ;;9002226.02101,"1011,00603594621 ",.02)
  1. ;;00603594621
  1. ;;9002226.02101,"1011,00603594628 ",.01)
  1. ;;00603594628
  1. ;;9002226.02101,"1011,00603594628 ",.02)
  1. ;;00603594628
  1. ;;9002226.02101,"1011,00603594629 ",.01)
  1. ;;00603594629
  1. ;;9002226.02101,"1011,00603594629 ",.02)
  1. ;;00603594629
  1. ;;9002226.02101,"1011,00603594632 ",.01)
  1. ;;00603594632
  1. ;;9002226.02101,"1011,00603594632 ",.02)
  1. ;;00603594632
  1. ;;9002226.02101,"1011,00603595021 ",.01)
  1. ;;00603595021
  1. ;;9002226.02101,"1011,00603595021 ",.02)
  1. ;;00603595021
  1. ;;9002226.02101,"1011,00603595121 ",.01)
  1. ;;00603595121
  1. ;;9002226.02101,"1011,00603595121 ",.02)
  1. ;;00603595121
  1. ;;9002226.02101,"1011,00603595221 ",.01)
  1. ;;00603595221
  1. ;;9002226.02101,"1011,00603595221 ",.02)
  1. ;;00603595221
  1. ;;9002226.02101,"1011,00615159039 ",.01)
  1. ;;00615159039
  1. ;;9002226.02101,"1011,00615159039 ",.02)
  1. ;;00615159039
  1. ;;9002226.02101,"1011,00615561405 ",.01)
  1. ;;00615561405
  1. ;;9002226.02101,"1011,00615561405 ",.02)
  1. ;;00615561405
  1. ;;9002226.02101,"1011,00615561431 ",.01)
  1. ;;00615561431
  1. ;;9002226.02101,"1011,00615561431 ",.02)
  1. ;;00615561431
  1. ;;9002226.02101,"1011,00615561439 ",.01)
  1. ;;00615561439
  1. ;;9002226.02101,"1011,00615561439 ",.02)
  1. ;;00615561439
  1. ;;9002226.02101,"1011,00677081701 ",.01)
  1. ;;00677081701
  1. ;;9002226.02101,"1011,00677081701 ",.02)
  1. ;;00677081701
  1. ;;9002226.02101,"1011,00677081705 ",.01)
  1. ;;00677081705
  1. ;;9002226.02101,"1011,00677081705 ",.02)
  1. ;;00677081705
  1. ;;9002226.02101,"1011,00677152122 ",.01)
  1. ;;00677152122
  1. ;;9002226.02101,"1011,00677152122 ",.02)
  1. ;;00677152122
  1. ;;9002226.02101,"1011,00677152272 ",.01)
  1. ;;00677152272
  1. ;;9002226.02101,"1011,00677152272 ",.02)
  1. ;;00677152272
  1. ;;9002226.02101,"1011,00801030000 ",.01)
  1. ;;00801030000
  1. ;;9002226.02101,"1011,00801030000 ",.02)
  1. ;;00801030000
  1. ;;9002226.02101,"1011,00801234100 ",.01)
  1. ;;00801234100
  1. ;;9002226.02101,"1011,00801234100 ",.02)
  1. ;;00801234100
  1. ;;9002226.02101,"1011,00801234200 ",.01)
  1. ;;00801234200
  1. ;;9002226.02101,"1011,00801234200 ",.02)
  1. ;;00801234200
  1. ;;9002226.02101,"1011,00801234300 ",.01)
  1. ;;00801234300
  1. ;;9002226.02101,"1011,00801234300 ",.02)
  1. ;;00801234300
  1. ;;9002226.02101,"1011,00904161280 ",.01)
  1. ;;00904161280
  1. ;;9002226.02101,"1011,00904161280 ",.02)
  1. ;;00904161280
  1. ;;9002226.02101,"1011,00904588961 ",.01)
  1. ;;00904588961
  1. ;;9002226.02101,"1011,00904588961 ",.02)
  1. ;;00904588961
  1. ;;9002226.02101,"1011,00904765855 ",.01)
  1. ;;00904765855
  1. ;;9002226.02101,"1011,00904765855 ",.02)
  1. ;;00904765855
  1. ;;9002226.02101,"1011,00904773117 ",.01)
  1. ;;00904773117
  1. ;;9002226.02101,"1011,00904773117 ",.02)
  1. ;;00904773117
  1. ;;9002226.02101,"1011,00904784760 ",.01)
  1. ;;00904784760
  1. ;;9002226.02101,"1011,00904784760 ",.02)
  1. ;;00904784760
  1. ;;9002226.02101,"1011,00904784860 ",.01)
  1. ;;00904784860
  1. ;;9002226.02101,"1011,00904784860 ",.02)
  1. ;;00904784860
  1. ;;9002226.02101,"1011,00904784960 ",.01)
  1. ;;00904784960
  1. ;;9002226.02101,"1011,00904784960 ",.02)
  1. ;;00904784960
  1. ;;9002226.02101,"1011,10122090112 ",.01)
  1. ;;10122090112
  1. ;;9002226.02101,"1011,10122090112 ",.02)
  1. ;;10122090112
  1. ;;9002226.02101,"1011,11014070003 ",.01)
  1. ;;11014070003
  1. ;;9002226.02101,"1011,11014070003 ",.02)
  1. ;;11014070003
  1. ;;9002226.02101,"1011,11014070024 ",.01)
  1. ;;11014070024
  1. ;;9002226.02101,"1011,11014070024 ",.02)
  1. ;;11014070024
  1. ;;9002226.02101,"1011,11014070036 ",.01)
  1. ;;11014070036
  1. ;;9002226.02101,"1011,11014070036 ",.02)
  1. ;;11014070036
  1. ;;9002226.02101,"1011,11014070103 ",.01)
  1. ;;11014070103
  1. ;;9002226.02101,"1011,11014070103 ",.02)
  1. ;;11014070103
  1. ;;9002226.02101,"1011,11014070124 ",.01)
  1. ;;11014070124
  1. ;;9002226.02101,"1011,11014070124 ",.02)
  1. ;;11014070124
  1. ;;9002226.02101,"1011,11014070136 ",.01)
  1. ;;11014070136
  1. ;;9002226.02101,"1011,11014070136 ",.02)
  1. ;;11014070136
  1. ;;9002226.02101,"1011,11014070203 ",.01)
  1. ;;11014070203
  1. ;;9002226.02101,"1011,11014070203 ",.02)
  1. ;;11014070203