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