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