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