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

BGPM5ARB.m

Go to the documentation of this file.
BGPM5ARB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,51129397602 ",.01)
 ;;51129397602
 ;;9002226.02101,"1005,51129397602 ",.02)
 ;;51129397602
 ;;9002226.02101,"1005,51129403501 ",.01)
 ;;51129403501
 ;;9002226.02101,"1005,51129403501 ",.02)
 ;;51129403501
 ;;9002226.02101,"1005,51129403502 ",.01)
 ;;51129403502
 ;;9002226.02101,"1005,51129403502 ",.02)
 ;;51129403502
 ;;9002226.02101,"1005,51129405301 ",.01)
 ;;51129405301
 ;;9002226.02101,"1005,51129405301 ",.02)
 ;;51129405301
 ;;9002226.02101,"1005,51129405302 ",.01)
 ;;51129405302
 ;;9002226.02101,"1005,51129405302 ",.02)
 ;;51129405302
 ;;9002226.02101,"1005,51129406501 ",.01)
 ;;51129406501
 ;;9002226.02101,"1005,51129406501 ",.02)
 ;;51129406501
 ;;9002226.02101,"1005,51129406502 ",.01)
 ;;51129406502
 ;;9002226.02101,"1005,51129406502 ",.02)
 ;;51129406502
 ;;9002226.02101,"1005,51129410501 ",.01)
 ;;51129410501
 ;;9002226.02101,"1005,51129410501 ",.02)
 ;;51129410501
 ;;9002226.02101,"1005,51129410502 ",.01)
 ;;51129410502
 ;;9002226.02101,"1005,51129410502 ",.02)
 ;;51129410502
 ;;9002226.02101,"1005,51129411701 ",.01)
 ;;51129411701
 ;;9002226.02101,"1005,51129411701 ",.02)
 ;;51129411701
 ;;9002226.02101,"1005,51129411702 ",.01)
 ;;51129411702
 ;;9002226.02101,"1005,51129411702 ",.02)
 ;;51129411702
 ;;9002226.02101,"1005,51129412201 ",.01)
 ;;51129412201
 ;;9002226.02101,"1005,51129412201 ",.02)
 ;;51129412201
 ;;9002226.02101,"1005,51129412202 ",.01)
 ;;51129412202
 ;;9002226.02101,"1005,51129412202 ",.02)
 ;;51129412202
 ;;9002226.02101,"1005,51129428601 ",.01)
 ;;51129428601
 ;;9002226.02101,"1005,51129428601 ",.02)
 ;;51129428601
 ;;9002226.02101,"1005,51129428602 ",.01)
 ;;51129428602
 ;;9002226.02101,"1005,51129428602 ",.02)
 ;;51129428602
 ;;9002226.02101,"1005,51129430701 ",.01)
 ;;51129430701
 ;;9002226.02101,"1005,51129430701 ",.02)
 ;;51129430701
 ;;9002226.02101,"1005,51129430702 ",.01)
 ;;51129430702
 ;;9002226.02101,"1005,51129430702 ",.02)
 ;;51129430702
 ;;9002226.02101,"1005,51129431501 ",.01)
 ;;51129431501
 ;;9002226.02101,"1005,51129431501 ",.02)
 ;;51129431501
 ;;9002226.02101,"1005,51129431502 ",.01)
 ;;51129431502
 ;;9002226.02101,"1005,51129431502 ",.02)
 ;;51129431502
 ;;9002226.02101,"1005,51129435501 ",.01)
 ;;51129435501
 ;;9002226.02101,"1005,51129435501 ",.02)
 ;;51129435501
 ;;9002226.02101,"1005,51129435502 ",.01)
 ;;51129435502
 ;;9002226.02101,"1005,51129435502 ",.02)
 ;;51129435502
 ;;9002226.02101,"1005,51129447001 ",.01)
 ;;51129447001
 ;;9002226.02101,"1005,51129447001 ",.02)
 ;;51129447001
 ;;9002226.02101,"1005,51129447002 ",.01)
 ;;51129447002
 ;;9002226.02101,"1005,51129447002 ",.02)
 ;;51129447002
 ;;9002226.02101,"1005,51129447901 ",.01)
 ;;51129447901
 ;;9002226.02101,"1005,51129447901 ",.02)
 ;;51129447901
 ;;9002226.02101,"1005,51129447902 ",.01)
 ;;51129447902
 ;;9002226.02101,"1005,51129447902 ",.02)
 ;;51129447902
 ;;9002226.02101,"1005,51129461301 ",.01)
 ;;51129461301
 ;;9002226.02101,"1005,51129461301 ",.02)
 ;;51129461301
 ;;9002226.02101,"1005,51129461302 ",.01)
 ;;51129461302
 ;;9002226.02101,"1005,51129461302 ",.02)
 ;;51129461302
 ;;9002226.02101,"1005,51129850501 ",.01)
 ;;51129850501
 ;;9002226.02101,"1005,51129850501 ",.02)
 ;;51129850501
 ;;9002226.02101,"1005,51129903401 ",.01)
 ;;51129903401
 ;;9002226.02101,"1005,51129903401 ",.02)
 ;;51129903401
 ;;9002226.02101,"1005,51138001330 ",.01)
 ;;51138001330
 ;;9002226.02101,"1005,51138001330 ",.02)
 ;;51138001330
 ;;9002226.02101,"1005,51138001430 ",.01)
 ;;51138001430
 ;;9002226.02101,"1005,51138001430 ",.02)
 ;;51138001430
 ;;9002226.02101,"1005,51138001530 ",.01)
 ;;51138001530
 ;;9002226.02101,"1005,51138001530 ",.02)
 ;;51138001530
 ;;9002226.02101,"1005,51138001630 ",.01)
 ;;51138001630
 ;;9002226.02101,"1005,51138001630 ",.02)
 ;;51138001630
 ;;9002226.02101,"1005,51138003330 ",.01)
 ;;51138003330
 ;;9002226.02101,"1005,51138003330 ",.02)
 ;;51138003330
 ;;9002226.02101,"1005,51138003430 ",.01)
 ;;51138003430
 ;;9002226.02101,"1005,51138003430 ",.02)
 ;;51138003430
 ;;9002226.02101,"1005,51138003530 ",.01)
 ;;51138003530
 ;;9002226.02101,"1005,51138003530 ",.02)
 ;;51138003530
 ;;9002226.02101,"1005,51138003630 ",.01)
 ;;51138003630
 ;;9002226.02101,"1005,51138003630 ",.02)
 ;;51138003630
 ;;9002226.02101,"1005,51138006330 ",.01)
 ;;51138006330
 ;;9002226.02101,"1005,51138006330 ",.02)
 ;;51138006330
 ;;9002226.02101,"1005,51138006430 ",.01)
 ;;51138006430
 ;;9002226.02101,"1005,51138006430 ",.02)
 ;;51138006430
 ;;9002226.02101,"1005,51138006530 ",.01)
 ;;51138006530
 ;;9002226.02101,"1005,51138006530 ",.02)
 ;;51138006530
 ;;9002226.02101,"1005,51138006630 ",.01)
 ;;51138006630
 ;;9002226.02101,"1005,51138006630 ",.02)
 ;;51138006630
 ;;9002226.02101,"1005,51138006730 ",.01)
 ;;51138006730
 ;;9002226.02101,"1005,51138006730 ",.02)
 ;;51138006730
 ;;9002226.02101,"1005,51138006830 ",.01)
 ;;51138006830
 ;;9002226.02101,"1005,51138006830 ",.02)
 ;;51138006830
 ;;9002226.02101,"1005,51138013430 ",.01)
 ;;51138013430
 ;;9002226.02101,"1005,51138013430 ",.02)
 ;;51138013430
 ;;9002226.02101,"1005,51138013530 ",.01)
 ;;51138013530
 ;;9002226.02101,"1005,51138013530 ",.02)
 ;;51138013530
 ;;9002226.02101,"1005,51138013630 ",.01)
 ;;51138013630
 ;;9002226.02101,"1005,51138013630 ",.02)
 ;;51138013630
 ;;9002226.02101,"1005,51138013730 ",.01)
 ;;51138013730
 ;;9002226.02101,"1005,51138013730 ",.02)
 ;;51138013730
 ;;9002226.02101,"1005,51138013830 ",.01)
 ;;51138013830
 ;;9002226.02101,"1005,51138013830 ",.02)
 ;;51138013830
 ;;9002226.02101,"1005,51138013930 ",.01)
 ;;51138013930
 ;;9002226.02101,"1005,51138013930 ",.02)
 ;;51138013930
 ;;9002226.02101,"1005,51138021130 ",.01)
 ;;51138021130
 ;;9002226.02101,"1005,51138021130 ",.02)
 ;;51138021130
 ;;9002226.02101,"1005,51138021230 ",.01)
 ;;51138021230
 ;;9002226.02101,"1005,51138021230 ",.02)
 ;;51138021230
 ;;9002226.02101,"1005,51138021330 ",.01)
 ;;51138021330
 ;;9002226.02101,"1005,51138021330 ",.02)
 ;;51138021330
 ;;9002226.02101,"1005,51138021730 ",.01)
 ;;51138021730
 ;;9002226.02101,"1005,51138021730 ",.02)
 ;;51138021730
 ;;9002226.02101,"1005,51138021760 ",.01)
 ;;51138021760
 ;;9002226.02101,"1005,51138021760 ",.02)
 ;;51138021760
 ;;9002226.02101,"1005,51138021830 ",.01)
 ;;51138021830
 ;;9002226.02101,"1005,51138021830 ",.02)
 ;;51138021830
 ;;9002226.02101,"1005,51138021860 ",.01)
 ;;51138021860
 ;;9002226.02101,"1005,51138021860 ",.02)
 ;;51138021860
 ;;9002226.02101,"1005,51138021930 ",.01)
 ;;51138021930
 ;;9002226.02101,"1005,51138021930 ",.02)
 ;;51138021930
 ;;9002226.02101,"1005,51138021960 ",.01)
 ;;51138021960
 ;;9002226.02101,"1005,51138021960 ",.02)
 ;;51138021960
 ;;9002226.02101,"1005,51138022430 ",.01)
 ;;51138022430
 ;;9002226.02101,"1005,51138022430 ",.02)
 ;;51138022430
 ;;9002226.02101,"1005,51138022530 ",.01)
 ;;51138022530
 ;;9002226.02101,"1005,51138022530 ",.02)
 ;;51138022530
 ;;9002226.02101,"1005,51138022630 ",.01)
 ;;51138022630
 ;;9002226.02101,"1005,51138022630 ",.02)
 ;;51138022630
 ;;9002226.02101,"1005,51138023130 ",.01)
 ;;51138023130
 ;;9002226.02101,"1005,51138023130 ",.02)
 ;;51138023130
 ;;9002226.02101,"1005,51138023230 ",.01)
 ;;51138023230
 ;;9002226.02101,"1005,51138023230 ",.02)
 ;;51138023230
 ;;9002226.02101,"1005,51138023330 ",.01)
 ;;51138023330
 ;;9002226.02101,"1005,51138023330 ",.02)
 ;;51138023330
 ;;9002226.02101,"1005,51138030610 ",.01)
 ;;51138030610
 ;;9002226.02101,"1005,51138030610 ",.02)
 ;;51138030610
 ;;9002226.02101,"1005,51138030630 ",.01)
 ;;51138030630
 ;;9002226.02101,"1005,51138030630 ",.02)
 ;;51138030630
 ;;9002226.02101,"1005,51138030710 ",.01)
 ;;51138030710
 ;;9002226.02101,"1005,51138030710 ",.02)
 ;;51138030710
 ;;9002226.02101,"1005,51138030730 ",.01)
 ;;51138030730
 ;;9002226.02101,"1005,51138030730 ",.02)
 ;;51138030730
 ;;9002226.02101,"1005,51138030830 ",.01)
 ;;51138030830
 ;;9002226.02101,"1005,51138030830 ",.02)
 ;;51138030830
 ;;9002226.02101,"1005,51138032730 ",.01)
 ;;51138032730
 ;;9002226.02101,"1005,51138032730 ",.02)
 ;;51138032730
 ;;9002226.02101,"1005,51138032830 ",.01)
 ;;51138032830
 ;;9002226.02101,"1005,51138032830 ",.02)
 ;;51138032830
 ;;9002226.02101,"1005,51138032930 ",.01)
 ;;51138032930
 ;;9002226.02101,"1005,51138032930 ",.02)
 ;;51138032930
 ;;9002226.02101,"1005,51138033030 ",.01)
 ;;51138033030
 ;;9002226.02101,"1005,51138033030 ",.02)
 ;;51138033030
 ;;9002226.02101,"1005,51138033130 ",.01)
 ;;51138033130
 ;;9002226.02101,"1005,51138033130 ",.02)
 ;;51138033130
 ;;9002226.02101,"1005,51138033230 ",.01)
 ;;51138033230
 ;;9002226.02101,"1005,51138033230 ",.02)
 ;;51138033230
 ;;9002226.02101,"1005,51138033330 ",.01)
 ;;51138033330
 ;;9002226.02101,"1005,51138033330 ",.02)
 ;;51138033330
 ;;9002226.02101,"1005,51138033430 ",.01)
 ;;51138033430
 ;;9002226.02101,"1005,51138033430 ",.02)
 ;;51138033430
 ;;9002226.02101,"1005,51138033530 ",.01)
 ;;51138033530
 ;;9002226.02101,"1005,51138033530 ",.02)
 ;;51138033530
 ;;9002226.02101,"1005,51138033630 ",.01)
 ;;51138033630
 ;;9002226.02101,"1005,51138033630 ",.02)
 ;;51138033630
 ;;9002226.02101,"1005,51138034830 ",.01)
 ;;51138034830
 ;;9002226.02101,"1005,51138034830 ",.02)
 ;;51138034830
 ;;9002226.02101,"1005,51138034930 ",.01)
 ;;51138034930
 ;;9002226.02101,"1005,51138034930 ",.02)
 ;;51138034930
 ;;9002226.02101,"1005,51138035030 ",.01)
 ;;51138035030
 ;;9002226.02101,"1005,51138035030 ",.02)
 ;;51138035030
 ;;9002226.02101,"1005,51138035130 ",.01)
 ;;51138035130
 ;;9002226.02101,"1005,51138035130 ",.02)
 ;;51138035130
 ;;9002226.02101,"1005,51138044330 ",.01)
 ;;51138044330
 ;;9002226.02101,"1005,51138044330 ",.02)
 ;;51138044330
 ;;9002226.02101,"1005,51138044430 ",.01)
 ;;51138044430
 ;;9002226.02101,"1005,51138044430 ",.02)
 ;;51138044430
 ;;9002226.02101,"1005,51138049330 ",.01)
 ;;51138049330
 ;;9002226.02101,"1005,51138049330 ",.02)
 ;;51138049330
 ;;9002226.02101,"1005,51138049430 ",.01)
 ;;51138049430
 ;;9002226.02101,"1005,51138049430 ",.02)
 ;;51138049430
 ;;9002226.02101,"1005,51138050515 ",.01)
 ;;51138050515
 ;;9002226.02101,"1005,51138050515 ",.02)
 ;;51138050515
 ;;9002226.02101,"1005,51138050530 ",.01)
 ;;51138050530
 ;;9002226.02101,"1005,51138050530 ",.02)
 ;;51138050530
 ;;9002226.02101,"1005,51138050630 ",.01)
 ;;51138050630
 ;;9002226.02101,"1005,51138050630 ",.02)
 ;;51138050630
 ;;9002226.02101,"1005,51138050730 ",.01)
 ;;51138050730
 ;;9002226.02101,"1005,51138050730 ",.02)
 ;;51138050730
 ;;9002226.02101,"1005,51138050820 ",.01)
 ;;51138050820
 ;;9002226.02101,"1005,51138050820 ",.02)
 ;;51138050820
 ;;9002226.02101,"1005,51138050845 ",.01)
 ;;51138050845
 ;;9002226.02101,"1005,51138050845 ",.02)
 ;;51138050845
 ;;9002226.02101,"1005,51138052030 ",.01)
 ;;51138052030
 ;;9002226.02101,"1005,51138052030 ",.02)
 ;;51138052030
 ;;9002226.02101,"1005,51138052130 ",.01)
 ;;51138052130
 ;;9002226.02101,"1005,51138052130 ",.02)
 ;;51138052130
 ;;9002226.02101,"1005,51138052230 ",.01)
 ;;51138052230
 ;;9002226.02101,"1005,51138052230 ",.02)
 ;;51138052230
 ;;9002226.02101,"1005,51138052330 ",.01)
 ;;51138052330
 ;;9002226.02101,"1005,51138052330 ",.02)
 ;;51138052330
 ;;9002226.02101,"1005,51138052430 ",.01)
 ;;51138052430
 ;;9002226.02101,"1005,51138052430 ",.02)
 ;;51138052430
 ;;9002226.02101,"1005,51138052530 ",.01)
 ;;51138052530
 ;;9002226.02101,"1005,51138052530 ",.02)
 ;;51138052530
 ;;9002226.02101,"1005,51138055130 ",.01)
 ;;51138055130
 ;;9002226.02101,"1005,51138055130 ",.02)
 ;;51138055130
 ;;9002226.02101,"1005,51138055230 ",.01)
 ;;51138055230