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

BGPM5BCL.m

Go to the documentation of this file.
BGPM5BCL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"1044,51129324001 ",.02)
 ;;51129324001
 ;;9002226.02101,"1044,51129324002 ",.01)
 ;;51129324002
 ;;9002226.02101,"1044,51129324002 ",.02)
 ;;51129324002
 ;;9002226.02101,"1044,51129325101 ",.01)
 ;;51129325101
 ;;9002226.02101,"1044,51129325101 ",.02)
 ;;51129325101
 ;;9002226.02101,"1044,51129325102 ",.01)
 ;;51129325102
 ;;9002226.02101,"1044,51129325102 ",.02)
 ;;51129325102
 ;;9002226.02101,"1044,51129326901 ",.01)
 ;;51129326901
 ;;9002226.02101,"1044,51129326901 ",.02)
 ;;51129326901
 ;;9002226.02101,"1044,51129326902 ",.01)
 ;;51129326902
 ;;9002226.02101,"1044,51129326902 ",.02)
 ;;51129326902
 ;;9002226.02101,"1044,51129331301 ",.01)
 ;;51129331301
 ;;9002226.02101,"1044,51129331301 ",.02)
 ;;51129331301
 ;;9002226.02101,"1044,51129331302 ",.01)
 ;;51129331302
 ;;9002226.02101,"1044,51129331302 ",.02)
 ;;51129331302
 ;;9002226.02101,"1044,51129351301 ",.01)
 ;;51129351301
 ;;9002226.02101,"1044,51129351301 ",.02)
 ;;51129351301
 ;;9002226.02101,"1044,51129351302 ",.01)
 ;;51129351302
 ;;9002226.02101,"1044,51129351302 ",.02)
 ;;51129351302
 ;;9002226.02101,"1044,51129354701 ",.01)
 ;;51129354701
 ;;9002226.02101,"1044,51129354701 ",.02)
 ;;51129354701
 ;;9002226.02101,"1044,51129354702 ",.01)
 ;;51129354702
 ;;9002226.02101,"1044,51129354702 ",.02)
 ;;51129354702
 ;;9002226.02101,"1044,51129355201 ",.01)
 ;;51129355201
 ;;9002226.02101,"1044,51129355201 ",.02)
 ;;51129355201
 ;;9002226.02101,"1044,51129355202 ",.01)
 ;;51129355202
 ;;9002226.02101,"1044,51129355202 ",.02)
 ;;51129355202
 ;;9002226.02101,"1044,51129366801 ",.01)
 ;;51129366801
 ;;9002226.02101,"1044,51129366801 ",.02)
 ;;51129366801
 ;;9002226.02101,"1044,51129366802 ",.01)
 ;;51129366802
 ;;9002226.02101,"1044,51129366802 ",.02)
 ;;51129366802
 ;;9002226.02101,"1044,51129368701 ",.01)
 ;;51129368701
 ;;9002226.02101,"1044,51129368701 ",.02)
 ;;51129368701
 ;;9002226.02101,"1044,51129368702 ",.01)
 ;;51129368702
 ;;9002226.02101,"1044,51129368702 ",.02)
 ;;51129368702
 ;;9002226.02101,"1044,51129370401 ",.01)
 ;;51129370401
 ;;9002226.02101,"1044,51129370401 ",.02)
 ;;51129370401
 ;;9002226.02101,"1044,51129370402 ",.01)
 ;;51129370402
 ;;9002226.02101,"1044,51129370402 ",.02)
 ;;51129370402
 ;;9002226.02101,"1044,51129371201 ",.01)
 ;;51129371201
 ;;9002226.02101,"1044,51129371201 ",.02)
 ;;51129371201
 ;;9002226.02101,"1044,51129371202 ",.01)
 ;;51129371202
 ;;9002226.02101,"1044,51129371202 ",.02)
 ;;51129371202
 ;;9002226.02101,"1044,51129372901 ",.01)
 ;;51129372901
 ;;9002226.02101,"1044,51129372901 ",.02)
 ;;51129372901
 ;;9002226.02101,"1044,51129372902 ",.01)
 ;;51129372902
 ;;9002226.02101,"1044,51129372902 ",.02)
 ;;51129372902
 ;;9002226.02101,"1044,51129375901 ",.01)
 ;;51129375901
 ;;9002226.02101,"1044,51129375901 ",.02)
 ;;51129375901
 ;;9002226.02101,"1044,51129375902 ",.01)
 ;;51129375902
 ;;9002226.02101,"1044,51129375902 ",.02)
 ;;51129375902
 ;;9002226.02101,"1044,51129382801 ",.01)
 ;;51129382801
 ;;9002226.02101,"1044,51129382801 ",.02)
 ;;51129382801
 ;;9002226.02101,"1044,51129382802 ",.01)
 ;;51129382802
 ;;9002226.02101,"1044,51129382802 ",.02)
 ;;51129382802
 ;;9002226.02101,"1044,51129383201 ",.01)
 ;;51129383201
 ;;9002226.02101,"1044,51129383201 ",.02)
 ;;51129383201
 ;;9002226.02101,"1044,51129383202 ",.01)
 ;;51129383202
 ;;9002226.02101,"1044,51129383202 ",.02)
 ;;51129383202
 ;;9002226.02101,"1044,51129383501 ",.01)
 ;;51129383501
 ;;9002226.02101,"1044,51129383501 ",.02)
 ;;51129383501
 ;;9002226.02101,"1044,51129383502 ",.01)
 ;;51129383502
 ;;9002226.02101,"1044,51129383502 ",.02)
 ;;51129383502
 ;;9002226.02101,"1044,51129385501 ",.01)
 ;;51129385501
 ;;9002226.02101,"1044,51129385501 ",.02)
 ;;51129385501
 ;;9002226.02101,"1044,51129385502 ",.01)
 ;;51129385502
 ;;9002226.02101,"1044,51129385502 ",.02)
 ;;51129385502
 ;;9002226.02101,"1044,51129386601 ",.01)
 ;;51129386601
 ;;9002226.02101,"1044,51129386601 ",.02)
 ;;51129386601
 ;;9002226.02101,"1044,51129386602 ",.01)
 ;;51129386602
 ;;9002226.02101,"1044,51129386602 ",.02)
 ;;51129386602
 ;;9002226.02101,"1044,51129388401 ",.01)
 ;;51129388401
 ;;9002226.02101,"1044,51129388401 ",.02)
 ;;51129388401
 ;;9002226.02101,"1044,51129388402 ",.01)
 ;;51129388402
 ;;9002226.02101,"1044,51129388402 ",.02)
 ;;51129388402
 ;;9002226.02101,"1044,51129395501 ",.01)
 ;;51129395501
 ;;9002226.02101,"1044,51129395501 ",.02)
 ;;51129395501
 ;;9002226.02101,"1044,51129395502 ",.01)
 ;;51129395502
 ;;9002226.02101,"1044,51129395502 ",.02)
 ;;51129395502
 ;;9002226.02101,"1044,51129397501 ",.01)
 ;;51129397501
 ;;9002226.02101,"1044,51129397501 ",.02)
 ;;51129397501
 ;;9002226.02101,"1044,51129397502 ",.01)
 ;;51129397502
 ;;9002226.02101,"1044,51129397502 ",.02)
 ;;51129397502
 ;;9002226.02101,"1044,51129400301 ",.01)
 ;;51129400301
 ;;9002226.02101,"1044,51129400301 ",.02)
 ;;51129400301
 ;;9002226.02101,"1044,51129400302 ",.01)
 ;;51129400302
 ;;9002226.02101,"1044,51129400302 ",.02)
 ;;51129400302
 ;;9002226.02101,"1044,51129403601 ",.01)
 ;;51129403601
 ;;9002226.02101,"1044,51129403601 ",.02)
 ;;51129403601
 ;;9002226.02101,"1044,51129403602 ",.01)
 ;;51129403602
 ;;9002226.02101,"1044,51129403602 ",.02)
 ;;51129403602
 ;;9002226.02101,"1044,51129405901 ",.01)
 ;;51129405901
 ;;9002226.02101,"1044,51129405901 ",.02)
 ;;51129405901
 ;;9002226.02101,"1044,51129405902 ",.01)
 ;;51129405902
 ;;9002226.02101,"1044,51129405902 ",.02)
 ;;51129405902
 ;;9002226.02101,"1044,51129407501 ",.01)
 ;;51129407501
 ;;9002226.02101,"1044,51129407501 ",.02)
 ;;51129407501
 ;;9002226.02101,"1044,51129407502 ",.01)
 ;;51129407502
 ;;9002226.02101,"1044,51129407502 ",.02)
 ;;51129407502
 ;;9002226.02101,"1044,51129410701 ",.01)
 ;;51129410701
 ;;9002226.02101,"1044,51129410701 ",.02)
 ;;51129410701
 ;;9002226.02101,"1044,51129410702 ",.01)
 ;;51129410702
 ;;9002226.02101,"1044,51129410702 ",.02)
 ;;51129410702
 ;;9002226.02101,"1044,51129415001 ",.01)
 ;;51129415001
 ;;9002226.02101,"1044,51129415001 ",.02)
 ;;51129415001
 ;;9002226.02101,"1044,51129415002 ",.01)
 ;;51129415002
 ;;9002226.02101,"1044,51129415002 ",.02)
 ;;51129415002
 ;;9002226.02101,"1044,51129418201 ",.01)
 ;;51129418201
 ;;9002226.02101,"1044,51129418201 ",.02)
 ;;51129418201
 ;;9002226.02101,"1044,51129418202 ",.01)
 ;;51129418202
 ;;9002226.02101,"1044,51129418202 ",.02)
 ;;51129418202
 ;;9002226.02101,"1044,51129419101 ",.01)
 ;;51129419101
 ;;9002226.02101,"1044,51129419101 ",.02)
 ;;51129419101
 ;;9002226.02101,"1044,51129419102 ",.01)
 ;;51129419102
 ;;9002226.02101,"1044,51129419102 ",.02)
 ;;51129419102
 ;;9002226.02101,"1044,51129419601 ",.01)
 ;;51129419601
 ;;9002226.02101,"1044,51129419601 ",.02)
 ;;51129419601
 ;;9002226.02101,"1044,51129419602 ",.01)
 ;;51129419602
 ;;9002226.02101,"1044,51129419602 ",.02)
 ;;51129419602
 ;;9002226.02101,"1044,51129421001 ",.01)
 ;;51129421001
 ;;9002226.02101,"1044,51129421001 ",.02)
 ;;51129421001
 ;;9002226.02101,"1044,51129421002 ",.01)
 ;;51129421002
 ;;9002226.02101,"1044,51129421002 ",.02)
 ;;51129421002
 ;;9002226.02101,"1044,51129422501 ",.01)
 ;;51129422501
 ;;9002226.02101,"1044,51129422501 ",.02)
 ;;51129422501
 ;;9002226.02101,"1044,51129422502 ",.01)
 ;;51129422502
 ;;9002226.02101,"1044,51129422502 ",.02)
 ;;51129422502
 ;;9002226.02101,"1044,51129424601 ",.01)
 ;;51129424601
 ;;9002226.02101,"1044,51129424601 ",.02)
 ;;51129424601
 ;;9002226.02101,"1044,51129424602 ",.01)
 ;;51129424602
 ;;9002226.02101,"1044,51129424602 ",.02)
 ;;51129424602
 ;;9002226.02101,"1044,51129425701 ",.01)
 ;;51129425701
 ;;9002226.02101,"1044,51129425701 ",.02)
 ;;51129425701
 ;;9002226.02101,"1044,51129425702 ",.01)
 ;;51129425702
 ;;9002226.02101,"1044,51129425702 ",.02)
 ;;51129425702
 ;;9002226.02101,"1044,51129427601 ",.01)
 ;;51129427601
 ;;9002226.02101,"1044,51129427601 ",.02)
 ;;51129427601
 ;;9002226.02101,"1044,51129427602 ",.01)
 ;;51129427602
 ;;9002226.02101,"1044,51129427602 ",.02)
 ;;51129427602
 ;;9002226.02101,"1044,51129433701 ",.01)
 ;;51129433701
 ;;9002226.02101,"1044,51129433701 ",.02)
 ;;51129433701
 ;;9002226.02101,"1044,51129433702 ",.01)
 ;;51129433702
 ;;9002226.02101,"1044,51129433702 ",.02)
 ;;51129433702
 ;;9002226.02101,"1044,51129434701 ",.01)
 ;;51129434701
 ;;9002226.02101,"1044,51129434701 ",.02)
 ;;51129434701
 ;;9002226.02101,"1044,51129434702 ",.01)
 ;;51129434702
 ;;9002226.02101,"1044,51129434702 ",.02)
 ;;51129434702
 ;;9002226.02101,"1044,51129435601 ",.01)
 ;;51129435601
 ;;9002226.02101,"1044,51129435601 ",.02)
 ;;51129435601
 ;;9002226.02101,"1044,51129435602 ",.01)
 ;;51129435602
 ;;9002226.02101,"1044,51129435602 ",.02)
 ;;51129435602
 ;;9002226.02101,"1044,51129443401 ",.01)
 ;;51129443401
 ;;9002226.02101,"1044,51129443401 ",.02)
 ;;51129443401
 ;;9002226.02101,"1044,51129443402 ",.01)
 ;;51129443402
 ;;9002226.02101,"1044,51129443402 ",.02)
 ;;51129443402
 ;;9002226.02101,"1044,51129453701 ",.01)
 ;;51129453701
 ;;9002226.02101,"1044,51129453701 ",.02)
 ;;51129453701
 ;;9002226.02101,"1044,51129453702 ",.01)
 ;;51129453702
 ;;9002226.02101,"1044,51129453702 ",.02)
 ;;51129453702
 ;;9002226.02101,"1044,51129455901 ",.01)
 ;;51129455901
 ;;9002226.02101,"1044,51129455901 ",.02)
 ;;51129455901
 ;;9002226.02101,"1044,51129455902 ",.01)
 ;;51129455902
 ;;9002226.02101,"1044,51129455902 ",.02)
 ;;51129455902
 ;;9002226.02101,"1044,51129457001 ",.01)
 ;;51129457001
 ;;9002226.02101,"1044,51129457001 ",.02)
 ;;51129457001
 ;;9002226.02101,"1044,51129457002 ",.01)
 ;;51129457002
 ;;9002226.02101,"1044,51129457002 ",.02)
 ;;51129457002
 ;;9002226.02101,"1044,51129461601 ",.01)
 ;;51129461601
 ;;9002226.02101,"1044,51129461601 ",.02)
 ;;51129461601
 ;;9002226.02101,"1044,51129461602 ",.01)
 ;;51129461602
 ;;9002226.02101,"1044,51129461602 ",.02)
 ;;51129461602
 ;;9002226.02101,"1044,51129466001 ",.01)
 ;;51129466001
 ;;9002226.02101,"1044,51129466001 ",.02)
 ;;51129466001
 ;;9002226.02101,"1044,51129466002 ",.01)
 ;;51129466002
 ;;9002226.02101,"1044,51129466002 ",.02)
 ;;51129466002
 ;;9002226.02101,"1044,51129468101 ",.01)
 ;;51129468101
 ;;9002226.02101,"1044,51129468101 ",.02)
 ;;51129468101
 ;;9002226.02101,"1044,51129468102 ",.01)
 ;;51129468102
 ;;9002226.02101,"1044,51129468102 ",.02)
 ;;51129468102
 ;;9002226.02101,"1044,51129748701 ",.01)
 ;;51129748701
 ;;9002226.02101,"1044,51129748701 ",.02)
 ;;51129748701
 ;;9002226.02101,"1044,51129757701 ",.01)
 ;;51129757701
 ;;9002226.02101,"1044,51129757701 ",.02)
 ;;51129757701
 ;;9002226.02101,"1044,51129821201 ",.01)
 ;;51129821201
 ;;9002226.02101,"1044,51129821201 ",.02)
 ;;51129821201
 ;;9002226.02101,"1044,51129946101 ",.01)
 ;;51129946101
 ;;9002226.02101,"1044,51129946101 ",.02)
 ;;51129946101
 ;;9002226.02101,"1044,51138000130 ",.01)
 ;;51138000130
 ;;9002226.02101,"1044,51138000130 ",.02)
 ;;51138000130
 ;;9002226.02101,"1044,51138000230 ",.01)
 ;;51138000230
 ;;9002226.02101,"1044,51138000230 ",.02)
 ;;51138000230
 ;;9002226.02101,"1044,51138000330 ",.01)
 ;;51138000330
 ;;9002226.02101,"1044,51138000330 ",.02)
 ;;51138000330
 ;;9002226.02101,"1044,51138000430 ",.01)
 ;;51138000430
 ;;9002226.02101,"1044,51138000430 ",.02)
 ;;51138000430
 ;;9002226.02101,"1044,51138000530 ",.01)
 ;;51138000530
 ;;9002226.02101,"1044,51138000530 ",.02)
 ;;51138000530
 ;;9002226.02101,"1044,51138000630 ",.01)
 ;;51138000630
 ;;9002226.02101,"1044,51138000630 ",.02)
 ;;51138000630
 ;;9002226.02101,"1044,51138008903 ",.01)
 ;;51138008903
 ;;9002226.02101,"1044,51138008903 ",.02)
 ;;51138008903