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

BGPM5AOK.m

Go to the documentation of this file.
BGPM5AOK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"993,800.73 ",.02)
 ;;800.73
 ;;9002226.02101,"993,800.74 ",.01)
 ;;800.74
 ;;9002226.02101,"993,800.74 ",.02)
 ;;800.74
 ;;9002226.02101,"993,800.75 ",.01)
 ;;800.75
 ;;9002226.02101,"993,800.75 ",.02)
 ;;800.75
 ;;9002226.02101,"993,800.76 ",.01)
 ;;800.76
 ;;9002226.02101,"993,800.76 ",.02)
 ;;800.76
 ;;9002226.02101,"993,800.79 ",.01)
 ;;800.79
 ;;9002226.02101,"993,800.79 ",.02)
 ;;800.79
 ;;9002226.02101,"993,800.8 ",.01)
 ;;800.8
 ;;9002226.02101,"993,800.8 ",.02)
 ;;800.8
 ;;9002226.02101,"993,800.80 ",.01)
 ;;800.80
 ;;9002226.02101,"993,800.80 ",.02)
 ;;800.80
 ;;9002226.02101,"993,800.81 ",.01)
 ;;800.81
 ;;9002226.02101,"993,800.81 ",.02)
 ;;800.81
 ;;9002226.02101,"993,800.82 ",.01)
 ;;800.82
 ;;9002226.02101,"993,800.82 ",.02)
 ;;800.82
 ;;9002226.02101,"993,800.83 ",.01)
 ;;800.83
 ;;9002226.02101,"993,800.83 ",.02)
 ;;800.83
 ;;9002226.02101,"993,800.84 ",.01)
 ;;800.84
 ;;9002226.02101,"993,800.84 ",.02)
 ;;800.84
 ;;9002226.02101,"993,800.85 ",.01)
 ;;800.85
 ;;9002226.02101,"993,800.85 ",.02)
 ;;800.85
 ;;9002226.02101,"993,800.86 ",.01)
 ;;800.86
 ;;9002226.02101,"993,800.86 ",.02)
 ;;800.86
 ;;9002226.02101,"993,800.89 ",.01)
 ;;800.89
 ;;9002226.02101,"993,800.89 ",.02)
 ;;800.89
 ;;9002226.02101,"993,800.9 ",.01)
 ;;800.9
 ;;9002226.02101,"993,800.9 ",.02)
 ;;800.9
 ;;9002226.02101,"993,800.90 ",.01)
 ;;800.90
 ;;9002226.02101,"993,800.90 ",.02)
 ;;800.90
 ;;9002226.02101,"993,800.91 ",.01)
 ;;800.91
 ;;9002226.02101,"993,800.91 ",.02)
 ;;800.91
 ;;9002226.02101,"993,800.92 ",.01)
 ;;800.92
 ;;9002226.02101,"993,800.92 ",.02)
 ;;800.92
 ;;9002226.02101,"993,800.93 ",.01)
 ;;800.93
 ;;9002226.02101,"993,800.93 ",.02)
 ;;800.93
 ;;9002226.02101,"993,800.94 ",.01)
 ;;800.94
 ;;9002226.02101,"993,800.94 ",.02)
 ;;800.94
 ;;9002226.02101,"993,800.95 ",.01)
 ;;800.95
 ;;9002226.02101,"993,800.95 ",.02)
 ;;800.95
 ;;9002226.02101,"993,800.96 ",.01)
 ;;800.96
 ;;9002226.02101,"993,800.96 ",.02)
 ;;800.96
 ;;9002226.02101,"993,800.99 ",.01)
 ;;800.99
 ;;9002226.02101,"993,800.99 ",.02)
 ;;800.99
 ;;9002226.02101,"993,801 ",.01)
 ;;801
 ;;9002226.02101,"993,801 ",.02)
 ;;801
 ;;9002226.02101,"993,801.0 ",.01)
 ;;801.0
 ;;9002226.02101,"993,801.0 ",.02)
 ;;801.0
 ;;9002226.02101,"993,801.00 ",.01)
 ;;801.00
 ;;9002226.02101,"993,801.00 ",.02)
 ;;801.00
 ;;9002226.02101,"993,801.01 ",.01)
 ;;801.01
 ;;9002226.02101,"993,801.01 ",.02)
 ;;801.01
 ;;9002226.02101,"993,801.02 ",.01)
 ;;801.02
 ;;9002226.02101,"993,801.02 ",.02)
 ;;801.02
 ;;9002226.02101,"993,801.03 ",.01)
 ;;801.03
 ;;9002226.02101,"993,801.03 ",.02)
 ;;801.03
 ;;9002226.02101,"993,801.04 ",.01)
 ;;801.04
 ;;9002226.02101,"993,801.04 ",.02)
 ;;801.04
 ;;9002226.02101,"993,801.05 ",.01)
 ;;801.05
 ;;9002226.02101,"993,801.05 ",.02)
 ;;801.05
 ;;9002226.02101,"993,801.06 ",.01)
 ;;801.06
 ;;9002226.02101,"993,801.06 ",.02)
 ;;801.06
 ;;9002226.02101,"993,801.09 ",.01)
 ;;801.09
 ;;9002226.02101,"993,801.09 ",.02)
 ;;801.09
 ;;9002226.02101,"993,801.1 ",.01)
 ;;801.1
 ;;9002226.02101,"993,801.1 ",.02)
 ;;801.1
 ;;9002226.02101,"993,801.10 ",.01)
 ;;801.10
 ;;9002226.02101,"993,801.10 ",.02)
 ;;801.10
 ;;9002226.02101,"993,801.11 ",.01)
 ;;801.11
 ;;9002226.02101,"993,801.11 ",.02)
 ;;801.11
 ;;9002226.02101,"993,801.12 ",.01)
 ;;801.12
 ;;9002226.02101,"993,801.12 ",.02)
 ;;801.12
 ;;9002226.02101,"993,801.13 ",.01)
 ;;801.13
 ;;9002226.02101,"993,801.13 ",.02)
 ;;801.13
 ;;9002226.02101,"993,801.14 ",.01)
 ;;801.14
 ;;9002226.02101,"993,801.14 ",.02)
 ;;801.14
 ;;9002226.02101,"993,801.15 ",.01)
 ;;801.15
 ;;9002226.02101,"993,801.15 ",.02)
 ;;801.15
 ;;9002226.02101,"993,801.16 ",.01)
 ;;801.16
 ;;9002226.02101,"993,801.16 ",.02)
 ;;801.16
 ;;9002226.02101,"993,801.19 ",.01)
 ;;801.19
 ;;9002226.02101,"993,801.19 ",.02)
 ;;801.19
 ;;9002226.02101,"993,801.2 ",.01)
 ;;801.2
 ;;9002226.02101,"993,801.2 ",.02)
 ;;801.2
 ;;9002226.02101,"993,801.20 ",.01)
 ;;801.20
 ;;9002226.02101,"993,801.20 ",.02)
 ;;801.20
 ;;9002226.02101,"993,801.21 ",.01)
 ;;801.21
 ;;9002226.02101,"993,801.21 ",.02)
 ;;801.21
 ;;9002226.02101,"993,801.22 ",.01)
 ;;801.22
 ;;9002226.02101,"993,801.22 ",.02)
 ;;801.22
 ;;9002226.02101,"993,801.23 ",.01)
 ;;801.23
 ;;9002226.02101,"993,801.23 ",.02)
 ;;801.23
 ;;9002226.02101,"993,801.24 ",.01)
 ;;801.24
 ;;9002226.02101,"993,801.24 ",.02)
 ;;801.24
 ;;9002226.02101,"993,801.25 ",.01)
 ;;801.25
 ;;9002226.02101,"993,801.25 ",.02)
 ;;801.25
 ;;9002226.02101,"993,801.26 ",.01)
 ;;801.26
 ;;9002226.02101,"993,801.26 ",.02)
 ;;801.26
 ;;9002226.02101,"993,801.29 ",.01)
 ;;801.29
 ;;9002226.02101,"993,801.29 ",.02)
 ;;801.29
 ;;9002226.02101,"993,801.3 ",.01)
 ;;801.3
 ;;9002226.02101,"993,801.3 ",.02)
 ;;801.3
 ;;9002226.02101,"993,801.30 ",.01)
 ;;801.30
 ;;9002226.02101,"993,801.30 ",.02)
 ;;801.30
 ;;9002226.02101,"993,801.31 ",.01)
 ;;801.31
 ;;9002226.02101,"993,801.31 ",.02)
 ;;801.31
 ;;9002226.02101,"993,801.32 ",.01)
 ;;801.32
 ;;9002226.02101,"993,801.32 ",.02)
 ;;801.32
 ;;9002226.02101,"993,801.33 ",.01)
 ;;801.33
 ;;9002226.02101,"993,801.33 ",.02)
 ;;801.33
 ;;9002226.02101,"993,801.34 ",.01)
 ;;801.34
 ;;9002226.02101,"993,801.34 ",.02)
 ;;801.34
 ;;9002226.02101,"993,801.35 ",.01)
 ;;801.35
 ;;9002226.02101,"993,801.35 ",.02)
 ;;801.35
 ;;9002226.02101,"993,801.36 ",.01)
 ;;801.36
 ;;9002226.02101,"993,801.36 ",.02)
 ;;801.36
 ;;9002226.02101,"993,801.39 ",.01)
 ;;801.39
 ;;9002226.02101,"993,801.39 ",.02)
 ;;801.39
 ;;9002226.02101,"993,801.4 ",.01)
 ;;801.4
 ;;9002226.02101,"993,801.4 ",.02)
 ;;801.4
 ;;9002226.02101,"993,801.40 ",.01)
 ;;801.40
 ;;9002226.02101,"993,801.40 ",.02)
 ;;801.40
 ;;9002226.02101,"993,801.41 ",.01)
 ;;801.41
 ;;9002226.02101,"993,801.41 ",.02)
 ;;801.41
 ;;9002226.02101,"993,801.42 ",.01)
 ;;801.42
 ;;9002226.02101,"993,801.42 ",.02)
 ;;801.42
 ;;9002226.02101,"993,801.43 ",.01)
 ;;801.43
 ;;9002226.02101,"993,801.43 ",.02)
 ;;801.43
 ;;9002226.02101,"993,801.44 ",.01)
 ;;801.44
 ;;9002226.02101,"993,801.44 ",.02)
 ;;801.44
 ;;9002226.02101,"993,801.45 ",.01)
 ;;801.45
 ;;9002226.02101,"993,801.45 ",.02)
 ;;801.45
 ;;9002226.02101,"993,801.46 ",.01)
 ;;801.46
 ;;9002226.02101,"993,801.46 ",.02)
 ;;801.46
 ;;9002226.02101,"993,801.49 ",.01)
 ;;801.49
 ;;9002226.02101,"993,801.49 ",.02)
 ;;801.49
 ;;9002226.02101,"993,801.5 ",.01)
 ;;801.5
 ;;9002226.02101,"993,801.5 ",.02)
 ;;801.5
 ;;9002226.02101,"993,801.50 ",.01)
 ;;801.50
 ;;9002226.02101,"993,801.50 ",.02)
 ;;801.50
 ;;9002226.02101,"993,801.51 ",.01)
 ;;801.51
 ;;9002226.02101,"993,801.51 ",.02)
 ;;801.51
 ;;9002226.02101,"993,801.52 ",.01)
 ;;801.52
 ;;9002226.02101,"993,801.52 ",.02)
 ;;801.52
 ;;9002226.02101,"993,801.53 ",.01)
 ;;801.53
 ;;9002226.02101,"993,801.53 ",.02)
 ;;801.53
 ;;9002226.02101,"993,801.54 ",.01)
 ;;801.54
 ;;9002226.02101,"993,801.54 ",.02)
 ;;801.54
 ;;9002226.02101,"993,801.55 ",.01)
 ;;801.55
 ;;9002226.02101,"993,801.55 ",.02)
 ;;801.55
 ;;9002226.02101,"993,801.56 ",.01)
 ;;801.56
 ;;9002226.02101,"993,801.56 ",.02)
 ;;801.56
 ;;9002226.02101,"993,801.59 ",.01)
 ;;801.59
 ;;9002226.02101,"993,801.59 ",.02)
 ;;801.59
 ;;9002226.02101,"993,801.6 ",.01)
 ;;801.6
 ;;9002226.02101,"993,801.6 ",.02)
 ;;801.6
 ;;9002226.02101,"993,801.60 ",.01)
 ;;801.60
 ;;9002226.02101,"993,801.60 ",.02)
 ;;801.60
 ;;9002226.02101,"993,801.61 ",.01)
 ;;801.61
 ;;9002226.02101,"993,801.61 ",.02)
 ;;801.61
 ;;9002226.02101,"993,801.62 ",.01)
 ;;801.62
 ;;9002226.02101,"993,801.62 ",.02)
 ;;801.62
 ;;9002226.02101,"993,801.63 ",.01)
 ;;801.63
 ;;9002226.02101,"993,801.63 ",.02)
 ;;801.63
 ;;9002226.02101,"993,801.64 ",.01)
 ;;801.64
 ;;9002226.02101,"993,801.64 ",.02)
 ;;801.64
 ;;9002226.02101,"993,801.65 ",.01)
 ;;801.65
 ;;9002226.02101,"993,801.65 ",.02)
 ;;801.65
 ;;9002226.02101,"993,801.66 ",.01)
 ;;801.66
 ;;9002226.02101,"993,801.66 ",.02)
 ;;801.66
 ;;9002226.02101,"993,801.69 ",.01)
 ;;801.69
 ;;9002226.02101,"993,801.69 ",.02)
 ;;801.69
 ;;9002226.02101,"993,801.7 ",.01)
 ;;801.7
 ;;9002226.02101,"993,801.7 ",.02)
 ;;801.7
 ;;9002226.02101,"993,801.70 ",.01)
 ;;801.70
 ;;9002226.02101,"993,801.70 ",.02)
 ;;801.70
 ;;9002226.02101,"993,801.71 ",.01)
 ;;801.71
 ;;9002226.02101,"993,801.71 ",.02)
 ;;801.71
 ;;9002226.02101,"993,801.72 ",.01)
 ;;801.72
 ;;9002226.02101,"993,801.72 ",.02)
 ;;801.72
 ;;9002226.02101,"993,801.73 ",.01)
 ;;801.73
 ;;9002226.02101,"993,801.73 ",.02)
 ;;801.73
 ;;9002226.02101,"993,801.74 ",.01)
 ;;801.74
 ;;9002226.02101,"993,801.74 ",.02)
 ;;801.74
 ;;9002226.02101,"993,801.75 ",.01)
 ;;801.75
 ;;9002226.02101,"993,801.75 ",.02)
 ;;801.75
 ;;9002226.02101,"993,801.76 ",.01)
 ;;801.76
 ;;9002226.02101,"993,801.76 ",.02)
 ;;801.76
 ;;9002226.02101,"993,801.79 ",.01)
 ;;801.79
 ;;9002226.02101,"993,801.79 ",.02)
 ;;801.79
 ;;9002226.02101,"993,801.8 ",.01)
 ;;801.8
 ;;9002226.02101,"993,801.8 ",.02)
 ;;801.8
 ;;9002226.02101,"993,801.80 ",.01)
 ;;801.80
 ;;9002226.02101,"993,801.80 ",.02)
 ;;801.80
 ;;9002226.02101,"993,801.81 ",.01)
 ;;801.81
 ;;9002226.02101,"993,801.81 ",.02)
 ;;801.81
 ;;9002226.02101,"993,801.82 ",.01)
 ;;801.82
 ;;9002226.02101,"993,801.82 ",.02)
 ;;801.82
 ;;9002226.02101,"993,801.83 ",.01)
 ;;801.83
 ;;9002226.02101,"993,801.83 ",.02)
 ;;801.83
 ;;9002226.02101,"993,801.84 ",.01)
 ;;801.84
 ;;9002226.02101,"993,801.84 ",.02)
 ;;801.84
 ;;9002226.02101,"993,801.85 ",.01)
 ;;801.85
 ;;9002226.02101,"993,801.85 ",.02)
 ;;801.85
 ;;9002226.02101,"993,801.86 ",.01)
 ;;801.86
 ;;9002226.02101,"993,801.86 ",.02)
 ;;801.86
 ;;9002226.02101,"993,801.89 ",.01)
 ;;801.89
 ;;9002226.02101,"993,801.89 ",.02)
 ;;801.89
 ;;9002226.02101,"993,801.9 ",.01)
 ;;801.9
 ;;9002226.02101,"993,801.9 ",.02)
 ;;801.9
 ;;9002226.02101,"993,801.90 ",.01)
 ;;801.90
 ;;9002226.02101,"993,801.90 ",.02)
 ;;801.90
 ;;9002226.02101,"993,801.91 ",.01)
 ;;801.91
 ;;9002226.02101,"993,801.91 ",.02)
 ;;801.91
 ;;9002226.02101,"993,801.92 ",.01)
 ;;801.92
 ;;9002226.02101,"993,801.92 ",.02)
 ;;801.92
 ;;9002226.02101,"993,801.93 ",.01)
 ;;801.93
 ;;9002226.02101,"993,801.93 ",.02)
 ;;801.93
 ;;9002226.02101,"993,801.94 ",.01)
 ;;801.94
 ;;9002226.02101,"993,801.94 ",.02)
 ;;801.94
 ;;9002226.02101,"993,801.95 ",.01)
 ;;801.95
 ;;9002226.02101,"993,801.95 ",.02)
 ;;801.95
 ;;9002226.02101,"993,801.96 ",.01)
 ;;801.96
 ;;9002226.02101,"993,801.96 ",.02)
 ;;801.96
 ;;9002226.02101,"993,801.99 ",.01)
 ;;801.99
 ;;9002226.02101,"993,801.99 ",.02)
 ;;801.99
 ;;9002226.02101,"993,802 ",.01)
 ;;802
 ;;9002226.02101,"993,802 ",.02)
 ;;802
 ;;9002226.02101,"993,802.0 ",.01)
 ;;802.0
 ;;9002226.02101,"993,802.0 ",.02)
 ;;802.0
 ;;9002226.02101,"993,802.1 ",.01)
 ;;802.1
 ;;9002226.02101,"993,802.1 ",.02)
 ;;802.1
 ;;9002226.02101,"993,802.2 ",.01)
 ;;802.2
 ;;9002226.02101,"993,802.2 ",.02)
 ;;802.2
 ;;9002226.02101,"993,802.20 ",.01)
 ;;802.20
 ;;9002226.02101,"993,802.20 ",.02)
 ;;802.20
 ;;9002226.02101,"993,802.21 ",.01)
 ;;802.21
 ;;9002226.02101,"993,802.21 ",.02)
 ;;802.21
 ;;9002226.02101,"993,802.22 ",.01)
 ;;802.22
 ;;9002226.02101,"993,802.22 ",.02)
 ;;802.22
 ;;9002226.02101,"993,802.23 ",.01)
 ;;802.23
 ;;9002226.02101,"993,802.23 ",.02)
 ;;802.23
 ;;9002226.02101,"993,802.24 ",.01)
 ;;802.24
 ;;9002226.02101,"993,802.24 ",.02)
 ;;802.24