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