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

BGPM5BE.m

Go to the documentation of this file.
BGPM5BE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,67544029530 ",.02)
 ;;67544029530
 ;;9002226.02101,"1044,67544029531 ",.01)
 ;;67544029531
 ;;9002226.02101,"1044,67544029531 ",.02)
 ;;67544029531
 ;;9002226.02101,"1044,67544029532 ",.01)
 ;;67544029532
 ;;9002226.02101,"1044,67544029532 ",.02)
 ;;67544029532
 ;;9002226.02101,"1044,67544029553 ",.01)
 ;;67544029553
 ;;9002226.02101,"1044,67544029553 ",.02)
 ;;67544029553
 ;;9002226.02101,"1044,67544029560 ",.01)
 ;;67544029560
 ;;9002226.02101,"1044,67544029560 ",.02)
 ;;67544029560
 ;;9002226.02101,"1044,67544029570 ",.01)
 ;;67544029570
 ;;9002226.02101,"1044,67544029570 ",.02)
 ;;67544029570
 ;;9002226.02101,"1044,67544029580 ",.01)
 ;;67544029580
 ;;9002226.02101,"1044,67544029580 ",.02)
 ;;67544029580
 ;;9002226.02101,"1044,67544031615 ",.01)
 ;;67544031615
 ;;9002226.02101,"1044,67544031615 ",.02)
 ;;67544031615
 ;;9002226.02101,"1044,67544031630 ",.01)
 ;;67544031630
 ;;9002226.02101,"1044,67544031630 ",.02)
 ;;67544031630
 ;;9002226.02101,"1044,67544031631 ",.01)
 ;;67544031631
 ;;9002226.02101,"1044,67544031631 ",.02)
 ;;67544031631
 ;;9002226.02101,"1044,67544031632 ",.01)
 ;;67544031632
 ;;9002226.02101,"1044,67544031632 ",.02)
 ;;67544031632
 ;;9002226.02101,"1044,67544031645 ",.01)
 ;;67544031645
 ;;9002226.02101,"1044,67544031645 ",.02)
 ;;67544031645
 ;;9002226.02101,"1044,67544031653 ",.01)
 ;;67544031653
 ;;9002226.02101,"1044,67544031653 ",.02)
 ;;67544031653
 ;;9002226.02101,"1044,67544031660 ",.01)
 ;;67544031660
 ;;9002226.02101,"1044,67544031660 ",.02)
 ;;67544031660
 ;;9002226.02101,"1044,67544031670 ",.01)
 ;;67544031670
 ;;9002226.02101,"1044,67544031670 ",.02)
 ;;67544031670
 ;;9002226.02101,"1044,67544031715 ",.01)
 ;;67544031715
 ;;9002226.02101,"1044,67544031715 ",.02)
 ;;67544031715
 ;;9002226.02101,"1044,67544031730 ",.01)
 ;;67544031730
 ;;9002226.02101,"1044,67544031730 ",.02)
 ;;67544031730
 ;;9002226.02101,"1044,67544031732 ",.01)
 ;;67544031732
 ;;9002226.02101,"1044,67544031732 ",.02)
 ;;67544031732
 ;;9002226.02101,"1044,67544031753 ",.01)
 ;;67544031753
 ;;9002226.02101,"1044,67544031753 ",.02)
 ;;67544031753
 ;;9002226.02101,"1044,67544031760 ",.01)
 ;;67544031760
 ;;9002226.02101,"1044,67544031760 ",.02)
 ;;67544031760
 ;;9002226.02101,"1044,67544033130 ",.01)
 ;;67544033130
 ;;9002226.02101,"1044,67544033130 ",.02)
 ;;67544033130
 ;;9002226.02101,"1044,67544033153 ",.01)
 ;;67544033153
 ;;9002226.02101,"1044,67544033153 ",.02)
 ;;67544033153
 ;;9002226.02101,"1044,67544033160 ",.01)
 ;;67544033160
 ;;9002226.02101,"1044,67544033160 ",.02)
 ;;67544033160
 ;;9002226.02101,"1044,67544035715 ",.01)
 ;;67544035715
 ;;9002226.02101,"1044,67544035715 ",.02)
 ;;67544035715
 ;;9002226.02101,"1044,67544035730 ",.01)
 ;;67544035730
 ;;9002226.02101,"1044,67544035730 ",.02)
 ;;67544035730
 ;;9002226.02101,"1044,67544035745 ",.01)
 ;;67544035745
 ;;9002226.02101,"1044,67544035745 ",.02)
 ;;67544035745
 ;;9002226.02101,"1044,67544035753 ",.01)
 ;;67544035753
 ;;9002226.02101,"1044,67544035753 ",.02)
 ;;67544035753
 ;;9002226.02101,"1044,67544035815 ",.01)
 ;;67544035815
 ;;9002226.02101,"1044,67544035815 ",.02)
 ;;67544035815
 ;;9002226.02101,"1044,67544035830 ",.01)
 ;;67544035830
 ;;9002226.02101,"1044,67544035830 ",.02)
 ;;67544035830
 ;;9002226.02101,"1044,67544035860 ",.01)
 ;;67544035860
 ;;9002226.02101,"1044,67544035860 ",.02)
 ;;67544035860
 ;;9002226.02101,"1044,67544036015 ",.01)
 ;;67544036015
 ;;9002226.02101,"1044,67544036015 ",.02)
 ;;67544036015
 ;;9002226.02101,"1044,67544036030 ",.01)
 ;;67544036030
 ;;9002226.02101,"1044,67544036030 ",.02)
 ;;67544036030
 ;;9002226.02101,"1044,67544036045 ",.01)
 ;;67544036045
 ;;9002226.02101,"1044,67544036045 ",.02)
 ;;67544036045
 ;;9002226.02101,"1044,67544036053 ",.01)
 ;;67544036053
 ;;9002226.02101,"1044,67544036053 ",.02)
 ;;67544036053
 ;;9002226.02101,"1044,67544036060 ",.01)
 ;;67544036060
 ;;9002226.02101,"1044,67544036060 ",.02)
 ;;67544036060
 ;;9002226.02101,"1044,67544036073 ",.01)
 ;;67544036073
 ;;9002226.02101,"1044,67544036073 ",.02)
 ;;67544036073
 ;;9002226.02101,"1044,67544036515 ",.01)
 ;;67544036515
 ;;9002226.02101,"1044,67544036515 ",.02)
 ;;67544036515
 ;;9002226.02101,"1044,67544036530 ",.01)
 ;;67544036530
 ;;9002226.02101,"1044,67544036530 ",.02)
 ;;67544036530
 ;;9002226.02101,"1044,67544036553 ",.01)
 ;;67544036553
 ;;9002226.02101,"1044,67544036553 ",.02)
 ;;67544036553
 ;;9002226.02101,"1044,67544036560 ",.01)
 ;;67544036560
 ;;9002226.02101,"1044,67544036560 ",.02)
 ;;67544036560
 ;;9002226.02101,"1044,67544036615 ",.01)
 ;;67544036615
 ;;9002226.02101,"1044,67544036615 ",.02)
 ;;67544036615
 ;;9002226.02101,"1044,67544036630 ",.01)
 ;;67544036630
 ;;9002226.02101,"1044,67544036630 ",.02)
 ;;67544036630
 ;;9002226.02101,"1044,67544036645 ",.01)
 ;;67544036645
 ;;9002226.02101,"1044,67544036645 ",.02)
 ;;67544036645
 ;;9002226.02101,"1044,67544036653 ",.01)
 ;;67544036653
 ;;9002226.02101,"1044,67544036653 ",.02)
 ;;67544036653
 ;;9002226.02101,"1044,67544036660 ",.01)
 ;;67544036660
 ;;9002226.02101,"1044,67544036660 ",.02)
 ;;67544036660
 ;;9002226.02101,"1044,67544036673 ",.01)
 ;;67544036673
 ;;9002226.02101,"1044,67544036673 ",.02)
 ;;67544036673
 ;;9002226.02101,"1044,67544040915 ",.01)
 ;;67544040915
 ;;9002226.02101,"1044,67544040915 ",.02)
 ;;67544040915
 ;;9002226.02101,"1044,67544040930 ",.01)
 ;;67544040930
 ;;9002226.02101,"1044,67544040930 ",.02)
 ;;67544040930
 ;;9002226.02101,"1044,67544040932 ",.01)
 ;;67544040932
 ;;9002226.02101,"1044,67544040932 ",.02)
 ;;67544040932
 ;;9002226.02101,"1044,67544040945 ",.01)
 ;;67544040945
 ;;9002226.02101,"1044,67544040945 ",.02)
 ;;67544040945
 ;;9002226.02101,"1044,67544040953 ",.01)
 ;;67544040953
 ;;9002226.02101,"1044,67544040953 ",.02)
 ;;67544040953
 ;;9002226.02101,"1044,67544040960 ",.01)
 ;;67544040960
 ;;9002226.02101,"1044,67544040960 ",.02)
 ;;67544040960
 ;;9002226.02101,"1044,67544040973 ",.01)
 ;;67544040973
 ;;9002226.02101,"1044,67544040973 ",.02)
 ;;67544040973
 ;;9002226.02101,"1044,67544042915 ",.01)
 ;;67544042915
 ;;9002226.02101,"1044,67544042915 ",.02)
 ;;67544042915
 ;;9002226.02101,"1044,67544042930 ",.01)
 ;;67544042930
 ;;9002226.02101,"1044,67544042930 ",.02)
 ;;67544042930
 ;;9002226.02101,"1044,67544042931 ",.01)
 ;;67544042931
 ;;9002226.02101,"1044,67544042931 ",.02)
 ;;67544042931
 ;;9002226.02101,"1044,67544042932 ",.01)
 ;;67544042932
 ;;9002226.02101,"1044,67544042932 ",.02)
 ;;67544042932
 ;;9002226.02101,"1044,67544042960 ",.01)
 ;;67544042960
 ;;9002226.02101,"1044,67544042960 ",.02)
 ;;67544042960
 ;;9002226.02101,"1044,67544043015 ",.01)
 ;;67544043015
 ;;9002226.02101,"1044,67544043015 ",.02)
 ;;67544043015
 ;;9002226.02101,"1044,67544043030 ",.01)
 ;;67544043030
 ;;9002226.02101,"1044,67544043030 ",.02)
 ;;67544043030
 ;;9002226.02101,"1044,67544043031 ",.01)
 ;;67544043031
 ;;9002226.02101,"1044,67544043031 ",.02)
 ;;67544043031
 ;;9002226.02101,"1044,67544043045 ",.01)
 ;;67544043045
 ;;9002226.02101,"1044,67544043045 ",.02)
 ;;67544043045
 ;;9002226.02101,"1044,67544043053 ",.01)
 ;;67544043053
 ;;9002226.02101,"1044,67544043053 ",.02)
 ;;67544043053
 ;;9002226.02101,"1044,67544043415 ",.01)
 ;;67544043415
 ;;9002226.02101,"1044,67544043415 ",.02)
 ;;67544043415
 ;;9002226.02101,"1044,67544043430 ",.01)
 ;;67544043430
 ;;9002226.02101,"1044,67544043430 ",.02)
 ;;67544043430
 ;;9002226.02101,"1044,67544043445 ",.01)
 ;;67544043445
 ;;9002226.02101,"1044,67544043445 ",.02)
 ;;67544043445
 ;;9002226.02101,"1044,67544045515 ",.01)
 ;;67544045515
 ;;9002226.02101,"1044,67544045515 ",.02)
 ;;67544045515
 ;;9002226.02101,"1044,67544045530 ",.01)
 ;;67544045530
 ;;9002226.02101,"1044,67544045530 ",.02)
 ;;67544045530
 ;;9002226.02101,"1044,67544045553 ",.01)
 ;;67544045553
 ;;9002226.02101,"1044,67544045553 ",.02)
 ;;67544045553
 ;;9002226.02101,"1044,67544045560 ",.01)
 ;;67544045560
 ;;9002226.02101,"1044,67544045560 ",.02)
 ;;67544045560
 ;;9002226.02101,"1044,67544050015 ",.01)
 ;;67544050015
 ;;9002226.02101,"1044,67544050015 ",.02)
 ;;67544050015
 ;;9002226.02101,"1044,67544050030 ",.01)
 ;;67544050030
 ;;9002226.02101,"1044,67544050030 ",.02)
 ;;67544050030
 ;;9002226.02101,"1044,67544050053 ",.01)
 ;;67544050053
 ;;9002226.02101,"1044,67544050053 ",.02)
 ;;67544050053
 ;;9002226.02101,"1044,67544050060 ",.01)
 ;;67544050060
 ;;9002226.02101,"1044,67544050060 ",.02)
 ;;67544050060
 ;;9002226.02101,"1044,67544051631 ",.01)
 ;;67544051631
 ;;9002226.02101,"1044,67544051631 ",.02)
 ;;67544051631
 ;;9002226.02101,"1044,67544052830 ",.01)
 ;;67544052830
 ;;9002226.02101,"1044,67544052830 ",.02)
 ;;67544052830
 ;;9002226.02101,"1044,67544052832 ",.01)
 ;;67544052832
 ;;9002226.02101,"1044,67544052832 ",.02)
 ;;67544052832
 ;;9002226.02101,"1044,67544052853 ",.01)
 ;;67544052853
 ;;9002226.02101,"1044,67544052853 ",.02)
 ;;67544052853
 ;;9002226.02101,"1044,67544052860 ",.01)
 ;;67544052860
 ;;9002226.02101,"1044,67544052860 ",.02)
 ;;67544052860
 ;;9002226.02101,"1044,67544052870 ",.01)
 ;;67544052870
 ;;9002226.02101,"1044,67544052870 ",.02)
 ;;67544052870
 ;;9002226.02101,"1044,67544052880 ",.01)
 ;;67544052880
 ;;9002226.02101,"1044,67544052880 ",.02)
 ;;67544052880
 ;;9002226.02101,"1044,67544052892 ",.01)
 ;;67544052892
 ;;9002226.02101,"1044,67544052892 ",.02)
 ;;67544052892
 ;;9002226.02101,"1044,67544053731 ",.01)
 ;;67544053731
 ;;9002226.02101,"1044,67544053731 ",.02)
 ;;67544053731
 ;;9002226.02101,"1044,67544057215 ",.01)
 ;;67544057215
 ;;9002226.02101,"1044,67544057215 ",.02)
 ;;67544057215
 ;;9002226.02101,"1044,67544057230 ",.01)
 ;;67544057230
 ;;9002226.02101,"1044,67544057230 ",.02)
 ;;67544057230
 ;;9002226.02101,"1044,67544057231 ",.01)
 ;;67544057231
 ;;9002226.02101,"1044,67544057231 ",.02)
 ;;67544057231
 ;;9002226.02101,"1044,67544057232 ",.01)
 ;;67544057232
 ;;9002226.02101,"1044,67544057232 ",.02)
 ;;67544057232
 ;;9002226.02101,"1044,67544057245 ",.01)
 ;;67544057245
 ;;9002226.02101,"1044,67544057245 ",.02)
 ;;67544057245
 ;;9002226.02101,"1044,67544057253 ",.01)
 ;;67544057253
 ;;9002226.02101,"1044,67544057253 ",.02)
 ;;67544057253
 ;;9002226.02101,"1044,67544057260 ",.01)
 ;;67544057260
 ;;9002226.02101,"1044,67544057260 ",.02)
 ;;67544057260
 ;;9002226.02101,"1044,67544057270 ",.01)
 ;;67544057270
 ;;9002226.02101,"1044,67544057270 ",.02)
 ;;67544057270
 ;;9002226.02101,"1044,67544057280 ",.01)
 ;;67544057280
 ;;9002226.02101,"1044,67544057280 ",.02)
 ;;67544057280
 ;;9002226.02101,"1044,67544057292 ",.01)
 ;;67544057292
 ;;9002226.02101,"1044,67544057292 ",.02)
 ;;67544057292
 ;;9002226.02101,"1044,67544058815 ",.01)
 ;;67544058815
 ;;9002226.02101,"1044,67544058815 ",.02)
 ;;67544058815
 ;;9002226.02101,"1044,67544058830 ",.01)
 ;;67544058830
 ;;9002226.02101,"1044,67544058830 ",.02)
 ;;67544058830
 ;;9002226.02101,"1044,67544058845 ",.01)
 ;;67544058845
 ;;9002226.02101,"1044,67544058845 ",.02)
 ;;67544058845
 ;;9002226.02101,"1044,67544058853 ",.01)
 ;;67544058853
 ;;9002226.02101,"1044,67544058853 ",.02)
 ;;67544058853
 ;;9002226.02101,"1044,67544058860 ",.01)
 ;;67544058860
 ;;9002226.02101,"1044,67544058860 ",.02)
 ;;67544058860
 ;;9002226.02101,"1044,67544061730 ",.01)
 ;;67544061730
 ;;9002226.02101,"1044,67544061730 ",.02)
 ;;67544061730
 ;;9002226.02101,"1044,67544061732 ",.01)
 ;;67544061732
 ;;9002226.02101,"1044,67544061732 ",.02)
 ;;67544061732
 ;;9002226.02101,"1044,67544064815 ",.01)
 ;;67544064815
 ;;9002226.02101,"1044,67544064815 ",.02)
 ;;67544064815