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