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

BGPM5AOE.m

Go to the documentation of this file.
BGPM5AOE ;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,209.62 ",.02)
 ;;209.62
 ;;9002226.02101,"992,209.63 ",.01)
 ;;209.63
 ;;9002226.02101,"992,209.63 ",.02)
 ;;209.63
 ;;9002226.02101,"992,209.64 ",.01)
 ;;209.64
 ;;9002226.02101,"992,209.64 ",.02)
 ;;209.64
 ;;9002226.02101,"992,209.65 ",.01)
 ;;209.65
 ;;9002226.02101,"992,209.65 ",.02)
 ;;209.65
 ;;9002226.02101,"992,209.66 ",.01)
 ;;209.66
 ;;9002226.02101,"992,209.66 ",.02)
 ;;209.66
 ;;9002226.02101,"992,209.67 ",.01)
 ;;209.67
 ;;9002226.02101,"992,209.67 ",.02)
 ;;209.67
 ;;9002226.02101,"992,209.69 ",.01)
 ;;209.69
 ;;9002226.02101,"992,209.69 ",.02)
 ;;209.69
 ;;9002226.02101,"992,209.7 ",.01)
 ;;209.7
 ;;9002226.02101,"992,209.7 ",.02)
 ;;209.7
 ;;9002226.02101,"992,209.70 ",.01)
 ;;209.70
 ;;9002226.02101,"992,209.70 ",.02)
 ;;209.75
 ;;9002226.02101,"992,209.79 ",.01)
 ;;209.79
 ;;9002226.02101,"992,209.79 ",.02)
 ;;209.79
 ;;9002226.02101,"992,230 ",.01)
 ;;230
 ;;9002226.02101,"992,230 ",.02)
 ;;230
 ;;9002226.02101,"992,230.0 ",.01)
 ;;230.0
 ;;9002226.02101,"992,230.0 ",.02)
 ;;230.0
 ;;9002226.02101,"992,230.1 ",.01)
 ;;230.1
 ;;9002226.02101,"992,230.1 ",.02)
 ;;230.1
 ;;9002226.02101,"992,230.2 ",.01)
 ;;230.2
 ;;9002226.02101,"992,230.2 ",.02)
 ;;230.2
 ;;9002226.02101,"992,230.3 ",.01)
 ;;230.3
 ;;9002226.02101,"992,230.3 ",.02)
 ;;230.3
 ;;9002226.02101,"992,230.4 ",.01)
 ;;230.4
 ;;9002226.02101,"992,230.4 ",.02)
 ;;230.4
 ;;9002226.02101,"992,230.5 ",.01)
 ;;230.5
 ;;9002226.02101,"992,230.5 ",.02)
 ;;230.5
 ;;9002226.02101,"992,230.6 ",.01)
 ;;230.6
 ;;9002226.02101,"992,230.6 ",.02)
 ;;230.6
 ;;9002226.02101,"992,230.7 ",.01)
 ;;230.7
 ;;9002226.02101,"992,230.7 ",.02)
 ;;230.7
 ;;9002226.02101,"992,230.8 ",.01)
 ;;230.8
 ;;9002226.02101,"992,230.8 ",.02)
 ;;230.8
 ;;9002226.02101,"992,230.9 ",.01)
 ;;230.9
 ;;9002226.02101,"992,230.9 ",.02)
 ;;230.9
 ;;9002226.02101,"992,231 ",.01)
 ;;231
 ;;9002226.02101,"992,231 ",.02)
 ;;231
 ;;9002226.02101,"992,231.0 ",.01)
 ;;231.0
 ;;9002226.02101,"992,231.0 ",.02)
 ;;231.0
 ;;9002226.02101,"992,231.1 ",.01)
 ;;231.1
 ;;9002226.02101,"992,231.1 ",.02)
 ;;231.1
 ;;9002226.02101,"992,231.2 ",.01)
 ;;231.2
 ;;9002226.02101,"992,231.2 ",.02)
 ;;231.2
 ;;9002226.02101,"992,231.8 ",.01)
 ;;231.8
 ;;9002226.02101,"992,231.8 ",.02)
 ;;231.8
 ;;9002226.02101,"992,231.9 ",.01)
 ;;231.9
 ;;9002226.02101,"992,231.9 ",.02)
 ;;231.9
 ;;9002226.02101,"992,232 ",.01)
 ;;232
 ;;9002226.02101,"992,232 ",.02)
 ;;232
 ;;9002226.02101,"992,232.0 ",.01)
 ;;232.0
 ;;9002226.02101,"992,232.0 ",.02)
 ;;232.0
 ;;9002226.02101,"992,232.1 ",.01)
 ;;232.1
 ;;9002226.02101,"992,232.1 ",.02)
 ;;232.1
 ;;9002226.02101,"992,232.2 ",.01)
 ;;232.2
 ;;9002226.02101,"992,232.2 ",.02)
 ;;232.2
 ;;9002226.02101,"992,232.3 ",.01)
 ;;232.3
 ;;9002226.02101,"992,232.3 ",.02)
 ;;232.3
 ;;9002226.02101,"992,232.4 ",.01)
 ;;232.4
 ;;9002226.02101,"992,232.4 ",.02)
 ;;232.4
 ;;9002226.02101,"992,232.5 ",.01)
 ;;232.5
 ;;9002226.02101,"992,232.5 ",.02)
 ;;232.5
 ;;9002226.02101,"992,232.6 ",.01)
 ;;232.6
 ;;9002226.02101,"992,232.6 ",.02)
 ;;232.6
 ;;9002226.02101,"992,232.7 ",.01)
 ;;232.7
 ;;9002226.02101,"992,232.7 ",.02)
 ;;232.7
 ;;9002226.02101,"992,232.8 ",.01)
 ;;232.8
 ;;9002226.02101,"992,232.8 ",.02)
 ;;232.8
 ;;9002226.02101,"992,232.9 ",.01)
 ;;232.9
 ;;9002226.02101,"992,232.9 ",.02)
 ;;232.9
 ;;9002226.02101,"992,233 ",.01)
 ;;233
 ;;9002226.02101,"992,233 ",.02)
 ;;233
 ;;9002226.02101,"992,233.0 ",.01)
 ;;233.0
 ;;9002226.02101,"992,233.0 ",.02)
 ;;233.0
 ;;9002226.02101,"992,233.1 ",.01)
 ;;233.1
 ;;9002226.02101,"992,233.1 ",.02)
 ;;233.1
 ;;9002226.02101,"992,233.2 ",.01)
 ;;233.2
 ;;9002226.02101,"992,233.2 ",.02)
 ;;233.2
 ;;9002226.02101,"992,233.3 ",.01)
 ;;233.3
 ;;9002226.02101,"992,233.3 ",.02)
 ;;233.3
 ;;9002226.02101,"992,233.30 ",.01)
 ;;233.30
 ;;9002226.02101,"992,233.30 ",.02)
 ;;233.30
 ;;9002226.02101,"992,233.31 ",.01)
 ;;233.31
 ;;9002226.02101,"992,233.31 ",.02)
 ;;233.31
 ;;9002226.02101,"992,233.32 ",.01)
 ;;233.32
 ;;9002226.02101,"992,233.32 ",.02)
 ;;233.32
 ;;9002226.02101,"992,233.39 ",.01)
 ;;233.39
 ;;9002226.02101,"992,233.39 ",.02)
 ;;233.39
 ;;9002226.02101,"992,233.4 ",.01)
 ;;233.4
 ;;9002226.02101,"992,233.4 ",.02)
 ;;233.4
 ;;9002226.02101,"992,233.5 ",.01)
 ;;233.5
 ;;9002226.02101,"992,233.5 ",.02)
 ;;233.5
 ;;9002226.02101,"992,233.6 ",.01)
 ;;233.6
 ;;9002226.02101,"992,233.6 ",.02)
 ;;233.6
 ;;9002226.02101,"992,233.7 ",.01)
 ;;233.7
 ;;9002226.02101,"992,233.7 ",.02)
 ;;233.7
 ;;9002226.02101,"992,233.9 ",.01)
 ;;233.9
 ;;9002226.02101,"992,233.9 ",.02)
 ;;233.9
 ;;9002226.02101,"992,234 ",.01)
 ;;234
 ;;9002226.02101,"992,234 ",.02)
 ;;234
 ;;9002226.02101,"992,234.0 ",.01)
 ;;234.0
 ;;9002226.02101,"992,234.0 ",.02)
 ;;234.0
 ;;9002226.02101,"992,234.8 ",.01)
 ;;234.8
 ;;9002226.02101,"992,234.8 ",.02)
 ;;234.8
 ;;9002226.02101,"992,234.9 ",.01)
 ;;234.9
 ;;9002226.02101,"992,234.9 ",.02)
 ;;234.9
 ;;9002226.02101,"992,235 ",.01)
 ;;235
 ;;9002226.02101,"992,235 ",.02)
 ;;235
 ;;9002226.02101,"992,235.0 ",.01)
 ;;235.0
 ;;9002226.02101,"992,235.0 ",.02)
 ;;235.0
 ;;9002226.02101,"992,235.1 ",.01)
 ;;235.1
 ;;9002226.02101,"992,235.1 ",.02)
 ;;235.1
 ;;9002226.02101,"992,235.2 ",.01)
 ;;235.2
 ;;9002226.02101,"992,235.2 ",.02)
 ;;235.2
 ;;9002226.02101,"992,235.3 ",.01)
 ;;235.3
 ;;9002226.02101,"992,235.3 ",.02)
 ;;235.3
 ;;9002226.02101,"992,235.4 ",.01)
 ;;235.4
 ;;9002226.02101,"992,235.4 ",.02)
 ;;235.4
 ;;9002226.02101,"992,235.5 ",.01)
 ;;235.5
 ;;9002226.02101,"992,235.5 ",.02)
 ;;235.5
 ;;9002226.02101,"992,235.6 ",.01)
 ;;235.6
 ;;9002226.02101,"992,235.6 ",.02)
 ;;235.6
 ;;9002226.02101,"992,235.7 ",.01)
 ;;235.7
 ;;9002226.02101,"992,235.7 ",.02)
 ;;235.7
 ;;9002226.02101,"992,235.8 ",.01)
 ;;235.8
 ;;9002226.02101,"992,235.8 ",.02)
 ;;235.8
 ;;9002226.02101,"992,235.9 ",.01)
 ;;235.9
 ;;9002226.02101,"992,235.9 ",.02)
 ;;235.9
 ;;9002226.02101,"992,236 ",.01)
 ;;236
 ;;9002226.02101,"992,236 ",.02)
 ;;236
 ;;9002226.02101,"992,236.0 ",.01)
 ;;236.0
 ;;9002226.02101,"992,236.0 ",.02)
 ;;236.0
 ;;9002226.02101,"992,236.1 ",.01)
 ;;236.1
 ;;9002226.02101,"992,236.1 ",.02)
 ;;236.1
 ;;9002226.02101,"992,236.2 ",.01)
 ;;236.2
 ;;9002226.02101,"992,236.2 ",.02)
 ;;236.2
 ;;9002226.02101,"992,236.3 ",.01)
 ;;236.3
 ;;9002226.02101,"992,236.3 ",.02)
 ;;236.3
 ;;9002226.02101,"992,236.4 ",.01)
 ;;236.4
 ;;9002226.02101,"992,236.4 ",.02)
 ;;236.4
 ;;9002226.02101,"992,236.5 ",.01)
 ;;236.5
 ;;9002226.02101,"992,236.5 ",.02)
 ;;236.5
 ;;9002226.02101,"992,236.6 ",.01)
 ;;236.6
 ;;9002226.02101,"992,236.6 ",.02)
 ;;236.6
 ;;9002226.02101,"992,236.7 ",.01)
 ;;236.7
 ;;9002226.02101,"992,236.7 ",.02)
 ;;236.7
 ;;9002226.02101,"992,236.9 ",.01)
 ;;236.9
 ;;9002226.02101,"992,236.9 ",.02)
 ;;236.9
 ;;9002226.02101,"992,236.90 ",.01)
 ;;236.90
 ;;9002226.02101,"992,236.90 ",.02)
 ;;236.90
 ;;9002226.02101,"992,236.91 ",.01)
 ;;236.91
 ;;9002226.02101,"992,236.91 ",.02)
 ;;236.91
 ;;9002226.02101,"992,236.99 ",.01)
 ;;236.99
 ;;9002226.02101,"992,236.99 ",.02)
 ;;236.99
 ;;9002226.02101,"992,237 ",.01)
 ;;237
 ;;9002226.02101,"992,237 ",.02)
 ;;237
 ;;9002226.02101,"992,237.0 ",.01)
 ;;237.0
 ;;9002226.02101,"992,237.0 ",.02)
 ;;237.0
 ;;9002226.02101,"992,237.1 ",.01)
 ;;237.1
 ;;9002226.02101,"992,237.1 ",.02)
 ;;237.1
 ;;9002226.02101,"992,237.2 ",.01)
 ;;237.2
 ;;9002226.02101,"992,237.2 ",.02)
 ;;237.2
 ;;9002226.02101,"992,237.3 ",.01)
 ;;237.3
 ;;9002226.02101,"992,237.3 ",.02)
 ;;237.3
 ;;9002226.02101,"992,237.4 ",.01)
 ;;237.4
 ;;9002226.02101,"992,237.4 ",.02)
 ;;237.4
 ;;9002226.02101,"992,237.5 ",.01)
 ;;237.5
 ;;9002226.02101,"992,237.5 ",.02)
 ;;237.5
 ;;9002226.02101,"992,237.6 ",.01)
 ;;237.6
 ;;9002226.02101,"992,237.6 ",.02)
 ;;237.6
 ;;9002226.02101,"992,237.7 ",.01)
 ;;237.7
 ;;9002226.02101,"992,237.7 ",.02)
 ;;237.7
 ;;9002226.02101,"992,237.70 ",.01)
 ;;237.70
 ;;9002226.02101,"992,237.70 ",.02)
 ;;237.70
 ;;9002226.02101,"992,237.71 ",.01)
 ;;237.71
 ;;9002226.02101,"992,237.71 ",.02)
 ;;237.71
 ;;9002226.02101,"992,237.72 ",.01)
 ;;237.72
 ;;9002226.02101,"992,237.72 ",.02)
 ;;237.72
 ;;9002226.02101,"992,237.9 ",.01)
 ;;237.9
 ;;9002226.02101,"992,237.9 ",.02)
 ;;237.9
 ;;9002226.02101,"992,238 ",.01)
 ;;238
 ;;9002226.02101,"992,238 ",.02)
 ;;238
 ;;9002226.02101,"992,238.0 ",.01)
 ;;238.0
 ;;9002226.02101,"992,238.0 ",.02)
 ;;238.0
 ;;9002226.02101,"992,238.1 ",.01)
 ;;238.1
 ;;9002226.02101,"992,238.1 ",.02)
 ;;238.1
 ;;9002226.02101,"992,238.2 ",.01)
 ;;238.2
 ;;9002226.02101,"992,238.2 ",.02)
 ;;238.2
 ;;9002226.02101,"992,238.3 ",.01)
 ;;238.3
 ;;9002226.02101,"992,238.3 ",.02)
 ;;238.3
 ;;9002226.02101,"992,238.4 ",.01)
 ;;238.4
 ;;9002226.02101,"992,238.4 ",.02)
 ;;238.4
 ;;9002226.02101,"992,238.5 ",.01)
 ;;238.5
 ;;9002226.02101,"992,238.5 ",.02)
 ;;238.5
 ;;9002226.02101,"992,238.6 ",.01)
 ;;238.6
 ;;9002226.02101,"992,238.6 ",.02)
 ;;238.6
 ;;9002226.02101,"992,238.7 ",.01)
 ;;238.7
 ;;9002226.02101,"992,238.7 ",.02)
 ;;238.7
 ;;9002226.02101,"992,238.71 ",.01)
 ;;238.71
 ;;9002226.02101,"992,238.71 ",.02)
 ;;238.71
 ;;9002226.02101,"992,238.72 ",.01)
 ;;238.72
 ;;9002226.02101,"992,238.72 ",.02)
 ;;238.72
 ;;9002226.02101,"992,238.73 ",.01)
 ;;238.73
 ;;9002226.02101,"992,238.73 ",.02)
 ;;238.73
 ;;9002226.02101,"992,238.74 ",.01)
 ;;238.74
 ;;9002226.02101,"992,238.74 ",.02)
 ;;238.74
 ;;9002226.02101,"992,238.75 ",.01)
 ;;238.75
 ;;9002226.02101,"992,238.75 ",.02)
 ;;238.75
 ;;9002226.02101,"992,238.76 ",.01)
 ;;238.76
 ;;9002226.02101,"992,238.76 ",.02)
 ;;238.76
 ;;9002226.02101,"992,238.77 ",.01)
 ;;238.77
 ;;9002226.02101,"992,238.77 ",.02)
 ;;238.77
 ;;9002226.02101,"992,238.79 ",.01)
 ;;238.79
 ;;9002226.02101,"992,238.79 ",.02)
 ;;238.79
 ;;9002226.02101,"992,238.8 ",.01)
 ;;238.8
 ;;9002226.02101,"992,238.8 ",.02)
 ;;238.8
 ;;9002226.02101,"992,238.9 ",.01)
 ;;238.9
 ;;9002226.02101,"992,238.9 ",.02)
 ;;238.9
 ;;9002226.02101,"992,239 ",.01)
 ;;239
 ;;9002226.02101,"992,239 ",.02)
 ;;239
 ;;9002226.02101,"992,239.0 ",.01)
 ;;239.0
 ;;9002226.02101,"992,239.0 ",.02)
 ;;239.0
 ;;9002226.02101,"992,239.1 ",.01)
 ;;239.1
 ;;9002226.02101,"992,239.1 ",.02)
 ;;239.1
 ;;9002226.02101,"992,239.2 ",.01)
 ;;239.2
 ;;9002226.02101,"992,239.2 ",.02)
 ;;239.2
 ;;9002226.02101,"992,239.3 ",.01)
 ;;239.3
 ;;9002226.02101,"992,239.3 ",.02)
 ;;239.3
 ;;9002226.02101,"992,239.4 ",.01)
 ;;239.4
 ;;9002226.02101,"992,239.4 ",.02)
 ;;239.4
 ;;9002226.02101,"992,239.5 ",.01)
 ;;239.5
 ;;9002226.02101,"992,239.5 ",.02)
 ;;239.5
 ;;9002226.02101,"992,239.6 ",.01)
 ;;239.6
 ;;9002226.02101,"992,239.6 ",.02)
 ;;239.6
 ;;9002226.02101,"992,239.7 ",.01)
 ;;239.7
 ;;9002226.02101,"992,239.7 ",.02)
 ;;239.7
 ;;9002226.02101,"992,239.8 ",.01)
 ;;239.8
 ;;9002226.02101,"992,239.8 ",.02)
 ;;239.8
 ;;9002226.02101,"992,239.9 ",.01)
 ;;239.9
 ;;9002226.02101,"992,239.9 ",.02)
 ;;239.9
 ;;9002226.02101,"992,V10 ",.01)
 ;;V10
 ;;9002226.02101,"992,V10 ",.02)
 ;;V10
 ;;9002226.02101,"992,V10.0 ",.01)
 ;;V10.0
 ;;9002226.02101,"992,V10.0 ",.02)
 ;;V10.0
 ;;9002226.02101,"992,V10.00 ",.01)
 ;;V10.00
 ;;9002226.02101,"992,V10.00 ",.02)
 ;;V10.00
 ;;9002226.02101,"992,V10.01 ",.01)
 ;;V10.01
 ;;9002226.02101,"992,V10.01 ",.02)
 ;;V10.01