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

BGPM5ACZ.m

Go to the documentation of this file.
  1. BGPM5ACZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,57664072713 ",.02)
  1. ;;57664072713
  1. ;;9002226.02101,"846,57664072718 ",.01)
  1. ;;57664072718
  1. ;;9002226.02101,"846,57664072718 ",.02)
  1. ;;57664072718
  1. ;;9002226.02101,"846,57664072788 ",.01)
  1. ;;57664072788
  1. ;;9002226.02101,"846,57664072788 ",.02)
  1. ;;57664072788
  1. ;;9002226.02101,"846,57866346201 ",.01)
  1. ;;57866346201
  1. ;;9002226.02101,"846,57866346201 ",.02)
  1. ;;57866346201
  1. ;;9002226.02101,"846,57866346502 ",.01)
  1. ;;57866346502
  1. ;;9002226.02101,"846,57866346502 ",.02)
  1. ;;57866346502
  1. ;;9002226.02101,"846,57866346505 ",.01)
  1. ;;57866346505
  1. ;;9002226.02101,"846,57866346505 ",.02)
  1. ;;57866346505
  1. ;;9002226.02101,"846,57866466802 ",.01)
  1. ;;57866466802
  1. ;;9002226.02101,"846,57866466802 ",.02)
  1. ;;57866466802
  1. ;;9002226.02101,"846,57866640701 ",.01)
  1. ;;57866640701
  1. ;;9002226.02101,"846,57866640701 ",.02)
  1. ;;57866640701
  1. ;;9002226.02101,"846,57866640801 ",.01)
  1. ;;57866640801
  1. ;;9002226.02101,"846,57866640801 ",.02)
  1. ;;57866640801
  1. ;;9002226.02101,"846,57866640802 ",.01)
  1. ;;57866640802
  1. ;;9002226.02101,"846,57866640802 ",.02)
  1. ;;57866640802
  1. ;;9002226.02101,"846,57866640901 ",.01)
  1. ;;57866640901
  1. ;;9002226.02101,"846,57866640901 ",.02)
  1. ;;57866640901
  1. ;;9002226.02101,"846,57866640902 ",.01)
  1. ;;57866640902
  1. ;;9002226.02101,"846,57866640902 ",.02)
  1. ;;57866640902
  1. ;;9002226.02101,"846,57866640903 ",.01)
  1. ;;57866640903
  1. ;;9002226.02101,"846,57866640903 ",.02)
  1. ;;57866640903
  1. ;;9002226.02101,"846,57866640904 ",.01)
  1. ;;57866640904
  1. ;;9002226.02101,"846,57866640904 ",.02)
  1. ;;57866640904
  1. ;;9002226.02101,"846,57866640905 ",.01)
  1. ;;57866640905
  1. ;;9002226.02101,"846,57866640905 ",.02)
  1. ;;57866640905
  1. ;;9002226.02101,"846,57866640906 ",.01)
  1. ;;57866640906
  1. ;;9002226.02101,"846,57866640906 ",.02)
  1. ;;57866640906
  1. ;;9002226.02101,"846,57866646201 ",.01)
  1. ;;57866646201
  1. ;;9002226.02101,"846,57866646201 ",.02)
  1. ;;57866646201
  1. ;;9002226.02101,"846,57866646203 ",.01)
  1. ;;57866646203
  1. ;;9002226.02101,"846,57866646203 ",.02)
  1. ;;57866646203
  1. ;;9002226.02101,"846,57866646301 ",.01)
  1. ;;57866646301
  1. ;;9002226.02101,"846,57866646301 ",.02)
  1. ;;57866646301
  1. ;;9002226.02101,"846,57866646302 ",.01)
  1. ;;57866646302
  1. ;;9002226.02101,"846,57866646302 ",.02)
  1. ;;57866646302
  1. ;;9002226.02101,"846,57866707301 ",.01)
  1. ;;57866707301
  1. ;;9002226.02101,"846,57866707301 ",.02)
  1. ;;57866707301
  1. ;;9002226.02101,"846,57866707302 ",.01)
  1. ;;57866707302
  1. ;;9002226.02101,"846,57866707302 ",.02)
  1. ;;57866707302
  1. ;;9002226.02101,"846,57866707401 ",.01)
  1. ;;57866707401
  1. ;;9002226.02101,"846,57866707401 ",.02)
  1. ;;57866707401
  1. ;;9002226.02101,"846,57866707402 ",.01)
  1. ;;57866707402
  1. ;;9002226.02101,"846,57866707402 ",.02)
  1. ;;57866707402
  1. ;;9002226.02101,"846,58016000500 ",.01)
  1. ;;58016000500
  1. ;;9002226.02101,"846,58016000500 ",.02)
  1. ;;58016000500
  1. ;;9002226.02101,"846,58016000501 ",.01)
  1. ;;58016000501
  1. ;;9002226.02101,"846,58016000501 ",.02)
  1. ;;58016000501
  1. ;;9002226.02101,"846,58016000502 ",.01)
  1. ;;58016000502
  1. ;;9002226.02101,"846,58016000502 ",.02)
  1. ;;58016000502
  1. ;;9002226.02101,"846,58016000503 ",.01)
  1. ;;58016000503
  1. ;;9002226.02101,"846,58016000503 ",.02)
  1. ;;58016000503
  1. ;;9002226.02101,"846,58016000504 ",.01)
  1. ;;58016000504
  1. ;;9002226.02101,"846,58016000504 ",.02)
  1. ;;58016000504
  1. ;;9002226.02101,"846,58016000505 ",.01)
  1. ;;58016000505
  1. ;;9002226.02101,"846,58016000505 ",.02)
  1. ;;58016000505
  1. ;;9002226.02101,"846,58016000530 ",.01)
  1. ;;58016000530
  1. ;;9002226.02101,"846,58016000530 ",.02)
  1. ;;58016000530
  1. ;;9002226.02101,"846,58016000560 ",.01)
  1. ;;58016000560
  1. ;;9002226.02101,"846,58016000560 ",.02)
  1. ;;58016000560
  1. ;;9002226.02101,"846,58016000590 ",.01)
  1. ;;58016000590
  1. ;;9002226.02101,"846,58016000590 ",.02)
  1. ;;58016000590
  1. ;;9002226.02101,"846,58016005800 ",.01)
  1. ;;58016005800
  1. ;;9002226.02101,"846,58016005800 ",.02)
  1. ;;58016005800
  1. ;;9002226.02101,"846,58016005801 ",.01)
  1. ;;58016005801
  1. ;;9002226.02101,"846,58016005801 ",.02)
  1. ;;58016005801
  1. ;;9002226.02101,"846,58016005802 ",.01)
  1. ;;58016005802
  1. ;;9002226.02101,"846,58016005802 ",.02)
  1. ;;58016005802
  1. ;;9002226.02101,"846,58016005803 ",.01)
  1. ;;58016005803
  1. ;;9002226.02101,"846,58016005803 ",.02)
  1. ;;58016005803
  1. ;;9002226.02101,"846,58016005804 ",.01)
  1. ;;58016005804
  1. ;;9002226.02101,"846,58016005804 ",.02)
  1. ;;58016005804
  1. ;;9002226.02101,"846,58016005805 ",.01)
  1. ;;58016005805
  1. ;;9002226.02101,"846,58016005805 ",.02)
  1. ;;58016005805
  1. ;;9002226.02101,"846,58016005830 ",.01)
  1. ;;58016005830
  1. ;;9002226.02101,"846,58016005830 ",.02)
  1. ;;58016005830
  1. ;;9002226.02101,"846,58016005860 ",.01)
  1. ;;58016005860
  1. ;;9002226.02101,"846,58016005860 ",.02)
  1. ;;58016005860
  1. ;;9002226.02101,"846,58016005890 ",.01)
  1. ;;58016005890
  1. ;;9002226.02101,"846,58016005890 ",.02)
  1. ;;58016005890
  1. ;;9002226.02101,"846,58016033400 ",.01)
  1. ;;58016033400
  1. ;;9002226.02101,"846,58016033400 ",.02)
  1. ;;58016033400
  1. ;;9002226.02101,"846,58016033401 ",.01)
  1. ;;58016033401
  1. ;;9002226.02101,"846,58016033401 ",.02)
  1. ;;58016033401
  1. ;;9002226.02101,"846,58016033402 ",.01)
  1. ;;58016033402
  1. ;;9002226.02101,"846,58016033402 ",.02)
  1. ;;58016033402
  1. ;;9002226.02101,"846,58016033403 ",.01)
  1. ;;58016033403
  1. ;;9002226.02101,"846,58016033403 ",.02)
  1. ;;58016033403
  1. ;;9002226.02101,"846,58016033404 ",.01)
  1. ;;58016033404
  1. ;;9002226.02101,"846,58016033404 ",.02)
  1. ;;58016033404
  1. ;;9002226.02101,"846,58016033405 ",.01)
  1. ;;58016033405
  1. ;;9002226.02101,"846,58016033405 ",.02)
  1. ;;58016033405
  1. ;;9002226.02101,"846,58016033406 ",.01)
  1. ;;58016033406
  1. ;;9002226.02101,"846,58016033406 ",.02)
  1. ;;58016033406
  1. ;;9002226.02101,"846,58016033407 ",.01)
  1. ;;58016033407
  1. ;;9002226.02101,"846,58016033407 ",.02)
  1. ;;58016033407
  1. ;;9002226.02101,"846,58016033408 ",.01)
  1. ;;58016033408
  1. ;;9002226.02101,"846,58016033408 ",.02)
  1. ;;58016033408
  1. ;;9002226.02101,"846,58016033409 ",.01)
  1. ;;58016033409
  1. ;;9002226.02101,"846,58016033409 ",.02)
  1. ;;58016033409
  1. ;;9002226.02101,"846,58016033410 ",.01)
  1. ;;58016033410
  1. ;;9002226.02101,"846,58016033410 ",.02)
  1. ;;58016033410
  1. ;;9002226.02101,"846,58016033412 ",.01)
  1. ;;58016033412
  1. ;;9002226.02101,"846,58016033412 ",.02)
  1. ;;58016033412
  1. ;;9002226.02101,"846,58016033414 ",.01)
  1. ;;58016033414
  1. ;;9002226.02101,"846,58016033414 ",.02)
  1. ;;58016033414
  1. ;;9002226.02101,"846,58016033415 ",.01)
  1. ;;58016033415
  1. ;;9002226.02101,"846,58016033415 ",.02)
  1. ;;58016033415
  1. ;;9002226.02101,"846,58016033416 ",.01)
  1. ;;58016033416
  1. ;;9002226.02101,"846,58016033416 ",.02)
  1. ;;58016033416
  1. ;;9002226.02101,"846,58016033418 ",.01)
  1. ;;58016033418
  1. ;;9002226.02101,"846,58016033418 ",.02)
  1. ;;58016033418
  1. ;;9002226.02101,"846,58016033420 ",.01)
  1. ;;58016033420
  1. ;;9002226.02101,"846,58016033420 ",.02)
  1. ;;58016033420
  1. ;;9002226.02101,"846,58016033421 ",.01)
  1. ;;58016033421
  1. ;;9002226.02101,"846,58016033421 ",.02)
  1. ;;58016033421
  1. ;;9002226.02101,"846,58016033424 ",.01)
  1. ;;58016033424
  1. ;;9002226.02101,"846,58016033424 ",.02)
  1. ;;58016033424
  1. ;;9002226.02101,"846,58016033425 ",.01)
  1. ;;58016033425
  1. ;;9002226.02101,"846,58016033425 ",.02)
  1. ;;58016033425
  1. ;;9002226.02101,"846,58016033426 ",.01)
  1. ;;58016033426
  1. ;;9002226.02101,"846,58016033426 ",.02)
  1. ;;58016033426
  1. ;;9002226.02101,"846,58016033427 ",.01)
  1. ;;58016033427
  1. ;;9002226.02101,"846,58016033427 ",.02)
  1. ;;58016033427
  1. ;;9002226.02101,"846,58016033428 ",.01)
  1. ;;58016033428
  1. ;;9002226.02101,"846,58016033428 ",.02)
  1. ;;58016033428
  1. ;;9002226.02101,"846,58016033430 ",.01)
  1. ;;58016033430
  1. ;;9002226.02101,"846,58016033430 ",.02)
  1. ;;58016033430
  1. ;;9002226.02101,"846,58016033432 ",.01)
  1. ;;58016033432
  1. ;;9002226.02101,"846,58016033432 ",.02)
  1. ;;58016033432
  1. ;;9002226.02101,"846,58016033435 ",.01)
  1. ;;58016033435
  1. ;;9002226.02101,"846,58016033435 ",.02)
  1. ;;58016033435
  1. ;;9002226.02101,"846,58016033436 ",.01)
  1. ;;58016033436
  1. ;;9002226.02101,"846,58016033436 ",.02)
  1. ;;58016033436
  1. ;;9002226.02101,"846,58016033440 ",.01)
  1. ;;58016033440
  1. ;;9002226.02101,"846,58016033440 ",.02)
  1. ;;58016033440
  1. ;;9002226.02101,"846,58016033442 ",.01)
  1. ;;58016033442
  1. ;;9002226.02101,"846,58016033442 ",.02)
  1. ;;58016033442
  1. ;;9002226.02101,"846,58016033444 ",.01)
  1. ;;58016033444
  1. ;;9002226.02101,"846,58016033444 ",.02)
  1. ;;58016033444
  1. ;;9002226.02101,"846,58016033445 ",.01)
  1. ;;58016033445
  1. ;;9002226.02101,"846,58016033445 ",.02)
  1. ;;58016033445
  1. ;;9002226.02101,"846,58016033448 ",.01)
  1. ;;58016033448
  1. ;;9002226.02101,"846,58016033448 ",.02)
  1. ;;58016033448
  1. ;;9002226.02101,"846,58016033450 ",.01)
  1. ;;58016033450
  1. ;;9002226.02101,"846,58016033450 ",.02)
  1. ;;58016033450
  1. ;;9002226.02101,"846,58016033456 ",.01)
  1. ;;58016033456
  1. ;;9002226.02101,"846,58016033456 ",.02)
  1. ;;58016033456
  1. ;;9002226.02101,"846,58016033460 ",.01)
  1. ;;58016033460
  1. ;;9002226.02101,"846,58016033460 ",.02)
  1. ;;58016033460
  1. ;;9002226.02101,"846,58016033467 ",.01)
  1. ;;58016033467
  1. ;;9002226.02101,"846,58016033467 ",.02)
  1. ;;58016033467
  1. ;;9002226.02101,"846,58016033469 ",.01)
  1. ;;58016033469
  1. ;;9002226.02101,"846,58016033469 ",.02)
  1. ;;58016033469
  1. ;;9002226.02101,"846,58016033470 ",.01)
  1. ;;58016033470
  1. ;;9002226.02101,"846,58016033470 ",.02)
  1. ;;58016033470
  1. ;;9002226.02101,"846,58016033471 ",.01)
  1. ;;58016033471
  1. ;;9002226.02101,"846,58016033471 ",.02)
  1. ;;58016033471
  1. ;;9002226.02101,"846,58016033472 ",.01)
  1. ;;58016033472
  1. ;;9002226.02101,"846,58016033472 ",.02)
  1. ;;58016033472
  1. ;;9002226.02101,"846,58016033473 ",.01)
  1. ;;58016033473
  1. ;;9002226.02101,"846,58016033473 ",.02)
  1. ;;58016033473
  1. ;;9002226.02101,"846,58016033475 ",.01)
  1. ;;58016033475
  1. ;;9002226.02101,"846,58016033475 ",.02)
  1. ;;58016033475
  1. ;;9002226.02101,"846,58016033476 ",.01)
  1. ;;58016033476
  1. ;;9002226.02101,"846,58016033476 ",.02)
  1. ;;58016033476
  1. ;;9002226.02101,"846,58016033477 ",.01)
  1. ;;58016033477
  1. ;;9002226.02101,"846,58016033477 ",.02)
  1. ;;58016033477
  1. ;;9002226.02101,"846,58016033479 ",.01)
  1. ;;58016033479
  1. ;;9002226.02101,"846,58016033479 ",.02)
  1. ;;58016033479
  1. ;;9002226.02101,"846,58016033480 ",.01)
  1. ;;58016033480
  1. ;;9002226.02101,"846,58016033480 ",.02)
  1. ;;58016033480
  1. ;;9002226.02101,"846,58016033481 ",.01)
  1. ;;58016033481
  1. ;;9002226.02101,"846,58016033481 ",.02)
  1. ;;58016033481
  1. ;;9002226.02101,"846,58016033482 ",.01)
  1. ;;58016033482
  1. ;;9002226.02101,"846,58016033482 ",.02)
  1. ;;58016033482
  1. ;;9002226.02101,"846,58016033483 ",.01)
  1. ;;58016033483
  1. ;;9002226.02101,"846,58016033483 ",.02)
  1. ;;58016033483
  1. ;;9002226.02101,"846,58016033484 ",.01)
  1. ;;58016033484
  1. ;;9002226.02101,"846,58016033484 ",.02)
  1. ;;58016033484
  1. ;;9002226.02101,"846,58016033487 ",.01)
  1. ;;58016033487
  1. ;;9002226.02101,"846,58016033487 ",.02)
  1. ;;58016033487
  1. ;;9002226.02101,"846,58016033489 ",.01)
  1. ;;58016033489
  1. ;;9002226.02101,"846,58016033489 ",.02)
  1. ;;58016033489
  1. ;;9002226.02101,"846,58016033490 ",.01)
  1. ;;58016033490
  1. ;;9002226.02101,"846,58016033490 ",.02)
  1. ;;58016033490
  1. ;;9002226.02101,"846,58016033491 ",.01)
  1. ;;58016033491
  1. ;;9002226.02101,"846,58016033491 ",.02)
  1. ;;58016033491
  1. ;;9002226.02101,"846,58016033492 ",.01)
  1. ;;58016033492
  1. ;;9002226.02101,"846,58016033492 ",.02)
  1. ;;58016033492
  1. ;;9002226.02101,"846,58016033493 ",.01)
  1. ;;58016033493
  1. ;;9002226.02101,"846,58016033493 ",.02)
  1. ;;58016033493
  1. ;;9002226.02101,"846,58016033496 ",.01)
  1. ;;58016033496
  1. ;;9002226.02101,"846,58016033496 ",.02)
  1. ;;58016033496
  1. ;;9002226.02101,"846,58016033497 ",.01)
  1. ;;58016033497
  1. ;;9002226.02101,"846,58016033497 ",.02)
  1. ;;58016033497
  1. ;;9002226.02101,"846,58016033498 ",.01)
  1. ;;58016033498
  1. ;;9002226.02101,"846,58016033498 ",.02)
  1. ;;58016033498
  1. ;;9002226.02101,"846,58016033499 ",.01)
  1. ;;58016033499
  1. ;;9002226.02101,"846,58016033499 ",.02)
  1. ;;58016033499
  1. ;;9002226.02101,"846,58016037030 ",.01)
  1. ;;58016037030