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

BGPM5AVT.m

Go to the documentation of this file.
  1. BGPM5AVT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,58016012208 ",.02)
  1. ;;58016012208
  1. ;;9002226.02101,"1033,58016012209 ",.01)
  1. ;;58016012209
  1. ;;9002226.02101,"1033,58016012209 ",.02)
  1. ;;58016012209
  1. ;;9002226.02101,"1033,58016012210 ",.01)
  1. ;;58016012210
  1. ;;9002226.02101,"1033,58016012210 ",.02)
  1. ;;58016012210
  1. ;;9002226.02101,"1033,58016012212 ",.01)
  1. ;;58016012212
  1. ;;9002226.02101,"1033,58016012212 ",.02)
  1. ;;58016012212
  1. ;;9002226.02101,"1033,58016012214 ",.01)
  1. ;;58016012214
  1. ;;9002226.02101,"1033,58016012214 ",.02)
  1. ;;58016012214
  1. ;;9002226.02101,"1033,58016012215 ",.01)
  1. ;;58016012215
  1. ;;9002226.02101,"1033,58016012215 ",.02)
  1. ;;58016012215
  1. ;;9002226.02101,"1033,58016012216 ",.01)
  1. ;;58016012216
  1. ;;9002226.02101,"1033,58016012216 ",.02)
  1. ;;58016012216
  1. ;;9002226.02101,"1033,58016012218 ",.01)
  1. ;;58016012218
  1. ;;9002226.02101,"1033,58016012218 ",.02)
  1. ;;58016012218
  1. ;;9002226.02101,"1033,58016012220 ",.01)
  1. ;;58016012220
  1. ;;9002226.02101,"1033,58016012220 ",.02)
  1. ;;58016012220
  1. ;;9002226.02101,"1033,58016012221 ",.01)
  1. ;;58016012221
  1. ;;9002226.02101,"1033,58016012221 ",.02)
  1. ;;58016012221
  1. ;;9002226.02101,"1033,58016012224 ",.01)
  1. ;;58016012224
  1. ;;9002226.02101,"1033,58016012224 ",.02)
  1. ;;58016012224
  1. ;;9002226.02101,"1033,58016012225 ",.01)
  1. ;;58016012225
  1. ;;9002226.02101,"1033,58016012225 ",.02)
  1. ;;58016012225
  1. ;;9002226.02101,"1033,58016012226 ",.01)
  1. ;;58016012226
  1. ;;9002226.02101,"1033,58016012226 ",.02)
  1. ;;58016012226
  1. ;;9002226.02101,"1033,58016012227 ",.01)
  1. ;;58016012227
  1. ;;9002226.02101,"1033,58016012227 ",.02)
  1. ;;58016012227
  1. ;;9002226.02101,"1033,58016012228 ",.01)
  1. ;;58016012228
  1. ;;9002226.02101,"1033,58016012228 ",.02)
  1. ;;58016012228
  1. ;;9002226.02101,"1033,58016012230 ",.01)
  1. ;;58016012230
  1. ;;9002226.02101,"1033,58016012230 ",.02)
  1. ;;58016012230
  1. ;;9002226.02101,"1033,58016012232 ",.01)
  1. ;;58016012232
  1. ;;9002226.02101,"1033,58016012232 ",.02)
  1. ;;58016012232
  1. ;;9002226.02101,"1033,58016012235 ",.01)
  1. ;;58016012235
  1. ;;9002226.02101,"1033,58016012235 ",.02)
  1. ;;58016012235
  1. ;;9002226.02101,"1033,58016012236 ",.01)
  1. ;;58016012236
  1. ;;9002226.02101,"1033,58016012236 ",.02)
  1. ;;58016012236
  1. ;;9002226.02101,"1033,58016012240 ",.01)
  1. ;;58016012240
  1. ;;9002226.02101,"1033,58016012240 ",.02)
  1. ;;58016012240
  1. ;;9002226.02101,"1033,58016012242 ",.01)
  1. ;;58016012242
  1. ;;9002226.02101,"1033,58016012242 ",.02)
  1. ;;58016012242
  1. ;;9002226.02101,"1033,58016012244 ",.01)
  1. ;;58016012244
  1. ;;9002226.02101,"1033,58016012244 ",.02)
  1. ;;58016012244
  1. ;;9002226.02101,"1033,58016012245 ",.01)
  1. ;;58016012245
  1. ;;9002226.02101,"1033,58016012245 ",.02)
  1. ;;58016012245
  1. ;;9002226.02101,"1033,58016012248 ",.01)
  1. ;;58016012248
  1. ;;9002226.02101,"1033,58016012248 ",.02)
  1. ;;58016012248
  1. ;;9002226.02101,"1033,58016012250 ",.01)
  1. ;;58016012250
  1. ;;9002226.02101,"1033,58016012250 ",.02)
  1. ;;58016012250
  1. ;;9002226.02101,"1033,58016012256 ",.01)
  1. ;;58016012256
  1. ;;9002226.02101,"1033,58016012256 ",.02)
  1. ;;58016012256
  1. ;;9002226.02101,"1033,58016012260 ",.01)
  1. ;;58016012260
  1. ;;9002226.02101,"1033,58016012260 ",.02)
  1. ;;58016012260
  1. ;;9002226.02101,"1033,58016012267 ",.01)
  1. ;;58016012267
  1. ;;9002226.02101,"1033,58016012267 ",.02)
  1. ;;58016012267
  1. ;;9002226.02101,"1033,58016012269 ",.01)
  1. ;;58016012269
  1. ;;9002226.02101,"1033,58016012269 ",.02)
  1. ;;58016012269
  1. ;;9002226.02101,"1033,58016012270 ",.01)
  1. ;;58016012270
  1. ;;9002226.02101,"1033,58016012270 ",.02)
  1. ;;58016012270
  1. ;;9002226.02101,"1033,58016012271 ",.01)
  1. ;;58016012271
  1. ;;9002226.02101,"1033,58016012271 ",.02)
  1. ;;58016012271
  1. ;;9002226.02101,"1033,58016012272 ",.01)
  1. ;;58016012272
  1. ;;9002226.02101,"1033,58016012272 ",.02)
  1. ;;58016012272
  1. ;;9002226.02101,"1033,58016012273 ",.01)
  1. ;;58016012273
  1. ;;9002226.02101,"1033,58016012273 ",.02)
  1. ;;58016012273
  1. ;;9002226.02101,"1033,58016012275 ",.01)
  1. ;;58016012275
  1. ;;9002226.02101,"1033,58016012275 ",.02)
  1. ;;58016012275
  1. ;;9002226.02101,"1033,58016012276 ",.01)
  1. ;;58016012276
  1. ;;9002226.02101,"1033,58016012276 ",.02)
  1. ;;58016012276
  1. ;;9002226.02101,"1033,58016012277 ",.01)
  1. ;;58016012277
  1. ;;9002226.02101,"1033,58016012277 ",.02)
  1. ;;58016012277
  1. ;;9002226.02101,"1033,58016012279 ",.01)
  1. ;;58016012279
  1. ;;9002226.02101,"1033,58016012279 ",.02)
  1. ;;58016012279
  1. ;;9002226.02101,"1033,58016012280 ",.01)
  1. ;;58016012280
  1. ;;9002226.02101,"1033,58016012280 ",.02)
  1. ;;58016012280
  1. ;;9002226.02101,"1033,58016012281 ",.01)
  1. ;;58016012281
  1. ;;9002226.02101,"1033,58016012281 ",.02)
  1. ;;58016012281
  1. ;;9002226.02101,"1033,58016012282 ",.01)
  1. ;;58016012282
  1. ;;9002226.02101,"1033,58016012282 ",.02)
  1. ;;58016012282
  1. ;;9002226.02101,"1033,58016012283 ",.01)
  1. ;;58016012283
  1. ;;9002226.02101,"1033,58016012283 ",.02)
  1. ;;58016012283
  1. ;;9002226.02101,"1033,58016012284 ",.01)
  1. ;;58016012284
  1. ;;9002226.02101,"1033,58016012284 ",.02)
  1. ;;58016012284
  1. ;;9002226.02101,"1033,58016012287 ",.01)
  1. ;;58016012287
  1. ;;9002226.02101,"1033,58016012287 ",.02)
  1. ;;58016012287
  1. ;;9002226.02101,"1033,58016012289 ",.01)
  1. ;;58016012289
  1. ;;9002226.02101,"1033,58016012289 ",.02)
  1. ;;58016012289
  1. ;;9002226.02101,"1033,58016012290 ",.01)
  1. ;;58016012290
  1. ;;9002226.02101,"1033,58016012290 ",.02)
  1. ;;58016012290
  1. ;;9002226.02101,"1033,58016012291 ",.01)
  1. ;;58016012291
  1. ;;9002226.02101,"1033,58016012291 ",.02)
  1. ;;58016012291
  1. ;;9002226.02101,"1033,58016012292 ",.01)
  1. ;;58016012292
  1. ;;9002226.02101,"1033,58016012292 ",.02)
  1. ;;58016012292
  1. ;;9002226.02101,"1033,58016012293 ",.01)
  1. ;;58016012293
  1. ;;9002226.02101,"1033,58016012293 ",.02)
  1. ;;58016012293
  1. ;;9002226.02101,"1033,58016012296 ",.01)
  1. ;;58016012296
  1. ;;9002226.02101,"1033,58016012296 ",.02)
  1. ;;58016012296
  1. ;;9002226.02101,"1033,58016012297 ",.01)
  1. ;;58016012297
  1. ;;9002226.02101,"1033,58016012297 ",.02)
  1. ;;58016012297
  1. ;;9002226.02101,"1033,58016012298 ",.01)
  1. ;;58016012298
  1. ;;9002226.02101,"1033,58016012298 ",.02)
  1. ;;58016012298
  1. ;;9002226.02101,"1033,58016012299 ",.01)
  1. ;;58016012299
  1. ;;9002226.02101,"1033,58016012299 ",.02)
  1. ;;58016012299
  1. ;;9002226.02101,"1033,58016012400 ",.01)
  1. ;;58016012400
  1. ;;9002226.02101,"1033,58016012400 ",.02)
  1. ;;58016012400
  1. ;;9002226.02101,"1033,58016012401 ",.01)
  1. ;;58016012401
  1. ;;9002226.02101,"1033,58016012401 ",.02)
  1. ;;58016012401
  1. ;;9002226.02101,"1033,58016012402 ",.01)
  1. ;;58016012402
  1. ;;9002226.02101,"1033,58016012402 ",.02)
  1. ;;58016012402
  1. ;;9002226.02101,"1033,58016012403 ",.01)
  1. ;;58016012403
  1. ;;9002226.02101,"1033,58016012403 ",.02)
  1. ;;58016012403
  1. ;;9002226.02101,"1033,58016012404 ",.01)
  1. ;;58016012404
  1. ;;9002226.02101,"1033,58016012404 ",.02)
  1. ;;58016012404
  1. ;;9002226.02101,"1033,58016012405 ",.01)
  1. ;;58016012405
  1. ;;9002226.02101,"1033,58016012405 ",.02)
  1. ;;58016012405
  1. ;;9002226.02101,"1033,58016012406 ",.01)
  1. ;;58016012406
  1. ;;9002226.02101,"1033,58016012406 ",.02)
  1. ;;58016012406
  1. ;;9002226.02101,"1033,58016012407 ",.01)
  1. ;;58016012407
  1. ;;9002226.02101,"1033,58016012407 ",.02)
  1. ;;58016012407
  1. ;;9002226.02101,"1033,58016012408 ",.01)
  1. ;;58016012408
  1. ;;9002226.02101,"1033,58016012408 ",.02)
  1. ;;58016012408
  1. ;;9002226.02101,"1033,58016012409 ",.01)
  1. ;;58016012409
  1. ;;9002226.02101,"1033,58016012409 ",.02)
  1. ;;58016012409
  1. ;;9002226.02101,"1033,58016012410 ",.01)
  1. ;;58016012410
  1. ;;9002226.02101,"1033,58016012410 ",.02)
  1. ;;58016012410
  1. ;;9002226.02101,"1033,58016012412 ",.01)
  1. ;;58016012412
  1. ;;9002226.02101,"1033,58016012412 ",.02)
  1. ;;58016012412
  1. ;;9002226.02101,"1033,58016012414 ",.01)
  1. ;;58016012414
  1. ;;9002226.02101,"1033,58016012414 ",.02)
  1. ;;58016012414
  1. ;;9002226.02101,"1033,58016012415 ",.01)
  1. ;;58016012415
  1. ;;9002226.02101,"1033,58016012415 ",.02)
  1. ;;58016012415
  1. ;;9002226.02101,"1033,58016012416 ",.01)
  1. ;;58016012416
  1. ;;9002226.02101,"1033,58016012416 ",.02)
  1. ;;58016012416
  1. ;;9002226.02101,"1033,58016012418 ",.01)
  1. ;;58016012418
  1. ;;9002226.02101,"1033,58016012418 ",.02)
  1. ;;58016012418
  1. ;;9002226.02101,"1033,58016012420 ",.01)
  1. ;;58016012420
  1. ;;9002226.02101,"1033,58016012420 ",.02)
  1. ;;58016012420
  1. ;;9002226.02101,"1033,58016012421 ",.01)
  1. ;;58016012421
  1. ;;9002226.02101,"1033,58016012421 ",.02)
  1. ;;58016012421
  1. ;;9002226.02101,"1033,58016012424 ",.01)
  1. ;;58016012424
  1. ;;9002226.02101,"1033,58016012424 ",.02)
  1. ;;58016012424
  1. ;;9002226.02101,"1033,58016012425 ",.01)
  1. ;;58016012425
  1. ;;9002226.02101,"1033,58016012425 ",.02)
  1. ;;58016012425
  1. ;;9002226.02101,"1033,58016012426 ",.01)
  1. ;;58016012426
  1. ;;9002226.02101,"1033,58016012426 ",.02)
  1. ;;58016012426
  1. ;;9002226.02101,"1033,58016012427 ",.01)
  1. ;;58016012427
  1. ;;9002226.02101,"1033,58016012427 ",.02)
  1. ;;58016012427
  1. ;;9002226.02101,"1033,58016012428 ",.01)
  1. ;;58016012428
  1. ;;9002226.02101,"1033,58016012428 ",.02)
  1. ;;58016012428
  1. ;;9002226.02101,"1033,58016012430 ",.01)
  1. ;;58016012430
  1. ;;9002226.02101,"1033,58016012430 ",.02)
  1. ;;58016012430
  1. ;;9002226.02101,"1033,58016012432 ",.01)
  1. ;;58016012432
  1. ;;9002226.02101,"1033,58016012432 ",.02)
  1. ;;58016012432
  1. ;;9002226.02101,"1033,58016012435 ",.01)
  1. ;;58016012435
  1. ;;9002226.02101,"1033,58016012435 ",.02)
  1. ;;58016012435
  1. ;;9002226.02101,"1033,58016012436 ",.01)
  1. ;;58016012436
  1. ;;9002226.02101,"1033,58016012436 ",.02)
  1. ;;58016012436
  1. ;;9002226.02101,"1033,58016012440 ",.01)
  1. ;;58016012440
  1. ;;9002226.02101,"1033,58016012440 ",.02)
  1. ;;58016012440
  1. ;;9002226.02101,"1033,58016012442 ",.01)
  1. ;;58016012442
  1. ;;9002226.02101,"1033,58016012442 ",.02)
  1. ;;58016012442
  1. ;;9002226.02101,"1033,58016012444 ",.01)
  1. ;;58016012444
  1. ;;9002226.02101,"1033,58016012444 ",.02)
  1. ;;58016012444
  1. ;;9002226.02101,"1033,58016012445 ",.01)
  1. ;;58016012445
  1. ;;9002226.02101,"1033,58016012445 ",.02)
  1. ;;58016012445
  1. ;;9002226.02101,"1033,58016012448 ",.01)
  1. ;;58016012448
  1. ;;9002226.02101,"1033,58016012448 ",.02)
  1. ;;58016012448
  1. ;;9002226.02101,"1033,58016012450 ",.01)
  1. ;;58016012450
  1. ;;9002226.02101,"1033,58016012450 ",.02)
  1. ;;58016012450
  1. ;;9002226.02101,"1033,58016012456 ",.01)
  1. ;;58016012456
  1. ;;9002226.02101,"1033,58016012456 ",.02)
  1. ;;58016012456
  1. ;;9002226.02101,"1033,58016012460 ",.01)
  1. ;;58016012460
  1. ;;9002226.02101,"1033,58016012460 ",.02)
  1. ;;58016012460
  1. ;;9002226.02101,"1033,58016012467 ",.01)
  1. ;;58016012467
  1. ;;9002226.02101,"1033,58016012467 ",.02)
  1. ;;58016012467
  1. ;;9002226.02101,"1033,58016012469 ",.01)
  1. ;;58016012469
  1. ;;9002226.02101,"1033,58016012469 ",.02)
  1. ;;58016012469
  1. ;;9002226.02101,"1033,58016012470 ",.01)
  1. ;;58016012470
  1. ;;9002226.02101,"1033,58016012470 ",.02)
  1. ;;58016012470
  1. ;;9002226.02101,"1033,58016012471 ",.01)
  1. ;;58016012471
  1. ;;9002226.02101,"1033,58016012471 ",.02)
  1. ;;58016012471
  1. ;;9002226.02101,"1033,58016012472 ",.01)
  1. ;;58016012472
  1. ;;9002226.02101,"1033,58016012472 ",.02)
  1. ;;58016012472
  1. ;;9002226.02101,"1033,58016012473 ",.01)
  1. ;;58016012473
  1. ;;9002226.02101,"1033,58016012473 ",.02)
  1. ;;58016012473
  1. ;;9002226.02101,"1033,58016012475 ",.01)
  1. ;;58016012475
  1. ;;9002226.02101,"1033,58016012475 ",.02)
  1. ;;58016012475
  1. ;;9002226.02101,"1033,58016012476 ",.01)
  1. ;;58016012476
  1. ;;9002226.02101,"1033,58016012476 ",.02)
  1. ;;58016012476
  1. ;;9002226.02101,"1033,58016012477 ",.01)
  1. ;;58016012477
  1. ;;9002226.02101,"1033,58016012477 ",.02)
  1. ;;58016012477
  1. ;;9002226.02101,"1033,58016012479 ",.01)
  1. ;;58016012479
  1. ;;9002226.02101,"1033,58016012479 ",.02)
  1. ;;58016012479
  1. ;;9002226.02101,"1033,58016012480 ",.01)
  1. ;;58016012480
  1. ;;9002226.02101,"1033,58016012480 ",.02)
  1. ;;58016012480
  1. ;;9002226.02101,"1033,58016012481 ",.01)
  1. ;;58016012481
  1. ;;9002226.02101,"1033,58016012481 ",.02)
  1. ;;58016012481
  1. ;;9002226.02101,"1033,58016012482 ",.01)
  1. ;;58016012482
  1. ;;9002226.02101,"1033,58016012482 ",.02)
  1. ;;58016012482
  1. ;;9002226.02101,"1033,58016012483 ",.01)
  1. ;;58016012483
  1. ;;9002226.02101,"1033,58016012483 ",.02)
  1. ;;58016012483