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

BGP8CXRH.m

Go to the documentation of this file.
BGP8CXRH ; 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,57.83 ",.01)
 ;;57.83 
 ;;9002226.02101,"301,57.83 ",.02)
 ;;57.83 
 ;;9002226.02101,"301,57.84 ",.01)
 ;;57.84 
 ;;9002226.02101,"301,57.84 ",.02)
 ;;57.84 
 ;;9002226.02101,"301,57.85 ",.01)
 ;;57.85 
 ;;9002226.02101,"301,57.85 ",.02)
 ;;57.85 
 ;;9002226.02101,"301,57.86 ",.01)
 ;;57.86 
 ;;9002226.02101,"301,57.86 ",.02)
 ;;57.86 
 ;;9002226.02101,"301,57.87 ",.01)
 ;;57.87 
 ;;9002226.02101,"301,57.87 ",.02)
 ;;57.87 
 ;;9002226.02101,"301,57.88 ",.01)
 ;;57.88 
 ;;9002226.02101,"301,57.88 ",.02)
 ;;57.88 
 ;;9002226.02101,"301,57.89 ",.01)
 ;;57.89 
 ;;9002226.02101,"301,57.89 ",.02)
 ;;57.89 
 ;;9002226.02101,"301,57.91 ",.01)
 ;;57.91 
 ;;9002226.02101,"301,57.91 ",.02)
 ;;57.91 
 ;;9002226.02101,"301,57.93 ",.01)
 ;;57.93 
 ;;9002226.02101,"301,57.93 ",.02)
 ;;57.93 
 ;;9002226.02101,"301,59.00 ",.01)
 ;;59.00 
 ;;9002226.02101,"301,59.00 ",.02)
 ;;59.00 
 ;;9002226.02101,"301,59.02 ",.01)
 ;;59.02 
 ;;9002226.02101,"301,59.02 ",.02)
 ;;59.02 
 ;;9002226.02101,"301,59.03 ",.01)
 ;;59.03 
 ;;9002226.02101,"301,59.03 ",.02)
 ;;59.03 
 ;;9002226.02101,"301,59.09 ",.01)
 ;;59.09 
 ;;9002226.02101,"301,59.09 ",.02)
 ;;59.09 
 ;;9002226.02101,"301,59.11 ",.01)
 ;;59.11 
 ;;9002226.02101,"301,59.11 ",.02)
 ;;59.11 
 ;;9002226.02101,"301,59.19 ",.01)
 ;;59.19 
 ;;9002226.02101,"301,59.19 ",.02)
 ;;59.19 
 ;;9002226.02101,"301,59.3 ",.01)
 ;;59.3 
 ;;9002226.02101,"301,59.3 ",.02)
 ;;59.3 
 ;;9002226.02101,"301,59.4 ",.01)
 ;;59.4 
 ;;9002226.02101,"301,59.4 ",.02)
 ;;59.4 
 ;;9002226.02101,"301,59.5 ",.01)
 ;;59.5 
 ;;9002226.02101,"301,59.5 ",.02)
 ;;59.5 
 ;;9002226.02101,"301,59.6 ",.01)
 ;;59.6 
 ;;9002226.02101,"301,59.6 ",.02)
 ;;59.6 
 ;;9002226.02101,"301,59.71 ",.01)
 ;;59.71 
 ;;9002226.02101,"301,59.71 ",.02)
 ;;59.71 
 ;;9002226.02101,"301,59.79 ",.01)
 ;;59.79 
 ;;9002226.02101,"301,59.79 ",.02)
 ;;59.79 
 ;;9002226.02101,"301,60.0 ",.01)
 ;;60.0 
 ;;9002226.02101,"301,60.0 ",.02)
 ;;60.0 
 ;;9002226.02101,"301,60.21 ",.01)
 ;;60.21 
 ;;9002226.02101,"301,60.21 ",.02)
 ;;60.21 
 ;;9002226.02101,"301,60.29 ",.01)
 ;;60.29 
 ;;9002226.02101,"301,60.29 ",.02)
 ;;60.29 
 ;;9002226.02101,"301,60.3 ",.01)
 ;;60.3 
 ;;9002226.02101,"301,60.3 ",.02)
 ;;60.3 
 ;;9002226.02101,"301,60.4 ",.01)
 ;;60.4 
 ;;9002226.02101,"301,60.4 ",.02)
 ;;60.4 
 ;;9002226.02101,"301,60.5 ",.01)
 ;;60.5 
 ;;9002226.02101,"301,60.5 ",.02)
 ;;60.5 
 ;;9002226.02101,"301,60.61 ",.01)
 ;;60.61 
 ;;9002226.02101,"301,60.61 ",.02)
 ;;60.61 
 ;;9002226.02101,"301,60.62 ",.01)
 ;;60.62 
 ;;9002226.02101,"301,60.62 ",.02)
 ;;60.62 
 ;;9002226.02101,"301,60.69 ",.01)
 ;;60.69 
 ;;9002226.02101,"301,60.69 ",.02)
 ;;60.69 
 ;;9002226.02101,"301,60.72 ",.01)
 ;;60.72 
 ;;9002226.02101,"301,60.72 ",.02)
 ;;60.72 
 ;;9002226.02101,"301,60.73 ",.01)
 ;;60.73 
 ;;9002226.02101,"301,60.73 ",.02)
 ;;60.73 
 ;;9002226.02101,"301,60.79 ",.01)
 ;;60.79 
 ;;9002226.02101,"301,60.79 ",.02)
 ;;60.79 
 ;;9002226.02101,"301,60.81 ",.01)
 ;;60.81 
 ;;9002226.02101,"301,60.81 ",.02)
 ;;60.81 
 ;;9002226.02101,"301,60.82 ",.01)
 ;;60.82 
 ;;9002226.02101,"301,60.82 ",.02)
 ;;60.82 
 ;;9002226.02101,"301,64.3 ",.01)
 ;;64.3 
 ;;9002226.02101,"301,64.3 ",.02)
 ;;64.3 
 ;;9002226.02101,"301,64.43 ",.01)
 ;;64.43 
 ;;9002226.02101,"301,64.43 ",.02)
 ;;64.43 
 ;;9002226.02101,"301,64.44 ",.01)
 ;;64.44 
 ;;9002226.02101,"301,64.44 ",.02)
 ;;64.44 
 ;;9002226.02101,"301,64.45 ",.01)
 ;;64.45 
 ;;9002226.02101,"301,64.45 ",.02)
 ;;64.45 
 ;;9002226.02101,"301,64.49 ",.01)
 ;;64.49 
 ;;9002226.02101,"301,64.49 ",.02)
 ;;64.49 
 ;;9002226.02101,"301,64.5 ",.01)
 ;;64.5 
 ;;9002226.02101,"301,64.5 ",.02)
 ;;64.5 
 ;;9002226.02101,"301,65.09 ",.01)
 ;;65.09 
 ;;9002226.02101,"301,65.09 ",.02)
 ;;65.09 
 ;;9002226.02101,"301,65.21 ",.01)
 ;;65.21 
 ;;9002226.02101,"301,65.21 ",.02)
 ;;65.21 
 ;;9002226.02101,"301,65.22 ",.01)
 ;;65.22 
 ;;9002226.02101,"301,65.22 ",.02)
 ;;65.22 
 ;;9002226.02101,"301,65.29 ",.01)
 ;;65.29 
 ;;9002226.02101,"301,65.29 ",.02)
 ;;65.29 
 ;;9002226.02101,"301,65.39 ",.01)
 ;;65.39 
 ;;9002226.02101,"301,65.39 ",.02)
 ;;65.39 
 ;;9002226.02101,"301,65.49 ",.01)
 ;;65.49 
 ;;9002226.02101,"301,65.49 ",.02)
 ;;65.49 
 ;;9002226.02101,"301,65.51 ",.01)
 ;;65.51 
 ;;9002226.02101,"301,65.51 ",.02)
 ;;65.51 
 ;;9002226.02101,"301,65.52 ",.01)
 ;;65.52 
 ;;9002226.02101,"301,65.52 ",.02)
 ;;65.52 
 ;;9002226.02101,"301,65.61 ",.01)
 ;;65.61 
 ;;9002226.02101,"301,65.61 ",.02)
 ;;65.61 
 ;;9002226.02101,"301,65.62 ",.01)
 ;;65.62 
 ;;9002226.02101,"301,65.62 ",.02)
 ;;65.62 
 ;;9002226.02101,"301,65.71 ",.01)
 ;;65.71 
 ;;9002226.02101,"301,65.71 ",.02)
 ;;65.71 
 ;;9002226.02101,"301,65.72 ",.01)
 ;;65.72 
 ;;9002226.02101,"301,65.72 ",.02)
 ;;65.72 
 ;;9002226.02101,"301,65.73 ",.01)
 ;;65.73 
 ;;9002226.02101,"301,65.73 ",.02)
 ;;65.73 
 ;;9002226.02101,"301,65.79 ",.01)
 ;;65.79 
 ;;9002226.02101,"301,65.79 ",.02)
 ;;65.79 
 ;;9002226.02101,"301,65.89 ",.01)
 ;;65.89 
 ;;9002226.02101,"301,65.89 ",.02)
 ;;65.89 
 ;;9002226.02101,"301,65.92 ",.01)
 ;;65.92 
 ;;9002226.02101,"301,65.92 ",.02)
 ;;65.92 
 ;;9002226.02101,"301,65.93 ",.01)
 ;;65.93 
 ;;9002226.02101,"301,65.93 ",.02)
 ;;65.93 
 ;;9002226.02101,"301,65.94 ",.01)
 ;;65.94 
 ;;9002226.02101,"301,65.94 ",.02)
 ;;65.94 
 ;;9002226.02101,"301,65.95 ",.01)
 ;;65.95 
 ;;9002226.02101,"301,65.95 ",.02)
 ;;65.95 
 ;;9002226.02101,"301,65.99 ",.01)
 ;;65.99 
 ;;9002226.02101,"301,65.99 ",.02)
 ;;65.99 
 ;;9002226.02101,"301,66.01 ",.01)
 ;;66.01 
 ;;9002226.02101,"301,66.01 ",.02)
 ;;66.01 
 ;;9002226.02101,"301,66.02 ",.01)
 ;;66.02 
 ;;9002226.02101,"301,66.02 ",.02)
 ;;66.02 
 ;;9002226.02101,"301,66.4 ",.01)
 ;;66.4 
 ;;9002226.02101,"301,66.4 ",.02)
 ;;66.4 
 ;;9002226.02101,"301,66.51 ",.01)
 ;;66.51 
 ;;9002226.02101,"301,66.51 ",.02)
 ;;66.51 
 ;;9002226.02101,"301,66.52 ",.01)
 ;;66.52 
 ;;9002226.02101,"301,66.52 ",.02)
 ;;66.52 
 ;;9002226.02101,"301,66.61 ",.01)
 ;;66.61 
 ;;9002226.02101,"301,66.61 ",.02)
 ;;66.61 
 ;;9002226.02101,"301,66.62 ",.01)
 ;;66.62 
 ;;9002226.02101,"301,66.62 ",.02)
 ;;66.62 
 ;;9002226.02101,"301,66.63 ",.01)
 ;;66.63 
 ;;9002226.02101,"301,66.63 ",.02)
 ;;66.63 
 ;;9002226.02101,"301,66.69 ",.01)
 ;;66.69 
 ;;9002226.02101,"301,66.69 ",.02)
 ;;66.69 
 ;;9002226.02101,"301,66.71 ",.01)
 ;;66.71 
 ;;9002226.02101,"301,66.71 ",.02)
 ;;66.71 
 ;;9002226.02101,"301,66.72 ",.01)
 ;;66.72 
 ;;9002226.02101,"301,66.72 ",.02)
 ;;66.72 
 ;;9002226.02101,"301,66.73 ",.01)
 ;;66.73 
 ;;9002226.02101,"301,66.73 ",.02)
 ;;66.73 
 ;;9002226.02101,"301,66.74 ",.01)
 ;;66.74 
 ;;9002226.02101,"301,66.74 ",.02)
 ;;66.74 
 ;;9002226.02101,"301,66.79 ",.01)
 ;;66.79 
 ;;9002226.02101,"301,66.79 ",.02)
 ;;66.79 
 ;;9002226.02101,"301,68.0 ",.01)
 ;;68.0 
 ;;9002226.02101,"301,68.0 ",.02)
 ;;68.0 
 ;;9002226.02101,"301,68.21 ",.01)
 ;;68.21 
 ;;9002226.02101,"301,68.21 ",.02)
 ;;68.21 
 ;;9002226.02101,"301,68.22 ",.01)
 ;;68.22 
 ;;9002226.02101,"301,68.22 ",.02)
 ;;68.22 
 ;;9002226.02101,"301,68.29 ",.01)
 ;;68.29 
 ;;9002226.02101,"301,68.29 ",.02)
 ;;68.29 
 ;;9002226.02101,"301,68.39 ",.01)
 ;;68.39 
 ;;9002226.02101,"301,68.39 ",.02)
 ;;68.39 
 ;;9002226.02101,"301,68.49 ",.01)
 ;;68.49 
 ;;9002226.02101,"301,68.49 ",.02)
 ;;68.49 
 ;;9002226.02101,"301,68.51 ",.01)
 ;;68.51 
 ;;9002226.02101,"301,68.51 ",.02)
 ;;68.51 
 ;;9002226.02101,"301,68.59 ",.01)
 ;;68.59 
 ;;9002226.02101,"301,68.59 ",.02)
 ;;68.59 
 ;;9002226.02101,"301,68.69 ",.01)
 ;;68.69 
 ;;9002226.02101,"301,68.69 ",.02)
 ;;68.69 
 ;;9002226.02101,"301,68.79 ",.01)
 ;;68.79 
 ;;9002226.02101,"301,68.79 ",.02)
 ;;68.79 
 ;;9002226.02101,"301,68.8 ",.01)
 ;;68.8 
 ;;9002226.02101,"301,68.8 ",.02)
 ;;68.8 
 ;;9002226.02101,"301,68.9 ",.01)
 ;;68.9 
 ;;9002226.02101,"301,68.9 ",.02)
 ;;68.9 
 ;;9002226.02101,"301,69.19 ",.01)
 ;;69.19 
 ;;9002226.02101,"301,69.19 ",.02)
 ;;69.19 
 ;;9002226.02101,"301,69.3 ",.01)
 ;;69.3 
 ;;9002226.02101,"301,69.3 ",.02)
 ;;69.3 
 ;;9002226.02101,"301,69.41 ",.01)
 ;;69.41 
 ;;9002226.02101,"301,69.41 ",.02)
 ;;69.41 
 ;;9002226.02101,"301,69.42 ",.01)
 ;;69.42 
 ;;9002226.02101,"301,69.42 ",.02)
 ;;69.42 
 ;;9002226.02101,"301,69.49 ",.01)
 ;;69.49 
 ;;9002226.02101,"301,69.49 ",.02)
 ;;69.49 
 ;;9002226.02101,"301,70.4 ",.01)
 ;;70.4 
 ;;9002226.02101,"301,70.4 ",.02)
 ;;70.4 
 ;;9002226.02101,"301,70.50 ",.01)
 ;;70.50 
 ;;9002226.02101,"301,70.50 ",.02)
 ;;70.50 
 ;;9002226.02101,"301,70.51 ",.01)
 ;;70.51 
 ;;9002226.02101,"301,70.51 ",.02)
 ;;70.51 
 ;;9002226.02101,"301,70.52 ",.01)
 ;;70.52 
 ;;9002226.02101,"301,70.52 ",.02)
 ;;70.52 
 ;;9002226.02101,"301,70.61 ",.01)
 ;;70.61 
 ;;9002226.02101,"301,70.61 ",.02)
 ;;70.61 
 ;;9002226.02101,"301,70.62 ",.01)
 ;;70.62 
 ;;9002226.02101,"301,70.62 ",.02)
 ;;70.62 
 ;;9002226.02101,"301,70.8 ",.01)
 ;;70.8 
 ;;9002226.02101,"301,70.8 ",.02)
 ;;70.8 
 ;;9002226.02101,"301,77.00 ",.01)
 ;;77.00 
 ;;9002226.02101,"301,77.00 ",.02)
 ;;77.00 
 ;;9002226.02101,"301,77.01 ",.01)
 ;;77.01 
 ;;9002226.02101,"301,77.01 ",.02)
 ;;77.01 
 ;;9002226.02101,"301,77.02 ",.01)
 ;;77.02 
 ;;9002226.02101,"301,77.02 ",.02)
 ;;77.02 
 ;;9002226.02101,"301,77.03 ",.01)
 ;;77.03 
 ;;9002226.02101,"301,77.03 ",.02)
 ;;77.03 
 ;;9002226.02101,"301,77.04 ",.01)
 ;;77.04 
 ;;9002226.02101,"301,77.04 ",.02)
 ;;77.04 
 ;;9002226.02101,"301,77.05 ",.01)
 ;;77.05 
 ;;9002226.02101,"301,77.05 ",.02)
 ;;77.05 
 ;;9002226.02101,"301,77.06 ",.01)
 ;;77.06 
 ;;9002226.02101,"301,77.06 ",.02)
 ;;77.06 
 ;;9002226.02101,"301,77.07 ",.01)
 ;;77.07 
 ;;9002226.02101,"301,77.07 ",.02)
 ;;77.07 
 ;;9002226.02101,"301,77.08 ",.01)
 ;;77.08 
 ;;9002226.02101,"301,77.08 ",.02)
 ;;77.08 
 ;;9002226.02101,"301,77.09 ",.01)
 ;;77.09 
 ;;9002226.02101,"301,77.09 ",.02)
 ;;77.09 
 ;;9002226.02101,"301,77.90 ",.01)
 ;;77.90 
 ;;9002226.02101,"301,77.90 ",.02)
 ;;77.90 
 ;;9002226.02101,"301,77.91 ",.01)
 ;;77.91 
 ;;9002226.02101,"301,77.91 ",.02)
 ;;77.91 
 ;;9002226.02101,"301,77.92 ",.01)
 ;;77.92 
 ;;9002226.02101,"301,77.92 ",.02)
 ;;77.92 
 ;;9002226.02101,"301,77.93 ",.01)
 ;;77.93 
 ;;9002226.02101,"301,77.93 ",.02)
 ;;77.93 
 ;;9002226.02101,"301,77.94 ",.01)
 ;;77.94 
 ;;9002226.02101,"301,77.94 ",.02)
 ;;77.94 
 ;;9002226.02101,"301,77.95 ",.01)
 ;;77.95 
 ;;9002226.02101,"301,77.95 ",.02)
 ;;77.95 
 ;;9002226.02101,"301,77.96 ",.01)
 ;;77.96 
 ;;9002226.02101,"301,77.96 ",.02)
 ;;77.96 
 ;;9002226.02101,"301,77.97 ",.01)
 ;;77.97 
 ;;9002226.02101,"301,77.97 ",.02)
 ;;77.97 
 ;;9002226.02101,"301,77.98 ",.01)
 ;;77.98 
 ;;9002226.02101,"301,77.98 ",.02)
 ;;77.98 
 ;;9002226.02101,"301,77.99 ",.01)
 ;;77.99 
 ;;9002226.02101,"301,77.99 ",.02)
 ;;77.99 
 ;;9002226.02101,"301,78.00 ",.01)
 ;;78.00 
 ;;9002226.02101,"301,78.00 ",.02)
 ;;78.00 
 ;;9002226.02101,"301,78.01 ",.01)
 ;;78.01 
 ;;9002226.02101,"301,78.01 ",.02)
 ;;78.01 
 ;;9002226.02101,"301,78.02 ",.01)
 ;;78.02 
 ;;9002226.02101,"301,78.02 ",.02)
 ;;78.02 
 ;;9002226.02101,"301,78.03 ",.01)
 ;;78.03 
 ;;9002226.02101,"301,78.03 ",.02)
 ;;78.03 
 ;;9002226.02101,"301,78.04 ",.01)
 ;;78.04 
 ;;9002226.02101,"301,78.04 ",.02)
 ;;78.04 
 ;;9002226.02101,"301,78.05 ",.01)
 ;;78.05 
 ;;9002226.02101,"301,78.05 ",.02)
 ;;78.05 
 ;;9002226.02101,"301,78.06 ",.01)
 ;;78.06 
 ;;9002226.02101,"301,78.06 ",.02)
 ;;78.06 
 ;;9002226.02101,"301,78.07 ",.01)
 ;;78.07 
 ;;9002226.02101,"301,78.07 ",.02)
 ;;78.07 
 ;;9002226.02101,"301,78.08 ",.01)
 ;;78.08 
 ;;9002226.02101,"301,78.08 ",.02)
 ;;78.08 
 ;;9002226.02101,"301,78.09 ",.01)
 ;;78.09 
 ;;9002226.02101,"301,78.09 ",.02)
 ;;78.09 
 ;;9002226.02101,"301,78.20 ",.01)
 ;;78.20 
 ;;9002226.02101,"301,78.20 ",.02)
 ;;78.20 
 ;;9002226.02101,"301,78.22 ",.01)
 ;;78.22 
 ;;9002226.02101,"301,78.22 ",.02)
 ;;78.22 
 ;;9002226.02101,"301,78.23 ",.01)
 ;;78.23 
 ;;9002226.02101,"301,78.23 ",.02)
 ;;78.23 
 ;;9002226.02101,"301,78.24 ",.01)
 ;;78.24 
 ;;9002226.02101,"301,78.24 ",.02)
 ;;78.24 
 ;;9002226.02101,"301,78.25 ",.01)
 ;;78.25 
 ;;9002226.02101,"301,78.25 ",.02)
 ;;78.25 
 ;;9002226.02101,"301,78.27 ",.01)
 ;;78.27 
 ;;9002226.02101,"301,78.27 ",.02)
 ;;78.27 
 ;;9002226.02101,"301,78.28 ",.01)
 ;;78.28 
 ;;9002226.02101,"301,78.28 ",.02)
 ;;78.28 
 ;;9002226.02101,"301,78.29 ",.01)
 ;;78.29 
 ;;9002226.02101,"301,78.29 ",.02)
 ;;78.29 
 ;;9002226.02101,"301,78.30 ",.01)
 ;;78.30 
 ;;9002226.02101,"301,78.30 ",.02)
 ;;78.30 
 ;;9002226.02101,"301,78.32 ",.01)
 ;;78.32 
 ;;9002226.02101,"301,78.32 ",.02)
 ;;78.32 
 ;;9002226.02101,"301,78.33 ",.01)
 ;;78.33 
 ;;9002226.02101,"301,78.33 ",.02)
 ;;78.33 
 ;;9002226.02101,"301,78.34 ",.01)
 ;;78.34 
 ;;9002226.02101,"301,78.34 ",.02)
 ;;78.34 
 ;;9002226.02101,"301,78.35 ",.01)
 ;;78.35 
 ;;9002226.02101,"301,78.35 ",.02)
 ;;78.35 
 ;;9002226.02101,"301,78.37 ",.01)
 ;;78.37 
 ;;9002226.02101,"301,78.37 ",.02)
 ;;78.37 
 ;;9002226.02101,"301,78.38 ",.01)
 ;;78.38 
 ;;9002226.02101,"301,78.38 ",.02)
 ;;78.38 
 ;;9002226.02101,"301,78.39 ",.01)
 ;;78.39