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

BGP8CXRD.m

Go to the documentation of this file.
BGP8CXRD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,"301,07.52 ",.01)
 ;;07.52 
 ;;9002226.02101,"301,07.52 ",.02)
 ;;07.52 
 ;;9002226.02101,"301,07.53 ",.01)
 ;;07.53 
 ;;9002226.02101,"301,07.53 ",.02)
 ;;07.53 
 ;;9002226.02101,"301,07.54 ",.01)
 ;;07.54 
 ;;9002226.02101,"301,07.54 ",.02)
 ;;07.54 
 ;;9002226.02101,"301,07.59 ",.01)
 ;;07.59 
 ;;9002226.02101,"301,07.59 ",.02)
 ;;07.59 
 ;;9002226.02101,"301,07.61 ",.01)
 ;;07.61 
 ;;9002226.02101,"301,07.61 ",.02)
 ;;07.61 
 ;;9002226.02101,"301,07.62 ",.01)
 ;;07.62 
 ;;9002226.02101,"301,07.62 ",.02)
 ;;07.62 
 ;;9002226.02101,"301,07.63 ",.01)
 ;;07.63 
 ;;9002226.02101,"301,07.63 ",.02)
 ;;07.63 
 ;;9002226.02101,"301,07.64 ",.01)
 ;;07.64 
 ;;9002226.02101,"301,07.64 ",.02)
 ;;07.64 
 ;;9002226.02101,"301,07.65 ",.01)
 ;;07.65 
 ;;9002226.02101,"301,07.65 ",.02)
 ;;07.65 
 ;;9002226.02101,"301,07.68 ",.01)
 ;;07.68 
 ;;9002226.02101,"301,07.68 ",.02)
 ;;07.68 
 ;;9002226.02101,"301,07.69 ",.01)
 ;;07.69 
 ;;9002226.02101,"301,07.69 ",.02)
 ;;07.69 
 ;;9002226.02101,"301,07.71 ",.01)
 ;;07.71 
 ;;9002226.02101,"301,07.71 ",.02)
 ;;07.71 
 ;;9002226.02101,"301,07.72 ",.01)
 ;;07.72 
 ;;9002226.02101,"301,07.72 ",.02)
 ;;07.72 
 ;;9002226.02101,"301,07.79 ",.01)
 ;;07.79 
 ;;9002226.02101,"301,07.79 ",.02)
 ;;07.79 
 ;;9002226.02101,"301,07.80 ",.01)
 ;;07.80 
 ;;9002226.02101,"301,07.80 ",.02)
 ;;07.80 
 ;;9002226.02101,"301,07.81 ",.01)
 ;;07.81 
 ;;9002226.02101,"301,07.81 ",.02)
 ;;07.81 
 ;;9002226.02101,"301,07.82 ",.01)
 ;;07.82 
 ;;9002226.02101,"301,07.82 ",.02)
 ;;07.82 
 ;;9002226.02101,"301,07.91 ",.01)
 ;;07.91 
 ;;9002226.02101,"301,07.91 ",.02)
 ;;07.91 
 ;;9002226.02101,"301,07.92 ",.01)
 ;;07.92 
 ;;9002226.02101,"301,07.92 ",.02)
 ;;07.92 
 ;;9002226.02101,"301,07.93 ",.01)
 ;;07.93 
 ;;9002226.02101,"301,07.93 ",.02)
 ;;07.93 
 ;;9002226.02101,"301,07.94 ",.01)
 ;;07.94 
 ;;9002226.02101,"301,07.94 ",.02)
 ;;07.94 
 ;;9002226.02101,"301,07.99 ",.01)
 ;;07.99 
 ;;9002226.02101,"301,07.99 ",.02)
 ;;07.99 
 ;;9002226.02101,"301,16.31 ",.01)
 ;;16.31 
 ;;9002226.02101,"301,16.31 ",.02)
 ;;16.31 
 ;;9002226.02101,"301,16.39 ",.01)
 ;;16.39 
 ;;9002226.02101,"301,16.39 ",.02)
 ;;16.39 
 ;;9002226.02101,"301,16.41 ",.01)
 ;;16.41 
 ;;9002226.02101,"301,16.41 ",.02)
 ;;16.41 
 ;;9002226.02101,"301,16.42 ",.01)
 ;;16.42 
 ;;9002226.02101,"301,16.42 ",.02)
 ;;16.42 
 ;;9002226.02101,"301,16.49 ",.01)
 ;;16.49 
 ;;9002226.02101,"301,16.49 ",.02)
 ;;16.49 
 ;;9002226.02101,"301,16.51 ",.01)
 ;;16.51 
 ;;9002226.02101,"301,16.51 ",.02)
 ;;16.51 
 ;;9002226.02101,"301,16.52 ",.01)
 ;;16.52 
 ;;9002226.02101,"301,16.52 ",.02)
 ;;16.52 
 ;;9002226.02101,"301,16.59 ",.01)
 ;;16.59 
 ;;9002226.02101,"301,16.59 ",.02)
 ;;16.59 
 ;;9002226.02101,"301,16.63 ",.01)
 ;;16.63 
 ;;9002226.02101,"301,16.63 ",.02)
 ;;16.63 
 ;;9002226.02101,"301,16.64 ",.01)
 ;;16.64 
 ;;9002226.02101,"301,16.64 ",.02)
 ;;16.64 
 ;;9002226.02101,"301,16.65 ",.01)
 ;;16.65 
 ;;9002226.02101,"301,16.65 ",.02)
 ;;16.65 
 ;;9002226.02101,"301,16.66 ",.01)
 ;;16.66 
 ;;9002226.02101,"301,16.66 ",.02)
 ;;16.66 
 ;;9002226.02101,"301,16.69 ",.01)
 ;;16.69 
 ;;9002226.02101,"301,16.69 ",.02)
 ;;16.69 
 ;;9002226.02101,"301,20.41 ",.01)
 ;;20.41 
 ;;9002226.02101,"301,20.41 ",.02)
 ;;20.41 
 ;;9002226.02101,"301,20.42 ",.01)
 ;;20.42 
 ;;9002226.02101,"301,20.42 ",.02)
 ;;20.42 
 ;;9002226.02101,"301,20.49 ",.01)
 ;;20.49 
 ;;9002226.02101,"301,20.49 ",.02)
 ;;20.49 
 ;;9002226.02101,"301,25.4 ",.01)
 ;;25.4 
 ;;9002226.02101,"301,25.4 ",.02)
 ;;25.4 
 ;;9002226.02101,"301,27.62 ",.01)
 ;;27.62 
 ;;9002226.02101,"301,27.62 ",.02)
 ;;27.62 
 ;;9002226.02101,"301,27.63 ",.01)
 ;;27.63 
 ;;9002226.02101,"301,27.63 ",.02)
 ;;27.63 
 ;;9002226.02101,"301,27.69 ",.01)
 ;;27.69 
 ;;9002226.02101,"301,27.69 ",.02)
 ;;27.69 
 ;;9002226.02101,"301,28.7 ",.01)
 ;;28.7 
 ;;9002226.02101,"301,28.7 ",.02)
 ;;28.7 
 ;;9002226.02101,"301,29.0 ",.01)
 ;;29.0 
 ;;9002226.02101,"301,29.0 ",.02)
 ;;29.0 
 ;;9002226.02101,"301,29.2 ",.01)
 ;;29.2 
 ;;9002226.02101,"301,29.2 ",.02)
 ;;29.2 
 ;;9002226.02101,"301,29.31 ",.01)
 ;;29.31 
 ;;9002226.02101,"301,29.31 ",.02)
 ;;29.31 
 ;;9002226.02101,"301,29.32 ",.01)
 ;;29.32 
 ;;9002226.02101,"301,29.32 ",.02)
 ;;29.32 
 ;;9002226.02101,"301,29.33 ",.01)
 ;;29.33 
 ;;9002226.02101,"301,29.33 ",.02)
 ;;29.33 
 ;;9002226.02101,"301,29.39 ",.01)
 ;;29.39 
 ;;9002226.02101,"301,29.39 ",.02)
 ;;29.39 
 ;;9002226.02101,"301,29.4 ",.01)
 ;;29.4 
 ;;9002226.02101,"301,29.4 ",.02)
 ;;29.4 
 ;;9002226.02101,"301,30.1 ",.01)
 ;;30.1 
 ;;9002226.02101,"301,30.1 ",.02)
 ;;30.1 
 ;;9002226.02101,"301,30.21 ",.01)
 ;;30.21 
 ;;9002226.02101,"301,30.21 ",.02)
 ;;30.21 
 ;;9002226.02101,"301,30.22 ",.01)
 ;;30.22 
 ;;9002226.02101,"301,30.22 ",.02)
 ;;30.22 
 ;;9002226.02101,"301,30.29 ",.01)
 ;;30.29 
 ;;9002226.02101,"301,30.29 ",.02)
 ;;30.29 
 ;;9002226.02101,"301,30.3 ",.01)
 ;;30.3 
 ;;9002226.02101,"301,30.3 ",.02)
 ;;30.3 
 ;;9002226.02101,"301,30.4 ",.01)
 ;;30.4 
 ;;9002226.02101,"301,30.4 ",.02)
 ;;30.4 
 ;;9002226.02101,"301,31.21 ",.01)
 ;;31.21 
 ;;9002226.02101,"301,31.21 ",.02)
 ;;31.21 
 ;;9002226.02101,"301,31.29 ",.01)
 ;;31.29 
 ;;9002226.02101,"301,31.29 ",.02)
 ;;31.29 
 ;;9002226.02101,"301,31.61 ",.01)
 ;;31.61 
 ;;9002226.02101,"301,31.61 ",.02)
 ;;31.61 
 ;;9002226.02101,"301,31.62 ",.01)
 ;;31.62 
 ;;9002226.02101,"301,31.62 ",.02)
 ;;31.62 
 ;;9002226.02101,"301,31.63 ",.01)
 ;;31.63 
 ;;9002226.02101,"301,31.63 ",.02)
 ;;31.63 
 ;;9002226.02101,"301,31.64 ",.01)
 ;;31.64 
 ;;9002226.02101,"301,31.64 ",.02)
 ;;31.64 
 ;;9002226.02101,"301,31.69 ",.01)
 ;;31.69 
 ;;9002226.02101,"301,31.69 ",.02)
 ;;31.69 
 ;;9002226.02101,"301,31.73 ",.01)
 ;;31.73 
 ;;9002226.02101,"301,31.73 ",.02)
 ;;31.73 
 ;;9002226.02101,"301,31.74 ",.01)
 ;;31.74 
 ;;9002226.02101,"301,31.74 ",.02)
 ;;31.74 
 ;;9002226.02101,"301,31.75 ",.01)
 ;;31.75 
 ;;9002226.02101,"301,31.75 ",.02)
 ;;31.75 
 ;;9002226.02101,"301,31.79 ",.01)
 ;;31.79 
 ;;9002226.02101,"301,31.79 ",.02)
 ;;31.79 
 ;;9002226.02101,"301,31.92 ",.01)
 ;;31.92 
 ;;9002226.02101,"301,31.92 ",.02)
 ;;31.92 
 ;;9002226.02101,"301,32.09 ",.01)
 ;;32.09 
 ;;9002226.02101,"301,32.09 ",.02)
 ;;32.09 
 ;;9002226.02101,"301,32.1 ",.01)
 ;;32.1 
 ;;9002226.02101,"301,32.1 ",.02)
 ;;32.1 
 ;;9002226.02101,"301,32.21 ",.01)
 ;;32.21 
 ;;9002226.02101,"301,32.21 ",.02)
 ;;32.21 
 ;;9002226.02101,"301,32.22 ",.01)
 ;;32.22 
 ;;9002226.02101,"301,32.22 ",.02)
 ;;32.22 
 ;;9002226.02101,"301,32.23 ",.01)
 ;;32.23 
 ;;9002226.02101,"301,32.23 ",.02)
 ;;32.23 
 ;;9002226.02101,"301,32.25 ",.01)
 ;;32.25 
 ;;9002226.02101,"301,32.25 ",.02)
 ;;32.25 
 ;;9002226.02101,"301,32.26 ",.01)
 ;;32.26 
 ;;9002226.02101,"301,32.26 ",.02)
 ;;32.26 
 ;;9002226.02101,"301,32.29 ",.01)
 ;;32.29 
 ;;9002226.02101,"301,32.29 ",.02)
 ;;32.29 
 ;;9002226.02101,"301,32.3 ",.01)
 ;;32.3 
 ;;9002226.02101,"301,32.3 ",.02)
 ;;32.3 
 ;;9002226.02101,"301,32.4 ",.01)
 ;;32.4 
 ;;9002226.02101,"301,32.4 ",.02)
 ;;32.4 
 ;;9002226.02101,"301,32.5 ",.01)
 ;;32.5 
 ;;9002226.02101,"301,32.5 ",.02)
 ;;32.5 
 ;;9002226.02101,"301,32.6 ",.01)
 ;;32.6 
 ;;9002226.02101,"301,32.6 ",.02)
 ;;32.6 
 ;;9002226.02101,"301,32.9 ",.01)
 ;;32.9 
 ;;9002226.02101,"301,32.9 ",.02)
 ;;32.9 
 ;;9002226.02101,"301,33.0 ",.01)
 ;;33.0 
 ;;9002226.02101,"301,33.0 ",.02)
 ;;33.0 
 ;;9002226.02101,"301,33.1 ",.01)
 ;;33.1 
 ;;9002226.02101,"301,33.1 ",.02)
 ;;33.1 
 ;;9002226.02101,"301,33.34 ",.01)
 ;;33.34 
 ;;9002226.02101,"301,33.34 ",.02)
 ;;33.34 
 ;;9002226.02101,"301,33.39 ",.01)
 ;;33.39 
 ;;9002226.02101,"301,33.39 ",.02)
 ;;33.39 
 ;;9002226.02101,"301,33.41 ",.01)
 ;;33.41 
 ;;9002226.02101,"301,33.41 ",.02)
 ;;33.41 
 ;;9002226.02101,"301,33.42 ",.01)
 ;;33.42 
 ;;9002226.02101,"301,33.42 ",.02)
 ;;33.42 
 ;;9002226.02101,"301,33.43 ",.01)
 ;;33.43 
 ;;9002226.02101,"301,33.43 ",.02)
 ;;33.43 
 ;;9002226.02101,"301,33.48 ",.01)
 ;;33.48 
 ;;9002226.02101,"301,33.48 ",.02)
 ;;33.48 
 ;;9002226.02101,"301,33.49 ",.01)
 ;;33.49 
 ;;9002226.02101,"301,33.49 ",.02)
 ;;33.49 
 ;;9002226.02101,"301,33.50 ",.01)
 ;;33.50 
 ;;9002226.02101,"301,33.50 ",.02)
 ;;33.50 
 ;;9002226.02101,"301,33.51 ",.01)
 ;;33.51 
 ;;9002226.02101,"301,33.51 ",.02)
 ;;33.51 
 ;;9002226.02101,"301,33.52 ",.01)
 ;;33.52 
 ;;9002226.02101,"301,33.52 ",.02)
 ;;33.52 
 ;;9002226.02101,"301,33.6 ",.01)
 ;;33.6 
 ;;9002226.02101,"301,33.6 ",.02)
 ;;33.6 
 ;;9002226.02101,"301,33.92 ",.01)
 ;;33.92 
 ;;9002226.02101,"301,33.92 ",.02)
 ;;33.92 
 ;;9002226.02101,"301,34.02 ",.01)
 ;;34.02 
 ;;9002226.02101,"301,34.02 ",.02)
 ;;34.02 
 ;;9002226.02101,"301,34.03 ",.01)
 ;;34.03 
 ;;9002226.02101,"301,34.03 ",.02)
 ;;34.03 
 ;;9002226.02101,"301,34.1 ",.01)
 ;;34.1 
 ;;9002226.02101,"301,34.1 ",.02)
 ;;34.1 
 ;;9002226.02101,"301,34.3 ",.01)
 ;;34.3 
 ;;9002226.02101,"301,34.3 ",.02)
 ;;34.3 
 ;;9002226.02101,"301,34.4 ",.01)
 ;;34.4 
 ;;9002226.02101,"301,34.4 ",.02)
 ;;34.4 
 ;;9002226.02101,"301,34.51 ",.01)
 ;;34.51 
 ;;9002226.02101,"301,34.51 ",.02)
 ;;34.51 
 ;;9002226.02101,"301,34.59 ",.01)
 ;;34.59 
 ;;9002226.02101,"301,34.59 ",.02)
 ;;34.59 
 ;;9002226.02101,"301,34.73 ",.01)
 ;;34.73 
 ;;9002226.02101,"301,34.73 ",.02)
 ;;34.73 
 ;;9002226.02101,"301,34.74 ",.01)
 ;;34.74 
 ;;9002226.02101,"301,34.74 ",.02)
 ;;34.74 
 ;;9002226.02101,"301,34.79 ",.01)
 ;;34.79 
 ;;9002226.02101,"301,34.79 ",.02)
 ;;34.79 
 ;;9002226.02101,"301,34.81 ",.01)
 ;;34.81 
 ;;9002226.02101,"301,34.81 ",.02)
 ;;34.81 
 ;;9002226.02101,"301,34.82 ",.01)
 ;;34.82 
 ;;9002226.02101,"301,34.82 ",.02)
 ;;34.82 
 ;;9002226.02101,"301,34.83 ",.01)
 ;;34.83 
 ;;9002226.02101,"301,34.83 ",.02)
 ;;34.83 
 ;;9002226.02101,"301,34.84 ",.01)
 ;;34.84 
 ;;9002226.02101,"301,34.84 ",.02)
 ;;34.84 
 ;;9002226.02101,"301,34.89 ",.01)
 ;;34.89 
 ;;9002226.02101,"301,34.89 ",.02)
 ;;34.89 
 ;;9002226.02101,"301,34.93 ",.01)
 ;;34.93 
 ;;9002226.02101,"301,34.93 ",.02)
 ;;34.93 
 ;;9002226.02101,"301,35.00 ",.01)
 ;;35.00 
 ;;9002226.02101,"301,35.00 ",.02)
 ;;35.00 
 ;;9002226.02101,"301,35.01 ",.01)
 ;;35.01 
 ;;9002226.02101,"301,35.01 ",.02)
 ;;35.01 
 ;;9002226.02101,"301,35.02 ",.01)
 ;;35.02 
 ;;9002226.02101,"301,35.02 ",.02)
 ;;35.02 
 ;;9002226.02101,"301,35.03 ",.01)
 ;;35.03 
 ;;9002226.02101,"301,35.03 ",.02)
 ;;35.03 
 ;;9002226.02101,"301,35.04 ",.01)
 ;;35.04 
 ;;9002226.02101,"301,35.04 ",.02)
 ;;35.04 
 ;;9002226.02101,"301,35.10 ",.01)
 ;;35.10 
 ;;9002226.02101,"301,35.10 ",.02)
 ;;35.10 
 ;;9002226.02101,"301,35.11 ",.01)
 ;;35.11 
 ;;9002226.02101,"301,35.11 ",.02)
 ;;35.11 
 ;;9002226.02101,"301,35.12 ",.01)
 ;;35.12 
 ;;9002226.02101,"301,35.12 ",.02)
 ;;35.12 
 ;;9002226.02101,"301,35.13 ",.01)
 ;;35.13 
 ;;9002226.02101,"301,35.13 ",.02)
 ;;35.13 
 ;;9002226.02101,"301,35.14 ",.01)
 ;;35.14 
 ;;9002226.02101,"301,35.14 ",.02)
 ;;35.14 
 ;;9002226.02101,"301,35.20 ",.01)
 ;;35.20 
 ;;9002226.02101,"301,35.20 ",.02)
 ;;35.20 
 ;;9002226.02101,"301,35.21 ",.01)
 ;;35.21 
 ;;9002226.02101,"301,35.21 ",.02)
 ;;35.21 
 ;;9002226.02101,"301,35.22 ",.01)
 ;;35.22 
 ;;9002226.02101,"301,35.22 ",.02)
 ;;35.22 
 ;;9002226.02101,"301,35.23 ",.01)
 ;;35.23 
 ;;9002226.02101,"301,35.23 ",.02)
 ;;35.23 
 ;;9002226.02101,"301,35.24 ",.01)
 ;;35.24 
 ;;9002226.02101,"301,35.24 ",.02)
 ;;35.24 
 ;;9002226.02101,"301,35.25 ",.01)
 ;;35.25 
 ;;9002226.02101,"301,35.25 ",.02)
 ;;35.25 
 ;;9002226.02101,"301,35.26 ",.01)
 ;;35.26 
 ;;9002226.02101,"301,35.26 ",.02)
 ;;35.26 
 ;;9002226.02101,"301,35.27 ",.01)
 ;;35.27 
 ;;9002226.02101,"301,35.27 ",.02)
 ;;35.27 
 ;;9002226.02101,"301,35.28 ",.01)
 ;;35.28 
 ;;9002226.02101,"301,35.28 ",.02)
 ;;35.28 
 ;;9002226.02101,"301,35.31 ",.01)
 ;;35.31 
 ;;9002226.02101,"301,35.31 ",.02)
 ;;35.31 
 ;;9002226.02101,"301,35.32 ",.01)
 ;;35.32 
 ;;9002226.02101,"301,35.32 ",.02)
 ;;35.32 
 ;;9002226.02101,"301,35.33 ",.01)
 ;;35.33 
 ;;9002226.02101,"301,35.33 ",.02)
 ;;35.33 
 ;;9002226.02101,"301,35.34 ",.01)
 ;;35.34 
 ;;9002226.02101,"301,35.34 ",.02)
 ;;35.34 
 ;;9002226.02101,"301,35.35 ",.01)
 ;;35.35 
 ;;9002226.02101,"301,35.35 ",.02)
 ;;35.35 
 ;;9002226.02101,"301,35.39 ",.01)
 ;;35.39 
 ;;9002226.02101,"301,35.39 ",.02)
 ;;35.39 
 ;;9002226.02101,"301,35.42 ",.01)
 ;;35.42 
 ;;9002226.02101,"301,35.42 ",.02)
 ;;35.42 
 ;;9002226.02101,"301,35.50 ",.01)
 ;;35.50 
 ;;9002226.02101,"301,35.50 ",.02)
 ;;35.50 
 ;;9002226.02101,"301,35.51 ",.01)
 ;;35.51 
 ;;9002226.02101,"301,35.51 ",.02)
 ;;35.51 
 ;;9002226.02101,"301,35.53 ",.01)
 ;;35.53 
 ;;9002226.02101,"301,35.53 ",.02)
 ;;35.53 
 ;;9002226.02101,"301,35.54 ",.01)
 ;;35.54 
 ;;9002226.02101,"301,35.54 ",.02)
 ;;35.54 
 ;;9002226.02101,"301,35.60 ",.01)
 ;;35.60 
 ;;9002226.02101,"301,35.60 ",.02)
 ;;35.60 
 ;;9002226.02101,"301,35.61 ",.01)
 ;;35.61 
 ;;9002226.02101,"301,35.61 ",.02)
 ;;35.61 
 ;;9002226.02101,"301,35.62 ",.01)
 ;;35.62 
 ;;9002226.02101,"301,35.62 ",.02)
 ;;35.62 
 ;;9002226.02101,"301,35.63 ",.01)
 ;;35.63 
 ;;9002226.02101,"301,35.63 ",.02)
 ;;35.63