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

BGPM5ALM.m

Go to the documentation of this file.
BGPM5ALM ;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,"900,00115991113 ",.01)
 ;;00115991113
 ;;9002226.02101,"900,00115991113 ",.02)
 ;;00115991113
 ;;9002226.02101,"900,00122303435 ",.01)
 ;;00122303435
 ;;9002226.02101,"900,00122303435 ",.02)
 ;;00122303435
 ;;9002226.02101,"900,00122303535 ",.01)
 ;;00122303535
 ;;9002226.02101,"900,00122303535 ",.02)
 ;;00122303535
 ;;9002226.02101,"900,00122603036 ",.01)
 ;;00122603036
 ;;9002226.02101,"900,00122603036 ",.02)
 ;;00122603036
 ;;9002226.02101,"900,00143913005 ",.01)
 ;;00143913005
 ;;9002226.02101,"900,00143913005 ",.02)
 ;;00143913005
 ;;9002226.02101,"900,00143913060 ",.01)
 ;;00143913060
 ;;9002226.02101,"900,00143913060 ",.02)
 ;;00143913060
 ;;9002226.02101,"900,00143970705 ",.01)
 ;;00143970705
 ;;9002226.02101,"900,00143970705 ",.02)
 ;;00143970705
 ;;9002226.02101,"900,00143970730 ",.01)
 ;;00143970730
 ;;9002226.02101,"900,00143970730 ",.02)
 ;;00143970730
 ;;9002226.02101,"900,00143970760 ",.01)
 ;;00143970760
 ;;9002226.02101,"900,00143970760 ",.02)
 ;;00143970760
 ;;9002226.02101,"900,00172057610 ",.01)
 ;;00172057610
 ;;9002226.02101,"900,00172057610 ",.02)
 ;;00172057610
 ;;9002226.02101,"900,00172057649 ",.01)
 ;;00172057649
 ;;9002226.02101,"900,00172057649 ",.02)
 ;;00172057649
 ;;9002226.02101,"900,00172057680 ",.01)
 ;;00172057680
 ;;9002226.02101,"900,00172057680 ",.02)
 ;;00172057680
 ;;9002226.02101,"900,00172092610 ",.01)
 ;;00172092610
 ;;9002226.02101,"900,00172092610 ",.02)
 ;;00172092610
 ;;9002226.02101,"900,00172092649 ",.01)
 ;;00172092649
 ;;9002226.02101,"900,00172092649 ",.02)
 ;;00172092649
 ;;9002226.02101,"900,00172092680 ",.01)
 ;;00172092680
 ;;9002226.02101,"900,00172092680 ",.02)
 ;;00172092680
 ;;9002226.02101,"900,00172092810 ",.01)
 ;;00172092810
 ;;9002226.02101,"900,00172092810 ",.02)
 ;;00172092810
 ;;9002226.02101,"900,00172092849 ",.01)
 ;;00172092849
 ;;9002226.02101,"900,00172092849 ",.02)
 ;;00172092849
 ;;9002226.02101,"900,00172092880 ",.01)
 ;;00172092880
 ;;9002226.02101,"900,00172092880 ",.02)
 ;;00172092880
 ;;9002226.02101,"900,00179003701 ",.01)
 ;;00179003701
 ;;9002226.02101,"900,00179003701 ",.02)
 ;;00179003701
 ;;9002226.02101,"900,00179004801 ",.01)
 ;;00179004801
 ;;9002226.02101,"900,00179004801 ",.02)
 ;;00179004801
 ;;9002226.02101,"900,00179117101 ",.01)
 ;;00179117101
 ;;9002226.02101,"900,00179117101 ",.02)
 ;;00179117101
 ;;9002226.02101,"900,00179117160 ",.01)
 ;;00179117160
 ;;9002226.02101,"900,00179117160 ",.02)
 ;;00179117160
 ;;9002226.02101,"900,00179120901 ",.01)
 ;;00179120901
 ;;9002226.02101,"900,00179120901 ",.02)
 ;;00179120901
 ;;9002226.02101,"900,00179120902 ",.01)
 ;;00179120902
 ;;9002226.02101,"900,00179120902 ",.02)
 ;;00179120902
 ;;9002226.02101,"900,00179120912 ",.01)
 ;;00179120912
 ;;9002226.02101,"900,00179120912 ",.02)
 ;;00179120912
 ;;9002226.02101,"900,00179120970 ",.01)
 ;;00179120970
 ;;9002226.02101,"900,00179120970 ",.02)
 ;;00179120970
 ;;9002226.02101,"900,00179120990 ",.01)
 ;;00179120990
 ;;9002226.02101,"900,00179120990 ",.02)
 ;;00179120990
 ;;9002226.02101,"900,00179133150 ",.01)
 ;;00179133150
 ;;9002226.02101,"900,00179133150 ",.02)
 ;;00179133150
 ;;9002226.02101,"900,00179133190 ",.01)
 ;;00179133190
 ;;9002226.02101,"900,00179133190 ",.02)
 ;;00179133190
 ;;9002226.02101,"900,00179142101 ",.01)
 ;;00179142101
 ;;9002226.02101,"900,00179142101 ",.02)
 ;;00179142101
 ;;9002226.02101,"900,00179143401 ",.01)
 ;;00179143401
 ;;9002226.02101,"900,00179143401 ",.02)
 ;;00179143401
 ;;9002226.02101,"900,00179143430 ",.01)
 ;;00179143430
 ;;9002226.02101,"900,00179143430 ",.02)
 ;;00179143430
 ;;9002226.02101,"900,00179143450 ",.01)
 ;;00179143450
 ;;9002226.02101,"900,00179143450 ",.02)
 ;;00179143450
 ;;9002226.02101,"900,00179143460 ",.01)
 ;;00179143460
 ;;9002226.02101,"900,00179143460 ",.02)
 ;;00179143460
 ;;9002226.02101,"900,00179143490 ",.01)
 ;;00179143490
 ;;9002226.02101,"900,00179143490 ",.02)
 ;;00179143490
 ;;9002226.02101,"900,00179143501 ",.01)
 ;;00179143501
 ;;9002226.02101,"900,00179143501 ",.02)
 ;;00179143501
 ;;9002226.02101,"900,00179143530 ",.01)
 ;;00179143530
 ;;9002226.02101,"900,00179143530 ",.02)
 ;;00179143530
 ;;9002226.02101,"900,00179143550 ",.01)
 ;;00179143550
 ;;9002226.02101,"900,00179143550 ",.02)
 ;;00179143550
 ;;9002226.02101,"900,00179143560 ",.01)
 ;;00179143560
 ;;9002226.02101,"900,00179143560 ",.02)
 ;;00179143560
 ;;9002226.02101,"900,00179143590 ",.01)
 ;;00179143590
 ;;9002226.02101,"900,00179143590 ",.02)
 ;;00179143590
 ;;9002226.02101,"900,00179152101 ",.01)
 ;;00179152101
 ;;9002226.02101,"900,00179152101 ",.02)
 ;;00179152101
 ;;9002226.02101,"900,00179152111 ",.01)
 ;;00179152111
 ;;9002226.02101,"900,00179152111 ",.02)
 ;;00179152111
 ;;9002226.02101,"900,00179152130 ",.01)
 ;;00179152130
 ;;9002226.02101,"900,00179152130 ",.02)
 ;;00179152130
 ;;9002226.02101,"900,00179152150 ",.01)
 ;;00179152150
 ;;9002226.02101,"900,00179152150 ",.02)
 ;;00179152150
 ;;9002226.02101,"900,00179152160 ",.01)
 ;;00179152160
 ;;9002226.02101,"900,00179152160 ",.02)
 ;;00179152160
 ;;9002226.02101,"900,00179152190 ",.01)
 ;;00179152190
 ;;9002226.02101,"900,00179152190 ",.02)
 ;;00179152190
 ;;9002226.02101,"900,00179152701 ",.01)
 ;;00179152701
 ;;9002226.02101,"900,00179152701 ",.02)
 ;;00179152701
 ;;9002226.02101,"900,00179152730 ",.01)
 ;;00179152730
 ;;9002226.02101,"900,00179152730 ",.02)
 ;;00179152730
 ;;9002226.02101,"900,00179152750 ",.01)
 ;;00179152750
 ;;9002226.02101,"900,00179152750 ",.02)
 ;;00179152750
 ;;9002226.02101,"900,00179152760 ",.01)
 ;;00179152760
 ;;9002226.02101,"900,00179152760 ",.02)
 ;;00179152760
 ;;9002226.02101,"900,00179152790 ",.01)
 ;;00179152790
 ;;9002226.02101,"900,00179152790 ",.02)
 ;;00179152790
 ;;9002226.02101,"900,00179166070 ",.01)
 ;;00179166070
 ;;9002226.02101,"900,00179166070 ",.02)
 ;;00179166070
 ;;9002226.02101,"900,00179166071 ",.01)
 ;;00179166071
 ;;9002226.02101,"900,00179166071 ",.02)
 ;;00179166071
 ;;9002226.02101,"900,00179166072 ",.01)
 ;;00179166072
 ;;9002226.02101,"900,00179166072 ",.02)
 ;;00179166072
 ;;9002226.02101,"900,00182000101 ",.01)
 ;;00182000101
 ;;9002226.02101,"900,00182000101 ",.02)
 ;;00182000101
 ;;9002226.02101,"900,00182081101 ",.01)
 ;;00182081101
 ;;9002226.02101,"900,00182081101 ",.02)
 ;;00182081101
 ;;9002226.02101,"900,00182440401 ",.01)
 ;;00182440401
 ;;9002226.02101,"900,00182440401 ",.02)
 ;;00182440401
 ;;9002226.02101,"900,00182440501 ",.01)
 ;;00182440501
 ;;9002226.02101,"900,00182440501 ",.02)
 ;;00182440501
 ;;9002226.02101,"900,00182441701 ",.01)
 ;;00182441701
 ;;9002226.02101,"900,00182441701 ",.02)
 ;;00182441701
 ;;9002226.02101,"900,00182441801 ",.01)
 ;;00182441801
 ;;9002226.02101,"900,00182441801 ",.02)
 ;;00182441801
 ;;9002226.02101,"900,00182441810 ",.01)
 ;;00182441810
 ;;9002226.02101,"900,00182441810 ",.02)
 ;;00182441810
 ;;9002226.02101,"900,00185007001 ",.01)
 ;;00185007001
 ;;9002226.02101,"900,00185007001 ",.02)
 ;;00185007001
 ;;9002226.02101,"900,00185007005 ",.01)
 ;;00185007005
 ;;9002226.02101,"900,00185007005 ",.02)
 ;;00185007005
 ;;9002226.02101,"900,00185007009 ",.01)
 ;;00185007009
 ;;9002226.02101,"900,00185007009 ",.02)
 ;;00185007009
 ;;9002226.02101,"900,00185007010 ",.01)
 ;;00185007010
 ;;9002226.02101,"900,00185007010 ",.02)
 ;;00185007010
 ;;9002226.02101,"900,00185007060 ",.01)
 ;;00185007060
 ;;9002226.02101,"900,00185007060 ",.02)
 ;;00185007060
 ;;9002226.02101,"900,00185007201 ",.01)
 ;;00185007201
 ;;9002226.02101,"900,00185007201 ",.02)
 ;;00185007201
 ;;9002226.02101,"900,00185007205 ",.01)
 ;;00185007205
 ;;9002226.02101,"900,00185007205 ",.02)
 ;;00185007205
 ;;9002226.02101,"900,00185007209 ",.01)
 ;;00185007209
 ;;9002226.02101,"900,00185007209 ",.02)
 ;;00185007209
 ;;9002226.02101,"900,00185007210 ",.01)
 ;;00185007210
 ;;9002226.02101,"900,00185007210 ",.02)
 ;;00185007210
 ;;9002226.02101,"900,00185007260 ",.01)
 ;;00185007260
 ;;9002226.02101,"900,00185007260 ",.02)
 ;;00185007260
 ;;9002226.02101,"900,00185007401 ",.01)
 ;;00185007401
 ;;9002226.02101,"900,00185007401 ",.02)
 ;;00185007401
 ;;9002226.02101,"900,00185007405 ",.01)
 ;;00185007405
 ;;9002226.02101,"900,00185007405 ",.02)
 ;;00185007405
 ;;9002226.02101,"900,00185007409 ",.01)
 ;;00185007409
 ;;9002226.02101,"900,00185007409 ",.02)
 ;;00185007409
 ;;9002226.02101,"900,00185007410 ",.01)
 ;;00185007410
 ;;9002226.02101,"900,00185007410 ",.02)
 ;;00185007410
 ;;9002226.02101,"900,00185007460 ",.01)
 ;;00185007460
 ;;9002226.02101,"900,00185007460 ",.02)
 ;;00185007460
 ;;9002226.02101,"900,00185093798 ",.01)
 ;;00185093798
 ;;9002226.02101,"900,00185093798 ",.02)
 ;;00185093798
 ;;9002226.02101,"900,00185093898 ",.01)
 ;;00185093898
 ;;9002226.02101,"900,00185093898 ",.02)
 ;;00185093898
 ;;9002226.02101,"900,00185093997 ",.01)
 ;;00185093997
 ;;9002226.02101,"900,00185093997 ",.02)
 ;;00185093997
 ;;9002226.02101,"900,00185093998 ",.01)
 ;;00185093998
 ;;9002226.02101,"900,00185093998 ",.02)
 ;;00185093998
 ;;9002226.02101,"900,00185094097 ",.01)
 ;;00185094097
 ;;9002226.02101,"900,00185094097 ",.02)
 ;;00185094097
 ;;9002226.02101,"900,00185094098 ",.01)
 ;;00185094098
 ;;9002226.02101,"900,00185094098 ",.02)
 ;;00185094098
 ;;9002226.02101,"900,00228263306 ",.01)
 ;;00228263306
 ;;9002226.02101,"900,00228263306 ",.02)
 ;;00228263306
 ;;9002226.02101,"900,00228263350 ",.01)
 ;;00228263350
 ;;9002226.02101,"900,00228263350 ",.02)
 ;;00228263350
 ;;9002226.02101,"900,00228263406 ",.01)
 ;;00228263406
 ;;9002226.02101,"900,00228263406 ",.02)
 ;;00228263406
 ;;9002226.02101,"900,00228263450 ",.01)
 ;;00228263450
 ;;9002226.02101,"900,00228263450 ",.02)
 ;;00228263450
 ;;9002226.02101,"900,00228263506 ",.01)
 ;;00228263506
 ;;9002226.02101,"900,00228263506 ",.02)
 ;;00228263506
 ;;9002226.02101,"900,00228263550 ",.01)
 ;;00228263550
 ;;9002226.02101,"900,00228263550 ",.02)
 ;;00228263550
 ;;9002226.02101,"900,00245003623 ",.01)
 ;;00245003623
 ;;9002226.02101,"900,00245003623 ",.02)
 ;;00245003623
 ;;9002226.02101,"900,00245003642 ",.01)
 ;;00245003642
 ;;9002226.02101,"900,00245003642 ",.02)
 ;;00245003642
 ;;9002226.02101,"900,00245003660 ",.01)
 ;;00245003660
 ;;9002226.02101,"900,00245003660 ",.02)
 ;;00245003660
 ;;9002226.02101,"900,00245003689 ",.01)
 ;;00245003689
 ;;9002226.02101,"900,00245003689 ",.02)
 ;;00245003689
 ;;9002226.02101,"900,00245006310 ",.01)
 ;;00245006310
 ;;9002226.02101,"900,00245006310 ",.02)
 ;;00245006310
 ;;9002226.02101,"900,00245006311 ",.01)
 ;;00245006311
 ;;9002226.02101,"900,00245006311 ",.02)
 ;;00245006311
 ;;9002226.02101,"900,00245006351 ",.01)
 ;;00245006351
 ;;9002226.02101,"900,00245006351 ",.02)
 ;;00245006351
 ;;9002226.02101,"900,00245006711 ",.01)
 ;;00245006711
 ;;9002226.02101,"900,00245006711 ",.02)
 ;;00245006711
 ;;9002226.02101,"900,00245360023 ",.01)
 ;;00245360023
 ;;9002226.02101,"900,00245360023 ",.02)
 ;;00245360023
 ;;9002226.02101,"900,00245360060 ",.01)
 ;;00245360060
 ;;9002226.02101,"900,00245360060 ",.02)
 ;;00245360060
 ;;9002226.02101,"900,00247115202 ",.01)
 ;;00247115202
 ;;9002226.02101,"900,00247115202 ",.02)
 ;;00247115202
 ;;9002226.02101,"900,00247115214 ",.01)
 ;;00247115214
 ;;9002226.02101,"900,00247115214 ",.02)
 ;;00247115214
 ;;9002226.02101,"900,00247115430 ",.01)
 ;;00247115430
 ;;9002226.02101,"900,00247115430 ",.02)
 ;;00247115430
 ;;9002226.02101,"900,00247115445 ",.01)
 ;;00247115445
 ;;9002226.02101,"900,00247115445 ",.02)
 ;;00247115445