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

BGP03G7.m

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