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

BGPM5AOB.m

Go to the documentation of this file.
BGPM5AOB ;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,200.66 ",.01)
 ;;200.66
 ;;9002226.02101,"992,200.66 ",.02)
 ;;200.66
 ;;9002226.02101,"992,200.67 ",.01)
 ;;200.67
 ;;9002226.02101,"992,200.67 ",.02)
 ;;200.67
 ;;9002226.02101,"992,200.68 ",.01)
 ;;200.68
 ;;9002226.02101,"992,200.68 ",.02)
 ;;200.68
 ;;9002226.02101,"992,200.7 ",.01)
 ;;200.7
 ;;9002226.02101,"992,200.7 ",.02)
 ;;200.7
 ;;9002226.02101,"992,200.70 ",.01)
 ;;200.70
 ;;9002226.02101,"992,200.70 ",.02)
 ;;200.70
 ;;9002226.02101,"992,200.71 ",.01)
 ;;200.71
 ;;9002226.02101,"992,200.71 ",.02)
 ;;200.71
 ;;9002226.02101,"992,200.72 ",.01)
 ;;200.72
 ;;9002226.02101,"992,200.72 ",.02)
 ;;200.72
 ;;9002226.02101,"992,200.73 ",.01)
 ;;200.73
 ;;9002226.02101,"992,200.73 ",.02)
 ;;200.73
 ;;9002226.02101,"992,200.74 ",.01)
 ;;200.74
 ;;9002226.02101,"992,200.74 ",.02)
 ;;200.74
 ;;9002226.02101,"992,200.75 ",.01)
 ;;200.75
 ;;9002226.02101,"992,200.75 ",.02)
 ;;200.75
 ;;9002226.02101,"992,200.76 ",.01)
 ;;200.76
 ;;9002226.02101,"992,200.76 ",.02)
 ;;200.76
 ;;9002226.02101,"992,200.77 ",.01)
 ;;200.77
 ;;9002226.02101,"992,200.77 ",.02)
 ;;200.77
 ;;9002226.02101,"992,200.78 ",.01)
 ;;200.78
 ;;9002226.02101,"992,200.78 ",.02)
 ;;200.78
 ;;9002226.02101,"992,200.8 ",.01)
 ;;200.8
 ;;9002226.02101,"992,200.8 ",.02)
 ;;200.8
 ;;9002226.02101,"992,200.80 ",.01)
 ;;200.80
 ;;9002226.02101,"992,200.80 ",.02)
 ;;200.80
 ;;9002226.02101,"992,200.81 ",.01)
 ;;200.81
 ;;9002226.02101,"992,200.81 ",.02)
 ;;200.81
 ;;9002226.02101,"992,200.82 ",.01)
 ;;200.82
 ;;9002226.02101,"992,200.82 ",.02)
 ;;200.82
 ;;9002226.02101,"992,200.83 ",.01)
 ;;200.83
 ;;9002226.02101,"992,200.83 ",.02)
 ;;200.83
 ;;9002226.02101,"992,200.84 ",.01)
 ;;200.84
 ;;9002226.02101,"992,200.84 ",.02)
 ;;200.84
 ;;9002226.02101,"992,200.85 ",.01)
 ;;200.85
 ;;9002226.02101,"992,200.85 ",.02)
 ;;200.85
 ;;9002226.02101,"992,200.86 ",.01)
 ;;200.86
 ;;9002226.02101,"992,200.86 ",.02)
 ;;200.86
 ;;9002226.02101,"992,200.87 ",.01)
 ;;200.87
 ;;9002226.02101,"992,200.87 ",.02)
 ;;200.87
 ;;9002226.02101,"992,200.88 ",.01)
 ;;200.88
 ;;9002226.02101,"992,200.88 ",.02)
 ;;200.88
 ;;9002226.02101,"992,201 ",.01)
 ;;201
 ;;9002226.02101,"992,201 ",.02)
 ;;201
 ;;9002226.02101,"992,201.0 ",.01)
 ;;201.0
 ;;9002226.02101,"992,201.0 ",.02)
 ;;201.0
 ;;9002226.02101,"992,201.00 ",.01)
 ;;201.00
 ;;9002226.02101,"992,201.00 ",.02)
 ;;201.00
 ;;9002226.02101,"992,201.01 ",.01)
 ;;201.01
 ;;9002226.02101,"992,201.01 ",.02)
 ;;201.01
 ;;9002226.02101,"992,201.02 ",.01)
 ;;201.02
 ;;9002226.02101,"992,201.02 ",.02)
 ;;201.02
 ;;9002226.02101,"992,201.03 ",.01)
 ;;201.03
 ;;9002226.02101,"992,201.03 ",.02)
 ;;201.03
 ;;9002226.02101,"992,201.04 ",.01)
 ;;201.04
 ;;9002226.02101,"992,201.04 ",.02)
 ;;201.04
 ;;9002226.02101,"992,201.05 ",.01)
 ;;201.05
 ;;9002226.02101,"992,201.05 ",.02)
 ;;201.05
 ;;9002226.02101,"992,201.06 ",.01)
 ;;201.06
 ;;9002226.02101,"992,201.06 ",.02)
 ;;201.06
 ;;9002226.02101,"992,201.07 ",.01)
 ;;201.07
 ;;9002226.02101,"992,201.07 ",.02)
 ;;201.07
 ;;9002226.02101,"992,201.08 ",.01)
 ;;201.08
 ;;9002226.02101,"992,201.08 ",.02)
 ;;201.08
 ;;9002226.02101,"992,201.1 ",.01)
 ;;201.1
 ;;9002226.02101,"992,201.1 ",.02)
 ;;201.1
 ;;9002226.02101,"992,201.10 ",.01)
 ;;201.10
 ;;9002226.02101,"992,201.10 ",.02)
 ;;201.10
 ;;9002226.02101,"992,201.11 ",.01)
 ;;201.11
 ;;9002226.02101,"992,201.11 ",.02)
 ;;201.11
 ;;9002226.02101,"992,201.12 ",.01)
 ;;201.12
 ;;9002226.02101,"992,201.12 ",.02)
 ;;201.12
 ;;9002226.02101,"992,201.13 ",.01)
 ;;201.13
 ;;9002226.02101,"992,201.13 ",.02)
 ;;201.13
 ;;9002226.02101,"992,201.14 ",.01)
 ;;201.14
 ;;9002226.02101,"992,201.14 ",.02)
 ;;201.14
 ;;9002226.02101,"992,201.15 ",.01)
 ;;201.15
 ;;9002226.02101,"992,201.15 ",.02)
 ;;201.15
 ;;9002226.02101,"992,201.16 ",.01)
 ;;201.16
 ;;9002226.02101,"992,201.16 ",.02)
 ;;201.16
 ;;9002226.02101,"992,201.17 ",.01)
 ;;201.17
 ;;9002226.02101,"992,201.17 ",.02)
 ;;201.17
 ;;9002226.02101,"992,201.18 ",.01)
 ;;201.18
 ;;9002226.02101,"992,201.18 ",.02)
 ;;201.18
 ;;9002226.02101,"992,201.2 ",.01)
 ;;201.2
 ;;9002226.02101,"992,201.2 ",.02)
 ;;201.2
 ;;9002226.02101,"992,201.20 ",.01)
 ;;201.20
 ;;9002226.02101,"992,201.20 ",.02)
 ;;201.20
 ;;9002226.02101,"992,201.21 ",.01)
 ;;201.21
 ;;9002226.02101,"992,201.21 ",.02)
 ;;201.21
 ;;9002226.02101,"992,201.22 ",.01)
 ;;201.22
 ;;9002226.02101,"992,201.22 ",.02)
 ;;201.22
 ;;9002226.02101,"992,201.23 ",.01)
 ;;201.23
 ;;9002226.02101,"992,201.23 ",.02)
 ;;201.23
 ;;9002226.02101,"992,201.24 ",.01)
 ;;201.24
 ;;9002226.02101,"992,201.24 ",.02)
 ;;201.24
 ;;9002226.02101,"992,201.25 ",.01)
 ;;201.25
 ;;9002226.02101,"992,201.25 ",.02)
 ;;201.25
 ;;9002226.02101,"992,201.26 ",.01)
 ;;201.26
 ;;9002226.02101,"992,201.26 ",.02)
 ;;201.26
 ;;9002226.02101,"992,201.27 ",.01)
 ;;201.27
 ;;9002226.02101,"992,201.27 ",.02)
 ;;201.27
 ;;9002226.02101,"992,201.28 ",.01)
 ;;201.28
 ;;9002226.02101,"992,201.28 ",.02)
 ;;201.28
 ;;9002226.02101,"992,201.4 ",.01)
 ;;201.4
 ;;9002226.02101,"992,201.4 ",.02)
 ;;201.4
 ;;9002226.02101,"992,201.40 ",.01)
 ;;201.40
 ;;9002226.02101,"992,201.40 ",.02)
 ;;201.40
 ;;9002226.02101,"992,201.41 ",.01)
 ;;201.41
 ;;9002226.02101,"992,201.41 ",.02)
 ;;201.41
 ;;9002226.02101,"992,201.42 ",.01)
 ;;201.42
 ;;9002226.02101,"992,201.42 ",.02)
 ;;201.42
 ;;9002226.02101,"992,201.43 ",.01)
 ;;201.43
 ;;9002226.02101,"992,201.43 ",.02)
 ;;201.43
 ;;9002226.02101,"992,201.44 ",.01)
 ;;201.44
 ;;9002226.02101,"992,201.44 ",.02)
 ;;201.44
 ;;9002226.02101,"992,201.45 ",.01)
 ;;201.45
 ;;9002226.02101,"992,201.45 ",.02)
 ;;201.45
 ;;9002226.02101,"992,201.46 ",.01)
 ;;201.46
 ;;9002226.02101,"992,201.46 ",.02)
 ;;201.46
 ;;9002226.02101,"992,201.47 ",.01)
 ;;201.47
 ;;9002226.02101,"992,201.47 ",.02)
 ;;201.47
 ;;9002226.02101,"992,201.48 ",.01)
 ;;201.48
 ;;9002226.02101,"992,201.48 ",.02)
 ;;201.48
 ;;9002226.02101,"992,201.5 ",.01)
 ;;201.5
 ;;9002226.02101,"992,201.5 ",.02)
 ;;201.5
 ;;9002226.02101,"992,201.50 ",.01)
 ;;201.50
 ;;9002226.02101,"992,201.50 ",.02)
 ;;201.50
 ;;9002226.02101,"992,201.51 ",.01)
 ;;201.51
 ;;9002226.02101,"992,201.51 ",.02)
 ;;201.51
 ;;9002226.02101,"992,201.52 ",.01)
 ;;201.52
 ;;9002226.02101,"992,201.52 ",.02)
 ;;201.52
 ;;9002226.02101,"992,201.53 ",.01)
 ;;201.53
 ;;9002226.02101,"992,201.53 ",.02)
 ;;201.53
 ;;9002226.02101,"992,201.54 ",.01)
 ;;201.54
 ;;9002226.02101,"992,201.54 ",.02)
 ;;201.54
 ;;9002226.02101,"992,201.55 ",.01)
 ;;201.55
 ;;9002226.02101,"992,201.55 ",.02)
 ;;201.55
 ;;9002226.02101,"992,201.56 ",.01)
 ;;201.56
 ;;9002226.02101,"992,201.56 ",.02)
 ;;201.56
 ;;9002226.02101,"992,201.57 ",.01)
 ;;201.57
 ;;9002226.02101,"992,201.57 ",.02)
 ;;201.57
 ;;9002226.02101,"992,201.58 ",.01)
 ;;201.58
 ;;9002226.02101,"992,201.58 ",.02)
 ;;201.58
 ;;9002226.02101,"992,201.6 ",.01)
 ;;201.6
 ;;9002226.02101,"992,201.6 ",.02)
 ;;201.6
 ;;9002226.02101,"992,201.60 ",.01)
 ;;201.60
 ;;9002226.02101,"992,201.60 ",.02)
 ;;201.60
 ;;9002226.02101,"992,201.61 ",.01)
 ;;201.61
 ;;9002226.02101,"992,201.61 ",.02)
 ;;201.61
 ;;9002226.02101,"992,201.62 ",.01)
 ;;201.62
 ;;9002226.02101,"992,201.62 ",.02)
 ;;201.62
 ;;9002226.02101,"992,201.63 ",.01)
 ;;201.63
 ;;9002226.02101,"992,201.63 ",.02)
 ;;201.63
 ;;9002226.02101,"992,201.64 ",.01)
 ;;201.64
 ;;9002226.02101,"992,201.64 ",.02)
 ;;201.64
 ;;9002226.02101,"992,201.65 ",.01)
 ;;201.65
 ;;9002226.02101,"992,201.65 ",.02)
 ;;201.65
 ;;9002226.02101,"992,201.66 ",.01)
 ;;201.66
 ;;9002226.02101,"992,201.66 ",.02)
 ;;201.66
 ;;9002226.02101,"992,201.67 ",.01)
 ;;201.67
 ;;9002226.02101,"992,201.67 ",.02)
 ;;201.67
 ;;9002226.02101,"992,201.68 ",.01)
 ;;201.68
 ;;9002226.02101,"992,201.68 ",.02)
 ;;201.68
 ;;9002226.02101,"992,201.7 ",.01)
 ;;201.7
 ;;9002226.02101,"992,201.7 ",.02)
 ;;201.7
 ;;9002226.02101,"992,201.70 ",.01)
 ;;201.70
 ;;9002226.02101,"992,201.70 ",.02)
 ;;201.70
 ;;9002226.02101,"992,201.71 ",.01)
 ;;201.71
 ;;9002226.02101,"992,201.71 ",.02)
 ;;201.71
 ;;9002226.02101,"992,201.72 ",.01)
 ;;201.72
 ;;9002226.02101,"992,201.72 ",.02)
 ;;201.72
 ;;9002226.02101,"992,201.73 ",.01)
 ;;201.73
 ;;9002226.02101,"992,201.73 ",.02)
 ;;201.73
 ;;9002226.02101,"992,201.74 ",.01)
 ;;201.74
 ;;9002226.02101,"992,201.74 ",.02)
 ;;201.74
 ;;9002226.02101,"992,201.75 ",.01)
 ;;201.75
 ;;9002226.02101,"992,201.75 ",.02)
 ;;201.75
 ;;9002226.02101,"992,201.76 ",.01)
 ;;201.76
 ;;9002226.02101,"992,201.76 ",.02)
 ;;201.76
 ;;9002226.02101,"992,201.77 ",.01)
 ;;201.77
 ;;9002226.02101,"992,201.77 ",.02)
 ;;201.77
 ;;9002226.02101,"992,201.78 ",.01)
 ;;201.78
 ;;9002226.02101,"992,201.78 ",.02)
 ;;201.78
 ;;9002226.02101,"992,201.9 ",.01)
 ;;201.9
 ;;9002226.02101,"992,201.9 ",.02)
 ;;201.9
 ;;9002226.02101,"992,201.90 ",.01)
 ;;201.90
 ;;9002226.02101,"992,201.90 ",.02)
 ;;201.90
 ;;9002226.02101,"992,201.91 ",.01)
 ;;201.91
 ;;9002226.02101,"992,201.91 ",.02)
 ;;201.91
 ;;9002226.02101,"992,201.92 ",.01)
 ;;201.92
 ;;9002226.02101,"992,201.92 ",.02)
 ;;201.92
 ;;9002226.02101,"992,201.93 ",.01)
 ;;201.93
 ;;9002226.02101,"992,201.93 ",.02)
 ;;201.93
 ;;9002226.02101,"992,201.94 ",.01)
 ;;201.94
 ;;9002226.02101,"992,201.94 ",.02)
 ;;201.94
 ;;9002226.02101,"992,201.95 ",.01)
 ;;201.95
 ;;9002226.02101,"992,201.95 ",.02)
 ;;201.95
 ;;9002226.02101,"992,201.96 ",.01)
 ;;201.96
 ;;9002226.02101,"992,201.96 ",.02)
 ;;201.96
 ;;9002226.02101,"992,201.97 ",.01)
 ;;201.97
 ;;9002226.02101,"992,201.97 ",.02)
 ;;201.97
 ;;9002226.02101,"992,201.98 ",.01)
 ;;201.98
 ;;9002226.02101,"992,201.98 ",.02)
 ;;201.98
 ;;9002226.02101,"992,202 ",.01)
 ;;202
 ;;9002226.02101,"992,202 ",.02)
 ;;202
 ;;9002226.02101,"992,202.0 ",.01)
 ;;202.0
 ;;9002226.02101,"992,202.0 ",.02)
 ;;202.0
 ;;9002226.02101,"992,202.00 ",.01)
 ;;202.00
 ;;9002226.02101,"992,202.00 ",.02)
 ;;202.00
 ;;9002226.02101,"992,202.01 ",.01)
 ;;202.01
 ;;9002226.02101,"992,202.01 ",.02)
 ;;202.01
 ;;9002226.02101,"992,202.02 ",.01)
 ;;202.02
 ;;9002226.02101,"992,202.02 ",.02)
 ;;202.02
 ;;9002226.02101,"992,202.03 ",.01)
 ;;202.03
 ;;9002226.02101,"992,202.03 ",.02)
 ;;202.03
 ;;9002226.02101,"992,202.04 ",.01)
 ;;202.04
 ;;9002226.02101,"992,202.04 ",.02)
 ;;202.04
 ;;9002226.02101,"992,202.05 ",.01)
 ;;202.05
 ;;9002226.02101,"992,202.05 ",.02)
 ;;202.05
 ;;9002226.02101,"992,202.06 ",.01)
 ;;202.06
 ;;9002226.02101,"992,202.06 ",.02)
 ;;202.06
 ;;9002226.02101,"992,202.07 ",.01)
 ;;202.07
 ;;9002226.02101,"992,202.07 ",.02)
 ;;202.07
 ;;9002226.02101,"992,202.08 ",.01)
 ;;202.08
 ;;9002226.02101,"992,202.08 ",.02)
 ;;202.08
 ;;9002226.02101,"992,202.1 ",.01)
 ;;202.1
 ;;9002226.02101,"992,202.1 ",.02)
 ;;202.1
 ;;9002226.02101,"992,202.10 ",.01)
 ;;202.10
 ;;9002226.02101,"992,202.10 ",.02)
 ;;202.10
 ;;9002226.02101,"992,202.11 ",.01)
 ;;202.11
 ;;9002226.02101,"992,202.11 ",.02)
 ;;202.11
 ;;9002226.02101,"992,202.12 ",.01)
 ;;202.12
 ;;9002226.02101,"992,202.12 ",.02)
 ;;202.12
 ;;9002226.02101,"992,202.13 ",.01)
 ;;202.13
 ;;9002226.02101,"992,202.13 ",.02)
 ;;202.13
 ;;9002226.02101,"992,202.14 ",.01)
 ;;202.14
 ;;9002226.02101,"992,202.14 ",.02)
 ;;202.14
 ;;9002226.02101,"992,202.15 ",.01)
 ;;202.15
 ;;9002226.02101,"992,202.15 ",.02)
 ;;202.15
 ;;9002226.02101,"992,202.16 ",.01)
 ;;202.16