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

BGPM5AKJ.m

Go to the documentation of this file.
  1. BGPM5AKJ ;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,67544004360 ",.01)
  1. ;;67544004360
  1. ;;9002226.02101,"889,67544004360 ",.02)
  1. ;;67544004360
  1. ;;9002226.02101,"889,67544004380 ",.01)
  1. ;;67544004380
  1. ;;9002226.02101,"889,67544004380 ",.02)
  1. ;;67544004380
  1. ;;9002226.02101,"889,67544007630 ",.01)
  1. ;;67544007630
  1. ;;9002226.02101,"889,67544007630 ",.02)
  1. ;;67544007630
  1. ;;9002226.02101,"889,67544007631 ",.01)
  1. ;;67544007631
  1. ;;9002226.02101,"889,67544007631 ",.02)
  1. ;;67544007631
  1. ;;9002226.02101,"889,67544007632 ",.01)
  1. ;;67544007632
  1. ;;9002226.02101,"889,67544007632 ",.02)
  1. ;;67544007632
  1. ;;9002226.02101,"889,67544007645 ",.01)
  1. ;;67544007645
  1. ;;9002226.02101,"889,67544007645 ",.02)
  1. ;;67544007645
  1. ;;9002226.02101,"889,67544007653 ",.01)
  1. ;;67544007653
  1. ;;9002226.02101,"889,67544007653 ",.02)
  1. ;;67544007653
  1. ;;9002226.02101,"889,67544007660 ",.01)
  1. ;;67544007660
  1. ;;9002226.02101,"889,67544007660 ",.02)
  1. ;;67544007660
  1. ;;9002226.02101,"889,67544007670 ",.01)
  1. ;;67544007670
  1. ;;9002226.02101,"889,67544007670 ",.02)
  1. ;;67544007670
  1. ;;9002226.02101,"889,67544007673 ",.01)
  1. ;;67544007673
  1. ;;9002226.02101,"889,67544007673 ",.02)
  1. ;;67544007673
  1. ;;9002226.02101,"889,67544007680 ",.01)
  1. ;;67544007680
  1. ;;9002226.02101,"889,67544007680 ",.02)
  1. ;;67544007680
  1. ;;9002226.02101,"889,67544007686 ",.01)
  1. ;;67544007686
  1. ;;9002226.02101,"889,67544007686 ",.02)
  1. ;;67544007686
  1. ;;9002226.02101,"889,67544007692 ",.01)
  1. ;;67544007692
  1. ;;9002226.02101,"889,67544007692 ",.02)
  1. ;;67544007692
  1. ;;9002226.02101,"889,67544007694 ",.01)
  1. ;;67544007694
  1. ;;9002226.02101,"889,67544007694 ",.02)
  1. ;;67544007694
  1. ;;9002226.02101,"889,67544008730 ",.01)
  1. ;;67544008730
  1. ;;9002226.02101,"889,67544008730 ",.02)
  1. ;;67544008730
  1. ;;9002226.02101,"889,67544008731 ",.01)
  1. ;;67544008731
  1. ;;9002226.02101,"889,67544008731 ",.02)
  1. ;;67544008731
  1. ;;9002226.02101,"889,67544008732 ",.01)
  1. ;;67544008732
  1. ;;9002226.02101,"889,67544008732 ",.02)
  1. ;;67544008732
  1. ;;9002226.02101,"889,67544008745 ",.01)
  1. ;;67544008745
  1. ;;9002226.02101,"889,67544008745 ",.02)
  1. ;;67544008745
  1. ;;9002226.02101,"889,67544008753 ",.01)
  1. ;;67544008753
  1. ;;9002226.02101,"889,67544008753 ",.02)
  1. ;;67544008753
  1. ;;9002226.02101,"889,67544008760 ",.01)
  1. ;;67544008760
  1. ;;9002226.02101,"889,67544008760 ",.02)
  1. ;;67544008760
  1. ;;9002226.02101,"889,67544008770 ",.01)
  1. ;;67544008770
  1. ;;9002226.02101,"889,67544008770 ",.02)
  1. ;;67544008770
  1. ;;9002226.02101,"889,67544008773 ",.01)
  1. ;;67544008773
  1. ;;9002226.02101,"889,67544008773 ",.02)
  1. ;;67544008773
  1. ;;9002226.02101,"889,67544008780 ",.01)
  1. ;;67544008780
  1. ;;9002226.02101,"889,67544008780 ",.02)
  1. ;;67544008780
  1. ;;9002226.02101,"889,67544008792 ",.01)
  1. ;;67544008792
  1. ;;9002226.02101,"889,67544008792 ",.02)
  1. ;;67544008792
  1. ;;9002226.02101,"889,67544012230 ",.01)
  1. ;;67544012230
  1. ;;9002226.02101,"889,67544012230 ",.02)
  1. ;;67544012230
  1. ;;9002226.02101,"889,67544012231 ",.01)
  1. ;;67544012231
  1. ;;9002226.02101,"889,67544012231 ",.02)
  1. ;;67544012231
  1. ;;9002226.02101,"889,67544012232 ",.01)
  1. ;;67544012232
  1. ;;9002226.02101,"889,67544012232 ",.02)
  1. ;;67544012232
  1. ;;9002226.02101,"889,67544012245 ",.01)
  1. ;;67544012245
  1. ;;9002226.02101,"889,67544012245 ",.02)
  1. ;;67544012245
  1. ;;9002226.02101,"889,67544012253 ",.01)
  1. ;;67544012253
  1. ;;9002226.02101,"889,67544012253 ",.02)
  1. ;;67544012253
  1. ;;9002226.02101,"889,67544012260 ",.01)
  1. ;;67544012260
  1. ;;9002226.02101,"889,67544012260 ",.02)
  1. ;;67544012260
  1. ;;9002226.02101,"889,67544012270 ",.01)
  1. ;;67544012270
  1. ;;9002226.02101,"889,67544012270 ",.02)
  1. ;;67544012270
  1. ;;9002226.02101,"889,67544012273 ",.01)
  1. ;;67544012273
  1. ;;9002226.02101,"889,67544012273 ",.02)
  1. ;;67544012273
  1. ;;9002226.02101,"889,67544012280 ",.01)
  1. ;;67544012280
  1. ;;9002226.02101,"889,67544012280 ",.02)
  1. ;;67544012280
  1. ;;9002226.02101,"889,67544012286 ",.01)
  1. ;;67544012286
  1. ;;9002226.02101,"889,67544012286 ",.02)
  1. ;;67544012286
  1. ;;9002226.02101,"889,67544012292 ",.01)
  1. ;;67544012292
  1. ;;9002226.02101,"889,67544012292 ",.02)
  1. ;;67544012292
  1. ;;9002226.02101,"889,67544013030 ",.01)
  1. ;;67544013030
  1. ;;9002226.02101,"889,67544013030 ",.02)
  1. ;;67544013030
  1. ;;9002226.02101,"889,67544013045 ",.01)
  1. ;;67544013045
  1. ;;9002226.02101,"889,67544013045 ",.02)
  1. ;;67544013045
  1. ;;9002226.02101,"889,67544013053 ",.01)
  1. ;;67544013053
  1. ;;9002226.02101,"889,67544013053 ",.02)
  1. ;;67544013053
  1. ;;9002226.02101,"889,67544013060 ",.01)
  1. ;;67544013060
  1. ;;9002226.02101,"889,67544013060 ",.02)
  1. ;;67544013060
  1. ;;9002226.02101,"889,67544013070 ",.01)
  1. ;;67544013070
  1. ;;9002226.02101,"889,67544013070 ",.02)
  1. ;;67544013070
  1. ;;9002226.02101,"889,67544013080 ",.01)
  1. ;;67544013080
  1. ;;9002226.02101,"889,67544013080 ",.02)
  1. ;;67544013080
  1. ;;9002226.02101,"889,67544014330 ",.01)
  1. ;;67544014330
  1. ;;9002226.02101,"889,67544014330 ",.02)
  1. ;;67544014330
  1. ;;9002226.02101,"889,67544014331 ",.01)
  1. ;;67544014331
  1. ;;9002226.02101,"889,67544014331 ",.02)
  1. ;;67544014331
  1. ;;9002226.02101,"889,67544014353 ",.01)
  1. ;;67544014353
  1. ;;9002226.02101,"889,67544014353 ",.02)
  1. ;;67544014353
  1. ;;9002226.02101,"889,67544014360 ",.01)
  1. ;;67544014360
  1. ;;9002226.02101,"889,67544014360 ",.02)
  1. ;;67544014360
  1. ;;9002226.02101,"889,67544014370 ",.01)
  1. ;;67544014370
  1. ;;9002226.02101,"889,67544014370 ",.02)
  1. ;;67544014370
  1. ;;9002226.02101,"889,67544014380 ",.01)
  1. ;;67544014380
  1. ;;9002226.02101,"889,67544014380 ",.02)
  1. ;;67544014380
  1. ;;9002226.02101,"889,67544016130 ",.01)
  1. ;;67544016130
  1. ;;9002226.02101,"889,67544016130 ",.02)
  1. ;;67544016130
  1. ;;9002226.02101,"889,67544016131 ",.01)
  1. ;;67544016131
  1. ;;9002226.02101,"889,67544016131 ",.02)
  1. ;;67544016131
  1. ;;9002226.02101,"889,67544016132 ",.01)
  1. ;;67544016132
  1. ;;9002226.02101,"889,67544016132 ",.02)
  1. ;;67544016132
  1. ;;9002226.02101,"889,67544016145 ",.01)
  1. ;;67544016145
  1. ;;9002226.02101,"889,67544016145 ",.02)
  1. ;;67544016145
  1. ;;9002226.02101,"889,67544016160 ",.01)
  1. ;;67544016160
  1. ;;9002226.02101,"889,67544016160 ",.02)
  1. ;;67544016160
  1. ;;9002226.02101,"889,67544016180 ",.01)
  1. ;;67544016180
  1. ;;9002226.02101,"889,67544016180 ",.02)
  1. ;;67544016180
  1. ;;9002226.02101,"889,67544020830 ",.01)
  1. ;;67544020830
  1. ;;9002226.02101,"889,67544020830 ",.02)
  1. ;;67544020830
  1. ;;9002226.02101,"889,67544020831 ",.01)
  1. ;;67544020831
  1. ;;9002226.02101,"889,67544020831 ",.02)
  1. ;;67544020831
  1. ;;9002226.02101,"889,67544020853 ",.01)
  1. ;;67544020853
  1. ;;9002226.02101,"889,67544020853 ",.02)
  1. ;;67544020853
  1. ;;9002226.02101,"889,67544020860 ",.01)
  1. ;;67544020860
  1. ;;9002226.02101,"889,67544020860 ",.02)
  1. ;;67544020860
  1. ;;9002226.02101,"889,67544020880 ",.01)
  1. ;;67544020880
  1. ;;9002226.02101,"889,67544020880 ",.02)
  1. ;;67544020880
  1. ;;9002226.02101,"889,67544020882 ",.01)
  1. ;;67544020882
  1. ;;9002226.02101,"889,67544020882 ",.02)
  1. ;;67544020882
  1. ;;9002226.02101,"889,67544020887 ",.01)
  1. ;;67544020887
  1. ;;9002226.02101,"889,67544020887 ",.02)
  1. ;;67544020887
  1. ;;9002226.02101,"889,67544024030 ",.01)
  1. ;;67544024030
  1. ;;9002226.02101,"889,67544024030 ",.02)
  1. ;;67544024030
  1. ;;9002226.02101,"889,67544024031 ",.01)
  1. ;;67544024031
  1. ;;9002226.02101,"889,67544024031 ",.02)
  1. ;;67544024031
  1. ;;9002226.02101,"889,67544024032 ",.01)
  1. ;;67544024032
  1. ;;9002226.02101,"889,67544024032 ",.02)
  1. ;;67544024032
  1. ;;9002226.02101,"889,67544024045 ",.01)
  1. ;;67544024045
  1. ;;9002226.02101,"889,67544024045 ",.02)
  1. ;;67544024045
  1. ;;9002226.02101,"889,67544024060 ",.01)
  1. ;;67544024060
  1. ;;9002226.02101,"889,67544024060 ",.02)
  1. ;;67544024060
  1. ;;9002226.02101,"889,67544024080 ",.01)
  1. ;;67544024080
  1. ;;9002226.02101,"889,67544024080 ",.02)
  1. ;;67544024080
  1. ;;9002226.02101,"889,67544027230 ",.01)
  1. ;;67544027230
  1. ;;9002226.02101,"889,67544027230 ",.02)
  1. ;;67544027230
  1. ;;9002226.02101,"889,67544027231 ",.01)
  1. ;;67544027231
  1. ;;9002226.02101,"889,67544027231 ",.02)
  1. ;;67544027231
  1. ;;9002226.02101,"889,67544027232 ",.01)
  1. ;;67544027232
  1. ;;9002226.02101,"889,67544027232 ",.02)
  1. ;;67544027232
  1. ;;9002226.02101,"889,67544027245 ",.01)
  1. ;;67544027245
  1. ;;9002226.02101,"889,67544027245 ",.02)
  1. ;;67544027245
  1. ;;9002226.02101,"889,67544027253 ",.01)
  1. ;;67544027253
  1. ;;9002226.02101,"889,67544027253 ",.02)
  1. ;;67544027253
  1. ;;9002226.02101,"889,67544027260 ",.01)
  1. ;;67544027260
  1. ;;9002226.02101,"889,67544027260 ",.02)
  1. ;;67544027260
  1. ;;9002226.02101,"889,67544027270 ",.01)
  1. ;;67544027270
  1. ;;9002226.02101,"889,67544027270 ",.02)
  1. ;;67544027270
  1. ;;9002226.02101,"889,67544027273 ",.01)
  1. ;;67544027273
  1. ;;9002226.02101,"889,67544027273 ",.02)
  1. ;;67544027273
  1. ;;9002226.02101,"889,67544027280 ",.01)
  1. ;;67544027280
  1. ;;9002226.02101,"889,67544027280 ",.02)
  1. ;;67544027280
  1. ;;9002226.02101,"889,67544027286 ",.01)
  1. ;;67544027286
  1. ;;9002226.02101,"889,67544027286 ",.02)
  1. ;;67544027286
  1. ;;9002226.02101,"889,67544027292 ",.01)
  1. ;;67544027292
  1. ;;9002226.02101,"889,67544027292 ",.02)
  1. ;;67544027292
  1. ;;9002226.02101,"889,67544027294 ",.01)
  1. ;;67544027294
  1. ;;9002226.02101,"889,67544027294 ",.02)
  1. ;;67544027294
  1. ;;9002226.02101,"889,67544028230 ",.01)
  1. ;;67544028230
  1. ;;9002226.02101,"889,67544028230 ",.02)
  1. ;;67544028230
  1. ;;9002226.02101,"889,67544028245 ",.01)
  1. ;;67544028245
  1. ;;9002226.02101,"889,67544028245 ",.02)
  1. ;;67544028245
  1. ;;9002226.02101,"889,67544028299 ",.01)
  1. ;;67544028299
  1. ;;9002226.02101,"889,67544028299 ",.02)
  1. ;;67544028299
  1. ;;9002226.02101,"889,67544030530 ",.01)
  1. ;;67544030530
  1. ;;9002226.02101,"889,67544030530 ",.02)
  1. ;;67544030530
  1. ;;9002226.02101,"889,67544030553 ",.01)
  1. ;;67544030553
  1. ;;9002226.02101,"889,67544030553 ",.02)
  1. ;;67544030553
  1. ;;9002226.02101,"889,67544030560 ",.01)
  1. ;;67544030560
  1. ;;9002226.02101,"889,67544030560 ",.02)
  1. ;;67544030560
  1. ;;9002226.02101,"889,67544032615 ",.01)
  1. ;;67544032615
  1. ;;9002226.02101,"889,67544032615 ",.02)
  1. ;;67544032615
  1. ;;9002226.02101,"889,67544032630 ",.01)
  1. ;;67544032630
  1. ;;9002226.02101,"889,67544032630 ",.02)
  1. ;;67544032630
  1. ;;9002226.02101,"889,67544032645 ",.01)
  1. ;;67544032645
  1. ;;9002226.02101,"889,67544032645 ",.02)
  1. ;;67544032645
  1. ;;9002226.02101,"889,67544032660 ",.01)
  1. ;;67544032660
  1. ;;9002226.02101,"889,67544032660 ",.02)
  1. ;;67544032660
  1. ;;9002226.02101,"889,67544032670 ",.01)
  1. ;;67544032670
  1. ;;9002226.02101,"889,67544032670 ",.02)
  1. ;;67544032670
  1. ;;9002226.02101,"889,67544032673 ",.01)
  1. ;;67544032673
  1. ;;9002226.02101,"889,67544032673 ",.02)
  1. ;;67544032673
  1. ;;9002226.02101,"889,67544032680 ",.01)
  1. ;;67544032680
  1. ;;9002226.02101,"889,67544032680 ",.02)
  1. ;;67544032680
  1. ;;9002226.02101,"889,67544033260 ",.01)
  1. ;;67544033260
  1. ;;9002226.02101,"889,67544033260 ",.02)
  1. ;;67544033260
  1. ;;9002226.02101,"889,67544037530 ",.01)
  1. ;;67544037530
  1. ;;9002226.02101,"889,67544037530 ",.02)
  1. ;;67544037530
  1. ;;9002226.02101,"889,67544037545 ",.01)
  1. ;;67544037545
  1. ;;9002226.02101,"889,67544037545 ",.02)
  1. ;;67544037545
  1. ;;9002226.02101,"889,67544037560 ",.01)
  1. ;;67544037560
  1. ;;9002226.02101,"889,67544037560 ",.02)
  1. ;;67544037560
  1. ;;9002226.02101,"889,67544037565 ",.01)
  1. ;;67544037565
  1. ;;9002226.02101,"889,67544037565 ",.02)
  1. ;;67544037565
  1. ;;9002226.02101,"889,67544037580 ",.01)
  1. ;;67544037580
  1. ;;9002226.02101,"889,67544037580 ",.02)
  1. ;;67544037580
  1. ;;9002226.02101,"889,67544037630 ",.01)
  1. ;;67544037630
  1. ;;9002226.02101,"889,67544037630 ",.02)
  1. ;;67544037630
  1. ;;9002226.02101,"889,67544037645 ",.01)
  1. ;;67544037645
  1. ;;9002226.02101,"889,67544037645 ",.02)
  1. ;;67544037645
  1. ;;9002226.02101,"889,67544037660 ",.01)
  1. ;;67544037660
  1. ;;9002226.02101,"889,67544037660 ",.02)
  1. ;;67544037660
  1. ;;9002226.02101,"889,67544037670 ",.01)
  1. ;;67544037670
  1. ;;9002226.02101,"889,67544037670 ",.02)
  1. ;;67544037670
  1. ;;9002226.02101,"889,67544037673 ",.01)
  1. ;;67544037673
  1. ;;9002226.02101,"889,67544037673 ",.02)
  1. ;;67544037673