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.
  1. BGPM5BEQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1084,00069503101 ",.02)
  1. ;;00069503101
  1. ;;9002226.02101,"1084,00069503201 ",.01)
  1. ;;00069503201
  1. ;;9002226.02101,"1084,00069503201 ",.02)
  1. ;;00069503201
  1. ;;9002226.02101,"1084,00069503202 ",.01)
  1. ;;00069503202
  1. ;;9002226.02101,"1084,00069503202 ",.02)
  1. ;;00069503202
  1. ;;9002226.02101,"1084,00069503301 ",.01)
  1. ;;00069503301
  1. ;;9002226.02101,"1084,00069503301 ",.02)
  1. ;;00069503301
  1. ;;9002226.02101,"1084,00069503302 ",.01)
  1. ;;00069503302
  1. ;;9002226.02101,"1084,00069503302 ",.02)
  1. ;;00069503302
  1. ;;9002226.02101,"1084,00087092105 ",.01)
  1. ;;00087092105
  1. ;;9002226.02101,"1084,00087092105 ",.02)
  1. ;;00087092105
  1. ;;9002226.02101,"1084,00088016247 ",.01)
  1. ;;00088016247
  1. ;;9002226.02101,"1084,00088016247 ",.02)
  1. ;;00088016247
  1. ;;9002226.02101,"1084,00088016347 ",.01)
  1. ;;00088016347
  1. ;;9002226.02101,"1084,00088016347 ",.02)
  1. ;;00088016347
  1. ;;9002226.02101,"1084,00088016447 ",.01)
  1. ;;00088016447
  1. ;;9002226.02101,"1084,00088016447 ",.02)
  1. ;;00088016447
  1. ;;9002226.02101,"1084,00093104801 ",.01)
  1. ;;00093104801
  1. ;;9002226.02101,"1084,00093104801 ",.02)
  1. ;;00093104801
  1. ;;9002226.02101,"1084,00093104805 ",.01)
  1. ;;00093104805
  1. ;;9002226.02101,"1084,00093104805 ",.02)
  1. ;;00093104805
  1. ;;9002226.02101,"1084,00093104810 ",.01)
  1. ;;00093104810
  1. ;;9002226.02101,"1084,00093104810 ",.02)
  1. ;;00093104810
  1. ;;9002226.02101,"1084,00093104819 ",.01)
  1. ;;00093104819
  1. ;;9002226.02101,"1084,00093104819 ",.02)
  1. ;;00093104819
  1. ;;9002226.02101,"1084,00093104893 ",.01)
  1. ;;00093104893
  1. ;;9002226.02101,"1084,00093104893 ",.02)
  1. ;;00093104893
  1. ;;9002226.02101,"1084,00093104898 ",.01)
  1. ;;00093104898
  1. ;;9002226.02101,"1084,00093104898 ",.02)
  1. ;;00093104898
  1. ;;9002226.02101,"1084,00093104901 ",.01)
  1. ;;00093104901
  1. ;;9002226.02101,"1084,00093104901 ",.02)
  1. ;;00093104901
  1. ;;9002226.02101,"1084,00093104905 ",.01)
  1. ;;00093104905
  1. ;;9002226.02101,"1084,00093104905 ",.02)
  1. ;;00093104905
  1. ;;9002226.02101,"1084,00093104910 ",.01)
  1. ;;00093104910
  1. ;;9002226.02101,"1084,00093104910 ",.02)
  1. ;;00093104910
  1. ;;9002226.02101,"1084,00093104919 ",.01)
  1. ;;00093104919
  1. ;;9002226.02101,"1084,00093104919 ",.02)
  1. ;;00093104919
  1. ;;9002226.02101,"1084,00093104993 ",.01)
  1. ;;00093104993
  1. ;;9002226.02101,"1084,00093104993 ",.02)
  1. ;;00093104993
  1. ;;9002226.02101,"1084,00093104998 ",.01)
  1. ;;00093104998
  1. ;;9002226.02101,"1084,00093104998 ",.02)
  1. ;;00093104998
  1. ;;9002226.02101,"1084,00093571001 ",.01)
  1. ;;00093571001
  1. ;;9002226.02101,"1084,00093571001 ",.02)
  1. ;;00093571001
  1. ;;9002226.02101,"1084,00093571005 ",.01)
  1. ;;00093571005
  1. ;;9002226.02101,"1084,00093571005 ",.02)
  1. ;;00093571005
  1. ;;9002226.02101,"1084,00093571019 ",.01)
  1. ;;00093571019
  1. ;;9002226.02101,"1084,00093571019 ",.02)
  1. ;;00093571019
  1. ;;9002226.02101,"1084,00093571093 ",.01)
  1. ;;00093571093
  1. ;;9002226.02101,"1084,00093571093 ",.02)
  1. ;;00093571093
  1. ;;9002226.02101,"1084,00093571101 ",.01)
  1. ;;00093571101
  1. ;;9002226.02101,"1084,00093571101 ",.02)
  1. ;;00093571101
  1. ;;9002226.02101,"1084,00093571105 ",.01)
  1. ;;00093571105
  1. ;;9002226.02101,"1084,00093571105 ",.02)
  1. ;;00093571105
  1. ;;9002226.02101,"1084,00093571119 ",.01)
  1. ;;00093571119
  1. ;;9002226.02101,"1084,00093571119 ",.02)
  1. ;;00093571119
  1. ;;9002226.02101,"1084,00093571193 ",.01)
  1. ;;00093571193
  1. ;;9002226.02101,"1084,00093571193 ",.02)
  1. ;;00093571193
  1. ;;9002226.02101,"1084,00093571201 ",.01)
  1. ;;00093571201
  1. ;;9002226.02101,"1084,00093571201 ",.02)
  1. ;;00093571201
  1. ;;9002226.02101,"1084,00093571205 ",.01)
  1. ;;00093571205
  1. ;;9002226.02101,"1084,00093571205 ",.02)
  1. ;;00093571205
  1. ;;9002226.02101,"1084,00093571219 ",.01)
  1. ;;00093571219
  1. ;;9002226.02101,"1084,00093571219 ",.02)
  1. ;;00093571219
  1. ;;9002226.02101,"1084,00093571293 ",.01)
  1. ;;00093571293
  1. ;;9002226.02101,"1084,00093571293 ",.02)
  1. ;;00093571293
  1. ;;9002226.02101,"1084,00093721201 ",.01)
  1. ;;00093721201
  1. ;;9002226.02101,"1084,00093721201 ",.02)
  1. ;;00093721201
  1. ;;9002226.02101,"1084,00093721401 ",.01)
  1. ;;00093721401
  1. ;;9002226.02101,"1084,00093721401 ",.02)
  1. ;;00093721401
  1. ;;9002226.02101,"1084,00093721405 ",.01)
  1. ;;00093721405
  1. ;;9002226.02101,"1084,00093721405 ",.02)
  1. ;;00093721405
  1. ;;9002226.02101,"1084,00093721410 ",.01)
  1. ;;00093721410
  1. ;;9002226.02101,"1084,00093721410 ",.02)
  1. ;;00093721410
  1. ;;9002226.02101,"1084,00093721498 ",.01)
  1. ;;00093721498
  1. ;;9002226.02101,"1084,00093721498 ",.02)
  1. ;;00093721498
  1. ;;9002226.02101,"1084,00093725401 ",.01)
  1. ;;00093725401
  1. ;;9002226.02101,"1084,00093725401 ",.02)
  1. ;;00093725401
  1. ;;9002226.02101,"1084,00093725501 ",.01)
  1. ;;00093725501
  1. ;;9002226.02101,"1084,00093725501 ",.02)
  1. ;;00093725501
  1. ;;9002226.02101,"1084,00093725601 ",.01)
  1. ;;00093725601
  1. ;;9002226.02101,"1084,00093725601 ",.02)
  1. ;;00093725601
  1. ;;9002226.02101,"1084,00093725652 ",.01)
  1. ;;00093725652
  1. ;;9002226.02101,"1084,00093725652 ",.02)
  1. ;;00093725652
  1. ;;9002226.02101,"1084,00093726001 ",.01)
  1. ;;00093726001
  1. ;;9002226.02101,"1084,00093726001 ",.02)
  1. ;;00093726001
  1. ;;9002226.02101,"1084,00093726101 ",.01)
  1. ;;00093726101
  1. ;;9002226.02101,"1084,00093726101 ",.02)
  1. ;;00093726101
  1. ;;9002226.02101,"1084,00093726105 ",.01)
  1. ;;00093726105
  1. ;;9002226.02101,"1084,00093726105 ",.02)
  1. ;;00093726105
  1. ;;9002226.02101,"1084,00093726205 ",.01)
  1. ;;00093726205
  1. ;;9002226.02101,"1084,00093726205 ",.02)
  1. ;;00093726205
  1. ;;9002226.02101,"1084,00093726701 ",.01)
  1. ;;00093726701
  1. ;;9002226.02101,"1084,00093726701 ",.02)
  1. ;;00093726701
  1. ;;9002226.02101,"1084,00093726710 ",.01)
  1. ;;00093726710
  1. ;;9002226.02101,"1084,00093726710 ",.02)
  1. ;;00093726710
  1. ;;9002226.02101,"1084,00093745501 ",.01)
  1. ;;00093745501
  1. ;;9002226.02101,"1084,00093745501 ",.02)
  1. ;;00093745501
  1. ;;9002226.02101,"1084,00093745601 ",.01)
  1. ;;00093745601
  1. ;;9002226.02101,"1084,00093745601 ",.02)
  1. ;;00093745601
  1. ;;9002226.02101,"1084,00093745701 ",.01)
  1. ;;00093745701
  1. ;;9002226.02101,"1084,00093745701 ",.02)
  1. ;;00093745701
  1. ;;9002226.02101,"1084,00093803401 ",.01)
  1. ;;00093803401
  1. ;;9002226.02101,"1084,00093803401 ",.02)
  1. ;;00093803401
  1. ;;9002226.02101,"1084,00093803501 ",.01)
  1. ;;00093803501
  1. ;;9002226.02101,"1084,00093803501 ",.02)
  1. ;;00093803501
  1. ;;9002226.02101,"1084,00093803505 ",.01)
  1. ;;00093803505
  1. ;;9002226.02101,"1084,00093803505 ",.02)
  1. ;;00093803505
  1. ;;9002226.02101,"1084,00093803601 ",.01)
  1. ;;00093803601
  1. ;;9002226.02101,"1084,00093803601 ",.02)
  1. ;;00093803601
  1. ;;9002226.02101,"1084,00093834201 ",.01)
  1. ;;00093834201
  1. ;;9002226.02101,"1084,00093834201 ",.02)
  1. ;;00093834201
  1. ;;9002226.02101,"1084,00093834301 ",.01)
  1. ;;00093834301
  1. ;;9002226.02101,"1084,00093834301 ",.02)
  1. ;;00093834301
  1. ;;9002226.02101,"1084,00093834305 ",.01)
  1. ;;00093834305
  1. ;;9002226.02101,"1084,00093834305 ",.02)
  1. ;;00093834305
  1. ;;9002226.02101,"1084,00093834310 ",.01)
  1. ;;00093834310
  1. ;;9002226.02101,"1084,00093834310 ",.02)
  1. ;;00093834310
  1. ;;9002226.02101,"1084,00093834350 ",.01)
  1. ;;00093834350
  1. ;;9002226.02101,"1084,00093834350 ",.02)
  1. ;;00093834350
  1. ;;9002226.02101,"1084,00093834398 ",.01)
  1. ;;00093834398
  1. ;;9002226.02101,"1084,00093834398 ",.02)
  1. ;;00093834398
  1. ;;9002226.02101,"1084,00093834401 ",.01)
  1. ;;00093834401
  1. ;;9002226.02101,"1084,00093834401 ",.02)
  1. ;;00093834401
  1. ;;9002226.02101,"1084,00093834405 ",.01)
  1. ;;00093834405
  1. ;;9002226.02101,"1084,00093834405 ",.02)
  1. ;;00093834405
  1. ;;9002226.02101,"1084,00093834410 ",.01)
  1. ;;00093834410
  1. ;;9002226.02101,"1084,00093834410 ",.02)
  1. ;;00093834410
  1. ;;9002226.02101,"1084,00093834419 ",.01)
  1. ;;00093834419
  1. ;;9002226.02101,"1084,00093834419 ",.02)
  1. ;;00093834419
  1. ;;9002226.02101,"1084,00093834450 ",.01)
  1. ;;00093834450
  1. ;;9002226.02101,"1084,00093834450 ",.02)
  1. ;;00093834450
  1. ;;9002226.02101,"1084,00093834493 ",.01)
  1. ;;00093834493
  1. ;;9002226.02101,"1084,00093834493 ",.02)
  1. ;;00093834493
  1. ;;9002226.02101,"1084,00093834498 ",.01)
  1. ;;00093834498
  1. ;;9002226.02101,"1084,00093834498 ",.02)
  1. ;;00093834498
  1. ;;9002226.02101,"1084,00093936401 ",.01)
  1. ;;00093936401
  1. ;;9002226.02101,"1084,00093936401 ",.02)
  1. ;;00093936401
  1. ;;9002226.02101,"1084,00093936405 ",.01)
  1. ;;00093936405
  1. ;;9002226.02101,"1084,00093936405 ",.02)
  1. ;;00093936405
  1. ;;9002226.02101,"1084,00093936410 ",.01)
  1. ;;00093936410
  1. ;;9002226.02101,"1084,00093936410 ",.02)
  1. ;;00093936410
  1. ;;9002226.02101,"1084,00093943301 ",.01)
  1. ;;00093943301
  1. ;;9002226.02101,"1084,00093943301 ",.02)
  1. ;;00093943301
  1. ;;9002226.02101,"1084,00093943305 ",.01)
  1. ;;00093943305
  1. ;;9002226.02101,"1084,00093943305 ",.02)
  1. ;;00093943305
  1. ;;9002226.02101,"1084,00093947753 ",.01)
  1. ;;00093947753
  1. ;;9002226.02101,"1084,00093947753 ",.02)
  1. ;;00093947753
  1. ;;9002226.02101,"1084,00115115001 ",.01)
  1. ;;00115115001
  1. ;;9002226.02101,"1084,00115115001 ",.02)
  1. ;;00115115001
  1. ;;9002226.02101,"1084,00115115002 ",.01)
  1. ;;00115115002
  1. ;;9002226.02101,"1084,00115115002 ",.02)
  1. ;;00115115002
  1. ;;9002226.02101,"1084,00115115003 ",.01)
  1. ;;00115115003
  1. ;;9002226.02101,"1084,00115115003 ",.02)
  1. ;;00115115003
  1. ;;9002226.02101,"1084,00115115101 ",.01)
  1. ;;00115115101
  1. ;;9002226.02101,"1084,00115115101 ",.02)
  1. ;;00115115101
  1. ;;9002226.02101,"1084,00115115102 ",.01)
  1. ;;00115115102
  1. ;;9002226.02101,"1084,00115115102 ",.02)
  1. ;;00115115102
  1. ;;9002226.02101,"1084,00115115103 ",.01)
  1. ;;00115115103
  1. ;;9002226.02101,"1084,00115115103 ",.02)
  1. ;;00115115103
  1. ;;9002226.02101,"1084,00115115201 ",.01)
  1. ;;00115115201
  1. ;;9002226.02101,"1084,00115115201 ",.02)
  1. ;;00115115201
  1. ;;9002226.02101,"1084,00115115202 ",.01)
  1. ;;00115115202
  1. ;;9002226.02101,"1084,00115115202 ",.02)
  1. ;;00115115202
  1. ;;9002226.02101,"1084,00115115203 ",.01)
  1. ;;00115115203
  1. ;;9002226.02101,"1084,00115115203 ",.02)
  1. ;;00115115203
  1. ;;9002226.02101,"1084,00143991801 ",.01)
  1. ;;00143991801
  1. ;;9002226.02101,"1084,00143991801 ",.02)
  1. ;;00143991801
  1. ;;9002226.02101,"1084,00143991805 ",.01)
  1. ;;00143991805
  1. ;;9002226.02101,"1084,00143991805 ",.02)
  1. ;;00143991805
  1. ;;9002226.02101,"1084,00143991901 ",.01)
  1. ;;00143991901
  1. ;;9002226.02101,"1084,00143991901 ",.02)
  1. ;;00143991901
  1. ;;9002226.02101,"1084,00143991905 ",.01)
  1. ;;00143991905
  1. ;;9002226.02101,"1084,00143991905 ",.02)
  1. ;;00143991905
  1. ;;9002226.02101,"1084,00143991910 ",.01)
  1. ;;00143991910
  1. ;;9002226.02101,"1084,00143991910 ",.02)
  1. ;;00143991910
  1. ;;9002226.02101,"1084,00143992001 ",.01)
  1. ;;00143992001
  1. ;;9002226.02101,"1084,00143992001 ",.02)
  1. ;;00143992001
  1. ;;9002226.02101,"1084,00143992005 ",.01)
  1. ;;00143992005
  1. ;;9002226.02101,"1084,00143992005 ",.02)
  1. ;;00143992005
  1. ;;9002226.02101,"1084,00143992010 ",.01)
  1. ;;00143992010
  1. ;;9002226.02101,"1084,00143992010 ",.02)
  1. ;;00143992010
  1. ;;9002226.02101,"1084,00143997301 ",.01)
  1. ;;00143997301
  1. ;;9002226.02101,"1084,00143997301 ",.02)
  1. ;;00143997301
  1. ;;9002226.02101,"1084,00143997305 ",.01)
  1. ;;00143997305
  1. ;;9002226.02101,"1084,00143997305 ",.02)
  1. ;;00143997305
  1. ;;9002226.02101,"1084,00143997330 ",.01)
  1. ;;00143997330
  1. ;;9002226.02101,"1084,00143997330 ",.02)
  1. ;;00143997330
  1. ;;9002226.02101,"1084,00143997401 ",.01)
  1. ;;00143997401
  1. ;;9002226.02101,"1084,00143997401 ",.02)
  1. ;;00143997401
  1. ;;9002226.02101,"1084,00143997405 ",.01)
  1. ;;00143997405
  1. ;;9002226.02101,"1084,00143997405 ",.02)
  1. ;;00143997405
  1. ;;9002226.02101,"1084,00143997430 ",.01)
  1. ;;00143997430
  1. ;;9002226.02101,"1084,00143997430 ",.02)
  1. ;;00143997430
  1. ;;9002226.02101,"1084,00143997501 ",.01)
  1. ;;00143997501
  1. ;;9002226.02101,"1084,00143997501 ",.02)
  1. ;;00143997501
  1. ;;9002226.02101,"1084,00143997505 ",.01)
  1. ;;00143997505
  1. ;;9002226.02101,"1084,00143997505 ",.02)
  1. ;;00143997505
  1. ;;9002226.02101,"1084,00143997530 ",.01)
  1. ;;00143997530
  1. ;;9002226.02101,"1084,00143997530 ",.02)
  1. ;;00143997530
  1. ;;9002226.02101,"1084,00172224560 ",.01)
  1. ;;00172224560
  1. ;;9002226.02101,"1084,00172224560 ",.02)
  1. ;;00172224560