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

BGPM5AOD.m

Go to the documentation of this file.
BGPM5AOD ;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,205.10 ",.02)
 ;;205.10
 ;;9002226.02101,"992,205.11 ",.01)
 ;;205.11
 ;;9002226.02101,"992,205.11 ",.02)
 ;;205.11
 ;;9002226.02101,"992,205.12 ",.01)
 ;;205.12
 ;;9002226.02101,"992,205.12 ",.02)
 ;;205.12
 ;;9002226.02101,"992,205.2 ",.01)
 ;;205.2
 ;;9002226.02101,"992,205.2 ",.02)
 ;;205.2
 ;;9002226.02101,"992,205.20 ",.01)
 ;;205.20
 ;;9002226.02101,"992,205.20 ",.02)
 ;;205.20
 ;;9002226.02101,"992,205.21 ",.01)
 ;;205.21
 ;;9002226.02101,"992,205.21 ",.02)
 ;;205.21
 ;;9002226.02101,"992,205.22 ",.01)
 ;;205.22
 ;;9002226.02101,"992,205.22 ",.02)
 ;;205.22
 ;;9002226.02101,"992,205.3 ",.01)
 ;;205.3
 ;;9002226.02101,"992,205.3 ",.02)
 ;;205.3
 ;;9002226.02101,"992,205.30 ",.01)
 ;;205.30
 ;;9002226.02101,"992,205.30 ",.02)
 ;;205.30
 ;;9002226.02101,"992,205.31 ",.01)
 ;;205.31
 ;;9002226.02101,"992,205.31 ",.02)
 ;;205.31
 ;;9002226.02101,"992,205.32 ",.01)
 ;;205.32
 ;;9002226.02101,"992,205.32 ",.02)
 ;;205.32
 ;;9002226.02101,"992,205.8 ",.01)
 ;;205.8
 ;;9002226.02101,"992,205.8 ",.02)
 ;;205.8
 ;;9002226.02101,"992,205.80 ",.01)
 ;;205.80
 ;;9002226.02101,"992,205.80 ",.02)
 ;;205.80
 ;;9002226.02101,"992,205.81 ",.01)
 ;;205.81
 ;;9002226.02101,"992,205.81 ",.02)
 ;;205.81
 ;;9002226.02101,"992,205.82 ",.01)
 ;;205.82
 ;;9002226.02101,"992,205.82 ",.02)
 ;;205.82
 ;;9002226.02101,"992,205.9 ",.01)
 ;;205.9
 ;;9002226.02101,"992,205.9 ",.02)
 ;;205.9
 ;;9002226.02101,"992,205.90 ",.01)
 ;;205.90
 ;;9002226.02101,"992,205.90 ",.02)
 ;;205.90
 ;;9002226.02101,"992,205.91 ",.01)
 ;;205.91
 ;;9002226.02101,"992,205.91 ",.02)
 ;;205.91
 ;;9002226.02101,"992,205.92 ",.01)
 ;;205.92
 ;;9002226.02101,"992,205.92 ",.02)
 ;;205.92
 ;;9002226.02101,"992,206 ",.01)
 ;;206
 ;;9002226.02101,"992,206 ",.02)
 ;;206
 ;;9002226.02101,"992,206.0 ",.01)
 ;;206.0
 ;;9002226.02101,"992,206.0 ",.02)
 ;;206.0
 ;;9002226.02101,"992,206.00 ",.01)
 ;;206.00
 ;;9002226.02101,"992,206.00 ",.02)
 ;;206.00
 ;;9002226.02101,"992,206.01 ",.01)
 ;;206.01
 ;;9002226.02101,"992,206.01 ",.02)
 ;;206.01
 ;;9002226.02101,"992,206.02 ",.01)
 ;;206.02
 ;;9002226.02101,"992,206.02 ",.02)
 ;;206.02
 ;;9002226.02101,"992,206.1 ",.01)
 ;;206.1
 ;;9002226.02101,"992,206.1 ",.02)
 ;;206.1
 ;;9002226.02101,"992,206.10 ",.01)
 ;;206.10
 ;;9002226.02101,"992,206.10 ",.02)
 ;;206.10
 ;;9002226.02101,"992,206.11 ",.01)
 ;;206.11
 ;;9002226.02101,"992,206.11 ",.02)
 ;;206.11
 ;;9002226.02101,"992,206.12 ",.01)
 ;;206.12
 ;;9002226.02101,"992,206.12 ",.02)
 ;;206.12
 ;;9002226.02101,"992,206.2 ",.01)
 ;;206.2
 ;;9002226.02101,"992,206.2 ",.02)
 ;;206.2
 ;;9002226.02101,"992,206.20 ",.01)
 ;;206.20
 ;;9002226.02101,"992,206.20 ",.02)
 ;;206.20
 ;;9002226.02101,"992,206.21 ",.01)
 ;;206.21
 ;;9002226.02101,"992,206.21 ",.02)
 ;;206.21
 ;;9002226.02101,"992,206.22 ",.01)
 ;;206.22
 ;;9002226.02101,"992,206.22 ",.02)
 ;;206.22
 ;;9002226.02101,"992,206.8 ",.01)
 ;;206.8
 ;;9002226.02101,"992,206.8 ",.02)
 ;;206.8
 ;;9002226.02101,"992,206.80 ",.01)
 ;;206.80
 ;;9002226.02101,"992,206.80 ",.02)
 ;;206.80
 ;;9002226.02101,"992,206.81 ",.01)
 ;;206.81
 ;;9002226.02101,"992,206.81 ",.02)
 ;;206.81
 ;;9002226.02101,"992,206.82 ",.01)
 ;;206.82
 ;;9002226.02101,"992,206.82 ",.02)
 ;;206.82
 ;;9002226.02101,"992,206.9 ",.01)
 ;;206.9
 ;;9002226.02101,"992,206.9 ",.02)
 ;;206.9
 ;;9002226.02101,"992,206.90 ",.01)
 ;;206.90
 ;;9002226.02101,"992,206.90 ",.02)
 ;;206.90
 ;;9002226.02101,"992,206.91 ",.01)
 ;;206.91
 ;;9002226.02101,"992,206.91 ",.02)
 ;;206.91
 ;;9002226.02101,"992,206.92 ",.01)
 ;;206.92
 ;;9002226.02101,"992,206.92 ",.02)
 ;;206.92
 ;;9002226.02101,"992,207 ",.01)
 ;;207
 ;;9002226.02101,"992,207 ",.02)
 ;;207
 ;;9002226.02101,"992,207.0 ",.01)
 ;;207.0
 ;;9002226.02101,"992,207.0 ",.02)
 ;;207.0
 ;;9002226.02101,"992,207.00 ",.01)
 ;;207.00
 ;;9002226.02101,"992,207.00 ",.02)
 ;;207.00
 ;;9002226.02101,"992,207.01 ",.01)
 ;;207.01
 ;;9002226.02101,"992,207.01 ",.02)
 ;;207.01
 ;;9002226.02101,"992,207.02 ",.01)
 ;;207.02
 ;;9002226.02101,"992,207.02 ",.02)
 ;;207.02
 ;;9002226.02101,"992,207.1 ",.01)
 ;;207.1
 ;;9002226.02101,"992,207.1 ",.02)
 ;;207.1
 ;;9002226.02101,"992,207.10 ",.01)
 ;;207.10
 ;;9002226.02101,"992,207.10 ",.02)
 ;;207.10
 ;;9002226.02101,"992,207.11 ",.01)
 ;;207.11
 ;;9002226.02101,"992,207.11 ",.02)
 ;;207.11
 ;;9002226.02101,"992,207.12 ",.01)
 ;;207.12
 ;;9002226.02101,"992,207.12 ",.02)
 ;;207.12
 ;;9002226.02101,"992,207.2 ",.01)
 ;;207.2
 ;;9002226.02101,"992,207.2 ",.02)
 ;;207.2
 ;;9002226.02101,"992,207.20 ",.01)
 ;;207.20
 ;;9002226.02101,"992,207.20 ",.02)
 ;;207.20
 ;;9002226.02101,"992,207.21 ",.01)
 ;;207.21
 ;;9002226.02101,"992,207.21 ",.02)
 ;;207.21
 ;;9002226.02101,"992,207.22 ",.01)
 ;;207.22
 ;;9002226.02101,"992,207.22 ",.02)
 ;;207.22
 ;;9002226.02101,"992,207.8 ",.01)
 ;;207.8
 ;;9002226.02101,"992,207.8 ",.02)
 ;;207.8
 ;;9002226.02101,"992,207.80 ",.01)
 ;;207.80
 ;;9002226.02101,"992,207.80 ",.02)
 ;;207.80
 ;;9002226.02101,"992,207.81 ",.01)
 ;;207.81
 ;;9002226.02101,"992,207.81 ",.02)
 ;;207.81
 ;;9002226.02101,"992,207.82 ",.01)
 ;;207.82
 ;;9002226.02101,"992,207.82 ",.02)
 ;;207.82
 ;;9002226.02101,"992,208 ",.01)
 ;;208
 ;;9002226.02101,"992,208 ",.02)
 ;;208
 ;;9002226.02101,"992,208.0 ",.01)
 ;;208.0
 ;;9002226.02101,"992,208.0 ",.02)
 ;;208.0
 ;;9002226.02101,"992,208.00 ",.01)
 ;;208.00
 ;;9002226.02101,"992,208.00 ",.02)
 ;;208.00
 ;;9002226.02101,"992,208.01 ",.01)
 ;;208.01
 ;;9002226.02101,"992,208.01 ",.02)
 ;;208.01
 ;;9002226.02101,"992,208.02 ",.01)
 ;;208.02
 ;;9002226.02101,"992,208.02 ",.02)
 ;;208.02
 ;;9002226.02101,"992,208.1 ",.01)
 ;;208.1
 ;;9002226.02101,"992,208.1 ",.02)
 ;;208.1
 ;;9002226.02101,"992,208.10 ",.01)
 ;;208.10
 ;;9002226.02101,"992,208.10 ",.02)
 ;;208.10
 ;;9002226.02101,"992,208.11 ",.01)
 ;;208.11
 ;;9002226.02101,"992,208.11 ",.02)
 ;;208.11
 ;;9002226.02101,"992,208.12 ",.01)
 ;;208.12
 ;;9002226.02101,"992,208.12 ",.02)
 ;;208.12
 ;;9002226.02101,"992,208.2 ",.01)
 ;;208.2
 ;;9002226.02101,"992,208.2 ",.02)
 ;;208.2
 ;;9002226.02101,"992,208.20 ",.01)
 ;;208.20
 ;;9002226.02101,"992,208.20 ",.02)
 ;;208.20
 ;;9002226.02101,"992,208.21 ",.01)
 ;;208.21
 ;;9002226.02101,"992,208.21 ",.02)
 ;;208.21
 ;;9002226.02101,"992,208.22 ",.01)
 ;;208.22
 ;;9002226.02101,"992,208.22 ",.02)
 ;;208.22
 ;;9002226.02101,"992,208.8 ",.01)
 ;;208.8
 ;;9002226.02101,"992,208.8 ",.02)
 ;;208.8
 ;;9002226.02101,"992,208.80 ",.01)
 ;;208.80
 ;;9002226.02101,"992,208.80 ",.02)
 ;;208.80
 ;;9002226.02101,"992,208.81 ",.01)
 ;;208.81
 ;;9002226.02101,"992,208.81 ",.02)
 ;;208.81
 ;;9002226.02101,"992,208.82 ",.01)
 ;;208.82
 ;;9002226.02101,"992,208.82 ",.02)
 ;;208.82
 ;;9002226.02101,"992,208.9 ",.01)
 ;;208.9
 ;;9002226.02101,"992,208.9 ",.02)
 ;;208.9
 ;;9002226.02101,"992,208.90 ",.01)
 ;;208.90
 ;;9002226.02101,"992,208.90 ",.02)
 ;;208.90
 ;;9002226.02101,"992,208.91 ",.01)
 ;;208.91
 ;;9002226.02101,"992,208.91 ",.02)
 ;;208.91
 ;;9002226.02101,"992,208.92 ",.01)
 ;;208.92
 ;;9002226.02101,"992,208.92 ",.02)
 ;;208.92
 ;;9002226.02101,"992,209 ",.01)
 ;;209
 ;;9002226.02101,"992,209 ",.02)
 ;;209
 ;;9002226.02101,"992,209.0 ",.01)
 ;;209.0
 ;;9002226.02101,"992,209.0 ",.02)
 ;;209.0
 ;;9002226.02101,"992,209.00 ",.01)
 ;;209.00
 ;;9002226.02101,"992,209.00 ",.02)
 ;;209.00
 ;;9002226.02101,"992,209.01 ",.01)
 ;;209.01
 ;;9002226.02101,"992,209.01 ",.02)
 ;;209.01
 ;;9002226.02101,"992,209.02 ",.01)
 ;;209.02
 ;;9002226.02101,"992,209.02 ",.02)
 ;;209.02
 ;;9002226.02101,"992,209.03 ",.01)
 ;;209.03
 ;;9002226.02101,"992,209.03 ",.02)
 ;;209.03
 ;;9002226.02101,"992,209.1 ",.01)
 ;;209.1
 ;;9002226.02101,"992,209.1 ",.02)
 ;;209.1
 ;;9002226.02101,"992,209.10 ",.01)
 ;;209.10
 ;;9002226.02101,"992,209.10 ",.02)
 ;;209.10
 ;;9002226.02101,"992,209.11 ",.01)
 ;;209.11
 ;;9002226.02101,"992,209.11 ",.02)
 ;;209.11
 ;;9002226.02101,"992,209.12 ",.01)
 ;;209.12
 ;;9002226.02101,"992,209.12 ",.02)
 ;;209.12
 ;;9002226.02101,"992,209.13 ",.01)
 ;;209.13
 ;;9002226.02101,"992,209.13 ",.02)
 ;;209.13
 ;;9002226.02101,"992,209.14 ",.01)
 ;;209.14
 ;;9002226.02101,"992,209.14 ",.02)
 ;;209.14
 ;;9002226.02101,"992,209.15 ",.01)
 ;;209.15
 ;;9002226.02101,"992,209.15 ",.02)
 ;;209.15
 ;;9002226.02101,"992,209.16 ",.01)
 ;;209.16
 ;;9002226.02101,"992,209.16 ",.02)
 ;;209.16
 ;;9002226.02101,"992,209.17 ",.01)
 ;;209.17
 ;;9002226.02101,"992,209.17 ",.02)
 ;;209.17
 ;;9002226.02101,"992,209.2 ",.01)
 ;;209.2
 ;;9002226.02101,"992,209.2 ",.02)
 ;;209.2
 ;;9002226.02101,"992,209.20 ",.01)
 ;;209.20
 ;;9002226.02101,"992,209.20 ",.02)
 ;;209.20
 ;;9002226.02101,"992,209.21 ",.01)
 ;;209.21
 ;;9002226.02101,"992,209.21 ",.02)
 ;;209.21
 ;;9002226.02101,"992,209.22 ",.01)
 ;;209.22
 ;;9002226.02101,"992,209.22 ",.02)
 ;;209.22
 ;;9002226.02101,"992,209.23 ",.01)
 ;;209.23
 ;;9002226.02101,"992,209.23 ",.02)
 ;;209.23
 ;;9002226.02101,"992,209.24 ",.01)
 ;;209.24
 ;;9002226.02101,"992,209.24 ",.02)
 ;;209.24
 ;;9002226.02101,"992,209.25 ",.01)
 ;;209.25
 ;;9002226.02101,"992,209.25 ",.02)
 ;;209.25
 ;;9002226.02101,"992,209.26 ",.01)
 ;;209.26
 ;;9002226.02101,"992,209.26 ",.02)
 ;;209.26
 ;;9002226.02101,"992,209.27 ",.01)
 ;;209.27
 ;;9002226.02101,"992,209.27 ",.02)
 ;;209.27
 ;;9002226.02101,"992,209.29 ",.01)
 ;;209.29
 ;;9002226.02101,"992,209.29 ",.02)
 ;;209.29
 ;;9002226.02101,"992,209.3 ",.01)
 ;;209.3
 ;;9002226.02101,"992,209.3 ",.02)
 ;;209.3
 ;;9002226.02101,"992,209.30 ",.01)
 ;;209.30
 ;;9002226.02101,"992,209.30 ",.02)
 ;;209.30
 ;;9002226.02101,"992,209.31 ",.01)
 ;;209.31
 ;;9002226.02101,"992,209.31 ",.02)
 ;;209.36
 ;;9002226.02101,"992,209.4 ",.01)
 ;;209.4
 ;;9002226.02101,"992,209.4 ",.02)
 ;;209.4
 ;;9002226.02101,"992,209.40 ",.01)
 ;;209.40
 ;;9002226.02101,"992,209.40 ",.02)
 ;;209.40
 ;;9002226.02101,"992,209.41 ",.01)
 ;;209.41
 ;;9002226.02101,"992,209.41 ",.02)
 ;;209.41
 ;;9002226.02101,"992,209.42 ",.01)
 ;;209.42
 ;;9002226.02101,"992,209.42 ",.02)
 ;;209.42
 ;;9002226.02101,"992,209.43 ",.01)
 ;;209.43
 ;;9002226.02101,"992,209.43 ",.02)
 ;;209.43
 ;;9002226.02101,"992,209.5 ",.01)
 ;;209.5
 ;;9002226.02101,"992,209.5 ",.02)
 ;;209.5
 ;;9002226.02101,"992,209.50 ",.01)
 ;;209.50
 ;;9002226.02101,"992,209.50 ",.02)
 ;;209.50
 ;;9002226.02101,"992,209.51 ",.01)
 ;;209.51
 ;;9002226.02101,"992,209.51 ",.02)
 ;;209.51
 ;;9002226.02101,"992,209.52 ",.01)
 ;;209.52
 ;;9002226.02101,"992,209.52 ",.02)
 ;;209.52
 ;;9002226.02101,"992,209.53 ",.01)
 ;;209.53
 ;;9002226.02101,"992,209.53 ",.02)
 ;;209.53
 ;;9002226.02101,"992,209.54 ",.01)
 ;;209.54
 ;;9002226.02101,"992,209.54 ",.02)
 ;;209.54
 ;;9002226.02101,"992,209.55 ",.01)
 ;;209.55
 ;;9002226.02101,"992,209.55 ",.02)
 ;;209.55
 ;;9002226.02101,"992,209.56 ",.01)
 ;;209.56
 ;;9002226.02101,"992,209.56 ",.02)
 ;;209.56
 ;;9002226.02101,"992,209.57 ",.01)
 ;;209.57
 ;;9002226.02101,"992,209.57 ",.02)
 ;;209.57
 ;;9002226.02101,"992,209.6 ",.01)
 ;;209.6
 ;;9002226.02101,"992,209.6 ",.02)
 ;;209.6
 ;;9002226.02101,"992,209.60 ",.01)
 ;;209.60
 ;;9002226.02101,"992,209.60 ",.02)
 ;;209.60
 ;;9002226.02101,"992,209.61 ",.01)
 ;;209.61
 ;;9002226.02101,"992,209.61 ",.02)
 ;;209.61
 ;;9002226.02101,"992,209.62 ",.01)
 ;;209.62