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

BGP8CXMK.m

Go to the documentation of this file.
BGP8CXMK ; 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,"692,323.2 ",.01)
 ;;323.2 
 ;;9002226.02101,"692,323.2 ",.02)
 ;;323.2 
 ;;9002226.02101,"692,323.41 ",.01)
 ;;323.41 
 ;;9002226.02101,"692,323.41 ",.02)
 ;;323.41 
 ;;9002226.02101,"692,323.42 ",.01)
 ;;323.42 
 ;;9002226.02101,"692,323.42 ",.02)
 ;;323.42 
 ;;9002226.02101,"692,323.61 ",.01)
 ;;323.61 
 ;;9002226.02101,"692,323.61 ",.02)
 ;;323.61 
 ;;9002226.02101,"692,323.62 ",.01)
 ;;323.62 
 ;;9002226.02101,"692,323.62 ",.02)
 ;;323.62 
 ;;9002226.02101,"692,323.63 ",.01)
 ;;323.63 
 ;;9002226.02101,"692,323.63 ",.02)
 ;;323.63 
 ;;9002226.02101,"692,323.81 ",.01)
 ;;323.81 
 ;;9002226.02101,"692,323.81 ",.02)
 ;;323.81 
 ;;9002226.02101,"692,323.82 ",.01)
 ;;323.82 
 ;;9002226.02101,"692,323.82 ",.02)
 ;;323.82 
 ;;9002226.02101,"692,323.9 ",.01)
 ;;323.9 
 ;;9002226.02101,"692,323.9 ",.02)
 ;;323.9 
 ;;9002226.02101,"692,324.0 ",.01)
 ;;324.0 
 ;;9002226.02101,"692,324.0 ",.02)
 ;;324.0 
 ;;9002226.02101,"692,324.1 ",.01)
 ;;324.1 
 ;;9002226.02101,"692,324.1 ",.02)
 ;;324.1 
 ;;9002226.02101,"692,324.9 ",.01)
 ;;324.9 
 ;;9002226.02101,"692,324.9 ",.02)
 ;;324.9 
 ;;9002226.02101,"692,325 ",.01)
 ;;325 
 ;;9002226.02101,"692,325 ",.02)
 ;;325 
 ;;9002226.02101,"692,326 ",.01)
 ;;326 
 ;;9002226.02101,"692,326 ",.02)
 ;;326 
 ;;9002226.02101,"692,380.00 ",.01)
 ;;380.00 
 ;;9002226.02101,"692,380.00 ",.02)
 ;;380.00 
 ;;9002226.02101,"692,380.01 ",.01)
 ;;380.01 
 ;;9002226.02101,"692,380.01 ",.02)
 ;;380.01 
 ;;9002226.02101,"692,380.02 ",.01)
 ;;380.02 
 ;;9002226.02101,"692,380.02 ",.02)
 ;;380.02 
 ;;9002226.02101,"692,380.03 ",.01)
 ;;380.03 
 ;;9002226.02101,"692,380.03 ",.02)
 ;;380.03 
 ;;9002226.02101,"692,380.10 ",.01)
 ;;380.10 
 ;;9002226.02101,"692,380.10 ",.02)
 ;;380.10 
 ;;9002226.02101,"692,380.11 ",.01)
 ;;380.11 
 ;;9002226.02101,"692,380.11 ",.02)
 ;;380.11 
 ;;9002226.02101,"692,380.12 ",.01)
 ;;380.12 
 ;;9002226.02101,"692,380.12 ",.02)
 ;;380.12 
 ;;9002226.02101,"692,380.13 ",.01)
 ;;380.13 
 ;;9002226.02101,"692,380.13 ",.02)
 ;;380.13 
 ;;9002226.02101,"692,380.14 ",.01)
 ;;380.14 
 ;;9002226.02101,"692,380.14 ",.02)
 ;;380.14 
 ;;9002226.02101,"692,380.15 ",.01)
 ;;380.15 
 ;;9002226.02101,"692,380.15 ",.02)
 ;;380.15 
 ;;9002226.02101,"692,380.16 ",.01)
 ;;380.16 
 ;;9002226.02101,"692,380.16 ",.02)
 ;;380.16 
 ;;9002226.02101,"692,380.21 ",.01)
 ;;380.21 
 ;;9002226.02101,"692,380.21 ",.02)
 ;;380.21 
 ;;9002226.02101,"692,380.22 ",.01)
 ;;380.22 
 ;;9002226.02101,"692,380.22 ",.02)
 ;;380.22 
 ;;9002226.02101,"692,380.23 ",.01)
 ;;380.23 
 ;;9002226.02101,"692,380.23 ",.02)
 ;;380.23 
 ;;9002226.02101,"692,382.00 ",.01)
 ;;382.00 
 ;;9002226.02101,"692,382.00 ",.02)
 ;;382.00 
 ;;9002226.02101,"692,382.01 ",.01)
 ;;382.01 
 ;;9002226.02101,"692,382.01 ",.02)
 ;;382.01 
 ;;9002226.02101,"692,382.02 ",.01)
 ;;382.02 
 ;;9002226.02101,"692,382.02 ",.02)
 ;;382.02 
 ;;9002226.02101,"692,382.1 ",.01)
 ;;382.1 
 ;;9002226.02101,"692,382.1 ",.02)
 ;;382.1 
 ;;9002226.02101,"692,382.2 ",.01)
 ;;382.2 
 ;;9002226.02101,"692,382.2 ",.02)
 ;;382.2 
 ;;9002226.02101,"692,421.0 ",.01)
 ;;421.0 
 ;;9002226.02101,"692,421.0 ",.02)
 ;;421.0 
 ;;9002226.02101,"692,421.1 ",.01)
 ;;421.1 
 ;;9002226.02101,"692,421.1 ",.02)
 ;;421.1 
 ;;9002226.02101,"692,421.9 ",.01)
 ;;421.9 
 ;;9002226.02101,"692,421.9 ",.02)
 ;;421.9 
 ;;9002226.02101,"692,422.0 ",.01)
 ;;422.0 
 ;;9002226.02101,"692,422.0 ",.02)
 ;;422.0 
 ;;9002226.02101,"692,422.90 ",.01)
 ;;422.90 
 ;;9002226.02101,"692,422.90 ",.02)
 ;;422.90 
 ;;9002226.02101,"692,422.91 ",.01)
 ;;422.91 
 ;;9002226.02101,"692,422.91 ",.02)
 ;;422.91 
 ;;9002226.02101,"692,422.92 ",.01)
 ;;422.92 
 ;;9002226.02101,"692,422.92 ",.02)
 ;;422.92 
 ;;9002226.02101,"692,422.93 ",.01)
 ;;422.93 
 ;;9002226.02101,"692,422.93 ",.02)
 ;;422.93 
 ;;9002226.02101,"692,422.99 ",.01)
 ;;422.99 
 ;;9002226.02101,"692,422.99 ",.02)
 ;;422.99 
 ;;9002226.02101,"692,460 ",.01)
 ;;460 
 ;;9002226.02101,"692,460 ",.02)
 ;;460 
 ;;9002226.02101,"692,461.0 ",.01)
 ;;461.0 
 ;;9002226.02101,"692,461.0 ",.02)
 ;;461.0 
 ;;9002226.02101,"692,461.1 ",.01)
 ;;461.1 
 ;;9002226.02101,"692,461.1 ",.02)
 ;;461.1 
 ;;9002226.02101,"692,461.2 ",.01)
 ;;461.2 
 ;;9002226.02101,"692,461.2 ",.02)
 ;;461.2 
 ;;9002226.02101,"692,461.3 ",.01)
 ;;461.3 
 ;;9002226.02101,"692,461.3 ",.02)
 ;;461.3 
 ;;9002226.02101,"692,461.8 ",.01)
 ;;461.8 
 ;;9002226.02101,"692,461.8 ",.02)
 ;;461.8 
 ;;9002226.02101,"692,461.9 ",.01)
 ;;461.9 
 ;;9002226.02101,"692,461.9 ",.02)
 ;;461.9 
 ;;9002226.02101,"692,462 ",.01)
 ;;462 
 ;;9002226.02101,"692,462 ",.02)
 ;;462 
 ;;9002226.02101,"692,463 ",.01)
 ;;463 
 ;;9002226.02101,"692,463 ",.02)
 ;;463 
 ;;9002226.02101,"692,464.00 ",.01)
 ;;464.00 
 ;;9002226.02101,"692,464.00 ",.02)
 ;;464.00 
 ;;9002226.02101,"692,464.01 ",.01)
 ;;464.01 
 ;;9002226.02101,"692,464.01 ",.02)
 ;;464.01 
 ;;9002226.02101,"692,464.10 ",.01)
 ;;464.10 
 ;;9002226.02101,"692,464.10 ",.02)
 ;;464.10 
 ;;9002226.02101,"692,464.11 ",.01)
 ;;464.11 
 ;;9002226.02101,"692,464.11 ",.02)
 ;;464.11 
 ;;9002226.02101,"692,464.20 ",.01)
 ;;464.20 
 ;;9002226.02101,"692,464.20 ",.02)
 ;;464.20 
 ;;9002226.02101,"692,464.21 ",.01)
 ;;464.21 
 ;;9002226.02101,"692,464.21 ",.02)
 ;;464.21 
 ;;9002226.02101,"692,464.30 ",.01)
 ;;464.30 
 ;;9002226.02101,"692,464.30 ",.02)
 ;;464.30 
 ;;9002226.02101,"692,464.31 ",.01)
 ;;464.31 
 ;;9002226.02101,"692,464.31 ",.02)
 ;;464.31 
 ;;9002226.02101,"692,464.4 ",.01)
 ;;464.4 
 ;;9002226.02101,"692,464.4 ",.02)
 ;;464.4 
 ;;9002226.02101,"692,464.50 ",.01)
 ;;464.50 
 ;;9002226.02101,"692,464.50 ",.02)
 ;;464.50 
 ;;9002226.02101,"692,464.51 ",.01)
 ;;464.51 
 ;;9002226.02101,"692,464.51 ",.02)
 ;;464.51 
 ;;9002226.02101,"692,465.0 ",.01)
 ;;465.0 
 ;;9002226.02101,"692,465.0 ",.02)
 ;;465.0 
 ;;9002226.02101,"692,465.8 ",.01)
 ;;465.8 
 ;;9002226.02101,"692,465.8 ",.02)
 ;;465.8 
 ;;9002226.02101,"692,465.9 ",.01)
 ;;465.9 
 ;;9002226.02101,"692,465.9 ",.02)
 ;;465.9 
 ;;9002226.02101,"692,466.0 ",.01)
 ;;466.0 
 ;;9002226.02101,"692,466.0 ",.02)
 ;;466.0 
 ;;9002226.02101,"692,466.19 ",.01)
 ;;466.19 
 ;;9002226.02101,"692,466.19 ",.02)
 ;;466.19 
 ;;9002226.02101,"692,472.0 ",.01)
 ;;472.0 
 ;;9002226.02101,"692,472.0 ",.02)
 ;;472.0 
 ;;9002226.02101,"692,472.1 ",.01)
 ;;472.1 
 ;;9002226.02101,"692,472.1 ",.02)
 ;;472.1 
 ;;9002226.02101,"692,472.2 ",.01)
 ;;472.2 
 ;;9002226.02101,"692,472.2 ",.02)
 ;;472.2 
 ;;9002226.02101,"692,473.0 ",.01)
 ;;473.0 
 ;;9002226.02101,"692,473.0 ",.02)
 ;;473.0 
 ;;9002226.02101,"692,473.1 ",.01)
 ;;473.1 
 ;;9002226.02101,"692,473.1 ",.02)
 ;;473.1 
 ;;9002226.02101,"692,473.2 ",.01)
 ;;473.2 
 ;;9002226.02101,"692,473.2 ",.02)
 ;;473.2 
 ;;9002226.02101,"692,473.3 ",.01)
 ;;473.3 
 ;;9002226.02101,"692,473.3 ",.02)
 ;;473.3 
 ;;9002226.02101,"692,473.8 ",.01)
 ;;473.8 
 ;;9002226.02101,"692,473.8 ",.02)
 ;;473.8 
 ;;9002226.02101,"692,473.9 ",.01)
 ;;473.9 
 ;;9002226.02101,"692,473.9 ",.02)
 ;;473.9 
 ;;9002226.02101,"692,474.00 ",.01)
 ;;474.00 
 ;;9002226.02101,"692,474.00 ",.02)
 ;;474.00 
 ;;9002226.02101,"692,474.01 ",.01)
 ;;474.01 
 ;;9002226.02101,"692,474.01 ",.02)
 ;;474.01 
 ;;9002226.02101,"692,474.02 ",.01)
 ;;474.02 
 ;;9002226.02101,"692,474.02 ",.02)
 ;;474.02 
 ;;9002226.02101,"692,474.10 ",.01)
 ;;474.10 
 ;;9002226.02101,"692,474.10 ",.02)
 ;;474.10 
 ;;9002226.02101,"692,474.11 ",.01)
 ;;474.11 
 ;;9002226.02101,"692,474.11 ",.02)
 ;;474.11 
 ;;9002226.02101,"692,474.12 ",.01)
 ;;474.12 
 ;;9002226.02101,"692,474.12 ",.02)
 ;;474.12 
 ;;9002226.02101,"692,474.2 ",.01)
 ;;474.2 
 ;;9002226.02101,"692,474.2 ",.02)
 ;;474.2 
 ;;9002226.02101,"692,474.8 ",.01)
 ;;474.8 
 ;;9002226.02101,"692,474.8 ",.02)
 ;;474.8 
 ;;9002226.02101,"692,474.9 ",.01)
 ;;474.9 
 ;;9002226.02101,"692,474.9 ",.02)
 ;;474.9 
 ;;9002226.02101,"692,475 ",.01)
 ;;475 
 ;;9002226.02101,"692,475 ",.02)
 ;;475 
 ;;9002226.02101,"692,476.0 ",.01)
 ;;476.0 
 ;;9002226.02101,"692,476.0 ",.02)
 ;;476.0 
 ;;9002226.02101,"692,476.1 ",.01)
 ;;476.1 
 ;;9002226.02101,"692,476.1 ",.02)
 ;;476.1 
 ;;9002226.02101,"692,481 ",.01)
 ;;481 
 ;;9002226.02101,"692,481 ",.02)
 ;;481 
 ;;9002226.02101,"692,482.0 ",.01)
 ;;482.0 
 ;;9002226.02101,"692,482.0 ",.02)
 ;;482.0 
 ;;9002226.02101,"692,482.1 ",.01)
 ;;482.1 
 ;;9002226.02101,"692,482.1 ",.02)
 ;;482.1 
 ;;9002226.02101,"692,482.2 ",.01)
 ;;482.2 
 ;;9002226.02101,"692,482.2 ",.02)
 ;;482.2 
 ;;9002226.02101,"692,482.30 ",.01)
 ;;482.30 
 ;;9002226.02101,"692,482.30 ",.02)
 ;;482.30 
 ;;9002226.02101,"692,482.31 ",.01)
 ;;482.31 
 ;;9002226.02101,"692,482.31 ",.02)
 ;;482.31 
 ;;9002226.02101,"692,482.32 ",.01)
 ;;482.32 
 ;;9002226.02101,"692,482.32 ",.02)
 ;;482.32 
 ;;9002226.02101,"692,482.39 ",.01)
 ;;482.39 
 ;;9002226.02101,"692,482.39 ",.02)
 ;;482.39 
 ;;9002226.02101,"692,482.40 ",.01)
 ;;482.40 
 ;;9002226.02101,"692,482.40 ",.02)
 ;;482.40 
 ;;9002226.02101,"692,482.41 ",.01)
 ;;482.41 
 ;;9002226.02101,"692,482.41 ",.02)
 ;;482.41 
 ;;9002226.02101,"692,482.49 ",.01)
 ;;482.49 
 ;;9002226.02101,"692,482.49 ",.02)
 ;;482.49 
 ;;9002226.02101,"692,482.81 ",.01)
 ;;482.81 
 ;;9002226.02101,"692,482.81 ",.02)
 ;;482.81 
 ;;9002226.02101,"692,482.82 ",.01)
 ;;482.82 
 ;;9002226.02101,"692,482.82 ",.02)
 ;;482.82 
 ;;9002226.02101,"692,482.83 ",.01)
 ;;482.83 
 ;;9002226.02101,"692,482.83 ",.02)
 ;;482.83 
 ;;9002226.02101,"692,482.84 ",.01)
 ;;482.84 
 ;;9002226.02101,"692,482.84 ",.02)
 ;;482.84 
 ;;9002226.02101,"692,482.89 ",.01)
 ;;482.89 
 ;;9002226.02101,"692,482.89 ",.02)
 ;;482.89 
 ;;9002226.02101,"692,482.9 ",.01)
 ;;482.9 
 ;;9002226.02101,"692,482.9 ",.02)
 ;;482.9 
 ;;9002226.02101,"692,483.0 ",.01)
 ;;483.0 
 ;;9002226.02101,"692,483.0 ",.02)
 ;;483.0 
 ;;9002226.02101,"692,483.1 ",.01)
 ;;483.1 
 ;;9002226.02101,"692,483.1 ",.02)
 ;;483.1 
 ;;9002226.02101,"692,483.8 ",.01)
 ;;483.8 
 ;;9002226.02101,"692,483.8 ",.02)
 ;;483.8 
 ;;9002226.02101,"692,484.1 ",.01)
 ;;484.1 
 ;;9002226.02101,"692,484.1 ",.02)
 ;;484.1 
 ;;9002226.02101,"692,484.3 ",.01)
 ;;484.3 
 ;;9002226.02101,"692,484.3 ",.02)
 ;;484.3 
 ;;9002226.02101,"692,484.5 ",.01)
 ;;484.5 
 ;;9002226.02101,"692,484.5 ",.02)
 ;;484.5 
 ;;9002226.02101,"692,484.6 ",.01)
 ;;484.6 
 ;;9002226.02101,"692,484.6 ",.02)
 ;;484.6 
 ;;9002226.02101,"692,484.7 ",.01)
 ;;484.7 
 ;;9002226.02101,"692,484.7 ",.02)
 ;;484.7 
 ;;9002226.02101,"692,484.8 ",.01)
 ;;484.8 
 ;;9002226.02101,"692,484.8 ",.02)
 ;;484.8 
 ;;9002226.02101,"692,485 ",.01)
 ;;485 
 ;;9002226.02101,"692,485 ",.02)
 ;;485 
 ;;9002226.02101,"692,486 ",.01)
 ;;486 
 ;;9002226.02101,"692,486 ",.02)
 ;;486 
 ;;9002226.02101,"692,487.0 ",.01)
 ;;487.0 
 ;;9002226.02101,"692,487.0 ",.02)
 ;;487.0 
 ;;9002226.02101,"692,487.1 ",.01)
 ;;487.1 
 ;;9002226.02101,"692,487.1 ",.02)
 ;;487.1 
 ;;9002226.02101,"692,487.8 ",.01)
 ;;487.8 
 ;;9002226.02101,"692,487.8 ",.02)
 ;;487.8 
 ;;9002226.02101,"692,490 ",.01)
 ;;490 
 ;;9002226.02101,"692,490 ",.02)
 ;;490 
 ;;9002226.02101,"692,491.0 ",.01)
 ;;491.0 
 ;;9002226.02101,"692,491.0 ",.02)
 ;;491.0 
 ;;9002226.02101,"692,491.1 ",.01)
 ;;491.1 
 ;;9002226.02101,"692,491.1 ",.02)
 ;;491.1 
 ;;9002226.02101,"692,491.20 ",.01)
 ;;491.20 
 ;;9002226.02101,"692,491.20 ",.02)
 ;;491.20 
 ;;9002226.02101,"692,491.21 ",.01)
 ;;491.21 
 ;;9002226.02101,"692,491.21 ",.02)
 ;;491.21 
 ;;9002226.02101,"692,491.22 ",.01)
 ;;491.22 
 ;;9002226.02101,"692,491.22 ",.02)
 ;;491.22 
 ;;9002226.02101,"692,491.8 ",.01)
 ;;491.8 
 ;;9002226.02101,"692,491.8 ",.02)
 ;;491.8 
 ;;9002226.02101,"692,491.9 ",.01)
 ;;491.9 
 ;;9002226.02101,"692,491.9 ",.02)
 ;;491.9 
 ;;9002226.02101,"692,510.0 ",.01)
 ;;510.0 
 ;;9002226.02101,"692,510.0 ",.02)
 ;;510.0 
 ;;9002226.02101,"692,510.9 ",.01)
 ;;510.9 
 ;;9002226.02101,"692,510.9 ",.02)
 ;;510.9 
 ;;9002226.02101,"692,511.0 ",.01)
 ;;511.0 
 ;;9002226.02101,"692,511.0 ",.02)
 ;;511.0 
 ;;9002226.02101,"692,511.1 ",.01)
 ;;511.1 
 ;;9002226.02101,"692,511.1 ",.02)
 ;;511.1 
 ;;9002226.02101,"692,511.8 ",.01)
 ;;511.8 
 ;;9002226.02101,"692,511.8 ",.02)
 ;;511.8 
 ;;9002226.02101,"692,511.9 ",.01)
 ;;511.9 
 ;;9002226.02101,"692,511.9 ",.02)
 ;;511.9 
 ;;9002226.02101,"692,513.0 ",.01)
 ;;513.0 
 ;;9002226.02101,"692,513.0 ",.02)
 ;;513.0 
 ;;9002226.02101,"692,513.1 ",.01)
 ;;513.1 
 ;;9002226.02101,"692,513.1 ",.02)
 ;;513.1 
 ;;9002226.02101,"692,540.0 ",.01)
 ;;540.0 
 ;;9002226.02101,"692,540.0 ",.02)
 ;;540.0 
 ;;9002226.02101,"692,540.1 ",.01)
 ;;540.1 
 ;;9002226.02101,"692,540.1 ",.02)
 ;;540.1 
 ;;9002226.02101,"692,540.9 ",.01)
 ;;540.9 
 ;;9002226.02101,"692,540.9 ",.02)
 ;;540.9 
 ;;9002226.02101,"692,541 ",.01)
 ;;541 
 ;;9002226.02101,"692,541 ",.02)
 ;;541 
 ;;9002226.02101,"692,542 ",.01)
 ;;542 
 ;;9002226.02101,"692,542 ",.02)
 ;;542 
 ;;9002226.02101,"692,562.01 ",.01)
 ;;562.01 
 ;;9002226.02101,"692,562.01 ",.02)
 ;;562.01 
 ;;9002226.02101,"692,562.11 ",.01)
 ;;562.11 
 ;;9002226.02101,"692,562.11 ",.02)
 ;;562.11 
 ;;9002226.02101,"692,562.13 ",.01)
 ;;562.13