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

BGPM5AOL.m

Go to the documentation of this file.
  1. BGPM5AOL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"993,802.25 ",.01)
  1. ;;802.25
  1. ;;9002226.02101,"993,802.25 ",.02)
  1. ;;802.25
  1. ;;9002226.02101,"993,802.26 ",.01)
  1. ;;802.26
  1. ;;9002226.02101,"993,802.26 ",.02)
  1. ;;802.26
  1. ;;9002226.02101,"993,802.27 ",.01)
  1. ;;802.27
  1. ;;9002226.02101,"993,802.27 ",.02)
  1. ;;802.27
  1. ;;9002226.02101,"993,802.28 ",.01)
  1. ;;802.28
  1. ;;9002226.02101,"993,802.28 ",.02)
  1. ;;802.28
  1. ;;9002226.02101,"993,802.29 ",.01)
  1. ;;802.29
  1. ;;9002226.02101,"993,802.29 ",.02)
  1. ;;802.29
  1. ;;9002226.02101,"993,802.3 ",.01)
  1. ;;802.3
  1. ;;9002226.02101,"993,802.3 ",.02)
  1. ;;802.3
  1. ;;9002226.02101,"993,802.30 ",.01)
  1. ;;802.30
  1. ;;9002226.02101,"993,802.30 ",.02)
  1. ;;802.30
  1. ;;9002226.02101,"993,802.31 ",.01)
  1. ;;802.31
  1. ;;9002226.02101,"993,802.31 ",.02)
  1. ;;802.31
  1. ;;9002226.02101,"993,802.32 ",.01)
  1. ;;802.32
  1. ;;9002226.02101,"993,802.32 ",.02)
  1. ;;802.32
  1. ;;9002226.02101,"993,802.33 ",.01)
  1. ;;802.33
  1. ;;9002226.02101,"993,802.33 ",.02)
  1. ;;802.33
  1. ;;9002226.02101,"993,802.34 ",.01)
  1. ;;802.34
  1. ;;9002226.02101,"993,802.34 ",.02)
  1. ;;802.34
  1. ;;9002226.02101,"993,802.35 ",.01)
  1. ;;802.35
  1. ;;9002226.02101,"993,802.35 ",.02)
  1. ;;802.35
  1. ;;9002226.02101,"993,802.36 ",.01)
  1. ;;802.36
  1. ;;9002226.02101,"993,802.36 ",.02)
  1. ;;802.36
  1. ;;9002226.02101,"993,802.37 ",.01)
  1. ;;802.37
  1. ;;9002226.02101,"993,802.37 ",.02)
  1. ;;802.37
  1. ;;9002226.02101,"993,802.38 ",.01)
  1. ;;802.38
  1. ;;9002226.02101,"993,802.38 ",.02)
  1. ;;802.38
  1. ;;9002226.02101,"993,802.39 ",.01)
  1. ;;802.39
  1. ;;9002226.02101,"993,802.39 ",.02)
  1. ;;802.39
  1. ;;9002226.02101,"993,802.4 ",.01)
  1. ;;802.4
  1. ;;9002226.02101,"993,802.4 ",.02)
  1. ;;802.4
  1. ;;9002226.02101,"993,802.5 ",.01)
  1. ;;802.5
  1. ;;9002226.02101,"993,802.5 ",.02)
  1. ;;802.5
  1. ;;9002226.02101,"993,802.6 ",.01)
  1. ;;802.6
  1. ;;9002226.02101,"993,802.6 ",.02)
  1. ;;802.6
  1. ;;9002226.02101,"993,802.7 ",.01)
  1. ;;802.7
  1. ;;9002226.02101,"993,802.7 ",.02)
  1. ;;802.7
  1. ;;9002226.02101,"993,802.8 ",.01)
  1. ;;802.8
  1. ;;9002226.02101,"993,802.8 ",.02)
  1. ;;802.8
  1. ;;9002226.02101,"993,802.9 ",.01)
  1. ;;802.9
  1. ;;9002226.02101,"993,802.9 ",.02)
  1. ;;802.9
  1. ;;9002226.02101,"993,803 ",.01)
  1. ;;803
  1. ;;9002226.02101,"993,803 ",.02)
  1. ;;803
  1. ;;9002226.02101,"993,803.0 ",.01)
  1. ;;803.0
  1. ;;9002226.02101,"993,803.0 ",.02)
  1. ;;803.0
  1. ;;9002226.02101,"993,803.00 ",.01)
  1. ;;803.00
  1. ;;9002226.02101,"993,803.00 ",.02)
  1. ;;803.00
  1. ;;9002226.02101,"993,803.01 ",.01)
  1. ;;803.01
  1. ;;9002226.02101,"993,803.01 ",.02)
  1. ;;803.01
  1. ;;9002226.02101,"993,803.02 ",.01)
  1. ;;803.02
  1. ;;9002226.02101,"993,803.02 ",.02)
  1. ;;803.02
  1. ;;9002226.02101,"993,803.03 ",.01)
  1. ;;803.03
  1. ;;9002226.02101,"993,803.03 ",.02)
  1. ;;803.03
  1. ;;9002226.02101,"993,803.04 ",.01)
  1. ;;803.04
  1. ;;9002226.02101,"993,803.04 ",.02)
  1. ;;803.04
  1. ;;9002226.02101,"993,803.05 ",.01)
  1. ;;803.05
  1. ;;9002226.02101,"993,803.05 ",.02)
  1. ;;803.05
  1. ;;9002226.02101,"993,803.06 ",.01)
  1. ;;803.06
  1. ;;9002226.02101,"993,803.06 ",.02)
  1. ;;803.06
  1. ;;9002226.02101,"993,803.09 ",.01)
  1. ;;803.09
  1. ;;9002226.02101,"993,803.09 ",.02)
  1. ;;803.09
  1. ;;9002226.02101,"993,803.1 ",.01)
  1. ;;803.1
  1. ;;9002226.02101,"993,803.1 ",.02)
  1. ;;803.1
  1. ;;9002226.02101,"993,803.10 ",.01)
  1. ;;803.10
  1. ;;9002226.02101,"993,803.10 ",.02)
  1. ;;803.10
  1. ;;9002226.02101,"993,803.11 ",.01)
  1. ;;803.11
  1. ;;9002226.02101,"993,803.11 ",.02)
  1. ;;803.11
  1. ;;9002226.02101,"993,803.12 ",.01)
  1. ;;803.12
  1. ;;9002226.02101,"993,803.12 ",.02)
  1. ;;803.12
  1. ;;9002226.02101,"993,803.13 ",.01)
  1. ;;803.13
  1. ;;9002226.02101,"993,803.13 ",.02)
  1. ;;803.13
  1. ;;9002226.02101,"993,803.14 ",.01)
  1. ;;803.14
  1. ;;9002226.02101,"993,803.14 ",.02)
  1. ;;803.14
  1. ;;9002226.02101,"993,803.15 ",.01)
  1. ;;803.15
  1. ;;9002226.02101,"993,803.15 ",.02)
  1. ;;803.15
  1. ;;9002226.02101,"993,803.16 ",.01)
  1. ;;803.16
  1. ;;9002226.02101,"993,803.16 ",.02)
  1. ;;803.16
  1. ;;9002226.02101,"993,803.19 ",.01)
  1. ;;803.19
  1. ;;9002226.02101,"993,803.19 ",.02)
  1. ;;803.19
  1. ;;9002226.02101,"993,803.2 ",.01)
  1. ;;803.2
  1. ;;9002226.02101,"993,803.2 ",.02)
  1. ;;803.2
  1. ;;9002226.02101,"993,803.20 ",.01)
  1. ;;803.20
  1. ;;9002226.02101,"993,803.20 ",.02)
  1. ;;803.20
  1. ;;9002226.02101,"993,803.21 ",.01)
  1. ;;803.21
  1. ;;9002226.02101,"993,803.21 ",.02)
  1. ;;803.21
  1. ;;9002226.02101,"993,803.22 ",.01)
  1. ;;803.22
  1. ;;9002226.02101,"993,803.22 ",.02)
  1. ;;803.22
  1. ;;9002226.02101,"993,803.23 ",.01)
  1. ;;803.23
  1. ;;9002226.02101,"993,803.23 ",.02)
  1. ;;803.23
  1. ;;9002226.02101,"993,803.24 ",.01)
  1. ;;803.24
  1. ;;9002226.02101,"993,803.24 ",.02)
  1. ;;803.24
  1. ;;9002226.02101,"993,803.25 ",.01)
  1. ;;803.25
  1. ;;9002226.02101,"993,803.25 ",.02)
  1. ;;803.25
  1. ;;9002226.02101,"993,803.26 ",.01)
  1. ;;803.26
  1. ;;9002226.02101,"993,803.26 ",.02)
  1. ;;803.26
  1. ;;9002226.02101,"993,803.29 ",.01)
  1. ;;803.29
  1. ;;9002226.02101,"993,803.29 ",.02)
  1. ;;803.29
  1. ;;9002226.02101,"993,803.3 ",.01)
  1. ;;803.3
  1. ;;9002226.02101,"993,803.3 ",.02)
  1. ;;803.3
  1. ;;9002226.02101,"993,803.30 ",.01)
  1. ;;803.30
  1. ;;9002226.02101,"993,803.30 ",.02)
  1. ;;803.30
  1. ;;9002226.02101,"993,803.31 ",.01)
  1. ;;803.31
  1. ;;9002226.02101,"993,803.31 ",.02)
  1. ;;803.31
  1. ;;9002226.02101,"993,803.32 ",.01)
  1. ;;803.32
  1. ;;9002226.02101,"993,803.32 ",.02)
  1. ;;803.32
  1. ;;9002226.02101,"993,803.33 ",.01)
  1. ;;803.33
  1. ;;9002226.02101,"993,803.33 ",.02)
  1. ;;803.33
  1. ;;9002226.02101,"993,803.34 ",.01)
  1. ;;803.34
  1. ;;9002226.02101,"993,803.34 ",.02)
  1. ;;803.34
  1. ;;9002226.02101,"993,803.35 ",.01)
  1. ;;803.35
  1. ;;9002226.02101,"993,803.35 ",.02)
  1. ;;803.35
  1. ;;9002226.02101,"993,803.36 ",.01)
  1. ;;803.36
  1. ;;9002226.02101,"993,803.36 ",.02)
  1. ;;803.36
  1. ;;9002226.02101,"993,803.39 ",.01)
  1. ;;803.39
  1. ;;9002226.02101,"993,803.39 ",.02)
  1. ;;803.39
  1. ;;9002226.02101,"993,803.4 ",.01)
  1. ;;803.4
  1. ;;9002226.02101,"993,803.4 ",.02)
  1. ;;803.4
  1. ;;9002226.02101,"993,803.40 ",.01)
  1. ;;803.40
  1. ;;9002226.02101,"993,803.40 ",.02)
  1. ;;803.40
  1. ;;9002226.02101,"993,803.41 ",.01)
  1. ;;803.41
  1. ;;9002226.02101,"993,803.41 ",.02)
  1. ;;803.41
  1. ;;9002226.02101,"993,803.42 ",.01)
  1. ;;803.42
  1. ;;9002226.02101,"993,803.42 ",.02)
  1. ;;803.42
  1. ;;9002226.02101,"993,803.43 ",.01)
  1. ;;803.43
  1. ;;9002226.02101,"993,803.43 ",.02)
  1. ;;803.43
  1. ;;9002226.02101,"993,803.44 ",.01)
  1. ;;803.44
  1. ;;9002226.02101,"993,803.44 ",.02)
  1. ;;803.44
  1. ;;9002226.02101,"993,803.45 ",.01)
  1. ;;803.45
  1. ;;9002226.02101,"993,803.45 ",.02)
  1. ;;803.45
  1. ;;9002226.02101,"993,803.46 ",.01)
  1. ;;803.46
  1. ;;9002226.02101,"993,803.46 ",.02)
  1. ;;803.46
  1. ;;9002226.02101,"993,803.49 ",.01)
  1. ;;803.49
  1. ;;9002226.02101,"993,803.49 ",.02)
  1. ;;803.49
  1. ;;9002226.02101,"993,803.5 ",.01)
  1. ;;803.5
  1. ;;9002226.02101,"993,803.5 ",.02)
  1. ;;803.5
  1. ;;9002226.02101,"993,803.50 ",.01)
  1. ;;803.50
  1. ;;9002226.02101,"993,803.50 ",.02)
  1. ;;803.50
  1. ;;9002226.02101,"993,803.51 ",.01)
  1. ;;803.51
  1. ;;9002226.02101,"993,803.51 ",.02)
  1. ;;803.51
  1. ;;9002226.02101,"993,803.52 ",.01)
  1. ;;803.52
  1. ;;9002226.02101,"993,803.52 ",.02)
  1. ;;803.52
  1. ;;9002226.02101,"993,803.53 ",.01)
  1. ;;803.53
  1. ;;9002226.02101,"993,803.53 ",.02)
  1. ;;803.53
  1. ;;9002226.02101,"993,803.54 ",.01)
  1. ;;803.54
  1. ;;9002226.02101,"993,803.54 ",.02)
  1. ;;803.54
  1. ;;9002226.02101,"993,803.55 ",.01)
  1. ;;803.55
  1. ;;9002226.02101,"993,803.55 ",.02)
  1. ;;803.55
  1. ;;9002226.02101,"993,803.56 ",.01)
  1. ;;803.56
  1. ;;9002226.02101,"993,803.56 ",.02)
  1. ;;803.56
  1. ;;9002226.02101,"993,803.59 ",.01)
  1. ;;803.59
  1. ;;9002226.02101,"993,803.59 ",.02)
  1. ;;803.59
  1. ;;9002226.02101,"993,803.6 ",.01)
  1. ;;803.6
  1. ;;9002226.02101,"993,803.6 ",.02)
  1. ;;803.6
  1. ;;9002226.02101,"993,803.60 ",.01)
  1. ;;803.60
  1. ;;9002226.02101,"993,803.60 ",.02)
  1. ;;803.60
  1. ;;9002226.02101,"993,803.61 ",.01)
  1. ;;803.61
  1. ;;9002226.02101,"993,803.61 ",.02)
  1. ;;803.61
  1. ;;9002226.02101,"993,803.62 ",.01)
  1. ;;803.62
  1. ;;9002226.02101,"993,803.62 ",.02)
  1. ;;803.62
  1. ;;9002226.02101,"993,803.63 ",.01)
  1. ;;803.63
  1. ;;9002226.02101,"993,803.63 ",.02)
  1. ;;803.63
  1. ;;9002226.02101,"993,803.64 ",.01)
  1. ;;803.64
  1. ;;9002226.02101,"993,803.64 ",.02)
  1. ;;803.64
  1. ;;9002226.02101,"993,803.65 ",.01)
  1. ;;803.65
  1. ;;9002226.02101,"993,803.65 ",.02)
  1. ;;803.65
  1. ;;9002226.02101,"993,803.66 ",.01)
  1. ;;803.66
  1. ;;9002226.02101,"993,803.66 ",.02)
  1. ;;803.66
  1. ;;9002226.02101,"993,803.69 ",.01)
  1. ;;803.69
  1. ;;9002226.02101,"993,803.69 ",.02)
  1. ;;803.69
  1. ;;9002226.02101,"993,803.7 ",.01)
  1. ;;803.7
  1. ;;9002226.02101,"993,803.7 ",.02)
  1. ;;803.7
  1. ;;9002226.02101,"993,803.70 ",.01)
  1. ;;803.70
  1. ;;9002226.02101,"993,803.70 ",.02)
  1. ;;803.70
  1. ;;9002226.02101,"993,803.71 ",.01)
  1. ;;803.71
  1. ;;9002226.02101,"993,803.71 ",.02)
  1. ;;803.71
  1. ;;9002226.02101,"993,803.72 ",.01)
  1. ;;803.72
  1. ;;9002226.02101,"993,803.72 ",.02)
  1. ;;803.72
  1. ;;9002226.02101,"993,803.73 ",.01)
  1. ;;803.73
  1. ;;9002226.02101,"993,803.73 ",.02)
  1. ;;803.73
  1. ;;9002226.02101,"993,803.74 ",.01)
  1. ;;803.74
  1. ;;9002226.02101,"993,803.74 ",.02)
  1. ;;803.74
  1. ;;9002226.02101,"993,803.75 ",.01)
  1. ;;803.75
  1. ;;9002226.02101,"993,803.75 ",.02)
  1. ;;803.75
  1. ;;9002226.02101,"993,803.76 ",.01)
  1. ;;803.76
  1. ;;9002226.02101,"993,803.76 ",.02)
  1. ;;803.76
  1. ;;9002226.02101,"993,803.79 ",.01)
  1. ;;803.79
  1. ;;9002226.02101,"993,803.79 ",.02)
  1. ;;803.79
  1. ;;9002226.02101,"993,803.8 ",.01)
  1. ;;803.8
  1. ;;9002226.02101,"993,803.8 ",.02)
  1. ;;803.8
  1. ;;9002226.02101,"993,803.80 ",.01)
  1. ;;803.80
  1. ;;9002226.02101,"993,803.80 ",.02)
  1. ;;803.80
  1. ;;9002226.02101,"993,803.81 ",.01)
  1. ;;803.81
  1. ;;9002226.02101,"993,803.81 ",.02)
  1. ;;803.81
  1. ;;9002226.02101,"993,803.82 ",.01)
  1. ;;803.82
  1. ;;9002226.02101,"993,803.82 ",.02)
  1. ;;803.82
  1. ;;9002226.02101,"993,803.83 ",.01)
  1. ;;803.83
  1. ;;9002226.02101,"993,803.83 ",.02)
  1. ;;803.83
  1. ;;9002226.02101,"993,803.84 ",.01)
  1. ;;803.84
  1. ;;9002226.02101,"993,803.84 ",.02)
  1. ;;803.84
  1. ;;9002226.02101,"993,803.85 ",.01)
  1. ;;803.85
  1. ;;9002226.02101,"993,803.85 ",.02)
  1. ;;803.85
  1. ;;9002226.02101,"993,803.86 ",.01)
  1. ;;803.86
  1. ;;9002226.02101,"993,803.86 ",.02)
  1. ;;803.86
  1. ;;9002226.02101,"993,803.89 ",.01)
  1. ;;803.89
  1. ;;9002226.02101,"993,803.89 ",.02)
  1. ;;803.89
  1. ;;9002226.02101,"993,803.9 ",.01)
  1. ;;803.9
  1. ;;9002226.02101,"993,803.9 ",.02)
  1. ;;803.9
  1. ;;9002226.02101,"993,803.90 ",.01)
  1. ;;803.90
  1. ;;9002226.02101,"993,803.90 ",.02)
  1. ;;803.90
  1. ;;9002226.02101,"993,803.91 ",.01)
  1. ;;803.91
  1. ;;9002226.02101,"993,803.91 ",.02)
  1. ;;803.91
  1. ;;9002226.02101,"993,803.92 ",.01)
  1. ;;803.92
  1. ;;9002226.02101,"993,803.92 ",.02)
  1. ;;803.92
  1. ;;9002226.02101,"993,803.93 ",.01)
  1. ;;803.93
  1. ;;9002226.02101,"993,803.93 ",.02)
  1. ;;803.93
  1. ;;9002226.02101,"993,803.94 ",.01)
  1. ;;803.94
  1. ;;9002226.02101,"993,803.94 ",.02)
  1. ;;803.94
  1. ;;9002226.02101,"993,803.95 ",.01)
  1. ;;803.95
  1. ;;9002226.02101,"993,803.95 ",.02)
  1. ;;803.95
  1. ;;9002226.02101,"993,803.96 ",.01)
  1. ;;803.96
  1. ;;9002226.02101,"993,803.96 ",.02)
  1. ;;803.96
  1. ;;9002226.02101,"993,803.99 ",.01)
  1. ;;803.99
  1. ;;9002226.02101,"993,803.99 ",.02)
  1. ;;803.99
  1. ;;9002226.02101,"993,804 ",.01)
  1. ;;804
  1. ;;9002226.02101,"993,804 ",.02)
  1. ;;804
  1. ;;9002226.02101,"993,804.0 ",.01)
  1. ;;804.0
  1. ;;9002226.02101,"993,804.0 ",.02)
  1. ;;804.0
  1. ;;9002226.02101,"993,804.00 ",.01)
  1. ;;804.00
  1. ;;9002226.02101,"993,804.00 ",.02)
  1. ;;804.00
  1. ;;9002226.02101,"993,804.01 ",.01)
  1. ;;804.01
  1. ;;9002226.02101,"993,804.01 ",.02)
  1. ;;804.01
  1. ;;9002226.02101,"993,804.02 ",.01)
  1. ;;804.02
  1. ;;9002226.02101,"993,804.02 ",.02)
  1. ;;804.02
  1. ;;9002226.02101,"993,804.03 ",.01)
  1. ;;804.03
  1. ;;9002226.02101,"993,804.03 ",.02)
  1. ;;804.03
  1. ;;9002226.02101,"993,804.04 ",.01)
  1. ;;804.04
  1. ;;9002226.02101,"993,804.04 ",.02)
  1. ;;804.04
  1. ;;9002226.02101,"993,804.05 ",.01)
  1. ;;804.05
  1. ;;9002226.02101,"993,804.05 ",.02)
  1. ;;804.05
  1. ;;9002226.02101,"993,804.06 ",.01)
  1. ;;804.06
  1. ;;9002226.02101,"993,804.06 ",.02)
  1. ;;804.06
  1. ;;9002226.02101,"993,804.09 ",.01)
  1. ;;804.09