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

BGP8CXRG.m

Go to the documentation of this file.
BGP8CXRG ; 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,50.29 ",.02)
 ;;50.29 
 ;;9002226.02101,"301,50.3 ",.01)
 ;;50.3 
 ;;9002226.02101,"301,50.3 ",.02)
 ;;50.3 
 ;;9002226.02101,"301,50.4 ",.01)
 ;;50.4 
 ;;9002226.02101,"301,50.4 ",.02)
 ;;50.4 
 ;;9002226.02101,"301,50.51 ",.01)
 ;;50.51 
 ;;9002226.02101,"301,50.51 ",.02)
 ;;50.51 
 ;;9002226.02101,"301,50.59 ",.01)
 ;;50.59 
 ;;9002226.02101,"301,50.59 ",.02)
 ;;50.59 
 ;;9002226.02101,"301,50.61 ",.01)
 ;;50.61 
 ;;9002226.02101,"301,50.61 ",.02)
 ;;50.61 
 ;;9002226.02101,"301,50.69 ",.01)
 ;;50.69 
 ;;9002226.02101,"301,50.69 ",.02)
 ;;50.69 
 ;;9002226.02101,"301,51.02 ",.01)
 ;;51.02 
 ;;9002226.02101,"301,51.02 ",.02)
 ;;51.02 
 ;;9002226.02101,"301,51.03 ",.01)
 ;;51.03 
 ;;9002226.02101,"301,51.03 ",.02)
 ;;51.03 
 ;;9002226.02101,"301,51.04 ",.01)
 ;;51.04 
 ;;9002226.02101,"301,51.04 ",.02)
 ;;51.04 
 ;;9002226.02101,"301,51.21 ",.01)
 ;;51.21 
 ;;9002226.02101,"301,51.21 ",.02)
 ;;51.21 
 ;;9002226.02101,"301,51.22 ",.01)
 ;;51.22 
 ;;9002226.02101,"301,51.22 ",.02)
 ;;51.22 
 ;;9002226.02101,"301,51.31 ",.01)
 ;;51.31 
 ;;9002226.02101,"301,51.31 ",.02)
 ;;51.31 
 ;;9002226.02101,"301,51.32 ",.01)
 ;;51.32 
 ;;9002226.02101,"301,51.32 ",.02)
 ;;51.32 
 ;;9002226.02101,"301,51.33 ",.01)
 ;;51.33 
 ;;9002226.02101,"301,51.33 ",.02)
 ;;51.33 
 ;;9002226.02101,"301,51.34 ",.01)
 ;;51.34 
 ;;9002226.02101,"301,51.34 ",.02)
 ;;51.34 
 ;;9002226.02101,"301,51.35 ",.01)
 ;;51.35 
 ;;9002226.02101,"301,51.35 ",.02)
 ;;51.35 
 ;;9002226.02101,"301,51.36 ",.01)
 ;;51.36 
 ;;9002226.02101,"301,51.36 ",.02)
 ;;51.36 
 ;;9002226.02101,"301,51.37 ",.01)
 ;;51.37 
 ;;9002226.02101,"301,51.37 ",.02)
 ;;51.37 
 ;;9002226.02101,"301,51.39 ",.01)
 ;;51.39 
 ;;9002226.02101,"301,51.39 ",.02)
 ;;51.39 
 ;;9002226.02101,"301,51.41 ",.01)
 ;;51.41 
 ;;9002226.02101,"301,51.41 ",.02)
 ;;51.41 
 ;;9002226.02101,"301,51.42 ",.01)
 ;;51.42 
 ;;9002226.02101,"301,51.42 ",.02)
 ;;51.42 
 ;;9002226.02101,"301,51.43 ",.01)
 ;;51.43 
 ;;9002226.02101,"301,51.43 ",.02)
 ;;51.43 
 ;;9002226.02101,"301,51.49 ",.01)
 ;;51.49 
 ;;9002226.02101,"301,51.49 ",.02)
 ;;51.49 
 ;;9002226.02101,"301,51.51 ",.01)
 ;;51.51 
 ;;9002226.02101,"301,51.51 ",.02)
 ;;51.51 
 ;;9002226.02101,"301,51.59 ",.01)
 ;;51.59 
 ;;9002226.02101,"301,51.59 ",.02)
 ;;51.59 
 ;;9002226.02101,"301,51.61 ",.01)
 ;;51.61 
 ;;9002226.02101,"301,51.61 ",.02)
 ;;51.61 
 ;;9002226.02101,"301,51.62 ",.01)
 ;;51.62 
 ;;9002226.02101,"301,51.62 ",.02)
 ;;51.62 
 ;;9002226.02101,"301,51.63 ",.01)
 ;;51.63 
 ;;9002226.02101,"301,51.63 ",.02)
 ;;51.63 
 ;;9002226.02101,"301,51.69 ",.01)
 ;;51.69 
 ;;9002226.02101,"301,51.69 ",.02)
 ;;51.69 
 ;;9002226.02101,"301,51.71 ",.01)
 ;;51.71 
 ;;9002226.02101,"301,51.71 ",.02)
 ;;51.71 
 ;;9002226.02101,"301,51.72 ",.01)
 ;;51.72 
 ;;9002226.02101,"301,51.72 ",.02)
 ;;51.72 
 ;;9002226.02101,"301,51.79 ",.01)
 ;;51.79 
 ;;9002226.02101,"301,51.79 ",.02)
 ;;51.79 
 ;;9002226.02101,"301,51.81 ",.01)
 ;;51.81 
 ;;9002226.02101,"301,51.81 ",.02)
 ;;51.81 
 ;;9002226.02101,"301,51.82 ",.01)
 ;;51.82 
 ;;9002226.02101,"301,51.82 ",.02)
 ;;51.82 
 ;;9002226.02101,"301,51.83 ",.01)
 ;;51.83 
 ;;9002226.02101,"301,51.83 ",.02)
 ;;51.83 
 ;;9002226.02101,"301,51.89 ",.01)
 ;;51.89 
 ;;9002226.02101,"301,51.89 ",.02)
 ;;51.89 
 ;;9002226.02101,"301,51.91 ",.01)
 ;;51.91 
 ;;9002226.02101,"301,51.91 ",.02)
 ;;51.91 
 ;;9002226.02101,"301,51.92 ",.01)
 ;;51.92 
 ;;9002226.02101,"301,51.92 ",.02)
 ;;51.92 
 ;;9002226.02101,"301,51.93 ",.01)
 ;;51.93 
 ;;9002226.02101,"301,51.93 ",.02)
 ;;51.93 
 ;;9002226.02101,"301,51.94 ",.01)
 ;;51.94 
 ;;9002226.02101,"301,51.94 ",.02)
 ;;51.94 
 ;;9002226.02101,"301,51.95 ",.01)
 ;;51.95 
 ;;9002226.02101,"301,51.95 ",.02)
 ;;51.95 
 ;;9002226.02101,"301,51.99 ",.01)
 ;;51.99 
 ;;9002226.02101,"301,51.99 ",.02)
 ;;51.99 
 ;;9002226.02101,"301,52.09 ",.01)
 ;;52.09 
 ;;9002226.02101,"301,52.09 ",.02)
 ;;52.09 
 ;;9002226.02101,"301,52.22 ",.01)
 ;;52.22 
 ;;9002226.02101,"301,52.22 ",.02)
 ;;52.22 
 ;;9002226.02101,"301,52.3 ",.01)
 ;;52.3 
 ;;9002226.02101,"301,52.3 ",.02)
 ;;52.3 
 ;;9002226.02101,"301,52.4 ",.01)
 ;;52.4 
 ;;9002226.02101,"301,52.4 ",.02)
 ;;52.4 
 ;;9002226.02101,"301,52.51 ",.01)
 ;;52.51 
 ;;9002226.02101,"301,52.51 ",.02)
 ;;52.51 
 ;;9002226.02101,"301,52.52 ",.01)
 ;;52.52 
 ;;9002226.02101,"301,52.52 ",.02)
 ;;52.52 
 ;;9002226.02101,"301,52.53 ",.01)
 ;;52.53 
 ;;9002226.02101,"301,52.53 ",.02)
 ;;52.53 
 ;;9002226.02101,"301,52.59 ",.01)
 ;;52.59 
 ;;9002226.02101,"301,52.59 ",.02)
 ;;52.59 
 ;;9002226.02101,"301,52.6 ",.01)
 ;;52.6 
 ;;9002226.02101,"301,52.6 ",.02)
 ;;52.6 
 ;;9002226.02101,"301,52.7 ",.01)
 ;;52.7 
 ;;9002226.02101,"301,52.7 ",.02)
 ;;52.7 
 ;;9002226.02101,"301,52.80 ",.01)
 ;;52.80 
 ;;9002226.02101,"301,52.80 ",.02)
 ;;52.80 
 ;;9002226.02101,"301,52.81 ",.01)
 ;;52.81 
 ;;9002226.02101,"301,52.81 ",.02)
 ;;52.81 
 ;;9002226.02101,"301,52.82 ",.01)
 ;;52.82 
 ;;9002226.02101,"301,52.82 ",.02)
 ;;52.82 
 ;;9002226.02101,"301,52.83 ",.01)
 ;;52.83 
 ;;9002226.02101,"301,52.83 ",.02)
 ;;52.83 
 ;;9002226.02101,"301,52.92 ",.01)
 ;;52.92 
 ;;9002226.02101,"301,52.92 ",.02)
 ;;52.92 
 ;;9002226.02101,"301,52.95 ",.01)
 ;;52.95 
 ;;9002226.02101,"301,52.95 ",.02)
 ;;52.95 
 ;;9002226.02101,"301,52.96 ",.01)
 ;;52.96 
 ;;9002226.02101,"301,52.96 ",.02)
 ;;52.96 
 ;;9002226.02101,"301,52.99 ",.01)
 ;;52.99 
 ;;9002226.02101,"301,52.99 ",.02)
 ;;52.99 
 ;;9002226.02101,"301,53.51 ",.01)
 ;;53.51 
 ;;9002226.02101,"301,53.51 ",.02)
 ;;53.51 
 ;;9002226.02101,"301,53.59 ",.01)
 ;;53.59 
 ;;9002226.02101,"301,53.59 ",.02)
 ;;53.59 
 ;;9002226.02101,"301,53.61 ",.01)
 ;;53.61 
 ;;9002226.02101,"301,53.61 ",.02)
 ;;53.61 
 ;;9002226.02101,"301,53.69 ",.01)
 ;;53.69 
 ;;9002226.02101,"301,53.69 ",.02)
 ;;53.69 
 ;;9002226.02101,"301,53.7 ",.01)
 ;;53.7 
 ;;9002226.02101,"301,53.7 ",.02)
 ;;53.7 
 ;;9002226.02101,"301,53.80 ",.01)
 ;;53.80 
 ;;9002226.02101,"301,53.80 ",.02)
 ;;53.80 
 ;;9002226.02101,"301,53.81 ",.01)
 ;;53.81 
 ;;9002226.02101,"301,53.81 ",.02)
 ;;53.81 
 ;;9002226.02101,"301,53.82 ",.01)
 ;;53.82 
 ;;9002226.02101,"301,53.82 ",.02)
 ;;53.82 
 ;;9002226.02101,"301,53.9 ",.01)
 ;;53.9 
 ;;9002226.02101,"301,53.9 ",.02)
 ;;53.9 
 ;;9002226.02101,"301,54.11 ",.01)
 ;;54.11 
 ;;9002226.02101,"301,54.11 ",.02)
 ;;54.11 
 ;;9002226.02101,"301,54.12 ",.01)
 ;;54.12 
 ;;9002226.02101,"301,54.12 ",.02)
 ;;54.12 
 ;;9002226.02101,"301,54.19 ",.01)
 ;;54.19 
 ;;9002226.02101,"301,54.19 ",.02)
 ;;54.19 
 ;;9002226.02101,"301,54.4 ",.01)
 ;;54.4 
 ;;9002226.02101,"301,54.4 ",.02)
 ;;54.4 
 ;;9002226.02101,"301,54.59 ",.01)
 ;;54.59 
 ;;9002226.02101,"301,54.59 ",.02)
 ;;54.59 
 ;;9002226.02101,"301,54.61 ",.01)
 ;;54.61 
 ;;9002226.02101,"301,54.61 ",.02)
 ;;54.61 
 ;;9002226.02101,"301,54.62 ",.01)
 ;;54.62 
 ;;9002226.02101,"301,54.62 ",.02)
 ;;54.62 
 ;;9002226.02101,"301,54.63 ",.01)
 ;;54.63 
 ;;9002226.02101,"301,54.63 ",.02)
 ;;54.63 
 ;;9002226.02101,"301,54.64 ",.01)
 ;;54.64 
 ;;9002226.02101,"301,54.64 ",.02)
 ;;54.64 
 ;;9002226.02101,"301,54.71 ",.01)
 ;;54.71 
 ;;9002226.02101,"301,54.71 ",.02)
 ;;54.71 
 ;;9002226.02101,"301,54.72 ",.01)
 ;;54.72 
 ;;9002226.02101,"301,54.72 ",.02)
 ;;54.72 
 ;;9002226.02101,"301,54.73 ",.01)
 ;;54.73 
 ;;9002226.02101,"301,54.73 ",.02)
 ;;54.73 
 ;;9002226.02101,"301,54.74 ",.01)
 ;;54.74 
 ;;9002226.02101,"301,54.74 ",.02)
 ;;54.74 
 ;;9002226.02101,"301,54.75 ",.01)
 ;;54.75 
 ;;9002226.02101,"301,54.75 ",.02)
 ;;54.75 
 ;;9002226.02101,"301,54.92 ",.01)
 ;;54.92 
 ;;9002226.02101,"301,54.92 ",.02)
 ;;54.92 
 ;;9002226.02101,"301,54.94 ",.01)
 ;;54.94 
 ;;9002226.02101,"301,54.94 ",.02)
 ;;54.94 
 ;;9002226.02101,"301,54.95 ",.01)
 ;;54.95 
 ;;9002226.02101,"301,54.95 ",.02)
 ;;54.95 
 ;;9002226.02101,"301,55.01 ",.01)
 ;;55.01 
 ;;9002226.02101,"301,55.01 ",.02)
 ;;55.01 
 ;;9002226.02101,"301,55.02 ",.01)
 ;;55.02 
 ;;9002226.02101,"301,55.02 ",.02)
 ;;55.02 
 ;;9002226.02101,"301,55.11 ",.01)
 ;;55.11 
 ;;9002226.02101,"301,55.11 ",.02)
 ;;55.11 
 ;;9002226.02101,"301,55.12 ",.01)
 ;;55.12 
 ;;9002226.02101,"301,55.12 ",.02)
 ;;55.12 
 ;;9002226.02101,"301,55.32 ",.01)
 ;;55.32 
 ;;9002226.02101,"301,55.32 ",.02)
 ;;55.32 
 ;;9002226.02101,"301,55.34 ",.01)
 ;;55.34 
 ;;9002226.02101,"301,55.34 ",.02)
 ;;55.34 
 ;;9002226.02101,"301,55.35 ",.01)
 ;;55.35 
 ;;9002226.02101,"301,55.35 ",.02)
 ;;55.35 
 ;;9002226.02101,"301,55.4 ",.01)
 ;;55.4 
 ;;9002226.02101,"301,55.4 ",.02)
 ;;55.4 
 ;;9002226.02101,"301,55.51 ",.01)
 ;;55.51 
 ;;9002226.02101,"301,55.51 ",.02)
 ;;55.51 
 ;;9002226.02101,"301,55.52 ",.01)
 ;;55.52 
 ;;9002226.02101,"301,55.52 ",.02)
 ;;55.52 
 ;;9002226.02101,"301,55.53 ",.01)
 ;;55.53 
 ;;9002226.02101,"301,55.53 ",.02)
 ;;55.53 
 ;;9002226.02101,"301,55.54 ",.01)
 ;;55.54 
 ;;9002226.02101,"301,55.54 ",.02)
 ;;55.54 
 ;;9002226.02101,"301,55.61 ",.01)
 ;;55.61 
 ;;9002226.02101,"301,55.61 ",.02)
 ;;55.61 
 ;;9002226.02101,"301,55.69 ",.01)
 ;;55.69 
 ;;9002226.02101,"301,55.69 ",.02)
 ;;55.69 
 ;;9002226.02101,"301,55.7 ",.01)
 ;;55.7 
 ;;9002226.02101,"301,55.7 ",.02)
 ;;55.7 
 ;;9002226.02101,"301,55.81 ",.01)
 ;;55.81 
 ;;9002226.02101,"301,55.81 ",.02)
 ;;55.81 
 ;;9002226.02101,"301,55.82 ",.01)
 ;;55.82 
 ;;9002226.02101,"301,55.82 ",.02)
 ;;55.82 
 ;;9002226.02101,"301,55.83 ",.01)
 ;;55.83 
 ;;9002226.02101,"301,55.83 ",.02)
 ;;55.83 
 ;;9002226.02101,"301,55.84 ",.01)
 ;;55.84 
 ;;9002226.02101,"301,55.84 ",.02)
 ;;55.84 
 ;;9002226.02101,"301,55.85 ",.01)
 ;;55.85 
 ;;9002226.02101,"301,55.85 ",.02)
 ;;55.85 
 ;;9002226.02101,"301,55.86 ",.01)
 ;;55.86 
 ;;9002226.02101,"301,55.86 ",.02)
 ;;55.86 
 ;;9002226.02101,"301,55.87 ",.01)
 ;;55.87 
 ;;9002226.02101,"301,55.87 ",.02)
 ;;55.87 
 ;;9002226.02101,"301,55.91 ",.01)
 ;;55.91 
 ;;9002226.02101,"301,55.91 ",.02)
 ;;55.91 
 ;;9002226.02101,"301,55.97 ",.01)
 ;;55.97 
 ;;9002226.02101,"301,55.97 ",.02)
 ;;55.97 
 ;;9002226.02101,"301,55.98 ",.01)
 ;;55.98 
 ;;9002226.02101,"301,55.98 ",.02)
 ;;55.98 
 ;;9002226.02101,"301,55.99 ",.01)
 ;;55.99 
 ;;9002226.02101,"301,55.99 ",.02)
 ;;55.99 
 ;;9002226.02101,"301,56.40 ",.01)
 ;;56.40 
 ;;9002226.02101,"301,56.40 ",.02)
 ;;56.40 
 ;;9002226.02101,"301,56.41 ",.01)
 ;;56.41 
 ;;9002226.02101,"301,56.41 ",.02)
 ;;56.41 
 ;;9002226.02101,"301,56.42 ",.01)
 ;;56.42 
 ;;9002226.02101,"301,56.42 ",.02)
 ;;56.42 
 ;;9002226.02101,"301,56.51 ",.01)
 ;;56.51 
 ;;9002226.02101,"301,56.51 ",.02)
 ;;56.51 
 ;;9002226.02101,"301,56.52 ",.01)
 ;;56.52 
 ;;9002226.02101,"301,56.52 ",.02)
 ;;56.52 
 ;;9002226.02101,"301,56.61 ",.01)
 ;;56.61 
 ;;9002226.02101,"301,56.61 ",.02)
 ;;56.61 
 ;;9002226.02101,"301,56.62 ",.01)
 ;;56.62 
 ;;9002226.02101,"301,56.62 ",.02)
 ;;56.62 
 ;;9002226.02101,"301,56.71 ",.01)
 ;;56.71 
 ;;9002226.02101,"301,56.71 ",.02)
 ;;56.71 
 ;;9002226.02101,"301,56.72 ",.01)
 ;;56.72 
 ;;9002226.02101,"301,56.72 ",.02)
 ;;56.72 
 ;;9002226.02101,"301,56.73 ",.01)
 ;;56.73 
 ;;9002226.02101,"301,56.73 ",.02)
 ;;56.73 
 ;;9002226.02101,"301,56.74 ",.01)
 ;;56.74 
 ;;9002226.02101,"301,56.74 ",.02)
 ;;56.74 
 ;;9002226.02101,"301,56.75 ",.01)
 ;;56.75 
 ;;9002226.02101,"301,56.75 ",.02)
 ;;56.75 
 ;;9002226.02101,"301,56.79 ",.01)
 ;;56.79 
 ;;9002226.02101,"301,56.79 ",.02)
 ;;56.79 
 ;;9002226.02101,"301,56.81 ",.01)
 ;;56.81 
 ;;9002226.02101,"301,56.81 ",.02)
 ;;56.81 
 ;;9002226.02101,"301,56.82 ",.01)
 ;;56.82 
 ;;9002226.02101,"301,56.82 ",.02)
 ;;56.82 
 ;;9002226.02101,"301,56.83 ",.01)
 ;;56.83 
 ;;9002226.02101,"301,56.83 ",.02)
 ;;56.83 
 ;;9002226.02101,"301,56.84 ",.01)
 ;;56.84 
 ;;9002226.02101,"301,56.84 ",.02)
 ;;56.84 
 ;;9002226.02101,"301,56.85 ",.01)
 ;;56.85 
 ;;9002226.02101,"301,56.85 ",.02)
 ;;56.85 
 ;;9002226.02101,"301,56.86 ",.01)
 ;;56.86 
 ;;9002226.02101,"301,56.86 ",.02)
 ;;56.86 
 ;;9002226.02101,"301,56.89 ",.01)
 ;;56.89 
 ;;9002226.02101,"301,56.89 ",.02)
 ;;56.89 
 ;;9002226.02101,"301,56.95 ",.01)
 ;;56.95 
 ;;9002226.02101,"301,56.95 ",.02)
 ;;56.95 
 ;;9002226.02101,"301,56.99 ",.01)
 ;;56.99 
 ;;9002226.02101,"301,56.99 ",.02)
 ;;56.99 
 ;;9002226.02101,"301,57.12 ",.01)
 ;;57.12 
 ;;9002226.02101,"301,57.12 ",.02)
 ;;57.12 
 ;;9002226.02101,"301,57.18 ",.01)
 ;;57.18 
 ;;9002226.02101,"301,57.18 ",.02)
 ;;57.18 
 ;;9002226.02101,"301,57.19 ",.01)
 ;;57.19 
 ;;9002226.02101,"301,57.19 ",.02)
 ;;57.19 
 ;;9002226.02101,"301,57.21 ",.01)
 ;;57.21 
 ;;9002226.02101,"301,57.21 ",.02)
 ;;57.21 
 ;;9002226.02101,"301,57.22 ",.01)
 ;;57.22 
 ;;9002226.02101,"301,57.22 ",.02)
 ;;57.22 
 ;;9002226.02101,"301,57.6 ",.01)
 ;;57.6 
 ;;9002226.02101,"301,57.6 ",.02)
 ;;57.6 
 ;;9002226.02101,"301,57.71 ",.01)
 ;;57.71 
 ;;9002226.02101,"301,57.71 ",.02)
 ;;57.71 
 ;;9002226.02101,"301,57.79 ",.01)
 ;;57.79 
 ;;9002226.02101,"301,57.79 ",.02)
 ;;57.79 
 ;;9002226.02101,"301,57.81 ",.01)
 ;;57.81 
 ;;9002226.02101,"301,57.81 ",.02)
 ;;57.81 
 ;;9002226.02101,"301,57.82 ",.01)
 ;;57.82 
 ;;9002226.02101,"301,57.82 ",.02)
 ;;57.82