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