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

BGPM5AVZ.m

Go to the documentation of this file.
BGPM5AVZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016064384 ",.02)
 ;;58016064384
 ;;9002226.02101,"1033,58016064387 ",.01)
 ;;58016064387
 ;;9002226.02101,"1033,58016064387 ",.02)
 ;;58016064387
 ;;9002226.02101,"1033,58016064389 ",.01)
 ;;58016064389
 ;;9002226.02101,"1033,58016064389 ",.02)
 ;;58016064389
 ;;9002226.02101,"1033,58016064390 ",.01)
 ;;58016064390
 ;;9002226.02101,"1033,58016064390 ",.02)
 ;;58016064390
 ;;9002226.02101,"1033,58016064391 ",.01)
 ;;58016064391
 ;;9002226.02101,"1033,58016064391 ",.02)
 ;;58016064391
 ;;9002226.02101,"1033,58016064392 ",.01)
 ;;58016064392
 ;;9002226.02101,"1033,58016064392 ",.02)
 ;;58016064392
 ;;9002226.02101,"1033,58016064393 ",.01)
 ;;58016064393
 ;;9002226.02101,"1033,58016064393 ",.02)
 ;;58016064393
 ;;9002226.02101,"1033,58016064396 ",.01)
 ;;58016064396
 ;;9002226.02101,"1033,58016064396 ",.02)
 ;;58016064396
 ;;9002226.02101,"1033,58016064397 ",.01)
 ;;58016064397
 ;;9002226.02101,"1033,58016064397 ",.02)
 ;;58016064397
 ;;9002226.02101,"1033,58016064398 ",.01)
 ;;58016064398
 ;;9002226.02101,"1033,58016064398 ",.02)
 ;;58016064398
 ;;9002226.02101,"1033,58016064399 ",.01)
 ;;58016064399
 ;;9002226.02101,"1033,58016064399 ",.02)
 ;;58016064399
 ;;9002226.02101,"1033,58016087200 ",.01)
 ;;58016087200
 ;;9002226.02101,"1033,58016087200 ",.02)
 ;;58016087200
 ;;9002226.02101,"1033,58016087201 ",.01)
 ;;58016087201
 ;;9002226.02101,"1033,58016087201 ",.02)
 ;;58016087201
 ;;9002226.02101,"1033,58016087202 ",.01)
 ;;58016087202
 ;;9002226.02101,"1033,58016087202 ",.02)
 ;;58016087202
 ;;9002226.02101,"1033,58016087203 ",.01)
 ;;58016087203
 ;;9002226.02101,"1033,58016087203 ",.02)
 ;;58016087203
 ;;9002226.02101,"1033,58016087204 ",.01)
 ;;58016087204
 ;;9002226.02101,"1033,58016087204 ",.02)
 ;;58016087204
 ;;9002226.02101,"1033,58016087205 ",.01)
 ;;58016087205
 ;;9002226.02101,"1033,58016087205 ",.02)
 ;;58016087205
 ;;9002226.02101,"1033,58016087206 ",.01)
 ;;58016087206
 ;;9002226.02101,"1033,58016087206 ",.02)
 ;;58016087206
 ;;9002226.02101,"1033,58016087207 ",.01)
 ;;58016087207
 ;;9002226.02101,"1033,58016087207 ",.02)
 ;;58016087207
 ;;9002226.02101,"1033,58016087208 ",.01)
 ;;58016087208
 ;;9002226.02101,"1033,58016087208 ",.02)
 ;;58016087208
 ;;9002226.02101,"1033,58016087209 ",.01)
 ;;58016087209
 ;;9002226.02101,"1033,58016087209 ",.02)
 ;;58016087209
 ;;9002226.02101,"1033,58016087210 ",.01)
 ;;58016087210
 ;;9002226.02101,"1033,58016087210 ",.02)
 ;;58016087210
 ;;9002226.02101,"1033,58016087212 ",.01)
 ;;58016087212
 ;;9002226.02101,"1033,58016087212 ",.02)
 ;;58016087212
 ;;9002226.02101,"1033,58016087214 ",.01)
 ;;58016087214
 ;;9002226.02101,"1033,58016087214 ",.02)
 ;;58016087214
 ;;9002226.02101,"1033,58016087215 ",.01)
 ;;58016087215
 ;;9002226.02101,"1033,58016087215 ",.02)
 ;;58016087215
 ;;9002226.02101,"1033,58016087216 ",.01)
 ;;58016087216
 ;;9002226.02101,"1033,58016087216 ",.02)
 ;;58016087216
 ;;9002226.02101,"1033,58016087218 ",.01)
 ;;58016087218
 ;;9002226.02101,"1033,58016087218 ",.02)
 ;;58016087218
 ;;9002226.02101,"1033,58016087220 ",.01)
 ;;58016087220
 ;;9002226.02101,"1033,58016087220 ",.02)
 ;;58016087220
 ;;9002226.02101,"1033,58016087221 ",.01)
 ;;58016087221
 ;;9002226.02101,"1033,58016087221 ",.02)
 ;;58016087221
 ;;9002226.02101,"1033,58016087224 ",.01)
 ;;58016087224
 ;;9002226.02101,"1033,58016087224 ",.02)
 ;;58016087224
 ;;9002226.02101,"1033,58016087225 ",.01)
 ;;58016087225
 ;;9002226.02101,"1033,58016087225 ",.02)
 ;;58016087225
 ;;9002226.02101,"1033,58016087226 ",.01)
 ;;58016087226
 ;;9002226.02101,"1033,58016087226 ",.02)
 ;;58016087226
 ;;9002226.02101,"1033,58016087227 ",.01)
 ;;58016087227
 ;;9002226.02101,"1033,58016087227 ",.02)
 ;;58016087227
 ;;9002226.02101,"1033,58016087228 ",.01)
 ;;58016087228
 ;;9002226.02101,"1033,58016087228 ",.02)
 ;;58016087228
 ;;9002226.02101,"1033,58016087230 ",.01)
 ;;58016087230
 ;;9002226.02101,"1033,58016087230 ",.02)
 ;;58016087230
 ;;9002226.02101,"1033,58016087232 ",.01)
 ;;58016087232
 ;;9002226.02101,"1033,58016087232 ",.02)
 ;;58016087232
 ;;9002226.02101,"1033,58016087235 ",.01)
 ;;58016087235
 ;;9002226.02101,"1033,58016087235 ",.02)
 ;;58016087235
 ;;9002226.02101,"1033,58016087236 ",.01)
 ;;58016087236
 ;;9002226.02101,"1033,58016087236 ",.02)
 ;;58016087236
 ;;9002226.02101,"1033,58016087240 ",.01)
 ;;58016087240
 ;;9002226.02101,"1033,58016087240 ",.02)
 ;;58016087240
 ;;9002226.02101,"1033,58016087242 ",.01)
 ;;58016087242
 ;;9002226.02101,"1033,58016087242 ",.02)
 ;;58016087242
 ;;9002226.02101,"1033,58016087244 ",.01)
 ;;58016087244
 ;;9002226.02101,"1033,58016087244 ",.02)
 ;;58016087244
 ;;9002226.02101,"1033,58016087245 ",.01)
 ;;58016087245
 ;;9002226.02101,"1033,58016087245 ",.02)
 ;;58016087245
 ;;9002226.02101,"1033,58016087248 ",.01)
 ;;58016087248
 ;;9002226.02101,"1033,58016087248 ",.02)
 ;;58016087248
 ;;9002226.02101,"1033,58016087250 ",.01)
 ;;58016087250
 ;;9002226.02101,"1033,58016087250 ",.02)
 ;;58016087250
 ;;9002226.02101,"1033,58016087256 ",.01)
 ;;58016087256
 ;;9002226.02101,"1033,58016087256 ",.02)
 ;;58016087256
 ;;9002226.02101,"1033,58016087260 ",.01)
 ;;58016087260
 ;;9002226.02101,"1033,58016087260 ",.02)
 ;;58016087260
 ;;9002226.02101,"1033,58016087267 ",.01)
 ;;58016087267
 ;;9002226.02101,"1033,58016087267 ",.02)
 ;;58016087267
 ;;9002226.02101,"1033,58016087269 ",.01)
 ;;58016087269
 ;;9002226.02101,"1033,58016087269 ",.02)
 ;;58016087269
 ;;9002226.02101,"1033,58016087270 ",.01)
 ;;58016087270
 ;;9002226.02101,"1033,58016087270 ",.02)
 ;;58016087270
 ;;9002226.02101,"1033,58016087271 ",.01)
 ;;58016087271
 ;;9002226.02101,"1033,58016087271 ",.02)
 ;;58016087271
 ;;9002226.02101,"1033,58016087272 ",.01)
 ;;58016087272
 ;;9002226.02101,"1033,58016087272 ",.02)
 ;;58016087272
 ;;9002226.02101,"1033,58016087273 ",.01)
 ;;58016087273
 ;;9002226.02101,"1033,58016087273 ",.02)
 ;;58016087273
 ;;9002226.02101,"1033,58016087275 ",.01)
 ;;58016087275
 ;;9002226.02101,"1033,58016087275 ",.02)
 ;;58016087275
 ;;9002226.02101,"1033,58016087276 ",.01)
 ;;58016087276
 ;;9002226.02101,"1033,58016087276 ",.02)
 ;;58016087276
 ;;9002226.02101,"1033,58016087277 ",.01)
 ;;58016087277
 ;;9002226.02101,"1033,58016087277 ",.02)
 ;;58016087277
 ;;9002226.02101,"1033,58016087279 ",.01)
 ;;58016087279
 ;;9002226.02101,"1033,58016087279 ",.02)
 ;;58016087279
 ;;9002226.02101,"1033,58016087280 ",.01)
 ;;58016087280
 ;;9002226.02101,"1033,58016087280 ",.02)
 ;;58016087280
 ;;9002226.02101,"1033,58016087281 ",.01)
 ;;58016087281
 ;;9002226.02101,"1033,58016087281 ",.02)
 ;;58016087281
 ;;9002226.02101,"1033,58016087282 ",.01)
 ;;58016087282
 ;;9002226.02101,"1033,58016087282 ",.02)
 ;;58016087282
 ;;9002226.02101,"1033,58016087283 ",.01)
 ;;58016087283
 ;;9002226.02101,"1033,58016087283 ",.02)
 ;;58016087283
 ;;9002226.02101,"1033,58016087284 ",.01)
 ;;58016087284
 ;;9002226.02101,"1033,58016087284 ",.02)
 ;;58016087284
 ;;9002226.02101,"1033,58016087287 ",.01)
 ;;58016087287
 ;;9002226.02101,"1033,58016087287 ",.02)
 ;;58016087287
 ;;9002226.02101,"1033,58016087289 ",.01)
 ;;58016087289
 ;;9002226.02101,"1033,58016087289 ",.02)
 ;;58016087289
 ;;9002226.02101,"1033,58016087290 ",.01)
 ;;58016087290
 ;;9002226.02101,"1033,58016087290 ",.02)
 ;;58016087290
 ;;9002226.02101,"1033,58016087291 ",.01)
 ;;58016087291
 ;;9002226.02101,"1033,58016087291 ",.02)
 ;;58016087291
 ;;9002226.02101,"1033,58016087292 ",.01)
 ;;58016087292
 ;;9002226.02101,"1033,58016087292 ",.02)
 ;;58016087292
 ;;9002226.02101,"1033,58016087293 ",.01)
 ;;58016087293
 ;;9002226.02101,"1033,58016087293 ",.02)
 ;;58016087293
 ;;9002226.02101,"1033,58016087296 ",.01)
 ;;58016087296
 ;;9002226.02101,"1033,58016087296 ",.02)
 ;;58016087296
 ;;9002226.02101,"1033,58016087297 ",.01)
 ;;58016087297
 ;;9002226.02101,"1033,58016087297 ",.02)
 ;;58016087297
 ;;9002226.02101,"1033,58016087298 ",.01)
 ;;58016087298
 ;;9002226.02101,"1033,58016087298 ",.02)
 ;;58016087298
 ;;9002226.02101,"1033,58016087299 ",.01)
 ;;58016087299
 ;;9002226.02101,"1033,58016087299 ",.02)
 ;;58016087299
 ;;9002226.02101,"1033,58016087300 ",.01)
 ;;58016087300
 ;;9002226.02101,"1033,58016087300 ",.02)
 ;;58016087300
 ;;9002226.02101,"1033,58016087315 ",.01)
 ;;58016087315
 ;;9002226.02101,"1033,58016087315 ",.02)
 ;;58016087315
 ;;9002226.02101,"1033,58016087320 ",.01)
 ;;58016087320
 ;;9002226.02101,"1033,58016087320 ",.02)
 ;;58016087320
 ;;9002226.02101,"1033,58016087330 ",.01)
 ;;58016087330
 ;;9002226.02101,"1033,58016087330 ",.02)
 ;;58016087330
 ;;9002226.02101,"1033,58016088400 ",.01)
 ;;58016088400
 ;;9002226.02101,"1033,58016088400 ",.02)
 ;;58016088400
 ;;9002226.02101,"1033,58016088401 ",.01)
 ;;58016088401
 ;;9002226.02101,"1033,58016088401 ",.02)
 ;;58016088401
 ;;9002226.02101,"1033,58016088402 ",.01)
 ;;58016088402
 ;;9002226.02101,"1033,58016088402 ",.02)
 ;;58016088402
 ;;9002226.02101,"1033,58016088403 ",.01)
 ;;58016088403
 ;;9002226.02101,"1033,58016088403 ",.02)
 ;;58016088403
 ;;9002226.02101,"1033,58016088404 ",.01)
 ;;58016088404
 ;;9002226.02101,"1033,58016088404 ",.02)
 ;;58016088404
 ;;9002226.02101,"1033,58016088405 ",.01)
 ;;58016088405
 ;;9002226.02101,"1033,58016088405 ",.02)
 ;;58016088405
 ;;9002226.02101,"1033,58016088406 ",.01)
 ;;58016088406
 ;;9002226.02101,"1033,58016088406 ",.02)
 ;;58016088406
 ;;9002226.02101,"1033,58016088407 ",.01)
 ;;58016088407
 ;;9002226.02101,"1033,58016088407 ",.02)
 ;;58016088407
 ;;9002226.02101,"1033,58016088408 ",.01)
 ;;58016088408
 ;;9002226.02101,"1033,58016088408 ",.02)
 ;;58016088408
 ;;9002226.02101,"1033,58016088409 ",.01)
 ;;58016088409
 ;;9002226.02101,"1033,58016088409 ",.02)
 ;;58016088409
 ;;9002226.02101,"1033,58016088410 ",.01)
 ;;58016088410
 ;;9002226.02101,"1033,58016088410 ",.02)
 ;;58016088410
 ;;9002226.02101,"1033,58016088412 ",.01)
 ;;58016088412
 ;;9002226.02101,"1033,58016088412 ",.02)
 ;;58016088412
 ;;9002226.02101,"1033,58016088414 ",.01)
 ;;58016088414
 ;;9002226.02101,"1033,58016088414 ",.02)
 ;;58016088414
 ;;9002226.02101,"1033,58016088415 ",.01)
 ;;58016088415
 ;;9002226.02101,"1033,58016088415 ",.02)
 ;;58016088415
 ;;9002226.02101,"1033,58016088416 ",.01)
 ;;58016088416
 ;;9002226.02101,"1033,58016088416 ",.02)
 ;;58016088416
 ;;9002226.02101,"1033,58016088418 ",.01)
 ;;58016088418
 ;;9002226.02101,"1033,58016088418 ",.02)
 ;;58016088418
 ;;9002226.02101,"1033,58016088420 ",.01)
 ;;58016088420
 ;;9002226.02101,"1033,58016088420 ",.02)
 ;;58016088420
 ;;9002226.02101,"1033,58016088421 ",.01)
 ;;58016088421
 ;;9002226.02101,"1033,58016088421 ",.02)
 ;;58016088421
 ;;9002226.02101,"1033,58016088424 ",.01)
 ;;58016088424
 ;;9002226.02101,"1033,58016088424 ",.02)
 ;;58016088424
 ;;9002226.02101,"1033,58016088425 ",.01)
 ;;58016088425
 ;;9002226.02101,"1033,58016088425 ",.02)
 ;;58016088425
 ;;9002226.02101,"1033,58016088426 ",.01)
 ;;58016088426
 ;;9002226.02101,"1033,58016088426 ",.02)
 ;;58016088426
 ;;9002226.02101,"1033,58016088427 ",.01)
 ;;58016088427
 ;;9002226.02101,"1033,58016088427 ",.02)
 ;;58016088427
 ;;9002226.02101,"1033,58016088428 ",.01)
 ;;58016088428
 ;;9002226.02101,"1033,58016088428 ",.02)
 ;;58016088428
 ;;9002226.02101,"1033,58016088430 ",.01)
 ;;58016088430
 ;;9002226.02101,"1033,58016088430 ",.02)
 ;;58016088430
 ;;9002226.02101,"1033,58016088432 ",.01)
 ;;58016088432
 ;;9002226.02101,"1033,58016088432 ",.02)
 ;;58016088432
 ;;9002226.02101,"1033,58016088435 ",.01)
 ;;58016088435
 ;;9002226.02101,"1033,58016088435 ",.02)
 ;;58016088435