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

BGPM5ARN.m

Go to the documentation of this file.
BGPM5ARN ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,58016047405 ",.01)
 ;;58016047405
 ;;9002226.02101,"1005,58016047405 ",.02)
 ;;58016047405
 ;;9002226.02101,"1005,58016047406 ",.01)
 ;;58016047406
 ;;9002226.02101,"1005,58016047406 ",.02)
 ;;58016047406
 ;;9002226.02101,"1005,58016047407 ",.01)
 ;;58016047407
 ;;9002226.02101,"1005,58016047407 ",.02)
 ;;58016047407
 ;;9002226.02101,"1005,58016047408 ",.01)
 ;;58016047408
 ;;9002226.02101,"1005,58016047408 ",.02)
 ;;58016047408
 ;;9002226.02101,"1005,58016047409 ",.01)
 ;;58016047409
 ;;9002226.02101,"1005,58016047409 ",.02)
 ;;58016047409
 ;;9002226.02101,"1005,58016047410 ",.01)
 ;;58016047410
 ;;9002226.02101,"1005,58016047410 ",.02)
 ;;58016047410
 ;;9002226.02101,"1005,58016047412 ",.01)
 ;;58016047412
 ;;9002226.02101,"1005,58016047412 ",.02)
 ;;58016047412
 ;;9002226.02101,"1005,58016047414 ",.01)
 ;;58016047414
 ;;9002226.02101,"1005,58016047414 ",.02)
 ;;58016047414
 ;;9002226.02101,"1005,58016047415 ",.01)
 ;;58016047415
 ;;9002226.02101,"1005,58016047415 ",.02)
 ;;58016047415
 ;;9002226.02101,"1005,58016047416 ",.01)
 ;;58016047416
 ;;9002226.02101,"1005,58016047416 ",.02)
 ;;58016047416
 ;;9002226.02101,"1005,58016047418 ",.01)
 ;;58016047418
 ;;9002226.02101,"1005,58016047418 ",.02)
 ;;58016047418
 ;;9002226.02101,"1005,58016047420 ",.01)
 ;;58016047420
 ;;9002226.02101,"1005,58016047420 ",.02)
 ;;58016047420
 ;;9002226.02101,"1005,58016047421 ",.01)
 ;;58016047421
 ;;9002226.02101,"1005,58016047421 ",.02)
 ;;58016047421
 ;;9002226.02101,"1005,58016047425 ",.01)
 ;;58016047425
 ;;9002226.02101,"1005,58016047425 ",.02)
 ;;58016047425
 ;;9002226.02101,"1005,58016047426 ",.01)
 ;;58016047426
 ;;9002226.02101,"1005,58016047426 ",.02)
 ;;58016047426
 ;;9002226.02101,"1005,58016047427 ",.01)
 ;;58016047427
 ;;9002226.02101,"1005,58016047427 ",.02)
 ;;58016047427
 ;;9002226.02101,"1005,58016047428 ",.01)
 ;;58016047428
 ;;9002226.02101,"1005,58016047428 ",.02)
 ;;58016047428
 ;;9002226.02101,"1005,58016047430 ",.01)
 ;;58016047430
 ;;9002226.02101,"1005,58016047430 ",.02)
 ;;58016047430
 ;;9002226.02101,"1005,58016047432 ",.01)
 ;;58016047432
 ;;9002226.02101,"1005,58016047432 ",.02)
 ;;58016047432
 ;;9002226.02101,"1005,58016047435 ",.01)
 ;;58016047435
 ;;9002226.02101,"1005,58016047435 ",.02)
 ;;58016047435
 ;;9002226.02101,"1005,58016047436 ",.01)
 ;;58016047436
 ;;9002226.02101,"1005,58016047436 ",.02)
 ;;58016047436
 ;;9002226.02101,"1005,58016047440 ",.01)
 ;;58016047440
 ;;9002226.02101,"1005,58016047440 ",.02)
 ;;58016047440
 ;;9002226.02101,"1005,58016047442 ",.01)
 ;;58016047442
 ;;9002226.02101,"1005,58016047442 ",.02)
 ;;58016047442
 ;;9002226.02101,"1005,58016047444 ",.01)
 ;;58016047444
 ;;9002226.02101,"1005,58016047444 ",.02)
 ;;58016047444
 ;;9002226.02101,"1005,58016047445 ",.01)
 ;;58016047445
 ;;9002226.02101,"1005,58016047445 ",.02)
 ;;58016047445
 ;;9002226.02101,"1005,58016047448 ",.01)
 ;;58016047448
 ;;9002226.02101,"1005,58016047448 ",.02)
 ;;58016047448
 ;;9002226.02101,"1005,58016047450 ",.01)
 ;;58016047450
 ;;9002226.02101,"1005,58016047450 ",.02)
 ;;58016047450
 ;;9002226.02101,"1005,58016047456 ",.01)
 ;;58016047456
 ;;9002226.02101,"1005,58016047456 ",.02)
 ;;58016047456
 ;;9002226.02101,"1005,58016047460 ",.01)
 ;;58016047460
 ;;9002226.02101,"1005,58016047460 ",.02)
 ;;58016047460
 ;;9002226.02101,"1005,58016047467 ",.01)
 ;;58016047467
 ;;9002226.02101,"1005,58016047467 ",.02)
 ;;58016047467
 ;;9002226.02101,"1005,58016047469 ",.01)
 ;;58016047469
 ;;9002226.02101,"1005,58016047469 ",.02)
 ;;58016047469
 ;;9002226.02101,"1005,58016047470 ",.01)
 ;;58016047470
 ;;9002226.02101,"1005,58016047470 ",.02)
 ;;58016047470
 ;;9002226.02101,"1005,58016047471 ",.01)
 ;;58016047471
 ;;9002226.02101,"1005,58016047471 ",.02)
 ;;58016047471
 ;;9002226.02101,"1005,58016047472 ",.01)
 ;;58016047472
 ;;9002226.02101,"1005,58016047472 ",.02)
 ;;58016047472
 ;;9002226.02101,"1005,58016047473 ",.01)
 ;;58016047473
 ;;9002226.02101,"1005,58016047473 ",.02)
 ;;58016047473
 ;;9002226.02101,"1005,58016047475 ",.01)
 ;;58016047475
 ;;9002226.02101,"1005,58016047475 ",.02)
 ;;58016047475
 ;;9002226.02101,"1005,58016047476 ",.01)
 ;;58016047476
 ;;9002226.02101,"1005,58016047476 ",.02)
 ;;58016047476
 ;;9002226.02101,"1005,58016047477 ",.01)
 ;;58016047477
 ;;9002226.02101,"1005,58016047477 ",.02)
 ;;58016047477
 ;;9002226.02101,"1005,58016047479 ",.01)
 ;;58016047479
 ;;9002226.02101,"1005,58016047479 ",.02)
 ;;58016047479
 ;;9002226.02101,"1005,58016047480 ",.01)
 ;;58016047480
 ;;9002226.02101,"1005,58016047480 ",.02)
 ;;58016047480
 ;;9002226.02101,"1005,58016047481 ",.01)
 ;;58016047481
 ;;9002226.02101,"1005,58016047481 ",.02)
 ;;58016047481
 ;;9002226.02101,"1005,58016047482 ",.01)
 ;;58016047482
 ;;9002226.02101,"1005,58016047482 ",.02)
 ;;58016047482
 ;;9002226.02101,"1005,58016047483 ",.01)
 ;;58016047483
 ;;9002226.02101,"1005,58016047483 ",.02)
 ;;58016047483
 ;;9002226.02101,"1005,58016047484 ",.01)
 ;;58016047484
 ;;9002226.02101,"1005,58016047484 ",.02)
 ;;58016047484
 ;;9002226.02101,"1005,58016047487 ",.01)
 ;;58016047487
 ;;9002226.02101,"1005,58016047487 ",.02)
 ;;58016047487
 ;;9002226.02101,"1005,58016047490 ",.01)
 ;;58016047490
 ;;9002226.02101,"1005,58016047490 ",.02)
 ;;58016047490
 ;;9002226.02101,"1005,58016047491 ",.01)
 ;;58016047491
 ;;9002226.02101,"1005,58016047491 ",.02)
 ;;58016047491
 ;;9002226.02101,"1005,58016047492 ",.01)
 ;;58016047492
 ;;9002226.02101,"1005,58016047492 ",.02)
 ;;58016047492
 ;;9002226.02101,"1005,58016047493 ",.01)
 ;;58016047493
 ;;9002226.02101,"1005,58016047493 ",.02)
 ;;58016047493
 ;;9002226.02101,"1005,58016047496 ",.01)
 ;;58016047496
 ;;9002226.02101,"1005,58016047496 ",.02)
 ;;58016047496
 ;;9002226.02101,"1005,58016047497 ",.01)
 ;;58016047497
 ;;9002226.02101,"1005,58016047497 ",.02)
 ;;58016047497
 ;;9002226.02101,"1005,58016047498 ",.01)
 ;;58016047498
 ;;9002226.02101,"1005,58016047498 ",.02)
 ;;58016047498
 ;;9002226.02101,"1005,58016047499 ",.01)
 ;;58016047499
 ;;9002226.02101,"1005,58016047499 ",.02)
 ;;58016047499
 ;;9002226.02101,"1005,58016054200 ",.01)
 ;;58016054200
 ;;9002226.02101,"1005,58016054200 ",.02)
 ;;58016054200
 ;;9002226.02101,"1005,58016054230 ",.01)
 ;;58016054230
 ;;9002226.02101,"1005,58016054230 ",.02)
 ;;58016054230
 ;;9002226.02101,"1005,58016056400 ",.01)
 ;;58016056400
 ;;9002226.02101,"1005,58016056400 ",.02)
 ;;58016056400
 ;;9002226.02101,"1005,58016056430 ",.01)
 ;;58016056430
 ;;9002226.02101,"1005,58016056430 ",.02)
 ;;58016056430
 ;;9002226.02101,"1005,58016056460 ",.01)
 ;;58016056460
 ;;9002226.02101,"1005,58016056460 ",.02)
 ;;58016056460
 ;;9002226.02101,"1005,58016056490 ",.01)
 ;;58016056490
 ;;9002226.02101,"1005,58016056490 ",.02)
 ;;58016056490
 ;;9002226.02101,"1005,58016057100 ",.01)
 ;;58016057100
 ;;9002226.02101,"1005,58016057100 ",.02)
 ;;58016057100
 ;;9002226.02101,"1005,58016057130 ",.01)
 ;;58016057130
 ;;9002226.02101,"1005,58016057130 ",.02)
 ;;58016057130
 ;;9002226.02101,"1005,58016057160 ",.01)
 ;;58016057160
 ;;9002226.02101,"1005,58016057160 ",.02)
 ;;58016057160
 ;;9002226.02101,"1005,58016057190 ",.01)
 ;;58016057190
 ;;9002226.02101,"1005,58016057190 ",.02)
 ;;58016057190
 ;;9002226.02101,"1005,58016057900 ",.01)
 ;;58016057900
 ;;9002226.02101,"1005,58016057900 ",.02)
 ;;58016057900
 ;;9002226.02101,"1005,58016057901 ",.01)
 ;;58016057901
 ;;9002226.02101,"1005,58016057901 ",.02)
 ;;58016057901
 ;;9002226.02101,"1005,58016057902 ",.01)
 ;;58016057902
 ;;9002226.02101,"1005,58016057902 ",.02)
 ;;58016057902
 ;;9002226.02101,"1005,58016057903 ",.01)
 ;;58016057903
 ;;9002226.02101,"1005,58016057903 ",.02)
 ;;58016057903
 ;;9002226.02101,"1005,58016057904 ",.01)
 ;;58016057904
 ;;9002226.02101,"1005,58016057904 ",.02)
 ;;58016057904
 ;;9002226.02101,"1005,58016057905 ",.01)
 ;;58016057905
 ;;9002226.02101,"1005,58016057905 ",.02)
 ;;58016057905
 ;;9002226.02101,"1005,58016057906 ",.01)
 ;;58016057906
 ;;9002226.02101,"1005,58016057906 ",.02)
 ;;58016057906
 ;;9002226.02101,"1005,58016057907 ",.01)
 ;;58016057907
 ;;9002226.02101,"1005,58016057907 ",.02)
 ;;58016057907
 ;;9002226.02101,"1005,58016057908 ",.01)
 ;;58016057908
 ;;9002226.02101,"1005,58016057908 ",.02)
 ;;58016057908
 ;;9002226.02101,"1005,58016057909 ",.01)
 ;;58016057909
 ;;9002226.02101,"1005,58016057909 ",.02)
 ;;58016057909
 ;;9002226.02101,"1005,58016057910 ",.01)
 ;;58016057910
 ;;9002226.02101,"1005,58016057910 ",.02)
 ;;58016057910
 ;;9002226.02101,"1005,58016057912 ",.01)
 ;;58016057912
 ;;9002226.02101,"1005,58016057912 ",.02)
 ;;58016057912
 ;;9002226.02101,"1005,58016057914 ",.01)
 ;;58016057914
 ;;9002226.02101,"1005,58016057914 ",.02)
 ;;58016057914
 ;;9002226.02101,"1005,58016057915 ",.01)
 ;;58016057915
 ;;9002226.02101,"1005,58016057915 ",.02)
 ;;58016057915
 ;;9002226.02101,"1005,58016057916 ",.01)
 ;;58016057916
 ;;9002226.02101,"1005,58016057916 ",.02)
 ;;58016057916
 ;;9002226.02101,"1005,58016057918 ",.01)
 ;;58016057918
 ;;9002226.02101,"1005,58016057918 ",.02)
 ;;58016057918
 ;;9002226.02101,"1005,58016057920 ",.01)
 ;;58016057920
 ;;9002226.02101,"1005,58016057920 ",.02)
 ;;58016057920
 ;;9002226.02101,"1005,58016057921 ",.01)
 ;;58016057921
 ;;9002226.02101,"1005,58016057921 ",.02)
 ;;58016057921
 ;;9002226.02101,"1005,58016057924 ",.01)
 ;;58016057924
 ;;9002226.02101,"1005,58016057924 ",.02)
 ;;58016057924
 ;;9002226.02101,"1005,58016057925 ",.01)
 ;;58016057925
 ;;9002226.02101,"1005,58016057925 ",.02)
 ;;58016057925
 ;;9002226.02101,"1005,58016057926 ",.01)
 ;;58016057926
 ;;9002226.02101,"1005,58016057926 ",.02)
 ;;58016057926
 ;;9002226.02101,"1005,58016057927 ",.01)
 ;;58016057927
 ;;9002226.02101,"1005,58016057927 ",.02)
 ;;58016057927
 ;;9002226.02101,"1005,58016057928 ",.01)
 ;;58016057928
 ;;9002226.02101,"1005,58016057928 ",.02)
 ;;58016057928
 ;;9002226.02101,"1005,58016057930 ",.01)
 ;;58016057930
 ;;9002226.02101,"1005,58016057930 ",.02)
 ;;58016057930
 ;;9002226.02101,"1005,58016057932 ",.01)
 ;;58016057932
 ;;9002226.02101,"1005,58016057932 ",.02)
 ;;58016057932
 ;;9002226.02101,"1005,58016057935 ",.01)
 ;;58016057935
 ;;9002226.02101,"1005,58016057935 ",.02)
 ;;58016057935
 ;;9002226.02101,"1005,58016057936 ",.01)
 ;;58016057936
 ;;9002226.02101,"1005,58016057936 ",.02)
 ;;58016057936
 ;;9002226.02101,"1005,58016057940 ",.01)
 ;;58016057940
 ;;9002226.02101,"1005,58016057940 ",.02)
 ;;58016057940
 ;;9002226.02101,"1005,58016057942 ",.01)
 ;;58016057942
 ;;9002226.02101,"1005,58016057942 ",.02)
 ;;58016057942
 ;;9002226.02101,"1005,58016057944 ",.01)
 ;;58016057944
 ;;9002226.02101,"1005,58016057944 ",.02)
 ;;58016057944
 ;;9002226.02101,"1005,58016057945 ",.01)
 ;;58016057945
 ;;9002226.02101,"1005,58016057945 ",.02)
 ;;58016057945
 ;;9002226.02101,"1005,58016057948 ",.01)
 ;;58016057948
 ;;9002226.02101,"1005,58016057948 ",.02)
 ;;58016057948
 ;;9002226.02101,"1005,58016057950 ",.01)
 ;;58016057950
 ;;9002226.02101,"1005,58016057950 ",.02)
 ;;58016057950
 ;;9002226.02101,"1005,58016057956 ",.01)
 ;;58016057956
 ;;9002226.02101,"1005,58016057956 ",.02)
 ;;58016057956
 ;;9002226.02101,"1005,58016057960 ",.01)
 ;;58016057960
 ;;9002226.02101,"1005,58016057960 ",.02)
 ;;58016057960
 ;;9002226.02101,"1005,58016057967 ",.01)
 ;;58016057967
 ;;9002226.02101,"1005,58016057967 ",.02)
 ;;58016057967
 ;;9002226.02101,"1005,58016057969 ",.01)
 ;;58016057969
 ;;9002226.02101,"1005,58016057969 ",.02)
 ;;58016057969
 ;;9002226.02101,"1005,58016057970 ",.01)
 ;;58016057970