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