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

BGPM5AOA.m

Go to the documentation of this file.
BGPM5AOA ;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,192.3 ",.01)
 ;;192.3
 ;;9002226.02101,"992,192.3 ",.02)
 ;;192.3
 ;;9002226.02101,"992,192.8 ",.01)
 ;;192.8
 ;;9002226.02101,"992,192.8 ",.02)
 ;;192.8
 ;;9002226.02101,"992,192.9 ",.01)
 ;;192.9
 ;;9002226.02101,"992,192.9 ",.02)
 ;;192.9
 ;;9002226.02101,"992,193 ",.01)
 ;;193
 ;;9002226.02101,"992,193 ",.02)
 ;;193
 ;;9002226.02101,"992,194 ",.01)
 ;;194
 ;;9002226.02101,"992,194 ",.02)
 ;;194
 ;;9002226.02101,"992,194.0 ",.01)
 ;;194.0
 ;;9002226.02101,"992,194.0 ",.02)
 ;;194.0
 ;;9002226.02101,"992,194.1 ",.01)
 ;;194.1
 ;;9002226.02101,"992,194.1 ",.02)
 ;;194.1
 ;;9002226.02101,"992,194.3 ",.01)
 ;;194.3
 ;;9002226.02101,"992,194.3 ",.02)
 ;;194.3
 ;;9002226.02101,"992,194.4 ",.01)
 ;;194.4
 ;;9002226.02101,"992,194.4 ",.02)
 ;;194.4
 ;;9002226.02101,"992,194.5 ",.01)
 ;;194.5
 ;;9002226.02101,"992,194.5 ",.02)
 ;;194.5
 ;;9002226.02101,"992,194.6 ",.01)
 ;;194.6
 ;;9002226.02101,"992,194.6 ",.02)
 ;;194.6
 ;;9002226.02101,"992,194.8 ",.01)
 ;;194.8
 ;;9002226.02101,"992,194.8 ",.02)
 ;;194.8
 ;;9002226.02101,"992,194.9 ",.01)
 ;;194.9
 ;;9002226.02101,"992,194.9 ",.02)
 ;;194.9
 ;;9002226.02101,"992,195 ",.01)
 ;;195
 ;;9002226.02101,"992,195 ",.02)
 ;;195
 ;;9002226.02101,"992,195.0 ",.01)
 ;;195.0
 ;;9002226.02101,"992,195.0 ",.02)
 ;;195.0
 ;;9002226.02101,"992,195.1 ",.01)
 ;;195.1
 ;;9002226.02101,"992,195.1 ",.02)
 ;;195.1
 ;;9002226.02101,"992,195.2 ",.01)
 ;;195.2
 ;;9002226.02101,"992,195.2 ",.02)
 ;;195.2
 ;;9002226.02101,"992,195.3 ",.01)
 ;;195.3
 ;;9002226.02101,"992,195.3 ",.02)
 ;;195.3
 ;;9002226.02101,"992,195.4 ",.01)
 ;;195.4
 ;;9002226.02101,"992,195.4 ",.02)
 ;;195.4
 ;;9002226.02101,"992,195.5 ",.01)
 ;;195.5
 ;;9002226.02101,"992,195.5 ",.02)
 ;;195.5
 ;;9002226.02101,"992,195.8 ",.01)
 ;;195.8
 ;;9002226.02101,"992,195.8 ",.02)
 ;;195.8
 ;;9002226.02101,"992,196 ",.01)
 ;;196
 ;;9002226.02101,"992,196 ",.02)
 ;;196
 ;;9002226.02101,"992,196.0 ",.01)
 ;;196.0
 ;;9002226.02101,"992,196.0 ",.02)
 ;;196.0
 ;;9002226.02101,"992,196.1 ",.01)
 ;;196.1
 ;;9002226.02101,"992,196.1 ",.02)
 ;;196.1
 ;;9002226.02101,"992,196.2 ",.01)
 ;;196.2
 ;;9002226.02101,"992,196.2 ",.02)
 ;;196.2
 ;;9002226.02101,"992,196.3 ",.01)
 ;;196.3
 ;;9002226.02101,"992,196.3 ",.02)
 ;;196.3
 ;;9002226.02101,"992,196.5 ",.01)
 ;;196.5
 ;;9002226.02101,"992,196.5 ",.02)
 ;;196.5
 ;;9002226.02101,"992,196.6 ",.01)
 ;;196.6
 ;;9002226.02101,"992,196.6 ",.02)
 ;;196.6
 ;;9002226.02101,"992,196.8 ",.01)
 ;;196.8
 ;;9002226.02101,"992,196.8 ",.02)
 ;;196.8
 ;;9002226.02101,"992,196.9 ",.01)
 ;;196.9
 ;;9002226.02101,"992,196.9 ",.02)
 ;;196.9
 ;;9002226.02101,"992,197 ",.01)
 ;;197
 ;;9002226.02101,"992,197 ",.02)
 ;;197
 ;;9002226.02101,"992,197.0 ",.01)
 ;;197.0
 ;;9002226.02101,"992,197.0 ",.02)
 ;;197.0
 ;;9002226.02101,"992,197.1 ",.01)
 ;;197.1
 ;;9002226.02101,"992,197.1 ",.02)
 ;;197.1
 ;;9002226.02101,"992,197.2 ",.01)
 ;;197.2
 ;;9002226.02101,"992,197.2 ",.02)
 ;;197.2
 ;;9002226.02101,"992,197.3 ",.01)
 ;;197.3
 ;;9002226.02101,"992,197.3 ",.02)
 ;;197.3
 ;;9002226.02101,"992,197.4 ",.01)
 ;;197.4
 ;;9002226.02101,"992,197.4 ",.02)
 ;;197.4
 ;;9002226.02101,"992,197.5 ",.01)
 ;;197.5
 ;;9002226.02101,"992,197.5 ",.02)
 ;;197.5
 ;;9002226.02101,"992,197.6 ",.01)
 ;;197.6
 ;;9002226.02101,"992,197.6 ",.02)
 ;;197.6
 ;;9002226.02101,"992,197.7 ",.01)
 ;;197.7
 ;;9002226.02101,"992,197.7 ",.02)
 ;;197.7
 ;;9002226.02101,"992,197.8 ",.01)
 ;;197.8
 ;;9002226.02101,"992,197.8 ",.02)
 ;;197.8
 ;;9002226.02101,"992,198 ",.01)
 ;;198
 ;;9002226.02101,"992,198 ",.02)
 ;;198
 ;;9002226.02101,"992,198.0 ",.01)
 ;;198.0
 ;;9002226.02101,"992,198.0 ",.02)
 ;;198.0
 ;;9002226.02101,"992,198.1 ",.01)
 ;;198.1
 ;;9002226.02101,"992,198.1 ",.02)
 ;;198.1
 ;;9002226.02101,"992,198.2 ",.01)
 ;;198.2
 ;;9002226.02101,"992,198.2 ",.02)
 ;;198.2
 ;;9002226.02101,"992,198.3 ",.01)
 ;;198.3
 ;;9002226.02101,"992,198.3 ",.02)
 ;;198.3
 ;;9002226.02101,"992,198.4 ",.01)
 ;;198.4
 ;;9002226.02101,"992,198.4 ",.02)
 ;;198.4
 ;;9002226.02101,"992,198.5 ",.01)
 ;;198.5
 ;;9002226.02101,"992,198.5 ",.02)
 ;;198.5
 ;;9002226.02101,"992,198.6 ",.01)
 ;;198.6
 ;;9002226.02101,"992,198.6 ",.02)
 ;;198.6
 ;;9002226.02101,"992,198.7 ",.01)
 ;;198.7
 ;;9002226.02101,"992,198.7 ",.02)
 ;;198.7
 ;;9002226.02101,"992,198.8 ",.01)
 ;;198.8
 ;;9002226.02101,"992,198.8 ",.02)
 ;;198.8
 ;;9002226.02101,"992,198.81 ",.01)
 ;;198.81
 ;;9002226.02101,"992,198.81 ",.02)
 ;;198.81
 ;;9002226.02101,"992,198.82 ",.01)
 ;;198.82
 ;;9002226.02101,"992,198.82 ",.02)
 ;;198.82
 ;;9002226.02101,"992,198.89 ",.01)
 ;;198.89
 ;;9002226.02101,"992,198.89 ",.02)
 ;;198.89
 ;;9002226.02101,"992,199 ",.01)
 ;;199
 ;;9002226.02101,"992,199 ",.02)
 ;;199
 ;;9002226.02101,"992,199.0 ",.01)
 ;;199.0
 ;;9002226.02101,"992,199.0 ",.02)
 ;;199.0
 ;;9002226.02101,"992,199.1 ",.01)
 ;;199.1
 ;;9002226.02101,"992,199.1 ",.02)
 ;;199.1
 ;;9002226.02101,"992,199.2 ",.01)
 ;;199.2
 ;;9002226.02101,"992,199.2 ",.02)
 ;;199.2
 ;;9002226.02101,"992,200 ",.01)
 ;;200
 ;;9002226.02101,"992,200 ",.02)
 ;;200
 ;;9002226.02101,"992,200.0 ",.01)
 ;;200.0
 ;;9002226.02101,"992,200.0 ",.02)
 ;;200.0
 ;;9002226.02101,"992,200.00 ",.01)
 ;;200.00
 ;;9002226.02101,"992,200.00 ",.02)
 ;;200.00
 ;;9002226.02101,"992,200.01 ",.01)
 ;;200.01
 ;;9002226.02101,"992,200.01 ",.02)
 ;;200.01
 ;;9002226.02101,"992,200.02 ",.01)
 ;;200.02
 ;;9002226.02101,"992,200.02 ",.02)
 ;;200.02
 ;;9002226.02101,"992,200.03 ",.01)
 ;;200.03
 ;;9002226.02101,"992,200.03 ",.02)
 ;;200.03
 ;;9002226.02101,"992,200.04 ",.01)
 ;;200.04
 ;;9002226.02101,"992,200.04 ",.02)
 ;;200.04
 ;;9002226.02101,"992,200.05 ",.01)
 ;;200.05
 ;;9002226.02101,"992,200.05 ",.02)
 ;;200.05
 ;;9002226.02101,"992,200.06 ",.01)
 ;;200.06
 ;;9002226.02101,"992,200.06 ",.02)
 ;;200.06
 ;;9002226.02101,"992,200.07 ",.01)
 ;;200.07
 ;;9002226.02101,"992,200.07 ",.02)
 ;;200.07
 ;;9002226.02101,"992,200.08 ",.01)
 ;;200.08
 ;;9002226.02101,"992,200.08 ",.02)
 ;;200.08
 ;;9002226.02101,"992,200.1 ",.01)
 ;;200.1
 ;;9002226.02101,"992,200.1 ",.02)
 ;;200.1
 ;;9002226.02101,"992,200.10 ",.01)
 ;;200.10
 ;;9002226.02101,"992,200.10 ",.02)
 ;;200.10
 ;;9002226.02101,"992,200.11 ",.01)
 ;;200.11
 ;;9002226.02101,"992,200.11 ",.02)
 ;;200.11
 ;;9002226.02101,"992,200.12 ",.01)
 ;;200.12
 ;;9002226.02101,"992,200.12 ",.02)
 ;;200.12
 ;;9002226.02101,"992,200.13 ",.01)
 ;;200.13
 ;;9002226.02101,"992,200.13 ",.02)
 ;;200.13
 ;;9002226.02101,"992,200.14 ",.01)
 ;;200.14
 ;;9002226.02101,"992,200.14 ",.02)
 ;;200.14
 ;;9002226.02101,"992,200.15 ",.01)
 ;;200.15
 ;;9002226.02101,"992,200.15 ",.02)
 ;;200.15
 ;;9002226.02101,"992,200.16 ",.01)
 ;;200.16
 ;;9002226.02101,"992,200.16 ",.02)
 ;;200.16
 ;;9002226.02101,"992,200.17 ",.01)
 ;;200.17
 ;;9002226.02101,"992,200.17 ",.02)
 ;;200.17
 ;;9002226.02101,"992,200.18 ",.01)
 ;;200.18
 ;;9002226.02101,"992,200.18 ",.02)
 ;;200.18
 ;;9002226.02101,"992,200.2 ",.01)
 ;;200.2
 ;;9002226.02101,"992,200.2 ",.02)
 ;;200.2
 ;;9002226.02101,"992,200.20 ",.01)
 ;;200.20
 ;;9002226.02101,"992,200.20 ",.02)
 ;;200.20
 ;;9002226.02101,"992,200.21 ",.01)
 ;;200.21
 ;;9002226.02101,"992,200.21 ",.02)
 ;;200.21
 ;;9002226.02101,"992,200.22 ",.01)
 ;;200.22
 ;;9002226.02101,"992,200.22 ",.02)
 ;;200.22
 ;;9002226.02101,"992,200.23 ",.01)
 ;;200.23
 ;;9002226.02101,"992,200.23 ",.02)
 ;;200.23
 ;;9002226.02101,"992,200.24 ",.01)
 ;;200.24
 ;;9002226.02101,"992,200.24 ",.02)
 ;;200.24
 ;;9002226.02101,"992,200.25 ",.01)
 ;;200.25
 ;;9002226.02101,"992,200.25 ",.02)
 ;;200.25
 ;;9002226.02101,"992,200.26 ",.01)
 ;;200.26
 ;;9002226.02101,"992,200.26 ",.02)
 ;;200.26
 ;;9002226.02101,"992,200.27 ",.01)
 ;;200.27
 ;;9002226.02101,"992,200.27 ",.02)
 ;;200.27
 ;;9002226.02101,"992,200.28 ",.01)
 ;;200.28
 ;;9002226.02101,"992,200.28 ",.02)
 ;;200.28
 ;;9002226.02101,"992,200.3 ",.01)
 ;;200.3
 ;;9002226.02101,"992,200.3 ",.02)
 ;;200.3
 ;;9002226.02101,"992,200.30 ",.01)
 ;;200.30
 ;;9002226.02101,"992,200.30 ",.02)
 ;;200.30
 ;;9002226.02101,"992,200.31 ",.01)
 ;;200.31
 ;;9002226.02101,"992,200.31 ",.02)
 ;;200.31
 ;;9002226.02101,"992,200.32 ",.01)
 ;;200.32
 ;;9002226.02101,"992,200.32 ",.02)
 ;;200.32
 ;;9002226.02101,"992,200.33 ",.01)
 ;;200.33
 ;;9002226.02101,"992,200.33 ",.02)
 ;;200.33
 ;;9002226.02101,"992,200.34 ",.01)
 ;;200.34
 ;;9002226.02101,"992,200.34 ",.02)
 ;;200.34
 ;;9002226.02101,"992,200.35 ",.01)
 ;;200.35
 ;;9002226.02101,"992,200.35 ",.02)
 ;;200.35
 ;;9002226.02101,"992,200.36 ",.01)
 ;;200.36
 ;;9002226.02101,"992,200.36 ",.02)
 ;;200.36
 ;;9002226.02101,"992,200.37 ",.01)
 ;;200.37
 ;;9002226.02101,"992,200.37 ",.02)
 ;;200.37
 ;;9002226.02101,"992,200.38 ",.01)
 ;;200.38
 ;;9002226.02101,"992,200.38 ",.02)
 ;;200.38
 ;;9002226.02101,"992,200.4 ",.01)
 ;;200.4
 ;;9002226.02101,"992,200.4 ",.02)
 ;;200.4
 ;;9002226.02101,"992,200.40 ",.01)
 ;;200.40
 ;;9002226.02101,"992,200.40 ",.02)
 ;;200.40
 ;;9002226.02101,"992,200.41 ",.01)
 ;;200.41
 ;;9002226.02101,"992,200.41 ",.02)
 ;;200.41
 ;;9002226.02101,"992,200.42 ",.01)
 ;;200.42
 ;;9002226.02101,"992,200.42 ",.02)
 ;;200.42
 ;;9002226.02101,"992,200.43 ",.01)
 ;;200.43
 ;;9002226.02101,"992,200.43 ",.02)
 ;;200.43
 ;;9002226.02101,"992,200.44 ",.01)
 ;;200.44
 ;;9002226.02101,"992,200.44 ",.02)
 ;;200.44
 ;;9002226.02101,"992,200.45 ",.01)
 ;;200.45
 ;;9002226.02101,"992,200.45 ",.02)
 ;;200.45
 ;;9002226.02101,"992,200.46 ",.01)
 ;;200.46
 ;;9002226.02101,"992,200.46 ",.02)
 ;;200.46
 ;;9002226.02101,"992,200.47 ",.01)
 ;;200.47
 ;;9002226.02101,"992,200.47 ",.02)
 ;;200.47
 ;;9002226.02101,"992,200.48 ",.01)
 ;;200.48
 ;;9002226.02101,"992,200.48 ",.02)
 ;;200.48
 ;;9002226.02101,"992,200.5 ",.01)
 ;;200.5
 ;;9002226.02101,"992,200.5 ",.02)
 ;;200.5
 ;;9002226.02101,"992,200.50 ",.01)
 ;;200.50
 ;;9002226.02101,"992,200.50 ",.02)
 ;;200.50
 ;;9002226.02101,"992,200.51 ",.01)
 ;;200.51
 ;;9002226.02101,"992,200.51 ",.02)
 ;;200.51
 ;;9002226.02101,"992,200.52 ",.01)
 ;;200.52
 ;;9002226.02101,"992,200.52 ",.02)
 ;;200.52
 ;;9002226.02101,"992,200.53 ",.01)
 ;;200.53
 ;;9002226.02101,"992,200.53 ",.02)
 ;;200.53
 ;;9002226.02101,"992,200.54 ",.01)
 ;;200.54
 ;;9002226.02101,"992,200.54 ",.02)
 ;;200.54
 ;;9002226.02101,"992,200.55 ",.01)
 ;;200.55
 ;;9002226.02101,"992,200.55 ",.02)
 ;;200.55
 ;;9002226.02101,"992,200.56 ",.01)
 ;;200.56
 ;;9002226.02101,"992,200.56 ",.02)
 ;;200.56
 ;;9002226.02101,"992,200.57 ",.01)
 ;;200.57
 ;;9002226.02101,"992,200.57 ",.02)
 ;;200.57
 ;;9002226.02101,"992,200.58 ",.01)
 ;;200.58
 ;;9002226.02101,"992,200.58 ",.02)
 ;;200.58
 ;;9002226.02101,"992,200.6 ",.01)
 ;;200.6
 ;;9002226.02101,"992,200.6 ",.02)
 ;;200.6
 ;;9002226.02101,"992,200.60 ",.01)
 ;;200.60
 ;;9002226.02101,"992,200.60 ",.02)
 ;;200.60
 ;;9002226.02101,"992,200.61 ",.01)
 ;;200.61
 ;;9002226.02101,"992,200.61 ",.02)
 ;;200.61
 ;;9002226.02101,"992,200.62 ",.01)
 ;;200.62
 ;;9002226.02101,"992,200.62 ",.02)
 ;;200.62
 ;;9002226.02101,"992,200.63 ",.01)
 ;;200.63
 ;;9002226.02101,"992,200.63 ",.02)
 ;;200.63
 ;;9002226.02101,"992,200.64 ",.01)
 ;;200.64
 ;;9002226.02101,"992,200.64 ",.02)
 ;;200.64
 ;;9002226.02101,"992,200.65 ",.01)
 ;;200.65
 ;;9002226.02101,"992,200.65 ",.02)
 ;;200.65