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

BGPM5AK.m

Go to the documentation of this file.
BGPM5AK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,58016082014 ",.01)
 ;;58016082014
 ;;9002226.02101,"889,58016082014 ",.02)
 ;;58016082014
 ;;9002226.02101,"889,58016082015 ",.01)
 ;;58016082015
 ;;9002226.02101,"889,58016082015 ",.02)
 ;;58016082015
 ;;9002226.02101,"889,58016082016 ",.01)
 ;;58016082016
 ;;9002226.02101,"889,58016082016 ",.02)
 ;;58016082016
 ;;9002226.02101,"889,58016082018 ",.01)
 ;;58016082018
 ;;9002226.02101,"889,58016082018 ",.02)
 ;;58016082018
 ;;9002226.02101,"889,58016082020 ",.01)
 ;;58016082020
 ;;9002226.02101,"889,58016082020 ",.02)
 ;;58016082020
 ;;9002226.02101,"889,58016082021 ",.01)
 ;;58016082021
 ;;9002226.02101,"889,58016082021 ",.02)
 ;;58016082021
 ;;9002226.02101,"889,58016082024 ",.01)
 ;;58016082024
 ;;9002226.02101,"889,58016082024 ",.02)
 ;;58016082024
 ;;9002226.02101,"889,58016082025 ",.01)
 ;;58016082025
 ;;9002226.02101,"889,58016082025 ",.02)
 ;;58016082025
 ;;9002226.02101,"889,58016082026 ",.01)
 ;;58016082026
 ;;9002226.02101,"889,58016082026 ",.02)
 ;;58016082026
 ;;9002226.02101,"889,58016082027 ",.01)
 ;;58016082027
 ;;9002226.02101,"889,58016082027 ",.02)
 ;;58016082027
 ;;9002226.02101,"889,58016082028 ",.01)
 ;;58016082028
 ;;9002226.02101,"889,58016082028 ",.02)
 ;;58016082028
 ;;9002226.02101,"889,58016082030 ",.01)
 ;;58016082030
 ;;9002226.02101,"889,58016082030 ",.02)
 ;;58016082030
 ;;9002226.02101,"889,58016082032 ",.01)
 ;;58016082032
 ;;9002226.02101,"889,58016082032 ",.02)
 ;;58016082032
 ;;9002226.02101,"889,58016082035 ",.01)
 ;;58016082035
 ;;9002226.02101,"889,58016082035 ",.02)
 ;;58016082035
 ;;9002226.02101,"889,58016082036 ",.01)
 ;;58016082036
 ;;9002226.02101,"889,58016082036 ",.02)
 ;;58016082036
 ;;9002226.02101,"889,58016082040 ",.01)
 ;;58016082040
 ;;9002226.02101,"889,58016082040 ",.02)
 ;;58016082040
 ;;9002226.02101,"889,58016082042 ",.01)
 ;;58016082042
 ;;9002226.02101,"889,58016082042 ",.02)
 ;;58016082042
 ;;9002226.02101,"889,58016082044 ",.01)
 ;;58016082044
 ;;9002226.02101,"889,58016082044 ",.02)
 ;;58016082044
 ;;9002226.02101,"889,58016082045 ",.01)
 ;;58016082045
 ;;9002226.02101,"889,58016082045 ",.02)
 ;;58016082045
 ;;9002226.02101,"889,58016082048 ",.01)
 ;;58016082048
 ;;9002226.02101,"889,58016082048 ",.02)
 ;;58016082048
 ;;9002226.02101,"889,58016082050 ",.01)
 ;;58016082050
 ;;9002226.02101,"889,58016082050 ",.02)
 ;;58016082050
 ;;9002226.02101,"889,58016082056 ",.01)
 ;;58016082056
 ;;9002226.02101,"889,58016082056 ",.02)
 ;;58016082056
 ;;9002226.02101,"889,58016082060 ",.01)
 ;;58016082060
 ;;9002226.02101,"889,58016082060 ",.02)
 ;;58016082060
 ;;9002226.02101,"889,58016082067 ",.01)
 ;;58016082067
 ;;9002226.02101,"889,58016082067 ",.02)
 ;;58016082067
 ;;9002226.02101,"889,58016082069 ",.01)
 ;;58016082069
 ;;9002226.02101,"889,58016082069 ",.02)
 ;;58016082069
 ;;9002226.02101,"889,58016082070 ",.01)
 ;;58016082070
 ;;9002226.02101,"889,58016082070 ",.02)
 ;;58016082070
 ;;9002226.02101,"889,58016082071 ",.01)
 ;;58016082071
 ;;9002226.02101,"889,58016082071 ",.02)
 ;;58016082071
 ;;9002226.02101,"889,58016082072 ",.01)
 ;;58016082072
 ;;9002226.02101,"889,58016082072 ",.02)
 ;;58016082072
 ;;9002226.02101,"889,58016082073 ",.01)
 ;;58016082073
 ;;9002226.02101,"889,58016082073 ",.02)
 ;;58016082073
 ;;9002226.02101,"889,58016082075 ",.01)
 ;;58016082075
 ;;9002226.02101,"889,58016082075 ",.02)
 ;;58016082075
 ;;9002226.02101,"889,58016082076 ",.01)
 ;;58016082076
 ;;9002226.02101,"889,58016082076 ",.02)
 ;;58016082076
 ;;9002226.02101,"889,58016082077 ",.01)
 ;;58016082077
 ;;9002226.02101,"889,58016082077 ",.02)
 ;;58016082077
 ;;9002226.02101,"889,58016082079 ",.01)
 ;;58016082079
 ;;9002226.02101,"889,58016082079 ",.02)
 ;;58016082079
 ;;9002226.02101,"889,58016082080 ",.01)
 ;;58016082080
 ;;9002226.02101,"889,58016082080 ",.02)
 ;;58016082080
 ;;9002226.02101,"889,58016082081 ",.01)
 ;;58016082081
 ;;9002226.02101,"889,58016082081 ",.02)
 ;;58016082081
 ;;9002226.02101,"889,58016082082 ",.01)
 ;;58016082082
 ;;9002226.02101,"889,58016082082 ",.02)
 ;;58016082082
 ;;9002226.02101,"889,58016082083 ",.01)
 ;;58016082083
 ;;9002226.02101,"889,58016082083 ",.02)
 ;;58016082083
 ;;9002226.02101,"889,58016082084 ",.01)
 ;;58016082084
 ;;9002226.02101,"889,58016082084 ",.02)
 ;;58016082084
 ;;9002226.02101,"889,58016082087 ",.01)
 ;;58016082087
 ;;9002226.02101,"889,58016082087 ",.02)
 ;;58016082087
 ;;9002226.02101,"889,58016082089 ",.01)
 ;;58016082089
 ;;9002226.02101,"889,58016082089 ",.02)
 ;;58016082089
 ;;9002226.02101,"889,58016082090 ",.01)
 ;;58016082090
 ;;9002226.02101,"889,58016082090 ",.02)
 ;;58016082090
 ;;9002226.02101,"889,58016082091 ",.01)
 ;;58016082091
 ;;9002226.02101,"889,58016082091 ",.02)
 ;;58016082091
 ;;9002226.02101,"889,58016082092 ",.01)
 ;;58016082092
 ;;9002226.02101,"889,58016082092 ",.02)
 ;;58016082092
 ;;9002226.02101,"889,58016082093 ",.01)
 ;;58016082093
 ;;9002226.02101,"889,58016082093 ",.02)
 ;;58016082093
 ;;9002226.02101,"889,58016082096 ",.01)
 ;;58016082096
 ;;9002226.02101,"889,58016082096 ",.02)
 ;;58016082096
 ;;9002226.02101,"889,58016082097 ",.01)
 ;;58016082097
 ;;9002226.02101,"889,58016082097 ",.02)
 ;;58016082097
 ;;9002226.02101,"889,58016082098 ",.01)
 ;;58016082098
 ;;9002226.02101,"889,58016082098 ",.02)
 ;;58016082098
 ;;9002226.02101,"889,58016082099 ",.01)
 ;;58016082099
 ;;9002226.02101,"889,58016082099 ",.02)
 ;;58016082099
 ;;9002226.02101,"889,58016085200 ",.01)
 ;;58016085200
 ;;9002226.02101,"889,58016085200 ",.02)
 ;;58016085200
 ;;9002226.02101,"889,58016085201 ",.01)
 ;;58016085201
 ;;9002226.02101,"889,58016085201 ",.02)
 ;;58016085201
 ;;9002226.02101,"889,58016085202 ",.01)
 ;;58016085202
 ;;9002226.02101,"889,58016085202 ",.02)
 ;;58016085202
 ;;9002226.02101,"889,58016085203 ",.01)
 ;;58016085203
 ;;9002226.02101,"889,58016085203 ",.02)
 ;;58016085203
 ;;9002226.02101,"889,58016085204 ",.01)
 ;;58016085204
 ;;9002226.02101,"889,58016085204 ",.02)
 ;;58016085204
 ;;9002226.02101,"889,58016085205 ",.01)
 ;;58016085205
 ;;9002226.02101,"889,58016085205 ",.02)
 ;;58016085205
 ;;9002226.02101,"889,58016085207 ",.01)
 ;;58016085207
 ;;9002226.02101,"889,58016085207 ",.02)
 ;;58016085207
 ;;9002226.02101,"889,58016085208 ",.01)
 ;;58016085208
 ;;9002226.02101,"889,58016085208 ",.02)
 ;;58016085208
 ;;9002226.02101,"889,58016085209 ",.01)
 ;;58016085209
 ;;9002226.02101,"889,58016085209 ",.02)
 ;;58016085209
 ;;9002226.02101,"889,58016085210 ",.01)
 ;;58016085210
 ;;9002226.02101,"889,58016085210 ",.02)
 ;;58016085210
 ;;9002226.02101,"889,58016085212 ",.01)
 ;;58016085212
 ;;9002226.02101,"889,58016085212 ",.02)
 ;;58016085212
 ;;9002226.02101,"889,58016085214 ",.01)
 ;;58016085214
 ;;9002226.02101,"889,58016085214 ",.02)
 ;;58016085214
 ;;9002226.02101,"889,58016085215 ",.01)
 ;;58016085215
 ;;9002226.02101,"889,58016085215 ",.02)
 ;;58016085215
 ;;9002226.02101,"889,58016085216 ",.01)
 ;;58016085216
 ;;9002226.02101,"889,58016085216 ",.02)
 ;;58016085216
 ;;9002226.02101,"889,58016085218 ",.01)
 ;;58016085218
 ;;9002226.02101,"889,58016085218 ",.02)
 ;;58016085218
 ;;9002226.02101,"889,58016085220 ",.01)
 ;;58016085220
 ;;9002226.02101,"889,58016085220 ",.02)
 ;;58016085220
 ;;9002226.02101,"889,58016085221 ",.01)
 ;;58016085221
 ;;9002226.02101,"889,58016085221 ",.02)
 ;;58016085221
 ;;9002226.02101,"889,58016085225 ",.01)
 ;;58016085225
 ;;9002226.02101,"889,58016085225 ",.02)
 ;;58016085225
 ;;9002226.02101,"889,58016085226 ",.01)
 ;;58016085226
 ;;9002226.02101,"889,58016085226 ",.02)
 ;;58016085226
 ;;9002226.02101,"889,58016085227 ",.01)
 ;;58016085227
 ;;9002226.02101,"889,58016085227 ",.02)
 ;;58016085227
 ;;9002226.02101,"889,58016085228 ",.01)
 ;;58016085228
 ;;9002226.02101,"889,58016085228 ",.02)
 ;;58016085228
 ;;9002226.02101,"889,58016085230 ",.01)
 ;;58016085230
 ;;9002226.02101,"889,58016085230 ",.02)
 ;;58016085230
 ;;9002226.02101,"889,58016085232 ",.01)
 ;;58016085232
 ;;9002226.02101,"889,58016085232 ",.02)
 ;;58016085232
 ;;9002226.02101,"889,58016085235 ",.01)
 ;;58016085235
 ;;9002226.02101,"889,58016085235 ",.02)
 ;;58016085235
 ;;9002226.02101,"889,58016085236 ",.01)
 ;;58016085236
 ;;9002226.02101,"889,58016085236 ",.02)
 ;;58016085236
 ;;9002226.02101,"889,58016085240 ",.01)
 ;;58016085240
 ;;9002226.02101,"889,58016085240 ",.02)
 ;;58016085240
 ;;9002226.02101,"889,58016085242 ",.01)
 ;;58016085242
 ;;9002226.02101,"889,58016085242 ",.02)
 ;;58016085242
 ;;9002226.02101,"889,58016085244 ",.01)
 ;;58016085244
 ;;9002226.02101,"889,58016085244 ",.02)
 ;;58016085244
 ;;9002226.02101,"889,58016085245 ",.01)
 ;;58016085245
 ;;9002226.02101,"889,58016085245 ",.02)
 ;;58016085245
 ;;9002226.02101,"889,58016085248 ",.01)
 ;;58016085248
 ;;9002226.02101,"889,58016085248 ",.02)
 ;;58016085248
 ;;9002226.02101,"889,58016085250 ",.01)
 ;;58016085250
 ;;9002226.02101,"889,58016085250 ",.02)
 ;;58016085250
 ;;9002226.02101,"889,58016085256 ",.01)
 ;;58016085256
 ;;9002226.02101,"889,58016085256 ",.02)
 ;;58016085256
 ;;9002226.02101,"889,58016085260 ",.01)
 ;;58016085260
 ;;9002226.02101,"889,58016085260 ",.02)
 ;;58016085260
 ;;9002226.02101,"889,58016085267 ",.01)
 ;;58016085267
 ;;9002226.02101,"889,58016085267 ",.02)
 ;;58016085267
 ;;9002226.02101,"889,58016085269 ",.01)
 ;;58016085269
 ;;9002226.02101,"889,58016085269 ",.02)
 ;;58016085269
 ;;9002226.02101,"889,58016085270 ",.01)
 ;;58016085270
 ;;9002226.02101,"889,58016085270 ",.02)
 ;;58016085270
 ;;9002226.02101,"889,58016085271 ",.01)
 ;;58016085271
 ;;9002226.02101,"889,58016085271 ",.02)
 ;;58016085271
 ;;9002226.02101,"889,58016085272 ",.01)
 ;;58016085272
 ;;9002226.02101,"889,58016085272 ",.02)
 ;;58016085272
 ;;9002226.02101,"889,58016085273 ",.01)
 ;;58016085273
 ;;9002226.02101,"889,58016085273 ",.02)
 ;;58016085273
 ;;9002226.02101,"889,58016085275 ",.01)
 ;;58016085275
 ;;9002226.02101,"889,58016085275 ",.02)
 ;;58016085275
 ;;9002226.02101,"889,58016085276 ",.01)
 ;;58016085276
 ;;9002226.02101,"889,58016085276 ",.02)
 ;;58016085276
 ;;9002226.02101,"889,58016085277 ",.01)
 ;;58016085277
 ;;9002226.02101,"889,58016085277 ",.02)
 ;;58016085277
 ;;9002226.02101,"889,58016085279 ",.01)
 ;;58016085279
 ;;9002226.02101,"889,58016085279 ",.02)
 ;;58016085279
 ;;9002226.02101,"889,58016085280 ",.01)
 ;;58016085280
 ;;9002226.02101,"889,58016085280 ",.02)
 ;;58016085280
 ;;9002226.02101,"889,58016085281 ",.01)
 ;;58016085281
 ;;9002226.02101,"889,58016085281 ",.02)
 ;;58016085281
 ;;9002226.02101,"889,58016085282 ",.01)
 ;;58016085282
 ;;9002226.02101,"889,58016085282 ",.02)
 ;;58016085282
 ;;9002226.02101,"889,58016085283 ",.01)
 ;;58016085283
 ;;9002226.02101,"889,58016085283 ",.02)
 ;;58016085283
 ;;9002226.02101,"889,58016085284 ",.01)
 ;;58016085284
 ;;9002226.02101,"889,58016085284 ",.02)
 ;;58016085284
 ;;9002226.02101,"889,58016085287 ",.01)
 ;;58016085287
 ;;9002226.02101,"889,58016085287 ",.02)
 ;;58016085287
 ;;9002226.02101,"889,58016085289 ",.01)
 ;;58016085289
 ;;9002226.02101,"889,58016085289 ",.02)
 ;;58016085289
 ;;9002226.02101,"889,58016085290 ",.01)
 ;;58016085290
 ;;9002226.02101,"889,58016085290 ",.02)
 ;;58016085290
 ;;9002226.02101,"889,58016085291 ",.01)
 ;;58016085291
 ;;9002226.02101,"889,58016085291 ",.02)
 ;;58016085291
 ;;9002226.02101,"889,58016085292 ",.01)
 ;;58016085292
 ;;9002226.02101,"889,58016085292 ",.02)
 ;;58016085292
 ;;9002226.02101,"889,58016085293 ",.01)
 ;;58016085293
 ;;9002226.02101,"889,58016085293 ",.02)
 ;;58016085293