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

BGP8CXRJ.m

Go to the documentation of this file.
  1. BGP8CXRJ ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
  1. ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
  1. ;;;BGP6;;SEP 28, 2007
  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,"301,81.44 ",.02)
  1. ;;81.44
  1. ;;9002226.02101,"301,81.45 ",.01)
  1. ;;81.45
  1. ;;9002226.02101,"301,81.45 ",.02)
  1. ;;81.45
  1. ;;9002226.02101,"301,81.46 ",.01)
  1. ;;81.46
  1. ;;9002226.02101,"301,81.46 ",.02)
  1. ;;81.46
  1. ;;9002226.02101,"301,81.47 ",.01)
  1. ;;81.47
  1. ;;9002226.02101,"301,81.47 ",.02)
  1. ;;81.47
  1. ;;9002226.02101,"301,81.49 ",.01)
  1. ;;81.49
  1. ;;9002226.02101,"301,81.49 ",.02)
  1. ;;81.49
  1. ;;9002226.02101,"301,81.51 ",.01)
  1. ;;81.51
  1. ;;9002226.02101,"301,81.51 ",.02)
  1. ;;81.51
  1. ;;9002226.02101,"301,81.52 ",.01)
  1. ;;81.52
  1. ;;9002226.02101,"301,81.52 ",.02)
  1. ;;81.52
  1. ;;9002226.02101,"301,81.53 ",.01)
  1. ;;81.53
  1. ;;9002226.02101,"301,81.53 ",.02)
  1. ;;81.53
  1. ;;9002226.02101,"301,81.54 ",.01)
  1. ;;81.54
  1. ;;9002226.02101,"301,81.54 ",.02)
  1. ;;81.54
  1. ;;9002226.02101,"301,81.55 ",.01)
  1. ;;81.55
  1. ;;9002226.02101,"301,81.55 ",.02)
  1. ;;81.55
  1. ;;9002226.02101,"301,81.56 ",.01)
  1. ;;81.56
  1. ;;9002226.02101,"301,81.56 ",.02)
  1. ;;81.56
  1. ;;9002226.02101,"301,81.57 ",.01)
  1. ;;81.57
  1. ;;9002226.02101,"301,81.57 ",.02)
  1. ;;81.57
  1. ;;9002226.02101,"301,81.59 ",.01)
  1. ;;81.59
  1. ;;9002226.02101,"301,81.59 ",.02)
  1. ;;81.59
  1. ;;9002226.02101,"301,81.80 ",.01)
  1. ;;81.80
  1. ;;9002226.02101,"301,81.80 ",.02)
  1. ;;81.80
  1. ;;9002226.02101,"301,81.81 ",.01)
  1. ;;81.81
  1. ;;9002226.02101,"301,81.81 ",.02)
  1. ;;81.81
  1. ;;9002226.02101,"301,81.82 ",.01)
  1. ;;81.82
  1. ;;9002226.02101,"301,81.82 ",.02)
  1. ;;81.82
  1. ;;9002226.02101,"301,81.83 ",.01)
  1. ;;81.83
  1. ;;9002226.02101,"301,81.83 ",.02)
  1. ;;81.83
  1. ;;9002226.02101,"301,81.84 ",.01)
  1. ;;81.84
  1. ;;9002226.02101,"301,81.84 ",.02)
  1. ;;81.84
  1. ;;9002226.02101,"301,81.85 ",.01)
  1. ;;81.85
  1. ;;9002226.02101,"301,81.85 ",.02)
  1. ;;81.85
  1. ;;9002226.02101,"301,81.93 ",.01)
  1. ;;81.93
  1. ;;9002226.02101,"301,81.93 ",.02)
  1. ;;81.93
  1. ;;9002226.02101,"301,81.94 ",.01)
  1. ;;81.94
  1. ;;9002226.02101,"301,81.94 ",.02)
  1. ;;81.94
  1. ;;9002226.02101,"301,81.95 ",.01)
  1. ;;81.95
  1. ;;9002226.02101,"301,81.95 ",.02)
  1. ;;81.95
  1. ;;9002226.02101,"301,81.96 ",.01)
  1. ;;81.96
  1. ;;9002226.02101,"301,81.96 ",.02)
  1. ;;81.96
  1. ;;9002226.02101,"301,81.97 ",.01)
  1. ;;81.97
  1. ;;9002226.02101,"301,81.97 ",.02)
  1. ;;81.97
  1. ;;9002226.02101,"301,81.98 ",.01)
  1. ;;81.98
  1. ;;9002226.02101,"301,81.98 ",.02)
  1. ;;81.98
  1. ;;9002226.02101,"301,81.99 ",.01)
  1. ;;81.99
  1. ;;9002226.02101,"301,81.99 ",.02)
  1. ;;81.99
  1. ;;9002226.02101,"301,82.61 ",.01)
  1. ;;82.61
  1. ;;9002226.02101,"301,82.61 ",.02)
  1. ;;82.61
  1. ;;9002226.02101,"301,82.81 ",.01)
  1. ;;82.81
  1. ;;9002226.02101,"301,82.81 ",.02)
  1. ;;82.81
  1. ;;9002226.02101,"301,83.32 ",.01)
  1. ;;83.32
  1. ;;9002226.02101,"301,83.32 ",.02)
  1. ;;83.32
  1. ;;9002226.02101,"301,83.39 ",.01)
  1. ;;83.39
  1. ;;9002226.02101,"301,83.39 ",.02)
  1. ;;83.39
  1. ;;9002226.02101,"301,83.5 ",.01)
  1. ;;83.5
  1. ;;9002226.02101,"301,83.5 ",.02)
  1. ;;83.5
  1. ;;9002226.02101,"301,83.61 ",.01)
  1. ;;83.61
  1. ;;9002226.02101,"301,83.61 ",.02)
  1. ;;83.61
  1. ;;9002226.02101,"301,83.62 ",.01)
  1. ;;83.62
  1. ;;9002226.02101,"301,83.62 ",.02)
  1. ;;83.62
  1. ;;9002226.02101,"301,83.63 ",.01)
  1. ;;83.63
  1. ;;9002226.02101,"301,83.63 ",.02)
  1. ;;83.63
  1. ;;9002226.02101,"301,83.64 ",.01)
  1. ;;83.64
  1. ;;9002226.02101,"301,83.64 ",.02)
  1. ;;83.64
  1. ;;9002226.02101,"301,83.65 ",.01)
  1. ;;83.65
  1. ;;9002226.02101,"301,83.65 ",.02)
  1. ;;83.65
  1. ;;9002226.02101,"301,83.71 ",.01)
  1. ;;83.71
  1. ;;9002226.02101,"301,83.71 ",.02)
  1. ;;83.71
  1. ;;9002226.02101,"301,83.72 ",.01)
  1. ;;83.72
  1. ;;9002226.02101,"301,83.72 ",.02)
  1. ;;83.72
  1. ;;9002226.02101,"301,83.73 ",.01)
  1. ;;83.73
  1. ;;9002226.02101,"301,83.73 ",.02)
  1. ;;83.73
  1. ;;9002226.02101,"301,83.74 ",.01)
  1. ;;83.74
  1. ;;9002226.02101,"301,83.74 ",.02)
  1. ;;83.74
  1. ;;9002226.02101,"301,83.75 ",.01)
  1. ;;83.75
  1. ;;9002226.02101,"301,83.75 ",.02)
  1. ;;83.75
  1. ;;9002226.02101,"301,83.76 ",.01)
  1. ;;83.76
  1. ;;9002226.02101,"301,83.76 ",.02)
  1. ;;83.76
  1. ;;9002226.02101,"301,83.77 ",.01)
  1. ;;83.77
  1. ;;9002226.02101,"301,83.77 ",.02)
  1. ;;83.77
  1. ;;9002226.02101,"301,83.79 ",.01)
  1. ;;83.79
  1. ;;9002226.02101,"301,83.79 ",.02)
  1. ;;83.79
  1. ;;9002226.02101,"301,83.81 ",.01)
  1. ;;83.81
  1. ;;9002226.02101,"301,83.81 ",.02)
  1. ;;83.81
  1. ;;9002226.02101,"301,83.82 ",.01)
  1. ;;83.82
  1. ;;9002226.02101,"301,83.82 ",.02)
  1. ;;83.82
  1. ;;9002226.02101,"301,83.83 ",.01)
  1. ;;83.83
  1. ;;9002226.02101,"301,83.83 ",.02)
  1. ;;83.83
  1. ;;9002226.02101,"301,83.84 ",.01)
  1. ;;83.84
  1. ;;9002226.02101,"301,83.84 ",.02)
  1. ;;83.84
  1. ;;9002226.02101,"301,83.85 ",.01)
  1. ;;83.85
  1. ;;9002226.02101,"301,83.85 ",.02)
  1. ;;83.85
  1. ;;9002226.02101,"301,83.86 ",.01)
  1. ;;83.86
  1. ;;9002226.02101,"301,83.86 ",.02)
  1. ;;83.86
  1. ;;9002226.02101,"301,83.87 ",.01)
  1. ;;83.87
  1. ;;9002226.02101,"301,83.87 ",.02)
  1. ;;83.87
  1. ;;9002226.02101,"301,83.88 ",.01)
  1. ;;83.88
  1. ;;9002226.02101,"301,83.88 ",.02)
  1. ;;83.88
  1. ;;9002226.02101,"301,83.89 ",.01)
  1. ;;83.89
  1. ;;9002226.02101,"301,83.89 ",.02)
  1. ;;83.89
  1. ;;9002226.02101,"301,83.91 ",.01)
  1. ;;83.91
  1. ;;9002226.02101,"301,83.91 ",.02)
  1. ;;83.91
  1. ;;9002226.02101,"301,83.99 ",.01)
  1. ;;83.99
  1. ;;9002226.02101,"301,83.99 ",.02)
  1. ;;83.99
  1. ;;9002226.02101,"301,84.00 ",.01)
  1. ;;84.00
  1. ;;9002226.02101,"301,84.00 ",.02)
  1. ;;84.00
  1. ;;9002226.02101,"301,84.03 ",.01)
  1. ;;84.03
  1. ;;9002226.02101,"301,84.03 ",.02)
  1. ;;84.03
  1. ;;9002226.02101,"301,84.04 ",.01)
  1. ;;84.04
  1. ;;9002226.02101,"301,84.04 ",.02)
  1. ;;84.04
  1. ;;9002226.02101,"301,84.05 ",.01)
  1. ;;84.05
  1. ;;9002226.02101,"301,84.05 ",.02)
  1. ;;84.05
  1. ;;9002226.02101,"301,84.06 ",.01)
  1. ;;84.06
  1. ;;9002226.02101,"301,84.06 ",.02)
  1. ;;84.06
  1. ;;9002226.02101,"301,84.07 ",.01)
  1. ;;84.07
  1. ;;9002226.02101,"301,84.07 ",.02)
  1. ;;84.07
  1. ;;9002226.02101,"301,84.08 ",.01)
  1. ;;84.08
  1. ;;9002226.02101,"301,84.08 ",.02)
  1. ;;84.08
  1. ;;9002226.02101,"301,84.09 ",.01)
  1. ;;84.09
  1. ;;9002226.02101,"301,84.09 ",.02)
  1. ;;84.09
  1. ;;9002226.02101,"301,84.10 ",.01)
  1. ;;84.10
  1. ;;9002226.02101,"301,84.10 ",.02)
  1. ;;84.10
  1. ;;9002226.02101,"301,84.12 ",.01)
  1. ;;84.12
  1. ;;9002226.02101,"301,84.12 ",.02)
  1. ;;84.12
  1. ;;9002226.02101,"301,84.13 ",.01)
  1. ;;84.13
  1. ;;9002226.02101,"301,84.13 ",.02)
  1. ;;84.13
  1. ;;9002226.02101,"301,84.14 ",.01)
  1. ;;84.14
  1. ;;9002226.02101,"301,84.14 ",.02)
  1. ;;84.14
  1. ;;9002226.02101,"301,84.15 ",.01)
  1. ;;84.15
  1. ;;9002226.02101,"301,84.15 ",.02)
  1. ;;84.15
  1. ;;9002226.02101,"301,84.16 ",.01)
  1. ;;84.16
  1. ;;9002226.02101,"301,84.16 ",.02)
  1. ;;84.16
  1. ;;9002226.02101,"301,84.17 ",.01)
  1. ;;84.17
  1. ;;9002226.02101,"301,84.17 ",.02)
  1. ;;84.17
  1. ;;9002226.02101,"301,84.18 ",.01)
  1. ;;84.18
  1. ;;9002226.02101,"301,84.18 ",.02)
  1. ;;84.18
  1. ;;9002226.02101,"301,84.19 ",.01)
  1. ;;84.19
  1. ;;9002226.02101,"301,84.19 ",.02)
  1. ;;84.19
  1. ;;9002226.02101,"301,84.22 ",.01)
  1. ;;84.22
  1. ;;9002226.02101,"301,84.22 ",.02)
  1. ;;84.22
  1. ;;9002226.02101,"301,84.23 ",.01)
  1. ;;84.23
  1. ;;9002226.02101,"301,84.23 ",.02)
  1. ;;84.23
  1. ;;9002226.02101,"301,84.24 ",.01)
  1. ;;84.24
  1. ;;9002226.02101,"301,84.24 ",.02)
  1. ;;84.24
  1. ;;9002226.02101,"301,84.25 ",.01)
  1. ;;84.25
  1. ;;9002226.02101,"301,84.25 ",.02)
  1. ;;84.25
  1. ;;9002226.02101,"301,84.26 ",.01)
  1. ;;84.26
  1. ;;9002226.02101,"301,84.26 ",.02)
  1. ;;84.26
  1. ;;9002226.02101,"301,84.27 ",.01)
  1. ;;84.27
  1. ;;9002226.02101,"301,84.27 ",.02)
  1. ;;84.27
  1. ;;9002226.02101,"301,84.28 ",.01)
  1. ;;84.28
  1. ;;9002226.02101,"301,84.28 ",.02)
  1. ;;84.28
  1. ;;9002226.02101,"301,84.29 ",.01)
  1. ;;84.29
  1. ;;9002226.02101,"301,84.29 ",.02)
  1. ;;84.29
  1. ;;9002226.02101,"301,84.3 ",.01)
  1. ;;84.3
  1. ;;9002226.02101,"301,84.3 ",.02)
  1. ;;84.3
  1. ;;9002226.02101,"301,84.58 ",.01)
  1. ;;84.58
  1. ;;9002226.02101,"301,84.58 ",.02)
  1. ;;84.58
  1. ;;9002226.02101,"301,85.22 ",.01)
  1. ;;85.22
  1. ;;9002226.02101,"301,85.22 ",.02)
  1. ;;85.22
  1. ;;9002226.02101,"301,85.23 ",.01)
  1. ;;85.23
  1. ;;9002226.02101,"301,85.23 ",.02)
  1. ;;85.23
  1. ;;9002226.02101,"301,85.31 ",.01)
  1. ;;85.31
  1. ;;9002226.02101,"301,85.31 ",.02)
  1. ;;85.31
  1. ;;9002226.02101,"301,85.32 ",.01)
  1. ;;85.32
  1. ;;9002226.02101,"301,85.32 ",.02)
  1. ;;85.32
  1. ;;9002226.02101,"301,85.33 ",.01)
  1. ;;85.33
  1. ;;9002226.02101,"301,85.33 ",.02)
  1. ;;85.33
  1. ;;9002226.02101,"301,85.34 ",.01)
  1. ;;85.34
  1. ;;9002226.02101,"301,85.34 ",.02)
  1. ;;85.34
  1. ;;9002226.02101,"301,85.35 ",.01)
  1. ;;85.35
  1. ;;9002226.02101,"301,85.35 ",.02)
  1. ;;85.35
  1. ;;9002226.02101,"301,85.36 ",.01)
  1. ;;85.36
  1. ;;9002226.02101,"301,85.36 ",.02)
  1. ;;85.36
  1. ;;9002226.02101,"301,85.41 ",.01)
  1. ;;85.41
  1. ;;9002226.02101,"301,85.41 ",.02)
  1. ;;85.41
  1. ;;9002226.02101,"301,85.42 ",.01)
  1. ;;85.42
  1. ;;9002226.02101,"301,85.42 ",.02)
  1. ;;85.42
  1. ;;9002226.02101,"301,85.43 ",.01)
  1. ;;85.43
  1. ;;9002226.02101,"301,85.43 ",.02)
  1. ;;85.43
  1. ;;9002226.02101,"301,85.44 ",.01)
  1. ;;85.44
  1. ;;9002226.02101,"301,85.44 ",.02)
  1. ;;85.44
  1. ;;9002226.02101,"301,85.45 ",.01)
  1. ;;85.45
  1. ;;9002226.02101,"301,85.45 ",.02)
  1. ;;85.45
  1. ;;9002226.02101,"301,85.46 ",.01)
  1. ;;85.46
  1. ;;9002226.02101,"301,85.46 ",.02)
  1. ;;85.46
  1. ;;9002226.02101,"301,85.47 ",.01)
  1. ;;85.47
  1. ;;9002226.02101,"301,85.47 ",.02)
  1. ;;85.47
  1. ;;9002226.02101,"301,85.48 ",.01)
  1. ;;85.48
  1. ;;9002226.02101,"301,85.48 ",.02)
  1. ;;85.48
  1. ;;9002226.02101,"301,85.50 ",.01)
  1. ;;85.50
  1. ;;9002226.02101,"301,85.50 ",.02)
  1. ;;85.50
  1. ;;9002226.02101,"301,85.53 ",.01)
  1. ;;85.53
  1. ;;9002226.02101,"301,85.53 ",.02)
  1. ;;85.53
  1. ;;9002226.02101,"301,85.54 ",.01)
  1. ;;85.54
  1. ;;9002226.02101,"301,85.54 ",.02)
  1. ;;85.54
  1. ;;9002226.02101,"301,85.6 ",.01)
  1. ;;85.6
  1. ;;9002226.02101,"301,85.6 ",.02)
  1. ;;85.6
  1. ;;9002226.02101,"301,85.7 ",.01)
  1. ;;85.7
  1. ;;9002226.02101,"301,85.7 ",.02)
  1. ;;85.7
  1. ;;9002226.02101,"301,85.93 ",.01)
  1. ;;85.93
  1. ;;9002226.02101,"301,85.93 ",.02)
  1. ;;85.93
  1. ;;9002226.02101,"301,85.94 ",.01)
  1. ;;85.94
  1. ;;9002226.02101,"301,85.94 ",.02)
  1. ;;85.94
  1. ;;9002226.02101,"301,85.95 ",.01)
  1. ;;85.95
  1. ;;9002226.02101,"301,85.95 ",.02)
  1. ;;85.95
  1. ;;9002226.02101,"301,85.96 ",.01)
  1. ;;85.96
  1. ;;9002226.02101,"301,85.96 ",.02)
  1. ;;85.96
  1. ;;9002226.02101,"301,86.4 ",.01)
  1. ;;86.4
  1. ;;9002226.02101,"301,86.4 ",.02)
  1. ;;86.4
  1. ;;9002226.02101,"301,86.70 ",.01)
  1. ;;86.70
  1. ;;9002226.02101,"301,86.70 ",.02)
  1. ;;86.70
  1. ;;9002226.02101,"301,86.71 ",.01)
  1. ;;86.71
  1. ;;9002226.02101,"301,86.71 ",.02)
  1. ;;86.71
  1. ;;9002226.02101,"301,86.72 ",.01)
  1. ;;86.72
  1. ;;9002226.02101,"301,86.72 ",.02)
  1. ;;86.72
  1. ;;9002226.02101,"301,86.73 ",.01)
  1. ;;86.73
  1. ;;9002226.02101,"301,86.73 ",.02)
  1. ;;86.73
  1. ;;9002226.02101,"301,86.74 ",.01)
  1. ;;86.74
  1. ;;9002226.02101,"301,86.74 ",.02)
  1. ;;86.74
  1. ;;9002226.02101,"301,86.75 ",.01)
  1. ;;86.75
  1. ;;9002226.02101,"301,86.75 ",.02)
  1. ;;86.75