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