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

BGPM5AEP.m

Go to the documentation of this file.
  1. BGPM5AEP ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"881,51138033330 ",.01)
  1. ;;51138033330
  1. ;;9002226.02101,"881,51138033330 ",.02)
  1. ;;51138033330
  1. ;;9002226.02101,"881,51138033430 ",.01)
  1. ;;51138033430
  1. ;;9002226.02101,"881,51138033430 ",.02)
  1. ;;51138033430
  1. ;;9002226.02101,"881,51138033530 ",.01)
  1. ;;51138033530
  1. ;;9002226.02101,"881,51138033530 ",.02)
  1. ;;51138033530
  1. ;;9002226.02101,"881,51138033630 ",.01)
  1. ;;51138033630
  1. ;;9002226.02101,"881,51138033630 ",.02)
  1. ;;51138033630
  1. ;;9002226.02101,"881,51138034830 ",.01)
  1. ;;51138034830
  1. ;;9002226.02101,"881,51138034830 ",.02)
  1. ;;51138034830
  1. ;;9002226.02101,"881,51138034930 ",.01)
  1. ;;51138034930
  1. ;;9002226.02101,"881,51138034930 ",.02)
  1. ;;51138034930
  1. ;;9002226.02101,"881,51138035030 ",.01)
  1. ;;51138035030
  1. ;;9002226.02101,"881,51138035030 ",.02)
  1. ;;51138035030
  1. ;;9002226.02101,"881,51138035130 ",.01)
  1. ;;51138035130
  1. ;;9002226.02101,"881,51138035130 ",.02)
  1. ;;51138035130
  1. ;;9002226.02101,"881,51138035730 ",.01)
  1. ;;51138035730
  1. ;;9002226.02101,"881,51138035730 ",.02)
  1. ;;51138035730
  1. ;;9002226.02101,"881,51138035810 ",.01)
  1. ;;51138035810
  1. ;;9002226.02101,"881,51138035810 ",.02)
  1. ;;51138035810
  1. ;;9002226.02101,"881,51138035830 ",.01)
  1. ;;51138035830
  1. ;;9002226.02101,"881,51138035830 ",.02)
  1. ;;51138035830
  1. ;;9002226.02101,"881,51138035930 ",.01)
  1. ;;51138035930
  1. ;;9002226.02101,"881,51138035930 ",.02)
  1. ;;51138035930
  1. ;;9002226.02101,"881,51138042430 ",.01)
  1. ;;51138042430
  1. ;;9002226.02101,"881,51138042430 ",.02)
  1. ;;51138042430
  1. ;;9002226.02101,"881,51138042530 ",.01)
  1. ;;51138042530
  1. ;;9002226.02101,"881,51138042530 ",.02)
  1. ;;51138042530
  1. ;;9002226.02101,"881,51138042610 ",.01)
  1. ;;51138042610
  1. ;;9002226.02101,"881,51138042610 ",.02)
  1. ;;51138042610
  1. ;;9002226.02101,"881,51138042630 ",.01)
  1. ;;51138042630
  1. ;;9002226.02101,"881,51138042630 ",.02)
  1. ;;51138042630
  1. ;;9002226.02101,"881,51138042710 ",.01)
  1. ;;51138042710
  1. ;;9002226.02101,"881,51138042710 ",.02)
  1. ;;51138042710
  1. ;;9002226.02101,"881,51138042730 ",.01)
  1. ;;51138042730
  1. ;;9002226.02101,"881,51138042730 ",.02)
  1. ;;51138042730
  1. ;;9002226.02101,"881,51138044330 ",.01)
  1. ;;51138044330
  1. ;;9002226.02101,"881,51138044330 ",.02)
  1. ;;51138044330
  1. ;;9002226.02101,"881,51138044430 ",.01)
  1. ;;51138044430
  1. ;;9002226.02101,"881,51138044430 ",.02)
  1. ;;51138044430
  1. ;;9002226.02101,"881,51655023224 ",.01)
  1. ;;51655023224
  1. ;;9002226.02101,"881,51655023224 ",.02)
  1. ;;51655023224
  1. ;;9002226.02101,"881,51655023252 ",.01)
  1. ;;51655023252
  1. ;;9002226.02101,"881,51655023252 ",.02)
  1. ;;51655023252
  1. ;;9002226.02101,"881,51655023253 ",.01)
  1. ;;51655023253
  1. ;;9002226.02101,"881,51655023253 ",.02)
  1. ;;51655023253
  1. ;;9002226.02101,"881,51655023284 ",.01)
  1. ;;51655023284
  1. ;;9002226.02101,"881,51655023284 ",.02)
  1. ;;51655023284
  1. ;;9002226.02101,"881,51655028024 ",.01)
  1. ;;51655028024
  1. ;;9002226.02101,"881,51655028024 ",.02)
  1. ;;51655028024
  1. ;;9002226.02101,"881,51655028050 ",.01)
  1. ;;51655028050
  1. ;;9002226.02101,"881,51655028050 ",.02)
  1. ;;51655028050
  1. ;;9002226.02101,"881,51655028052 ",.01)
  1. ;;51655028052
  1. ;;9002226.02101,"881,51655028052 ",.02)
  1. ;;51655028052
  1. ;;9002226.02101,"881,51655028053 ",.01)
  1. ;;51655028053
  1. ;;9002226.02101,"881,51655028053 ",.02)
  1. ;;51655028053
  1. ;;9002226.02101,"881,51655029224 ",.01)
  1. ;;51655029224
  1. ;;9002226.02101,"881,51655029224 ",.02)
  1. ;;51655029224
  1. ;;9002226.02101,"881,51655029252 ",.01)
  1. ;;51655029252
  1. ;;9002226.02101,"881,51655029252 ",.02)
  1. ;;51655029252
  1. ;;9002226.02101,"881,51655029253 ",.01)
  1. ;;51655029253
  1. ;;9002226.02101,"881,51655029253 ",.02)
  1. ;;51655029253
  1. ;;9002226.02101,"881,51655062024 ",.01)
  1. ;;51655062024
  1. ;;9002226.02101,"881,51655062024 ",.02)
  1. ;;51655062024
  1. ;;9002226.02101,"881,51655067924 ",.01)
  1. ;;51655067924
  1. ;;9002226.02101,"881,51655067924 ",.02)
  1. ;;51655067924
  1. ;;9002226.02101,"881,51655067925 ",.01)
  1. ;;51655067925
  1. ;;9002226.02101,"881,51655067925 ",.02)
  1. ;;51655067925
  1. ;;9002226.02101,"881,51655067952 ",.01)
  1. ;;51655067952
  1. ;;9002226.02101,"881,51655067952 ",.02)
  1. ;;51655067952
  1. ;;9002226.02101,"881,51655067953 ",.01)
  1. ;;51655067953
  1. ;;9002226.02101,"881,51655067953 ",.02)
  1. ;;51655067953
  1. ;;9002226.02101,"881,51655067984 ",.01)
  1. ;;51655067984
  1. ;;9002226.02101,"881,51655067984 ",.02)
  1. ;;51655067984
  1. ;;9002226.02101,"881,51655072324 ",.01)
  1. ;;51655072324
  1. ;;9002226.02101,"881,51655072324 ",.02)
  1. ;;51655072324
  1. ;;9002226.02101,"881,51655072352 ",.01)
  1. ;;51655072352
  1. ;;9002226.02101,"881,51655072352 ",.02)
  1. ;;51655072352
  1. ;;9002226.02101,"881,51655072353 ",.01)
  1. ;;51655072353
  1. ;;9002226.02101,"881,51655072353 ",.02)
  1. ;;51655072353
  1. ;;9002226.02101,"881,51660016130 ",.01)
  1. ;;51660016130
  1. ;;9002226.02101,"881,51660016130 ",.02)
  1. ;;51660016130
  1. ;;9002226.02101,"881,51660016190 ",.01)
  1. ;;51660016190
  1. ;;9002226.02101,"881,51660016190 ",.02)
  1. ;;51660016190
  1. ;;9002226.02101,"881,51660016230 ",.01)
  1. ;;51660016230
  1. ;;9002226.02101,"881,51660016230 ",.02)
  1. ;;51660016230
  1. ;;9002226.02101,"881,51660016290 ",.01)
  1. ;;51660016290
  1. ;;9002226.02101,"881,51660016290 ",.02)
  1. ;;51660016290
  1. ;;9002226.02101,"881,51660016330 ",.01)
  1. ;;51660016330
  1. ;;9002226.02101,"881,51660016330 ",.02)
  1. ;;51660016330
  1. ;;9002226.02101,"881,51660016390 ",.01)
  1. ;;51660016390
  1. ;;9002226.02101,"881,51660016390 ",.02)
  1. ;;51660016390
  1. ;;9002226.02101,"881,51660052201 ",.01)
  1. ;;51660052201
  1. ;;9002226.02101,"881,51660052201 ",.02)
  1. ;;51660052201
  1. ;;9002226.02101,"881,51660052210 ",.01)
  1. ;;51660052210
  1. ;;9002226.02101,"881,51660052210 ",.02)
  1. ;;51660052210
  1. ;;9002226.02101,"881,51660052301 ",.01)
  1. ;;51660052301
  1. ;;9002226.02101,"881,51660052301 ",.02)
  1. ;;51660052301
  1. ;;9002226.02101,"881,51660052310 ",.01)
  1. ;;51660052310
  1. ;;9002226.02101,"881,51660052310 ",.02)
  1. ;;51660052310
  1. ;;9002226.02101,"881,51660052401 ",.01)
  1. ;;51660052401
  1. ;;9002226.02101,"881,51660052401 ",.02)
  1. ;;51660052401
  1. ;;9002226.02101,"881,51660052410 ",.01)
  1. ;;51660052410
  1. ;;9002226.02101,"881,51660052410 ",.02)
  1. ;;51660052410
  1. ;;9002226.02101,"881,51660052501 ",.01)
  1. ;;51660052501
  1. ;;9002226.02101,"881,51660052501 ",.02)
  1. ;;51660052501
  1. ;;9002226.02101,"881,51660052510 ",.01)
  1. ;;51660052510
  1. ;;9002226.02101,"881,51660052510 ",.02)
  1. ;;51660052510
  1. ;;9002226.02101,"881,51660053101 ",.01)
  1. ;;51660053101
  1. ;;9002226.02101,"881,51660053101 ",.02)
  1. ;;51660053101
  1. ;;9002226.02101,"881,51660053201 ",.01)
  1. ;;51660053201
  1. ;;9002226.02101,"881,51660053201 ",.02)
  1. ;;51660053201
  1. ;;9002226.02101,"881,51660053210 ",.01)
  1. ;;51660053210
  1. ;;9002226.02101,"881,51660053210 ",.02)
  1. ;;51660053210
  1. ;;9002226.02101,"881,51660053301 ",.01)
  1. ;;51660053301
  1. ;;9002226.02101,"881,51660053301 ",.02)
  1. ;;51660053301
  1. ;;9002226.02101,"881,51660053310 ",.01)
  1. ;;51660053310
  1. ;;9002226.02101,"881,51660053310 ",.02)
  1. ;;51660053310
  1. ;;9002226.02101,"881,51660053401 ",.01)
  1. ;;51660053401
  1. ;;9002226.02101,"881,51660053401 ",.02)
  1. ;;51660053401
  1. ;;9002226.02101,"881,51660053410 ",.01)
  1. ;;51660053410
  1. ;;9002226.02101,"881,51660053410 ",.02)
  1. ;;51660053410
  1. ;;9002226.02101,"881,51660053501 ",.01)
  1. ;;51660053501
  1. ;;9002226.02101,"881,51660053501 ",.02)
  1. ;;51660053501
  1. ;;9002226.02101,"881,51660053510 ",.01)
  1. ;;51660053510
  1. ;;9002226.02101,"881,51660053510 ",.02)
  1. ;;51660053510
  1. ;;9002226.02101,"881,51660053601 ",.01)
  1. ;;51660053601
  1. ;;9002226.02101,"881,51660053601 ",.02)
  1. ;;51660053601
  1. ;;9002226.02101,"881,51660053701 ",.01)
  1. ;;51660053701
  1. ;;9002226.02101,"881,51660053701 ",.02)
  1. ;;51660053701
  1. ;;9002226.02101,"881,51660053801 ",.01)
  1. ;;51660053801
  1. ;;9002226.02101,"881,51660053801 ",.02)
  1. ;;51660053801
  1. ;;9002226.02101,"881,51660054890 ",.01)
  1. ;;51660054890
  1. ;;9002226.02101,"881,51660054890 ",.02)
  1. ;;51660054890
  1. ;;9002226.02101,"881,51660054990 ",.01)
  1. ;;51660054990
  1. ;;9002226.02101,"881,51660054990 ",.02)
  1. ;;51660054990
  1. ;;9002226.02101,"881,51660055090 ",.01)
  1. ;;51660055090
  1. ;;9002226.02101,"881,51660055090 ",.02)
  1. ;;51660055090
  1. ;;9002226.02101,"881,51660055190 ",.01)
  1. ;;51660055190
  1. ;;9002226.02101,"881,51660055190 ",.02)
  1. ;;51660055190
  1. ;;9002226.02101,"881,51672403701 ",.01)
  1. ;;51672403701
  1. ;;9002226.02101,"881,51672403701 ",.02)
  1. ;;51672403701
  1. ;;9002226.02101,"881,51672403703 ",.01)
  1. ;;51672403703
  1. ;;9002226.02101,"881,51672403703 ",.02)
  1. ;;51672403703
  1. ;;9002226.02101,"881,51672403801 ",.01)
  1. ;;51672403801
  1. ;;9002226.02101,"881,51672403801 ",.02)
  1. ;;51672403801
  1. ;;9002226.02101,"881,51672403803 ",.01)
  1. ;;51672403803
  1. ;;9002226.02101,"881,51672403803 ",.02)
  1. ;;51672403803
  1. ;;9002226.02101,"881,51672403901 ",.01)
  1. ;;51672403901
  1. ;;9002226.02101,"881,51672403901 ",.02)
  1. ;;51672403901
  1. ;;9002226.02101,"881,51672403903 ",.01)
  1. ;;51672403903
  1. ;;9002226.02101,"881,51672403903 ",.02)
  1. ;;51672403903
  1. ;;9002226.02101,"881,51672404001 ",.01)
  1. ;;51672404001
  1. ;;9002226.02101,"881,51672404001 ",.02)
  1. ;;51672404001
  1. ;;9002226.02101,"881,51672404003 ",.01)
  1. ;;51672404003
  1. ;;9002226.02101,"881,51672404003 ",.02)
  1. ;;51672404003
  1. ;;9002226.02101,"881,51672404501 ",.01)
  1. ;;51672404501
  1. ;;9002226.02101,"881,51672404501 ",.02)
  1. ;;51672404501
  1. ;;9002226.02101,"881,51672404503 ",.01)
  1. ;;51672404503
  1. ;;9002226.02101,"881,51672404503 ",.02)
  1. ;;51672404503
  1. ;;9002226.02101,"881,51672404601 ",.01)
  1. ;;51672404601
  1. ;;9002226.02101,"881,51672404601 ",.02)
  1. ;;51672404601
  1. ;;9002226.02101,"881,51672404603 ",.01)
  1. ;;51672404603
  1. ;;9002226.02101,"881,51672404603 ",.02)
  1. ;;51672404603
  1. ;;9002226.02101,"881,51875095502 ",.01)
  1. ;;51875095502
  1. ;;9002226.02101,"881,51875095502 ",.02)
  1. ;;51875095502
  1. ;;9002226.02101,"881,51875095505 ",.01)
  1. ;;51875095505
  1. ;;9002226.02101,"881,51875095505 ",.02)
  1. ;;51875095505
  1. ;;9002226.02101,"881,52544066801 ",.01)
  1. ;;52544066801
  1. ;;9002226.02101,"881,52544066801 ",.02)
  1. ;;52544066801
  1. ;;9002226.02101,"881,52544066805 ",.01)
  1. ;;52544066805
  1. ;;9002226.02101,"881,52544066805 ",.02)
  1. ;;52544066805
  1. ;;9002226.02101,"881,52544066901 ",.01)
  1. ;;52544066901
  1. ;;9002226.02101,"881,52544066901 ",.02)
  1. ;;52544066901
  1. ;;9002226.02101,"881,52544066905 ",.01)
  1. ;;52544066905
  1. ;;9002226.02101,"881,52544066905 ",.02)
  1. ;;52544066905
  1. ;;9002226.02101,"881,52544067001 ",.01)
  1. ;;52544067001
  1. ;;9002226.02101,"881,52544067001 ",.02)
  1. ;;52544067001
  1. ;;9002226.02101,"881,52544067005 ",.01)
  1. ;;52544067005
  1. ;;9002226.02101,"881,52544067005 ",.02)
  1. ;;52544067005
  1. ;;9002226.02101,"881,52544067101 ",.01)
  1. ;;52544067101
  1. ;;9002226.02101,"881,52544067101 ",.02)
  1. ;;52544067101
  1. ;;9002226.02101,"881,52544068801 ",.01)
  1. ;;52544068801
  1. ;;9002226.02101,"881,52544068801 ",.02)
  1. ;;52544068801
  1. ;;9002226.02101,"881,52544068805 ",.01)
  1. ;;52544068805
  1. ;;9002226.02101,"881,52544068805 ",.02)
  1. ;;52544068805
  1. ;;9002226.02101,"881,52544068901 ",.01)
  1. ;;52544068901
  1. ;;9002226.02101,"881,52544068901 ",.02)
  1. ;;52544068901
  1. ;;9002226.02101,"881,52544068905 ",.01)
  1. ;;52544068905
  1. ;;9002226.02101,"881,52544068905 ",.02)
  1. ;;52544068905
  1. ;;9002226.02101,"881,52544069101 ",.01)
  1. ;;52544069101
  1. ;;9002226.02101,"881,52544069101 ",.02)
  1. ;;52544069101
  1. ;;9002226.02101,"881,52549403901 ",.01)
  1. ;;52549403901
  1. ;;9002226.02101,"881,52549403901 ",.02)
  1. ;;52549403901
  1. ;;9002226.02101,"881,52549403902 ",.01)
  1. ;;52549403902
  1. ;;9002226.02101,"881,52549403902 ",.02)
  1. ;;52549403902
  1. ;;9002226.02101,"881,52549403903 ",.01)
  1. ;;52549403903
  1. ;;9002226.02101,"881,52549403903 ",.02)
  1. ;;52549403903
  1. ;;9002226.02101,"881,52549404001 ",.01)
  1. ;;52549404001
  1. ;;9002226.02101,"881,52549404001 ",.02)
  1. ;;52549404001
  1. ;;9002226.02101,"881,52549404002 ",.01)
  1. ;;52549404002
  1. ;;9002226.02101,"881,52549404002 ",.02)
  1. ;;52549404002
  1. ;;9002226.02101,"881,52549404003 ",.01)
  1. ;;52549404003
  1. ;;9002226.02101,"881,52549404003 ",.02)
  1. ;;52549404003