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

BGPM5BD.m

Go to the documentation of this file.
  1. BGPM5BD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,58016022456 ",.01)
  1. ;;58016022456
  1. ;;9002226.02101,"1044,58016022456 ",.02)
  1. ;;58016022456
  1. ;;9002226.02101,"1044,58016022460 ",.01)
  1. ;;58016022460
  1. ;;9002226.02101,"1044,58016022460 ",.02)
  1. ;;58016022460
  1. ;;9002226.02101,"1044,58016022467 ",.01)
  1. ;;58016022467
  1. ;;9002226.02101,"1044,58016022467 ",.02)
  1. ;;58016022467
  1. ;;9002226.02101,"1044,58016022469 ",.01)
  1. ;;58016022469
  1. ;;9002226.02101,"1044,58016022469 ",.02)
  1. ;;58016022469
  1. ;;9002226.02101,"1044,58016022470 ",.01)
  1. ;;58016022470
  1. ;;9002226.02101,"1044,58016022470 ",.02)
  1. ;;58016022470
  1. ;;9002226.02101,"1044,58016022471 ",.01)
  1. ;;58016022471
  1. ;;9002226.02101,"1044,58016022471 ",.02)
  1. ;;58016022471
  1. ;;9002226.02101,"1044,58016022472 ",.01)
  1. ;;58016022472
  1. ;;9002226.02101,"1044,58016022472 ",.02)
  1. ;;58016022472
  1. ;;9002226.02101,"1044,58016022473 ",.01)
  1. ;;58016022473
  1. ;;9002226.02101,"1044,58016022473 ",.02)
  1. ;;58016022473
  1. ;;9002226.02101,"1044,58016022475 ",.01)
  1. ;;58016022475
  1. ;;9002226.02101,"1044,58016022475 ",.02)
  1. ;;58016022475
  1. ;;9002226.02101,"1044,58016022476 ",.01)
  1. ;;58016022476
  1. ;;9002226.02101,"1044,58016022476 ",.02)
  1. ;;58016022476
  1. ;;9002226.02101,"1044,58016022477 ",.01)
  1. ;;58016022477
  1. ;;9002226.02101,"1044,58016022477 ",.02)
  1. ;;58016022477
  1. ;;9002226.02101,"1044,58016022479 ",.01)
  1. ;;58016022479
  1. ;;9002226.02101,"1044,58016022479 ",.02)
  1. ;;58016022479
  1. ;;9002226.02101,"1044,58016022480 ",.01)
  1. ;;58016022480
  1. ;;9002226.02101,"1044,58016022480 ",.02)
  1. ;;58016022480
  1. ;;9002226.02101,"1044,58016022481 ",.01)
  1. ;;58016022481
  1. ;;9002226.02101,"1044,58016022481 ",.02)
  1. ;;58016022481
  1. ;;9002226.02101,"1044,58016022482 ",.01)
  1. ;;58016022482
  1. ;;9002226.02101,"1044,58016022482 ",.02)
  1. ;;58016022482
  1. ;;9002226.02101,"1044,58016022483 ",.01)
  1. ;;58016022483
  1. ;;9002226.02101,"1044,58016022483 ",.02)
  1. ;;58016022483
  1. ;;9002226.02101,"1044,58016022484 ",.01)
  1. ;;58016022484
  1. ;;9002226.02101,"1044,58016022484 ",.02)
  1. ;;58016022484
  1. ;;9002226.02101,"1044,58016022487 ",.01)
  1. ;;58016022487
  1. ;;9002226.02101,"1044,58016022487 ",.02)
  1. ;;58016022487
  1. ;;9002226.02101,"1044,58016022489 ",.01)
  1. ;;58016022489
  1. ;;9002226.02101,"1044,58016022489 ",.02)
  1. ;;58016022489
  1. ;;9002226.02101,"1044,58016022490 ",.01)
  1. ;;58016022490
  1. ;;9002226.02101,"1044,58016022490 ",.02)
  1. ;;58016022490
  1. ;;9002226.02101,"1044,58016022491 ",.01)
  1. ;;58016022491
  1. ;;9002226.02101,"1044,58016022491 ",.02)
  1. ;;58016022491
  1. ;;9002226.02101,"1044,58016022492 ",.01)
  1. ;;58016022492
  1. ;;9002226.02101,"1044,58016022492 ",.02)
  1. ;;58016022492
  1. ;;9002226.02101,"1044,58016022493 ",.01)
  1. ;;58016022493
  1. ;;9002226.02101,"1044,58016022493 ",.02)
  1. ;;58016022493
  1. ;;9002226.02101,"1044,58016022496 ",.01)
  1. ;;58016022496
  1. ;;9002226.02101,"1044,58016022496 ",.02)
  1. ;;58016022496
  1. ;;9002226.02101,"1044,58016022497 ",.01)
  1. ;;58016022497
  1. ;;9002226.02101,"1044,58016022497 ",.02)
  1. ;;58016022497
  1. ;;9002226.02101,"1044,58016022498 ",.01)
  1. ;;58016022498
  1. ;;9002226.02101,"1044,58016022498 ",.02)
  1. ;;58016022498
  1. ;;9002226.02101,"1044,58016022499 ",.01)
  1. ;;58016022499
  1. ;;9002226.02101,"1044,58016022499 ",.02)
  1. ;;58016022499
  1. ;;9002226.02101,"1044,58016026300 ",.01)
  1. ;;58016026300
  1. ;;9002226.02101,"1044,58016026300 ",.02)
  1. ;;58016026300
  1. ;;9002226.02101,"1044,58016026301 ",.01)
  1. ;;58016026301
  1. ;;9002226.02101,"1044,58016026301 ",.02)
  1. ;;58016026301
  1. ;;9002226.02101,"1044,58016026302 ",.01)
  1. ;;58016026302
  1. ;;9002226.02101,"1044,58016026302 ",.02)
  1. ;;58016026302
  1. ;;9002226.02101,"1044,58016026303 ",.01)
  1. ;;58016026303
  1. ;;9002226.02101,"1044,58016026303 ",.02)
  1. ;;58016026303
  1. ;;9002226.02101,"1044,58016026304 ",.01)
  1. ;;58016026304
  1. ;;9002226.02101,"1044,58016026304 ",.02)
  1. ;;58016026304
  1. ;;9002226.02101,"1044,58016026305 ",.01)
  1. ;;58016026305
  1. ;;9002226.02101,"1044,58016026305 ",.02)
  1. ;;58016026305
  1. ;;9002226.02101,"1044,58016026306 ",.01)
  1. ;;58016026306
  1. ;;9002226.02101,"1044,58016026306 ",.02)
  1. ;;58016026306
  1. ;;9002226.02101,"1044,58016026307 ",.01)
  1. ;;58016026307
  1. ;;9002226.02101,"1044,58016026307 ",.02)
  1. ;;58016026307
  1. ;;9002226.02101,"1044,58016026308 ",.01)
  1. ;;58016026308
  1. ;;9002226.02101,"1044,58016026308 ",.02)
  1. ;;58016026308
  1. ;;9002226.02101,"1044,58016026309 ",.01)
  1. ;;58016026309
  1. ;;9002226.02101,"1044,58016026309 ",.02)
  1. ;;58016026309
  1. ;;9002226.02101,"1044,58016026310 ",.01)
  1. ;;58016026310
  1. ;;9002226.02101,"1044,58016026310 ",.02)
  1. ;;58016026310
  1. ;;9002226.02101,"1044,58016026312 ",.01)
  1. ;;58016026312
  1. ;;9002226.02101,"1044,58016026312 ",.02)
  1. ;;58016026312
  1. ;;9002226.02101,"1044,58016026314 ",.01)
  1. ;;58016026314
  1. ;;9002226.02101,"1044,58016026314 ",.02)
  1. ;;58016026314
  1. ;;9002226.02101,"1044,58016026315 ",.01)
  1. ;;58016026315
  1. ;;9002226.02101,"1044,58016026315 ",.02)
  1. ;;58016026315
  1. ;;9002226.02101,"1044,58016026316 ",.01)
  1. ;;58016026316
  1. ;;9002226.02101,"1044,58016026316 ",.02)
  1. ;;58016026316
  1. ;;9002226.02101,"1044,58016026318 ",.01)
  1. ;;58016026318
  1. ;;9002226.02101,"1044,58016026318 ",.02)
  1. ;;58016026318
  1. ;;9002226.02101,"1044,58016026320 ",.01)
  1. ;;58016026320
  1. ;;9002226.02101,"1044,58016026320 ",.02)
  1. ;;58016026320
  1. ;;9002226.02101,"1044,58016026321 ",.01)
  1. ;;58016026321
  1. ;;9002226.02101,"1044,58016026321 ",.02)
  1. ;;58016026321
  1. ;;9002226.02101,"1044,58016026324 ",.01)
  1. ;;58016026324
  1. ;;9002226.02101,"1044,58016026324 ",.02)
  1. ;;58016026324
  1. ;;9002226.02101,"1044,58016026325 ",.01)
  1. ;;58016026325
  1. ;;9002226.02101,"1044,58016026325 ",.02)
  1. ;;58016026325
  1. ;;9002226.02101,"1044,58016026326 ",.01)
  1. ;;58016026326
  1. ;;9002226.02101,"1044,58016026326 ",.02)
  1. ;;58016026326
  1. ;;9002226.02101,"1044,58016026328 ",.01)
  1. ;;58016026328
  1. ;;9002226.02101,"1044,58016026328 ",.02)
  1. ;;58016026328
  1. ;;9002226.02101,"1044,58016026330 ",.01)
  1. ;;58016026330
  1. ;;9002226.02101,"1044,58016026330 ",.02)
  1. ;;58016026330
  1. ;;9002226.02101,"1044,58016026332 ",.01)
  1. ;;58016026332
  1. ;;9002226.02101,"1044,58016026332 ",.02)
  1. ;;58016026332
  1. ;;9002226.02101,"1044,58016026335 ",.01)
  1. ;;58016026335
  1. ;;9002226.02101,"1044,58016026335 ",.02)
  1. ;;58016026335
  1. ;;9002226.02101,"1044,58016026336 ",.01)
  1. ;;58016026336
  1. ;;9002226.02101,"1044,58016026336 ",.02)
  1. ;;58016026336
  1. ;;9002226.02101,"1044,58016026340 ",.01)
  1. ;;58016026340
  1. ;;9002226.02101,"1044,58016026340 ",.02)
  1. ;;58016026340
  1. ;;9002226.02101,"1044,58016026342 ",.01)
  1. ;;58016026342
  1. ;;9002226.02101,"1044,58016026342 ",.02)
  1. ;;58016026342
  1. ;;9002226.02101,"1044,58016026344 ",.01)
  1. ;;58016026344
  1. ;;9002226.02101,"1044,58016026344 ",.02)
  1. ;;58016026344
  1. ;;9002226.02101,"1044,58016026345 ",.01)
  1. ;;58016026345
  1. ;;9002226.02101,"1044,58016026345 ",.02)
  1. ;;58016026345
  1. ;;9002226.02101,"1044,58016026348 ",.01)
  1. ;;58016026348
  1. ;;9002226.02101,"1044,58016026348 ",.02)
  1. ;;58016026348
  1. ;;9002226.02101,"1044,58016026350 ",.01)
  1. ;;58016026350
  1. ;;9002226.02101,"1044,58016026350 ",.02)
  1. ;;58016026350
  1. ;;9002226.02101,"1044,58016026356 ",.01)
  1. ;;58016026356
  1. ;;9002226.02101,"1044,58016026356 ",.02)
  1. ;;58016026356
  1. ;;9002226.02101,"1044,58016026360 ",.01)
  1. ;;58016026360
  1. ;;9002226.02101,"1044,58016026360 ",.02)
  1. ;;58016026360
  1. ;;9002226.02101,"1044,58016026367 ",.01)
  1. ;;58016026367
  1. ;;9002226.02101,"1044,58016026367 ",.02)
  1. ;;58016026367
  1. ;;9002226.02101,"1044,58016026369 ",.01)
  1. ;;58016026369
  1. ;;9002226.02101,"1044,58016026369 ",.02)
  1. ;;58016026369
  1. ;;9002226.02101,"1044,58016026370 ",.01)
  1. ;;58016026370
  1. ;;9002226.02101,"1044,58016026370 ",.02)
  1. ;;58016026370
  1. ;;9002226.02101,"1044,58016026371 ",.01)
  1. ;;58016026371
  1. ;;9002226.02101,"1044,58016026371 ",.02)
  1. ;;58016026371
  1. ;;9002226.02101,"1044,58016026372 ",.01)
  1. ;;58016026372
  1. ;;9002226.02101,"1044,58016026372 ",.02)
  1. ;;58016026372
  1. ;;9002226.02101,"1044,58016026373 ",.01)
  1. ;;58016026373
  1. ;;9002226.02101,"1044,58016026373 ",.02)
  1. ;;58016026373
  1. ;;9002226.02101,"1044,58016026375 ",.01)
  1. ;;58016026375
  1. ;;9002226.02101,"1044,58016026375 ",.02)
  1. ;;58016026375
  1. ;;9002226.02101,"1044,58016026376 ",.01)
  1. ;;58016026376
  1. ;;9002226.02101,"1044,58016026376 ",.02)
  1. ;;58016026376
  1. ;;9002226.02101,"1044,58016026377 ",.01)
  1. ;;58016026377
  1. ;;9002226.02101,"1044,58016026377 ",.02)
  1. ;;58016026377
  1. ;;9002226.02101,"1044,58016026379 ",.01)
  1. ;;58016026379
  1. ;;9002226.02101,"1044,58016026379 ",.02)
  1. ;;58016026379
  1. ;;9002226.02101,"1044,58016026380 ",.01)
  1. ;;58016026380
  1. ;;9002226.02101,"1044,58016026380 ",.02)
  1. ;;58016026380
  1. ;;9002226.02101,"1044,58016026381 ",.01)
  1. ;;58016026381
  1. ;;9002226.02101,"1044,58016026381 ",.02)
  1. ;;58016026381
  1. ;;9002226.02101,"1044,58016026382 ",.01)
  1. ;;58016026382
  1. ;;9002226.02101,"1044,58016026382 ",.02)
  1. ;;58016026382
  1. ;;9002226.02101,"1044,58016026383 ",.01)
  1. ;;58016026383
  1. ;;9002226.02101,"1044,58016026383 ",.02)
  1. ;;58016026383
  1. ;;9002226.02101,"1044,58016026384 ",.01)
  1. ;;58016026384
  1. ;;9002226.02101,"1044,58016026384 ",.02)
  1. ;;58016026384
  1. ;;9002226.02101,"1044,58016026387 ",.01)
  1. ;;58016026387
  1. ;;9002226.02101,"1044,58016026387 ",.02)
  1. ;;58016026387
  1. ;;9002226.02101,"1044,58016026389 ",.01)
  1. ;;58016026389
  1. ;;9002226.02101,"1044,58016026389 ",.02)
  1. ;;58016026389
  1. ;;9002226.02101,"1044,58016026390 ",.01)
  1. ;;58016026390
  1. ;;9002226.02101,"1044,58016026390 ",.02)
  1. ;;58016026390
  1. ;;9002226.02101,"1044,58016026391 ",.01)
  1. ;;58016026391
  1. ;;9002226.02101,"1044,58016026391 ",.02)
  1. ;;58016026391
  1. ;;9002226.02101,"1044,58016026392 ",.01)
  1. ;;58016026392
  1. ;;9002226.02101,"1044,58016026392 ",.02)
  1. ;;58016026392
  1. ;;9002226.02101,"1044,58016026393 ",.01)
  1. ;;58016026393
  1. ;;9002226.02101,"1044,58016026393 ",.02)
  1. ;;58016026393
  1. ;;9002226.02101,"1044,58016026396 ",.01)
  1. ;;58016026396
  1. ;;9002226.02101,"1044,58016026396 ",.02)
  1. ;;58016026396
  1. ;;9002226.02101,"1044,58016026397 ",.01)
  1. ;;58016026397
  1. ;;9002226.02101,"1044,58016026397 ",.02)
  1. ;;58016026397
  1. ;;9002226.02101,"1044,58016026398 ",.01)
  1. ;;58016026398
  1. ;;9002226.02101,"1044,58016026398 ",.02)
  1. ;;58016026398
  1. ;;9002226.02101,"1044,58016026399 ",.01)
  1. ;;58016026399
  1. ;;9002226.02101,"1044,58016026399 ",.02)
  1. ;;58016026399
  1. ;;9002226.02101,"1044,58016028200 ",.01)
  1. ;;58016028200
  1. ;;9002226.02101,"1044,58016028200 ",.02)
  1. ;;58016028200
  1. ;;9002226.02101,"1044,58016028230 ",.01)
  1. ;;58016028230
  1. ;;9002226.02101,"1044,58016028230 ",.02)
  1. ;;58016028230
  1. ;;9002226.02101,"1044,58016028260 ",.01)
  1. ;;58016028260
  1. ;;9002226.02101,"1044,58016028260 ",.02)
  1. ;;58016028260
  1. ;;9002226.02101,"1044,58016028290 ",.01)
  1. ;;58016028290
  1. ;;9002226.02101,"1044,58016028290 ",.02)
  1. ;;58016028290
  1. ;;9002226.02101,"1044,58016049100 ",.01)
  1. ;;58016049100
  1. ;;9002226.02101,"1044,58016049100 ",.02)
  1. ;;58016049100
  1. ;;9002226.02101,"1044,58016049101 ",.01)
  1. ;;58016049101
  1. ;;9002226.02101,"1044,58016049101 ",.02)
  1. ;;58016049101
  1. ;;9002226.02101,"1044,58016049102 ",.01)
  1. ;;58016049102
  1. ;;9002226.02101,"1044,58016049102 ",.02)
  1. ;;58016049102
  1. ;;9002226.02101,"1044,58016049103 ",.01)
  1. ;;58016049103
  1. ;;9002226.02101,"1044,58016049103 ",.02)
  1. ;;58016049103
  1. ;;9002226.02101,"1044,58016049104 ",.01)
  1. ;;58016049104
  1. ;;9002226.02101,"1044,58016049104 ",.02)
  1. ;;58016049104
  1. ;;9002226.02101,"1044,58016049105 ",.01)
  1. ;;58016049105
  1. ;;9002226.02101,"1044,58016049105 ",.02)
  1. ;;58016049105
  1. ;;9002226.02101,"1044,58016049106 ",.01)
  1. ;;58016049106
  1. ;;9002226.02101,"1044,58016049106 ",.02)
  1. ;;58016049106
  1. ;;9002226.02101,"1044,58016049107 ",.01)
  1. ;;58016049107
  1. ;;9002226.02101,"1044,58016049107 ",.02)
  1. ;;58016049107
  1. ;;9002226.02101,"1044,58016049108 ",.01)
  1. ;;58016049108
  1. ;;9002226.02101,"1044,58016049108 ",.02)
  1. ;;58016049108
  1. ;;9002226.02101,"1044,58016049109 ",.01)
  1. ;;58016049109
  1. ;;9002226.02101,"1044,58016049109 ",.02)
  1. ;;58016049109
  1. ;;9002226.02101,"1044,58016049110 ",.01)
  1. ;;58016049110