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

BGPM5AYT.m

Go to the documentation of this file.
BGPM5AYT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 02, 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,"1010,59852 ",.01)
 ;;59852
 ;;9002226.02101,"1010,59852 ",.02)
 ;;59852
 ;;9002226.02101,"1010,59855 ",.01)
 ;;59855
 ;;9002226.02101,"1010,59855 ",.02)
 ;;59855
 ;;9002226.02101,"1010,59856 ",.01)
 ;;59856
 ;;9002226.02101,"1010,59856 ",.02)
 ;;59856
 ;;9002226.02101,"1010,59857 ",.01)
 ;;59857
 ;;9002226.02101,"1010,59857 ",.02)
 ;;59857
 ;;9002226.02101,"1010,59866 ",.01)
 ;;59866
 ;;9002226.02101,"1010,59866 ",.02)
 ;;59866
 ;;9002226.02101,"1010,59870 ",.01)
 ;;59870
 ;;9002226.02101,"1010,59870 ",.02)
 ;;59870
 ;;9002226.02101,"1010,59871 ",.01)
 ;;59871
 ;;9002226.02101,"1010,59871 ",.02)
 ;;59871
 ;;9002226.02101,"1010,59897 ",.01)
 ;;59897
 ;;9002226.02101,"1010,59897 ",.02)
 ;;59897
 ;;9002226.02101,"1010,59898 ",.01)
 ;;59898
 ;;9002226.02101,"1010,59898 ",.02)
 ;;59898
 ;;9002226.02101,"1010,59899 ",.01)
 ;;59899
 ;;9002226.02101,"1010,59899 ",.02)
 ;;59899
 ;;9002226.02101,"1010,76801 ",.01)
 ;;76801
 ;;9002226.02101,"1010,76801 ",.02)
 ;;76801
 ;;9002226.02101,"1010,76805 ",.01)
 ;;76805
 ;;9002226.02101,"1010,76805 ",.02)
 ;;76805
 ;;9002226.02101,"1010,76811 ",.01)
 ;;76811
 ;;9002226.02101,"1010,76811 ",.02)
 ;;76811
 ;;9002226.02101,"1010,76813 ",.01)
 ;;76813
 ;;9002226.02101,"1010,76813 ",.02)
 ;;76813
 ;;9002226.02101,"1010,76815 ",.01)
 ;;76815
 ;;9002226.02101,"1010,76815 ",.02)
 ;;76815
 ;;9002226.02101,"1010,76816 ",.01)
 ;;76816
 ;;9002226.02101,"1010,76816 ",.02)
 ;;76816
 ;;9002226.02101,"1010,76817 ",.01)
 ;;76817
 ;;9002226.02101,"1010,76817 ",.02)
 ;;76817
 ;;9002226.02101,"1010,76818 ",.01)
 ;;76818
 ;;9002226.02101,"1010,76818 ",.02)
 ;;76818
 ;;9002226.02101,"1010,76819 ",.01)
 ;;76819
 ;;9002226.02101,"1010,76819 ",.02)
 ;;76819
 ;;9002226.02101,"1010,76820 ",.01)
 ;;76820
 ;;9002226.02101,"1010,76820 ",.02)
 ;;76820
 ;;9002226.02101,"1010,76821 ",.01)
 ;;76821
 ;;9002226.02101,"1010,76821 ",.02)
 ;;76821
 ;;9002226.02101,"1010,76825 ",.01)
 ;;76825
 ;;9002226.02101,"1010,76825 ",.02)
 ;;76825
 ;;9002226.02101,"1010,76826 ",.01)
 ;;76826
 ;;9002226.02101,"1010,76826 ",.02)
 ;;76826
 ;;9002226.02101,"1010,76827 ",.01)
 ;;76827
 ;;9002226.02101,"1010,76827 ",.02)
 ;;76827
 ;;9002226.02101,"1010,76828 ",.01)
 ;;76828
 ;;9002226.02101,"1010,76828 ",.02)
 ;;76828
 ;;9002226.02101,"1010,76941 ",.01)
 ;;76941
 ;;9002226.02101,"1010,76941 ",.02)
 ;;76941
 ;;9002226.02101,"1010,76945 ",.01)
 ;;76945
 ;;9002226.02101,"1010,76945 ",.02)
 ;;76945
 ;;9002226.02101,"1010,76946 ",.01)
 ;;76946
 ;;9002226.02101,"1010,76946 ",.02)
 ;;76946
 ;;9002226.02101,"1010,80055 ",.01)
 ;;80055
 ;;9002226.02101,"1010,80055 ",.02)
 ;;80055
 ;;9002226.02101,"1010,81025 ",.01)
 ;;81025
 ;;9002226.02101,"1010,81025 ",.02)
 ;;81025
 ;;9002226.02101,"1010,82105 ",.01)
 ;;82105
 ;;9002226.02101,"1010,82105 ",.02)
 ;;82105
 ;;9002226.02101,"1010,82106 ",.01)
 ;;82106
 ;;9002226.02101,"1010,82106 ",.02)
 ;;82106
 ;;9002226.02101,"1010,82143 ",.01)
 ;;82143
 ;;9002226.02101,"1010,82143 ",.02)
 ;;82143
 ;;9002226.02101,"1010,82731 ",.01)
 ;;82731
 ;;9002226.02101,"1010,82731 ",.02)
 ;;82731
 ;;9002226.02101,"1010,83632 ",.01)
 ;;83632
 ;;9002226.02101,"1010,83632 ",.02)
 ;;83632
 ;;9002226.02101,"1010,83661 ",.01)
 ;;83661
 ;;9002226.02101,"1010,83661 ",.02)
 ;;83661
 ;;9002226.02101,"1010,83662 ",.01)
 ;;83662
 ;;9002226.02101,"1010,83662 ",.02)
 ;;83662
 ;;9002226.02101,"1010,83663 ",.01)
 ;;83663
 ;;9002226.02101,"1010,83663 ",.02)
 ;;83663
 ;;9002226.02101,"1010,83664 ",.01)
 ;;83664
 ;;9002226.02101,"1010,83664 ",.02)
 ;;83664
 ;;9002226.02101,"1010,84163 ",.01)
 ;;84163
 ;;9002226.02101,"1010,84163 ",.02)
 ;;84163
 ;;9002226.02101,"1010,84702 ",.01)
 ;;84702
 ;;9002226.02101,"1010,84702 ",.02)
 ;;84702
 ;;9002226.02101,"1010,84703 ",.01)
 ;;84703
 ;;9002226.02101,"1010,84703 ",.02)
 ;;84703
 ;;9002226.02101,"1010,84704 ",.01)
 ;;84704
 ;;9002226.02101,"1010,84704 ",.02)
 ;;84704
 ;;9002226.02101,"1010,86592 ",.01)
 ;;86592
 ;;9002226.02101,"1010,86592 ",.02)
 ;;86592
 ;;9002226.02101,"1010,86593 ",.01)
 ;;86593
 ;;9002226.02101,"1010,86593 ",.02)
 ;;86593
 ;;9002226.02101,"1010,86631 ",.01)
 ;;86631
 ;;9002226.02101,"1010,86631 ",.02)
 ;;86631
 ;;9002226.02101,"1010,86632 ",.01)
 ;;86632
 ;;9002226.02101,"1010,86632 ",.02)
 ;;86632
 ;;9002226.02101,"1010,87110 ",.01)
 ;;87110
 ;;9002226.02101,"1010,87110 ",.02)
 ;;87110
 ;;9002226.02101,"1010,87164 ",.01)
 ;;87164
 ;;9002226.02101,"1010,87164 ",.02)
 ;;87164
 ;;9002226.02101,"1010,87166 ",.01)
 ;;87166
 ;;9002226.02101,"1010,87166 ",.02)
 ;;87166
 ;;9002226.02101,"1010,87270 ",.01)
 ;;87270
 ;;9002226.02101,"1010,87270 ",.02)
 ;;87270
 ;;9002226.02101,"1010,87320 ",.01)
 ;;87320
 ;;9002226.02101,"1010,87320 ",.02)
 ;;87320
 ;;9002226.02101,"1010,87490 ",.01)
 ;;87490
 ;;9002226.02101,"1010,87490 ",.02)
 ;;87490
 ;;9002226.02101,"1010,87491 ",.01)
 ;;87491
 ;;9002226.02101,"1010,87491 ",.02)
 ;;87491
 ;;9002226.02101,"1010,87492 ",.01)
 ;;87492
 ;;9002226.02101,"1010,87492 ",.02)
 ;;87492
 ;;9002226.02101,"1010,87590 ",.01)
 ;;87590
 ;;9002226.02101,"1010,87590 ",.02)
 ;;87590
 ;;9002226.02101,"1010,87591 ",.01)
 ;;87591
 ;;9002226.02101,"1010,87591 ",.02)
 ;;87591
 ;;9002226.02101,"1010,87592 ",.01)
 ;;87592
 ;;9002226.02101,"1010,87592 ",.02)
 ;;87592
 ;;9002226.02101,"1010,87620 ",.01)
 ;;87620
 ;;9002226.02101,"1010,87620 ",.02)
 ;;87620
 ;;9002226.02101,"1010,87621 ",.01)
 ;;87621
 ;;9002226.02101,"1010,87621 ",.02)
 ;;87621
 ;;9002226.02101,"1010,87622 ",.01)
 ;;87622
 ;;9002226.02101,"1010,87622 ",.02)
 ;;87622
 ;;9002226.02101,"1010,87660 ",.01)
 ;;87660
 ;;9002226.02101,"1010,87660 ",.02)
 ;;87660
 ;;9002226.02101,"1010,87800 ",.01)
 ;;87800
 ;;9002226.02101,"1010,87800 ",.02)
 ;;87800
 ;;9002226.02101,"1010,87801 ",.01)
 ;;87801
 ;;9002226.02101,"1010,87801 ",.02)
 ;;87801
 ;;9002226.02101,"1010,87808 ",.01)
 ;;87808
 ;;9002226.02101,"1010,87808 ",.02)
 ;;87808
 ;;9002226.02101,"1010,87810 ",.01)
 ;;87810
 ;;9002226.02101,"1010,87810 ",.02)
 ;;87810
 ;;9002226.02101,"1010,87850 ",.01)
 ;;87850
 ;;9002226.02101,"1010,87850 ",.02)
 ;;87850
 ;;9002226.02101,"1010,88141 ",.01)
 ;;88141
 ;;9002226.02101,"1010,88141 ",.02)
 ;;88141
 ;;9002226.02101,"1010,88142 ",.01)
 ;;88142
 ;;9002226.02101,"1010,88142 ",.02)
 ;;88142
 ;;9002226.02101,"1010,88143 ",.01)
 ;;88143
 ;;9002226.02101,"1010,88143 ",.02)
 ;;88143
 ;;9002226.02101,"1010,88147 ",.01)
 ;;88147
 ;;9002226.02101,"1010,88147 ",.02)
 ;;88147
 ;;9002226.02101,"1010,88148 ",.01)
 ;;88148
 ;;9002226.02101,"1010,88148 ",.02)
 ;;88148
 ;;9002226.02101,"1010,88150 ",.01)
 ;;88150
 ;;9002226.02101,"1010,88150 ",.02)
 ;;88150
 ;;9002226.02101,"1010,88152 ",.01)
 ;;88152
 ;;9002226.02101,"1010,88152 ",.02)
 ;;88152
 ;;9002226.02101,"1010,88153 ",.01)
 ;;88153
 ;;9002226.02101,"1010,88153 ",.02)
 ;;88153
 ;;9002226.02101,"1010,88154 ",.01)
 ;;88154
 ;;9002226.02101,"1010,88154 ",.02)
 ;;88154
 ;;9002226.02101,"1010,88155 ",.01)
 ;;88155
 ;;9002226.02101,"1010,88155 ",.02)
 ;;88155
 ;;9002226.02101,"1010,88164 ",.01)
 ;;88164
 ;;9002226.02101,"1010,88164 ",.02)
 ;;88164
 ;;9002226.02101,"1010,88165 ",.01)
 ;;88165
 ;;9002226.02101,"1010,88165 ",.02)
 ;;88165
 ;;9002226.02101,"1010,88166 ",.01)
 ;;88166
 ;;9002226.02101,"1010,88166 ",.02)
 ;;88166
 ;;9002226.02101,"1010,88167 ",.01)
 ;;88167
 ;;9002226.02101,"1010,88167 ",.02)
 ;;88167
 ;;9002226.02101,"1010,88174 ",.01)
 ;;88174
 ;;9002226.02101,"1010,88174 ",.02)
 ;;88174
 ;;9002226.02101,"1010,88175 ",.01)
 ;;88175
 ;;9002226.02101,"1010,88175 ",.02)
 ;;88175
 ;;9002226.02101,"1010,88235 ",.01)
 ;;88235
 ;;9002226.02101,"1010,88235 ",.02)
 ;;88235
 ;;9002226.02101,"1010,88267 ",.01)
 ;;88267
 ;;9002226.02101,"1010,88267 ",.02)
 ;;88267
 ;;9002226.02101,"1010,88269 ",.01)
 ;;88269
 ;;9002226.02101,"1010,88269 ",.02)
 ;;88269
 ;;9002226.02101,"1010,G0101 ",.01)
 ;;G0101
 ;;9002226.02101,"1010,G0101 ",.02)
 ;;G0101
 ;;9002226.02101,"1010,G0123 ",.01)
 ;;G0123
 ;;9002226.02101,"1010,G0123 ",.02)
 ;;G0123
 ;;9002226.02101,"1010,G0124 ",.01)
 ;;G0124
 ;;9002226.02101,"1010,G0124 ",.02)
 ;;G0124
 ;;9002226.02101,"1010,G0141 ",.01)
 ;;G0141
 ;;9002226.02101,"1010,G0141 ",.02)
 ;;G0141
 ;;9002226.02101,"1010,G0143 ",.01)
 ;;G0143
 ;;9002226.02101,"1010,G0143 ",.02)
 ;;G0143
 ;;9002226.02101,"1010,G0144 ",.01)
 ;;G0144
 ;;9002226.02101,"1010,G0144 ",.02)
 ;;G0144
 ;;9002226.02101,"1010,G0145 ",.01)
 ;;G0145
 ;;9002226.02101,"1010,G0145 ",.02)
 ;;G0145
 ;;9002226.02101,"1010,G0147 ",.01)
 ;;G0147
 ;;9002226.02101,"1010,G0147 ",.02)
 ;;G0147
 ;;9002226.02101,"1010,G0148 ",.01)
 ;;G0148
 ;;9002226.02101,"1010,G0148 ",.02)
 ;;G0148
 ;;9002226.02101,"1010,H1000 ",.01)
 ;;H1000
 ;;9002226.02101,"1010,H1000 ",.02)
 ;;H1000
 ;;9002226.02101,"1010,H1001 ",.01)
 ;;H1001
 ;;9002226.02101,"1010,H1001 ",.02)
 ;;H1001
 ;;9002226.02101,"1010,H1003 ",.01)
 ;;H1003
 ;;9002226.02101,"1010,H1003 ",.02)
 ;;H1003
 ;;9002226.02101,"1010,H1004 ",.01)
 ;;H1004
 ;;9002226.02101,"1010,H1004 ",.02)
 ;;H1004
 ;;9002226.02101,"1010,H1005 ",.01)
 ;;H1005
 ;;9002226.02101,"1010,H1005 ",.02)
 ;;H1005
 ;;9002226.02101,"1010,P3000 ",.01)
 ;;P3000
 ;;9002226.02101,"1010,P3000 ",.02)
 ;;P3000
 ;;9002226.02101,"1010,P3001 ",.01)
 ;;P3001
 ;;9002226.02101,"1010,P3001 ",.02)
 ;;P3001
 ;;9002226.02101,"1010,Q0091 ",.01)
 ;;Q0091
 ;;9002226.02101,"1010,Q0091 ",.02)
 ;;Q0091
 ;;9002226.02101,"1010,S0180 ",.01)
 ;;S0180
 ;;9002226.02101,"1010,S0180 ",.02)
 ;;S0180
 ;;9002226.02101,"1010,S0199 ",.01)
 ;;S0199
 ;;9002226.02101,"1010,S0199 ",.02)
 ;;S0199
 ;;9002226.02101,"1010,S4981 ",.01)
 ;;S4981
 ;;9002226.02101,"1010,S4981 ",.02)
 ;;S4981
 ;;9002226.02101,"1010,S8055 ",.01)
 ;;S8055
 ;;9002226.02101,"1010,S8055 ",.02)
 ;;S8055