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

BGPM5AOU.m

Go to the documentation of this file.
BGPM5AOU ;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,867.6 ",.02)
 ;;867.6
 ;;9002226.02101,"993,867.7 ",.01)
 ;;867.7
 ;;9002226.02101,"993,867.7 ",.02)
 ;;867.7
 ;;9002226.02101,"993,867.8 ",.01)
 ;;867.8
 ;;9002226.02101,"993,867.8 ",.02)
 ;;867.8
 ;;9002226.02101,"993,867.9 ",.01)
 ;;867.9
 ;;9002226.02101,"993,867.9 ",.02)
 ;;867.9
 ;;9002226.02101,"993,868 ",.01)
 ;;868
 ;;9002226.02101,"993,868 ",.02)
 ;;868
 ;;9002226.02101,"993,868.0 ",.01)
 ;;868.0
 ;;9002226.02101,"993,868.0 ",.02)
 ;;868.0
 ;;9002226.02101,"993,868.00 ",.01)
 ;;868.00
 ;;9002226.02101,"993,868.00 ",.02)
 ;;868.00
 ;;9002226.02101,"993,868.01 ",.01)
 ;;868.01
 ;;9002226.02101,"993,868.01 ",.02)
 ;;868.01
 ;;9002226.02101,"993,868.02 ",.01)
 ;;868.02
 ;;9002226.02101,"993,868.02 ",.02)
 ;;868.02
 ;;9002226.02101,"993,868.03 ",.01)
 ;;868.03
 ;;9002226.02101,"993,868.03 ",.02)
 ;;868.03
 ;;9002226.02101,"993,868.04 ",.01)
 ;;868.04
 ;;9002226.02101,"993,868.04 ",.02)
 ;;868.04
 ;;9002226.02101,"993,868.09 ",.01)
 ;;868.09
 ;;9002226.02101,"993,868.09 ",.02)
 ;;868.09
 ;;9002226.02101,"993,868.1 ",.01)
 ;;868.1
 ;;9002226.02101,"993,868.1 ",.02)
 ;;868.1
 ;;9002226.02101,"993,868.10 ",.01)
 ;;868.10
 ;;9002226.02101,"993,868.10 ",.02)
 ;;868.10
 ;;9002226.02101,"993,868.11 ",.01)
 ;;868.11
 ;;9002226.02101,"993,868.11 ",.02)
 ;;868.11
 ;;9002226.02101,"993,868.12 ",.01)
 ;;868.12
 ;;9002226.02101,"993,868.12 ",.02)
 ;;868.12
 ;;9002226.02101,"993,868.13 ",.01)
 ;;868.13
 ;;9002226.02101,"993,868.13 ",.02)
 ;;868.13
 ;;9002226.02101,"993,868.14 ",.01)
 ;;868.14
 ;;9002226.02101,"993,868.14 ",.02)
 ;;868.14
 ;;9002226.02101,"993,868.19 ",.01)
 ;;868.19
 ;;9002226.02101,"993,868.19 ",.02)
 ;;868.19
 ;;9002226.02101,"993,869 ",.01)
 ;;869
 ;;9002226.02101,"993,869 ",.02)
 ;;869
 ;;9002226.02101,"993,869.0 ",.01)
 ;;869.0
 ;;9002226.02101,"993,869.0 ",.02)
 ;;869.0
 ;;9002226.02101,"993,869.1 ",.01)
 ;;869.1
 ;;9002226.02101,"993,869.1 ",.02)
 ;;869.1
 ;;9002226.02101,"993,905 ",.01)
 ;;905
 ;;9002226.02101,"993,905 ",.02)
 ;;905
 ;;9002226.02101,"993,905.0 ",.01)
 ;;905.0
 ;;9002226.02101,"993,905.0 ",.02)
 ;;905.0
 ;;9002226.02101,"993,905.1 ",.01)
 ;;905.1
 ;;9002226.02101,"993,905.1 ",.02)
 ;;905.1
 ;;9002226.02101,"993,905.2 ",.01)
 ;;905.2
 ;;9002226.02101,"993,905.2 ",.02)
 ;;905.2
 ;;9002226.02101,"993,905.3 ",.01)
 ;;905.3
 ;;9002226.02101,"993,905.3 ",.02)
 ;;905.3
 ;;9002226.02101,"993,905.4 ",.01)
 ;;905.4
 ;;9002226.02101,"993,905.4 ",.02)
 ;;905.4
 ;;9002226.02101,"993,905.5 ",.01)
 ;;905.5
 ;;9002226.02101,"993,905.5 ",.02)
 ;;905.5
 ;;9002226.02101,"993,905.6 ",.01)
 ;;905.6
 ;;9002226.02101,"993,905.6 ",.02)
 ;;905.6
 ;;9002226.02101,"993,905.7 ",.01)
 ;;905.7
 ;;9002226.02101,"993,905.7 ",.02)
 ;;905.7
 ;;9002226.02101,"993,905.8 ",.01)
 ;;905.8
 ;;9002226.02101,"993,905.8 ",.02)
 ;;905.8
 ;;9002226.02101,"993,905.9 ",.01)
 ;;905.9
 ;;9002226.02101,"993,905.9 ",.02)
 ;;905.9
 ;;9002226.02101,"993,906 ",.01)
 ;;906
 ;;9002226.02101,"993,906 ",.02)
 ;;906
 ;;9002226.02101,"993,906.0 ",.01)
 ;;906.0
 ;;9002226.02101,"993,906.0 ",.02)
 ;;906.0
 ;;9002226.02101,"993,906.1 ",.01)
 ;;906.1
 ;;9002226.02101,"993,906.1 ",.02)
 ;;906.1
 ;;9002226.02101,"993,906.2 ",.01)
 ;;906.2
 ;;9002226.02101,"993,906.2 ",.02)
 ;;906.2
 ;;9002226.02101,"993,906.3 ",.01)
 ;;906.3
 ;;9002226.02101,"993,906.3 ",.02)
 ;;906.3
 ;;9002226.02101,"993,906.4 ",.01)
 ;;906.4
 ;;9002226.02101,"993,906.4 ",.02)
 ;;906.4
 ;;9002226.02101,"993,906.5 ",.01)
 ;;906.5
 ;;9002226.02101,"993,906.5 ",.02)
 ;;906.5
 ;;9002226.02101,"993,906.6 ",.01)
 ;;906.6
 ;;9002226.02101,"993,906.6 ",.02)
 ;;906.6
 ;;9002226.02101,"993,906.7 ",.01)
 ;;906.7
 ;;9002226.02101,"993,906.7 ",.02)
 ;;906.7
 ;;9002226.02101,"993,906.8 ",.01)
 ;;906.8
 ;;9002226.02101,"993,906.8 ",.02)
 ;;906.8
 ;;9002226.02101,"993,906.9 ",.01)
 ;;906.9
 ;;9002226.02101,"993,906.9 ",.02)
 ;;906.9
 ;;9002226.02101,"993,907 ",.01)
 ;;907
 ;;9002226.02101,"993,907 ",.02)
 ;;907
 ;;9002226.02101,"993,907.0 ",.01)
 ;;907.0
 ;;9002226.02101,"993,907.0 ",.02)
 ;;907.0
 ;;9002226.02101,"993,907.1 ",.01)
 ;;907.1
 ;;9002226.02101,"993,907.1 ",.02)
 ;;907.1
 ;;9002226.02101,"993,907.2 ",.01)
 ;;907.2
 ;;9002226.02101,"993,907.2 ",.02)
 ;;907.2
 ;;9002226.02101,"993,907.3 ",.01)
 ;;907.3
 ;;9002226.02101,"993,907.3 ",.02)
 ;;907.3
 ;;9002226.02101,"993,907.4 ",.01)
 ;;907.4
 ;;9002226.02101,"993,907.4 ",.02)
 ;;907.4
 ;;9002226.02101,"993,907.5 ",.01)
 ;;907.5
 ;;9002226.02101,"993,907.5 ",.02)
 ;;907.5
 ;;9002226.02101,"993,907.9 ",.01)
 ;;907.9
 ;;9002226.02101,"993,907.9 ",.02)
 ;;907.9
 ;;9002226.02101,"993,908 ",.01)
 ;;908
 ;;9002226.02101,"993,908 ",.02)
 ;;908
 ;;9002226.02101,"993,908.0 ",.01)
 ;;908.0
 ;;9002226.02101,"993,908.0 ",.02)
 ;;908.0
 ;;9002226.02101,"993,908.1 ",.01)
 ;;908.1
 ;;9002226.02101,"993,908.1 ",.02)
 ;;908.1
 ;;9002226.02101,"993,908.2 ",.01)
 ;;908.2
 ;;9002226.02101,"993,908.2 ",.02)
 ;;908.2
 ;;9002226.02101,"993,908.3 ",.01)
 ;;908.3
 ;;9002226.02101,"993,908.3 ",.02)
 ;;908.3
 ;;9002226.02101,"993,908.4 ",.01)
 ;;908.4
 ;;9002226.02101,"993,908.4 ",.02)
 ;;908.4
 ;;9002226.02101,"993,908.5 ",.01)
 ;;908.5
 ;;9002226.02101,"993,908.5 ",.02)
 ;;908.5
 ;;9002226.02101,"993,908.6 ",.01)
 ;;908.6
 ;;9002226.02101,"993,908.6 ",.02)
 ;;908.6
 ;;9002226.02101,"993,908.9 ",.01)
 ;;908.9
 ;;9002226.02101,"993,908.9 ",.02)
 ;;908.9
 ;;9002226.02101,"993,909 ",.01)
 ;;909
 ;;9002226.02101,"993,909 ",.02)
 ;;909
 ;;9002226.02101,"993,909.0 ",.01)
 ;;909.0
 ;;9002226.02101,"993,909.0 ",.02)
 ;;909.0
 ;;9002226.02101,"993,909.1 ",.01)
 ;;909.1
 ;;9002226.02101,"993,909.1 ",.02)
 ;;909.1
 ;;9002226.02101,"993,909.2 ",.01)
 ;;909.2
 ;;9002226.02101,"993,909.2 ",.02)
 ;;909.2
 ;;9002226.02101,"993,909.3 ",.01)
 ;;909.3
 ;;9002226.02101,"993,909.3 ",.02)
 ;;909.3
 ;;9002226.02101,"993,909.4 ",.01)
 ;;909.4
 ;;9002226.02101,"993,909.4 ",.02)
 ;;909.4
 ;;9002226.02101,"993,909.5 ",.01)
 ;;909.5
 ;;9002226.02101,"993,909.5 ",.02)
 ;;909.5
 ;;9002226.02101,"993,909.9 ",.01)
 ;;909.9
 ;;9002226.02101,"993,909.9 ",.02)
 ;;909.9
 ;;9002226.02101,"993,926.11 ",.01)
 ;;926.11
 ;;9002226.02101,"993,926.11 ",.02)
 ;;926.11
 ;;9002226.02101,"993,926.12 ",.01)
 ;;926.12
 ;;9002226.02101,"993,926.12 ",.02)
 ;;926.12
 ;;9002226.02101,"993,929 ",.01)
 ;;929
 ;;9002226.02101,"993,929 ",.02)
 ;;929
 ;;9002226.02101,"993,929.0 ",.01)
 ;;929.0
 ;;9002226.02101,"993,929.0 ",.02)
 ;;929.0
 ;;9002226.02101,"993,929.9 ",.01)
 ;;929.9
 ;;9002226.02101,"993,929.9 ",.02)
 ;;929.9
 ;;9002226.02101,"993,952 ",.01)
 ;;952
 ;;9002226.02101,"993,952 ",.02)
 ;;952
 ;;9002226.02101,"993,952.0 ",.01)
 ;;952.0
 ;;9002226.02101,"993,952.0 ",.02)
 ;;952.0
 ;;9002226.02101,"993,952.00 ",.01)
 ;;952.00
 ;;9002226.02101,"993,952.00 ",.02)
 ;;952.00
 ;;9002226.02101,"993,952.01 ",.01)
 ;;952.01
 ;;9002226.02101,"993,952.01 ",.02)
 ;;952.01
 ;;9002226.02101,"993,952.03 ",.01)
 ;;952.03
 ;;9002226.02101,"993,952.03 ",.02)
 ;;952.03
 ;;9002226.02101,"993,952.04 ",.01)
 ;;952.04
 ;;9002226.02101,"993,952.04 ",.02)
 ;;952.04
 ;;9002226.02101,"993,952.05 ",.01)
 ;;952.05
 ;;9002226.02101,"993,952.05 ",.02)
 ;;952.05
 ;;9002226.02101,"993,952.06 ",.01)
 ;;952.06
 ;;9002226.02101,"993,952.06 ",.02)
 ;;952.06
 ;;9002226.02101,"993,952.07 ",.01)
 ;;952.07
 ;;9002226.02101,"993,952.07 ",.02)
 ;;952.07
 ;;9002226.02101,"993,952.08 ",.01)
 ;;952.08
 ;;9002226.02101,"993,952.08 ",.02)
 ;;952.08
 ;;9002226.02101,"993,952.09 ",.01)
 ;;952.09
 ;;9002226.02101,"993,952.09 ",.02)
 ;;952.09
 ;;9002226.02101,"993,952.1 ",.01)
 ;;952.1
 ;;9002226.02101,"993,952.1 ",.02)
 ;;952.1
 ;;9002226.02101,"993,952.10 ",.01)
 ;;952.10
 ;;9002226.02101,"993,952.10 ",.02)
 ;;952.10
 ;;9002226.02101,"993,952.11 ",.01)
 ;;952.11
 ;;9002226.02101,"993,952.11 ",.02)
 ;;952.11
 ;;9002226.02101,"993,952.12 ",.01)
 ;;952.12
 ;;9002226.02101,"993,952.12 ",.02)
 ;;952.12
 ;;9002226.02101,"993,952.13 ",.01)
 ;;952.13
 ;;9002226.02101,"993,952.13 ",.02)
 ;;952.13
 ;;9002226.02101,"993,952.14 ",.01)
 ;;952.14
 ;;9002226.02101,"993,952.14 ",.02)
 ;;952.14
 ;;9002226.02101,"993,952.15 ",.01)
 ;;952.15
 ;;9002226.02101,"993,952.15 ",.02)
 ;;952.15
 ;;9002226.02101,"993,952.16 ",.01)
 ;;952.16
 ;;9002226.02101,"993,952.16 ",.02)
 ;;952.16
 ;;9002226.02101,"993,952.17 ",.01)
 ;;952.17
 ;;9002226.02101,"993,952.17 ",.02)
 ;;952.17
 ;;9002226.02101,"993,952.18 ",.01)
 ;;952.18
 ;;9002226.02101,"993,952.18 ",.02)
 ;;952.18
 ;;9002226.02101,"993,952.19 ",.01)
 ;;952.19
 ;;9002226.02101,"993,952.19 ",.02)
 ;;952.19
 ;;9002226.02101,"993,952.2 ",.01)
 ;;952.2
 ;;9002226.02101,"993,952.2 ",.02)
 ;;952.2
 ;;9002226.02101,"993,952.3 ",.01)
 ;;952.3
 ;;9002226.02101,"993,952.3 ",.02)
 ;;952.3
 ;;9002226.02101,"993,952.4 ",.01)
 ;;952.4
 ;;9002226.02101,"993,952.4 ",.02)
 ;;952.4
 ;;9002226.02101,"993,952.8 ",.01)
 ;;952.8
 ;;9002226.02101,"993,952.8 ",.02)
 ;;952.8
 ;;9002226.02101,"993,952.9 ",.01)
 ;;952.9
 ;;9002226.02101,"993,952.9 ",.02)
 ;;952.9
 ;;9002226.02101,"993,958 ",.01)
 ;;958
 ;;9002226.02101,"993,958 ",.02)
 ;;958
 ;;9002226.02101,"993,958.0 ",.01)
 ;;958.0
 ;;9002226.02101,"993,958.0 ",.02)
 ;;958.0
 ;;9002226.02101,"993,958.1 ",.01)
 ;;958.1
 ;;9002226.02101,"993,958.1 ",.02)
 ;;958.1
 ;;9002226.02101,"993,958.2 ",.01)
 ;;958.2
 ;;9002226.02101,"993,958.2 ",.02)
 ;;958.2
 ;;9002226.02101,"993,958.3 ",.01)
 ;;958.3
 ;;9002226.02101,"993,958.3 ",.02)
 ;;958.3
 ;;9002226.02101,"993,958.4 ",.01)
 ;;958.4
 ;;9002226.02101,"993,958.4 ",.02)
 ;;958.4
 ;;9002226.02101,"993,958.5 ",.01)
 ;;958.5
 ;;9002226.02101,"993,958.5 ",.02)
 ;;958.5
 ;;9002226.02101,"993,958.6 ",.01)
 ;;958.6
 ;;9002226.02101,"993,958.6 ",.02)
 ;;958.6
 ;;9002226.02101,"993,958.7 ",.01)
 ;;958.7
 ;;9002226.02101,"993,958.7 ",.02)
 ;;958.7
 ;;9002226.02101,"993,958.8 ",.01)
 ;;958.8
 ;;9002226.02101,"993,958.8 ",.02)
 ;;958.8
 ;;9002226.02101,"993,958.9 ",.01)
 ;;958.9
 ;;9002226.02101,"993,958.9 ",.02)
 ;;958.9
 ;;9002226.02101,"993,958.90 ",.01)
 ;;958.90
 ;;9002226.02101,"993,958.90 ",.02)
 ;;958.90
 ;;9002226.02101,"993,958.91 ",.01)
 ;;958.91
 ;;9002226.02101,"993,958.91 ",.02)
 ;;958.91
 ;;9002226.02101,"993,958.92 ",.01)
 ;;958.92
 ;;9002226.02101,"993,958.92 ",.02)
 ;;958.92
 ;;9002226.02101,"993,958.93 ",.01)
 ;;958.93
 ;;9002226.02101,"993,958.93 ",.02)
 ;;958.93
 ;;9002226.02101,"993,958.99 ",.01)
 ;;958.99
 ;;9002226.02101,"993,958.99 ",.02)
 ;;958.99
 ;;9002226.02101,"993,959 ",.01)
 ;;959
 ;;9002226.02101,"993,959 ",.02)
 ;;959
 ;;9002226.02101,"993,959.0 ",.01)
 ;;959.0
 ;;9002226.02101,"993,959.0 ",.02)
 ;;959.0
 ;;9002226.02101,"993,959.01 ",.01)
 ;;959.01
 ;;9002226.02101,"993,959.01 ",.02)
 ;;959.01
 ;;9002226.02101,"993,959.09 ",.01)
 ;;959.09
 ;;9002226.02101,"993,959.09 ",.02)
 ;;959.09
 ;;9002226.02101,"993,959.1 ",.01)
 ;;959.1
 ;;9002226.02101,"993,959.1 ",.02)
 ;;959.1
 ;;9002226.02101,"993,959.11 ",.01)
 ;;959.11
 ;;9002226.02101,"993,959.11 ",.02)
 ;;959.11
 ;;9002226.02101,"993,959.12 ",.01)
 ;;959.12
 ;;9002226.02101,"993,959.12 ",.02)
 ;;959.12
 ;;9002226.02101,"993,959.13 ",.01)
 ;;959.13
 ;;9002226.02101,"993,959.13 ",.02)
 ;;959.13
 ;;9002226.02101,"993,959.14 ",.01)
 ;;959.14
 ;;9002226.02101,"993,959.14 ",.02)
 ;;959.14
 ;;9002226.02101,"993,959.19 ",.01)
 ;;959.19