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

BGPM5ALC.m

Go to the documentation of this file.
BGPM5ALC ;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,"885,62584012701 ",.02)
 ;;62584012701
 ;;9002226.02101,"885,62584012785 ",.01)
 ;;62584012785
 ;;9002226.02101,"885,62584012785 ",.02)
 ;;62584012785
 ;;9002226.02101,"885,62584013150 ",.01)
 ;;62584013150
 ;;9002226.02101,"885,62584013150 ",.02)
 ;;62584013150
 ;;9002226.02101,"885,63548360201 ",.01)
 ;;63548360201
 ;;9002226.02101,"885,63548360201 ",.02)
 ;;63548360201
 ;;9002226.02101,"885,63629159801 ",.01)
 ;;63629159801
 ;;9002226.02101,"885,63629159801 ",.02)
 ;;63629159801
 ;;9002226.02101,"885,63629159802 ",.01)
 ;;63629159802
 ;;9002226.02101,"885,63629159802 ",.02)
 ;;63629159802
 ;;9002226.02101,"885,63629159803 ",.01)
 ;;63629159803
 ;;9002226.02101,"885,63629159803 ",.02)
 ;;63629159803
 ;;9002226.02101,"885,63629159804 ",.01)
 ;;63629159804
 ;;9002226.02101,"885,63629159804 ",.02)
 ;;63629159804
 ;;9002226.02101,"885,63629176201 ",.01)
 ;;63629176201
 ;;9002226.02101,"885,63629176201 ",.02)
 ;;63629176201
 ;;9002226.02101,"885,63629176202 ",.01)
 ;;63629176202
 ;;9002226.02101,"885,63629176202 ",.02)
 ;;63629176202
 ;;9002226.02101,"885,63629176203 ",.01)
 ;;63629176203
 ;;9002226.02101,"885,63629176203 ",.02)
 ;;63629176203
 ;;9002226.02101,"885,63629176204 ",.01)
 ;;63629176204
 ;;9002226.02101,"885,63629176204 ",.02)
 ;;63629176204
 ;;9002226.02101,"885,63629282501 ",.01)
 ;;63629282501
 ;;9002226.02101,"885,63629282501 ",.02)
 ;;63629282501
 ;;9002226.02101,"885,63629282502 ",.01)
 ;;63629282502
 ;;9002226.02101,"885,63629282502 ",.02)
 ;;63629282502
 ;;9002226.02101,"885,63629282503 ",.01)
 ;;63629282503
 ;;9002226.02101,"885,63629282503 ",.02)
 ;;63629282503
 ;;9002226.02101,"885,63629295101 ",.01)
 ;;63629295101
 ;;9002226.02101,"885,63629295101 ",.02)
 ;;63629295101
 ;;9002226.02101,"885,63629295102 ",.01)
 ;;63629295102
 ;;9002226.02101,"885,63629295102 ",.02)
 ;;63629295102
 ;;9002226.02101,"885,63629295103 ",.01)
 ;;63629295103
 ;;9002226.02101,"885,63629295103 ",.02)
 ;;63629295103
 ;;9002226.02101,"885,63629295104 ",.01)
 ;;63629295104
 ;;9002226.02101,"885,63629295104 ",.02)
 ;;63629295104
 ;;9002226.02101,"885,63653117101 ",.01)
 ;;63653117101
 ;;9002226.02101,"885,63653117101 ",.02)
 ;;63653117101
 ;;9002226.02101,"885,63653117103 ",.01)
 ;;63653117103
 ;;9002226.02101,"885,63653117103 ",.02)
 ;;63653117103
 ;;9002226.02101,"885,63653117105 ",.01)
 ;;63653117105
 ;;9002226.02101,"885,63653117105 ",.02)
 ;;63653117105
 ;;9002226.02101,"885,63653117106 ",.01)
 ;;63653117106
 ;;9002226.02101,"885,63653117106 ",.02)
 ;;63653117106
 ;;9002226.02101,"885,63736020025 ",.01)
 ;;63736020025
 ;;9002226.02101,"885,63736020025 ",.02)
 ;;63736020025
 ;;9002226.02101,"885,63736020035 ",.01)
 ;;63736020035
 ;;9002226.02101,"885,63736020035 ",.02)
 ;;63736020035
 ;;9002226.02101,"885,63736020045 ",.01)
 ;;63736020045
 ;;9002226.02101,"885,63736020045 ",.02)
 ;;63736020045
 ;;9002226.02101,"885,63736020065 ",.01)
 ;;63736020065
 ;;9002226.02101,"885,63736020065 ",.02)
 ;;63736020065
 ;;9002226.02101,"885,63736021140 ",.01)
 ;;63736021140
 ;;9002226.02101,"885,63736021140 ",.02)
 ;;63736021140
 ;;9002226.02101,"885,63736021175 ",.01)
 ;;63736021175
 ;;9002226.02101,"885,63736021175 ",.02)
 ;;63736021175
 ;;9002226.02101,"885,63739002301 ",.01)
 ;;63739002301
 ;;9002226.02101,"885,63739002301 ",.02)
 ;;63739002301
 ;;9002226.02101,"885,63739002303 ",.01)
 ;;63739002303
 ;;9002226.02101,"885,63739002303 ",.02)
 ;;63739002303
 ;;9002226.02101,"885,63739002401 ",.01)
 ;;63739002401
 ;;9002226.02101,"885,63739002401 ",.02)
 ;;63739002401
 ;;9002226.02101,"885,63739002501 ",.01)
 ;;63739002501
 ;;9002226.02101,"885,63739002501 ",.02)
 ;;63739002501
 ;;9002226.02101,"885,63739027201 ",.01)
 ;;63739027201
 ;;9002226.02101,"885,63739027201 ",.02)
 ;;63739027201
 ;;9002226.02101,"885,63739027203 ",.01)
 ;;63739027203
 ;;9002226.02101,"885,63739027203 ",.02)
 ;;63739027203
 ;;9002226.02101,"885,63739027210 ",.01)
 ;;63739027210
 ;;9002226.02101,"885,63739027210 ",.02)
 ;;63739027210
 ;;9002226.02101,"885,63739043301 ",.01)
 ;;63739043301
 ;;9002226.02101,"885,63739043301 ",.02)
 ;;63739043301
 ;;9002226.02101,"885,63739043303 ",.01)
 ;;63739043303
 ;;9002226.02101,"885,63739043303 ",.02)
 ;;63739043303
 ;;9002226.02101,"885,63739043310 ",.01)
 ;;63739043310
 ;;9002226.02101,"885,63739043310 ",.02)
 ;;63739043310
 ;;9002226.02101,"885,63739043401 ",.01)
 ;;63739043401
 ;;9002226.02101,"885,63739043401 ",.02)
 ;;63739043401
 ;;9002226.02101,"885,63739043403 ",.01)
 ;;63739043403
 ;;9002226.02101,"885,63739043403 ",.02)
 ;;63739043403
 ;;9002226.02101,"885,63868048501 ",.01)
 ;;63868048501
 ;;9002226.02101,"885,63868048501 ",.02)
 ;;63868048501
 ;;9002226.02101,"885,63874000101 ",.01)
 ;;63874000101
 ;;9002226.02101,"885,63874000101 ",.02)
 ;;63874000101
 ;;9002226.02101,"885,63874000115 ",.01)
 ;;63874000115
 ;;9002226.02101,"885,63874000115 ",.02)
 ;;63874000115
 ;;9002226.02101,"885,63874000120 ",.01)
 ;;63874000120
 ;;9002226.02101,"885,63874000120 ",.02)
 ;;63874000120
 ;;9002226.02101,"885,63874000125 ",.01)
 ;;63874000125
 ;;9002226.02101,"885,63874000125 ",.02)
 ;;63874000125
 ;;9002226.02101,"885,63874000130 ",.01)
 ;;63874000130
 ;;9002226.02101,"885,63874000130 ",.02)
 ;;63874000130
 ;;9002226.02101,"885,63874000150 ",.01)
 ;;63874000150
 ;;9002226.02101,"885,63874000150 ",.02)
 ;;63874000150
 ;;9002226.02101,"885,63874026801 ",.01)
 ;;63874026801
 ;;9002226.02101,"885,63874026801 ",.02)
 ;;63874026801
 ;;9002226.02101,"885,63874026802 ",.01)
 ;;63874026802
 ;;9002226.02101,"885,63874026802 ",.02)
 ;;63874026802
 ;;9002226.02101,"885,63874026810 ",.01)
 ;;63874026810
 ;;9002226.02101,"885,63874026810 ",.02)
 ;;63874026810
 ;;9002226.02101,"885,63874026812 ",.01)
 ;;63874026812
 ;;9002226.02101,"885,63874026812 ",.02)
 ;;63874026812
 ;;9002226.02101,"885,63874026814 ",.01)
 ;;63874026814
 ;;9002226.02101,"885,63874026814 ",.02)
 ;;63874026814
 ;;9002226.02101,"885,63874026815 ",.01)
 ;;63874026815
 ;;9002226.02101,"885,63874026815 ",.02)
 ;;63874026815
 ;;9002226.02101,"885,63874026820 ",.01)
 ;;63874026820
 ;;9002226.02101,"885,63874026820 ",.02)
 ;;63874026820
 ;;9002226.02101,"885,63874026821 ",.01)
 ;;63874026821
 ;;9002226.02101,"885,63874026821 ",.02)
 ;;63874026821
 ;;9002226.02101,"885,63874026824 ",.01)
 ;;63874026824
 ;;9002226.02101,"885,63874026824 ",.02)
 ;;63874026824
 ;;9002226.02101,"885,63874026825 ",.01)
 ;;63874026825
 ;;9002226.02101,"885,63874026825 ",.02)
 ;;63874026825
 ;;9002226.02101,"885,63874026828 ",.01)
 ;;63874026828
 ;;9002226.02101,"885,63874026828 ",.02)
 ;;63874026828
 ;;9002226.02101,"885,63874026830 ",.01)
 ;;63874026830
 ;;9002226.02101,"885,63874026830 ",.02)
 ;;63874026830
 ;;9002226.02101,"885,63874026840 ",.01)
 ;;63874026840
 ;;9002226.02101,"885,63874026840 ",.02)
 ;;63874026840
 ;;9002226.02101,"885,63874026850 ",.01)
 ;;63874026850
 ;;9002226.02101,"885,63874026850 ",.02)
 ;;63874026850
 ;;9002226.02101,"885,63874026860 ",.01)
 ;;63874026860
 ;;9002226.02101,"885,63874026860 ",.02)
 ;;63874026860
 ;;9002226.02101,"885,63874056410 ",.01)
 ;;63874056410
 ;;9002226.02101,"885,63874056410 ",.02)
 ;;63874056410
 ;;9002226.02101,"885,63874056430 ",.01)
 ;;63874056430
 ;;9002226.02101,"885,63874056430 ",.02)
 ;;63874056430
 ;;9002226.02101,"885,63874056490 ",.01)
 ;;63874056490
 ;;9002226.02101,"885,63874056490 ",.02)
 ;;63874056490
 ;;9002226.02101,"885,63874099701 ",.01)
 ;;63874099701
 ;;9002226.02101,"885,63874099701 ",.02)
 ;;63874099701
 ;;9002226.02101,"885,63874099702 ",.01)
 ;;63874099702
 ;;9002226.02101,"885,63874099702 ",.02)
 ;;63874099702
 ;;9002226.02101,"885,63874099730 ",.01)
 ;;63874099730
 ;;9002226.02101,"885,63874099730 ",.02)
 ;;63874099730
 ;;9002226.02101,"885,63981022714 ",.01)
 ;;63981022714
 ;;9002226.02101,"885,63981022714 ",.02)
 ;;63981022714
 ;;9002226.02101,"885,64092011250 ",.01)
 ;;64092011250
 ;;9002226.02101,"885,64092011250 ",.02)
 ;;64092011250
 ;;9002226.02101,"885,64092014115 ",.01)
 ;;64092014115
 ;;9002226.02101,"885,64092014115 ",.02)
 ;;64092014115
 ;;9002226.02101,"885,64125010601 ",.01)
 ;;64125010601
 ;;9002226.02101,"885,64125010601 ",.02)
 ;;64125010601
 ;;9002226.02101,"885,65162024111 ",.01)
 ;;65162024111
 ;;9002226.02101,"885,65162024111 ",.02)
 ;;65162024111
 ;;9002226.02101,"885,65162024116 ",.01)
 ;;65162024116
 ;;9002226.02101,"885,65162024116 ",.02)
 ;;65162024116
 ;;9002226.02101,"885,65162038010 ",.01)
 ;;65162038010
 ;;9002226.02101,"885,65162038010 ",.02)
 ;;65162038010
 ;;9002226.02101,"885,65162038011 ",.01)
 ;;65162038011
 ;;9002226.02101,"885,65162038011 ",.02)
 ;;65162038011
 ;;9002226.02101,"885,65162038211 ",.01)
 ;;65162038211
 ;;9002226.02101,"885,65162038211 ",.02)
 ;;65162038211
 ;;9002226.02101,"885,65437003805 ",.01)
 ;;65437003805
 ;;9002226.02101,"885,65437003805 ",.02)
 ;;65437003805
 ;;9002226.02101,"885,65437003807 ",.01)
 ;;65437003807
 ;;9002226.02101,"885,65437003807 ",.02)
 ;;65437003807
 ;;9002226.02101,"885,65437003810 ",.01)
 ;;65437003810
 ;;9002226.02101,"885,65437003810 ",.02)
 ;;65437003810
 ;;9002226.02101,"885,66267002630 ",.01)
 ;;66267002630
 ;;9002226.02101,"885,66267002630 ",.02)
 ;;66267002630
 ;;9002226.02101,"885,66267002660 ",.01)
 ;;66267002660
 ;;9002226.02101,"885,66267002660 ",.02)
 ;;66267002660
 ;;9002226.02101,"885,66267002730 ",.01)
 ;;66267002730
 ;;9002226.02101,"885,66267002730 ",.02)
 ;;66267002730
 ;;9002226.02101,"885,66267002830 ",.01)
 ;;66267002830
 ;;9002226.02101,"885,66267002830 ",.02)
 ;;66267002830
 ;;9002226.02101,"885,66267003710 ",.01)
 ;;66267003710
 ;;9002226.02101,"885,66267003710 ",.02)
 ;;66267003710
 ;;9002226.02101,"885,66267003720 ",.01)
 ;;66267003720
 ;;9002226.02101,"885,66267003720 ",.02)
 ;;66267003720
 ;;9002226.02101,"885,66267003730 ",.01)
 ;;66267003730
 ;;9002226.02101,"885,66267003730 ",.02)
 ;;66267003730
 ;;9002226.02101,"885,66267003740 ",.01)
 ;;66267003740
 ;;9002226.02101,"885,66267003740 ",.02)
 ;;66267003740
 ;;9002226.02101,"885,66267003760 ",.01)
 ;;66267003760
 ;;9002226.02101,"885,66267003760 ",.02)
 ;;66267003760
 ;;9002226.02101,"885,66267054410 ",.01)
 ;;66267054410
 ;;9002226.02101,"885,66267054410 ",.02)
 ;;66267054410
 ;;9002226.02101,"885,66267054415 ",.01)
 ;;66267054415
 ;;9002226.02101,"885,66267054415 ",.02)
 ;;66267054415
 ;;9002226.02101,"885,66267054420 ",.01)
 ;;66267054420
 ;;9002226.02101,"885,66267054420 ",.02)
 ;;66267054420
 ;;9002226.02101,"885,66267054430 ",.01)
 ;;66267054430
 ;;9002226.02101,"885,66267054430 ",.02)
 ;;66267054430
 ;;9002226.02101,"885,66267054460 ",.01)
 ;;66267054460
 ;;9002226.02101,"885,66267054460 ",.02)
 ;;66267054460
 ;;9002226.02101,"885,66267069615 ",.01)
 ;;66267069615
 ;;9002226.02101,"885,66267069615 ",.02)
 ;;66267069615
 ;;9002226.02101,"885,66267069660 ",.01)
 ;;66267069660
 ;;9002226.02101,"885,66267069660 ",.02)
 ;;66267069660
 ;;9002226.02101,"885,66267129903 ",.01)
 ;;66267129903
 ;;9002226.02101,"885,66267129903 ",.02)
 ;;66267129903
 ;;9002226.02101,"885,66466393700 ",.01)
 ;;66466393700
 ;;9002226.02101,"885,66466393700 ",.02)
 ;;66466393700
 ;;9002226.02101,"885,66466393701 ",.01)
 ;;66466393701
 ;;9002226.02101,"885,66466393701 ",.02)
 ;;66466393701
 ;;9002226.02101,"885,66553000101 ",.01)
 ;;66553000101
 ;;9002226.02101,"885,66553000101 ",.02)
 ;;66553000101
 ;;9002226.02101,"885,66553000201 ",.01)
 ;;66553000201
 ;;9002226.02101,"885,66553000201 ",.02)
 ;;66553000201
 ;;9002226.02101,"885,66553000301 ",.01)
 ;;66553000301