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

BGPM5AHB.m

Go to the documentation of this file.
  1. BGPM5AHB ;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,"882,58016058024 ",.02)
  1. ;;58016058024
  1. ;;9002226.02101,"882,58016058025 ",.01)
  1. ;;58016058025
  1. ;;9002226.02101,"882,58016058025 ",.02)
  1. ;;58016058025
  1. ;;9002226.02101,"882,58016058026 ",.01)
  1. ;;58016058026
  1. ;;9002226.02101,"882,58016058026 ",.02)
  1. ;;58016058026
  1. ;;9002226.02101,"882,58016058027 ",.01)
  1. ;;58016058027
  1. ;;9002226.02101,"882,58016058027 ",.02)
  1. ;;58016058027
  1. ;;9002226.02101,"882,58016058028 ",.01)
  1. ;;58016058028
  1. ;;9002226.02101,"882,58016058028 ",.02)
  1. ;;58016058028
  1. ;;9002226.02101,"882,58016058030 ",.01)
  1. ;;58016058030
  1. ;;9002226.02101,"882,58016058030 ",.02)
  1. ;;58016058030
  1. ;;9002226.02101,"882,58016058032 ",.01)
  1. ;;58016058032
  1. ;;9002226.02101,"882,58016058032 ",.02)
  1. ;;58016058032
  1. ;;9002226.02101,"882,58016058035 ",.01)
  1. ;;58016058035
  1. ;;9002226.02101,"882,58016058035 ",.02)
  1. ;;58016058035
  1. ;;9002226.02101,"882,58016058036 ",.01)
  1. ;;58016058036
  1. ;;9002226.02101,"882,58016058036 ",.02)
  1. ;;58016058036
  1. ;;9002226.02101,"882,58016058040 ",.01)
  1. ;;58016058040
  1. ;;9002226.02101,"882,58016058040 ",.02)
  1. ;;58016058040
  1. ;;9002226.02101,"882,58016058042 ",.01)
  1. ;;58016058042
  1. ;;9002226.02101,"882,58016058042 ",.02)
  1. ;;58016058042
  1. ;;9002226.02101,"882,58016058044 ",.01)
  1. ;;58016058044
  1. ;;9002226.02101,"882,58016058044 ",.02)
  1. ;;58016058044
  1. ;;9002226.02101,"882,58016058045 ",.01)
  1. ;;58016058045
  1. ;;9002226.02101,"882,58016058045 ",.02)
  1. ;;58016058045
  1. ;;9002226.02101,"882,58016058048 ",.01)
  1. ;;58016058048
  1. ;;9002226.02101,"882,58016058048 ",.02)
  1. ;;58016058048
  1. ;;9002226.02101,"882,58016058050 ",.01)
  1. ;;58016058050
  1. ;;9002226.02101,"882,58016058050 ",.02)
  1. ;;58016058050
  1. ;;9002226.02101,"882,58016058056 ",.01)
  1. ;;58016058056
  1. ;;9002226.02101,"882,58016058056 ",.02)
  1. ;;58016058056
  1. ;;9002226.02101,"882,58016058060 ",.01)
  1. ;;58016058060
  1. ;;9002226.02101,"882,58016058060 ",.02)
  1. ;;58016058060
  1. ;;9002226.02101,"882,58016058067 ",.01)
  1. ;;58016058067
  1. ;;9002226.02101,"882,58016058067 ",.02)
  1. ;;58016058067
  1. ;;9002226.02101,"882,58016058069 ",.01)
  1. ;;58016058069
  1. ;;9002226.02101,"882,58016058069 ",.02)
  1. ;;58016058069
  1. ;;9002226.02101,"882,58016058070 ",.01)
  1. ;;58016058070
  1. ;;9002226.02101,"882,58016058070 ",.02)
  1. ;;58016058070
  1. ;;9002226.02101,"882,58016058071 ",.01)
  1. ;;58016058071
  1. ;;9002226.02101,"882,58016058071 ",.02)
  1. ;;58016058071
  1. ;;9002226.02101,"882,58016058072 ",.01)
  1. ;;58016058072
  1. ;;9002226.02101,"882,58016058072 ",.02)
  1. ;;58016058072
  1. ;;9002226.02101,"882,58016058073 ",.01)
  1. ;;58016058073
  1. ;;9002226.02101,"882,58016058073 ",.02)
  1. ;;58016058073
  1. ;;9002226.02101,"882,58016058075 ",.01)
  1. ;;58016058075
  1. ;;9002226.02101,"882,58016058075 ",.02)
  1. ;;58016058075
  1. ;;9002226.02101,"882,58016058076 ",.01)
  1. ;;58016058076
  1. ;;9002226.02101,"882,58016058076 ",.02)
  1. ;;58016058076
  1. ;;9002226.02101,"882,58016058077 ",.01)
  1. ;;58016058077
  1. ;;9002226.02101,"882,58016058077 ",.02)
  1. ;;58016058077
  1. ;;9002226.02101,"882,58016058079 ",.01)
  1. ;;58016058079
  1. ;;9002226.02101,"882,58016058079 ",.02)
  1. ;;58016058079
  1. ;;9002226.02101,"882,58016058080 ",.01)
  1. ;;58016058080
  1. ;;9002226.02101,"882,58016058080 ",.02)
  1. ;;58016058080
  1. ;;9002226.02101,"882,58016058081 ",.01)
  1. ;;58016058081
  1. ;;9002226.02101,"882,58016058081 ",.02)
  1. ;;58016058081
  1. ;;9002226.02101,"882,58016058082 ",.01)
  1. ;;58016058082
  1. ;;9002226.02101,"882,58016058082 ",.02)
  1. ;;58016058082
  1. ;;9002226.02101,"882,58016058083 ",.01)
  1. ;;58016058083
  1. ;;9002226.02101,"882,58016058083 ",.02)
  1. ;;58016058083
  1. ;;9002226.02101,"882,58016058084 ",.01)
  1. ;;58016058084
  1. ;;9002226.02101,"882,58016058084 ",.02)
  1. ;;58016058084
  1. ;;9002226.02101,"882,58016058087 ",.01)
  1. ;;58016058087
  1. ;;9002226.02101,"882,58016058087 ",.02)
  1. ;;58016058087
  1. ;;9002226.02101,"882,58016058089 ",.01)
  1. ;;58016058089
  1. ;;9002226.02101,"882,58016058089 ",.02)
  1. ;;58016058089
  1. ;;9002226.02101,"882,58016058090 ",.01)
  1. ;;58016058090
  1. ;;9002226.02101,"882,58016058090 ",.02)
  1. ;;58016058090
  1. ;;9002226.02101,"882,58016058091 ",.01)
  1. ;;58016058091
  1. ;;9002226.02101,"882,58016058091 ",.02)
  1. ;;58016058091
  1. ;;9002226.02101,"882,58016058092 ",.01)
  1. ;;58016058092
  1. ;;9002226.02101,"882,58016058092 ",.02)
  1. ;;58016058092
  1. ;;9002226.02101,"882,58016058093 ",.01)
  1. ;;58016058093
  1. ;;9002226.02101,"882,58016058093 ",.02)
  1. ;;58016058093
  1. ;;9002226.02101,"882,58016058096 ",.01)
  1. ;;58016058096
  1. ;;9002226.02101,"882,58016058096 ",.02)
  1. ;;58016058096
  1. ;;9002226.02101,"882,58016058097 ",.01)
  1. ;;58016058097
  1. ;;9002226.02101,"882,58016058097 ",.02)
  1. ;;58016058097
  1. ;;9002226.02101,"882,58016058098 ",.01)
  1. ;;58016058098
  1. ;;9002226.02101,"882,58016058098 ",.02)
  1. ;;58016058098
  1. ;;9002226.02101,"882,58016058099 ",.01)
  1. ;;58016058099
  1. ;;9002226.02101,"882,58016058099 ",.02)
  1. ;;58016058099
  1. ;;9002226.02101,"882,58016058100 ",.01)
  1. ;;58016058100
  1. ;;9002226.02101,"882,58016058100 ",.02)
  1. ;;58016058100
  1. ;;9002226.02101,"882,58016058101 ",.01)
  1. ;;58016058101
  1. ;;9002226.02101,"882,58016058101 ",.02)
  1. ;;58016058101
  1. ;;9002226.02101,"882,58016058102 ",.01)
  1. ;;58016058102
  1. ;;9002226.02101,"882,58016058102 ",.02)
  1. ;;58016058102
  1. ;;9002226.02101,"882,58016058103 ",.01)
  1. ;;58016058103
  1. ;;9002226.02101,"882,58016058103 ",.02)
  1. ;;58016058103
  1. ;;9002226.02101,"882,58016058104 ",.01)
  1. ;;58016058104
  1. ;;9002226.02101,"882,58016058104 ",.02)
  1. ;;58016058104
  1. ;;9002226.02101,"882,58016058105 ",.01)
  1. ;;58016058105
  1. ;;9002226.02101,"882,58016058105 ",.02)
  1. ;;58016058105
  1. ;;9002226.02101,"882,58016058106 ",.01)
  1. ;;58016058106
  1. ;;9002226.02101,"882,58016058106 ",.02)
  1. ;;58016058106
  1. ;;9002226.02101,"882,58016058107 ",.01)
  1. ;;58016058107
  1. ;;9002226.02101,"882,58016058107 ",.02)
  1. ;;58016058107
  1. ;;9002226.02101,"882,58016058108 ",.01)
  1. ;;58016058108
  1. ;;9002226.02101,"882,58016058108 ",.02)
  1. ;;58016058108
  1. ;;9002226.02101,"882,58016058109 ",.01)
  1. ;;58016058109
  1. ;;9002226.02101,"882,58016058109 ",.02)
  1. ;;58016058109
  1. ;;9002226.02101,"882,58016058110 ",.01)
  1. ;;58016058110
  1. ;;9002226.02101,"882,58016058110 ",.02)
  1. ;;58016058110
  1. ;;9002226.02101,"882,58016058112 ",.01)
  1. ;;58016058112
  1. ;;9002226.02101,"882,58016058112 ",.02)
  1. ;;58016058112
  1. ;;9002226.02101,"882,58016058114 ",.01)
  1. ;;58016058114
  1. ;;9002226.02101,"882,58016058114 ",.02)
  1. ;;58016058114
  1. ;;9002226.02101,"882,58016058115 ",.01)
  1. ;;58016058115
  1. ;;9002226.02101,"882,58016058115 ",.02)
  1. ;;58016058115
  1. ;;9002226.02101,"882,58016058116 ",.01)
  1. ;;58016058116
  1. ;;9002226.02101,"882,58016058116 ",.02)
  1. ;;58016058116
  1. ;;9002226.02101,"882,58016058118 ",.01)
  1. ;;58016058118
  1. ;;9002226.02101,"882,58016058118 ",.02)
  1. ;;58016058118
  1. ;;9002226.02101,"882,58016058120 ",.01)
  1. ;;58016058120
  1. ;;9002226.02101,"882,58016058120 ",.02)
  1. ;;58016058120
  1. ;;9002226.02101,"882,58016058121 ",.01)
  1. ;;58016058121
  1. ;;9002226.02101,"882,58016058121 ",.02)
  1. ;;58016058121
  1. ;;9002226.02101,"882,58016058124 ",.01)
  1. ;;58016058124
  1. ;;9002226.02101,"882,58016058124 ",.02)
  1. ;;58016058124
  1. ;;9002226.02101,"882,58016058125 ",.01)
  1. ;;58016058125
  1. ;;9002226.02101,"882,58016058125 ",.02)
  1. ;;58016058125
  1. ;;9002226.02101,"882,58016058126 ",.01)
  1. ;;58016058126
  1. ;;9002226.02101,"882,58016058126 ",.02)
  1. ;;58016058126
  1. ;;9002226.02101,"882,58016058127 ",.01)
  1. ;;58016058127
  1. ;;9002226.02101,"882,58016058127 ",.02)
  1. ;;58016058127
  1. ;;9002226.02101,"882,58016058128 ",.01)
  1. ;;58016058128
  1. ;;9002226.02101,"882,58016058128 ",.02)
  1. ;;58016058128
  1. ;;9002226.02101,"882,58016058130 ",.01)
  1. ;;58016058130
  1. ;;9002226.02101,"882,58016058130 ",.02)
  1. ;;58016058130
  1. ;;9002226.02101,"882,58016058132 ",.01)
  1. ;;58016058132
  1. ;;9002226.02101,"882,58016058132 ",.02)
  1. ;;58016058132
  1. ;;9002226.02101,"882,58016058135 ",.01)
  1. ;;58016058135
  1. ;;9002226.02101,"882,58016058135 ",.02)
  1. ;;58016058135
  1. ;;9002226.02101,"882,58016058136 ",.01)
  1. ;;58016058136
  1. ;;9002226.02101,"882,58016058136 ",.02)
  1. ;;58016058136
  1. ;;9002226.02101,"882,58016058140 ",.01)
  1. ;;58016058140
  1. ;;9002226.02101,"882,58016058140 ",.02)
  1. ;;58016058140
  1. ;;9002226.02101,"882,58016058142 ",.01)
  1. ;;58016058142
  1. ;;9002226.02101,"882,58016058142 ",.02)
  1. ;;58016058142
  1. ;;9002226.02101,"882,58016058144 ",.01)
  1. ;;58016058144
  1. ;;9002226.02101,"882,58016058144 ",.02)
  1. ;;58016058144
  1. ;;9002226.02101,"882,58016058145 ",.01)
  1. ;;58016058145
  1. ;;9002226.02101,"882,58016058145 ",.02)
  1. ;;58016058145
  1. ;;9002226.02101,"882,58016058148 ",.01)
  1. ;;58016058148
  1. ;;9002226.02101,"882,58016058148 ",.02)
  1. ;;58016058148
  1. ;;9002226.02101,"882,58016058150 ",.01)
  1. ;;58016058150
  1. ;;9002226.02101,"882,58016058150 ",.02)
  1. ;;58016058150
  1. ;;9002226.02101,"882,58016058156 ",.01)
  1. ;;58016058156
  1. ;;9002226.02101,"882,58016058156 ",.02)
  1. ;;58016058156
  1. ;;9002226.02101,"882,58016058160 ",.01)
  1. ;;58016058160
  1. ;;9002226.02101,"882,58016058160 ",.02)
  1. ;;58016058160
  1. ;;9002226.02101,"882,58016058167 ",.01)
  1. ;;58016058167
  1. ;;9002226.02101,"882,58016058167 ",.02)
  1. ;;58016058167
  1. ;;9002226.02101,"882,58016058169 ",.01)
  1. ;;58016058169
  1. ;;9002226.02101,"882,58016058169 ",.02)
  1. ;;58016058169
  1. ;;9002226.02101,"882,58016058170 ",.01)
  1. ;;58016058170
  1. ;;9002226.02101,"882,58016058170 ",.02)
  1. ;;58016058170
  1. ;;9002226.02101,"882,58016058171 ",.01)
  1. ;;58016058171
  1. ;;9002226.02101,"882,58016058171 ",.02)
  1. ;;58016058171
  1. ;;9002226.02101,"882,58016058172 ",.01)
  1. ;;58016058172
  1. ;;9002226.02101,"882,58016058172 ",.02)
  1. ;;58016058172
  1. ;;9002226.02101,"882,58016058173 ",.01)
  1. ;;58016058173
  1. ;;9002226.02101,"882,58016058173 ",.02)
  1. ;;58016058173
  1. ;;9002226.02101,"882,58016058175 ",.01)
  1. ;;58016058175
  1. ;;9002226.02101,"882,58016058175 ",.02)
  1. ;;58016058175
  1. ;;9002226.02101,"882,58016058176 ",.01)
  1. ;;58016058176
  1. ;;9002226.02101,"882,58016058176 ",.02)
  1. ;;58016058176
  1. ;;9002226.02101,"882,58016058177 ",.01)
  1. ;;58016058177
  1. ;;9002226.02101,"882,58016058177 ",.02)
  1. ;;58016058177
  1. ;;9002226.02101,"882,58016058179 ",.01)
  1. ;;58016058179
  1. ;;9002226.02101,"882,58016058179 ",.02)
  1. ;;58016058179
  1. ;;9002226.02101,"882,58016058180 ",.01)
  1. ;;58016058180
  1. ;;9002226.02101,"882,58016058180 ",.02)
  1. ;;58016058180
  1. ;;9002226.02101,"882,58016058181 ",.01)
  1. ;;58016058181
  1. ;;9002226.02101,"882,58016058181 ",.02)
  1. ;;58016058181
  1. ;;9002226.02101,"882,58016058182 ",.01)
  1. ;;58016058182
  1. ;;9002226.02101,"882,58016058182 ",.02)
  1. ;;58016058182
  1. ;;9002226.02101,"882,58016058183 ",.01)
  1. ;;58016058183
  1. ;;9002226.02101,"882,58016058183 ",.02)
  1. ;;58016058183
  1. ;;9002226.02101,"882,58016058184 ",.01)
  1. ;;58016058184
  1. ;;9002226.02101,"882,58016058184 ",.02)
  1. ;;58016058184
  1. ;;9002226.02101,"882,58016058187 ",.01)
  1. ;;58016058187
  1. ;;9002226.02101,"882,58016058187 ",.02)
  1. ;;58016058187
  1. ;;9002226.02101,"882,58016058189 ",.01)
  1. ;;58016058189
  1. ;;9002226.02101,"882,58016058189 ",.02)
  1. ;;58016058189
  1. ;;9002226.02101,"882,58016058190 ",.01)
  1. ;;58016058190
  1. ;;9002226.02101,"882,58016058190 ",.02)
  1. ;;58016058190
  1. ;;9002226.02101,"882,58016058191 ",.01)
  1. ;;58016058191
  1. ;;9002226.02101,"882,58016058191 ",.02)
  1. ;;58016058191
  1. ;;9002226.02101,"882,58016058192 ",.01)
  1. ;;58016058192
  1. ;;9002226.02101,"882,58016058192 ",.02)
  1. ;;58016058192
  1. ;;9002226.02101,"882,58016058193 ",.01)
  1. ;;58016058193
  1. ;;9002226.02101,"882,58016058193 ",.02)
  1. ;;58016058193
  1. ;;9002226.02101,"882,58016058196 ",.01)
  1. ;;58016058196
  1. ;;9002226.02101,"882,58016058196 ",.02)
  1. ;;58016058196
  1. ;;9002226.02101,"882,58016058197 ",.01)
  1. ;;58016058197
  1. ;;9002226.02101,"882,58016058197 ",.02)
  1. ;;58016058197
  1. ;;9002226.02101,"882,58016058198 ",.01)
  1. ;;58016058198
  1. ;;9002226.02101,"882,58016058198 ",.02)
  1. ;;58016058198
  1. ;;9002226.02101,"882,58016058199 ",.01)
  1. ;;58016058199
  1. ;;9002226.02101,"882,58016058199 ",.02)
  1. ;;58016058199
  1. ;;9002226.02101,"882,58016091700 ",.01)
  1. ;;58016091700