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