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

BGPM5AOC.m

Go to the documentation of this file.
  1. BGPM5AOC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 17, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"992,202.16 ",.02)
  1. ;;202.16
  1. ;;9002226.02101,"992,202.17 ",.01)
  1. ;;202.17
  1. ;;9002226.02101,"992,202.17 ",.02)
  1. ;;202.17
  1. ;;9002226.02101,"992,202.18 ",.01)
  1. ;;202.18
  1. ;;9002226.02101,"992,202.18 ",.02)
  1. ;;202.18
  1. ;;9002226.02101,"992,202.2 ",.01)
  1. ;;202.2
  1. ;;9002226.02101,"992,202.2 ",.02)
  1. ;;202.2
  1. ;;9002226.02101,"992,202.20 ",.01)
  1. ;;202.20
  1. ;;9002226.02101,"992,202.20 ",.02)
  1. ;;202.20
  1. ;;9002226.02101,"992,202.21 ",.01)
  1. ;;202.21
  1. ;;9002226.02101,"992,202.21 ",.02)
  1. ;;202.21
  1. ;;9002226.02101,"992,202.22 ",.01)
  1. ;;202.22
  1. ;;9002226.02101,"992,202.22 ",.02)
  1. ;;202.22
  1. ;;9002226.02101,"992,202.23 ",.01)
  1. ;;202.23
  1. ;;9002226.02101,"992,202.23 ",.02)
  1. ;;202.23
  1. ;;9002226.02101,"992,202.24 ",.01)
  1. ;;202.24
  1. ;;9002226.02101,"992,202.24 ",.02)
  1. ;;202.24
  1. ;;9002226.02101,"992,202.25 ",.01)
  1. ;;202.25
  1. ;;9002226.02101,"992,202.25 ",.02)
  1. ;;202.25
  1. ;;9002226.02101,"992,202.26 ",.01)
  1. ;;202.26
  1. ;;9002226.02101,"992,202.26 ",.02)
  1. ;;202.26
  1. ;;9002226.02101,"992,202.27 ",.01)
  1. ;;202.27
  1. ;;9002226.02101,"992,202.27 ",.02)
  1. ;;202.27
  1. ;;9002226.02101,"992,202.28 ",.01)
  1. ;;202.28
  1. ;;9002226.02101,"992,202.28 ",.02)
  1. ;;202.28
  1. ;;9002226.02101,"992,202.3 ",.01)
  1. ;;202.3
  1. ;;9002226.02101,"992,202.3 ",.02)
  1. ;;202.3
  1. ;;9002226.02101,"992,202.30 ",.01)
  1. ;;202.30
  1. ;;9002226.02101,"992,202.30 ",.02)
  1. ;;202.30
  1. ;;9002226.02101,"992,202.31 ",.01)
  1. ;;202.31
  1. ;;9002226.02101,"992,202.31 ",.02)
  1. ;;202.31
  1. ;;9002226.02101,"992,202.32 ",.01)
  1. ;;202.32
  1. ;;9002226.02101,"992,202.32 ",.02)
  1. ;;202.32
  1. ;;9002226.02101,"992,202.33 ",.01)
  1. ;;202.33
  1. ;;9002226.02101,"992,202.33 ",.02)
  1. ;;202.33
  1. ;;9002226.02101,"992,202.34 ",.01)
  1. ;;202.34
  1. ;;9002226.02101,"992,202.34 ",.02)
  1. ;;202.34
  1. ;;9002226.02101,"992,202.35 ",.01)
  1. ;;202.35
  1. ;;9002226.02101,"992,202.35 ",.02)
  1. ;;202.35
  1. ;;9002226.02101,"992,202.36 ",.01)
  1. ;;202.36
  1. ;;9002226.02101,"992,202.36 ",.02)
  1. ;;202.36
  1. ;;9002226.02101,"992,202.37 ",.01)
  1. ;;202.37
  1. ;;9002226.02101,"992,202.37 ",.02)
  1. ;;202.37
  1. ;;9002226.02101,"992,202.38 ",.01)
  1. ;;202.38
  1. ;;9002226.02101,"992,202.38 ",.02)
  1. ;;202.38
  1. ;;9002226.02101,"992,202.4 ",.01)
  1. ;;202.4
  1. ;;9002226.02101,"992,202.4 ",.02)
  1. ;;202.4
  1. ;;9002226.02101,"992,202.40 ",.01)
  1. ;;202.40
  1. ;;9002226.02101,"992,202.40 ",.02)
  1. ;;202.40
  1. ;;9002226.02101,"992,202.41 ",.01)
  1. ;;202.41
  1. ;;9002226.02101,"992,202.41 ",.02)
  1. ;;202.41
  1. ;;9002226.02101,"992,202.42 ",.01)
  1. ;;202.42
  1. ;;9002226.02101,"992,202.42 ",.02)
  1. ;;202.42
  1. ;;9002226.02101,"992,202.43 ",.01)
  1. ;;202.43
  1. ;;9002226.02101,"992,202.43 ",.02)
  1. ;;202.43
  1. ;;9002226.02101,"992,202.44 ",.01)
  1. ;;202.44
  1. ;;9002226.02101,"992,202.44 ",.02)
  1. ;;202.44
  1. ;;9002226.02101,"992,202.45 ",.01)
  1. ;;202.45
  1. ;;9002226.02101,"992,202.45 ",.02)
  1. ;;202.45
  1. ;;9002226.02101,"992,202.46 ",.01)
  1. ;;202.46
  1. ;;9002226.02101,"992,202.46 ",.02)
  1. ;;202.46
  1. ;;9002226.02101,"992,202.47 ",.01)
  1. ;;202.47
  1. ;;9002226.02101,"992,202.47 ",.02)
  1. ;;202.47
  1. ;;9002226.02101,"992,202.48 ",.01)
  1. ;;202.48
  1. ;;9002226.02101,"992,202.48 ",.02)
  1. ;;202.48
  1. ;;9002226.02101,"992,202.5 ",.01)
  1. ;;202.5
  1. ;;9002226.02101,"992,202.5 ",.02)
  1. ;;202.5
  1. ;;9002226.02101,"992,202.50 ",.01)
  1. ;;202.50
  1. ;;9002226.02101,"992,202.50 ",.02)
  1. ;;202.50
  1. ;;9002226.02101,"992,202.51 ",.01)
  1. ;;202.51
  1. ;;9002226.02101,"992,202.51 ",.02)
  1. ;;202.51
  1. ;;9002226.02101,"992,202.52 ",.01)
  1. ;;202.52
  1. ;;9002226.02101,"992,202.52 ",.02)
  1. ;;202.52
  1. ;;9002226.02101,"992,202.53 ",.01)
  1. ;;202.53
  1. ;;9002226.02101,"992,202.53 ",.02)
  1. ;;202.53
  1. ;;9002226.02101,"992,202.54 ",.01)
  1. ;;202.54
  1. ;;9002226.02101,"992,202.54 ",.02)
  1. ;;202.54
  1. ;;9002226.02101,"992,202.55 ",.01)
  1. ;;202.55
  1. ;;9002226.02101,"992,202.55 ",.02)
  1. ;;202.55
  1. ;;9002226.02101,"992,202.56 ",.01)
  1. ;;202.56
  1. ;;9002226.02101,"992,202.56 ",.02)
  1. ;;202.56
  1. ;;9002226.02101,"992,202.57 ",.01)
  1. ;;202.57
  1. ;;9002226.02101,"992,202.57 ",.02)
  1. ;;202.57
  1. ;;9002226.02101,"992,202.58 ",.01)
  1. ;;202.58
  1. ;;9002226.02101,"992,202.58 ",.02)
  1. ;;202.58
  1. ;;9002226.02101,"992,202.6 ",.01)
  1. ;;202.6
  1. ;;9002226.02101,"992,202.6 ",.02)
  1. ;;202.6
  1. ;;9002226.02101,"992,202.60 ",.01)
  1. ;;202.60
  1. ;;9002226.02101,"992,202.60 ",.02)
  1. ;;202.60
  1. ;;9002226.02101,"992,202.61 ",.01)
  1. ;;202.61
  1. ;;9002226.02101,"992,202.61 ",.02)
  1. ;;202.61
  1. ;;9002226.02101,"992,202.62 ",.01)
  1. ;;202.62
  1. ;;9002226.02101,"992,202.62 ",.02)
  1. ;;202.62
  1. ;;9002226.02101,"992,202.63 ",.01)
  1. ;;202.63
  1. ;;9002226.02101,"992,202.63 ",.02)
  1. ;;202.63
  1. ;;9002226.02101,"992,202.64 ",.01)
  1. ;;202.64
  1. ;;9002226.02101,"992,202.64 ",.02)
  1. ;;202.64
  1. ;;9002226.02101,"992,202.65 ",.01)
  1. ;;202.65
  1. ;;9002226.02101,"992,202.65 ",.02)
  1. ;;202.65
  1. ;;9002226.02101,"992,202.66 ",.01)
  1. ;;202.66
  1. ;;9002226.02101,"992,202.66 ",.02)
  1. ;;202.66
  1. ;;9002226.02101,"992,202.67 ",.01)
  1. ;;202.67
  1. ;;9002226.02101,"992,202.67 ",.02)
  1. ;;202.67
  1. ;;9002226.02101,"992,202.68 ",.01)
  1. ;;202.68
  1. ;;9002226.02101,"992,202.68 ",.02)
  1. ;;202.68
  1. ;;9002226.02101,"992,202.7 ",.01)
  1. ;;202.7
  1. ;;9002226.02101,"992,202.7 ",.02)
  1. ;;202.7
  1. ;;9002226.02101,"992,202.70 ",.01)
  1. ;;202.70
  1. ;;9002226.02101,"992,202.70 ",.02)
  1. ;;202.70
  1. ;;9002226.02101,"992,202.71 ",.01)
  1. ;;202.71
  1. ;;9002226.02101,"992,202.71 ",.02)
  1. ;;202.71
  1. ;;9002226.02101,"992,202.72 ",.01)
  1. ;;202.72
  1. ;;9002226.02101,"992,202.72 ",.02)
  1. ;;202.72
  1. ;;9002226.02101,"992,202.73 ",.01)
  1. ;;202.73
  1. ;;9002226.02101,"992,202.73 ",.02)
  1. ;;202.73
  1. ;;9002226.02101,"992,202.74 ",.01)
  1. ;;202.74
  1. ;;9002226.02101,"992,202.74 ",.02)
  1. ;;202.74
  1. ;;9002226.02101,"992,202.75 ",.01)
  1. ;;202.75
  1. ;;9002226.02101,"992,202.75 ",.02)
  1. ;;202.75
  1. ;;9002226.02101,"992,202.76 ",.01)
  1. ;;202.76
  1. ;;9002226.02101,"992,202.76 ",.02)
  1. ;;202.76
  1. ;;9002226.02101,"992,202.77 ",.01)
  1. ;;202.77
  1. ;;9002226.02101,"992,202.77 ",.02)
  1. ;;202.77
  1. ;;9002226.02101,"992,202.78 ",.01)
  1. ;;202.78
  1. ;;9002226.02101,"992,202.78 ",.02)
  1. ;;202.78
  1. ;;9002226.02101,"992,202.8 ",.01)
  1. ;;202.8
  1. ;;9002226.02101,"992,202.8 ",.02)
  1. ;;202.8
  1. ;;9002226.02101,"992,202.80 ",.01)
  1. ;;202.80
  1. ;;9002226.02101,"992,202.80 ",.02)
  1. ;;202.80
  1. ;;9002226.02101,"992,202.81 ",.01)
  1. ;;202.81
  1. ;;9002226.02101,"992,202.81 ",.02)
  1. ;;202.81
  1. ;;9002226.02101,"992,202.82 ",.01)
  1. ;;202.82
  1. ;;9002226.02101,"992,202.82 ",.02)
  1. ;;202.82
  1. ;;9002226.02101,"992,202.83 ",.01)
  1. ;;202.83
  1. ;;9002226.02101,"992,202.83 ",.02)
  1. ;;202.83
  1. ;;9002226.02101,"992,202.84 ",.01)
  1. ;;202.84
  1. ;;9002226.02101,"992,202.84 ",.02)
  1. ;;202.84
  1. ;;9002226.02101,"992,202.85 ",.01)
  1. ;;202.85
  1. ;;9002226.02101,"992,202.85 ",.02)
  1. ;;202.85
  1. ;;9002226.02101,"992,202.86 ",.01)
  1. ;;202.86
  1. ;;9002226.02101,"992,202.86 ",.02)
  1. ;;202.86
  1. ;;9002226.02101,"992,202.87 ",.01)
  1. ;;202.87
  1. ;;9002226.02101,"992,202.87 ",.02)
  1. ;;202.87
  1. ;;9002226.02101,"992,202.88 ",.01)
  1. ;;202.88
  1. ;;9002226.02101,"992,202.88 ",.02)
  1. ;;202.88
  1. ;;9002226.02101,"992,202.9 ",.01)
  1. ;;202.9
  1. ;;9002226.02101,"992,202.9 ",.02)
  1. ;;202.9
  1. ;;9002226.02101,"992,202.90 ",.01)
  1. ;;202.90
  1. ;;9002226.02101,"992,202.90 ",.02)
  1. ;;202.90
  1. ;;9002226.02101,"992,202.91 ",.01)
  1. ;;202.91
  1. ;;9002226.02101,"992,202.91 ",.02)
  1. ;;202.91
  1. ;;9002226.02101,"992,202.92 ",.01)
  1. ;;202.92
  1. ;;9002226.02101,"992,202.92 ",.02)
  1. ;;202.92
  1. ;;9002226.02101,"992,202.93 ",.01)
  1. ;;202.93
  1. ;;9002226.02101,"992,202.93 ",.02)
  1. ;;202.93
  1. ;;9002226.02101,"992,202.94 ",.01)
  1. ;;202.94
  1. ;;9002226.02101,"992,202.94 ",.02)
  1. ;;202.94
  1. ;;9002226.02101,"992,202.95 ",.01)
  1. ;;202.95
  1. ;;9002226.02101,"992,202.95 ",.02)
  1. ;;202.95
  1. ;;9002226.02101,"992,202.96 ",.01)
  1. ;;202.96
  1. ;;9002226.02101,"992,202.96 ",.02)
  1. ;;202.96
  1. ;;9002226.02101,"992,202.97 ",.01)
  1. ;;202.97
  1. ;;9002226.02101,"992,202.97 ",.02)
  1. ;;202.97
  1. ;;9002226.02101,"992,202.98 ",.01)
  1. ;;202.98
  1. ;;9002226.02101,"992,202.98 ",.02)
  1. ;;202.98
  1. ;;9002226.02101,"992,203 ",.01)
  1. ;;203
  1. ;;9002226.02101,"992,203 ",.02)
  1. ;;203
  1. ;;9002226.02101,"992,203.0 ",.01)
  1. ;;203.0
  1. ;;9002226.02101,"992,203.0 ",.02)
  1. ;;203.0
  1. ;;9002226.02101,"992,203.00 ",.01)
  1. ;;203.00
  1. ;;9002226.02101,"992,203.00 ",.02)
  1. ;;203.00
  1. ;;9002226.02101,"992,203.01 ",.01)
  1. ;;203.01
  1. ;;9002226.02101,"992,203.01 ",.02)
  1. ;;203.01
  1. ;;9002226.02101,"992,203.02 ",.01)
  1. ;;203.02
  1. ;;9002226.02101,"992,203.02 ",.02)
  1. ;;203.02
  1. ;;9002226.02101,"992,203.1 ",.01)
  1. ;;203.1
  1. ;;9002226.02101,"992,203.1 ",.02)
  1. ;;203.1
  1. ;;9002226.02101,"992,203.10 ",.01)
  1. ;;203.10
  1. ;;9002226.02101,"992,203.10 ",.02)
  1. ;;203.10
  1. ;;9002226.02101,"992,203.11 ",.01)
  1. ;;203.11
  1. ;;9002226.02101,"992,203.11 ",.02)
  1. ;;203.11
  1. ;;9002226.02101,"992,203.12 ",.01)
  1. ;;203.12
  1. ;;9002226.02101,"992,203.12 ",.02)
  1. ;;203.12
  1. ;;9002226.02101,"992,203.8 ",.01)
  1. ;;203.8
  1. ;;9002226.02101,"992,203.8 ",.02)
  1. ;;203.8
  1. ;;9002226.02101,"992,203.80 ",.01)
  1. ;;203.80
  1. ;;9002226.02101,"992,203.80 ",.02)
  1. ;;203.80
  1. ;;9002226.02101,"992,203.81 ",.01)
  1. ;;203.81
  1. ;;9002226.02101,"992,203.81 ",.02)
  1. ;;203.81
  1. ;;9002226.02101,"992,203.82 ",.01)
  1. ;;203.82
  1. ;;9002226.02101,"992,203.82 ",.02)
  1. ;;203.82
  1. ;;9002226.02101,"992,204 ",.01)
  1. ;;204
  1. ;;9002226.02101,"992,204 ",.02)
  1. ;;204
  1. ;;9002226.02101,"992,204.0 ",.01)
  1. ;;204.0
  1. ;;9002226.02101,"992,204.0 ",.02)
  1. ;;204.0
  1. ;;9002226.02101,"992,204.00 ",.01)
  1. ;;204.00
  1. ;;9002226.02101,"992,204.00 ",.02)
  1. ;;204.00
  1. ;;9002226.02101,"992,204.01 ",.01)
  1. ;;204.01
  1. ;;9002226.02101,"992,204.01 ",.02)
  1. ;;204.01
  1. ;;9002226.02101,"992,204.02 ",.01)
  1. ;;204.02
  1. ;;9002226.02101,"992,204.02 ",.02)
  1. ;;204.02
  1. ;;9002226.02101,"992,204.1 ",.01)
  1. ;;204.1
  1. ;;9002226.02101,"992,204.1 ",.02)
  1. ;;204.1
  1. ;;9002226.02101,"992,204.10 ",.01)
  1. ;;204.10
  1. ;;9002226.02101,"992,204.10 ",.02)
  1. ;;204.10
  1. ;;9002226.02101,"992,204.11 ",.01)
  1. ;;204.11
  1. ;;9002226.02101,"992,204.11 ",.02)
  1. ;;204.11
  1. ;;9002226.02101,"992,204.12 ",.01)
  1. ;;204.12
  1. ;;9002226.02101,"992,204.12 ",.02)
  1. ;;204.12
  1. ;;9002226.02101,"992,204.2 ",.01)
  1. ;;204.2
  1. ;;9002226.02101,"992,204.2 ",.02)
  1. ;;204.2
  1. ;;9002226.02101,"992,204.20 ",.01)
  1. ;;204.20
  1. ;;9002226.02101,"992,204.20 ",.02)
  1. ;;204.20
  1. ;;9002226.02101,"992,204.21 ",.01)
  1. ;;204.21
  1. ;;9002226.02101,"992,204.21 ",.02)
  1. ;;204.21
  1. ;;9002226.02101,"992,204.22 ",.01)
  1. ;;204.22
  1. ;;9002226.02101,"992,204.22 ",.02)
  1. ;;204.22
  1. ;;9002226.02101,"992,204.8 ",.01)
  1. ;;204.8
  1. ;;9002226.02101,"992,204.8 ",.02)
  1. ;;204.8
  1. ;;9002226.02101,"992,204.80 ",.01)
  1. ;;204.80
  1. ;;9002226.02101,"992,204.80 ",.02)
  1. ;;204.80
  1. ;;9002226.02101,"992,204.81 ",.01)
  1. ;;204.81
  1. ;;9002226.02101,"992,204.81 ",.02)
  1. ;;204.81
  1. ;;9002226.02101,"992,204.82 ",.01)
  1. ;;204.82
  1. ;;9002226.02101,"992,204.82 ",.02)
  1. ;;204.82
  1. ;;9002226.02101,"992,204.9 ",.01)
  1. ;;204.9
  1. ;;9002226.02101,"992,204.9 ",.02)
  1. ;;204.9
  1. ;;9002226.02101,"992,204.90 ",.01)
  1. ;;204.90
  1. ;;9002226.02101,"992,204.90 ",.02)
  1. ;;204.90
  1. ;;9002226.02101,"992,204.91 ",.01)
  1. ;;204.91
  1. ;;9002226.02101,"992,204.91 ",.02)
  1. ;;204.91
  1. ;;9002226.02101,"992,204.92 ",.01)
  1. ;;204.92
  1. ;;9002226.02101,"992,204.92 ",.02)
  1. ;;204.92
  1. ;;9002226.02101,"992,205 ",.01)
  1. ;;205
  1. ;;9002226.02101,"992,205 ",.02)
  1. ;;205
  1. ;;9002226.02101,"992,205.0 ",.01)
  1. ;;205.0
  1. ;;9002226.02101,"992,205.0 ",.02)
  1. ;;205.0
  1. ;;9002226.02101,"992,205.00 ",.01)
  1. ;;205.00
  1. ;;9002226.02101,"992,205.00 ",.02)
  1. ;;205.00
  1. ;;9002226.02101,"992,205.01 ",.01)
  1. ;;205.01
  1. ;;9002226.02101,"992,205.01 ",.02)
  1. ;;205.01
  1. ;;9002226.02101,"992,205.02 ",.01)
  1. ;;205.02
  1. ;;9002226.02101,"992,205.02 ",.02)
  1. ;;205.02
  1. ;;9002226.02101,"992,205.1 ",.01)
  1. ;;205.1
  1. ;;9002226.02101,"992,205.1 ",.02)
  1. ;;205.1
  1. ;;9002226.02101,"992,205.10 ",.01)
  1. ;;205.10