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

BGPM5AO.m

Go to the documentation of this file.
BGPM5AO ;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,172.1 ",.01)
 ;;172.1
 ;;9002226.02101,"992,172.1 ",.02)
 ;;172.1
 ;;9002226.02101,"992,172.2 ",.01)
 ;;172.2
 ;;9002226.02101,"992,172.2 ",.02)
 ;;172.2
 ;;9002226.02101,"992,172.3 ",.01)
 ;;172.3
 ;;9002226.02101,"992,172.3 ",.02)
 ;;172.3
 ;;9002226.02101,"992,172.4 ",.01)
 ;;172.4
 ;;9002226.02101,"992,172.4 ",.02)
 ;;172.4
 ;;9002226.02101,"992,172.5 ",.01)
 ;;172.5
 ;;9002226.02101,"992,172.5 ",.02)
 ;;172.5
 ;;9002226.02101,"992,172.6 ",.01)
 ;;172.6
 ;;9002226.02101,"992,172.6 ",.02)
 ;;172.6
 ;;9002226.02101,"992,172.7 ",.01)
 ;;172.7
 ;;9002226.02101,"992,172.7 ",.02)
 ;;172.7
 ;;9002226.02101,"992,172.8 ",.01)
 ;;172.8
 ;;9002226.02101,"992,172.8 ",.02)
 ;;172.8
 ;;9002226.02101,"992,172.9 ",.01)
 ;;172.9
 ;;9002226.02101,"992,172.9 ",.02)
 ;;172.9
 ;;9002226.02101,"992,173 ",.01)
 ;;173
 ;;9002226.02101,"992,173 ",.02)
 ;;173
 ;;9002226.02101,"992,173.0 ",.01)
 ;;173.0
 ;;9002226.02101,"992,173.0 ",.02)
 ;;173.0
 ;;9002226.02101,"992,173.1 ",.01)
 ;;173.1
 ;;9002226.02101,"992,173.1 ",.02)
 ;;173.1
 ;;9002226.02101,"992,173.2 ",.01)
 ;;173.2
 ;;9002226.02101,"992,173.2 ",.02)
 ;;173.2
 ;;9002226.02101,"992,173.3 ",.01)
 ;;173.3
 ;;9002226.02101,"992,173.3 ",.02)
 ;;173.3
 ;;9002226.02101,"992,173.4 ",.01)
 ;;173.4
 ;;9002226.02101,"992,173.4 ",.02)
 ;;173.4
 ;;9002226.02101,"992,173.5 ",.01)
 ;;173.5
 ;;9002226.02101,"992,173.5 ",.02)
 ;;173.5
 ;;9002226.02101,"992,173.6 ",.01)
 ;;173.6
 ;;9002226.02101,"992,173.6 ",.02)
 ;;173.6
 ;;9002226.02101,"992,173.7 ",.01)
 ;;173.7
 ;;9002226.02101,"992,173.7 ",.02)
 ;;173.7
 ;;9002226.02101,"992,173.8 ",.01)
 ;;173.8
 ;;9002226.02101,"992,173.8 ",.02)
 ;;173.8
 ;;9002226.02101,"992,173.9 ",.01)
 ;;173.9
 ;;9002226.02101,"992,173.9 ",.02)
 ;;173.9
 ;;9002226.02101,"992,174 ",.01)
 ;;174
 ;;9002226.02101,"992,174 ",.02)
 ;;174
 ;;9002226.02101,"992,174.0 ",.01)
 ;;174.0
 ;;9002226.02101,"992,174.0 ",.02)
 ;;174.0
 ;;9002226.02101,"992,174.1 ",.01)
 ;;174.1
 ;;9002226.02101,"992,174.1 ",.02)
 ;;174.1
 ;;9002226.02101,"992,174.2 ",.01)
 ;;174.2
 ;;9002226.02101,"992,174.2 ",.02)
 ;;174.2
 ;;9002226.02101,"992,174.3 ",.01)
 ;;174.3
 ;;9002226.02101,"992,174.3 ",.02)
 ;;174.3
 ;;9002226.02101,"992,174.4 ",.01)
 ;;174.4
 ;;9002226.02101,"992,174.4 ",.02)
 ;;174.4
 ;;9002226.02101,"992,174.5 ",.01)
 ;;174.5
 ;;9002226.02101,"992,174.5 ",.02)
 ;;174.5
 ;;9002226.02101,"992,174.6 ",.01)
 ;;174.6
 ;;9002226.02101,"992,174.6 ",.02)
 ;;174.6
 ;;9002226.02101,"992,174.8 ",.01)
 ;;174.8
 ;;9002226.02101,"992,174.8 ",.02)
 ;;174.8
 ;;9002226.02101,"992,174.9 ",.01)
 ;;174.9
 ;;9002226.02101,"992,174.9 ",.02)
 ;;174.9
 ;;9002226.02101,"992,175 ",.01)
 ;;175
 ;;9002226.02101,"992,175 ",.02)
 ;;175
 ;;9002226.02101,"992,175.0 ",.01)
 ;;175.0
 ;;9002226.02101,"992,175.0 ",.02)
 ;;175.0
 ;;9002226.02101,"992,175.9 ",.01)
 ;;175.9
 ;;9002226.02101,"992,175.9 ",.02)
 ;;175.9
 ;;9002226.02101,"992,176 ",.01)
 ;;176
 ;;9002226.02101,"992,176 ",.02)
 ;;176
 ;;9002226.02101,"992,176.0 ",.01)
 ;;176.0
 ;;9002226.02101,"992,176.0 ",.02)
 ;;176.0
 ;;9002226.02101,"992,176.1 ",.01)
 ;;176.1
 ;;9002226.02101,"992,176.1 ",.02)
 ;;176.1
 ;;9002226.02101,"992,176.2 ",.01)
 ;;176.2
 ;;9002226.02101,"992,176.2 ",.02)
 ;;176.2
 ;;9002226.02101,"992,176.3 ",.01)
 ;;176.3
 ;;9002226.02101,"992,176.3 ",.02)
 ;;176.3
 ;;9002226.02101,"992,176.4 ",.01)
 ;;176.4
 ;;9002226.02101,"992,176.4 ",.02)
 ;;176.4
 ;;9002226.02101,"992,176.5 ",.01)
 ;;176.5
 ;;9002226.02101,"992,176.5 ",.02)
 ;;176.5
 ;;9002226.02101,"992,176.8 ",.01)
 ;;176.8
 ;;9002226.02101,"992,176.8 ",.02)
 ;;176.8
 ;;9002226.02101,"992,176.9 ",.01)
 ;;176.9
 ;;9002226.02101,"992,176.9 ",.02)
 ;;176.9
 ;;9002226.02101,"992,179 ",.01)
 ;;179
 ;;9002226.02101,"992,179 ",.02)
 ;;179
 ;;9002226.02101,"992,180 ",.01)
 ;;180
 ;;9002226.02101,"992,180 ",.02)
 ;;180
 ;;9002226.02101,"992,180.0 ",.01)
 ;;180.0
 ;;9002226.02101,"992,180.0 ",.02)
 ;;180.0
 ;;9002226.02101,"992,180.1 ",.01)
 ;;180.1
 ;;9002226.02101,"992,180.1 ",.02)
 ;;180.1
 ;;9002226.02101,"992,180.8 ",.01)
 ;;180.8
 ;;9002226.02101,"992,180.8 ",.02)
 ;;180.8
 ;;9002226.02101,"992,180.9 ",.01)
 ;;180.9
 ;;9002226.02101,"992,180.9 ",.02)
 ;;180.9
 ;;9002226.02101,"992,181 ",.01)
 ;;181
 ;;9002226.02101,"992,181 ",.02)
 ;;181
 ;;9002226.02101,"992,182 ",.01)
 ;;182
 ;;9002226.02101,"992,182 ",.02)
 ;;182
 ;;9002226.02101,"992,182.0 ",.01)
 ;;182.0
 ;;9002226.02101,"992,182.0 ",.02)
 ;;182.0
 ;;9002226.02101,"992,182.1 ",.01)
 ;;182.1
 ;;9002226.02101,"992,182.1 ",.02)
 ;;182.1
 ;;9002226.02101,"992,182.8 ",.01)
 ;;182.8
 ;;9002226.02101,"992,182.8 ",.02)
 ;;182.8
 ;;9002226.02101,"992,183 ",.01)
 ;;183
 ;;9002226.02101,"992,183 ",.02)
 ;;183
 ;;9002226.02101,"992,183.0 ",.01)
 ;;183.0
 ;;9002226.02101,"992,183.0 ",.02)
 ;;183.0
 ;;9002226.02101,"992,183.2 ",.01)
 ;;183.2
 ;;9002226.02101,"992,183.2 ",.02)
 ;;183.2
 ;;9002226.02101,"992,183.3 ",.01)
 ;;183.3
 ;;9002226.02101,"992,183.3 ",.02)
 ;;183.3
 ;;9002226.02101,"992,183.4 ",.01)
 ;;183.4
 ;;9002226.02101,"992,183.4 ",.02)
 ;;183.4
 ;;9002226.02101,"992,183.5 ",.01)
 ;;183.5
 ;;9002226.02101,"992,183.5 ",.02)
 ;;183.5
 ;;9002226.02101,"992,183.8 ",.01)
 ;;183.8
 ;;9002226.02101,"992,183.8 ",.02)
 ;;183.8
 ;;9002226.02101,"992,183.9 ",.01)
 ;;183.9
 ;;9002226.02101,"992,183.9 ",.02)
 ;;183.9
 ;;9002226.02101,"992,184 ",.01)
 ;;184
 ;;9002226.02101,"992,184 ",.02)
 ;;184
 ;;9002226.02101,"992,184.0 ",.01)
 ;;184.0
 ;;9002226.02101,"992,184.0 ",.02)
 ;;184.0
 ;;9002226.02101,"992,184.1 ",.01)
 ;;184.1
 ;;9002226.02101,"992,184.1 ",.02)
 ;;184.1
 ;;9002226.02101,"992,184.2 ",.01)
 ;;184.2
 ;;9002226.02101,"992,184.2 ",.02)
 ;;184.2
 ;;9002226.02101,"992,184.3 ",.01)
 ;;184.3
 ;;9002226.02101,"992,184.3 ",.02)
 ;;184.3
 ;;9002226.02101,"992,184.4 ",.01)
 ;;184.4
 ;;9002226.02101,"992,184.4 ",.02)
 ;;184.4
 ;;9002226.02101,"992,184.8 ",.01)
 ;;184.8
 ;;9002226.02101,"992,184.8 ",.02)
 ;;184.8
 ;;9002226.02101,"992,184.9 ",.01)
 ;;184.9
 ;;9002226.02101,"992,184.9 ",.02)
 ;;184.9
 ;;9002226.02101,"992,185 ",.01)
 ;;185
 ;;9002226.02101,"992,185 ",.02)
 ;;185
 ;;9002226.02101,"992,186 ",.01)
 ;;186
 ;;9002226.02101,"992,186 ",.02)
 ;;186
 ;;9002226.02101,"992,186.0 ",.01)
 ;;186.0
 ;;9002226.02101,"992,186.0 ",.02)
 ;;186.0
 ;;9002226.02101,"992,186.9 ",.01)
 ;;186.9
 ;;9002226.02101,"992,186.9 ",.02)
 ;;186.9
 ;;9002226.02101,"992,187 ",.01)
 ;;187
 ;;9002226.02101,"992,187 ",.02)
 ;;187
 ;;9002226.02101,"992,187.1 ",.01)
 ;;187.1
 ;;9002226.02101,"992,187.1 ",.02)
 ;;187.1
 ;;9002226.02101,"992,187.2 ",.01)
 ;;187.2
 ;;9002226.02101,"992,187.2 ",.02)
 ;;187.2
 ;;9002226.02101,"992,187.3 ",.01)
 ;;187.3
 ;;9002226.02101,"992,187.3 ",.02)
 ;;187.3
 ;;9002226.02101,"992,187.4 ",.01)
 ;;187.4
 ;;9002226.02101,"992,187.4 ",.02)
 ;;187.4
 ;;9002226.02101,"992,187.5 ",.01)
 ;;187.5
 ;;9002226.02101,"992,187.5 ",.02)
 ;;187.5
 ;;9002226.02101,"992,187.6 ",.01)
 ;;187.6
 ;;9002226.02101,"992,187.6 ",.02)
 ;;187.6
 ;;9002226.02101,"992,187.7 ",.01)
 ;;187.7
 ;;9002226.02101,"992,187.7 ",.02)
 ;;187.7
 ;;9002226.02101,"992,187.8 ",.01)
 ;;187.8
 ;;9002226.02101,"992,187.8 ",.02)
 ;;187.8
 ;;9002226.02101,"992,187.9 ",.01)
 ;;187.9
 ;;9002226.02101,"992,187.9 ",.02)
 ;;187.9
 ;;9002226.02101,"992,188 ",.01)
 ;;188
 ;;9002226.02101,"992,188 ",.02)
 ;;188
 ;;9002226.02101,"992,188.0 ",.01)
 ;;188.0
 ;;9002226.02101,"992,188.0 ",.02)
 ;;188.0
 ;;9002226.02101,"992,188.1 ",.01)
 ;;188.1
 ;;9002226.02101,"992,188.1 ",.02)
 ;;188.1
 ;;9002226.02101,"992,188.2 ",.01)
 ;;188.2
 ;;9002226.02101,"992,188.2 ",.02)
 ;;188.2
 ;;9002226.02101,"992,188.3 ",.01)
 ;;188.3
 ;;9002226.02101,"992,188.3 ",.02)
 ;;188.3
 ;;9002226.02101,"992,188.4 ",.01)
 ;;188.4
 ;;9002226.02101,"992,188.4 ",.02)
 ;;188.4
 ;;9002226.02101,"992,188.5 ",.01)
 ;;188.5
 ;;9002226.02101,"992,188.5 ",.02)
 ;;188.5
 ;;9002226.02101,"992,188.6 ",.01)
 ;;188.6
 ;;9002226.02101,"992,188.6 ",.02)
 ;;188.6
 ;;9002226.02101,"992,188.7 ",.01)
 ;;188.7
 ;;9002226.02101,"992,188.7 ",.02)
 ;;188.7
 ;;9002226.02101,"992,188.8 ",.01)
 ;;188.8
 ;;9002226.02101,"992,188.8 ",.02)
 ;;188.8
 ;;9002226.02101,"992,188.9 ",.01)
 ;;188.9
 ;;9002226.02101,"992,188.9 ",.02)
 ;;188.9
 ;;9002226.02101,"992,189 ",.01)
 ;;189
 ;;9002226.02101,"992,189 ",.02)
 ;;189
 ;;9002226.02101,"992,189.0 ",.01)
 ;;189.0
 ;;9002226.02101,"992,189.0 ",.02)
 ;;189.0
 ;;9002226.02101,"992,189.1 ",.01)
 ;;189.1
 ;;9002226.02101,"992,189.1 ",.02)
 ;;189.1
 ;;9002226.02101,"992,189.2 ",.01)
 ;;189.2
 ;;9002226.02101,"992,189.2 ",.02)
 ;;189.2
 ;;9002226.02101,"992,189.3 ",.01)
 ;;189.3
 ;;9002226.02101,"992,189.3 ",.02)
 ;;189.3
 ;;9002226.02101,"992,189.4 ",.01)
 ;;189.4
 ;;9002226.02101,"992,189.4 ",.02)
 ;;189.4
 ;;9002226.02101,"992,189.8 ",.01)
 ;;189.8
 ;;9002226.02101,"992,189.8 ",.02)
 ;;189.8
 ;;9002226.02101,"992,189.9 ",.01)
 ;;189.9
 ;;9002226.02101,"992,189.9 ",.02)
 ;;189.9
 ;;9002226.02101,"992,190 ",.01)
 ;;190
 ;;9002226.02101,"992,190 ",.02)
 ;;190
 ;;9002226.02101,"992,190.0 ",.01)
 ;;190.0
 ;;9002226.02101,"992,190.0 ",.02)
 ;;190.0
 ;;9002226.02101,"992,190.1 ",.01)
 ;;190.1
 ;;9002226.02101,"992,190.1 ",.02)
 ;;190.1
 ;;9002226.02101,"992,190.2 ",.01)
 ;;190.2
 ;;9002226.02101,"992,190.2 ",.02)
 ;;190.2
 ;;9002226.02101,"992,190.3 ",.01)
 ;;190.3
 ;;9002226.02101,"992,190.3 ",.02)
 ;;190.3
 ;;9002226.02101,"992,190.4 ",.01)
 ;;190.4
 ;;9002226.02101,"992,190.4 ",.02)
 ;;190.4
 ;;9002226.02101,"992,190.5 ",.01)
 ;;190.5
 ;;9002226.02101,"992,190.5 ",.02)
 ;;190.5
 ;;9002226.02101,"992,190.6 ",.01)
 ;;190.6
 ;;9002226.02101,"992,190.6 ",.02)
 ;;190.6
 ;;9002226.02101,"992,190.7 ",.01)
 ;;190.7
 ;;9002226.02101,"992,190.7 ",.02)
 ;;190.7
 ;;9002226.02101,"992,190.8 ",.01)
 ;;190.8
 ;;9002226.02101,"992,190.8 ",.02)
 ;;190.8
 ;;9002226.02101,"992,190.9 ",.01)
 ;;190.9
 ;;9002226.02101,"992,190.9 ",.02)
 ;;190.9
 ;;9002226.02101,"992,191 ",.01)
 ;;191
 ;;9002226.02101,"992,191 ",.02)
 ;;191
 ;;9002226.02101,"992,191.0 ",.01)
 ;;191.0
 ;;9002226.02101,"992,191.0 ",.02)
 ;;191.0
 ;;9002226.02101,"992,191.1 ",.01)
 ;;191.1
 ;;9002226.02101,"992,191.1 ",.02)
 ;;191.1
 ;;9002226.02101,"992,191.2 ",.01)
 ;;191.2
 ;;9002226.02101,"992,191.2 ",.02)
 ;;191.2
 ;;9002226.02101,"992,191.3 ",.01)
 ;;191.3
 ;;9002226.02101,"992,191.3 ",.02)
 ;;191.3
 ;;9002226.02101,"992,191.4 ",.01)
 ;;191.4
 ;;9002226.02101,"992,191.4 ",.02)
 ;;191.4
 ;;9002226.02101,"992,191.5 ",.01)
 ;;191.5
 ;;9002226.02101,"992,191.5 ",.02)
 ;;191.5
 ;;9002226.02101,"992,191.6 ",.01)
 ;;191.6
 ;;9002226.02101,"992,191.6 ",.02)
 ;;191.6
 ;;9002226.02101,"992,191.7 ",.01)
 ;;191.7
 ;;9002226.02101,"992,191.7 ",.02)
 ;;191.7
 ;;9002226.02101,"992,191.8 ",.01)
 ;;191.8
 ;;9002226.02101,"992,191.8 ",.02)
 ;;191.8
 ;;9002226.02101,"992,191.9 ",.01)
 ;;191.9
 ;;9002226.02101,"992,191.9 ",.02)
 ;;191.9
 ;;9002226.02101,"992,192 ",.01)
 ;;192
 ;;9002226.02101,"992,192 ",.02)
 ;;192
 ;;9002226.02101,"992,192.0 ",.01)
 ;;192.0
 ;;9002226.02101,"992,192.0 ",.02)
 ;;192.0
 ;;9002226.02101,"992,192.1 ",.01)
 ;;192.1
 ;;9002226.02101,"992,192.1 ",.02)
 ;;192.1
 ;;9002226.02101,"992,192.2 ",.01)
 ;;192.2
 ;;9002226.02101,"992,192.2 ",.02)
 ;;192.2