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

BGPM5AJL.m

Go to the documentation of this file.
BGPM5AJL ;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,51129213401 ",.01)
 ;;51129213401
 ;;9002226.02101,"889,51129213401 ",.02)
 ;;51129213401
 ;;9002226.02101,"889,51129219101 ",.01)
 ;;51129219101
 ;;9002226.02101,"889,51129219101 ",.02)
 ;;51129219101
 ;;9002226.02101,"889,51129222301 ",.01)
 ;;51129222301
 ;;9002226.02101,"889,51129222301 ",.02)
 ;;51129222301
 ;;9002226.02101,"889,51129226301 ",.01)
 ;;51129226301
 ;;9002226.02101,"889,51129226301 ",.02)
 ;;51129226301
 ;;9002226.02101,"889,51129230001 ",.01)
 ;;51129230001
 ;;9002226.02101,"889,51129230001 ",.02)
 ;;51129230001
 ;;9002226.02101,"889,51129231801 ",.01)
 ;;51129231801
 ;;9002226.02101,"889,51129231801 ",.02)
 ;;51129231801
 ;;9002226.02101,"889,51129234601 ",.01)
 ;;51129234601
 ;;9002226.02101,"889,51129234601 ",.02)
 ;;51129234601
 ;;9002226.02101,"889,51129243801 ",.01)
 ;;51129243801
 ;;9002226.02101,"889,51129243801 ",.02)
 ;;51129243801
 ;;9002226.02101,"889,51129244001 ",.01)
 ;;51129244001
 ;;9002226.02101,"889,51129244001 ",.02)
 ;;51129244001
 ;;9002226.02101,"889,51129247701 ",.01)
 ;;51129247701
 ;;9002226.02101,"889,51129247701 ",.02)
 ;;51129247701
 ;;9002226.02101,"889,51129248001 ",.01)
 ;;51129248001
 ;;9002226.02101,"889,51129248001 ",.02)
 ;;51129248001
 ;;9002226.02101,"889,51129253301 ",.01)
 ;;51129253301
 ;;9002226.02101,"889,51129253301 ",.02)
 ;;51129253301
 ;;9002226.02101,"889,51129266401 ",.01)
 ;;51129266401
 ;;9002226.02101,"889,51129266401 ",.02)
 ;;51129266401
 ;;9002226.02101,"889,51129269601 ",.01)
 ;;51129269601
 ;;9002226.02101,"889,51129269601 ",.02)
 ;;51129269601
 ;;9002226.02101,"889,51129270701 ",.01)
 ;;51129270701
 ;;9002226.02101,"889,51129270701 ",.02)
 ;;51129270701
 ;;9002226.02101,"889,51129274301 ",.01)
 ;;51129274301
 ;;9002226.02101,"889,51129274301 ",.02)
 ;;51129274301
 ;;9002226.02101,"889,51129283001 ",.01)
 ;;51129283001
 ;;9002226.02101,"889,51129283001 ",.02)
 ;;51129283001
 ;;9002226.02101,"889,51129283002 ",.01)
 ;;51129283002
 ;;9002226.02101,"889,51129283002 ",.02)
 ;;51129283002
 ;;9002226.02101,"889,51129285501 ",.01)
 ;;51129285501
 ;;9002226.02101,"889,51129285501 ",.02)
 ;;51129285501
 ;;9002226.02101,"889,51129285502 ",.01)
 ;;51129285502
 ;;9002226.02101,"889,51129285502 ",.02)
 ;;51129285502
 ;;9002226.02101,"889,51129288701 ",.01)
 ;;51129288701
 ;;9002226.02101,"889,51129288701 ",.02)
 ;;51129288701
 ;;9002226.02101,"889,51129288702 ",.01)
 ;;51129288702
 ;;9002226.02101,"889,51129288702 ",.02)
 ;;51129288702
 ;;9002226.02101,"889,51129289701 ",.01)
 ;;51129289701
 ;;9002226.02101,"889,51129289701 ",.02)
 ;;51129289701
 ;;9002226.02101,"889,51129289702 ",.01)
 ;;51129289702
 ;;9002226.02101,"889,51129289702 ",.02)
 ;;51129289702
 ;;9002226.02101,"889,51129299101 ",.01)
 ;;51129299101
 ;;9002226.02101,"889,51129299101 ",.02)
 ;;51129299101
 ;;9002226.02101,"889,51129299102 ",.01)
 ;;51129299102
 ;;9002226.02101,"889,51129299102 ",.02)
 ;;51129299102
 ;;9002226.02101,"889,51129306901 ",.01)
 ;;51129306901
 ;;9002226.02101,"889,51129306901 ",.02)
 ;;51129306901
 ;;9002226.02101,"889,51129306902 ",.01)
 ;;51129306902
 ;;9002226.02101,"889,51129306902 ",.02)
 ;;51129306902
 ;;9002226.02101,"889,51129310301 ",.01)
 ;;51129310301
 ;;9002226.02101,"889,51129310301 ",.02)
 ;;51129310301
 ;;9002226.02101,"889,51129310302 ",.01)
 ;;51129310302
 ;;9002226.02101,"889,51129310302 ",.02)
 ;;51129310302
 ;;9002226.02101,"889,51129315701 ",.01)
 ;;51129315701
 ;;9002226.02101,"889,51129315701 ",.02)
 ;;51129315701
 ;;9002226.02101,"889,51129315702 ",.01)
 ;;51129315702
 ;;9002226.02101,"889,51129315702 ",.02)
 ;;51129315702
 ;;9002226.02101,"889,51129316501 ",.01)
 ;;51129316501
 ;;9002226.02101,"889,51129316501 ",.02)
 ;;51129316501
 ;;9002226.02101,"889,51129316502 ",.01)
 ;;51129316502
 ;;9002226.02101,"889,51129316502 ",.02)
 ;;51129316502
 ;;9002226.02101,"889,51129319001 ",.01)
 ;;51129319001
 ;;9002226.02101,"889,51129319001 ",.02)
 ;;51129319001
 ;;9002226.02101,"889,51129319002 ",.01)
 ;;51129319002
 ;;9002226.02101,"889,51129319002 ",.02)
 ;;51129319002
 ;;9002226.02101,"889,51129320601 ",.01)
 ;;51129320601
 ;;9002226.02101,"889,51129320601 ",.02)
 ;;51129320601
 ;;9002226.02101,"889,51129320602 ",.01)
 ;;51129320602
 ;;9002226.02101,"889,51129320602 ",.02)
 ;;51129320602
 ;;9002226.02101,"889,51129324201 ",.01)
 ;;51129324201
 ;;9002226.02101,"889,51129324201 ",.02)
 ;;51129324201
 ;;9002226.02101,"889,51129324202 ",.01)
 ;;51129324202
 ;;9002226.02101,"889,51129324202 ",.02)
 ;;51129324202
 ;;9002226.02101,"889,51129344801 ",.01)
 ;;51129344801
 ;;9002226.02101,"889,51129344801 ",.02)
 ;;51129344801
 ;;9002226.02101,"889,51129344802 ",.01)
 ;;51129344802
 ;;9002226.02101,"889,51129344802 ",.02)
 ;;51129344802
 ;;9002226.02101,"889,51129349801 ",.01)
 ;;51129349801
 ;;9002226.02101,"889,51129349801 ",.02)
 ;;51129349801
 ;;9002226.02101,"889,51129349802 ",.01)
 ;;51129349802
 ;;9002226.02101,"889,51129349802 ",.02)
 ;;51129349802
 ;;9002226.02101,"889,51129361001 ",.01)
 ;;51129361001
 ;;9002226.02101,"889,51129361001 ",.02)
 ;;51129361001
 ;;9002226.02101,"889,51129361002 ",.01)
 ;;51129361002
 ;;9002226.02101,"889,51129361002 ",.02)
 ;;51129361002
 ;;9002226.02101,"889,51129372601 ",.01)
 ;;51129372601
 ;;9002226.02101,"889,51129372601 ",.02)
 ;;51129372601
 ;;9002226.02101,"889,51129372602 ",.01)
 ;;51129372602
 ;;9002226.02101,"889,51129372602 ",.02)
 ;;51129372602
 ;;9002226.02101,"889,51129373401 ",.01)
 ;;51129373401
 ;;9002226.02101,"889,51129373401 ",.02)
 ;;51129373401
 ;;9002226.02101,"889,51129373402 ",.01)
 ;;51129373402
 ;;9002226.02101,"889,51129373402 ",.02)
 ;;51129373402
 ;;9002226.02101,"889,51129385701 ",.01)
 ;;51129385701
 ;;9002226.02101,"889,51129385701 ",.02)
 ;;51129385701
 ;;9002226.02101,"889,51129385702 ",.01)
 ;;51129385702
 ;;9002226.02101,"889,51129385702 ",.02)
 ;;51129385702
 ;;9002226.02101,"889,51129391001 ",.01)
 ;;51129391001
 ;;9002226.02101,"889,51129391001 ",.02)
 ;;51129391001
 ;;9002226.02101,"889,51129391002 ",.01)
 ;;51129391002
 ;;9002226.02101,"889,51129391002 ",.02)
 ;;51129391002
 ;;9002226.02101,"889,51129393101 ",.01)
 ;;51129393101
 ;;9002226.02101,"889,51129393101 ",.02)
 ;;51129393101
 ;;9002226.02101,"889,51129393102 ",.01)
 ;;51129393102
 ;;9002226.02101,"889,51129393102 ",.02)
 ;;51129393102
 ;;9002226.02101,"889,51129408601 ",.01)
 ;;51129408601
 ;;9002226.02101,"889,51129408601 ",.02)
 ;;51129408601
 ;;9002226.02101,"889,51129408602 ",.01)
 ;;51129408602
 ;;9002226.02101,"889,51129408602 ",.02)
 ;;51129408602
 ;;9002226.02101,"889,51129409801 ",.01)
 ;;51129409801
 ;;9002226.02101,"889,51129409801 ",.02)
 ;;51129409801
 ;;9002226.02101,"889,51129409802 ",.01)
 ;;51129409802
 ;;9002226.02101,"889,51129409802 ",.02)
 ;;51129409802
 ;;9002226.02101,"889,51129411001 ",.01)
 ;;51129411001
 ;;9002226.02101,"889,51129411001 ",.02)
 ;;51129411001
 ;;9002226.02101,"889,51129411002 ",.01)
 ;;51129411002
 ;;9002226.02101,"889,51129411002 ",.02)
 ;;51129411002
 ;;9002226.02101,"889,51129411101 ",.01)
 ;;51129411101
 ;;9002226.02101,"889,51129411101 ",.02)
 ;;51129411101
 ;;9002226.02101,"889,51129411102 ",.01)
 ;;51129411102
 ;;9002226.02101,"889,51129411102 ",.02)
 ;;51129411102
 ;;9002226.02101,"889,51129429901 ",.01)
 ;;51129429901
 ;;9002226.02101,"889,51129429901 ",.02)
 ;;51129429901
 ;;9002226.02101,"889,51129429902 ",.01)
 ;;51129429902
 ;;9002226.02101,"889,51129429902 ",.02)
 ;;51129429902
 ;;9002226.02101,"889,51129433001 ",.01)
 ;;51129433001
 ;;9002226.02101,"889,51129433001 ",.02)
 ;;51129433001
 ;;9002226.02101,"889,51129433002 ",.01)
 ;;51129433002
 ;;9002226.02101,"889,51129433002 ",.02)
 ;;51129433002
 ;;9002226.02101,"889,51129445301 ",.01)
 ;;51129445301
 ;;9002226.02101,"889,51129445301 ",.02)
 ;;51129445301
 ;;9002226.02101,"889,51129445302 ",.01)
 ;;51129445302
 ;;9002226.02101,"889,51129445302 ",.02)
 ;;51129445302
 ;;9002226.02101,"889,51129450501 ",.01)
 ;;51129450501
 ;;9002226.02101,"889,51129450501 ",.02)
 ;;51129450501
 ;;9002226.02101,"889,51129450502 ",.01)
 ;;51129450502
 ;;9002226.02101,"889,51129450502 ",.02)
 ;;51129450502
 ;;9002226.02101,"889,51129455401 ",.01)
 ;;51129455401
 ;;9002226.02101,"889,51129455401 ",.02)
 ;;51129455401
 ;;9002226.02101,"889,51129455402 ",.01)
 ;;51129455402
 ;;9002226.02101,"889,51129455402 ",.02)
 ;;51129455402
 ;;9002226.02101,"889,51129460701 ",.01)
 ;;51129460701
 ;;9002226.02101,"889,51129460701 ",.02)
 ;;51129460701
 ;;9002226.02101,"889,51129460702 ",.01)
 ;;51129460702
 ;;9002226.02101,"889,51129460702 ",.02)
 ;;51129460702
 ;;9002226.02101,"889,51129468301 ",.01)
 ;;51129468301
 ;;9002226.02101,"889,51129468301 ",.02)
 ;;51129468301
 ;;9002226.02101,"889,51129468302 ",.01)
 ;;51129468302
 ;;9002226.02101,"889,51129468302 ",.02)
 ;;51129468302
 ;;9002226.02101,"889,51129823301 ",.01)
 ;;51129823301
 ;;9002226.02101,"889,51129823301 ",.02)
 ;;51129823301
 ;;9002226.02101,"889,51129991201 ",.01)
 ;;51129991201
 ;;9002226.02101,"889,51129991201 ",.02)
 ;;51129991201
 ;;9002226.02101,"889,51138000930 ",.01)
 ;;51138000930
 ;;9002226.02101,"889,51138000930 ",.02)
 ;;51138000930
 ;;9002226.02101,"889,51138001030 ",.01)
 ;;51138001030
 ;;9002226.02101,"889,51138001030 ",.02)
 ;;51138001030
 ;;9002226.02101,"889,51138001130 ",.01)
 ;;51138001130
 ;;9002226.02101,"889,51138001130 ",.02)
 ;;51138001130
 ;;9002226.02101,"889,51138009630 ",.01)
 ;;51138009630
 ;;9002226.02101,"889,51138009630 ",.02)
 ;;51138009630
 ;;9002226.02101,"889,51138009730 ",.01)
 ;;51138009730
 ;;9002226.02101,"889,51138009730 ",.02)
 ;;51138009730
 ;;9002226.02101,"889,51138009830 ",.01)
 ;;51138009830
 ;;9002226.02101,"889,51138009830 ",.02)
 ;;51138009830
 ;;9002226.02101,"889,51138010530 ",.01)
 ;;51138010530
 ;;9002226.02101,"889,51138010530 ",.02)
 ;;51138010530
 ;;9002226.02101,"889,51138010630 ",.01)
 ;;51138010630
 ;;9002226.02101,"889,51138010630 ",.02)
 ;;51138010630
 ;;9002226.02101,"889,51138010730 ",.01)
 ;;51138010730
 ;;9002226.02101,"889,51138010730 ",.02)
 ;;51138010730
 ;;9002226.02101,"889,51138010830 ",.01)
 ;;51138010830
 ;;9002226.02101,"889,51138010830 ",.02)
 ;;51138010830
 ;;9002226.02101,"889,51138010930 ",.01)
 ;;51138010930
 ;;9002226.02101,"889,51138010930 ",.02)
 ;;51138010930
 ;;9002226.02101,"889,51138011530 ",.01)
 ;;51138011530
 ;;9002226.02101,"889,51138011530 ",.02)
 ;;51138011530
 ;;9002226.02101,"889,51138011630 ",.01)
 ;;51138011630
 ;;9002226.02101,"889,51138011630 ",.02)
 ;;51138011630
 ;;9002226.02101,"889,51138011730 ",.01)
 ;;51138011730
 ;;9002226.02101,"889,51138011730 ",.02)
 ;;51138011730
 ;;9002226.02101,"889,51138011830 ",.01)
 ;;51138011830
 ;;9002226.02101,"889,51138011830 ",.02)
 ;;51138011830
 ;;9002226.02101,"889,51138011930 ",.01)
 ;;51138011930
 ;;9002226.02101,"889,51138011930 ",.02)
 ;;51138011930
 ;;9002226.02101,"889,51138012030 ",.01)
 ;;51138012030
 ;;9002226.02101,"889,51138012030 ",.02)
 ;;51138012030
 ;;9002226.02101,"889,51138013130 ",.01)
 ;;51138013130
 ;;9002226.02101,"889,51138013130 ",.02)
 ;;51138013130
 ;;9002226.02101,"889,51138013230 ",.01)
 ;;51138013230
 ;;9002226.02101,"889,51138013230 ",.02)
 ;;51138013230
 ;;9002226.02101,"889,51138013330 ",.01)
 ;;51138013330
 ;;9002226.02101,"889,51138013330 ",.02)
 ;;51138013330
 ;;9002226.02101,"889,51138015730 ",.01)
 ;;51138015730
 ;;9002226.02101,"889,51138015730 ",.02)
 ;;51138015730
 ;;9002226.02101,"889,51138015830 ",.01)
 ;;51138015830
 ;;9002226.02101,"889,51138015830 ",.02)
 ;;51138015830