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

BGPLXEB.m

Go to the documentation of this file.
BGPLXEB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 18, 2003 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"776,12893-4 ",.02)
 ;;12893-4
 ;;9002226.02101,"776,12894-2 ",.01)
 ;;12894-2
 ;;9002226.02101,"776,12894-2 ",.02)
 ;;12894-2
 ;;9002226.02101,"776,12895-9 ",.01)
 ;;12895-9
 ;;9002226.02101,"776,12895-9 ",.02)
 ;;12895-9
 ;;9002226.02101,"776,13499-9 ",.01)
 ;;13499-9
 ;;9002226.02101,"776,13499-9 ",.02)
 ;;13499-9
 ;;9002226.02101,"776,13920-4 ",.01)
 ;;13920-4
 ;;9002226.02101,"776,13920-4 ",.02)
 ;;13920-4
 ;;9002226.02101,"776,14092-1 ",.01)
 ;;14092-1
 ;;9002226.02101,"776,14092-1 ",.02)
 ;;14092-1
 ;;9002226.02101,"776,14126-7 ",.01)
 ;;14126-7
 ;;9002226.02101,"776,14126-7 ",.02)
 ;;14126-7
 ;;9002226.02101,"776,16132-3 ",.01)
 ;;16132-3
 ;;9002226.02101,"776,16132-3 ",.02)
 ;;16132-3
 ;;9002226.02101,"776,16974-8 ",.01)
 ;;16974-8
 ;;9002226.02101,"776,16974-8 ",.02)
 ;;16974-8
 ;;9002226.02101,"776,16975-5 ",.01)
 ;;16975-5
 ;;9002226.02101,"776,16975-5 ",.02)
 ;;16975-5
 ;;9002226.02101,"776,16976-3 ",.01)
 ;;16976-3
 ;;9002226.02101,"776,16976-3 ",.02)
 ;;16976-3
 ;;9002226.02101,"776,16977-1 ",.01)
 ;;16977-1
 ;;9002226.02101,"776,16977-1 ",.02)
 ;;16977-1
 ;;9002226.02101,"776,16978-9 ",.01)
 ;;16978-9
 ;;9002226.02101,"776,16978-9 ",.02)
 ;;16978-9
 ;;9002226.02101,"776,16979-7 ",.01)
 ;;16979-7
 ;;9002226.02101,"776,16979-7 ",.02)
 ;;16979-7
 ;;9002226.02101,"776,18396-2 ",.01)
 ;;18396-2
 ;;9002226.02101,"776,18396-2 ",.02)
 ;;18396-2
 ;;9002226.02101,"776,19110-6 ",.01)
 ;;19110-6
 ;;9002226.02101,"776,19110-6 ",.02)
 ;;19110-6
 ;;9002226.02101,"776,20447-9 ",.01)
 ;;20447-9
 ;;9002226.02101,"776,20447-9 ",.02)
 ;;20447-9
 ;;9002226.02101,"776,21007-0 ",.01)
 ;;21007-0
 ;;9002226.02101,"776,21007-0 ",.02)
 ;;21007-0
 ;;9002226.02101,"776,21008-8 ",.01)
 ;;21008-8
 ;;9002226.02101,"776,21008-8 ",.02)
 ;;21008-8
 ;;9002226.02101,"776,21009-6 ",.01)
 ;;21009-6
 ;;9002226.02101,"776,21009-6 ",.02)
 ;;21009-6
 ;;9002226.02101,"776,21331-4 ",.01)
 ;;21331-4
 ;;9002226.02101,"776,21331-4 ",.02)
 ;;21331-4
 ;;9002226.02101,"776,21332-2 ",.01)
 ;;21332-2
 ;;9002226.02101,"776,21332-2 ",.02)
 ;;21332-2
 ;;9002226.02101,"776,21333-0 ",.01)
 ;;21333-0
 ;;9002226.02101,"776,21333-0 ",.02)
 ;;21333-0
 ;;9002226.02101,"776,21334-8 ",.01)
 ;;21334-8
 ;;9002226.02101,"776,21334-8 ",.02)
 ;;21334-8
 ;;9002226.02101,"776,21335-5 ",.01)
 ;;21335-5
 ;;9002226.02101,"776,21335-5 ",.02)
 ;;21335-5
 ;;9002226.02101,"776,21336-3 ",.01)
 ;;21336-3
 ;;9002226.02101,"776,21336-3 ",.02)
 ;;21336-3
 ;;9002226.02101,"776,21337-1 ",.01)
 ;;21337-1
 ;;9002226.02101,"776,21337-1 ",.02)
 ;;21337-1
 ;;9002226.02101,"776,21338-9 ",.01)
 ;;21338-9
 ;;9002226.02101,"776,21338-9 ",.02)
 ;;21338-9
 ;;9002226.02101,"776,21339-7 ",.01)
 ;;21339-7
 ;;9002226.02101,"776,21339-7 ",.02)
 ;;21339-7
 ;;9002226.02101,"776,21340-5 ",.01)
 ;;21340-5
 ;;9002226.02101,"776,21340-5 ",.02)
 ;;21340-5
 ;;9002226.02101,"776,22356-0 ",.01)
 ;;22356-0
 ;;9002226.02101,"776,22356-0 ",.02)
 ;;22356-0
 ;;9002226.02101,"776,22357-8 ",.01)
 ;;22357-8
 ;;9002226.02101,"776,22357-8 ",.02)
 ;;22357-8
 ;;9002226.02101,"776,22358-6 ",.01)
 ;;22358-6
 ;;9002226.02101,"776,22358-6 ",.02)
 ;;22358-6
 ;;9002226.02101,"776,23876-6 ",.01)
 ;;23876-6
 ;;9002226.02101,"776,23876-6 ",.02)
 ;;23876-6
 ;;9002226.02101,"776,24012-7 ",.01)
 ;;24012-7
 ;;9002226.02101,"776,24012-7 ",.02)
 ;;24012-7
 ;;9002226.02101,"776,24013-5 ",.01)
 ;;24013-5
 ;;9002226.02101,"776,24013-5 ",.02)
 ;;24013-5
 ;;9002226.02101,"776,25835-0 ",.01)
 ;;25835-0
 ;;9002226.02101,"776,25835-0 ",.02)
 ;;25835-0
 ;;9002226.02101,"776,25836-8 ",.01)
 ;;25836-8
 ;;9002226.02101,"776,25836-8 ",.02)
 ;;25836-8
 ;;9002226.02101,"776,25841-8 ",.01)
 ;;25841-8
 ;;9002226.02101,"776,25841-8 ",.02)
 ;;25841-8
 ;;9002226.02101,"776,25842-6 ",.01)
 ;;25842-6
 ;;9002226.02101,"776,25842-6 ",.02)
 ;;25842-6
 ;;9002226.02101,"776,28004-0 ",.01)
 ;;28004-0
 ;;9002226.02101,"776,28004-0 ",.02)
 ;;28004-0
 ;;9002226.02101,"776,28052-9 ",.01)
 ;;28052-9
 ;;9002226.02101,"776,28052-9 ",.02)
 ;;28052-9
 ;;9002226.02101,"776,29327-4 ",.01)
 ;;29327-4
 ;;9002226.02101,"776,29327-4 ",.02)
 ;;29327-4
 ;;9002226.02101,"776,29539-4 ",.01)
 ;;29539-4
 ;;9002226.02101,"776,29539-4 ",.02)
 ;;29539-4
 ;;9002226.02101,"776,29541-0 ",.01)
 ;;29541-0
 ;;9002226.02101,"776,29541-0 ",.02)
 ;;29541-0
 ;;9002226.02101,"776,29893-5 ",.01)
 ;;29893-5
 ;;9002226.02101,"776,29893-5 ",.02)
 ;;29893-5
 ;;9002226.02101,"776,30245-5 ",.01)
 ;;30245-5
 ;;9002226.02101,"776,30245-5 ",.02)
 ;;30245-5
 ;;9002226.02101,"776,30361-0 ",.01)
 ;;30361-0
 ;;9002226.02101,"776,30361-0 ",.02)
 ;;30361-0
 ;;9002226.02101,"776,30554-0 ",.01)
 ;;30554-0
 ;;9002226.02101,"776,30554-0 ",.02)
 ;;30554-0
 ;;9002226.02101,"776,31072-2 ",.01)
 ;;31072-2
 ;;9002226.02101,"776,31072-2 ",.02)
 ;;31072-2
 ;;9002226.02101,"776,31073-0 ",.01)
 ;;31073-0
 ;;9002226.02101,"776,31073-0 ",.02)
 ;;31073-0
 ;;9002226.02101,"776,31201-7 ",.01)
 ;;31201-7
 ;;9002226.02101,"776,31201-7 ",.02)
 ;;31201-7
 ;;9002226.02101,"776,31430-2 ",.01)
 ;;31430-2
 ;;9002226.02101,"776,31430-2 ",.02)
 ;;31430-2