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

BGPM3AFI.m

Go to the documentation of this file.
BGPM3AFI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"791,58016027793 ",.02)
 ;;58016027793
 ;;9002226.02101,"791,58016027796 ",.01)
 ;;58016027796
 ;;9002226.02101,"791,58016027796 ",.02)
 ;;58016027796
 ;;9002226.02101,"791,58016027797 ",.01)
 ;;58016027797
 ;;9002226.02101,"791,58016027797 ",.02)
 ;;58016027797
 ;;9002226.02101,"791,58016027798 ",.01)
 ;;58016027798
 ;;9002226.02101,"791,58016027798 ",.02)
 ;;58016027798
 ;;9002226.02101,"791,58016027799 ",.01)
 ;;58016027799
 ;;9002226.02101,"791,58016027799 ",.02)
 ;;58016027799
 ;;9002226.02101,"791,58016069700 ",.01)
 ;;58016069700
 ;;9002226.02101,"791,58016069700 ",.02)
 ;;58016069700
 ;;9002226.02101,"791,58016069730 ",.01)
 ;;58016069730
 ;;9002226.02101,"791,58016069730 ",.02)
 ;;58016069730
 ;;9002226.02101,"791,58016069760 ",.01)
 ;;58016069760
 ;;9002226.02101,"791,58016069760 ",.02)
 ;;58016069760
 ;;9002226.02101,"791,58016069790 ",.01)
 ;;58016069790
 ;;9002226.02101,"791,58016069790 ",.02)
 ;;58016069790
 ;;9002226.02101,"791,58016078600 ",.01)
 ;;58016078600
 ;;9002226.02101,"791,58016078600 ",.02)
 ;;58016078600
 ;;9002226.02101,"791,58016097100 ",.01)
 ;;58016097100
 ;;9002226.02101,"791,58016097100 ",.02)
 ;;58016097100
 ;;9002226.02101,"791,58016097101 ",.01)
 ;;58016097101
 ;;9002226.02101,"791,58016097101 ",.02)
 ;;58016097101
 ;;9002226.02101,"791,58016097102 ",.01)
 ;;58016097102
 ;;9002226.02101,"791,58016097102 ",.02)
 ;;58016097102
 ;;9002226.02101,"791,58016097103 ",.01)
 ;;58016097103
 ;;9002226.02101,"791,58016097103 ",.02)
 ;;58016097103
 ;;9002226.02101,"791,58016097104 ",.01)
 ;;58016097104
 ;;9002226.02101,"791,58016097104 ",.02)
 ;;58016097104
 ;;9002226.02101,"791,58016097105 ",.01)
 ;;58016097105
 ;;9002226.02101,"791,58016097105 ",.02)
 ;;58016097105
 ;;9002226.02101,"791,58016097106 ",.01)
 ;;58016097106
 ;;9002226.02101,"791,58016097106 ",.02)
 ;;58016097106
 ;;9002226.02101,"791,58016097107 ",.01)
 ;;58016097107
 ;;9002226.02101,"791,58016097107 ",.02)
 ;;58016097107
 ;;9002226.02101,"791,58016097108 ",.01)
 ;;58016097108
 ;;9002226.02101,"791,58016097108 ",.02)
 ;;58016097108
 ;;9002226.02101,"791,58016097109 ",.01)
 ;;58016097109
 ;;9002226.02101,"791,58016097109 ",.02)
 ;;58016097109
 ;;9002226.02101,"791,58016097110 ",.01)
 ;;58016097110
 ;;9002226.02101,"791,58016097110 ",.02)
 ;;58016097110
 ;;9002226.02101,"791,58016097112 ",.01)
 ;;58016097112
 ;;9002226.02101,"791,58016097112 ",.02)
 ;;58016097112
 ;;9002226.02101,"791,58016097114 ",.01)
 ;;58016097114
 ;;9002226.02101,"791,58016097114 ",.02)
 ;;58016097114
 ;;9002226.02101,"791,58016097116 ",.01)
 ;;58016097116
 ;;9002226.02101,"791,58016097116 ",.02)
 ;;58016097116
 ;;9002226.02101,"791,58016097118 ",.01)
 ;;58016097118
 ;;9002226.02101,"791,58016097118 ",.02)
 ;;58016097118
 ;;9002226.02101,"791,58016097120 ",.01)
 ;;58016097120
 ;;9002226.02101,"791,58016097120 ",.02)
 ;;58016097120
 ;;9002226.02101,"791,58016097121 ",.01)
 ;;58016097121
 ;;9002226.02101,"791,58016097121 ",.02)
 ;;58016097121
 ;;9002226.02101,"791,58016097124 ",.01)
 ;;58016097124
 ;;9002226.02101,"791,58016097124 ",.02)
 ;;58016097124
 ;;9002226.02101,"791,58016097125 ",.01)
 ;;58016097125
 ;;9002226.02101,"791,58016097125 ",.02)
 ;;58016097125
 ;;9002226.02101,"791,58016097126 ",.01)
 ;;58016097126
 ;;9002226.02101,"791,58016097126 ",.02)
 ;;58016097126
 ;;9002226.02101,"791,58016097127 ",.01)
 ;;58016097127
 ;;9002226.02101,"791,58016097127 ",.02)
 ;;58016097127
 ;;9002226.02101,"791,58016097128 ",.01)
 ;;58016097128
 ;;9002226.02101,"791,58016097128 ",.02)
 ;;58016097128
 ;;9002226.02101,"791,58016097130 ",.01)
 ;;58016097130
 ;;9002226.02101,"791,58016097130 ",.02)
 ;;58016097130
 ;;9002226.02101,"791,58016097132 ",.01)
 ;;58016097132
 ;;9002226.02101,"791,58016097132 ",.02)
 ;;58016097132
 ;;9002226.02101,"791,58016097135 ",.01)
 ;;58016097135
 ;;9002226.02101,"791,58016097135 ",.02)
 ;;58016097135
 ;;9002226.02101,"791,58016097136 ",.01)
 ;;58016097136
 ;;9002226.02101,"791,58016097136 ",.02)
 ;;58016097136
 ;;9002226.02101,"791,58016097140 ",.01)
 ;;58016097140
 ;;9002226.02101,"791,58016097140 ",.02)
 ;;58016097140
 ;;9002226.02101,"791,58016097142 ",.01)
 ;;58016097142
 ;;9002226.02101,"791,58016097142 ",.02)
 ;;58016097142
 ;;9002226.02101,"791,58016097144 ",.01)
 ;;58016097144
 ;;9002226.02101,"791,58016097144 ",.02)
 ;;58016097144
 ;;9002226.02101,"791,58016097145 ",.01)
 ;;58016097145
 ;;9002226.02101,"791,58016097145 ",.02)
 ;;58016097145
 ;;9002226.02101,"791,58016097148 ",.01)
 ;;58016097148
 ;;9002226.02101,"791,58016097148 ",.02)
 ;;58016097148
 ;;9002226.02101,"791,58016097150 ",.01)
 ;;58016097150
 ;;9002226.02101,"791,58016097150 ",.02)
 ;;58016097150
 ;;9002226.02101,"791,58016097156 ",.01)
 ;;58016097156
 ;;9002226.02101,"791,58016097156 ",.02)
 ;;58016097156
 ;;9002226.02101,"791,58016097160 ",.01)
 ;;58016097160
 ;;9002226.02101,"791,58016097160 ",.02)
 ;;58016097160
 ;;9002226.02101,"791,58016097167 ",.01)
 ;;58016097167
 ;;9002226.02101,"791,58016097167 ",.02)
 ;;58016097167
 ;;9002226.02101,"791,58016097169 ",.01)
 ;;58016097169
 ;;9002226.02101,"791,58016097169 ",.02)
 ;;58016097169
 ;;9002226.02101,"791,58016097170 ",.01)
 ;;58016097170
 ;;9002226.02101,"791,58016097170 ",.02)
 ;;58016097170
 ;;9002226.02101,"791,58016097171 ",.01)
 ;;58016097171
 ;;9002226.02101,"791,58016097171 ",.02)
 ;;58016097171
 ;;9002226.02101,"791,58016097172 ",.01)
 ;;58016097172
 ;;9002226.02101,"791,58016097172 ",.02)
 ;;58016097172
 ;;9002226.02101,"791,58016097173 ",.01)
 ;;58016097173
 ;;9002226.02101,"791,58016097173 ",.02)
 ;;58016097173
 ;;9002226.02101,"791,58016097175 ",.01)
 ;;58016097175
 ;;9002226.02101,"791,58016097175 ",.02)
 ;;58016097175
 ;;9002226.02101,"791,58016097176 ",.01)
 ;;58016097176
 ;;9002226.02101,"791,58016097176 ",.02)
 ;;58016097176
 ;;9002226.02101,"791,58016097177 ",.01)
 ;;58016097177
 ;;9002226.02101,"791,58016097177 ",.02)
 ;;58016097177
 ;;9002226.02101,"791,58016097179 ",.01)
 ;;58016097179
 ;;9002226.02101,"791,58016097179 ",.02)
 ;;58016097179
 ;;9002226.02101,"791,58016097180 ",.01)
 ;;58016097180
 ;;9002226.02101,"791,58016097180 ",.02)
 ;;58016097180
 ;;9002226.02101,"791,58016097181 ",.01)
 ;;58016097181
 ;;9002226.02101,"791,58016097181 ",.02)
 ;;58016097181
 ;;9002226.02101,"791,58016097182 ",.01)
 ;;58016097182
 ;;9002226.02101,"791,58016097182 ",.02)
 ;;58016097182
 ;;9002226.02101,"791,58016097183 ",.01)
 ;;58016097183
 ;;9002226.02101,"791,58016097183 ",.02)
 ;;58016097183
 ;;9002226.02101,"791,58016097184 ",.01)
 ;;58016097184
 ;;9002226.02101,"791,58016097184 ",.02)
 ;;58016097184
 ;;9002226.02101,"791,58016097187 ",.01)
 ;;58016097187
 ;;9002226.02101,"791,58016097187 ",.02)
 ;;58016097187
 ;;9002226.02101,"791,58016097189 ",.01)
 ;;58016097189
 ;;9002226.02101,"791,58016097189 ",.02)
 ;;58016097189
 ;;9002226.02101,"791,58016097190 ",.01)
 ;;58016097190
 ;;9002226.02101,"791,58016097190 ",.02)
 ;;58016097190
 ;;9002226.02101,"791,58016097191 ",.01)
 ;;58016097191
 ;;9002226.02101,"791,58016097191 ",.02)
 ;;58016097191
 ;;9002226.02101,"791,58016097192 ",.01)
 ;;58016097192
 ;;9002226.02101,"791,58016097192 ",.02)
 ;;58016097192
 ;;9002226.02101,"791,58016097193 ",.01)
 ;;58016097193
 ;;9002226.02101,"791,58016097193 ",.02)
 ;;58016097193
 ;;9002226.02101,"791,58016097196 ",.01)
 ;;58016097196
 ;;9002226.02101,"791,58016097196 ",.02)
 ;;58016097196
 ;;9002226.02101,"791,58016097197 ",.01)
 ;;58016097197
 ;;9002226.02101,"791,58016097197 ",.02)
 ;;58016097197
 ;;9002226.02101,"791,58016097198 ",.01)
 ;;58016097198
 ;;9002226.02101,"791,58016097198 ",.02)
 ;;58016097198
 ;;9002226.02101,"791,58016097199 ",.01)
 ;;58016097199
 ;;9002226.02101,"791,58016097199 ",.02)
 ;;58016097199
 ;;9002226.02101,"791,58016097200 ",.01)
 ;;58016097200
 ;;9002226.02101,"791,58016097200 ",.02)
 ;;58016097200
 ;;9002226.02101,"791,58016097201 ",.01)
 ;;58016097201
 ;;9002226.02101,"791,58016097201 ",.02)
 ;;58016097201
 ;;9002226.02101,"791,58016097202 ",.01)
 ;;58016097202
 ;;9002226.02101,"791,58016097202 ",.02)
 ;;58016097202
 ;;9002226.02101,"791,58016097203 ",.01)
 ;;58016097203
 ;;9002226.02101,"791,58016097203 ",.02)
 ;;58016097203
 ;;9002226.02101,"791,58016097204 ",.01)
 ;;58016097204
 ;;9002226.02101,"791,58016097204 ",.02)
 ;;58016097204
 ;;9002226.02101,"791,58016097205 ",.01)
 ;;58016097205
 ;;9002226.02101,"791,58016097205 ",.02)
 ;;58016097205
 ;;9002226.02101,"791,58016097206 ",.01)
 ;;58016097206
 ;;9002226.02101,"791,58016097206 ",.02)
 ;;58016097206
 ;;9002226.02101,"791,58016097207 ",.01)
 ;;58016097207
 ;;9002226.02101,"791,58016097207 ",.02)
 ;;58016097207
 ;;9002226.02101,"791,58016097208 ",.01)
 ;;58016097208
 ;;9002226.02101,"791,58016097208 ",.02)
 ;;58016097208
 ;;9002226.02101,"791,58016097209 ",.01)
 ;;58016097209
 ;;9002226.02101,"791,58016097209 ",.02)
 ;;58016097209
 ;;9002226.02101,"791,58016097210 ",.01)
 ;;58016097210
 ;;9002226.02101,"791,58016097210 ",.02)
 ;;58016097210
 ;;9002226.02101,"791,58016097212 ",.01)
 ;;58016097212
 ;;9002226.02101,"791,58016097212 ",.02)
 ;;58016097212
 ;;9002226.02101,"791,58016097214 ",.01)
 ;;58016097214
 ;;9002226.02101,"791,58016097214 ",.02)
 ;;58016097214
 ;;9002226.02101,"791,58016097216 ",.01)
 ;;58016097216
 ;;9002226.02101,"791,58016097216 ",.02)
 ;;58016097216
 ;;9002226.02101,"791,58016097218 ",.01)
 ;;58016097218
 ;;9002226.02101,"791,58016097218 ",.02)
 ;;58016097218
 ;;9002226.02101,"791,58016097220 ",.01)
 ;;58016097220
 ;;9002226.02101,"791,58016097220 ",.02)
 ;;58016097220
 ;;9002226.02101,"791,58016097221 ",.01)
 ;;58016097221
 ;;9002226.02101,"791,58016097221 ",.02)
 ;;58016097221
 ;;9002226.02101,"791,58016097224 ",.01)
 ;;58016097224
 ;;9002226.02101,"791,58016097224 ",.02)
 ;;58016097224
 ;;9002226.02101,"791,58016097225 ",.01)
 ;;58016097225
 ;;9002226.02101,"791,58016097225 ",.02)
 ;;58016097225
 ;;9002226.02101,"791,58016097226 ",.01)
 ;;58016097226
 ;;9002226.02101,"791,58016097226 ",.02)
 ;;58016097226
 ;;9002226.02101,"791,58016097227 ",.01)
 ;;58016097227
 ;;9002226.02101,"791,58016097227 ",.02)
 ;;58016097227
 ;;9002226.02101,"791,58016097228 ",.01)
 ;;58016097228
 ;;9002226.02101,"791,58016097228 ",.02)
 ;;58016097228
 ;;9002226.02101,"791,58016097230 ",.01)
 ;;58016097230
 ;;9002226.02101,"791,58016097230 ",.02)
 ;;58016097230
 ;;9002226.02101,"791,58016097232 ",.01)
 ;;58016097232
 ;;9002226.02101,"791,58016097232 ",.02)
 ;;58016097232
 ;;9002226.02101,"791,58016097235 ",.01)
 ;;58016097235
 ;;9002226.02101,"791,58016097235 ",.02)
 ;;58016097235
 ;;9002226.02101,"791,58016097236 ",.01)
 ;;58016097236
 ;;9002226.02101,"791,58016097236 ",.02)
 ;;58016097236
 ;;9002226.02101,"791,58016097240 ",.01)
 ;;58016097240
 ;;9002226.02101,"791,58016097240 ",.02)
 ;;58016097240
 ;;9002226.02101,"791,58016097242 ",.01)
 ;;58016097242
 ;;9002226.02101,"791,58016097242 ",.02)
 ;;58016097242
 ;;9002226.02101,"791,58016097244 ",.01)
 ;;58016097244
 ;;9002226.02101,"791,58016097244 ",.02)
 ;;58016097244
 ;;9002226.02101,"791,58016097245 ",.01)
 ;;58016097245
 ;;9002226.02101,"791,58016097245 ",.02)
 ;;58016097245
 ;;9002226.02101,"791,58016097248 ",.01)
 ;;58016097248
 ;;9002226.02101,"791,58016097248 ",.02)
 ;;58016097248
 ;;9002226.02101,"791,58016097250 ",.01)
 ;;58016097250
 ;;9002226.02101,"791,58016097250 ",.02)
 ;;58016097250
 ;;9002226.02101,"791,58016097256 ",.01)
 ;;58016097256
 ;;9002226.02101,"791,58016097256 ",.02)
 ;;58016097256
 ;;9002226.02101,"791,58016097260 ",.01)
 ;;58016097260