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

BGPM5ALA.m

Go to the documentation of this file.
BGPM5ALA ;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,"885,56062043078 ",.02)
 ;;56062043078
 ;;9002226.02101,"885,57394028652 ",.01)
 ;;57394028652
 ;;9002226.02101,"885,57394028652 ",.02)
 ;;57394028652
 ;;9002226.02101,"885,57394028662 ",.01)
 ;;57394028662
 ;;9002226.02101,"885,57394028662 ",.02)
 ;;57394028662
 ;;9002226.02101,"885,57480010601 ",.01)
 ;;57480010601
 ;;9002226.02101,"885,57480010601 ",.02)
 ;;57480010601
 ;;9002226.02101,"885,57480010606 ",.01)
 ;;57480010606
 ;;9002226.02101,"885,57480010606 ",.02)
 ;;57480010606
 ;;9002226.02101,"885,57575007530 ",.01)
 ;;57575007530
 ;;9002226.02101,"885,57575007530 ",.02)
 ;;57575007530
 ;;9002226.02101,"885,57866109003 ",.01)
 ;;57866109003
 ;;9002226.02101,"885,57866109003 ",.02)
 ;;57866109003
 ;;9002226.02101,"885,57866109103 ",.01)
 ;;57866109103
 ;;9002226.02101,"885,57866109103 ",.02)
 ;;57866109103
 ;;9002226.02101,"885,57896050001 ",.01)
 ;;57896050001
 ;;9002226.02101,"885,57896050001 ",.02)
 ;;57896050001
 ;;9002226.02101,"885,57896050010 ",.01)
 ;;57896050010
 ;;9002226.02101,"885,57896050010 ",.02)
 ;;57896050010
 ;;9002226.02101,"885,57896050101 ",.01)
 ;;57896050101
 ;;9002226.02101,"885,57896050101 ",.02)
 ;;57896050101
 ;;9002226.02101,"885,57896050110 ",.01)
 ;;57896050110
 ;;9002226.02101,"885,57896050110 ",.02)
 ;;57896050110
 ;;9002226.02101,"885,57896090101 ",.01)
 ;;57896090101
 ;;9002226.02101,"885,57896090101 ",.02)
 ;;57896090101
 ;;9002226.02101,"885,57896090110 ",.01)
 ;;57896090110
 ;;9002226.02101,"885,57896090110 ",.02)
 ;;57896090110
 ;;9002226.02101,"885,57896090125 ",.01)
 ;;57896090125
 ;;9002226.02101,"885,57896090125 ",.02)
 ;;57896090125
 ;;9002226.02101,"885,57896092101 ",.01)
 ;;57896092101
 ;;9002226.02101,"885,57896092101 ",.02)
 ;;57896092101
 ;;9002226.02101,"885,57896092110 ",.01)
 ;;57896092110
 ;;9002226.02101,"885,57896092110 ",.02)
 ;;57896092110
 ;;9002226.02101,"885,57896093101 ",.01)
 ;;57896093101
 ;;9002226.02101,"885,57896093101 ",.02)
 ;;57896093101
 ;;9002226.02101,"885,57896098101 ",.01)
 ;;57896098101
 ;;9002226.02101,"885,57896098101 ",.02)
 ;;57896098101
 ;;9002226.02101,"885,58016009200 ",.01)
 ;;58016009200
 ;;9002226.02101,"885,58016009200 ",.02)
 ;;58016009200
 ;;9002226.02101,"885,58016009201 ",.01)
 ;;58016009201
 ;;9002226.02101,"885,58016009201 ",.02)
 ;;58016009201
 ;;9002226.02101,"885,58016009202 ",.01)
 ;;58016009202
 ;;9002226.02101,"885,58016009202 ",.02)
 ;;58016009202
 ;;9002226.02101,"885,58016009203 ",.01)
 ;;58016009203
 ;;9002226.02101,"885,58016009203 ",.02)
 ;;58016009203
 ;;9002226.02101,"885,58016009204 ",.01)
 ;;58016009204
 ;;9002226.02101,"885,58016009204 ",.02)
 ;;58016009204
 ;;9002226.02101,"885,58016009205 ",.01)
 ;;58016009205
 ;;9002226.02101,"885,58016009205 ",.02)
 ;;58016009205
 ;;9002226.02101,"885,58016009206 ",.01)
 ;;58016009206
 ;;9002226.02101,"885,58016009206 ",.02)
 ;;58016009206
 ;;9002226.02101,"885,58016009207 ",.01)
 ;;58016009207
 ;;9002226.02101,"885,58016009207 ",.02)
 ;;58016009207
 ;;9002226.02101,"885,58016009208 ",.01)
 ;;58016009208
 ;;9002226.02101,"885,58016009208 ",.02)
 ;;58016009208
 ;;9002226.02101,"885,58016009209 ",.01)
 ;;58016009209
 ;;9002226.02101,"885,58016009209 ",.02)
 ;;58016009209
 ;;9002226.02101,"885,58016009210 ",.01)
 ;;58016009210
 ;;9002226.02101,"885,58016009210 ",.02)
 ;;58016009210
 ;;9002226.02101,"885,58016009212 ",.01)
 ;;58016009212
 ;;9002226.02101,"885,58016009212 ",.02)
 ;;58016009212
 ;;9002226.02101,"885,58016009214 ",.01)
 ;;58016009214
 ;;9002226.02101,"885,58016009214 ",.02)
 ;;58016009214
 ;;9002226.02101,"885,58016009215 ",.01)
 ;;58016009215
 ;;9002226.02101,"885,58016009215 ",.02)
 ;;58016009215
 ;;9002226.02101,"885,58016009216 ",.01)
 ;;58016009216
 ;;9002226.02101,"885,58016009216 ",.02)
 ;;58016009216
 ;;9002226.02101,"885,58016009218 ",.01)
 ;;58016009218
 ;;9002226.02101,"885,58016009218 ",.02)
 ;;58016009218
 ;;9002226.02101,"885,58016009220 ",.01)
 ;;58016009220
 ;;9002226.02101,"885,58016009220 ",.02)
 ;;58016009220
 ;;9002226.02101,"885,58016009221 ",.01)
 ;;58016009221
 ;;9002226.02101,"885,58016009221 ",.02)
 ;;58016009221
 ;;9002226.02101,"885,58016009224 ",.01)
 ;;58016009224
 ;;9002226.02101,"885,58016009224 ",.02)
 ;;58016009224
 ;;9002226.02101,"885,58016009225 ",.01)
 ;;58016009225
 ;;9002226.02101,"885,58016009225 ",.02)
 ;;58016009225
 ;;9002226.02101,"885,58016009226 ",.01)
 ;;58016009226
 ;;9002226.02101,"885,58016009226 ",.02)
 ;;58016009226
 ;;9002226.02101,"885,58016009227 ",.01)
 ;;58016009227
 ;;9002226.02101,"885,58016009227 ",.02)
 ;;58016009227
 ;;9002226.02101,"885,58016009228 ",.01)
 ;;58016009228
 ;;9002226.02101,"885,58016009228 ",.02)
 ;;58016009228
 ;;9002226.02101,"885,58016009230 ",.01)
 ;;58016009230
 ;;9002226.02101,"885,58016009230 ",.02)
 ;;58016009230
 ;;9002226.02101,"885,58016009232 ",.01)
 ;;58016009232
 ;;9002226.02101,"885,58016009232 ",.02)
 ;;58016009232
 ;;9002226.02101,"885,58016009235 ",.01)
 ;;58016009235
 ;;9002226.02101,"885,58016009235 ",.02)
 ;;58016009235
 ;;9002226.02101,"885,58016009236 ",.01)
 ;;58016009236
 ;;9002226.02101,"885,58016009236 ",.02)
 ;;58016009236
 ;;9002226.02101,"885,58016009240 ",.01)
 ;;58016009240
 ;;9002226.02101,"885,58016009240 ",.02)
 ;;58016009240
 ;;9002226.02101,"885,58016009242 ",.01)
 ;;58016009242
 ;;9002226.02101,"885,58016009242 ",.02)
 ;;58016009242
 ;;9002226.02101,"885,58016009244 ",.01)
 ;;58016009244
 ;;9002226.02101,"885,58016009244 ",.02)
 ;;58016009244
 ;;9002226.02101,"885,58016009245 ",.01)
 ;;58016009245
 ;;9002226.02101,"885,58016009245 ",.02)
 ;;58016009245
 ;;9002226.02101,"885,58016009248 ",.01)
 ;;58016009248
 ;;9002226.02101,"885,58016009248 ",.02)
 ;;58016009248
 ;;9002226.02101,"885,58016009250 ",.01)
 ;;58016009250
 ;;9002226.02101,"885,58016009250 ",.02)
 ;;58016009250
 ;;9002226.02101,"885,58016009256 ",.01)
 ;;58016009256
 ;;9002226.02101,"885,58016009256 ",.02)
 ;;58016009256
 ;;9002226.02101,"885,58016009260 ",.01)
 ;;58016009260
 ;;9002226.02101,"885,58016009260 ",.02)
 ;;58016009260
 ;;9002226.02101,"885,58016009267 ",.01)
 ;;58016009267
 ;;9002226.02101,"885,58016009267 ",.02)
 ;;58016009267
 ;;9002226.02101,"885,58016009269 ",.01)
 ;;58016009269
 ;;9002226.02101,"885,58016009269 ",.02)
 ;;58016009269
 ;;9002226.02101,"885,58016009270 ",.01)
 ;;58016009270
 ;;9002226.02101,"885,58016009270 ",.02)
 ;;58016009270
 ;;9002226.02101,"885,58016009271 ",.01)
 ;;58016009271
 ;;9002226.02101,"885,58016009271 ",.02)
 ;;58016009271
 ;;9002226.02101,"885,58016009272 ",.01)
 ;;58016009272
 ;;9002226.02101,"885,58016009272 ",.02)
 ;;58016009272
 ;;9002226.02101,"885,58016009273 ",.01)
 ;;58016009273
 ;;9002226.02101,"885,58016009273 ",.02)
 ;;58016009273
 ;;9002226.02101,"885,58016009275 ",.01)
 ;;58016009275
 ;;9002226.02101,"885,58016009275 ",.02)
 ;;58016009275
 ;;9002226.02101,"885,58016009276 ",.01)
 ;;58016009276
 ;;9002226.02101,"885,58016009276 ",.02)
 ;;58016009276
 ;;9002226.02101,"885,58016009277 ",.01)
 ;;58016009277
 ;;9002226.02101,"885,58016009277 ",.02)
 ;;58016009277
 ;;9002226.02101,"885,58016009279 ",.01)
 ;;58016009279
 ;;9002226.02101,"885,58016009279 ",.02)
 ;;58016009279
 ;;9002226.02101,"885,58016009280 ",.01)
 ;;58016009280
 ;;9002226.02101,"885,58016009280 ",.02)
 ;;58016009280
 ;;9002226.02101,"885,58016009281 ",.01)
 ;;58016009281
 ;;9002226.02101,"885,58016009281 ",.02)
 ;;58016009281
 ;;9002226.02101,"885,58016009282 ",.01)
 ;;58016009282
 ;;9002226.02101,"885,58016009282 ",.02)
 ;;58016009282
 ;;9002226.02101,"885,58016009283 ",.01)
 ;;58016009283
 ;;9002226.02101,"885,58016009283 ",.02)
 ;;58016009283
 ;;9002226.02101,"885,58016009284 ",.01)
 ;;58016009284
 ;;9002226.02101,"885,58016009284 ",.02)
 ;;58016009284
 ;;9002226.02101,"885,58016009287 ",.01)
 ;;58016009287
 ;;9002226.02101,"885,58016009287 ",.02)
 ;;58016009287
 ;;9002226.02101,"885,58016009289 ",.01)
 ;;58016009289
 ;;9002226.02101,"885,58016009289 ",.02)
 ;;58016009289
 ;;9002226.02101,"885,58016009290 ",.01)
 ;;58016009290
 ;;9002226.02101,"885,58016009290 ",.02)
 ;;58016009290
 ;;9002226.02101,"885,58016009291 ",.01)
 ;;58016009291
 ;;9002226.02101,"885,58016009291 ",.02)
 ;;58016009291
 ;;9002226.02101,"885,58016009292 ",.01)
 ;;58016009292
 ;;9002226.02101,"885,58016009292 ",.02)
 ;;58016009292
 ;;9002226.02101,"885,58016009293 ",.01)
 ;;58016009293
 ;;9002226.02101,"885,58016009293 ",.02)
 ;;58016009293
 ;;9002226.02101,"885,58016009296 ",.01)
 ;;58016009296
 ;;9002226.02101,"885,58016009296 ",.02)
 ;;58016009296
 ;;9002226.02101,"885,58016009297 ",.01)
 ;;58016009297
 ;;9002226.02101,"885,58016009297 ",.02)
 ;;58016009297
 ;;9002226.02101,"885,58016009298 ",.01)
 ;;58016009298
 ;;9002226.02101,"885,58016009298 ",.02)
 ;;58016009298
 ;;9002226.02101,"885,58016009299 ",.01)
 ;;58016009299
 ;;9002226.02101,"885,58016009299 ",.02)
 ;;58016009299
 ;;9002226.02101,"885,58016020700 ",.01)
 ;;58016020700
 ;;9002226.02101,"885,58016020700 ",.02)
 ;;58016020700
 ;;9002226.02101,"885,58016022500 ",.01)
 ;;58016022500
 ;;9002226.02101,"885,58016022500 ",.02)
 ;;58016022500
 ;;9002226.02101,"885,58016022520 ",.01)
 ;;58016022520
 ;;9002226.02101,"885,58016022520 ",.02)
 ;;58016022520
 ;;9002226.02101,"885,58016022530 ",.01)
 ;;58016022530
 ;;9002226.02101,"885,58016022530 ",.02)
 ;;58016022530
 ;;9002226.02101,"885,58016022560 ",.01)
 ;;58016022560
 ;;9002226.02101,"885,58016022560 ",.02)
 ;;58016022560
 ;;9002226.02101,"885,58016023300 ",.01)
 ;;58016023300
 ;;9002226.02101,"885,58016023300 ",.02)
 ;;58016023300
 ;;9002226.02101,"885,58016023302 ",.01)
 ;;58016023302
 ;;9002226.02101,"885,58016023302 ",.02)
 ;;58016023302
 ;;9002226.02101,"885,58016023310 ",.01)
 ;;58016023310
 ;;9002226.02101,"885,58016023310 ",.02)
 ;;58016023310
 ;;9002226.02101,"885,58016023312 ",.01)
 ;;58016023312
 ;;9002226.02101,"885,58016023312 ",.02)
 ;;58016023312
 ;;9002226.02101,"885,58016023314 ",.01)
 ;;58016023314
 ;;9002226.02101,"885,58016023314 ",.02)
 ;;58016023314
 ;;9002226.02101,"885,58016023315 ",.01)
 ;;58016023315
 ;;9002226.02101,"885,58016023315 ",.02)
 ;;58016023315
 ;;9002226.02101,"885,58016023320 ",.01)
 ;;58016023320
 ;;9002226.02101,"885,58016023320 ",.02)
 ;;58016023320
 ;;9002226.02101,"885,58016023321 ",.01)
 ;;58016023321
 ;;9002226.02101,"885,58016023321 ",.02)
 ;;58016023321
 ;;9002226.02101,"885,58016023324 ",.01)
 ;;58016023324
 ;;9002226.02101,"885,58016023324 ",.02)
 ;;58016023324
 ;;9002226.02101,"885,58016023325 ",.01)
 ;;58016023325
 ;;9002226.02101,"885,58016023325 ",.02)
 ;;58016023325
 ;;9002226.02101,"885,58016023328 ",.01)
 ;;58016023328
 ;;9002226.02101,"885,58016023328 ",.02)
 ;;58016023328
 ;;9002226.02101,"885,58016023330 ",.01)
 ;;58016023330
 ;;9002226.02101,"885,58016023330 ",.02)
 ;;58016023330
 ;;9002226.02101,"885,58016023340 ",.01)
 ;;58016023340
 ;;9002226.02101,"885,58016023340 ",.02)
 ;;58016023340
 ;;9002226.02101,"885,58016023350 ",.01)
 ;;58016023350
 ;;9002226.02101,"885,58016023350 ",.02)
 ;;58016023350
 ;;9002226.02101,"885,58016023360 ",.01)
 ;;58016023360
 ;;9002226.02101,"885,58016023360 ",.02)
 ;;58016023360
 ;;9002226.02101,"885,58016091000 ",.01)
 ;;58016091000
 ;;9002226.02101,"885,58016091000 ",.02)
 ;;58016091000
 ;;9002226.02101,"885,58016091001 ",.01)
 ;;58016091001
 ;;9002226.02101,"885,58016091001 ",.02)
 ;;58016091001
 ;;9002226.02101,"885,58016091002 ",.01)
 ;;58016091002
 ;;9002226.02101,"885,58016091002 ",.02)
 ;;58016091002
 ;;9002226.02101,"885,58016091003 ",.01)
 ;;58016091003