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

BGPM5ANZ.m

Go to the documentation of this file.
BGPM5ANZ ;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,150.4 ",.01)
 ;;150.4
 ;;9002226.02101,"992,150.4 ",.02)
 ;;150.4
 ;;9002226.02101,"992,150.5 ",.01)
 ;;150.5
 ;;9002226.02101,"992,150.5 ",.02)
 ;;150.5
 ;;9002226.02101,"992,150.8 ",.01)
 ;;150.8
 ;;9002226.02101,"992,150.8 ",.02)
 ;;150.8
 ;;9002226.02101,"992,150.9 ",.01)
 ;;150.9
 ;;9002226.02101,"992,150.9 ",.02)
 ;;150.9
 ;;9002226.02101,"992,151 ",.01)
 ;;151
 ;;9002226.02101,"992,151 ",.02)
 ;;151
 ;;9002226.02101,"992,151.0 ",.01)
 ;;151.0
 ;;9002226.02101,"992,151.0 ",.02)
 ;;151.0
 ;;9002226.02101,"992,151.1 ",.01)
 ;;151.1
 ;;9002226.02101,"992,151.1 ",.02)
 ;;151.1
 ;;9002226.02101,"992,151.2 ",.01)
 ;;151.2
 ;;9002226.02101,"992,151.2 ",.02)
 ;;151.2
 ;;9002226.02101,"992,151.3 ",.01)
 ;;151.3
 ;;9002226.02101,"992,151.3 ",.02)
 ;;151.3
 ;;9002226.02101,"992,151.4 ",.01)
 ;;151.4
 ;;9002226.02101,"992,151.4 ",.02)
 ;;151.4
 ;;9002226.02101,"992,151.5 ",.01)
 ;;151.5
 ;;9002226.02101,"992,151.5 ",.02)
 ;;151.5
 ;;9002226.02101,"992,151.6 ",.01)
 ;;151.6
 ;;9002226.02101,"992,151.6 ",.02)
 ;;151.6
 ;;9002226.02101,"992,151.8 ",.01)
 ;;151.8
 ;;9002226.02101,"992,151.8 ",.02)
 ;;151.8
 ;;9002226.02101,"992,151.9 ",.01)
 ;;151.9
 ;;9002226.02101,"992,151.9 ",.02)
 ;;151.9
 ;;9002226.02101,"992,152 ",.01)
 ;;152
 ;;9002226.02101,"992,152 ",.02)
 ;;152
 ;;9002226.02101,"992,152.0 ",.01)
 ;;152.0
 ;;9002226.02101,"992,152.0 ",.02)
 ;;152.0
 ;;9002226.02101,"992,152.1 ",.01)
 ;;152.1
 ;;9002226.02101,"992,152.1 ",.02)
 ;;152.1
 ;;9002226.02101,"992,152.2 ",.01)
 ;;152.2
 ;;9002226.02101,"992,152.2 ",.02)
 ;;152.2
 ;;9002226.02101,"992,152.3 ",.01)
 ;;152.3
 ;;9002226.02101,"992,152.3 ",.02)
 ;;152.3
 ;;9002226.02101,"992,152.8 ",.01)
 ;;152.8
 ;;9002226.02101,"992,152.8 ",.02)
 ;;152.8
 ;;9002226.02101,"992,152.9 ",.01)
 ;;152.9
 ;;9002226.02101,"992,152.9 ",.02)
 ;;152.9
 ;;9002226.02101,"992,153 ",.01)
 ;;153
 ;;9002226.02101,"992,153 ",.02)
 ;;153
 ;;9002226.02101,"992,153.0 ",.01)
 ;;153.0
 ;;9002226.02101,"992,153.0 ",.02)
 ;;153.0
 ;;9002226.02101,"992,153.1 ",.01)
 ;;153.1
 ;;9002226.02101,"992,153.1 ",.02)
 ;;153.1
 ;;9002226.02101,"992,153.2 ",.01)
 ;;153.2
 ;;9002226.02101,"992,153.2 ",.02)
 ;;153.2
 ;;9002226.02101,"992,153.3 ",.01)
 ;;153.3
 ;;9002226.02101,"992,153.3 ",.02)
 ;;153.3
 ;;9002226.02101,"992,153.4 ",.01)
 ;;153.4
 ;;9002226.02101,"992,153.4 ",.02)
 ;;153.4
 ;;9002226.02101,"992,153.5 ",.01)
 ;;153.5
 ;;9002226.02101,"992,153.5 ",.02)
 ;;153.5
 ;;9002226.02101,"992,153.6 ",.01)
 ;;153.6
 ;;9002226.02101,"992,153.6 ",.02)
 ;;153.6
 ;;9002226.02101,"992,153.7 ",.01)
 ;;153.7
 ;;9002226.02101,"992,153.7 ",.02)
 ;;153.7
 ;;9002226.02101,"992,153.8 ",.01)
 ;;153.8
 ;;9002226.02101,"992,153.8 ",.02)
 ;;153.8
 ;;9002226.02101,"992,153.9 ",.01)
 ;;153.9
 ;;9002226.02101,"992,153.9 ",.02)
 ;;153.9
 ;;9002226.02101,"992,154 ",.01)
 ;;154
 ;;9002226.02101,"992,154 ",.02)
 ;;154
 ;;9002226.02101,"992,154.0 ",.01)
 ;;154.0
 ;;9002226.02101,"992,154.0 ",.02)
 ;;154.0
 ;;9002226.02101,"992,154.1 ",.01)
 ;;154.1
 ;;9002226.02101,"992,154.1 ",.02)
 ;;154.1
 ;;9002226.02101,"992,154.2 ",.01)
 ;;154.2
 ;;9002226.02101,"992,154.2 ",.02)
 ;;154.2
 ;;9002226.02101,"992,154.3 ",.01)
 ;;154.3
 ;;9002226.02101,"992,154.3 ",.02)
 ;;154.3
 ;;9002226.02101,"992,154.8 ",.01)
 ;;154.8
 ;;9002226.02101,"992,154.8 ",.02)
 ;;154.8
 ;;9002226.02101,"992,155 ",.01)
 ;;155
 ;;9002226.02101,"992,155 ",.02)
 ;;155
 ;;9002226.02101,"992,155.0 ",.01)
 ;;155.0
 ;;9002226.02101,"992,155.0 ",.02)
 ;;155.0
 ;;9002226.02101,"992,155.1 ",.01)
 ;;155.1
 ;;9002226.02101,"992,155.1 ",.02)
 ;;155.1
 ;;9002226.02101,"992,155.2 ",.01)
 ;;155.2
 ;;9002226.02101,"992,155.2 ",.02)
 ;;155.2
 ;;9002226.02101,"992,156 ",.01)
 ;;156
 ;;9002226.02101,"992,156 ",.02)
 ;;156
 ;;9002226.02101,"992,156.0 ",.01)
 ;;156.0
 ;;9002226.02101,"992,156.0 ",.02)
 ;;156.0
 ;;9002226.02101,"992,156.1 ",.01)
 ;;156.1
 ;;9002226.02101,"992,156.1 ",.02)
 ;;156.1
 ;;9002226.02101,"992,156.2 ",.01)
 ;;156.2
 ;;9002226.02101,"992,156.2 ",.02)
 ;;156.2
 ;;9002226.02101,"992,156.8 ",.01)
 ;;156.8
 ;;9002226.02101,"992,156.8 ",.02)
 ;;156.8
 ;;9002226.02101,"992,156.9 ",.01)
 ;;156.9
 ;;9002226.02101,"992,156.9 ",.02)
 ;;156.9
 ;;9002226.02101,"992,157 ",.01)
 ;;157
 ;;9002226.02101,"992,157 ",.02)
 ;;157
 ;;9002226.02101,"992,157.0 ",.01)
 ;;157.0
 ;;9002226.02101,"992,157.0 ",.02)
 ;;157.0
 ;;9002226.02101,"992,157.1 ",.01)
 ;;157.1
 ;;9002226.02101,"992,157.1 ",.02)
 ;;157.1
 ;;9002226.02101,"992,157.2 ",.01)
 ;;157.2
 ;;9002226.02101,"992,157.2 ",.02)
 ;;157.2
 ;;9002226.02101,"992,157.3 ",.01)
 ;;157.3
 ;;9002226.02101,"992,157.3 ",.02)
 ;;157.3
 ;;9002226.02101,"992,157.4 ",.01)
 ;;157.4
 ;;9002226.02101,"992,157.4 ",.02)
 ;;157.4
 ;;9002226.02101,"992,157.8 ",.01)
 ;;157.8
 ;;9002226.02101,"992,157.8 ",.02)
 ;;157.8
 ;;9002226.02101,"992,157.9 ",.01)
 ;;157.9
 ;;9002226.02101,"992,157.9 ",.02)
 ;;157.9
 ;;9002226.02101,"992,158 ",.01)
 ;;158
 ;;9002226.02101,"992,158 ",.02)
 ;;158
 ;;9002226.02101,"992,158.0 ",.01)
 ;;158.0
 ;;9002226.02101,"992,158.0 ",.02)
 ;;158.0
 ;;9002226.02101,"992,158.8 ",.01)
 ;;158.8
 ;;9002226.02101,"992,158.8 ",.02)
 ;;158.8
 ;;9002226.02101,"992,158.9 ",.01)
 ;;158.9
 ;;9002226.02101,"992,158.9 ",.02)
 ;;158.9
 ;;9002226.02101,"992,159 ",.01)
 ;;159
 ;;9002226.02101,"992,159 ",.02)
 ;;159
 ;;9002226.02101,"992,159.0 ",.01)
 ;;159.0
 ;;9002226.02101,"992,159.0 ",.02)
 ;;159.0
 ;;9002226.02101,"992,159.1 ",.01)
 ;;159.1
 ;;9002226.02101,"992,159.1 ",.02)
 ;;159.1
 ;;9002226.02101,"992,159.8 ",.01)
 ;;159.8
 ;;9002226.02101,"992,159.8 ",.02)
 ;;159.8
 ;;9002226.02101,"992,159.9 ",.01)
 ;;159.9
 ;;9002226.02101,"992,159.9 ",.02)
 ;;159.9
 ;;9002226.02101,"992,160 ",.01)
 ;;160
 ;;9002226.02101,"992,160 ",.02)
 ;;160
 ;;9002226.02101,"992,160.0 ",.01)
 ;;160.0
 ;;9002226.02101,"992,160.0 ",.02)
 ;;160.0
 ;;9002226.02101,"992,160.1 ",.01)
 ;;160.1
 ;;9002226.02101,"992,160.1 ",.02)
 ;;160.1
 ;;9002226.02101,"992,160.2 ",.01)
 ;;160.2
 ;;9002226.02101,"992,160.2 ",.02)
 ;;160.2
 ;;9002226.02101,"992,160.3 ",.01)
 ;;160.3
 ;;9002226.02101,"992,160.3 ",.02)
 ;;160.3
 ;;9002226.02101,"992,160.4 ",.01)
 ;;160.4
 ;;9002226.02101,"992,160.4 ",.02)
 ;;160.4
 ;;9002226.02101,"992,160.5 ",.01)
 ;;160.5
 ;;9002226.02101,"992,160.5 ",.02)
 ;;160.5
 ;;9002226.02101,"992,160.8 ",.01)
 ;;160.8
 ;;9002226.02101,"992,160.8 ",.02)
 ;;160.8
 ;;9002226.02101,"992,160.9 ",.01)
 ;;160.9
 ;;9002226.02101,"992,160.9 ",.02)
 ;;160.9
 ;;9002226.02101,"992,161 ",.01)
 ;;161
 ;;9002226.02101,"992,161 ",.02)
 ;;161
 ;;9002226.02101,"992,161.0 ",.01)
 ;;161.0
 ;;9002226.02101,"992,161.0 ",.02)
 ;;161.0
 ;;9002226.02101,"992,161.1 ",.01)
 ;;161.1
 ;;9002226.02101,"992,161.1 ",.02)
 ;;161.1
 ;;9002226.02101,"992,161.2 ",.01)
 ;;161.2
 ;;9002226.02101,"992,161.2 ",.02)
 ;;161.2
 ;;9002226.02101,"992,161.3 ",.01)
 ;;161.3
 ;;9002226.02101,"992,161.3 ",.02)
 ;;161.3
 ;;9002226.02101,"992,161.8 ",.01)
 ;;161.8
 ;;9002226.02101,"992,161.8 ",.02)
 ;;161.8
 ;;9002226.02101,"992,161.9 ",.01)
 ;;161.9
 ;;9002226.02101,"992,161.9 ",.02)
 ;;161.9
 ;;9002226.02101,"992,162 ",.01)
 ;;162
 ;;9002226.02101,"992,162 ",.02)
 ;;162
 ;;9002226.02101,"992,162.0 ",.01)
 ;;162.0
 ;;9002226.02101,"992,162.0 ",.02)
 ;;162.0
 ;;9002226.02101,"992,162.2 ",.01)
 ;;162.2
 ;;9002226.02101,"992,162.2 ",.02)
 ;;162.2
 ;;9002226.02101,"992,162.3 ",.01)
 ;;162.3
 ;;9002226.02101,"992,162.3 ",.02)
 ;;162.3
 ;;9002226.02101,"992,162.4 ",.01)
 ;;162.4
 ;;9002226.02101,"992,162.4 ",.02)
 ;;162.4
 ;;9002226.02101,"992,162.5 ",.01)
 ;;162.5
 ;;9002226.02101,"992,162.5 ",.02)
 ;;162.5
 ;;9002226.02101,"992,162.8 ",.01)
 ;;162.8
 ;;9002226.02101,"992,162.8 ",.02)
 ;;162.8
 ;;9002226.02101,"992,162.9 ",.01)
 ;;162.9
 ;;9002226.02101,"992,162.9 ",.02)
 ;;162.9
 ;;9002226.02101,"992,163 ",.01)
 ;;163
 ;;9002226.02101,"992,163 ",.02)
 ;;163
 ;;9002226.02101,"992,163.0 ",.01)
 ;;163.0
 ;;9002226.02101,"992,163.0 ",.02)
 ;;163.0
 ;;9002226.02101,"992,163.1 ",.01)
 ;;163.1
 ;;9002226.02101,"992,163.1 ",.02)
 ;;163.1
 ;;9002226.02101,"992,163.8 ",.01)
 ;;163.8
 ;;9002226.02101,"992,163.8 ",.02)
 ;;163.8
 ;;9002226.02101,"992,163.9 ",.01)
 ;;163.9
 ;;9002226.02101,"992,163.9 ",.02)
 ;;163.9
 ;;9002226.02101,"992,164 ",.01)
 ;;164
 ;;9002226.02101,"992,164 ",.02)
 ;;164
 ;;9002226.02101,"992,164.0 ",.01)
 ;;164.0
 ;;9002226.02101,"992,164.0 ",.02)
 ;;164.0
 ;;9002226.02101,"992,164.1 ",.01)
 ;;164.1
 ;;9002226.02101,"992,164.1 ",.02)
 ;;164.1
 ;;9002226.02101,"992,164.2 ",.01)
 ;;164.2
 ;;9002226.02101,"992,164.2 ",.02)
 ;;164.2
 ;;9002226.02101,"992,164.3 ",.01)
 ;;164.3
 ;;9002226.02101,"992,164.3 ",.02)
 ;;164.3
 ;;9002226.02101,"992,164.8 ",.01)
 ;;164.8
 ;;9002226.02101,"992,164.8 ",.02)
 ;;164.8
 ;;9002226.02101,"992,164.9 ",.01)
 ;;164.9
 ;;9002226.02101,"992,164.9 ",.02)
 ;;164.9
 ;;9002226.02101,"992,165 ",.01)
 ;;165
 ;;9002226.02101,"992,165 ",.02)
 ;;165
 ;;9002226.02101,"992,165.0 ",.01)
 ;;165.0
 ;;9002226.02101,"992,165.0 ",.02)
 ;;165.0
 ;;9002226.02101,"992,165.8 ",.01)
 ;;165.8
 ;;9002226.02101,"992,165.8 ",.02)
 ;;165.8
 ;;9002226.02101,"992,165.9 ",.01)
 ;;165.9
 ;;9002226.02101,"992,165.9 ",.02)
 ;;165.9
 ;;9002226.02101,"992,170 ",.01)
 ;;170
 ;;9002226.02101,"992,170 ",.02)
 ;;170
 ;;9002226.02101,"992,170.0 ",.01)
 ;;170.0
 ;;9002226.02101,"992,170.0 ",.02)
 ;;170.0
 ;;9002226.02101,"992,170.1 ",.01)
 ;;170.1
 ;;9002226.02101,"992,170.1 ",.02)
 ;;170.1
 ;;9002226.02101,"992,170.2 ",.01)
 ;;170.2
 ;;9002226.02101,"992,170.2 ",.02)
 ;;170.2
 ;;9002226.02101,"992,170.3 ",.01)
 ;;170.3
 ;;9002226.02101,"992,170.3 ",.02)
 ;;170.3
 ;;9002226.02101,"992,170.4 ",.01)
 ;;170.4
 ;;9002226.02101,"992,170.4 ",.02)
 ;;170.4
 ;;9002226.02101,"992,170.5 ",.01)
 ;;170.5
 ;;9002226.02101,"992,170.5 ",.02)
 ;;170.5
 ;;9002226.02101,"992,170.6 ",.01)
 ;;170.6
 ;;9002226.02101,"992,170.6 ",.02)
 ;;170.6
 ;;9002226.02101,"992,170.7 ",.01)
 ;;170.7
 ;;9002226.02101,"992,170.7 ",.02)
 ;;170.7
 ;;9002226.02101,"992,170.8 ",.01)
 ;;170.8
 ;;9002226.02101,"992,170.8 ",.02)
 ;;170.8
 ;;9002226.02101,"992,170.9 ",.01)
 ;;170.9
 ;;9002226.02101,"992,170.9 ",.02)
 ;;170.9
 ;;9002226.02101,"992,171 ",.01)
 ;;171
 ;;9002226.02101,"992,171 ",.02)
 ;;171
 ;;9002226.02101,"992,171.0 ",.01)
 ;;171.0
 ;;9002226.02101,"992,171.0 ",.02)
 ;;171.0
 ;;9002226.02101,"992,171.2 ",.01)
 ;;171.2
 ;;9002226.02101,"992,171.2 ",.02)
 ;;171.2
 ;;9002226.02101,"992,171.3 ",.01)
 ;;171.3
 ;;9002226.02101,"992,171.3 ",.02)
 ;;171.3
 ;;9002226.02101,"992,171.4 ",.01)
 ;;171.4
 ;;9002226.02101,"992,171.4 ",.02)
 ;;171.4
 ;;9002226.02101,"992,171.5 ",.01)
 ;;171.5
 ;;9002226.02101,"992,171.5 ",.02)
 ;;171.5
 ;;9002226.02101,"992,171.6 ",.01)
 ;;171.6
 ;;9002226.02101,"992,171.6 ",.02)
 ;;171.6
 ;;9002226.02101,"992,171.7 ",.01)
 ;;171.7
 ;;9002226.02101,"992,171.7 ",.02)
 ;;171.7
 ;;9002226.02101,"992,171.8 ",.01)
 ;;171.8
 ;;9002226.02101,"992,171.8 ",.02)
 ;;171.8
 ;;9002226.02101,"992,171.9 ",.01)
 ;;171.9
 ;;9002226.02101,"992,171.9 ",.02)
 ;;171.9
 ;;9002226.02101,"992,172 ",.01)
 ;;172
 ;;9002226.02101,"992,172 ",.02)
 ;;172
 ;;9002226.02101,"992,172.0 ",.01)
 ;;172.0
 ;;9002226.02101,"992,172.0 ",.02)
 ;;172.0