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