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

BGP9VXDX.m

Go to the documentation of this file.
  1. BGP9VXDX ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
  1. ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"858,474.11 ",.02)
  1. ;;474.11
  1. ;;9002226.02101,"858,474.12 ",.01)
  1. ;;474.12
  1. ;;9002226.02101,"858,474.12 ",.02)
  1. ;;474.12
  1. ;;9002226.02101,"858,474.2 ",.01)
  1. ;;474.2
  1. ;;9002226.02101,"858,474.2 ",.02)
  1. ;;474.2
  1. ;;9002226.02101,"858,474.8 ",.01)
  1. ;;474.8
  1. ;;9002226.02101,"858,474.8 ",.02)
  1. ;;474.8
  1. ;;9002226.02101,"858,474.9 ",.01)
  1. ;;474.9
  1. ;;9002226.02101,"858,474.9 ",.02)
  1. ;;474.9
  1. ;;9002226.02101,"858,475 ",.01)
  1. ;;475
  1. ;;9002226.02101,"858,475 ",.02)
  1. ;;475
  1. ;;9002226.02101,"858,476.0 ",.01)
  1. ;;476.0
  1. ;;9002226.02101,"858,476.0 ",.02)
  1. ;;476.0
  1. ;;9002226.02101,"858,476.1 ",.01)
  1. ;;476.1
  1. ;;9002226.02101,"858,476.1 ",.02)
  1. ;;476.1
  1. ;;9002226.02101,"858,481 ",.01)
  1. ;;481
  1. ;;9002226.02101,"858,481 ",.02)
  1. ;;481
  1. ;;9002226.02101,"858,482.0 ",.01)
  1. ;;482.0
  1. ;;9002226.02101,"858,482.0 ",.02)
  1. ;;482.0
  1. ;;9002226.02101,"858,482.1 ",.01)
  1. ;;482.1
  1. ;;9002226.02101,"858,482.1 ",.02)
  1. ;;482.1
  1. ;;9002226.02101,"858,482.2 ",.01)
  1. ;;482.2
  1. ;;9002226.02101,"858,482.2 ",.02)
  1. ;;482.2
  1. ;;9002226.02101,"858,482.30 ",.01)
  1. ;;482.30
  1. ;;9002226.02101,"858,482.30 ",.02)
  1. ;;482.30
  1. ;;9002226.02101,"858,482.31 ",.01)
  1. ;;482.31
  1. ;;9002226.02101,"858,482.31 ",.02)
  1. ;;482.31
  1. ;;9002226.02101,"858,482.32 ",.01)
  1. ;;482.32
  1. ;;9002226.02101,"858,482.32 ",.02)
  1. ;;482.32
  1. ;;9002226.02101,"858,482.39 ",.01)
  1. ;;482.39
  1. ;;9002226.02101,"858,482.39 ",.02)
  1. ;;482.39
  1. ;;9002226.02101,"858,482.40 ",.01)
  1. ;;482.40
  1. ;;9002226.02101,"858,482.40 ",.02)
  1. ;;482.40
  1. ;;9002226.02101,"858,482.41 ",.01)
  1. ;;482.41
  1. ;;9002226.02101,"858,482.41 ",.02)
  1. ;;482.41
  1. ;;9002226.02101,"858,482.49 ",.01)
  1. ;;482.49
  1. ;;9002226.02101,"858,482.49 ",.02)
  1. ;;482.49
  1. ;;9002226.02101,"858,482.81 ",.01)
  1. ;;482.81
  1. ;;9002226.02101,"858,482.81 ",.02)
  1. ;;482.81
  1. ;;9002226.02101,"858,482.82 ",.01)
  1. ;;482.82
  1. ;;9002226.02101,"858,482.82 ",.02)
  1. ;;482.82
  1. ;;9002226.02101,"858,482.83 ",.01)
  1. ;;482.83
  1. ;;9002226.02101,"858,482.83 ",.02)
  1. ;;482.83
  1. ;;9002226.02101,"858,482.84 ",.01)
  1. ;;482.84
  1. ;;9002226.02101,"858,482.84 ",.02)
  1. ;;482.84
  1. ;;9002226.02101,"858,482.89 ",.01)
  1. ;;482.89
  1. ;;9002226.02101,"858,482.89 ",.02)
  1. ;;482.89
  1. ;;9002226.02101,"858,482.9 ",.01)
  1. ;;482.9
  1. ;;9002226.02101,"858,482.9 ",.02)
  1. ;;482.9
  1. ;;9002226.02101,"858,483.0 ",.01)
  1. ;;483.0
  1. ;;9002226.02101,"858,483.0 ",.02)
  1. ;;483.0
  1. ;;9002226.02101,"858,483.1 ",.01)
  1. ;;483.1
  1. ;;9002226.02101,"858,483.1 ",.02)
  1. ;;483.1
  1. ;;9002226.02101,"858,483.8 ",.01)
  1. ;;483.8
  1. ;;9002226.02101,"858,483.8 ",.02)
  1. ;;483.8
  1. ;;9002226.02101,"858,484.1 ",.01)
  1. ;;484.1
  1. ;;9002226.02101,"858,484.1 ",.02)
  1. ;;484.1
  1. ;;9002226.02101,"858,484.3 ",.01)
  1. ;;484.3
  1. ;;9002226.02101,"858,484.3 ",.02)
  1. ;;484.3
  1. ;;9002226.02101,"858,484.5 ",.01)
  1. ;;484.5
  1. ;;9002226.02101,"858,484.5 ",.02)
  1. ;;484.5
  1. ;;9002226.02101,"858,484.6 ",.01)
  1. ;;484.6
  1. ;;9002226.02101,"858,484.6 ",.02)
  1. ;;484.6
  1. ;;9002226.02101,"858,484.7 ",.01)
  1. ;;484.7
  1. ;;9002226.02101,"858,484.7 ",.02)
  1. ;;484.7
  1. ;;9002226.02101,"858,484.8 ",.01)
  1. ;;484.8
  1. ;;9002226.02101,"858,484.8 ",.02)
  1. ;;484.8
  1. ;;9002226.02101,"858,485 ",.01)
  1. ;;485
  1. ;;9002226.02101,"858,485 ",.02)
  1. ;;485
  1. ;;9002226.02101,"858,486 ",.01)
  1. ;;486
  1. ;;9002226.02101,"858,486 ",.02)
  1. ;;486
  1. ;;9002226.02101,"858,487.0 ",.01)
  1. ;;487.0
  1. ;;9002226.02101,"858,487.0 ",.02)
  1. ;;487.0
  1. ;;9002226.02101,"858,487.1 ",.01)
  1. ;;487.1
  1. ;;9002226.02101,"858,487.1 ",.02)
  1. ;;487.1
  1. ;;9002226.02101,"858,487.8 ",.01)
  1. ;;487.8
  1. ;;9002226.02101,"858,487.8 ",.02)
  1. ;;487.8
  1. ;;9002226.02101,"858,490 ",.01)
  1. ;;490
  1. ;;9002226.02101,"858,490 ",.02)
  1. ;;490
  1. ;;9002226.02101,"858,491.0 ",.01)
  1. ;;491.0
  1. ;;9002226.02101,"858,491.0 ",.02)
  1. ;;491.0
  1. ;;9002226.02101,"858,491.1 ",.01)
  1. ;;491.1
  1. ;;9002226.02101,"858,491.1 ",.02)
  1. ;;491.1
  1. ;;9002226.02101,"858,491.20 ",.01)
  1. ;;491.20
  1. ;;9002226.02101,"858,491.20 ",.02)
  1. ;;491.20
  1. ;;9002226.02101,"858,491.21 ",.01)
  1. ;;491.21
  1. ;;9002226.02101,"858,491.21 ",.02)
  1. ;;491.21
  1. ;;9002226.02101,"858,491.22 ",.01)
  1. ;;491.22
  1. ;;9002226.02101,"858,491.22 ",.02)
  1. ;;491.22
  1. ;;9002226.02101,"858,491.8 ",.01)
  1. ;;491.8
  1. ;;9002226.02101,"858,491.8 ",.02)
  1. ;;491.8
  1. ;;9002226.02101,"858,491.9 ",.01)
  1. ;;491.9
  1. ;;9002226.02101,"858,491.9 ",.02)
  1. ;;491.9
  1. ;;9002226.02101,"858,510.0 ",.01)
  1. ;;510.0
  1. ;;9002226.02101,"858,510.0 ",.02)
  1. ;;510.0
  1. ;;9002226.02101,"858,510.9 ",.01)
  1. ;;510.9
  1. ;;9002226.02101,"858,510.9 ",.02)
  1. ;;510.9
  1. ;;9002226.02101,"858,511.0 ",.01)
  1. ;;511.0
  1. ;;9002226.02101,"858,511.0 ",.02)
  1. ;;511.0
  1. ;;9002226.02101,"858,511.1 ",.01)
  1. ;;511.1
  1. ;;9002226.02101,"858,511.1 ",.02)
  1. ;;511.1
  1. ;;9002226.02101,"858,511.8 ",.01)
  1. ;;511.8
  1. ;;9002226.02101,"858,511.8 ",.02)
  1. ;;511.8
  1. ;;9002226.02101,"858,511.9 ",.01)
  1. ;;511.9
  1. ;;9002226.02101,"858,511.9 ",.02)
  1. ;;511.9
  1. ;;9002226.02101,"858,513.0 ",.01)
  1. ;;513.0
  1. ;;9002226.02101,"858,513.0 ",.02)
  1. ;;513.0
  1. ;;9002226.02101,"858,513.1 ",.01)
  1. ;;513.1
  1. ;;9002226.02101,"858,513.1 ",.02)
  1. ;;513.1
  1. ;;9002226.02101,"858,540.0 ",.01)
  1. ;;540.0
  1. ;;9002226.02101,"858,540.0 ",.02)
  1. ;;540.0