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