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

BGP8CXRF.m

Go to the documentation of this file.
BGP8CXRF ; 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,42.41 ",.01)
 ;;42.41 
 ;;9002226.02101,"301,42.41 ",.02)
 ;;42.41 
 ;;9002226.02101,"301,42.42 ",.01)
 ;;42.42 
 ;;9002226.02101,"301,42.42 ",.02)
 ;;42.42 
 ;;9002226.02101,"301,42.51 ",.01)
 ;;42.51 
 ;;9002226.02101,"301,42.51 ",.02)
 ;;42.51 
 ;;9002226.02101,"301,42.52 ",.01)
 ;;42.52 
 ;;9002226.02101,"301,42.52 ",.02)
 ;;42.52 
 ;;9002226.02101,"301,42.53 ",.01)
 ;;42.53 
 ;;9002226.02101,"301,42.53 ",.02)
 ;;42.53 
 ;;9002226.02101,"301,42.54 ",.01)
 ;;42.54 
 ;;9002226.02101,"301,42.54 ",.02)
 ;;42.54 
 ;;9002226.02101,"301,42.55 ",.01)
 ;;42.55 
 ;;9002226.02101,"301,42.55 ",.02)
 ;;42.55 
 ;;9002226.02101,"301,42.56 ",.01)
 ;;42.56 
 ;;9002226.02101,"301,42.56 ",.02)
 ;;42.56 
 ;;9002226.02101,"301,42.58 ",.01)
 ;;42.58 
 ;;9002226.02101,"301,42.58 ",.02)
 ;;42.58 
 ;;9002226.02101,"301,42.59 ",.01)
 ;;42.59 
 ;;9002226.02101,"301,42.59 ",.02)
 ;;42.59 
 ;;9002226.02101,"301,42.61 ",.01)
 ;;42.61 
 ;;9002226.02101,"301,42.61 ",.02)
 ;;42.61 
 ;;9002226.02101,"301,42.62 ",.01)
 ;;42.62 
 ;;9002226.02101,"301,42.62 ",.02)
 ;;42.62 
 ;;9002226.02101,"301,42.63 ",.01)
 ;;42.63 
 ;;9002226.02101,"301,42.63 ",.02)
 ;;42.63 
 ;;9002226.02101,"301,42.64 ",.01)
 ;;42.64 
 ;;9002226.02101,"301,42.64 ",.02)
 ;;42.64 
 ;;9002226.02101,"301,42.65 ",.01)
 ;;42.65 
 ;;9002226.02101,"301,42.65 ",.02)
 ;;42.65 
 ;;9002226.02101,"301,42.66 ",.01)
 ;;42.66 
 ;;9002226.02101,"301,42.66 ",.02)
 ;;42.66 
 ;;9002226.02101,"301,42.68 ",.01)
 ;;42.68 
 ;;9002226.02101,"301,42.68 ",.02)
 ;;42.68 
 ;;9002226.02101,"301,42.69 ",.01)
 ;;42.69 
 ;;9002226.02101,"301,42.69 ",.02)
 ;;42.69 
 ;;9002226.02101,"301,42.7 ",.01)
 ;;42.7 
 ;;9002226.02101,"301,42.7 ",.02)
 ;;42.7 
 ;;9002226.02101,"301,42.82 ",.01)
 ;;42.82 
 ;;9002226.02101,"301,42.82 ",.02)
 ;;42.82 
 ;;9002226.02101,"301,42.83 ",.01)
 ;;42.83 
 ;;9002226.02101,"301,42.83 ",.02)
 ;;42.83 
 ;;9002226.02101,"301,42.84 ",.01)
 ;;42.84 
 ;;9002226.02101,"301,42.84 ",.02)
 ;;42.84 
 ;;9002226.02101,"301,42.85 ",.01)
 ;;42.85 
 ;;9002226.02101,"301,42.85 ",.02)
 ;;42.85 
 ;;9002226.02101,"301,42.86 ",.01)
 ;;42.86 
 ;;9002226.02101,"301,42.86 ",.02)
 ;;42.86 
 ;;9002226.02101,"301,42.87 ",.01)
 ;;42.87 
 ;;9002226.02101,"301,42.87 ",.02)
 ;;42.87 
 ;;9002226.02101,"301,42.89 ",.01)
 ;;42.89 
 ;;9002226.02101,"301,42.89 ",.02)
 ;;42.89 
 ;;9002226.02101,"301,43.3 ",.01)
 ;;43.3 
 ;;9002226.02101,"301,43.3 ",.02)
 ;;43.3 
 ;;9002226.02101,"301,43.5 ",.01)
 ;;43.5 
 ;;9002226.02101,"301,43.5 ",.02)
 ;;43.5 
 ;;9002226.02101,"301,43.6 ",.01)
 ;;43.6 
 ;;9002226.02101,"301,43.6 ",.02)
 ;;43.6 
 ;;9002226.02101,"301,43.7 ",.01)
 ;;43.7 
 ;;9002226.02101,"301,43.7 ",.02)
 ;;43.7 
 ;;9002226.02101,"301,43.81 ",.01)
 ;;43.81 
 ;;9002226.02101,"301,43.81 ",.02)
 ;;43.81 
 ;;9002226.02101,"301,43.89 ",.01)
 ;;43.89 
 ;;9002226.02101,"301,43.89 ",.02)
 ;;43.89 
 ;;9002226.02101,"301,43.91 ",.01)
 ;;43.91 
 ;;9002226.02101,"301,43.91 ",.02)
 ;;43.91 
 ;;9002226.02101,"301,43.99 ",.01)
 ;;43.99 
 ;;9002226.02101,"301,43.99 ",.02)
 ;;43.99 
 ;;9002226.02101,"301,44.00 ",.01)
 ;;44.00 
 ;;9002226.02101,"301,44.00 ",.02)
 ;;44.00 
 ;;9002226.02101,"301,44.01 ",.01)
 ;;44.01 
 ;;9002226.02101,"301,44.01 ",.02)
 ;;44.01 
 ;;9002226.02101,"301,44.02 ",.01)
 ;;44.02 
 ;;9002226.02101,"301,44.02 ",.02)
 ;;44.02 
 ;;9002226.02101,"301,44.03 ",.01)
 ;;44.03 
 ;;9002226.02101,"301,44.03 ",.02)
 ;;44.03 
 ;;9002226.02101,"301,44.21 ",.01)
 ;;44.21 
 ;;9002226.02101,"301,44.21 ",.02)
 ;;44.21 
 ;;9002226.02101,"301,44.29 ",.01)
 ;;44.29 
 ;;9002226.02101,"301,44.29 ",.02)
 ;;44.29 
 ;;9002226.02101,"301,44.31 ",.01)
 ;;44.31 
 ;;9002226.02101,"301,44.31 ",.02)
 ;;44.31 
 ;;9002226.02101,"301,44.39 ",.01)
 ;;44.39 
 ;;9002226.02101,"301,44.39 ",.02)
 ;;44.39 
 ;;9002226.02101,"301,44.40 ",.01)
 ;;44.40 
 ;;9002226.02101,"301,44.40 ",.02)
 ;;44.40 
 ;;9002226.02101,"301,44.41 ",.01)
 ;;44.41 
 ;;9002226.02101,"301,44.41 ",.02)
 ;;44.41 
 ;;9002226.02101,"301,44.42 ",.01)
 ;;44.42 
 ;;9002226.02101,"301,44.42 ",.02)
 ;;44.42 
 ;;9002226.02101,"301,44.5 ",.01)
 ;;44.5 
 ;;9002226.02101,"301,44.5 ",.02)
 ;;44.5 
 ;;9002226.02101,"301,44.61 ",.01)
 ;;44.61 
 ;;9002226.02101,"301,44.61 ",.02)
 ;;44.61 
 ;;9002226.02101,"301,44.63 ",.01)
 ;;44.63 
 ;;9002226.02101,"301,44.63 ",.02)
 ;;44.63 
 ;;9002226.02101,"301,44.64 ",.01)
 ;;44.64 
 ;;9002226.02101,"301,44.64 ",.02)
 ;;44.64 
 ;;9002226.02101,"301,44.65 ",.01)
 ;;44.65 
 ;;9002226.02101,"301,44.65 ",.02)
 ;;44.65 
 ;;9002226.02101,"301,44.66 ",.01)
 ;;44.66 
 ;;9002226.02101,"301,44.66 ",.02)
 ;;44.66 
 ;;9002226.02101,"301,44.69 ",.01)
 ;;44.69 
 ;;9002226.02101,"301,44.69 ",.02)
 ;;44.69 
 ;;9002226.02101,"301,44.91 ",.01)
 ;;44.91 
 ;;9002226.02101,"301,44.91 ",.02)
 ;;44.91 
 ;;9002226.02101,"301,44.92 ",.01)
 ;;44.92 
 ;;9002226.02101,"301,44.92 ",.02)
 ;;44.92 
 ;;9002226.02101,"301,44.99 ",.01)
 ;;44.99 
 ;;9002226.02101,"301,44.99 ",.02)
 ;;44.99 
 ;;9002226.02101,"301,45.00 ",.01)
 ;;45.00 
 ;;9002226.02101,"301,45.00 ",.02)
 ;;45.00 
 ;;9002226.02101,"301,45.01 ",.01)
 ;;45.01 
 ;;9002226.02101,"301,45.01 ",.02)
 ;;45.01 
 ;;9002226.02101,"301,45.02 ",.01)
 ;;45.02 
 ;;9002226.02101,"301,45.02 ",.02)
 ;;45.02 
 ;;9002226.02101,"301,45.03 ",.01)
 ;;45.03 
 ;;9002226.02101,"301,45.03 ",.02)
 ;;45.03 
 ;;9002226.02101,"301,45.31 ",.01)
 ;;45.31 
 ;;9002226.02101,"301,45.31 ",.02)
 ;;45.31 
 ;;9002226.02101,"301,45.32 ",.01)
 ;;45.32 
 ;;9002226.02101,"301,45.32 ",.02)
 ;;45.32 
 ;;9002226.02101,"301,45.33 ",.01)
 ;;45.33 
 ;;9002226.02101,"301,45.33 ",.02)
 ;;45.33 
 ;;9002226.02101,"301,45.34 ",.01)
 ;;45.34 
 ;;9002226.02101,"301,45.34 ",.02)
 ;;45.34 
 ;;9002226.02101,"301,45.41 ",.01)
 ;;45.41 
 ;;9002226.02101,"301,45.41 ",.02)
 ;;45.41 
 ;;9002226.02101,"301,45.49 ",.01)
 ;;45.49 
 ;;9002226.02101,"301,45.49 ",.02)
 ;;45.49 
 ;;9002226.02101,"301,45.50 ",.01)
 ;;45.50 
 ;;9002226.02101,"301,45.50 ",.02)
 ;;45.50 
 ;;9002226.02101,"301,45.51 ",.01)
 ;;45.51 
 ;;9002226.02101,"301,45.51 ",.02)
 ;;45.51 
 ;;9002226.02101,"301,45.52 ",.01)
 ;;45.52 
 ;;9002226.02101,"301,45.52 ",.02)
 ;;45.52 
 ;;9002226.02101,"301,45.61 ",.01)
 ;;45.61 
 ;;9002226.02101,"301,45.61 ",.02)
 ;;45.61 
 ;;9002226.02101,"301,45.62 ",.01)
 ;;45.62 
 ;;9002226.02101,"301,45.62 ",.02)
 ;;45.62 
 ;;9002226.02101,"301,45.63 ",.01)
 ;;45.63 
 ;;9002226.02101,"301,45.63 ",.02)
 ;;45.63 
 ;;9002226.02101,"301,45.71 ",.01)
 ;;45.71 
 ;;9002226.02101,"301,45.71 ",.02)
 ;;45.71 
 ;;9002226.02101,"301,45.72 ",.01)
 ;;45.72 
 ;;9002226.02101,"301,45.72 ",.02)
 ;;45.72 
 ;;9002226.02101,"301,45.73 ",.01)
 ;;45.73 
 ;;9002226.02101,"301,45.73 ",.02)
 ;;45.73 
 ;;9002226.02101,"301,45.74 ",.01)
 ;;45.74 
 ;;9002226.02101,"301,45.74 ",.02)
 ;;45.74 
 ;;9002226.02101,"301,45.75 ",.01)
 ;;45.75 
 ;;9002226.02101,"301,45.75 ",.02)
 ;;45.75 
 ;;9002226.02101,"301,45.76 ",.01)
 ;;45.76 
 ;;9002226.02101,"301,45.76 ",.02)
 ;;45.76 
 ;;9002226.02101,"301,45.79 ",.01)
 ;;45.79 
 ;;9002226.02101,"301,45.79 ",.02)
 ;;45.79 
 ;;9002226.02101,"301,45.8 ",.01)
 ;;45.8 
 ;;9002226.02101,"301,45.8 ",.02)
 ;;45.8 
 ;;9002226.02101,"301,45.90 ",.01)
 ;;45.90 
 ;;9002226.02101,"301,45.90 ",.02)
 ;;45.90 
 ;;9002226.02101,"301,45.91 ",.01)
 ;;45.91 
 ;;9002226.02101,"301,45.91 ",.02)
 ;;45.91 
 ;;9002226.02101,"301,45.92 ",.01)
 ;;45.92 
 ;;9002226.02101,"301,45.92 ",.02)
 ;;45.92 
 ;;9002226.02101,"301,45.93 ",.01)
 ;;45.93 
 ;;9002226.02101,"301,45.93 ",.02)
 ;;45.93 
 ;;9002226.02101,"301,45.94 ",.01)
 ;;45.94 
 ;;9002226.02101,"301,45.94 ",.02)
 ;;45.94 
 ;;9002226.02101,"301,45.95 ",.01)
 ;;45.95 
 ;;9002226.02101,"301,45.95 ",.02)
 ;;45.95 
 ;;9002226.02101,"301,46.01 ",.01)
 ;;46.01 
 ;;9002226.02101,"301,46.01 ",.02)
 ;;46.01 
 ;;9002226.02101,"301,46.02 ",.01)
 ;;46.02 
 ;;9002226.02101,"301,46.02 ",.02)
 ;;46.02 
 ;;9002226.02101,"301,46.03 ",.01)
 ;;46.03 
 ;;9002226.02101,"301,46.03 ",.02)
 ;;46.03 
 ;;9002226.02101,"301,46.04 ",.01)
 ;;46.04 
 ;;9002226.02101,"301,46.04 ",.02)
 ;;46.04 
 ;;9002226.02101,"301,46.10 ",.01)
 ;;46.10 
 ;;9002226.02101,"301,46.10 ",.02)
 ;;46.10 
 ;;9002226.02101,"301,46.11 ",.01)
 ;;46.11 
 ;;9002226.02101,"301,46.11 ",.02)
 ;;46.11 
 ;;9002226.02101,"301,46.13 ",.01)
 ;;46.13 
 ;;9002226.02101,"301,46.13 ",.02)
 ;;46.13 
 ;;9002226.02101,"301,46.20 ",.01)
 ;;46.20 
 ;;9002226.02101,"301,46.20 ",.02)
 ;;46.20 
 ;;9002226.02101,"301,46.21 ",.01)
 ;;46.21 
 ;;9002226.02101,"301,46.21 ",.02)
 ;;46.21 
 ;;9002226.02101,"301,46.22 ",.01)
 ;;46.22 
 ;;9002226.02101,"301,46.22 ",.02)
 ;;46.22 
 ;;9002226.02101,"301,46.23 ",.01)
 ;;46.23 
 ;;9002226.02101,"301,46.23 ",.02)
 ;;46.23 
 ;;9002226.02101,"301,46.40 ",.01)
 ;;46.40 
 ;;9002226.02101,"301,46.40 ",.02)
 ;;46.40 
 ;;9002226.02101,"301,46.42 ",.01)
 ;;46.42 
 ;;9002226.02101,"301,46.42 ",.02)
 ;;46.42 
 ;;9002226.02101,"301,46.43 ",.01)
 ;;46.43 
 ;;9002226.02101,"301,46.43 ",.02)
 ;;46.43 
 ;;9002226.02101,"301,46.50 ",.01)
 ;;46.50 
 ;;9002226.02101,"301,46.50 ",.02)
 ;;46.50 
 ;;9002226.02101,"301,46.51 ",.01)
 ;;46.51 
 ;;9002226.02101,"301,46.51 ",.02)
 ;;46.51 
 ;;9002226.02101,"301,46.52 ",.01)
 ;;46.52 
 ;;9002226.02101,"301,46.52 ",.02)
 ;;46.52 
 ;;9002226.02101,"301,46.60 ",.01)
 ;;46.60 
 ;;9002226.02101,"301,46.60 ",.02)
 ;;46.60 
 ;;9002226.02101,"301,46.61 ",.01)
 ;;46.61 
 ;;9002226.02101,"301,46.61 ",.02)
 ;;46.61 
 ;;9002226.02101,"301,46.62 ",.01)
 ;;46.62 
 ;;9002226.02101,"301,46.62 ",.02)
 ;;46.62 
 ;;9002226.02101,"301,46.63 ",.01)
 ;;46.63 
 ;;9002226.02101,"301,46.63 ",.02)
 ;;46.63 
 ;;9002226.02101,"301,46.64 ",.01)
 ;;46.64 
 ;;9002226.02101,"301,46.64 ",.02)
 ;;46.64 
 ;;9002226.02101,"301,46.71 ",.01)
 ;;46.71 
 ;;9002226.02101,"301,46.71 ",.02)
 ;;46.71 
 ;;9002226.02101,"301,46.72 ",.01)
 ;;46.72 
 ;;9002226.02101,"301,46.72 ",.02)
 ;;46.72 
 ;;9002226.02101,"301,46.73 ",.01)
 ;;46.73 
 ;;9002226.02101,"301,46.73 ",.02)
 ;;46.73 
 ;;9002226.02101,"301,46.74 ",.01)
 ;;46.74 
 ;;9002226.02101,"301,46.74 ",.02)
 ;;46.74 
 ;;9002226.02101,"301,46.75 ",.01)
 ;;46.75 
 ;;9002226.02101,"301,46.75 ",.02)
 ;;46.75 
 ;;9002226.02101,"301,46.76 ",.01)
 ;;46.76 
 ;;9002226.02101,"301,46.76 ",.02)
 ;;46.76 
 ;;9002226.02101,"301,46.79 ",.01)
 ;;46.79 
 ;;9002226.02101,"301,46.79 ",.02)
 ;;46.79 
 ;;9002226.02101,"301,46.91 ",.01)
 ;;46.91 
 ;;9002226.02101,"301,46.91 ",.02)
 ;;46.91 
 ;;9002226.02101,"301,46.92 ",.01)
 ;;46.92 
 ;;9002226.02101,"301,46.92 ",.02)
 ;;46.92 
 ;;9002226.02101,"301,46.94 ",.01)
 ;;46.94 
 ;;9002226.02101,"301,46.94 ",.02)
 ;;46.94 
 ;;9002226.02101,"301,47.09 ",.01)
 ;;47.09 
 ;;9002226.02101,"301,47.09 ",.02)
 ;;47.09 
 ;;9002226.02101,"301,47.2 ",.01)
 ;;47.2 
 ;;9002226.02101,"301,47.2 ",.02)
 ;;47.2 
 ;;9002226.02101,"301,47.91 ",.01)
 ;;47.91 
 ;;9002226.02101,"301,47.91 ",.02)
 ;;47.91 
 ;;9002226.02101,"301,47.92 ",.01)
 ;;47.92 
 ;;9002226.02101,"301,47.92 ",.02)
 ;;47.92 
 ;;9002226.02101,"301,47.99 ",.01)
 ;;47.99 
 ;;9002226.02101,"301,47.99 ",.02)
 ;;47.99 
 ;;9002226.02101,"301,48.0 ",.01)
 ;;48.0 
 ;;9002226.02101,"301,48.0 ",.02)
 ;;48.0 
 ;;9002226.02101,"301,48.1 ",.01)
 ;;48.1 
 ;;9002226.02101,"301,48.1 ",.02)
 ;;48.1 
 ;;9002226.02101,"301,48.41 ",.01)
 ;;48.41 
 ;;9002226.02101,"301,48.41 ",.02)
 ;;48.41 
 ;;9002226.02101,"301,48.49 ",.01)
 ;;48.49 
 ;;9002226.02101,"301,48.49 ",.02)
 ;;48.49 
 ;;9002226.02101,"301,48.5 ",.01)
 ;;48.5 
 ;;9002226.02101,"301,48.5 ",.02)
 ;;48.5 
 ;;9002226.02101,"301,48.61 ",.01)
 ;;48.61 
 ;;9002226.02101,"301,48.61 ",.02)
 ;;48.61 
 ;;9002226.02101,"301,48.62 ",.01)
 ;;48.62 
 ;;9002226.02101,"301,48.62 ",.02)
 ;;48.62 
 ;;9002226.02101,"301,48.63 ",.01)
 ;;48.63 
 ;;9002226.02101,"301,48.63 ",.02)
 ;;48.63 
 ;;9002226.02101,"301,48.64 ",.01)
 ;;48.64 
 ;;9002226.02101,"301,48.64 ",.02)
 ;;48.64 
 ;;9002226.02101,"301,48.65 ",.01)
 ;;48.65 
 ;;9002226.02101,"301,48.65 ",.02)
 ;;48.65 
 ;;9002226.02101,"301,48.69 ",.01)
 ;;48.69 
 ;;9002226.02101,"301,48.69 ",.02)
 ;;48.69 
 ;;9002226.02101,"301,48.72 ",.01)
 ;;48.72 
 ;;9002226.02101,"301,48.72 ",.02)
 ;;48.72 
 ;;9002226.02101,"301,48.73 ",.01)
 ;;48.73 
 ;;9002226.02101,"301,48.73 ",.02)
 ;;48.73 
 ;;9002226.02101,"301,48.74 ",.01)
 ;;48.74 
 ;;9002226.02101,"301,48.74 ",.02)
 ;;48.74 
 ;;9002226.02101,"301,48.75 ",.01)
 ;;48.75 
 ;;9002226.02101,"301,48.75 ",.02)
 ;;48.75 
 ;;9002226.02101,"301,48.76 ",.01)
 ;;48.76 
 ;;9002226.02101,"301,48.76 ",.02)
 ;;48.76 
 ;;9002226.02101,"301,50.0 ",.01)
 ;;50.0 
 ;;9002226.02101,"301,50.0 ",.02)
 ;;50.0 
 ;;9002226.02101,"301,50.21 ",.01)
 ;;50.21 
 ;;9002226.02101,"301,50.21 ",.02)
 ;;50.21 
 ;;9002226.02101,"301,50.22 ",.01)
 ;;50.22 
 ;;9002226.02101,"301,50.22 ",.02)
 ;;50.22 
 ;;9002226.02101,"301,50.23 ",.01)
 ;;50.23 
 ;;9002226.02101,"301,50.23 ",.02)
 ;;50.23 
 ;;9002226.02101,"301,50.25 ",.01)
 ;;50.25 
 ;;9002226.02101,"301,50.25 ",.02)
 ;;50.25 
 ;;9002226.02101,"301,50.26 ",.01)
 ;;50.26 
 ;;9002226.02101,"301,50.26 ",.02)
 ;;50.26 
 ;;9002226.02101,"301,50.29 ",.01)
 ;;50.29