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

BGPM5BEQ.m

Go to the documentation of this file.
BGPM5BEQ ;IHS/MSC/MMT-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,"1084,00069503101 ",.02)
 ;;00069503101
 ;;9002226.02101,"1084,00069503201 ",.01)
 ;;00069503201
 ;;9002226.02101,"1084,00069503201 ",.02)
 ;;00069503201
 ;;9002226.02101,"1084,00069503202 ",.01)
 ;;00069503202
 ;;9002226.02101,"1084,00069503202 ",.02)
 ;;00069503202
 ;;9002226.02101,"1084,00069503301 ",.01)
 ;;00069503301
 ;;9002226.02101,"1084,00069503301 ",.02)
 ;;00069503301
 ;;9002226.02101,"1084,00069503302 ",.01)
 ;;00069503302
 ;;9002226.02101,"1084,00069503302 ",.02)
 ;;00069503302
 ;;9002226.02101,"1084,00087092105 ",.01)
 ;;00087092105
 ;;9002226.02101,"1084,00087092105 ",.02)
 ;;00087092105
 ;;9002226.02101,"1084,00088016247 ",.01)
 ;;00088016247
 ;;9002226.02101,"1084,00088016247 ",.02)
 ;;00088016247
 ;;9002226.02101,"1084,00088016347 ",.01)
 ;;00088016347
 ;;9002226.02101,"1084,00088016347 ",.02)
 ;;00088016347
 ;;9002226.02101,"1084,00088016447 ",.01)
 ;;00088016447
 ;;9002226.02101,"1084,00088016447 ",.02)
 ;;00088016447
 ;;9002226.02101,"1084,00093104801 ",.01)
 ;;00093104801
 ;;9002226.02101,"1084,00093104801 ",.02)
 ;;00093104801
 ;;9002226.02101,"1084,00093104805 ",.01)
 ;;00093104805
 ;;9002226.02101,"1084,00093104805 ",.02)
 ;;00093104805
 ;;9002226.02101,"1084,00093104810 ",.01)
 ;;00093104810
 ;;9002226.02101,"1084,00093104810 ",.02)
 ;;00093104810
 ;;9002226.02101,"1084,00093104819 ",.01)
 ;;00093104819
 ;;9002226.02101,"1084,00093104819 ",.02)
 ;;00093104819
 ;;9002226.02101,"1084,00093104893 ",.01)
 ;;00093104893
 ;;9002226.02101,"1084,00093104893 ",.02)
 ;;00093104893
 ;;9002226.02101,"1084,00093104898 ",.01)
 ;;00093104898
 ;;9002226.02101,"1084,00093104898 ",.02)
 ;;00093104898
 ;;9002226.02101,"1084,00093104901 ",.01)
 ;;00093104901
 ;;9002226.02101,"1084,00093104901 ",.02)
 ;;00093104901
 ;;9002226.02101,"1084,00093104905 ",.01)
 ;;00093104905
 ;;9002226.02101,"1084,00093104905 ",.02)
 ;;00093104905
 ;;9002226.02101,"1084,00093104910 ",.01)
 ;;00093104910
 ;;9002226.02101,"1084,00093104910 ",.02)
 ;;00093104910
 ;;9002226.02101,"1084,00093104919 ",.01)
 ;;00093104919
 ;;9002226.02101,"1084,00093104919 ",.02)
 ;;00093104919
 ;;9002226.02101,"1084,00093104993 ",.01)
 ;;00093104993
 ;;9002226.02101,"1084,00093104993 ",.02)
 ;;00093104993
 ;;9002226.02101,"1084,00093104998 ",.01)
 ;;00093104998
 ;;9002226.02101,"1084,00093104998 ",.02)
 ;;00093104998
 ;;9002226.02101,"1084,00093571001 ",.01)
 ;;00093571001
 ;;9002226.02101,"1084,00093571001 ",.02)
 ;;00093571001
 ;;9002226.02101,"1084,00093571005 ",.01)
 ;;00093571005
 ;;9002226.02101,"1084,00093571005 ",.02)
 ;;00093571005
 ;;9002226.02101,"1084,00093571019 ",.01)
 ;;00093571019
 ;;9002226.02101,"1084,00093571019 ",.02)
 ;;00093571019
 ;;9002226.02101,"1084,00093571093 ",.01)
 ;;00093571093
 ;;9002226.02101,"1084,00093571093 ",.02)
 ;;00093571093
 ;;9002226.02101,"1084,00093571101 ",.01)
 ;;00093571101
 ;;9002226.02101,"1084,00093571101 ",.02)
 ;;00093571101
 ;;9002226.02101,"1084,00093571105 ",.01)
 ;;00093571105
 ;;9002226.02101,"1084,00093571105 ",.02)
 ;;00093571105
 ;;9002226.02101,"1084,00093571119 ",.01)
 ;;00093571119
 ;;9002226.02101,"1084,00093571119 ",.02)
 ;;00093571119
 ;;9002226.02101,"1084,00093571193 ",.01)
 ;;00093571193
 ;;9002226.02101,"1084,00093571193 ",.02)
 ;;00093571193
 ;;9002226.02101,"1084,00093571201 ",.01)
 ;;00093571201
 ;;9002226.02101,"1084,00093571201 ",.02)
 ;;00093571201
 ;;9002226.02101,"1084,00093571205 ",.01)
 ;;00093571205
 ;;9002226.02101,"1084,00093571205 ",.02)
 ;;00093571205
 ;;9002226.02101,"1084,00093571219 ",.01)
 ;;00093571219
 ;;9002226.02101,"1084,00093571219 ",.02)
 ;;00093571219
 ;;9002226.02101,"1084,00093571293 ",.01)
 ;;00093571293
 ;;9002226.02101,"1084,00093571293 ",.02)
 ;;00093571293
 ;;9002226.02101,"1084,00093721201 ",.01)
 ;;00093721201
 ;;9002226.02101,"1084,00093721201 ",.02)
 ;;00093721201
 ;;9002226.02101,"1084,00093721401 ",.01)
 ;;00093721401
 ;;9002226.02101,"1084,00093721401 ",.02)
 ;;00093721401
 ;;9002226.02101,"1084,00093721405 ",.01)
 ;;00093721405
 ;;9002226.02101,"1084,00093721405 ",.02)
 ;;00093721405
 ;;9002226.02101,"1084,00093721410 ",.01)
 ;;00093721410
 ;;9002226.02101,"1084,00093721410 ",.02)
 ;;00093721410
 ;;9002226.02101,"1084,00093721498 ",.01)
 ;;00093721498
 ;;9002226.02101,"1084,00093721498 ",.02)
 ;;00093721498
 ;;9002226.02101,"1084,00093725401 ",.01)
 ;;00093725401
 ;;9002226.02101,"1084,00093725401 ",.02)
 ;;00093725401
 ;;9002226.02101,"1084,00093725501 ",.01)
 ;;00093725501
 ;;9002226.02101,"1084,00093725501 ",.02)
 ;;00093725501
 ;;9002226.02101,"1084,00093725601 ",.01)
 ;;00093725601
 ;;9002226.02101,"1084,00093725601 ",.02)
 ;;00093725601
 ;;9002226.02101,"1084,00093725652 ",.01)
 ;;00093725652
 ;;9002226.02101,"1084,00093725652 ",.02)
 ;;00093725652
 ;;9002226.02101,"1084,00093726001 ",.01)
 ;;00093726001
 ;;9002226.02101,"1084,00093726001 ",.02)
 ;;00093726001
 ;;9002226.02101,"1084,00093726101 ",.01)
 ;;00093726101
 ;;9002226.02101,"1084,00093726101 ",.02)
 ;;00093726101
 ;;9002226.02101,"1084,00093726105 ",.01)
 ;;00093726105
 ;;9002226.02101,"1084,00093726105 ",.02)
 ;;00093726105
 ;;9002226.02101,"1084,00093726205 ",.01)
 ;;00093726205
 ;;9002226.02101,"1084,00093726205 ",.02)
 ;;00093726205
 ;;9002226.02101,"1084,00093726701 ",.01)
 ;;00093726701
 ;;9002226.02101,"1084,00093726701 ",.02)
 ;;00093726701
 ;;9002226.02101,"1084,00093726710 ",.01)
 ;;00093726710
 ;;9002226.02101,"1084,00093726710 ",.02)
 ;;00093726710
 ;;9002226.02101,"1084,00093745501 ",.01)
 ;;00093745501
 ;;9002226.02101,"1084,00093745501 ",.02)
 ;;00093745501
 ;;9002226.02101,"1084,00093745601 ",.01)
 ;;00093745601
 ;;9002226.02101,"1084,00093745601 ",.02)
 ;;00093745601
 ;;9002226.02101,"1084,00093745701 ",.01)
 ;;00093745701
 ;;9002226.02101,"1084,00093745701 ",.02)
 ;;00093745701
 ;;9002226.02101,"1084,00093803401 ",.01)
 ;;00093803401
 ;;9002226.02101,"1084,00093803401 ",.02)
 ;;00093803401
 ;;9002226.02101,"1084,00093803501 ",.01)
 ;;00093803501
 ;;9002226.02101,"1084,00093803501 ",.02)
 ;;00093803501
 ;;9002226.02101,"1084,00093803505 ",.01)
 ;;00093803505
 ;;9002226.02101,"1084,00093803505 ",.02)
 ;;00093803505
 ;;9002226.02101,"1084,00093803601 ",.01)
 ;;00093803601
 ;;9002226.02101,"1084,00093803601 ",.02)
 ;;00093803601
 ;;9002226.02101,"1084,00093834201 ",.01)
 ;;00093834201
 ;;9002226.02101,"1084,00093834201 ",.02)
 ;;00093834201
 ;;9002226.02101,"1084,00093834301 ",.01)
 ;;00093834301
 ;;9002226.02101,"1084,00093834301 ",.02)
 ;;00093834301
 ;;9002226.02101,"1084,00093834305 ",.01)
 ;;00093834305
 ;;9002226.02101,"1084,00093834305 ",.02)
 ;;00093834305
 ;;9002226.02101,"1084,00093834310 ",.01)
 ;;00093834310
 ;;9002226.02101,"1084,00093834310 ",.02)
 ;;00093834310
 ;;9002226.02101,"1084,00093834350 ",.01)
 ;;00093834350
 ;;9002226.02101,"1084,00093834350 ",.02)
 ;;00093834350
 ;;9002226.02101,"1084,00093834398 ",.01)
 ;;00093834398
 ;;9002226.02101,"1084,00093834398 ",.02)
 ;;00093834398
 ;;9002226.02101,"1084,00093834401 ",.01)
 ;;00093834401
 ;;9002226.02101,"1084,00093834401 ",.02)
 ;;00093834401
 ;;9002226.02101,"1084,00093834405 ",.01)
 ;;00093834405
 ;;9002226.02101,"1084,00093834405 ",.02)
 ;;00093834405
 ;;9002226.02101,"1084,00093834410 ",.01)
 ;;00093834410
 ;;9002226.02101,"1084,00093834410 ",.02)
 ;;00093834410
 ;;9002226.02101,"1084,00093834419 ",.01)
 ;;00093834419
 ;;9002226.02101,"1084,00093834419 ",.02)
 ;;00093834419
 ;;9002226.02101,"1084,00093834450 ",.01)
 ;;00093834450
 ;;9002226.02101,"1084,00093834450 ",.02)
 ;;00093834450
 ;;9002226.02101,"1084,00093834493 ",.01)
 ;;00093834493
 ;;9002226.02101,"1084,00093834493 ",.02)
 ;;00093834493
 ;;9002226.02101,"1084,00093834498 ",.01)
 ;;00093834498
 ;;9002226.02101,"1084,00093834498 ",.02)
 ;;00093834498
 ;;9002226.02101,"1084,00093936401 ",.01)
 ;;00093936401
 ;;9002226.02101,"1084,00093936401 ",.02)
 ;;00093936401
 ;;9002226.02101,"1084,00093936405 ",.01)
 ;;00093936405
 ;;9002226.02101,"1084,00093936405 ",.02)
 ;;00093936405
 ;;9002226.02101,"1084,00093936410 ",.01)
 ;;00093936410
 ;;9002226.02101,"1084,00093936410 ",.02)
 ;;00093936410
 ;;9002226.02101,"1084,00093943301 ",.01)
 ;;00093943301
 ;;9002226.02101,"1084,00093943301 ",.02)
 ;;00093943301
 ;;9002226.02101,"1084,00093943305 ",.01)
 ;;00093943305
 ;;9002226.02101,"1084,00093943305 ",.02)
 ;;00093943305
 ;;9002226.02101,"1084,00093947753 ",.01)
 ;;00093947753
 ;;9002226.02101,"1084,00093947753 ",.02)
 ;;00093947753
 ;;9002226.02101,"1084,00115115001 ",.01)
 ;;00115115001
 ;;9002226.02101,"1084,00115115001 ",.02)
 ;;00115115001
 ;;9002226.02101,"1084,00115115002 ",.01)
 ;;00115115002
 ;;9002226.02101,"1084,00115115002 ",.02)
 ;;00115115002
 ;;9002226.02101,"1084,00115115003 ",.01)
 ;;00115115003
 ;;9002226.02101,"1084,00115115003 ",.02)
 ;;00115115003
 ;;9002226.02101,"1084,00115115101 ",.01)
 ;;00115115101
 ;;9002226.02101,"1084,00115115101 ",.02)
 ;;00115115101
 ;;9002226.02101,"1084,00115115102 ",.01)
 ;;00115115102
 ;;9002226.02101,"1084,00115115102 ",.02)
 ;;00115115102
 ;;9002226.02101,"1084,00115115103 ",.01)
 ;;00115115103
 ;;9002226.02101,"1084,00115115103 ",.02)
 ;;00115115103
 ;;9002226.02101,"1084,00115115201 ",.01)
 ;;00115115201
 ;;9002226.02101,"1084,00115115201 ",.02)
 ;;00115115201
 ;;9002226.02101,"1084,00115115202 ",.01)
 ;;00115115202
 ;;9002226.02101,"1084,00115115202 ",.02)
 ;;00115115202
 ;;9002226.02101,"1084,00115115203 ",.01)
 ;;00115115203
 ;;9002226.02101,"1084,00115115203 ",.02)
 ;;00115115203
 ;;9002226.02101,"1084,00143991801 ",.01)
 ;;00143991801
 ;;9002226.02101,"1084,00143991801 ",.02)
 ;;00143991801
 ;;9002226.02101,"1084,00143991805 ",.01)
 ;;00143991805
 ;;9002226.02101,"1084,00143991805 ",.02)
 ;;00143991805
 ;;9002226.02101,"1084,00143991901 ",.01)
 ;;00143991901
 ;;9002226.02101,"1084,00143991901 ",.02)
 ;;00143991901
 ;;9002226.02101,"1084,00143991905 ",.01)
 ;;00143991905
 ;;9002226.02101,"1084,00143991905 ",.02)
 ;;00143991905
 ;;9002226.02101,"1084,00143991910 ",.01)
 ;;00143991910
 ;;9002226.02101,"1084,00143991910 ",.02)
 ;;00143991910
 ;;9002226.02101,"1084,00143992001 ",.01)
 ;;00143992001
 ;;9002226.02101,"1084,00143992001 ",.02)
 ;;00143992001
 ;;9002226.02101,"1084,00143992005 ",.01)
 ;;00143992005
 ;;9002226.02101,"1084,00143992005 ",.02)
 ;;00143992005
 ;;9002226.02101,"1084,00143992010 ",.01)
 ;;00143992010
 ;;9002226.02101,"1084,00143992010 ",.02)
 ;;00143992010
 ;;9002226.02101,"1084,00143997301 ",.01)
 ;;00143997301
 ;;9002226.02101,"1084,00143997301 ",.02)
 ;;00143997301
 ;;9002226.02101,"1084,00143997305 ",.01)
 ;;00143997305
 ;;9002226.02101,"1084,00143997305 ",.02)
 ;;00143997305
 ;;9002226.02101,"1084,00143997330 ",.01)
 ;;00143997330
 ;;9002226.02101,"1084,00143997330 ",.02)
 ;;00143997330
 ;;9002226.02101,"1084,00143997401 ",.01)
 ;;00143997401
 ;;9002226.02101,"1084,00143997401 ",.02)
 ;;00143997401
 ;;9002226.02101,"1084,00143997405 ",.01)
 ;;00143997405
 ;;9002226.02101,"1084,00143997405 ",.02)
 ;;00143997405
 ;;9002226.02101,"1084,00143997430 ",.01)
 ;;00143997430
 ;;9002226.02101,"1084,00143997430 ",.02)
 ;;00143997430
 ;;9002226.02101,"1084,00143997501 ",.01)
 ;;00143997501
 ;;9002226.02101,"1084,00143997501 ",.02)
 ;;00143997501
 ;;9002226.02101,"1084,00143997505 ",.01)
 ;;00143997505
 ;;9002226.02101,"1084,00143997505 ",.02)
 ;;00143997505
 ;;9002226.02101,"1084,00143997530 ",.01)
 ;;00143997530
 ;;9002226.02101,"1084,00143997530 ",.02)
 ;;00143997530
 ;;9002226.02101,"1084,00172224560 ",.01)
 ;;00172224560
 ;;9002226.02101,"1084,00172224560 ",.02)
 ;;00172224560