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

BGPM5AGX.m

Go to the documentation of this file.
BGPM5AGX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,55045297500 ",.02)
 ;;55045297500
 ;;9002226.02101,"882,55045297506 ",.01)
 ;;55045297506
 ;;9002226.02101,"882,55045297506 ",.02)
 ;;55045297506
 ;;9002226.02101,"882,55045297508 ",.01)
 ;;55045297508
 ;;9002226.02101,"882,55045297508 ",.02)
 ;;55045297508
 ;;9002226.02101,"882,55045300000 ",.01)
 ;;55045300000
 ;;9002226.02101,"882,55045300000 ",.02)
 ;;55045300000
 ;;9002226.02101,"882,55045300008 ",.01)
 ;;55045300008
 ;;9002226.02101,"882,55045300008 ",.02)
 ;;55045300008
 ;;9002226.02101,"882,55045305900 ",.01)
 ;;55045305900
 ;;9002226.02101,"882,55045305900 ",.02)
 ;;55045305900
 ;;9002226.02101,"882,55045305908 ",.01)
 ;;55045305908
 ;;9002226.02101,"882,55045305908 ",.02)
 ;;55045305908
 ;;9002226.02101,"882,55045315900 ",.01)
 ;;55045315900
 ;;9002226.02101,"882,55045315900 ",.02)
 ;;55045315900
 ;;9002226.02101,"882,55045315908 ",.01)
 ;;55045315908
 ;;9002226.02101,"882,55045315908 ",.02)
 ;;55045315908
 ;;9002226.02101,"882,55045317900 ",.01)
 ;;55045317900
 ;;9002226.02101,"882,55045317900 ",.02)
 ;;55045317900
 ;;9002226.02101,"882,55045318906 ",.01)
 ;;55045318906
 ;;9002226.02101,"882,55045318906 ",.02)
 ;;55045318906
 ;;9002226.02101,"882,55045322506 ",.01)
 ;;55045322506
 ;;9002226.02101,"882,55045322506 ",.02)
 ;;55045322506
 ;;9002226.02101,"882,55045322508 ",.01)
 ;;55045322508
 ;;9002226.02101,"882,55045322508 ",.02)
 ;;55045322508
 ;;9002226.02101,"882,55045337308 ",.01)
 ;;55045337308
 ;;9002226.02101,"882,55045337308 ",.02)
 ;;55045337308
 ;;9002226.02101,"882,55045364409 ",.01)
 ;;55045364409
 ;;9002226.02101,"882,55045364409 ",.02)
 ;;55045364409
 ;;9002226.02101,"882,55045377208 ",.01)
 ;;55045377208
 ;;9002226.02101,"882,55045377208 ",.02)
 ;;55045377208
 ;;9002226.02101,"882,55111013301 ",.01)
 ;;55111013301
 ;;9002226.02101,"882,55111013301 ",.02)
 ;;55111013301
 ;;9002226.02101,"882,55111013310 ",.01)
 ;;55111013310
 ;;9002226.02101,"882,55111013310 ",.02)
 ;;55111013310
 ;;9002226.02101,"882,55111013401 ",.01)
 ;;55111013401
 ;;9002226.02101,"882,55111013401 ",.02)
 ;;55111013401
 ;;9002226.02101,"882,55111013410 ",.01)
 ;;55111013410
 ;;9002226.02101,"882,55111013410 ",.02)
 ;;55111013410
 ;;9002226.02101,"882,55111043801 ",.01)
 ;;55111043801
 ;;9002226.02101,"882,55111043801 ",.02)
 ;;55111043801
 ;;9002226.02101,"882,55111043805 ",.01)
 ;;55111043805
 ;;9002226.02101,"882,55111043805 ",.02)
 ;;55111043805
 ;;9002226.02101,"882,55111043810 ",.01)
 ;;55111043810
 ;;9002226.02101,"882,55111043810 ",.02)
 ;;55111043810
 ;;9002226.02101,"882,55111043830 ",.01)
 ;;55111043830
 ;;9002226.02101,"882,55111043830 ",.02)
 ;;55111043830
 ;;9002226.02101,"882,55111043860 ",.01)
 ;;55111043860
 ;;9002226.02101,"882,55111043860 ",.02)
 ;;55111043860
 ;;9002226.02101,"882,55111043878 ",.01)
 ;;55111043878
 ;;9002226.02101,"882,55111043878 ",.02)
 ;;55111043878
 ;;9002226.02101,"882,55111043885 ",.01)
 ;;55111043885
 ;;9002226.02101,"882,55111043885 ",.02)
 ;;55111043885
 ;;9002226.02101,"882,55111043890 ",.01)
 ;;55111043890
 ;;9002226.02101,"882,55111043890 ",.02)
 ;;55111043890
 ;;9002226.02101,"882,55111043901 ",.01)
 ;;55111043901
 ;;9002226.02101,"882,55111043901 ",.02)
 ;;55111043901
 ;;9002226.02101,"882,55111043905 ",.01)
 ;;55111043905
 ;;9002226.02101,"882,55111043905 ",.02)
 ;;55111043905
 ;;9002226.02101,"882,55111043910 ",.01)
 ;;55111043910
 ;;9002226.02101,"882,55111043910 ",.02)
 ;;55111043910
 ;;9002226.02101,"882,55111043930 ",.01)
 ;;55111043930
 ;;9002226.02101,"882,55111043930 ",.02)
 ;;55111043930
 ;;9002226.02101,"882,55111043960 ",.01)
 ;;55111043960
 ;;9002226.02101,"882,55111043960 ",.02)
 ;;55111043960
 ;;9002226.02101,"882,55111043978 ",.01)
 ;;55111043978
 ;;9002226.02101,"882,55111043978 ",.02)
 ;;55111043978
 ;;9002226.02101,"882,55111043985 ",.01)
 ;;55111043985
 ;;9002226.02101,"882,55111043985 ",.02)
 ;;55111043985
 ;;9002226.02101,"882,55111043990 ",.01)
 ;;55111043990
 ;;9002226.02101,"882,55111043990 ",.02)
 ;;55111043990
 ;;9002226.02101,"882,55111044001 ",.01)
 ;;55111044001
 ;;9002226.02101,"882,55111044001 ",.02)
 ;;55111044001
 ;;9002226.02101,"882,55111044005 ",.01)
 ;;55111044005
 ;;9002226.02101,"882,55111044005 ",.02)
 ;;55111044005
 ;;9002226.02101,"882,55111044010 ",.01)
 ;;55111044010
 ;;9002226.02101,"882,55111044010 ",.02)
 ;;55111044010
 ;;9002226.02101,"882,55111044030 ",.01)
 ;;55111044030
 ;;9002226.02101,"882,55111044030 ",.02)
 ;;55111044030
 ;;9002226.02101,"882,55111044060 ",.01)
 ;;55111044060
 ;;9002226.02101,"882,55111044060 ",.02)
 ;;55111044060
 ;;9002226.02101,"882,55111044078 ",.01)
 ;;55111044078
 ;;9002226.02101,"882,55111044078 ",.02)
 ;;55111044078
 ;;9002226.02101,"882,55111044085 ",.01)
 ;;55111044085
 ;;9002226.02101,"882,55111044085 ",.02)
 ;;55111044085
 ;;9002226.02101,"882,55111044090 ",.01)
 ;;55111044090
 ;;9002226.02101,"882,55111044090 ",.02)
 ;;55111044090
 ;;9002226.02101,"882,55111044101 ",.01)
 ;;55111044101
 ;;9002226.02101,"882,55111044101 ",.02)
 ;;55111044101
 ;;9002226.02101,"882,55111044105 ",.01)
 ;;55111044105
 ;;9002226.02101,"882,55111044105 ",.02)
 ;;55111044105
 ;;9002226.02101,"882,55111044110 ",.01)
 ;;55111044110
 ;;9002226.02101,"882,55111044110 ",.02)
 ;;55111044110
 ;;9002226.02101,"882,55111044130 ",.01)
 ;;55111044130
 ;;9002226.02101,"882,55111044130 ",.02)
 ;;55111044130
 ;;9002226.02101,"882,55111044160 ",.01)
 ;;55111044160
 ;;9002226.02101,"882,55111044160 ",.02)
 ;;55111044160
 ;;9002226.02101,"882,55111044178 ",.01)
 ;;55111044178
 ;;9002226.02101,"882,55111044178 ",.02)
 ;;55111044178
 ;;9002226.02101,"882,55111044185 ",.01)
 ;;55111044185
 ;;9002226.02101,"882,55111044185 ",.02)
 ;;55111044185
 ;;9002226.02101,"882,55111044190 ",.01)
 ;;55111044190
 ;;9002226.02101,"882,55111044190 ",.02)
 ;;55111044190
 ;;9002226.02101,"882,55111048101 ",.01)
 ;;55111048101
 ;;9002226.02101,"882,55111048101 ",.02)
 ;;55111048101
 ;;9002226.02101,"882,55111048105 ",.01)
 ;;55111048105
 ;;9002226.02101,"882,55111048105 ",.02)
 ;;55111048105
 ;;9002226.02101,"882,55111048130 ",.01)
 ;;55111048130
 ;;9002226.02101,"882,55111048130 ",.02)
 ;;55111048130
 ;;9002226.02101,"882,55111048160 ",.01)
 ;;55111048160
 ;;9002226.02101,"882,55111048160 ",.02)
 ;;55111048160
 ;;9002226.02101,"882,55111048178 ",.01)
 ;;55111048178
 ;;9002226.02101,"882,55111048178 ",.02)
 ;;55111048178
 ;;9002226.02101,"882,55111048201 ",.01)
 ;;55111048201
 ;;9002226.02101,"882,55111048201 ",.02)
 ;;55111048201
 ;;9002226.02101,"882,55111048205 ",.01)
 ;;55111048205
 ;;9002226.02101,"882,55111048205 ",.02)
 ;;55111048205
 ;;9002226.02101,"882,55111048230 ",.01)
 ;;55111048230
 ;;9002226.02101,"882,55111048230 ",.02)
 ;;55111048230
 ;;9002226.02101,"882,55111048260 ",.01)
 ;;55111048260
 ;;9002226.02101,"882,55111048260 ",.02)
 ;;55111048260
 ;;9002226.02101,"882,55111048278 ",.01)
 ;;55111048278
 ;;9002226.02101,"882,55111048278 ",.02)
 ;;55111048278
 ;;9002226.02101,"882,55111062110 ",.01)
 ;;55111062110
 ;;9002226.02101,"882,55111062110 ",.02)
 ;;55111062110
 ;;9002226.02101,"882,55111062190 ",.01)
 ;;55111062190
 ;;9002226.02101,"882,55111062190 ",.02)
 ;;55111062190
 ;;9002226.02101,"882,55111062210 ",.01)
 ;;55111062210
 ;;9002226.02101,"882,55111062210 ",.02)
 ;;55111062210
 ;;9002226.02101,"882,55111062290 ",.01)
 ;;55111062290
 ;;9002226.02101,"882,55111062290 ",.02)
 ;;55111062290
 ;;9002226.02101,"882,55111062310 ",.01)
 ;;55111062310
 ;;9002226.02101,"882,55111062310 ",.02)
 ;;55111062310
 ;;9002226.02101,"882,55111062390 ",.01)
 ;;55111062390
 ;;9002226.02101,"882,55111062390 ",.02)
 ;;55111062390
 ;;9002226.02101,"882,55111062410 ",.01)
 ;;55111062410
 ;;9002226.02101,"882,55111062410 ",.02)
 ;;55111062410
 ;;9002226.02101,"882,55111062490 ",.01)
 ;;55111062490
 ;;9002226.02101,"882,55111062490 ",.02)
 ;;55111062490
 ;;9002226.02101,"882,55154052808 ",.01)
 ;;55154052808
 ;;9002226.02101,"882,55154052808 ",.02)
 ;;55154052808
 ;;9002226.02101,"882,55154052908 ",.01)
 ;;55154052908
 ;;9002226.02101,"882,55154052908 ",.02)
 ;;55154052908
 ;;9002226.02101,"882,55154068900 ",.01)
 ;;55154068900
 ;;9002226.02101,"882,55154068900 ",.02)
 ;;55154068900
 ;;9002226.02101,"882,55154069300 ",.01)
 ;;55154069300
 ;;9002226.02101,"882,55154069300 ",.02)
 ;;55154069300
 ;;9002226.02101,"882,55154073200 ",.01)
 ;;55154073200
 ;;9002226.02101,"882,55154073200 ",.02)
 ;;55154073200
 ;;9002226.02101,"882,55154073500 ",.01)
 ;;55154073500
 ;;9002226.02101,"882,55154073500 ",.02)
 ;;55154073500
 ;;9002226.02101,"882,55154505100 ",.01)
 ;;55154505100
 ;;9002226.02101,"882,55154505100 ",.02)
 ;;55154505100
 ;;9002226.02101,"882,55154505200 ",.01)
 ;;55154505200
 ;;9002226.02101,"882,55154505200 ",.02)
 ;;55154505200
 ;;9002226.02101,"882,55154505300 ",.01)
 ;;55154505300
 ;;9002226.02101,"882,55154505300 ",.02)
 ;;55154505300
 ;;9002226.02101,"882,55154546300 ",.01)
 ;;55154546300
 ;;9002226.02101,"882,55154546300 ",.02)
 ;;55154546300
 ;;9002226.02101,"882,55154546500 ",.01)
 ;;55154546500
 ;;9002226.02101,"882,55154546500 ",.02)
 ;;55154546500
 ;;9002226.02101,"882,55154547300 ",.01)
 ;;55154547300
 ;;9002226.02101,"882,55154547300 ",.02)
 ;;55154547300
 ;;9002226.02101,"882,55154547500 ",.01)
 ;;55154547500
 ;;9002226.02101,"882,55154547500 ",.02)
 ;;55154547500
 ;;9002226.02101,"882,55154549307 ",.01)
 ;;55154549307
 ;;9002226.02101,"882,55154549307 ",.02)
 ;;55154549307
 ;;9002226.02101,"882,55154615700 ",.01)
 ;;55154615700
 ;;9002226.02101,"882,55154615700 ",.02)
 ;;55154615700
 ;;9002226.02101,"882,55154615709 ",.01)
 ;;55154615709
 ;;9002226.02101,"882,55154615709 ",.02)
 ;;55154615709
 ;;9002226.02101,"882,55154615800 ",.01)
 ;;55154615800
 ;;9002226.02101,"882,55154615800 ",.02)
 ;;55154615800
 ;;9002226.02101,"882,55154615809 ",.01)
 ;;55154615809
 ;;9002226.02101,"882,55154615809 ",.02)
 ;;55154615809
 ;;9002226.02101,"882,55154615900 ",.01)
 ;;55154615900
 ;;9002226.02101,"882,55154615900 ",.02)
 ;;55154615900
 ;;9002226.02101,"882,55154615909 ",.01)
 ;;55154615909
 ;;9002226.02101,"882,55154615909 ",.02)
 ;;55154615909
 ;;9002226.02101,"882,55154617600 ",.01)
 ;;55154617600
 ;;9002226.02101,"882,55154617600 ",.02)
 ;;55154617600
 ;;9002226.02101,"882,55154617609 ",.01)
 ;;55154617609
 ;;9002226.02101,"882,55154617609 ",.02)
 ;;55154617609
 ;;9002226.02101,"882,55154619100 ",.01)
 ;;55154619100
 ;;9002226.02101,"882,55154619100 ",.02)
 ;;55154619100
 ;;9002226.02101,"882,55154619109 ",.01)
 ;;55154619109
 ;;9002226.02101,"882,55154619109 ",.02)
 ;;55154619109
 ;;9002226.02101,"882,55154620408 ",.01)
 ;;55154620408
 ;;9002226.02101,"882,55154620408 ",.02)
 ;;55154620408
 ;;9002226.02101,"882,55154620608 ",.01)
 ;;55154620608
 ;;9002226.02101,"882,55154620608 ",.02)
 ;;55154620608
 ;;9002226.02101,"882,55154620708 ",.01)
 ;;55154620708
 ;;9002226.02101,"882,55154620708 ",.02)
 ;;55154620708
 ;;9002226.02101,"882,55154665003 ",.01)
 ;;55154665003
 ;;9002226.02101,"882,55154665003 ",.02)
 ;;55154665003
 ;;9002226.02101,"882,55154665103 ",.01)
 ;;55154665103
 ;;9002226.02101,"882,55154665103 ",.02)
 ;;55154665103
 ;;9002226.02101,"882,55154665203 ",.01)
 ;;55154665203
 ;;9002226.02101,"882,55154665203 ",.02)
 ;;55154665203
 ;;9002226.02101,"882,55154665303 ",.01)
 ;;55154665303
 ;;9002226.02101,"882,55154665303 ",.02)
 ;;55154665303
 ;;9002226.02101,"882,55289021230 ",.01)
 ;;55289021230
 ;;9002226.02101,"882,55289021230 ",.02)
 ;;55289021230
 ;;9002226.02101,"882,55289021290 ",.01)
 ;;55289021290