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