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

BGPM5AQW.m

Go to the documentation of this file.
  1. BGPM5AQW ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,24658024518 ",.01)
  1. ;;24658024518
  1. ;;9002226.02101,"1005,24658024518 ",.02)
  1. ;;24658024518
  1. ;;9002226.02101,"1005,24658024530 ",.01)
  1. ;;24658024530
  1. ;;9002226.02101,"1005,24658024530 ",.02)
  1. ;;24658024530
  1. ;;9002226.02101,"1005,24658024545 ",.01)
  1. ;;24658024545
  1. ;;9002226.02101,"1005,24658024545 ",.02)
  1. ;;24658024545
  1. ;;9002226.02101,"1005,24658024560 ",.01)
  1. ;;24658024560
  1. ;;9002226.02101,"1005,24658024560 ",.02)
  1. ;;24658024560
  1. ;;9002226.02101,"1005,24658024590 ",.01)
  1. ;;24658024590
  1. ;;9002226.02101,"1005,24658024590 ",.02)
  1. ;;24658024590
  1. ;;9002226.02101,"1005,26053008401 ",.01)
  1. ;;26053008401
  1. ;;9002226.02101,"1005,26053008401 ",.02)
  1. ;;26053008401
  1. ;;9002226.02101,"1005,26053013401 ",.01)
  1. ;;26053013401
  1. ;;9002226.02101,"1005,26053013401 ",.02)
  1. ;;26053013401
  1. ;;9002226.02101,"1005,26053015001 ",.01)
  1. ;;26053015001
  1. ;;9002226.02101,"1005,26053015001 ",.02)
  1. ;;26053015001
  1. ;;9002226.02101,"1005,26053017401 ",.01)
  1. ;;26053017401
  1. ;;9002226.02101,"1005,26053017401 ",.02)
  1. ;;26053017401
  1. ;;9002226.02101,"1005,26053017501 ",.01)
  1. ;;26053017501
  1. ;;9002226.02101,"1005,26053017501 ",.02)
  1. ;;26053017501
  1. ;;9002226.02101,"1005,26053017601 ",.01)
  1. ;;26053017601
  1. ;;9002226.02101,"1005,26053017601 ",.02)
  1. ;;26053017601
  1. ;;9002226.02101,"1005,26053020401 ",.01)
  1. ;;26053020401
  1. ;;9002226.02101,"1005,26053020401 ",.02)
  1. ;;26053020401
  1. ;;9002226.02101,"1005,26053020501 ",.01)
  1. ;;26053020501
  1. ;;9002226.02101,"1005,26053020501 ",.02)
  1. ;;26053020501
  1. ;;9002226.02101,"1005,26053023901 ",.01)
  1. ;;26053023901
  1. ;;9002226.02101,"1005,26053023901 ",.02)
  1. ;;26053023901
  1. ;;9002226.02101,"1005,26053025001 ",.01)
  1. ;;26053025001
  1. ;;9002226.02101,"1005,26053025001 ",.02)
  1. ;;26053025001
  1. ;;9002226.02101,"1005,26053028401 ",.01)
  1. ;;26053028401
  1. ;;9002226.02101,"1005,26053028401 ",.02)
  1. ;;26053028401
  1. ;;9002226.02101,"1005,26053028501 ",.01)
  1. ;;26053028501
  1. ;;9002226.02101,"1005,26053028501 ",.02)
  1. ;;26053028501
  1. ;;9002226.02101,"1005,26053028601 ",.01)
  1. ;;26053028601
  1. ;;9002226.02101,"1005,26053028601 ",.02)
  1. ;;26053028601
  1. ;;9002226.02101,"1005,26053028701 ",.01)
  1. ;;26053028701
  1. ;;9002226.02101,"1005,26053028701 ",.02)
  1. ;;26053028701
  1. ;;9002226.02101,"1005,26053028901 ",.01)
  1. ;;26053028901
  1. ;;9002226.02101,"1005,26053028901 ",.02)
  1. ;;26053028901
  1. ;;9002226.02101,"1005,26053029001 ",.01)
  1. ;;26053029001
  1. ;;9002226.02101,"1005,26053029001 ",.02)
  1. ;;26053029001
  1. ;;9002226.02101,"1005,26053034301 ",.01)
  1. ;;26053034301
  1. ;;9002226.02101,"1005,26053034301 ",.02)
  1. ;;26053034301
  1. ;;9002226.02101,"1005,26053034401 ",.01)
  1. ;;26053034401
  1. ;;9002226.02101,"1005,26053034401 ",.02)
  1. ;;26053034401
  1. ;;9002226.02101,"1005,26053034501 ",.01)
  1. ;;26053034501
  1. ;;9002226.02101,"1005,26053034501 ",.02)
  1. ;;26053034501
  1. ;;9002226.02101,"1005,26053034601 ",.01)
  1. ;;26053034601
  1. ;;9002226.02101,"1005,26053034601 ",.02)
  1. ;;26053034601
  1. ;;9002226.02101,"1005,26053043501 ",.01)
  1. ;;26053043501
  1. ;;9002226.02101,"1005,26053043501 ",.02)
  1. ;;26053043501
  1. ;;9002226.02101,"1005,26053043601 ",.01)
  1. ;;26053043601
  1. ;;9002226.02101,"1005,26053043601 ",.02)
  1. ;;26053043601
  1. ;;9002226.02101,"1005,27444004906 ",.01)
  1. ;;27444004906
  1. ;;9002226.02101,"1005,27444004906 ",.02)
  1. ;;27444004906
  1. ;;9002226.02101,"1005,27444004907 ",.01)
  1. ;;27444004907
  1. ;;9002226.02101,"1005,27444004907 ",.02)
  1. ;;27444004907
  1. ;;9002226.02101,"1005,27444004909 ",.01)
  1. ;;27444004909
  1. ;;9002226.02101,"1005,27444004909 ",.02)
  1. ;;27444004909
  1. ;;9002226.02101,"1005,27444005006 ",.01)
  1. ;;27444005006
  1. ;;9002226.02101,"1005,27444005006 ",.02)
  1. ;;27444005006
  1. ;;9002226.02101,"1005,27444005007 ",.01)
  1. ;;27444005007
  1. ;;9002226.02101,"1005,27444005007 ",.02)
  1. ;;27444005007
  1. ;;9002226.02101,"1005,27444005009 ",.01)
  1. ;;27444005009
  1. ;;9002226.02101,"1005,27444005009 ",.02)
  1. ;;27444005009
  1. ;;9002226.02101,"1005,27444005106 ",.01)
  1. ;;27444005106
  1. ;;9002226.02101,"1005,27444005106 ",.02)
  1. ;;27444005106
  1. ;;9002226.02101,"1005,27444005107 ",.01)
  1. ;;27444005107
  1. ;;9002226.02101,"1005,27444005107 ",.02)
  1. ;;27444005107
  1. ;;9002226.02101,"1005,27444005109 ",.01)
  1. ;;27444005109
  1. ;;9002226.02101,"1005,27444005109 ",.02)
  1. ;;27444005109
  1. ;;9002226.02101,"1005,27444005206 ",.01)
  1. ;;27444005206
  1. ;;9002226.02101,"1005,27444005206 ",.02)
  1. ;;27444005206
  1. ;;9002226.02101,"1005,27444005207 ",.01)
  1. ;;27444005207
  1. ;;9002226.02101,"1005,27444005207 ",.02)
  1. ;;27444005207
  1. ;;9002226.02101,"1005,27444005209 ",.01)
  1. ;;27444005209
  1. ;;9002226.02101,"1005,27444005209 ",.02)
  1. ;;27444005209
  1. ;;9002226.02101,"1005,27444020801 ",.01)
  1. ;;27444020801
  1. ;;9002226.02101,"1005,27444020801 ",.02)
  1. ;;27444020801
  1. ;;9002226.02101,"1005,27444020802 ",.01)
  1. ;;27444020802
  1. ;;9002226.02101,"1005,27444020802 ",.02)
  1. ;;27444020802
  1. ;;9002226.02101,"1005,27444020901 ",.01)
  1. ;;27444020901
  1. ;;9002226.02101,"1005,27444020901 ",.02)
  1. ;;27444020901
  1. ;;9002226.02101,"1005,27444020902 ",.01)
  1. ;;27444020902
  1. ;;9002226.02101,"1005,27444020902 ",.02)
  1. ;;27444020902
  1. ;;9002226.02101,"1005,31156504601 ",.01)
  1. ;;31156504601
  1. ;;9002226.02101,"1005,31156504601 ",.02)
  1. ;;31156504601
  1. ;;9002226.02101,"1005,31722020010 ",.01)
  1. ;;31722020010
  1. ;;9002226.02101,"1005,31722020010 ",.02)
  1. ;;31722020010
  1. ;;9002226.02101,"1005,31722020090 ",.01)
  1. ;;31722020090
  1. ;;9002226.02101,"1005,31722020090 ",.02)
  1. ;;31722020090
  1. ;;9002226.02101,"1005,31722020110 ",.01)
  1. ;;31722020110
  1. ;;9002226.02101,"1005,31722020110 ",.02)
  1. ;;31722020110
  1. ;;9002226.02101,"1005,31722020190 ",.01)
  1. ;;31722020190
  1. ;;9002226.02101,"1005,31722020190 ",.02)
  1. ;;31722020190
  1. ;;9002226.02101,"1005,31722020210 ",.01)
  1. ;;31722020210
  1. ;;9002226.02101,"1005,31722020210 ",.02)
  1. ;;31722020210
  1. ;;9002226.02101,"1005,31722020290 ",.01)
  1. ;;31722020290
  1. ;;9002226.02101,"1005,31722020290 ",.02)
  1. ;;31722020290
  1. ;;9002226.02101,"1005,33261041601 ",.01)
  1. ;;33261041601
  1. ;;9002226.02101,"1005,33261041601 ",.02)
  1. ;;33261041601
  1. ;;9002226.02101,"1005,33261041602 ",.01)
  1. ;;33261041602
  1. ;;9002226.02101,"1005,33261041602 ",.02)
  1. ;;33261041602
  1. ;;9002226.02101,"1005,33261041610 ",.01)
  1. ;;33261041610
  1. ;;9002226.02101,"1005,33261041610 ",.02)
  1. ;;33261041610
  1. ;;9002226.02101,"1005,33261041620 ",.01)
  1. ;;33261041620
  1. ;;9002226.02101,"1005,33261041620 ",.02)
  1. ;;33261041620
  1. ;;9002226.02101,"1005,33261041628 ",.01)
  1. ;;33261041628
  1. ;;9002226.02101,"1005,33261041628 ",.02)
  1. ;;33261041628
  1. ;;9002226.02101,"1005,33261041630 ",.01)
  1. ;;33261041630
  1. ;;9002226.02101,"1005,33261041630 ",.02)
  1. ;;33261041630
  1. ;;9002226.02101,"1005,33261041636 ",.01)
  1. ;;33261041636
  1. ;;9002226.02101,"1005,33261041636 ",.02)
  1. ;;33261041636
  1. ;;9002226.02101,"1005,33261041660 ",.01)
  1. ;;33261041660
  1. ;;9002226.02101,"1005,33261041660 ",.02)
  1. ;;33261041660
  1. ;;9002226.02101,"1005,33261041690 ",.01)
  1. ;;33261041690
  1. ;;9002226.02101,"1005,33261041690 ",.02)
  1. ;;33261041690
  1. ;;9002226.02101,"1005,33358012630 ",.01)
  1. ;;33358012630
  1. ;;9002226.02101,"1005,33358012630 ",.02)
  1. ;;33358012630
  1. ;;9002226.02101,"1005,33358012730 ",.01)
  1. ;;33358012730
  1. ;;9002226.02101,"1005,33358012730 ",.02)
  1. ;;33358012730
  1. ;;9002226.02101,"1005,33358012760 ",.01)
  1. ;;33358012760
  1. ;;9002226.02101,"1005,33358012760 ",.02)
  1. ;;33358012760
  1. ;;9002226.02101,"1005,33358012830 ",.01)
  1. ;;33358012830
  1. ;;9002226.02101,"1005,33358012830 ",.02)
  1. ;;33358012830
  1. ;;9002226.02101,"1005,33358012860 ",.01)
  1. ;;33358012860
  1. ;;9002226.02101,"1005,33358012860 ",.02)
  1. ;;33358012860
  1. ;;9002226.02101,"1005,33358021130 ",.01)
  1. ;;33358021130
  1. ;;9002226.02101,"1005,33358021130 ",.02)
  1. ;;33358021130
  1. ;;9002226.02101,"1005,33358021230 ",.01)
  1. ;;33358021230
  1. ;;9002226.02101,"1005,33358021230 ",.02)
  1. ;;33358021230
  1. ;;9002226.02101,"1005,33358021330 ",.01)
  1. ;;33358021330
  1. ;;9002226.02101,"1005,33358021330 ",.02)
  1. ;;33358021330
  1. ;;9002226.02101,"1005,33358021430 ",.01)
  1. ;;33358021430
  1. ;;9002226.02101,"1005,33358021430 ",.02)
  1. ;;33358021430
  1. ;;9002226.02101,"1005,33358021460 ",.01)
  1. ;;33358021460
  1. ;;9002226.02101,"1005,33358021460 ",.02)
  1. ;;33358021460
  1. ;;9002226.02101,"1005,35356006030 ",.01)
  1. ;;35356006030
  1. ;;9002226.02101,"1005,35356006030 ",.02)
  1. ;;35356006030
  1. ;;9002226.02101,"1005,35356010190 ",.01)
  1. ;;35356010190
  1. ;;9002226.02101,"1005,35356010190 ",.02)
  1. ;;35356010190
  1. ;;9002226.02101,"1005,35356013130 ",.01)
  1. ;;35356013130
  1. ;;9002226.02101,"1005,35356013130 ",.02)
  1. ;;35356013130
  1. ;;9002226.02101,"1005,35356021630 ",.01)
  1. ;;35356021630
  1. ;;9002226.02101,"1005,35356021630 ",.02)
  1. ;;35356021630
  1. ;;9002226.02101,"1005,35356021690 ",.01)
  1. ;;35356021690
  1. ;;9002226.02101,"1005,35356021690 ",.02)
  1. ;;35356021690
  1. ;;9002226.02101,"1005,35356025630 ",.01)
  1. ;;35356025630
  1. ;;9002226.02101,"1005,35356025630 ",.02)
  1. ;;35356025630
  1. ;;9002226.02101,"1005,35356025690 ",.01)
  1. ;;35356025690
  1. ;;9002226.02101,"1005,35356025690 ",.02)
  1. ;;35356025690
  1. ;;9002226.02101,"1005,35356025730 ",.01)
  1. ;;35356025730
  1. ;;9002226.02101,"1005,35356025730 ",.02)
  1. ;;35356025730
  1. ;;9002226.02101,"1005,35356025790 ",.01)
  1. ;;35356025790
  1. ;;9002226.02101,"1005,35356025790 ",.02)
  1. ;;35356025790
  1. ;;9002226.02101,"1005,35356025830 ",.01)
  1. ;;35356025830
  1. ;;9002226.02101,"1005,35356025830 ",.02)
  1. ;;35356025830
  1. ;;9002226.02101,"1005,35356025890 ",.01)
  1. ;;35356025890
  1. ;;9002226.02101,"1005,35356025890 ",.02)
  1. ;;35356025890
  1. ;;9002226.02101,"1005,35356028720 ",.01)
  1. ;;35356028720
  1. ;;9002226.02101,"1005,35356028720 ",.02)
  1. ;;35356028720
  1. ;;9002226.02101,"1005,35356028730 ",.01)
  1. ;;35356028730
  1. ;;9002226.02101,"1005,35356028730 ",.02)
  1. ;;35356028730
  1. ;;9002226.02101,"1005,35356028840 ",.01)
  1. ;;35356028840
  1. ;;9002226.02101,"1005,35356028840 ",.02)
  1. ;;35356028840
  1. ;;9002226.02101,"1005,35356028940 ",.01)
  1. ;;35356028940
  1. ;;9002226.02101,"1005,35356028940 ",.02)
  1. ;;35356028940
  1. ;;9002226.02101,"1005,35356029530 ",.01)
  1. ;;35356029530
  1. ;;9002226.02101,"1005,35356029530 ",.02)
  1. ;;35356029530
  1. ;;9002226.02101,"1005,35356029630 ",.01)
  1. ;;35356029630
  1. ;;9002226.02101,"1005,35356029630 ",.02)
  1. ;;35356029630
  1. ;;9002226.02101,"1005,35356029730 ",.01)
  1. ;;35356029730
  1. ;;9002226.02101,"1005,35356029730 ",.02)
  1. ;;35356029730
  1. ;;9002226.02101,"1005,35356029830 ",.01)
  1. ;;35356029830
  1. ;;9002226.02101,"1005,35356029830 ",.02)
  1. ;;35356029830
  1. ;;9002226.02101,"1005,35356029930 ",.01)
  1. ;;35356029930
  1. ;;9002226.02101,"1005,35356029930 ",.02)
  1. ;;35356029930
  1. ;;9002226.02101,"1005,35356030030 ",.01)
  1. ;;35356030030
  1. ;;9002226.02101,"1005,35356030030 ",.02)
  1. ;;35356030030
  1. ;;9002226.02101,"1005,35356037415 ",.01)
  1. ;;35356037415
  1. ;;9002226.02101,"1005,35356037415 ",.02)
  1. ;;35356037415
  1. ;;9002226.02101,"1005,35356037430 ",.01)
  1. ;;35356037430
  1. ;;9002226.02101,"1005,35356037430 ",.02)
  1. ;;35356037430
  1. ;;9002226.02101,"1005,35356040630 ",.01)
  1. ;;35356040630
  1. ;;9002226.02101,"1005,35356040630 ",.02)
  1. ;;35356040630
  1. ;;9002226.02101,"1005,35356040730 ",.01)
  1. ;;35356040730
  1. ;;9002226.02101,"1005,35356040730 ",.02)
  1. ;;35356040730
  1. ;;9002226.02101,"1005,35356042730 ",.01)
  1. ;;35356042730
  1. ;;9002226.02101,"1005,35356042730 ",.02)
  1. ;;35356042730
  1. ;;9002226.02101,"1005,35356042830 ",.01)
  1. ;;35356042830
  1. ;;9002226.02101,"1005,35356042830 ",.02)
  1. ;;35356042830
  1. ;;9002226.02101,"1005,35356054130 ",.01)
  1. ;;35356054130
  1. ;;9002226.02101,"1005,35356054130 ",.02)
  1. ;;35356054130
  1. ;;9002226.02101,"1005,35356087000 ",.01)
  1. ;;35356087000
  1. ;;9002226.02101,"1005,35356087000 ",.02)
  1. ;;35356087000
  1. ;;9002226.02101,"1005,35356087800 ",.01)
  1. ;;35356087800
  1. ;;9002226.02101,"1005,35356087800 ",.02)
  1. ;;35356087800
  1. ;;9002226.02101,"1005,35356088000 ",.01)
  1. ;;35356088000
  1. ;;9002226.02101,"1005,35356088000 ",.02)
  1. ;;35356088000
  1. ;;9002226.02101,"1005,37731504401 ",.01)
  1. ;;37731504401