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

BGPM5AJ.m

Go to the documentation of this file.
  1. BGPM5AJ ;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,"889,00179197530 ",.01)
  1. ;;00179197530
  1. ;;9002226.02101,"889,00179197530 ",.02)
  1. ;;00179197530
  1. ;;9002226.02101,"889,00179197550 ",.01)
  1. ;;00179197550
  1. ;;9002226.02101,"889,00179197550 ",.02)
  1. ;;00179197550
  1. ;;9002226.02101,"889,00179197560 ",.01)
  1. ;;00179197560
  1. ;;9002226.02101,"889,00179197560 ",.02)
  1. ;;00179197560
  1. ;;9002226.02101,"889,00179197590 ",.01)
  1. ;;00179197590
  1. ;;9002226.02101,"889,00179197590 ",.02)
  1. ;;00179197590
  1. ;;9002226.02101,"889,00182820200 ",.01)
  1. ;;00182820200
  1. ;;9002226.02101,"889,00182820200 ",.02)
  1. ;;00182820200
  1. ;;9002226.02101,"889,00182820289 ",.01)
  1. ;;00182820289
  1. ;;9002226.02101,"889,00182820289 ",.02)
  1. ;;00182820289
  1. ;;9002226.02101,"889,00182820300 ",.01)
  1. ;;00182820300
  1. ;;9002226.02101,"889,00182820300 ",.02)
  1. ;;00182820300
  1. ;;9002226.02101,"889,00182820389 ",.01)
  1. ;;00182820389
  1. ;;9002226.02101,"889,00182820389 ",.02)
  1. ;;00182820389
  1. ;;9002226.02101,"889,00182823589 ",.01)
  1. ;;00182823589
  1. ;;9002226.02101,"889,00182823589 ",.02)
  1. ;;00182823589
  1. ;;9002226.02101,"889,00182823689 ",.01)
  1. ;;00182823689
  1. ;;9002226.02101,"889,00182823689 ",.02)
  1. ;;00182823689
  1. ;;9002226.02101,"889,00185001001 ",.01)
  1. ;;00185001001
  1. ;;9002226.02101,"889,00185001001 ",.02)
  1. ;;00185001001
  1. ;;9002226.02101,"889,00185001005 ",.01)
  1. ;;00185001005
  1. ;;9002226.02101,"889,00185001005 ",.02)
  1. ;;00185001005
  1. ;;9002226.02101,"889,00185001010 ",.01)
  1. ;;00185001010
  1. ;;9002226.02101,"889,00185001010 ",.02)
  1. ;;00185001010
  1. ;;9002226.02101,"889,00185011701 ",.01)
  1. ;;00185011701
  1. ;;9002226.02101,"889,00185011701 ",.02)
  1. ;;00185011701
  1. ;;9002226.02101,"889,00185011705 ",.01)
  1. ;;00185011705
  1. ;;9002226.02101,"889,00185011705 ",.02)
  1. ;;00185011705
  1. ;;9002226.02101,"889,00185011710 ",.01)
  1. ;;00185011710
  1. ;;9002226.02101,"889,00185011710 ",.02)
  1. ;;00185011710
  1. ;;9002226.02101,"889,00185011801 ",.01)
  1. ;;00185011801
  1. ;;9002226.02101,"889,00185011801 ",.02)
  1. ;;00185011801
  1. ;;9002226.02101,"889,00185011805 ",.01)
  1. ;;00185011805
  1. ;;9002226.02101,"889,00185011805 ",.02)
  1. ;;00185011805
  1. ;;9002226.02101,"889,00185011810 ",.01)
  1. ;;00185011810
  1. ;;9002226.02101,"889,00185011810 ",.02)
  1. ;;00185011810
  1. ;;9002226.02101,"889,00185070101 ",.01)
  1. ;;00185070101
  1. ;;9002226.02101,"889,00185070101 ",.02)
  1. ;;00185070101
  1. ;;9002226.02101,"889,00185070105 ",.01)
  1. ;;00185070105
  1. ;;9002226.02101,"889,00185070105 ",.02)
  1. ;;00185070105
  1. ;;9002226.02101,"889,00185070130 ",.01)
  1. ;;00185070130
  1. ;;9002226.02101,"889,00185070130 ",.02)
  1. ;;00185070130
  1. ;;9002226.02101,"889,00185070401 ",.01)
  1. ;;00185070401
  1. ;;9002226.02101,"889,00185070401 ",.02)
  1. ;;00185070401
  1. ;;9002226.02101,"889,00185070405 ",.01)
  1. ;;00185070405
  1. ;;9002226.02101,"889,00185070405 ",.02)
  1. ;;00185070405
  1. ;;9002226.02101,"889,00185070430 ",.01)
  1. ;;00185070430
  1. ;;9002226.02101,"889,00185070430 ",.02)
  1. ;;00185070430
  1. ;;9002226.02101,"889,00185070701 ",.01)
  1. ;;00185070701
  1. ;;9002226.02101,"889,00185070701 ",.02)
  1. ;;00185070701
  1. ;;9002226.02101,"889,00185070705 ",.01)
  1. ;;00185070705
  1. ;;9002226.02101,"889,00185070705 ",.02)
  1. ;;00185070705
  1. ;;9002226.02101,"889,00185070730 ",.01)
  1. ;;00185070730
  1. ;;9002226.02101,"889,00185070730 ",.02)
  1. ;;00185070730
  1. ;;9002226.02101,"889,00185077101 ",.01)
  1. ;;00185077101
  1. ;;9002226.02101,"889,00185077101 ",.02)
  1. ;;00185077101
  1. ;;9002226.02101,"889,00185077130 ",.01)
  1. ;;00185077130
  1. ;;9002226.02101,"889,00185077130 ",.02)
  1. ;;00185077130
  1. ;;9002226.02101,"889,00185077401 ",.01)
  1. ;;00185077401
  1. ;;9002226.02101,"889,00185077401 ",.02)
  1. ;;00185077401
  1. ;;9002226.02101,"889,00185077430 ",.01)
  1. ;;00185077430
  1. ;;9002226.02101,"889,00185077430 ",.02)
  1. ;;00185077430
  1. ;;9002226.02101,"889,00186010810 ",.01)
  1. ;;00186010810
  1. ;;9002226.02101,"889,00186010810 ",.02)
  1. ;;00186010810
  1. ;;9002226.02101,"889,00186108805 ",.01)
  1. ;;00186108805
  1. ;;9002226.02101,"889,00186108805 ",.02)
  1. ;;00186108805
  1. ;;9002226.02101,"889,00186108839 ",.01)
  1. ;;00186108839
  1. ;;9002226.02101,"889,00186108839 ",.02)
  1. ;;00186108839
  1. ;;9002226.02101,"889,00186109005 ",.01)
  1. ;;00186109005
  1. ;;9002226.02101,"889,00186109005 ",.02)
  1. ;;00186109005
  1. ;;9002226.02101,"889,00186109039 ",.01)
  1. ;;00186109039
  1. ;;9002226.02101,"889,00186109039 ",.02)
  1. ;;00186109039
  1. ;;9002226.02101,"889,00186109050 ",.01)
  1. ;;00186109050
  1. ;;9002226.02101,"889,00186109050 ",.02)
  1. ;;00186109050
  1. ;;9002226.02101,"889,00186109205 ",.01)
  1. ;;00186109205
  1. ;;9002226.02101,"889,00186109205 ",.02)
  1. ;;00186109205
  1. ;;9002226.02101,"889,00186109239 ",.01)
  1. ;;00186109239
  1. ;;9002226.02101,"889,00186109239 ",.02)
  1. ;;00186109239
  1. ;;9002226.02101,"889,00186109405 ",.01)
  1. ;;00186109405
  1. ;;9002226.02101,"889,00186109405 ",.02)
  1. ;;00186109405
  1. ;;9002226.02101,"889,00228235810 ",.01)
  1. ;;00228235810
  1. ;;9002226.02101,"889,00228235810 ",.02)
  1. ;;00228235810
  1. ;;9002226.02101,"889,00228235850 ",.01)
  1. ;;00228235850
  1. ;;9002226.02101,"889,00228235850 ",.02)
  1. ;;00228235850
  1. ;;9002226.02101,"889,00228236010 ",.01)
  1. ;;00228236010
  1. ;;9002226.02101,"889,00228236010 ",.02)
  1. ;;00228236010
  1. ;;9002226.02101,"889,00228277802 ",.01)
  1. ;;00228277802
  1. ;;9002226.02101,"889,00228277802 ",.02)
  1. ;;00228277802
  1. ;;9002226.02101,"889,00228277811 ",.01)
  1. ;;00228277811
  1. ;;9002226.02101,"889,00228277811 ",.02)
  1. ;;00228277811
  1. ;;9002226.02101,"889,00228277850 ",.01)
  1. ;;00228277850
  1. ;;9002226.02101,"889,00228277850 ",.02)
  1. ;;00228277850
  1. ;;9002226.02101,"889,00228277902 ",.01)
  1. ;;00228277902
  1. ;;9002226.02101,"889,00228277902 ",.02)
  1. ;;00228277902
  1. ;;9002226.02101,"889,00228277911 ",.01)
  1. ;;00228277911
  1. ;;9002226.02101,"889,00228277911 ",.02)
  1. ;;00228277911
  1. ;;9002226.02101,"889,00228277950 ",.01)
  1. ;;00228277950
  1. ;;9002226.02101,"889,00228277950 ",.02)
  1. ;;00228277950
  1. ;;9002226.02101,"889,00228278002 ",.01)
  1. ;;00228278002
  1. ;;9002226.02101,"889,00228278002 ",.02)
  1. ;;00228278002
  1. ;;9002226.02101,"889,00228278011 ",.01)
  1. ;;00228278011
  1. ;;9002226.02101,"889,00228278011 ",.02)
  1. ;;00228278011
  1. ;;9002226.02101,"889,00228278050 ",.01)
  1. ;;00228278050
  1. ;;9002226.02101,"889,00228278050 ",.02)
  1. ;;00228278050
  1. ;;9002226.02101,"889,00228278102 ",.01)
  1. ;;00228278102
  1. ;;9002226.02101,"889,00228278102 ",.02)
  1. ;;00228278102
  1. ;;9002226.02101,"889,00228278111 ",.01)
  1. ;;00228278111
  1. ;;9002226.02101,"889,00228278111 ",.02)
  1. ;;00228278111
  1. ;;9002226.02101,"889,00228278150 ",.01)
  1. ;;00228278150
  1. ;;9002226.02101,"889,00228278150 ",.02)
  1. ;;00228278150
  1. ;;9002226.02101,"889,00245008401 ",.01)
  1. ;;00245008401
  1. ;;9002226.02101,"889,00245008401 ",.02)
  1. ;;00245008401
  1. ;;9002226.02101,"889,00245008410 ",.01)
  1. ;;00245008410
  1. ;;9002226.02101,"889,00245008410 ",.02)
  1. ;;00245008410
  1. ;;9002226.02101,"889,00245008411 ",.01)
  1. ;;00245008411
  1. ;;9002226.02101,"889,00245008411 ",.02)
  1. ;;00245008411
  1. ;;9002226.02101,"889,00245008489 ",.01)
  1. ;;00245008489
  1. ;;9002226.02101,"889,00245008489 ",.02)
  1. ;;00245008489
  1. ;;9002226.02101,"889,00245008501 ",.01)
  1. ;;00245008501
  1. ;;9002226.02101,"889,00245008501 ",.02)
  1. ;;00245008501
  1. ;;9002226.02101,"889,00245008510 ",.01)
  1. ;;00245008510
  1. ;;9002226.02101,"889,00245008510 ",.02)
  1. ;;00245008510
  1. ;;9002226.02101,"889,00245008511 ",.01)
  1. ;;00245008511
  1. ;;9002226.02101,"889,00245008511 ",.02)
  1. ;;00245008511
  1. ;;9002226.02101,"889,00245008589 ",.01)
  1. ;;00245008589
  1. ;;9002226.02101,"889,00245008589 ",.02)
  1. ;;00245008589
  1. ;;9002226.02101,"889,00245008601 ",.01)
  1. ;;00245008601
  1. ;;9002226.02101,"889,00245008601 ",.02)
  1. ;;00245008601
  1. ;;9002226.02101,"889,00245008610 ",.01)
  1. ;;00245008610
  1. ;;9002226.02101,"889,00245008610 ",.02)
  1. ;;00245008610
  1. ;;9002226.02101,"889,00245008611 ",.01)
  1. ;;00245008611
  1. ;;9002226.02101,"889,00245008611 ",.02)
  1. ;;00245008611
  1. ;;9002226.02101,"889,00245008689 ",.01)
  1. ;;00245008689
  1. ;;9002226.02101,"889,00245008689 ",.02)
  1. ;;00245008689
  1. ;;9002226.02101,"889,00245008701 ",.01)
  1. ;;00245008701
  1. ;;9002226.02101,"889,00245008701 ",.02)
  1. ;;00245008701
  1. ;;9002226.02101,"889,00245008710 ",.01)
  1. ;;00245008710
  1. ;;9002226.02101,"889,00245008710 ",.02)
  1. ;;00245008710
  1. ;;9002226.02101,"889,00245008711 ",.01)
  1. ;;00245008711
  1. ;;9002226.02101,"889,00245008711 ",.02)
  1. ;;00245008711
  1. ;;9002226.02101,"889,00245008789 ",.01)
  1. ;;00245008789
  1. ;;9002226.02101,"889,00245008789 ",.02)
  1. ;;00245008789
  1. ;;9002226.02101,"889,00247101230 ",.01)
  1. ;;00247101230
  1. ;;9002226.02101,"889,00247101230 ",.02)
  1. ;;00247101230
  1. ;;9002226.02101,"889,00247104430 ",.01)
  1. ;;00247104430
  1. ;;9002226.02101,"889,00247104430 ",.02)
  1. ;;00247104430
  1. ;;9002226.02101,"889,00247104460 ",.01)
  1. ;;00247104460
  1. ;;9002226.02101,"889,00247104460 ",.02)
  1. ;;00247104460
  1. ;;9002226.02101,"889,00247105160 ",.01)
  1. ;;00247105160
  1. ;;9002226.02101,"889,00247105160 ",.02)
  1. ;;00247105160
  1. ;;9002226.02101,"889,00247105199 ",.01)
  1. ;;00247105199
  1. ;;9002226.02101,"889,00247105199 ",.02)
  1. ;;00247105199
  1. ;;9002226.02101,"889,00247106500 ",.01)
  1. ;;00247106500
  1. ;;9002226.02101,"889,00247106500 ",.02)
  1. ;;00247106500
  1. ;;9002226.02101,"889,00247106560 ",.01)
  1. ;;00247106560
  1. ;;9002226.02101,"889,00247106560 ",.02)
  1. ;;00247106560
  1. ;;9002226.02101,"889,00247106577 ",.01)
  1. ;;00247106577
  1. ;;9002226.02101,"889,00247106577 ",.02)
  1. ;;00247106577
  1. ;;9002226.02101,"889,00247106590 ",.01)
  1. ;;00247106590
  1. ;;9002226.02101,"889,00247106590 ",.02)
  1. ;;00247106590
  1. ;;9002226.02101,"889,00247107200 ",.01)
  1. ;;00247107200
  1. ;;9002226.02101,"889,00247107200 ",.02)
  1. ;;00247107200
  1. ;;9002226.02101,"889,00247107206 ",.01)
  1. ;;00247107206
  1. ;;9002226.02101,"889,00247107206 ",.02)
  1. ;;00247107206
  1. ;;9002226.02101,"889,00247107214 ",.01)
  1. ;;00247107214
  1. ;;9002226.02101,"889,00247107214 ",.02)
  1. ;;00247107214
  1. ;;9002226.02101,"889,00247107290 ",.01)
  1. ;;00247107290
  1. ;;9002226.02101,"889,00247107290 ",.02)
  1. ;;00247107290
  1. ;;9002226.02101,"889,00247113330 ",.01)
  1. ;;00247113330
  1. ;;9002226.02101,"889,00247113330 ",.02)
  1. ;;00247113330
  1. ;;9002226.02101,"889,00247113360 ",.01)
  1. ;;00247113360
  1. ;;9002226.02101,"889,00247113360 ",.02)
  1. ;;00247113360
  1. ;;9002226.02101,"889,00247113430 ",.01)
  1. ;;00247113430
  1. ;;9002226.02101,"889,00247113430 ",.02)
  1. ;;00247113430
  1. ;;9002226.02101,"889,00247113460 ",.01)
  1. ;;00247113460
  1. ;;9002226.02101,"889,00247113460 ",.02)
  1. ;;00247113460
  1. ;;9002226.02101,"889,00247114602 ",.01)
  1. ;;00247114602
  1. ;;9002226.02101,"889,00247114602 ",.02)
  1. ;;00247114602
  1. ;;9002226.02101,"889,00247114607 ",.01)
  1. ;;00247114607
  1. ;;9002226.02101,"889,00247114607 ",.02)
  1. ;;00247114607
  1. ;;9002226.02101,"889,00247127330 ",.01)
  1. ;;00247127330
  1. ;;9002226.02101,"889,00247127330 ",.02)
  1. ;;00247127330
  1. ;;9002226.02101,"889,00247127399 ",.01)
  1. ;;00247127399
  1. ;;9002226.02101,"889,00247127399 ",.02)
  1. ;;00247127399
  1. ;;9002226.02101,"889,00247163430 ",.01)
  1. ;;00247163430
  1. ;;9002226.02101,"889,00247163430 ",.02)
  1. ;;00247163430
  1. ;;9002226.02101,"889,00247167130 ",.01)
  1. ;;00247167130
  1. ;;9002226.02101,"889,00247167130 ",.02)
  1. ;;00247167130
  1. ;;9002226.02101,"889,00247167230 ",.01)
  1. ;;00247167230
  1. ;;9002226.02101,"889,00247167230 ",.02)
  1. ;;00247167230
  1. ;;9002226.02101,"889,00247167330 ",.01)
  1. ;;00247167330
  1. ;;9002226.02101,"889,00247167330 ",.02)
  1. ;;00247167330
  1. ;;9002226.02101,"889,00247180100 ",.01)
  1. ;;00247180100
  1. ;;9002226.02101,"889,00247180100 ",.02)
  1. ;;00247180100
  1. ;;9002226.02101,"889,00247180130 ",.01)
  1. ;;00247180130
  1. ;;9002226.02101,"889,00247180130 ",.02)
  1. ;;00247180130
  1. ;;9002226.02101,"889,00247180160 ",.01)
  1. ;;00247180160
  1. ;;9002226.02101,"889,00247180160 ",.02)
  1. ;;00247180160
  1. ;;9002226.02101,"889,00247180177 ",.01)
  1. ;;00247180177
  1. ;;9002226.02101,"889,00247180177 ",.02)
  1. ;;00247180177
  1. ;;9002226.02101,"889,00247180190 ",.01)
  1. ;;00247180190
  1. ;;9002226.02101,"889,00247180190 ",.02)
  1. ;;00247180190