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

BGPM5AOR.m

Go to the documentation of this file.
BGPM5AOR ;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,839.02 ",.01)
 ;;839.02
 ;;9002226.02101,"993,839.02 ",.02)
 ;;839.02
 ;;9002226.02101,"993,839.03 ",.01)
 ;;839.03
 ;;9002226.02101,"993,839.03 ",.02)
 ;;839.03
 ;;9002226.02101,"993,839.04 ",.01)
 ;;839.04
 ;;9002226.02101,"993,839.04 ",.02)
 ;;839.04
 ;;9002226.02101,"993,839.05 ",.01)
 ;;839.05
 ;;9002226.02101,"993,839.05 ",.02)
 ;;839.05
 ;;9002226.02101,"993,839.06 ",.01)
 ;;839.06
 ;;9002226.02101,"993,839.06 ",.02)
 ;;839.06
 ;;9002226.02101,"993,839.07 ",.01)
 ;;839.07
 ;;9002226.02101,"993,839.07 ",.02)
 ;;839.07
 ;;9002226.02101,"993,839.08 ",.01)
 ;;839.08
 ;;9002226.02101,"993,839.08 ",.02)
 ;;839.08
 ;;9002226.02101,"993,839.1 ",.01)
 ;;839.1
 ;;9002226.02101,"993,839.1 ",.02)
 ;;839.1
 ;;9002226.02101,"993,839.10 ",.01)
 ;;839.10
 ;;9002226.02101,"993,839.10 ",.02)
 ;;839.10
 ;;9002226.02101,"993,839.11 ",.01)
 ;;839.11
 ;;9002226.02101,"993,839.11 ",.02)
 ;;839.11
 ;;9002226.02101,"993,839.12 ",.01)
 ;;839.12
 ;;9002226.02101,"993,839.12 ",.02)
 ;;839.12
 ;;9002226.02101,"993,839.13 ",.01)
 ;;839.13
 ;;9002226.02101,"993,839.13 ",.02)
 ;;839.13
 ;;9002226.02101,"993,839.14 ",.01)
 ;;839.14
 ;;9002226.02101,"993,839.14 ",.02)
 ;;839.14
 ;;9002226.02101,"993,839.15 ",.01)
 ;;839.15
 ;;9002226.02101,"993,839.15 ",.02)
 ;;839.15
 ;;9002226.02101,"993,839.16 ",.01)
 ;;839.16
 ;;9002226.02101,"993,839.16 ",.02)
 ;;839.16
 ;;9002226.02101,"993,839.17 ",.01)
 ;;839.17
 ;;9002226.02101,"993,839.17 ",.02)
 ;;839.17
 ;;9002226.02101,"993,839.18 ",.01)
 ;;839.18
 ;;9002226.02101,"993,839.18 ",.02)
 ;;839.18
 ;;9002226.02101,"993,839.2 ",.01)
 ;;839.2
 ;;9002226.02101,"993,839.2 ",.02)
 ;;839.2
 ;;9002226.02101,"993,839.20 ",.01)
 ;;839.20
 ;;9002226.02101,"993,839.20 ",.02)
 ;;839.20
 ;;9002226.02101,"993,839.21 ",.01)
 ;;839.21
 ;;9002226.02101,"993,839.21 ",.02)
 ;;839.21
 ;;9002226.02101,"993,839.3 ",.01)
 ;;839.3
 ;;9002226.02101,"993,839.3 ",.02)
 ;;839.3
 ;;9002226.02101,"993,839.30 ",.01)
 ;;839.30
 ;;9002226.02101,"993,839.30 ",.02)
 ;;839.30
 ;;9002226.02101,"993,839.31 ",.01)
 ;;839.31
 ;;9002226.02101,"993,839.31 ",.02)
 ;;839.31
 ;;9002226.02101,"993,839.4 ",.01)
 ;;839.4
 ;;9002226.02101,"993,839.4 ",.02)
 ;;839.4
 ;;9002226.02101,"993,839.40 ",.01)
 ;;839.40
 ;;9002226.02101,"993,839.40 ",.02)
 ;;839.40
 ;;9002226.02101,"993,839.41 ",.01)
 ;;839.41
 ;;9002226.02101,"993,839.41 ",.02)
 ;;839.41
 ;;9002226.02101,"993,839.42 ",.01)
 ;;839.42
 ;;9002226.02101,"993,839.42 ",.02)
 ;;839.42
 ;;9002226.02101,"993,839.49 ",.01)
 ;;839.49
 ;;9002226.02101,"993,839.49 ",.02)
 ;;839.49
 ;;9002226.02101,"993,839.5 ",.01)
 ;;839.5
 ;;9002226.02101,"993,839.5 ",.02)
 ;;839.5
 ;;9002226.02101,"993,839.50 ",.01)
 ;;839.50
 ;;9002226.02101,"993,839.50 ",.02)
 ;;839.50
 ;;9002226.02101,"993,839.51 ",.01)
 ;;839.51
 ;;9002226.02101,"993,839.51 ",.02)
 ;;839.51
 ;;9002226.02101,"993,839.52 ",.01)
 ;;839.52
 ;;9002226.02101,"993,839.52 ",.02)
 ;;839.52
 ;;9002226.02101,"993,839.59 ",.01)
 ;;839.59
 ;;9002226.02101,"993,839.59 ",.02)
 ;;839.59
 ;;9002226.02101,"993,839.6 ",.01)
 ;;839.6
 ;;9002226.02101,"993,839.6 ",.02)
 ;;839.6
 ;;9002226.02101,"993,839.61 ",.01)
 ;;839.61
 ;;9002226.02101,"993,839.61 ",.02)
 ;;839.61
 ;;9002226.02101,"993,839.69 ",.01)
 ;;839.69
 ;;9002226.02101,"993,839.69 ",.02)
 ;;839.69
 ;;9002226.02101,"993,839.7 ",.01)
 ;;839.7
 ;;9002226.02101,"993,839.7 ",.02)
 ;;839.7
 ;;9002226.02101,"993,839.71 ",.01)
 ;;839.71
 ;;9002226.02101,"993,839.71 ",.02)
 ;;839.71
 ;;9002226.02101,"993,839.79 ",.01)
 ;;839.79
 ;;9002226.02101,"993,839.79 ",.02)
 ;;839.79
 ;;9002226.02101,"993,839.8 ",.01)
 ;;839.8
 ;;9002226.02101,"993,839.8 ",.02)
 ;;839.8
 ;;9002226.02101,"993,839.9 ",.01)
 ;;839.9
 ;;9002226.02101,"993,839.9 ",.02)
 ;;839.9
 ;;9002226.02101,"993,850 ",.01)
 ;;850
 ;;9002226.02101,"993,850 ",.02)
 ;;850
 ;;9002226.02101,"993,850.0 ",.01)
 ;;850.0
 ;;9002226.02101,"993,850.0 ",.02)
 ;;850.0
 ;;9002226.02101,"993,850.1 ",.01)
 ;;850.1
 ;;9002226.02101,"993,850.1 ",.02)
 ;;850.1
 ;;9002226.02101,"993,850.11 ",.01)
 ;;850.11
 ;;9002226.02101,"993,850.11 ",.02)
 ;;850.11
 ;;9002226.02101,"993,850.12 ",.01)
 ;;850.12
 ;;9002226.02101,"993,850.12 ",.02)
 ;;850.12
 ;;9002226.02101,"993,850.2 ",.01)
 ;;850.2
 ;;9002226.02101,"993,850.2 ",.02)
 ;;850.2
 ;;9002226.02101,"993,850.3 ",.01)
 ;;850.3
 ;;9002226.02101,"993,850.3 ",.02)
 ;;850.3
 ;;9002226.02101,"993,850.4 ",.01)
 ;;850.4
 ;;9002226.02101,"993,850.4 ",.02)
 ;;850.4
 ;;9002226.02101,"993,850.5 ",.01)
 ;;850.5
 ;;9002226.02101,"993,850.5 ",.02)
 ;;850.5
 ;;9002226.02101,"993,850.9 ",.01)
 ;;850.9
 ;;9002226.02101,"993,850.9 ",.02)
 ;;850.9
 ;;9002226.02101,"993,851 ",.01)
 ;;851
 ;;9002226.02101,"993,851 ",.02)
 ;;851
 ;;9002226.02101,"993,851.0 ",.01)
 ;;851.0
 ;;9002226.02101,"993,851.0 ",.02)
 ;;851.0
 ;;9002226.02101,"993,851.00 ",.01)
 ;;851.00
 ;;9002226.02101,"993,851.00 ",.02)
 ;;851.00
 ;;9002226.02101,"993,851.01 ",.01)
 ;;851.01
 ;;9002226.02101,"993,851.01 ",.02)
 ;;851.01
 ;;9002226.02101,"993,851.02 ",.01)
 ;;851.02
 ;;9002226.02101,"993,851.02 ",.02)
 ;;851.02
 ;;9002226.02101,"993,851.03 ",.01)
 ;;851.03
 ;;9002226.02101,"993,851.03 ",.02)
 ;;851.03
 ;;9002226.02101,"993,851.04 ",.01)
 ;;851.04
 ;;9002226.02101,"993,851.04 ",.02)
 ;;851.04
 ;;9002226.02101,"993,851.05 ",.01)
 ;;851.05
 ;;9002226.02101,"993,851.05 ",.02)
 ;;851.05
 ;;9002226.02101,"993,851.06 ",.01)
 ;;851.06
 ;;9002226.02101,"993,851.06 ",.02)
 ;;851.06
 ;;9002226.02101,"993,851.09 ",.01)
 ;;851.09
 ;;9002226.02101,"993,851.09 ",.02)
 ;;851.09
 ;;9002226.02101,"993,851.1 ",.01)
 ;;851.1
 ;;9002226.02101,"993,851.1 ",.02)
 ;;851.1
 ;;9002226.02101,"993,851.10 ",.01)
 ;;851.10
 ;;9002226.02101,"993,851.10 ",.02)
 ;;851.10
 ;;9002226.02101,"993,851.11 ",.01)
 ;;851.11
 ;;9002226.02101,"993,851.11 ",.02)
 ;;851.11
 ;;9002226.02101,"993,851.12 ",.01)
 ;;851.12
 ;;9002226.02101,"993,851.12 ",.02)
 ;;851.12
 ;;9002226.02101,"993,851.13 ",.01)
 ;;851.13
 ;;9002226.02101,"993,851.13 ",.02)
 ;;851.13
 ;;9002226.02101,"993,851.14 ",.01)
 ;;851.14
 ;;9002226.02101,"993,851.14 ",.02)
 ;;851.14
 ;;9002226.02101,"993,851.15 ",.01)
 ;;851.15
 ;;9002226.02101,"993,851.15 ",.02)
 ;;851.15
 ;;9002226.02101,"993,851.16 ",.01)
 ;;851.16
 ;;9002226.02101,"993,851.16 ",.02)
 ;;851.16
 ;;9002226.02101,"993,851.19 ",.01)
 ;;851.19
 ;;9002226.02101,"993,851.19 ",.02)
 ;;851.19
 ;;9002226.02101,"993,851.2 ",.01)
 ;;851.2
 ;;9002226.02101,"993,851.2 ",.02)
 ;;851.2
 ;;9002226.02101,"993,851.20 ",.01)
 ;;851.20
 ;;9002226.02101,"993,851.20 ",.02)
 ;;851.20
 ;;9002226.02101,"993,851.21 ",.01)
 ;;851.21
 ;;9002226.02101,"993,851.21 ",.02)
 ;;851.21
 ;;9002226.02101,"993,851.22 ",.01)
 ;;851.22
 ;;9002226.02101,"993,851.22 ",.02)
 ;;851.22
 ;;9002226.02101,"993,851.23 ",.01)
 ;;851.23
 ;;9002226.02101,"993,851.23 ",.02)
 ;;851.23
 ;;9002226.02101,"993,851.24 ",.01)
 ;;851.24
 ;;9002226.02101,"993,851.24 ",.02)
 ;;851.24
 ;;9002226.02101,"993,851.25 ",.01)
 ;;851.25
 ;;9002226.02101,"993,851.25 ",.02)
 ;;851.25
 ;;9002226.02101,"993,851.26 ",.01)
 ;;851.26
 ;;9002226.02101,"993,851.26 ",.02)
 ;;851.26
 ;;9002226.02101,"993,851.29 ",.01)
 ;;851.29
 ;;9002226.02101,"993,851.29 ",.02)
 ;;851.29
 ;;9002226.02101,"993,851.3 ",.01)
 ;;851.3
 ;;9002226.02101,"993,851.3 ",.02)
 ;;851.3
 ;;9002226.02101,"993,851.30 ",.01)
 ;;851.30
 ;;9002226.02101,"993,851.30 ",.02)
 ;;851.30
 ;;9002226.02101,"993,851.31 ",.01)
 ;;851.31
 ;;9002226.02101,"993,851.31 ",.02)
 ;;851.31
 ;;9002226.02101,"993,851.32 ",.01)
 ;;851.32
 ;;9002226.02101,"993,851.32 ",.02)
 ;;851.32
 ;;9002226.02101,"993,851.33 ",.01)
 ;;851.33
 ;;9002226.02101,"993,851.33 ",.02)
 ;;851.33
 ;;9002226.02101,"993,851.34 ",.01)
 ;;851.34
 ;;9002226.02101,"993,851.34 ",.02)
 ;;851.34
 ;;9002226.02101,"993,851.35 ",.01)
 ;;851.35
 ;;9002226.02101,"993,851.35 ",.02)
 ;;851.35
 ;;9002226.02101,"993,851.36 ",.01)
 ;;851.36
 ;;9002226.02101,"993,851.36 ",.02)
 ;;851.36
 ;;9002226.02101,"993,851.39 ",.01)
 ;;851.39
 ;;9002226.02101,"993,851.39 ",.02)
 ;;851.39
 ;;9002226.02101,"993,851.4 ",.01)
 ;;851.4
 ;;9002226.02101,"993,851.4 ",.02)
 ;;851.4
 ;;9002226.02101,"993,851.40 ",.01)
 ;;851.40
 ;;9002226.02101,"993,851.40 ",.02)
 ;;851.40
 ;;9002226.02101,"993,851.41 ",.01)
 ;;851.41
 ;;9002226.02101,"993,851.41 ",.02)
 ;;851.41
 ;;9002226.02101,"993,851.42 ",.01)
 ;;851.42
 ;;9002226.02101,"993,851.42 ",.02)
 ;;851.42
 ;;9002226.02101,"993,851.43 ",.01)
 ;;851.43
 ;;9002226.02101,"993,851.43 ",.02)
 ;;851.43
 ;;9002226.02101,"993,851.44 ",.01)
 ;;851.44
 ;;9002226.02101,"993,851.44 ",.02)
 ;;851.44
 ;;9002226.02101,"993,851.45 ",.01)
 ;;851.45
 ;;9002226.02101,"993,851.45 ",.02)
 ;;851.45
 ;;9002226.02101,"993,851.46 ",.01)
 ;;851.46
 ;;9002226.02101,"993,851.46 ",.02)
 ;;851.46
 ;;9002226.02101,"993,851.49 ",.01)
 ;;851.49
 ;;9002226.02101,"993,851.49 ",.02)
 ;;851.49
 ;;9002226.02101,"993,851.5 ",.01)
 ;;851.5
 ;;9002226.02101,"993,851.5 ",.02)
 ;;851.5
 ;;9002226.02101,"993,851.50 ",.01)
 ;;851.50
 ;;9002226.02101,"993,851.50 ",.02)
 ;;851.50
 ;;9002226.02101,"993,851.51 ",.01)
 ;;851.51
 ;;9002226.02101,"993,851.51 ",.02)
 ;;851.51
 ;;9002226.02101,"993,851.52 ",.01)
 ;;851.52
 ;;9002226.02101,"993,851.52 ",.02)
 ;;851.52
 ;;9002226.02101,"993,851.53 ",.01)
 ;;851.53
 ;;9002226.02101,"993,851.53 ",.02)
 ;;851.53
 ;;9002226.02101,"993,851.54 ",.01)
 ;;851.54
 ;;9002226.02101,"993,851.54 ",.02)
 ;;851.54
 ;;9002226.02101,"993,851.55 ",.01)
 ;;851.55
 ;;9002226.02101,"993,851.55 ",.02)
 ;;851.55
 ;;9002226.02101,"993,851.56 ",.01)
 ;;851.56
 ;;9002226.02101,"993,851.56 ",.02)
 ;;851.56
 ;;9002226.02101,"993,851.59 ",.01)
 ;;851.59
 ;;9002226.02101,"993,851.59 ",.02)
 ;;851.59
 ;;9002226.02101,"993,851.6 ",.01)
 ;;851.6
 ;;9002226.02101,"993,851.6 ",.02)
 ;;851.6
 ;;9002226.02101,"993,851.60 ",.01)
 ;;851.60
 ;;9002226.02101,"993,851.60 ",.02)
 ;;851.60
 ;;9002226.02101,"993,851.61 ",.01)
 ;;851.61
 ;;9002226.02101,"993,851.61 ",.02)
 ;;851.61
 ;;9002226.02101,"993,851.62 ",.01)
 ;;851.62
 ;;9002226.02101,"993,851.62 ",.02)
 ;;851.62
 ;;9002226.02101,"993,851.63 ",.01)
 ;;851.63
 ;;9002226.02101,"993,851.63 ",.02)
 ;;851.63
 ;;9002226.02101,"993,851.64 ",.01)
 ;;851.64
 ;;9002226.02101,"993,851.64 ",.02)
 ;;851.64
 ;;9002226.02101,"993,851.65 ",.01)
 ;;851.65
 ;;9002226.02101,"993,851.65 ",.02)
 ;;851.65
 ;;9002226.02101,"993,851.66 ",.01)
 ;;851.66
 ;;9002226.02101,"993,851.66 ",.02)
 ;;851.66
 ;;9002226.02101,"993,851.69 ",.01)
 ;;851.69
 ;;9002226.02101,"993,851.69 ",.02)
 ;;851.69
 ;;9002226.02101,"993,851.7 ",.01)
 ;;851.7
 ;;9002226.02101,"993,851.7 ",.02)
 ;;851.7
 ;;9002226.02101,"993,851.70 ",.01)
 ;;851.70
 ;;9002226.02101,"993,851.70 ",.02)
 ;;851.70
 ;;9002226.02101,"993,851.71 ",.01)
 ;;851.71
 ;;9002226.02101,"993,851.71 ",.02)
 ;;851.71
 ;;9002226.02101,"993,851.72 ",.01)
 ;;851.72
 ;;9002226.02101,"993,851.72 ",.02)
 ;;851.72
 ;;9002226.02101,"993,851.73 ",.01)
 ;;851.73
 ;;9002226.02101,"993,851.73 ",.02)
 ;;851.73
 ;;9002226.02101,"993,851.74 ",.01)
 ;;851.74
 ;;9002226.02101,"993,851.74 ",.02)
 ;;851.74
 ;;9002226.02101,"993,851.75 ",.01)
 ;;851.75
 ;;9002226.02101,"993,851.75 ",.02)
 ;;851.75
 ;;9002226.02101,"993,851.76 ",.01)
 ;;851.76
 ;;9002226.02101,"993,851.76 ",.02)
 ;;851.76