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

BGPM5BCC.m

Go to the documentation of this file.
  1. BGPM5BCC ;IHS/MSC/SAT-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,"1044,33261010790 ",.01)
  1. ;;33261010790
  1. ;;9002226.02101,"1044,33261010790 ",.02)
  1. ;;33261010790
  1. ;;9002226.02101,"1044,33261017000 ",.01)
  1. ;;33261017000
  1. ;;9002226.02101,"1044,33261017000 ",.02)
  1. ;;33261017000
  1. ;;9002226.02101,"1044,33261017007 ",.01)
  1. ;;33261017007
  1. ;;9002226.02101,"1044,33261017007 ",.02)
  1. ;;33261017007
  1. ;;9002226.02101,"1044,33261017014 ",.01)
  1. ;;33261017014
  1. ;;9002226.02101,"1044,33261017014 ",.02)
  1. ;;33261017014
  1. ;;9002226.02101,"1044,33261017021 ",.01)
  1. ;;33261017021
  1. ;;9002226.02101,"1044,33261017021 ",.02)
  1. ;;33261017021
  1. ;;9002226.02101,"1044,33261017028 ",.01)
  1. ;;33261017028
  1. ;;9002226.02101,"1044,33261017028 ",.02)
  1. ;;33261017028
  1. ;;9002226.02101,"1044,33261017030 ",.01)
  1. ;;33261017030
  1. ;;9002226.02101,"1044,33261017030 ",.02)
  1. ;;33261017030
  1. ;;9002226.02101,"1044,33261017060 ",.01)
  1. ;;33261017060
  1. ;;9002226.02101,"1044,33261017060 ",.02)
  1. ;;33261017060
  1. ;;9002226.02101,"1044,33261017090 ",.01)
  1. ;;33261017090
  1. ;;9002226.02101,"1044,33261017090 ",.02)
  1. ;;33261017090
  1. ;;9002226.02101,"1044,33261017100 ",.01)
  1. ;;33261017100
  1. ;;9002226.02101,"1044,33261017100 ",.02)
  1. ;;33261017100
  1. ;;9002226.02101,"1044,33261017102 ",.01)
  1. ;;33261017102
  1. ;;9002226.02101,"1044,33261017102 ",.02)
  1. ;;33261017102
  1. ;;9002226.02101,"1044,33261017105 ",.01)
  1. ;;33261017105
  1. ;;9002226.02101,"1044,33261017105 ",.02)
  1. ;;33261017105
  1. ;;9002226.02101,"1044,33261017110 ",.01)
  1. ;;33261017110
  1. ;;9002226.02101,"1044,33261017110 ",.02)
  1. ;;33261017110
  1. ;;9002226.02101,"1044,33261017111 ",.01)
  1. ;;33261017111
  1. ;;9002226.02101,"1044,33261017111 ",.02)
  1. ;;33261017111
  1. ;;9002226.02101,"1044,33261017114 ",.01)
  1. ;;33261017114
  1. ;;9002226.02101,"1044,33261017114 ",.02)
  1. ;;33261017114
  1. ;;9002226.02101,"1044,33261017120 ",.01)
  1. ;;33261017120
  1. ;;9002226.02101,"1044,33261017120 ",.02)
  1. ;;33261017120
  1. ;;9002226.02101,"1044,33261017128 ",.01)
  1. ;;33261017128
  1. ;;9002226.02101,"1044,33261017128 ",.02)
  1. ;;33261017128
  1. ;;9002226.02101,"1044,33261017130 ",.01)
  1. ;;33261017130
  1. ;;9002226.02101,"1044,33261017130 ",.02)
  1. ;;33261017130
  1. ;;9002226.02101,"1044,33261017136 ",.01)
  1. ;;33261017136
  1. ;;9002226.02101,"1044,33261017136 ",.02)
  1. ;;33261017136
  1. ;;9002226.02101,"1044,33261017160 ",.01)
  1. ;;33261017160
  1. ;;9002226.02101,"1044,33261017160 ",.02)
  1. ;;33261017160
  1. ;;9002226.02101,"1044,33261017190 ",.01)
  1. ;;33261017190
  1. ;;9002226.02101,"1044,33261017190 ",.02)
  1. ;;33261017190
  1. ;;9002226.02101,"1044,33261018400 ",.01)
  1. ;;33261018400
  1. ;;9002226.02101,"1044,33261018400 ",.02)
  1. ;;33261018400
  1. ;;9002226.02101,"1044,33261018402 ",.01)
  1. ;;33261018402
  1. ;;9002226.02101,"1044,33261018402 ",.02)
  1. ;;33261018402
  1. ;;9002226.02101,"1044,33261018403 ",.01)
  1. ;;33261018403
  1. ;;9002226.02101,"1044,33261018403 ",.02)
  1. ;;33261018403
  1. ;;9002226.02101,"1044,33261018407 ",.01)
  1. ;;33261018407
  1. ;;9002226.02101,"1044,33261018407 ",.02)
  1. ;;33261018407
  1. ;;9002226.02101,"1044,33261018414 ",.01)
  1. ;;33261018414
  1. ;;9002226.02101,"1044,33261018414 ",.02)
  1. ;;33261018414
  1. ;;9002226.02101,"1044,33261018420 ",.01)
  1. ;;33261018420
  1. ;;9002226.02101,"1044,33261018420 ",.02)
  1. ;;33261018420
  1. ;;9002226.02101,"1044,33261018421 ",.01)
  1. ;;33261018421
  1. ;;9002226.02101,"1044,33261018421 ",.02)
  1. ;;33261018421
  1. ;;9002226.02101,"1044,33261018428 ",.01)
  1. ;;33261018428
  1. ;;9002226.02101,"1044,33261018428 ",.02)
  1. ;;33261018428
  1. ;;9002226.02101,"1044,33261018430 ",.01)
  1. ;;33261018430
  1. ;;9002226.02101,"1044,33261018430 ",.02)
  1. ;;33261018430
  1. ;;9002226.02101,"1044,33261018440 ",.01)
  1. ;;33261018440
  1. ;;9002226.02101,"1044,33261018440 ",.02)
  1. ;;33261018440
  1. ;;9002226.02101,"1044,33261018460 ",.01)
  1. ;;33261018460
  1. ;;9002226.02101,"1044,33261018460 ",.02)
  1. ;;33261018460
  1. ;;9002226.02101,"1044,33261018490 ",.01)
  1. ;;33261018490
  1. ;;9002226.02101,"1044,33261018490 ",.02)
  1. ;;33261018490
  1. ;;9002226.02101,"1044,33261034607 ",.01)
  1. ;;33261034607
  1. ;;9002226.02101,"1044,33261034607 ",.02)
  1. ;;33261034607
  1. ;;9002226.02101,"1044,33261034610 ",.01)
  1. ;;33261034610
  1. ;;9002226.02101,"1044,33261034610 ",.02)
  1. ;;33261034610
  1. ;;9002226.02101,"1044,33261034614 ",.01)
  1. ;;33261034614
  1. ;;9002226.02101,"1044,33261034614 ",.02)
  1. ;;33261034614
  1. ;;9002226.02101,"1044,33261034620 ",.01)
  1. ;;33261034620
  1. ;;9002226.02101,"1044,33261034620 ",.02)
  1. ;;33261034620
  1. ;;9002226.02101,"1044,33261034621 ",.01)
  1. ;;33261034621
  1. ;;9002226.02101,"1044,33261034621 ",.02)
  1. ;;33261034621
  1. ;;9002226.02101,"1044,33261034628 ",.01)
  1. ;;33261034628
  1. ;;9002226.02101,"1044,33261034628 ",.02)
  1. ;;33261034628
  1. ;;9002226.02101,"1044,33261034630 ",.01)
  1. ;;33261034630
  1. ;;9002226.02101,"1044,33261034630 ",.02)
  1. ;;33261034630
  1. ;;9002226.02101,"1044,33261034660 ",.01)
  1. ;;33261034660
  1. ;;9002226.02101,"1044,33261034660 ",.02)
  1. ;;33261034660
  1. ;;9002226.02101,"1044,33261034802 ",.01)
  1. ;;33261034802
  1. ;;9002226.02101,"1044,33261034802 ",.02)
  1. ;;33261034802
  1. ;;9002226.02101,"1044,33261034807 ",.01)
  1. ;;33261034807
  1. ;;9002226.02101,"1044,33261034807 ",.02)
  1. ;;33261034807
  1. ;;9002226.02101,"1044,33261034814 ",.01)
  1. ;;33261034814
  1. ;;9002226.02101,"1044,33261034814 ",.02)
  1. ;;33261034814
  1. ;;9002226.02101,"1044,33261034820 ",.01)
  1. ;;33261034820
  1. ;;9002226.02101,"1044,33261034820 ",.02)
  1. ;;33261034820
  1. ;;9002226.02101,"1044,33261034828 ",.01)
  1. ;;33261034828
  1. ;;9002226.02101,"1044,33261034828 ",.02)
  1. ;;33261034828
  1. ;;9002226.02101,"1044,33261034830 ",.01)
  1. ;;33261034830
  1. ;;9002226.02101,"1044,33261034830 ",.02)
  1. ;;33261034830
  1. ;;9002226.02101,"1044,33261034860 ",.01)
  1. ;;33261034860
  1. ;;9002226.02101,"1044,33261034860 ",.02)
  1. ;;33261034860
  1. ;;9002226.02101,"1044,33261034890 ",.01)
  1. ;;33261034890
  1. ;;9002226.02101,"1044,33261034890 ",.02)
  1. ;;33261034890
  1. ;;9002226.02101,"1044,33261035800 ",.01)
  1. ;;33261035800
  1. ;;9002226.02101,"1044,33261035800 ",.02)
  1. ;;33261035800
  1. ;;9002226.02101,"1044,33261035802 ",.01)
  1. ;;33261035802
  1. ;;9002226.02101,"1044,33261035802 ",.02)
  1. ;;33261035802
  1. ;;9002226.02101,"1044,33261035803 ",.01)
  1. ;;33261035803
  1. ;;9002226.02101,"1044,33261035803 ",.02)
  1. ;;33261035803
  1. ;;9002226.02101,"1044,33261035828 ",.01)
  1. ;;33261035828
  1. ;;9002226.02101,"1044,33261035828 ",.02)
  1. ;;33261035828
  1. ;;9002226.02101,"1044,33261035830 ",.01)
  1. ;;33261035830
  1. ;;9002226.02101,"1044,33261035830 ",.02)
  1. ;;33261035830
  1. ;;9002226.02101,"1044,33261035860 ",.01)
  1. ;;33261035860
  1. ;;9002226.02101,"1044,33261035860 ",.02)
  1. ;;33261035860
  1. ;;9002226.02101,"1044,33261035890 ",.01)
  1. ;;33261035890
  1. ;;9002226.02101,"1044,33261035890 ",.02)
  1. ;;33261035890
  1. ;;9002226.02101,"1044,33261036330 ",.01)
  1. ;;33261036330
  1. ;;9002226.02101,"1044,33261036330 ",.02)
  1. ;;33261036330
  1. ;;9002226.02101,"1044,33261036360 ",.01)
  1. ;;33261036360
  1. ;;9002226.02101,"1044,33261036360 ",.02)
  1. ;;33261036360
  1. ;;9002226.02101,"1044,33261036390 ",.01)
  1. ;;33261036390
  1. ;;9002226.02101,"1044,33261036390 ",.02)
  1. ;;33261036390
  1. ;;9002226.02101,"1044,33261038502 ",.01)
  1. ;;33261038502
  1. ;;9002226.02101,"1044,33261038502 ",.02)
  1. ;;33261038502
  1. ;;9002226.02101,"1044,33261038530 ",.01)
  1. ;;33261038530
  1. ;;9002226.02101,"1044,33261038530 ",.02)
  1. ;;33261038530
  1. ;;9002226.02101,"1044,33261038560 ",.01)
  1. ;;33261038560
  1. ;;9002226.02101,"1044,33261038560 ",.02)
  1. ;;33261038560
  1. ;;9002226.02101,"1044,33261038590 ",.01)
  1. ;;33261038590
  1. ;;9002226.02101,"1044,33261038590 ",.02)
  1. ;;33261038590
  1. ;;9002226.02101,"1044,33261038602 ",.01)
  1. ;;33261038602
  1. ;;9002226.02101,"1044,33261038602 ",.02)
  1. ;;33261038602
  1. ;;9002226.02101,"1044,33261038630 ",.01)
  1. ;;33261038630
  1. ;;9002226.02101,"1044,33261038630 ",.02)
  1. ;;33261038630
  1. ;;9002226.02101,"1044,33261038660 ",.01)
  1. ;;33261038660
  1. ;;9002226.02101,"1044,33261038660 ",.02)
  1. ;;33261038660
  1. ;;9002226.02101,"1044,33261038690 ",.01)
  1. ;;33261038690
  1. ;;9002226.02101,"1044,33261038690 ",.02)
  1. ;;33261038690
  1. ;;9002226.02101,"1044,33261045902 ",.01)
  1. ;;33261045902
  1. ;;9002226.02101,"1044,33261045902 ",.02)
  1. ;;33261045902
  1. ;;9002226.02101,"1044,33261045930 ",.01)
  1. ;;33261045930
  1. ;;9002226.02101,"1044,33261045930 ",.02)
  1. ;;33261045930
  1. ;;9002226.02101,"1044,33261045960 ",.01)
  1. ;;33261045960
  1. ;;9002226.02101,"1044,33261045960 ",.02)
  1. ;;33261045960
  1. ;;9002226.02101,"1044,33261045990 ",.01)
  1. ;;33261045990
  1. ;;9002226.02101,"1044,33261045990 ",.02)
  1. ;;33261045990
  1. ;;9002226.02101,"1044,33261053202 ",.01)
  1. ;;33261053202
  1. ;;9002226.02101,"1044,33261053202 ",.02)
  1. ;;33261053202
  1. ;;9002226.02101,"1044,33261053230 ",.01)
  1. ;;33261053230
  1. ;;9002226.02101,"1044,33261053230 ",.02)
  1. ;;33261053230
  1. ;;9002226.02101,"1044,33261053260 ",.01)
  1. ;;33261053260
  1. ;;9002226.02101,"1044,33261053260 ",.02)
  1. ;;33261053260
  1. ;;9002226.02101,"1044,33261053290 ",.01)
  1. ;;33261053290
  1. ;;9002226.02101,"1044,33261053290 ",.02)
  1. ;;33261053290
  1. ;;9002226.02101,"1044,33261062202 ",.01)
  1. ;;33261062202
  1. ;;9002226.02101,"1044,33261062202 ",.02)
  1. ;;33261062202
  1. ;;9002226.02101,"1044,33261062207 ",.01)
  1. ;;33261062207
  1. ;;9002226.02101,"1044,33261062207 ",.02)
  1. ;;33261062207
  1. ;;9002226.02101,"1044,33261062214 ",.01)
  1. ;;33261062214
  1. ;;9002226.02101,"1044,33261062214 ",.02)
  1. ;;33261062214
  1. ;;9002226.02101,"1044,33261062220 ",.01)
  1. ;;33261062220
  1. ;;9002226.02101,"1044,33261062220 ",.02)
  1. ;;33261062220
  1. ;;9002226.02101,"1044,33261062221 ",.01)
  1. ;;33261062221
  1. ;;9002226.02101,"1044,33261062221 ",.02)
  1. ;;33261062221
  1. ;;9002226.02101,"1044,33261062228 ",.01)
  1. ;;33261062228
  1. ;;9002226.02101,"1044,33261062228 ",.02)
  1. ;;33261062228
  1. ;;9002226.02101,"1044,33261062230 ",.01)
  1. ;;33261062230
  1. ;;9002226.02101,"1044,33261062230 ",.02)
  1. ;;33261062230
  1. ;;9002226.02101,"1044,33261062260 ",.01)
  1. ;;33261062260
  1. ;;9002226.02101,"1044,33261062260 ",.02)
  1. ;;33261062260
  1. ;;9002226.02101,"1044,33261062290 ",.01)
  1. ;;33261062290
  1. ;;9002226.02101,"1044,33261062290 ",.02)
  1. ;;33261062290
  1. ;;9002226.02101,"1044,33261062630 ",.01)
  1. ;;33261062630
  1. ;;9002226.02101,"1044,33261062630 ",.02)
  1. ;;33261062630
  1. ;;9002226.02101,"1044,33261062660 ",.01)
  1. ;;33261062660
  1. ;;9002226.02101,"1044,33261062660 ",.02)
  1. ;;33261062660
  1. ;;9002226.02101,"1044,33261062690 ",.01)
  1. ;;33261062690
  1. ;;9002226.02101,"1044,33261062690 ",.02)
  1. ;;33261062690
  1. ;;9002226.02101,"1044,33261067702 ",.01)
  1. ;;33261067702
  1. ;;9002226.02101,"1044,33261067702 ",.02)
  1. ;;33261067702
  1. ;;9002226.02101,"1044,33261067707 ",.01)
  1. ;;33261067707
  1. ;;9002226.02101,"1044,33261067707 ",.02)
  1. ;;33261067707
  1. ;;9002226.02101,"1044,33261067714 ",.01)
  1. ;;33261067714
  1. ;;9002226.02101,"1044,33261067714 ",.02)
  1. ;;33261067714
  1. ;;9002226.02101,"1044,33261067720 ",.01)
  1. ;;33261067720
  1. ;;9002226.02101,"1044,33261067720 ",.02)
  1. ;;33261067720
  1. ;;9002226.02101,"1044,33261067721 ",.01)
  1. ;;33261067721
  1. ;;9002226.02101,"1044,33261067721 ",.02)
  1. ;;33261067721
  1. ;;9002226.02101,"1044,33261067728 ",.01)
  1. ;;33261067728
  1. ;;9002226.02101,"1044,33261067728 ",.02)
  1. ;;33261067728
  1. ;;9002226.02101,"1044,33261067730 ",.01)
  1. ;;33261067730
  1. ;;9002226.02101,"1044,33261067730 ",.02)
  1. ;;33261067730
  1. ;;9002226.02101,"1044,33261067760 ",.01)
  1. ;;33261067760
  1. ;;9002226.02101,"1044,33261067760 ",.02)
  1. ;;33261067760
  1. ;;9002226.02101,"1044,33261067790 ",.01)
  1. ;;33261067790
  1. ;;9002226.02101,"1044,33261067790 ",.02)
  1. ;;33261067790
  1. ;;9002226.02101,"1044,33261067802 ",.01)
  1. ;;33261067802
  1. ;;9002226.02101,"1044,33261067802 ",.02)
  1. ;;33261067802
  1. ;;9002226.02101,"1044,33261067807 ",.01)
  1. ;;33261067807
  1. ;;9002226.02101,"1044,33261067807 ",.02)
  1. ;;33261067807
  1. ;;9002226.02101,"1044,33261067814 ",.01)
  1. ;;33261067814
  1. ;;9002226.02101,"1044,33261067814 ",.02)
  1. ;;33261067814
  1. ;;9002226.02101,"1044,33261067820 ",.01)
  1. ;;33261067820
  1. ;;9002226.02101,"1044,33261067820 ",.02)
  1. ;;33261067820
  1. ;;9002226.02101,"1044,33261067821 ",.01)
  1. ;;33261067821