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.
  1. BGPM5AOD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 17, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"992,205.10 ",.02)
  1. ;;205.10
  1. ;;9002226.02101,"992,205.11 ",.01)
  1. ;;205.11
  1. ;;9002226.02101,"992,205.11 ",.02)
  1. ;;205.11
  1. ;;9002226.02101,"992,205.12 ",.01)
  1. ;;205.12
  1. ;;9002226.02101,"992,205.12 ",.02)
  1. ;;205.12
  1. ;;9002226.02101,"992,205.2 ",.01)
  1. ;;205.2
  1. ;;9002226.02101,"992,205.2 ",.02)
  1. ;;205.2
  1. ;;9002226.02101,"992,205.20 ",.01)
  1. ;;205.20
  1. ;;9002226.02101,"992,205.20 ",.02)
  1. ;;205.20
  1. ;;9002226.02101,"992,205.21 ",.01)
  1. ;;205.21
  1. ;;9002226.02101,"992,205.21 ",.02)
  1. ;;205.21
  1. ;;9002226.02101,"992,205.22 ",.01)
  1. ;;205.22
  1. ;;9002226.02101,"992,205.22 ",.02)
  1. ;;205.22
  1. ;;9002226.02101,"992,205.3 ",.01)
  1. ;;205.3
  1. ;;9002226.02101,"992,205.3 ",.02)
  1. ;;205.3
  1. ;;9002226.02101,"992,205.30 ",.01)
  1. ;;205.30
  1. ;;9002226.02101,"992,205.30 ",.02)
  1. ;;205.30
  1. ;;9002226.02101,"992,205.31 ",.01)
  1. ;;205.31
  1. ;;9002226.02101,"992,205.31 ",.02)
  1. ;;205.31
  1. ;;9002226.02101,"992,205.32 ",.01)
  1. ;;205.32
  1. ;;9002226.02101,"992,205.32 ",.02)
  1. ;;205.32
  1. ;;9002226.02101,"992,205.8 ",.01)
  1. ;;205.8
  1. ;;9002226.02101,"992,205.8 ",.02)
  1. ;;205.8
  1. ;;9002226.02101,"992,205.80 ",.01)
  1. ;;205.80
  1. ;;9002226.02101,"992,205.80 ",.02)
  1. ;;205.80
  1. ;;9002226.02101,"992,205.81 ",.01)
  1. ;;205.81
  1. ;;9002226.02101,"992,205.81 ",.02)
  1. ;;205.81
  1. ;;9002226.02101,"992,205.82 ",.01)
  1. ;;205.82
  1. ;;9002226.02101,"992,205.82 ",.02)
  1. ;;205.82
  1. ;;9002226.02101,"992,205.9 ",.01)
  1. ;;205.9
  1. ;;9002226.02101,"992,205.9 ",.02)
  1. ;;205.9
  1. ;;9002226.02101,"992,205.90 ",.01)
  1. ;;205.90
  1. ;;9002226.02101,"992,205.90 ",.02)
  1. ;;205.90
  1. ;;9002226.02101,"992,205.91 ",.01)
  1. ;;205.91
  1. ;;9002226.02101,"992,205.91 ",.02)
  1. ;;205.91
  1. ;;9002226.02101,"992,205.92 ",.01)
  1. ;;205.92
  1. ;;9002226.02101,"992,205.92 ",.02)
  1. ;;205.92
  1. ;;9002226.02101,"992,206 ",.01)
  1. ;;206
  1. ;;9002226.02101,"992,206 ",.02)
  1. ;;206
  1. ;;9002226.02101,"992,206.0 ",.01)
  1. ;;206.0
  1. ;;9002226.02101,"992,206.0 ",.02)
  1. ;;206.0
  1. ;;9002226.02101,"992,206.00 ",.01)
  1. ;;206.00
  1. ;;9002226.02101,"992,206.00 ",.02)
  1. ;;206.00
  1. ;;9002226.02101,"992,206.01 ",.01)
  1. ;;206.01
  1. ;;9002226.02101,"992,206.01 ",.02)
  1. ;;206.01
  1. ;;9002226.02101,"992,206.02 ",.01)
  1. ;;206.02
  1. ;;9002226.02101,"992,206.02 ",.02)
  1. ;;206.02
  1. ;;9002226.02101,"992,206.1 ",.01)
  1. ;;206.1
  1. ;;9002226.02101,"992,206.1 ",.02)
  1. ;;206.1
  1. ;;9002226.02101,"992,206.10 ",.01)
  1. ;;206.10
  1. ;;9002226.02101,"992,206.10 ",.02)
  1. ;;206.10
  1. ;;9002226.02101,"992,206.11 ",.01)
  1. ;;206.11
  1. ;;9002226.02101,"992,206.11 ",.02)
  1. ;;206.11
  1. ;;9002226.02101,"992,206.12 ",.01)
  1. ;;206.12
  1. ;;9002226.02101,"992,206.12 ",.02)
  1. ;;206.12
  1. ;;9002226.02101,"992,206.2 ",.01)
  1. ;;206.2
  1. ;;9002226.02101,"992,206.2 ",.02)
  1. ;;206.2
  1. ;;9002226.02101,"992,206.20 ",.01)
  1. ;;206.20
  1. ;;9002226.02101,"992,206.20 ",.02)
  1. ;;206.20
  1. ;;9002226.02101,"992,206.21 ",.01)
  1. ;;206.21
  1. ;;9002226.02101,"992,206.21 ",.02)
  1. ;;206.21
  1. ;;9002226.02101,"992,206.22 ",.01)
  1. ;;206.22
  1. ;;9002226.02101,"992,206.22 ",.02)
  1. ;;206.22
  1. ;;9002226.02101,"992,206.8 ",.01)
  1. ;;206.8
  1. ;;9002226.02101,"992,206.8 ",.02)
  1. ;;206.8
  1. ;;9002226.02101,"992,206.80 ",.01)
  1. ;;206.80
  1. ;;9002226.02101,"992,206.80 ",.02)
  1. ;;206.80
  1. ;;9002226.02101,"992,206.81 ",.01)
  1. ;;206.81
  1. ;;9002226.02101,"992,206.81 ",.02)
  1. ;;206.81
  1. ;;9002226.02101,"992,206.82 ",.01)
  1. ;;206.82
  1. ;;9002226.02101,"992,206.82 ",.02)
  1. ;;206.82
  1. ;;9002226.02101,"992,206.9 ",.01)
  1. ;;206.9
  1. ;;9002226.02101,"992,206.9 ",.02)
  1. ;;206.9
  1. ;;9002226.02101,"992,206.90 ",.01)
  1. ;;206.90
  1. ;;9002226.02101,"992,206.90 ",.02)
  1. ;;206.90
  1. ;;9002226.02101,"992,206.91 ",.01)
  1. ;;206.91
  1. ;;9002226.02101,"992,206.91 ",.02)
  1. ;;206.91
  1. ;;9002226.02101,"992,206.92 ",.01)
  1. ;;206.92
  1. ;;9002226.02101,"992,206.92 ",.02)
  1. ;;206.92
  1. ;;9002226.02101,"992,207 ",.01)
  1. ;;207
  1. ;;9002226.02101,"992,207 ",.02)
  1. ;;207
  1. ;;9002226.02101,"992,207.0 ",.01)
  1. ;;207.0
  1. ;;9002226.02101,"992,207.0 ",.02)
  1. ;;207.0
  1. ;;9002226.02101,"992,207.00 ",.01)
  1. ;;207.00
  1. ;;9002226.02101,"992,207.00 ",.02)
  1. ;;207.00
  1. ;;9002226.02101,"992,207.01 ",.01)
  1. ;;207.01
  1. ;;9002226.02101,"992,207.01 ",.02)
  1. ;;207.01
  1. ;;9002226.02101,"992,207.02 ",.01)
  1. ;;207.02
  1. ;;9002226.02101,"992,207.02 ",.02)
  1. ;;207.02
  1. ;;9002226.02101,"992,207.1 ",.01)
  1. ;;207.1
  1. ;;9002226.02101,"992,207.1 ",.02)
  1. ;;207.1
  1. ;;9002226.02101,"992,207.10 ",.01)
  1. ;;207.10
  1. ;;9002226.02101,"992,207.10 ",.02)
  1. ;;207.10
  1. ;;9002226.02101,"992,207.11 ",.01)
  1. ;;207.11
  1. ;;9002226.02101,"992,207.11 ",.02)
  1. ;;207.11
  1. ;;9002226.02101,"992,207.12 ",.01)
  1. ;;207.12
  1. ;;9002226.02101,"992,207.12 ",.02)
  1. ;;207.12
  1. ;;9002226.02101,"992,207.2 ",.01)
  1. ;;207.2
  1. ;;9002226.02101,"992,207.2 ",.02)
  1. ;;207.2
  1. ;;9002226.02101,"992,207.20 ",.01)
  1. ;;207.20
  1. ;;9002226.02101,"992,207.20 ",.02)
  1. ;;207.20
  1. ;;9002226.02101,"992,207.21 ",.01)
  1. ;;207.21
  1. ;;9002226.02101,"992,207.21 ",.02)
  1. ;;207.21
  1. ;;9002226.02101,"992,207.22 ",.01)
  1. ;;207.22
  1. ;;9002226.02101,"992,207.22 ",.02)
  1. ;;207.22
  1. ;;9002226.02101,"992,207.8 ",.01)
  1. ;;207.8
  1. ;;9002226.02101,"992,207.8 ",.02)
  1. ;;207.8
  1. ;;9002226.02101,"992,207.80 ",.01)
  1. ;;207.80
  1. ;;9002226.02101,"992,207.80 ",.02)
  1. ;;207.80
  1. ;;9002226.02101,"992,207.81 ",.01)
  1. ;;207.81
  1. ;;9002226.02101,"992,207.81 ",.02)
  1. ;;207.81
  1. ;;9002226.02101,"992,207.82 ",.01)
  1. ;;207.82
  1. ;;9002226.02101,"992,207.82 ",.02)
  1. ;;207.82
  1. ;;9002226.02101,"992,208 ",.01)
  1. ;;208
  1. ;;9002226.02101,"992,208 ",.02)
  1. ;;208
  1. ;;9002226.02101,"992,208.0 ",.01)
  1. ;;208.0
  1. ;;9002226.02101,"992,208.0 ",.02)
  1. ;;208.0
  1. ;;9002226.02101,"992,208.00 ",.01)
  1. ;;208.00
  1. ;;9002226.02101,"992,208.00 ",.02)
  1. ;;208.00
  1. ;;9002226.02101,"992,208.01 ",.01)
  1. ;;208.01
  1. ;;9002226.02101,"992,208.01 ",.02)
  1. ;;208.01
  1. ;;9002226.02101,"992,208.02 ",.01)
  1. ;;208.02
  1. ;;9002226.02101,"992,208.02 ",.02)
  1. ;;208.02
  1. ;;9002226.02101,"992,208.1 ",.01)
  1. ;;208.1
  1. ;;9002226.02101,"992,208.1 ",.02)
  1. ;;208.1
  1. ;;9002226.02101,"992,208.10 ",.01)
  1. ;;208.10
  1. ;;9002226.02101,"992,208.10 ",.02)
  1. ;;208.10
  1. ;;9002226.02101,"992,208.11 ",.01)
  1. ;;208.11
  1. ;;9002226.02101,"992,208.11 ",.02)
  1. ;;208.11
  1. ;;9002226.02101,"992,208.12 ",.01)
  1. ;;208.12
  1. ;;9002226.02101,"992,208.12 ",.02)
  1. ;;208.12
  1. ;;9002226.02101,"992,208.2 ",.01)
  1. ;;208.2
  1. ;;9002226.02101,"992,208.2 ",.02)
  1. ;;208.2
  1. ;;9002226.02101,"992,208.20 ",.01)
  1. ;;208.20
  1. ;;9002226.02101,"992,208.20 ",.02)
  1. ;;208.20
  1. ;;9002226.02101,"992,208.21 ",.01)
  1. ;;208.21
  1. ;;9002226.02101,"992,208.21 ",.02)
  1. ;;208.21
  1. ;;9002226.02101,"992,208.22 ",.01)
  1. ;;208.22
  1. ;;9002226.02101,"992,208.22 ",.02)
  1. ;;208.22
  1. ;;9002226.02101,"992,208.8 ",.01)
  1. ;;208.8
  1. ;;9002226.02101,"992,208.8 ",.02)
  1. ;;208.8
  1. ;;9002226.02101,"992,208.80 ",.01)
  1. ;;208.80
  1. ;;9002226.02101,"992,208.80 ",.02)
  1. ;;208.80
  1. ;;9002226.02101,"992,208.81 ",.01)
  1. ;;208.81
  1. ;;9002226.02101,"992,208.81 ",.02)
  1. ;;208.81
  1. ;;9002226.02101,"992,208.82 ",.01)
  1. ;;208.82
  1. ;;9002226.02101,"992,208.82 ",.02)
  1. ;;208.82
  1. ;;9002226.02101,"992,208.9 ",.01)
  1. ;;208.9
  1. ;;9002226.02101,"992,208.9 ",.02)
  1. ;;208.9
  1. ;;9002226.02101,"992,208.90 ",.01)
  1. ;;208.90
  1. ;;9002226.02101,"992,208.90 ",.02)
  1. ;;208.90
  1. ;;9002226.02101,"992,208.91 ",.01)
  1. ;;208.91
  1. ;;9002226.02101,"992,208.91 ",.02)
  1. ;;208.91
  1. ;;9002226.02101,"992,208.92 ",.01)
  1. ;;208.92
  1. ;;9002226.02101,"992,208.92 ",.02)
  1. ;;208.92
  1. ;;9002226.02101,"992,209 ",.01)
  1. ;;209
  1. ;;9002226.02101,"992,209 ",.02)
  1. ;;209
  1. ;;9002226.02101,"992,209.0 ",.01)
  1. ;;209.0
  1. ;;9002226.02101,"992,209.0 ",.02)
  1. ;;209.0
  1. ;;9002226.02101,"992,209.00 ",.01)
  1. ;;209.00
  1. ;;9002226.02101,"992,209.00 ",.02)
  1. ;;209.00
  1. ;;9002226.02101,"992,209.01 ",.01)
  1. ;;209.01
  1. ;;9002226.02101,"992,209.01 ",.02)
  1. ;;209.01
  1. ;;9002226.02101,"992,209.02 ",.01)
  1. ;;209.02
  1. ;;9002226.02101,"992,209.02 ",.02)
  1. ;;209.02
  1. ;;9002226.02101,"992,209.03 ",.01)
  1. ;;209.03
  1. ;;9002226.02101,"992,209.03 ",.02)
  1. ;;209.03
  1. ;;9002226.02101,"992,209.1 ",.01)
  1. ;;209.1
  1. ;;9002226.02101,"992,209.1 ",.02)
  1. ;;209.1
  1. ;;9002226.02101,"992,209.10 ",.01)
  1. ;;209.10
  1. ;;9002226.02101,"992,209.10 ",.02)
  1. ;;209.10
  1. ;;9002226.02101,"992,209.11 ",.01)
  1. ;;209.11
  1. ;;9002226.02101,"992,209.11 ",.02)
  1. ;;209.11
  1. ;;9002226.02101,"992,209.12 ",.01)
  1. ;;209.12
  1. ;;9002226.02101,"992,209.12 ",.02)
  1. ;;209.12
  1. ;;9002226.02101,"992,209.13 ",.01)
  1. ;;209.13
  1. ;;9002226.02101,"992,209.13 ",.02)
  1. ;;209.13
  1. ;;9002226.02101,"992,209.14 ",.01)
  1. ;;209.14
  1. ;;9002226.02101,"992,209.14 ",.02)
  1. ;;209.14
  1. ;;9002226.02101,"992,209.15 ",.01)
  1. ;;209.15
  1. ;;9002226.02101,"992,209.15 ",.02)
  1. ;;209.15
  1. ;;9002226.02101,"992,209.16 ",.01)
  1. ;;209.16
  1. ;;9002226.02101,"992,209.16 ",.02)
  1. ;;209.16
  1. ;;9002226.02101,"992,209.17 ",.01)
  1. ;;209.17
  1. ;;9002226.02101,"992,209.17 ",.02)
  1. ;;209.17
  1. ;;9002226.02101,"992,209.2 ",.01)
  1. ;;209.2
  1. ;;9002226.02101,"992,209.2 ",.02)
  1. ;;209.2
  1. ;;9002226.02101,"992,209.20 ",.01)
  1. ;;209.20
  1. ;;9002226.02101,"992,209.20 ",.02)
  1. ;;209.20
  1. ;;9002226.02101,"992,209.21 ",.01)
  1. ;;209.21
  1. ;;9002226.02101,"992,209.21 ",.02)
  1. ;;209.21
  1. ;;9002226.02101,"992,209.22 ",.01)
  1. ;;209.22
  1. ;;9002226.02101,"992,209.22 ",.02)
  1. ;;209.22
  1. ;;9002226.02101,"992,209.23 ",.01)
  1. ;;209.23
  1. ;;9002226.02101,"992,209.23 ",.02)
  1. ;;209.23
  1. ;;9002226.02101,"992,209.24 ",.01)
  1. ;;209.24
  1. ;;9002226.02101,"992,209.24 ",.02)
  1. ;;209.24
  1. ;;9002226.02101,"992,209.25 ",.01)
  1. ;;209.25
  1. ;;9002226.02101,"992,209.25 ",.02)
  1. ;;209.25
  1. ;;9002226.02101,"992,209.26 ",.01)
  1. ;;209.26
  1. ;;9002226.02101,"992,209.26 ",.02)
  1. ;;209.26
  1. ;;9002226.02101,"992,209.27 ",.01)
  1. ;;209.27
  1. ;;9002226.02101,"992,209.27 ",.02)
  1. ;;209.27
  1. ;;9002226.02101,"992,209.29 ",.01)
  1. ;;209.29
  1. ;;9002226.02101,"992,209.29 ",.02)
  1. ;;209.29
  1. ;;9002226.02101,"992,209.3 ",.01)
  1. ;;209.3
  1. ;;9002226.02101,"992,209.3 ",.02)
  1. ;;209.3
  1. ;;9002226.02101,"992,209.30 ",.01)
  1. ;;209.30
  1. ;;9002226.02101,"992,209.30 ",.02)
  1. ;;209.30
  1. ;;9002226.02101,"992,209.31 ",.01)
  1. ;;209.31
  1. ;;9002226.02101,"992,209.31 ",.02)
  1. ;;209.36
  1. ;;9002226.02101,"992,209.4 ",.01)
  1. ;;209.4
  1. ;;9002226.02101,"992,209.4 ",.02)
  1. ;;209.4
  1. ;;9002226.02101,"992,209.40 ",.01)
  1. ;;209.40
  1. ;;9002226.02101,"992,209.40 ",.02)
  1. ;;209.40
  1. ;;9002226.02101,"992,209.41 ",.01)
  1. ;;209.41
  1. ;;9002226.02101,"992,209.41 ",.02)
  1. ;;209.41
  1. ;;9002226.02101,"992,209.42 ",.01)
  1. ;;209.42
  1. ;;9002226.02101,"992,209.42 ",.02)
  1. ;;209.42
  1. ;;9002226.02101,"992,209.43 ",.01)
  1. ;;209.43
  1. ;;9002226.02101,"992,209.43 ",.02)
  1. ;;209.43
  1. ;;9002226.02101,"992,209.5 ",.01)
  1. ;;209.5
  1. ;;9002226.02101,"992,209.5 ",.02)
  1. ;;209.5
  1. ;;9002226.02101,"992,209.50 ",.01)
  1. ;;209.50
  1. ;;9002226.02101,"992,209.50 ",.02)
  1. ;;209.50
  1. ;;9002226.02101,"992,209.51 ",.01)
  1. ;;209.51
  1. ;;9002226.02101,"992,209.51 ",.02)
  1. ;;209.51
  1. ;;9002226.02101,"992,209.52 ",.01)
  1. ;;209.52
  1. ;;9002226.02101,"992,209.52 ",.02)
  1. ;;209.52
  1. ;;9002226.02101,"992,209.53 ",.01)
  1. ;;209.53
  1. ;;9002226.02101,"992,209.53 ",.02)
  1. ;;209.53
  1. ;;9002226.02101,"992,209.54 ",.01)
  1. ;;209.54
  1. ;;9002226.02101,"992,209.54 ",.02)
  1. ;;209.54
  1. ;;9002226.02101,"992,209.55 ",.01)
  1. ;;209.55
  1. ;;9002226.02101,"992,209.55 ",.02)
  1. ;;209.55
  1. ;;9002226.02101,"992,209.56 ",.01)
  1. ;;209.56
  1. ;;9002226.02101,"992,209.56 ",.02)
  1. ;;209.56
  1. ;;9002226.02101,"992,209.57 ",.01)
  1. ;;209.57
  1. ;;9002226.02101,"992,209.57 ",.02)
  1. ;;209.57
  1. ;;9002226.02101,"992,209.6 ",.01)
  1. ;;209.6
  1. ;;9002226.02101,"992,209.6 ",.02)
  1. ;;209.6
  1. ;;9002226.02101,"992,209.60 ",.01)
  1. ;;209.60
  1. ;;9002226.02101,"992,209.60 ",.02)
  1. ;;209.60
  1. ;;9002226.02101,"992,209.61 ",.01)
  1. ;;209.61
  1. ;;9002226.02101,"992,209.61 ",.02)
  1. ;;209.61
  1. ;;9002226.02101,"992,209.62 ",.01)
  1. ;;209.62