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

BGPM5BFK.m

Go to the documentation of this file.
BGPM5BFK ;IHS/MSC/MMT-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,"1084,57866707401 ",.01)
 ;;57866707401
 ;;9002226.02101,"1084,57866707401 ",.02)
 ;;57866707401
 ;;9002226.02101,"1084,57866707402 ",.01)
 ;;57866707402
 ;;9002226.02101,"1084,57866707402 ",.02)
 ;;57866707402
 ;;9002226.02101,"1084,57866905401 ",.01)
 ;;57866905401
 ;;9002226.02101,"1084,57866905401 ",.02)
 ;;57866905401
 ;;9002226.02101,"1084,57866905402 ",.01)
 ;;57866905402
 ;;9002226.02101,"1084,57866905402 ",.02)
 ;;57866905402
 ;;9002226.02101,"1084,57866905403 ",.01)
 ;;57866905403
 ;;9002226.02101,"1084,57866905403 ",.02)
 ;;57866905403
 ;;9002226.02101,"1084,57866905404 ",.01)
 ;;57866905404
 ;;9002226.02101,"1084,57866905404 ",.02)
 ;;57866905404
 ;;9002226.02101,"1084,57866905501 ",.01)
 ;;57866905501
 ;;9002226.02101,"1084,57866905501 ",.02)
 ;;57866905501
 ;;9002226.02101,"1084,57866905502 ",.01)
 ;;57866905502
 ;;9002226.02101,"1084,57866905502 ",.02)
 ;;57866905502
 ;;9002226.02101,"1084,57866905503 ",.01)
 ;;57866905503
 ;;9002226.02101,"1084,57866905503 ",.02)
 ;;57866905503
 ;;9002226.02101,"1084,57866905504 ",.01)
 ;;57866905504
 ;;9002226.02101,"1084,57866905504 ",.02)
 ;;57866905504
 ;;9002226.02101,"1084,57866905505 ",.01)
 ;;57866905505
 ;;9002226.02101,"1084,57866905505 ",.02)
 ;;57866905505
 ;;9002226.02101,"1084,57866905601 ",.01)
 ;;57866905601
 ;;9002226.02101,"1084,57866905601 ",.02)
 ;;57866905601
 ;;9002226.02101,"1084,57866905602 ",.01)
 ;;57866905602
 ;;9002226.02101,"1084,57866905602 ",.02)
 ;;57866905602
 ;;9002226.02101,"1084,57866905603 ",.01)
 ;;57866905603
 ;;9002226.02101,"1084,57866905603 ",.02)
 ;;57866905603
 ;;9002226.02101,"1084,57866905604 ",.01)
 ;;57866905604
 ;;9002226.02101,"1084,57866905604 ",.02)
 ;;57866905604
 ;;9002226.02101,"1084,57866905606 ",.01)
 ;;57866905606
 ;;9002226.02101,"1084,57866905606 ",.02)
 ;;57866905606
 ;;9002226.02101,"1084,58016000500 ",.01)
 ;;58016000500
 ;;9002226.02101,"1084,58016000500 ",.02)
 ;;58016000500
 ;;9002226.02101,"1084,58016000501 ",.01)
 ;;58016000501
 ;;9002226.02101,"1084,58016000501 ",.02)
 ;;58016000501
 ;;9002226.02101,"1084,58016000502 ",.01)
 ;;58016000502
 ;;9002226.02101,"1084,58016000502 ",.02)
 ;;58016000502
 ;;9002226.02101,"1084,58016000503 ",.01)
 ;;58016000503
 ;;9002226.02101,"1084,58016000503 ",.02)
 ;;58016000503
 ;;9002226.02101,"1084,58016000504 ",.01)
 ;;58016000504
 ;;9002226.02101,"1084,58016000504 ",.02)
 ;;58016000504
 ;;9002226.02101,"1084,58016000505 ",.01)
 ;;58016000505
 ;;9002226.02101,"1084,58016000505 ",.02)
 ;;58016000505
 ;;9002226.02101,"1084,58016000530 ",.01)
 ;;58016000530
 ;;9002226.02101,"1084,58016000530 ",.02)
 ;;58016000530
 ;;9002226.02101,"1084,58016000560 ",.01)
 ;;58016000560
 ;;9002226.02101,"1084,58016000560 ",.02)
 ;;58016000560
 ;;9002226.02101,"1084,58016000590 ",.01)
 ;;58016000590
 ;;9002226.02101,"1084,58016000590 ",.02)
 ;;58016000590
 ;;9002226.02101,"1084,58016005800 ",.01)
 ;;58016005800
 ;;9002226.02101,"1084,58016005800 ",.02)
 ;;58016005800
 ;;9002226.02101,"1084,58016005801 ",.01)
 ;;58016005801
 ;;9002226.02101,"1084,58016005801 ",.02)
 ;;58016005801
 ;;9002226.02101,"1084,58016005802 ",.01)
 ;;58016005802
 ;;9002226.02101,"1084,58016005802 ",.02)
 ;;58016005802
 ;;9002226.02101,"1084,58016005803 ",.01)
 ;;58016005803
 ;;9002226.02101,"1084,58016005803 ",.02)
 ;;58016005803
 ;;9002226.02101,"1084,58016005804 ",.01)
 ;;58016005804
 ;;9002226.02101,"1084,58016005804 ",.02)
 ;;58016005804
 ;;9002226.02101,"1084,58016005805 ",.01)
 ;;58016005805
 ;;9002226.02101,"1084,58016005805 ",.02)
 ;;58016005805
 ;;9002226.02101,"1084,58016005830 ",.01)
 ;;58016005830
 ;;9002226.02101,"1084,58016005830 ",.02)
 ;;58016005830
 ;;9002226.02101,"1084,58016005860 ",.01)
 ;;58016005860
 ;;9002226.02101,"1084,58016005860 ",.02)
 ;;58016005860
 ;;9002226.02101,"1084,58016005890 ",.01)
 ;;58016005890
 ;;9002226.02101,"1084,58016005890 ",.02)
 ;;58016005890
 ;;9002226.02101,"1084,58016033400 ",.01)
 ;;58016033400
 ;;9002226.02101,"1084,58016033400 ",.02)
 ;;58016033400
 ;;9002226.02101,"1084,58016033401 ",.01)
 ;;58016033401
 ;;9002226.02101,"1084,58016033401 ",.02)
 ;;58016033401
 ;;9002226.02101,"1084,58016033402 ",.01)
 ;;58016033402
 ;;9002226.02101,"1084,58016033402 ",.02)
 ;;58016033402
 ;;9002226.02101,"1084,58016033403 ",.01)
 ;;58016033403
 ;;9002226.02101,"1084,58016033403 ",.02)
 ;;58016033403
 ;;9002226.02101,"1084,58016033404 ",.01)
 ;;58016033404
 ;;9002226.02101,"1084,58016033404 ",.02)
 ;;58016033404
 ;;9002226.02101,"1084,58016033405 ",.01)
 ;;58016033405
 ;;9002226.02101,"1084,58016033405 ",.02)
 ;;58016033405
 ;;9002226.02101,"1084,58016033406 ",.01)
 ;;58016033406
 ;;9002226.02101,"1084,58016033406 ",.02)
 ;;58016033406
 ;;9002226.02101,"1084,58016033407 ",.01)
 ;;58016033407
 ;;9002226.02101,"1084,58016033407 ",.02)
 ;;58016033407
 ;;9002226.02101,"1084,58016033408 ",.01)
 ;;58016033408
 ;;9002226.02101,"1084,58016033408 ",.02)
 ;;58016033408
 ;;9002226.02101,"1084,58016033409 ",.01)
 ;;58016033409
 ;;9002226.02101,"1084,58016033409 ",.02)
 ;;58016033409
 ;;9002226.02101,"1084,58016033410 ",.01)
 ;;58016033410
 ;;9002226.02101,"1084,58016033410 ",.02)
 ;;58016033410
 ;;9002226.02101,"1084,58016033412 ",.01)
 ;;58016033412
 ;;9002226.02101,"1084,58016033412 ",.02)
 ;;58016033412
 ;;9002226.02101,"1084,58016033414 ",.01)
 ;;58016033414
 ;;9002226.02101,"1084,58016033414 ",.02)
 ;;58016033414
 ;;9002226.02101,"1084,58016033415 ",.01)
 ;;58016033415
 ;;9002226.02101,"1084,58016033415 ",.02)
 ;;58016033415
 ;;9002226.02101,"1084,58016033416 ",.01)
 ;;58016033416
 ;;9002226.02101,"1084,58016033416 ",.02)
 ;;58016033416
 ;;9002226.02101,"1084,58016033418 ",.01)
 ;;58016033418
 ;;9002226.02101,"1084,58016033418 ",.02)
 ;;58016033418
 ;;9002226.02101,"1084,58016033420 ",.01)
 ;;58016033420
 ;;9002226.02101,"1084,58016033420 ",.02)
 ;;58016033420
 ;;9002226.02101,"1084,58016033421 ",.01)
 ;;58016033421
 ;;9002226.02101,"1084,58016033421 ",.02)
 ;;58016033421
 ;;9002226.02101,"1084,58016033424 ",.01)
 ;;58016033424
 ;;9002226.02101,"1084,58016033424 ",.02)
 ;;58016033424
 ;;9002226.02101,"1084,58016033425 ",.01)
 ;;58016033425
 ;;9002226.02101,"1084,58016033425 ",.02)
 ;;58016033425
 ;;9002226.02101,"1084,58016033426 ",.01)
 ;;58016033426
 ;;9002226.02101,"1084,58016033426 ",.02)
 ;;58016033426
 ;;9002226.02101,"1084,58016033427 ",.01)
 ;;58016033427
 ;;9002226.02101,"1084,58016033427 ",.02)
 ;;58016033427
 ;;9002226.02101,"1084,58016033428 ",.01)
 ;;58016033428
 ;;9002226.02101,"1084,58016033428 ",.02)
 ;;58016033428
 ;;9002226.02101,"1084,58016033430 ",.01)
 ;;58016033430
 ;;9002226.02101,"1084,58016033430 ",.02)
 ;;58016033430
 ;;9002226.02101,"1084,58016033432 ",.01)
 ;;58016033432
 ;;9002226.02101,"1084,58016033432 ",.02)
 ;;58016033432
 ;;9002226.02101,"1084,58016033435 ",.01)
 ;;58016033435
 ;;9002226.02101,"1084,58016033435 ",.02)
 ;;58016033435
 ;;9002226.02101,"1084,58016033436 ",.01)
 ;;58016033436
 ;;9002226.02101,"1084,58016033436 ",.02)
 ;;58016033436
 ;;9002226.02101,"1084,58016033440 ",.01)
 ;;58016033440
 ;;9002226.02101,"1084,58016033440 ",.02)
 ;;58016033440
 ;;9002226.02101,"1084,58016033442 ",.01)
 ;;58016033442
 ;;9002226.02101,"1084,58016033442 ",.02)
 ;;58016033442
 ;;9002226.02101,"1084,58016033444 ",.01)
 ;;58016033444
 ;;9002226.02101,"1084,58016033444 ",.02)
 ;;58016033444
 ;;9002226.02101,"1084,58016033445 ",.01)
 ;;58016033445
 ;;9002226.02101,"1084,58016033445 ",.02)
 ;;58016033445
 ;;9002226.02101,"1084,58016033448 ",.01)
 ;;58016033448
 ;;9002226.02101,"1084,58016033448 ",.02)
 ;;58016033448
 ;;9002226.02101,"1084,58016033450 ",.01)
 ;;58016033450
 ;;9002226.02101,"1084,58016033450 ",.02)
 ;;58016033450
 ;;9002226.02101,"1084,58016033456 ",.01)
 ;;58016033456
 ;;9002226.02101,"1084,58016033456 ",.02)
 ;;58016033456
 ;;9002226.02101,"1084,58016033460 ",.01)
 ;;58016033460
 ;;9002226.02101,"1084,58016033460 ",.02)
 ;;58016033460
 ;;9002226.02101,"1084,58016033467 ",.01)
 ;;58016033467
 ;;9002226.02101,"1084,58016033467 ",.02)
 ;;58016033467
 ;;9002226.02101,"1084,58016033469 ",.01)
 ;;58016033469
 ;;9002226.02101,"1084,58016033469 ",.02)
 ;;58016033469
 ;;9002226.02101,"1084,58016033470 ",.01)
 ;;58016033470
 ;;9002226.02101,"1084,58016033470 ",.02)
 ;;58016033470
 ;;9002226.02101,"1084,58016033471 ",.01)
 ;;58016033471
 ;;9002226.02101,"1084,58016033471 ",.02)
 ;;58016033471
 ;;9002226.02101,"1084,58016033472 ",.01)
 ;;58016033472
 ;;9002226.02101,"1084,58016033472 ",.02)
 ;;58016033472
 ;;9002226.02101,"1084,58016033473 ",.01)
 ;;58016033473
 ;;9002226.02101,"1084,58016033473 ",.02)
 ;;58016033473
 ;;9002226.02101,"1084,58016033475 ",.01)
 ;;58016033475
 ;;9002226.02101,"1084,58016033475 ",.02)
 ;;58016033475
 ;;9002226.02101,"1084,58016033476 ",.01)
 ;;58016033476
 ;;9002226.02101,"1084,58016033476 ",.02)
 ;;58016033476
 ;;9002226.02101,"1084,58016033477 ",.01)
 ;;58016033477
 ;;9002226.02101,"1084,58016033477 ",.02)
 ;;58016033477
 ;;9002226.02101,"1084,58016033479 ",.01)
 ;;58016033479
 ;;9002226.02101,"1084,58016033479 ",.02)
 ;;58016033479
 ;;9002226.02101,"1084,58016033480 ",.01)
 ;;58016033480
 ;;9002226.02101,"1084,58016033480 ",.02)
 ;;58016033480
 ;;9002226.02101,"1084,58016033481 ",.01)
 ;;58016033481
 ;;9002226.02101,"1084,58016033481 ",.02)
 ;;58016033481
 ;;9002226.02101,"1084,58016033482 ",.01)
 ;;58016033482
 ;;9002226.02101,"1084,58016033482 ",.02)
 ;;58016033482
 ;;9002226.02101,"1084,58016033483 ",.01)
 ;;58016033483
 ;;9002226.02101,"1084,58016033483 ",.02)
 ;;58016033483
 ;;9002226.02101,"1084,58016033484 ",.01)
 ;;58016033484
 ;;9002226.02101,"1084,58016033484 ",.02)
 ;;58016033484
 ;;9002226.02101,"1084,58016033487 ",.01)
 ;;58016033487
 ;;9002226.02101,"1084,58016033487 ",.02)
 ;;58016033487
 ;;9002226.02101,"1084,58016033489 ",.01)
 ;;58016033489
 ;;9002226.02101,"1084,58016033489 ",.02)
 ;;58016033489
 ;;9002226.02101,"1084,58016033490 ",.01)
 ;;58016033490
 ;;9002226.02101,"1084,58016033490 ",.02)
 ;;58016033490
 ;;9002226.02101,"1084,58016033491 ",.01)
 ;;58016033491
 ;;9002226.02101,"1084,58016033491 ",.02)
 ;;58016033491
 ;;9002226.02101,"1084,58016033492 ",.01)
 ;;58016033492
 ;;9002226.02101,"1084,58016033492 ",.02)
 ;;58016033492
 ;;9002226.02101,"1084,58016033493 ",.01)
 ;;58016033493
 ;;9002226.02101,"1084,58016033493 ",.02)
 ;;58016033493
 ;;9002226.02101,"1084,58016033496 ",.01)
 ;;58016033496
 ;;9002226.02101,"1084,58016033496 ",.02)
 ;;58016033496
 ;;9002226.02101,"1084,58016033497 ",.01)
 ;;58016033497
 ;;9002226.02101,"1084,58016033497 ",.02)
 ;;58016033497
 ;;9002226.02101,"1084,58016033498 ",.01)
 ;;58016033498
 ;;9002226.02101,"1084,58016033498 ",.02)
 ;;58016033498
 ;;9002226.02101,"1084,58016033499 ",.01)
 ;;58016033499
 ;;9002226.02101,"1084,58016033499 ",.02)
 ;;58016033499
 ;;9002226.02101,"1084,58016037030 ",.01)
 ;;58016037030
 ;;9002226.02101,"1084,58016037030 ",.02)
 ;;58016037030
 ;;9002226.02101,"1084,58016037600 ",.01)
 ;;58016037600
 ;;9002226.02101,"1084,58016037600 ",.02)
 ;;58016037600
 ;;9002226.02101,"1084,58016037601 ",.01)
 ;;58016037601
 ;;9002226.02101,"1084,58016037601 ",.02)
 ;;58016037601
 ;;9002226.02101,"1084,58016037602 ",.01)
 ;;58016037602
 ;;9002226.02101,"1084,58016037602 ",.02)
 ;;58016037602
 ;;9002226.02101,"1084,58016037603 ",.01)
 ;;58016037603
 ;;9002226.02101,"1084,58016037603 ",.02)
 ;;58016037603
 ;;9002226.02101,"1084,58016037604 ",.01)
 ;;58016037604
 ;;9002226.02101,"1084,58016037604 ",.02)
 ;;58016037604
 ;;9002226.02101,"1084,58016037605 ",.01)
 ;;58016037605