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