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

BGPM5AYE.m

Go to the documentation of this file.
BGPM5AYE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 31, 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,"1018,094.89 ",.02)
 ;;094.89
 ;;9002226.02101,"1018,094.9 ",.01)
 ;;094.9
 ;;9002226.02101,"1018,094.9 ",.02)
 ;;094.9
 ;;9002226.02101,"1018,095 ",.01)
 ;;095
 ;;9002226.02101,"1018,095 ",.02)
 ;;095
 ;;9002226.02101,"1018,095.0 ",.01)
 ;;095.0
 ;;9002226.02101,"1018,095.0 ",.02)
 ;;095.0
 ;;9002226.02101,"1018,095.1 ",.01)
 ;;095.1
 ;;9002226.02101,"1018,095.1 ",.02)
 ;;095.1
 ;;9002226.02101,"1018,095.2 ",.01)
 ;;095.2
 ;;9002226.02101,"1018,095.2 ",.02)
 ;;095.2
 ;;9002226.02101,"1018,095.3 ",.01)
 ;;095.3
 ;;9002226.02101,"1018,095.3 ",.02)
 ;;095.3
 ;;9002226.02101,"1018,095.4 ",.01)
 ;;095.4
 ;;9002226.02101,"1018,095.4 ",.02)
 ;;095.4
 ;;9002226.02101,"1018,095.5 ",.01)
 ;;095.5
 ;;9002226.02101,"1018,095.5 ",.02)
 ;;095.5
 ;;9002226.02101,"1018,095.6 ",.01)
 ;;095.6
 ;;9002226.02101,"1018,095.6 ",.02)
 ;;095.6
 ;;9002226.02101,"1018,095.7 ",.01)
 ;;095.7
 ;;9002226.02101,"1018,095.7 ",.02)
 ;;095.7
 ;;9002226.02101,"1018,095.8 ",.01)
 ;;095.8
 ;;9002226.02101,"1018,095.8 ",.02)
 ;;095.8
 ;;9002226.02101,"1018,095.9 ",.01)
 ;;095.9
 ;;9002226.02101,"1018,095.9 ",.02)
 ;;095.9
 ;;9002226.02101,"1018,096 ",.01)
 ;;096
 ;;9002226.02101,"1018,096 ",.02)
 ;;096
 ;;9002226.02101,"1018,097 ",.01)
 ;;097
 ;;9002226.02101,"1018,097 ",.02)
 ;;097
 ;;9002226.02101,"1018,097.0 ",.01)
 ;;097.0
 ;;9002226.02101,"1018,097.0 ",.02)
 ;;097.0
 ;;9002226.02101,"1018,097.1 ",.01)
 ;;097.1
 ;;9002226.02101,"1018,097.1 ",.02)
 ;;097.1
 ;;9002226.02101,"1018,097.9 ",.01)
 ;;097.9
 ;;9002226.02101,"1018,097.9 ",.02)
 ;;097.9
 ;;9002226.02101,"1018,098.0 ",.01)
 ;;098.0
 ;;9002226.02101,"1018,098.0 ",.02)
 ;;098.0
 ;;9002226.02101,"1018,098.10 ",.01)
 ;;098.10
 ;;9002226.02101,"1018,098.10 ",.02)
 ;;098.10
 ;;9002226.02101,"1018,098.11 ",.01)
 ;;098.11
 ;;9002226.02101,"1018,098.11 ",.02)
 ;;098.11
 ;;9002226.02101,"1018,098.15 ",.01)
 ;;098.15
 ;;9002226.02101,"1018,098.15 ",.02)
 ;;098.15
 ;;9002226.02101,"1018,098.16 ",.01)
 ;;098.16
 ;;9002226.02101,"1018,098.16 ",.02)
 ;;098.16
 ;;9002226.02101,"1018,098.17 ",.01)
 ;;098.17
 ;;9002226.02101,"1018,098.17 ",.02)
 ;;098.17
 ;;9002226.02101,"1018,098.19 ",.01)
 ;;098.19
 ;;9002226.02101,"1018,098.19 ",.02)
 ;;098.19
 ;;9002226.02101,"1018,098.2 ",.01)
 ;;098.2
 ;;9002226.02101,"1018,098.2 ",.02)
 ;;098.2
 ;;9002226.02101,"1018,098.30 ",.01)
 ;;098.30
 ;;9002226.02101,"1018,098.30 ",.02)
 ;;098.30
 ;;9002226.02101,"1018,098.31 ",.01)
 ;;098.31
 ;;9002226.02101,"1018,098.31 ",.02)
 ;;098.31
 ;;9002226.02101,"1018,098.35 ",.01)
 ;;098.35
 ;;9002226.02101,"1018,098.35 ",.02)
 ;;098.35
 ;;9002226.02101,"1018,098.36 ",.01)
 ;;098.36
 ;;9002226.02101,"1018,098.36 ",.02)
 ;;098.36
 ;;9002226.02101,"1018,098.37 ",.01)
 ;;098.37
 ;;9002226.02101,"1018,098.37 ",.02)
 ;;098.37
 ;;9002226.02101,"1018,098.39 ",.01)
 ;;098.39
 ;;9002226.02101,"1018,098.39 ",.02)
 ;;098.39
 ;;9002226.02101,"1018,098.4 ",.01)
 ;;098.4
 ;;9002226.02101,"1018,098.4 ",.02)
 ;;098.4
 ;;9002226.02101,"1018,098.40 ",.01)
 ;;098.40
 ;;9002226.02101,"1018,098.40 ",.02)
 ;;098.40
 ;;9002226.02101,"1018,098.41 ",.01)
 ;;098.41
 ;;9002226.02101,"1018,098.41 ",.02)
 ;;098.41
 ;;9002226.02101,"1018,098.42 ",.01)
 ;;098.42
 ;;9002226.02101,"1018,098.42 ",.02)
 ;;098.42
 ;;9002226.02101,"1018,098.43 ",.01)
 ;;098.43
 ;;9002226.02101,"1018,098.43 ",.02)
 ;;098.43
 ;;9002226.02101,"1018,098.49 ",.01)
 ;;098.49
 ;;9002226.02101,"1018,098.49 ",.02)
 ;;098.49
 ;;9002226.02101,"1018,098.5 ",.01)
 ;;098.5
 ;;9002226.02101,"1018,098.5 ",.02)
 ;;098.5
 ;;9002226.02101,"1018,098.50 ",.01)
 ;;098.50
 ;;9002226.02101,"1018,098.50 ",.02)
 ;;098.50
 ;;9002226.02101,"1018,098.51 ",.01)
 ;;098.51
 ;;9002226.02101,"1018,098.51 ",.02)
 ;;098.51
 ;;9002226.02101,"1018,098.52 ",.01)
 ;;098.52
 ;;9002226.02101,"1018,098.52 ",.02)
 ;;098.52
 ;;9002226.02101,"1018,098.53 ",.01)
 ;;098.53
 ;;9002226.02101,"1018,098.53 ",.02)
 ;;098.53
 ;;9002226.02101,"1018,098.59 ",.01)
 ;;098.59
 ;;9002226.02101,"1018,098.59 ",.02)
 ;;098.59
 ;;9002226.02101,"1018,098.6 ",.01)
 ;;098.6
 ;;9002226.02101,"1018,098.6 ",.02)
 ;;098.6
 ;;9002226.02101,"1018,098.7 ",.01)
 ;;098.7
 ;;9002226.02101,"1018,098.7 ",.02)
 ;;098.7
 ;;9002226.02101,"1018,098.8 ",.01)
 ;;098.8
 ;;9002226.02101,"1018,098.8 ",.02)
 ;;098.8
 ;;9002226.02101,"1018,098.81 ",.01)
 ;;098.81
 ;;9002226.02101,"1018,098.81 ",.02)
 ;;098.81
 ;;9002226.02101,"1018,098.82 ",.01)
 ;;098.82
 ;;9002226.02101,"1018,098.82 ",.02)
 ;;098.82
 ;;9002226.02101,"1018,098.83 ",.01)
 ;;098.83
 ;;9002226.02101,"1018,098.83 ",.02)
 ;;098.83
 ;;9002226.02101,"1018,098.84 ",.01)
 ;;098.84
 ;;9002226.02101,"1018,098.84 ",.02)
 ;;098.84
 ;;9002226.02101,"1018,098.85 ",.01)
 ;;098.85
 ;;9002226.02101,"1018,098.85 ",.02)
 ;;098.85
 ;;9002226.02101,"1018,098.86 ",.01)
 ;;098.86
 ;;9002226.02101,"1018,098.86 ",.02)
 ;;098.86
 ;;9002226.02101,"1018,098.89 ",.01)
 ;;098.89
 ;;9002226.02101,"1018,098.89 ",.02)
 ;;098.89
 ;;9002226.02101,"1018,099 ",.01)
 ;;099
 ;;9002226.02101,"1018,099 ",.02)
 ;;099
 ;;9002226.02101,"1018,099.0 ",.01)
 ;;099.0
 ;;9002226.02101,"1018,099.0 ",.02)
 ;;099.0
 ;;9002226.02101,"1018,099.1 ",.01)
 ;;099.1
 ;;9002226.02101,"1018,099.1 ",.02)
 ;;099.1
 ;;9002226.02101,"1018,099.2 ",.01)
 ;;099.2
 ;;9002226.02101,"1018,099.2 ",.02)
 ;;099.2
 ;;9002226.02101,"1018,099.3 ",.01)
 ;;099.3
 ;;9002226.02101,"1018,099.3 ",.02)
 ;;099.3
 ;;9002226.02101,"1018,099.4 ",.01)
 ;;099.4
 ;;9002226.02101,"1018,099.4 ",.02)
 ;;099.4
 ;;9002226.02101,"1018,099.40 ",.01)
 ;;099.40
 ;;9002226.02101,"1018,099.40 ",.02)
 ;;099.40
 ;;9002226.02101,"1018,099.41 ",.01)
 ;;099.41
 ;;9002226.02101,"1018,099.41 ",.02)
 ;;099.41
 ;;9002226.02101,"1018,099.49 ",.01)
 ;;099.49
 ;;9002226.02101,"1018,099.49 ",.02)
 ;;099.49
 ;;9002226.02101,"1018,099.5 ",.01)
 ;;099.5
 ;;9002226.02101,"1018,099.5 ",.02)
 ;;099.5
 ;;9002226.02101,"1018,099.50 ",.01)
 ;;099.50
 ;;9002226.02101,"1018,099.50 ",.02)
 ;;099.50
 ;;9002226.02101,"1018,099.51 ",.01)
 ;;099.51
 ;;9002226.02101,"1018,099.51 ",.02)
 ;;099.51
 ;;9002226.02101,"1018,099.52 ",.01)
 ;;099.52
 ;;9002226.02101,"1018,099.52 ",.02)
 ;;099.52
 ;;9002226.02101,"1018,099.53 ",.01)
 ;;099.53
 ;;9002226.02101,"1018,099.53 ",.02)
 ;;099.53
 ;;9002226.02101,"1018,099.54 ",.01)
 ;;099.54
 ;;9002226.02101,"1018,099.54 ",.02)
 ;;099.54
 ;;9002226.02101,"1018,099.55 ",.01)
 ;;099.55
 ;;9002226.02101,"1018,099.55 ",.02)
 ;;099.55
 ;;9002226.02101,"1018,099.56 ",.01)
 ;;099.56
 ;;9002226.02101,"1018,099.56 ",.02)
 ;;099.56
 ;;9002226.02101,"1018,099.59 ",.01)
 ;;099.59
 ;;9002226.02101,"1018,099.59 ",.02)
 ;;099.59
 ;;9002226.02101,"1018,099.8 ",.01)
 ;;099.8
 ;;9002226.02101,"1018,099.8 ",.02)
 ;;099.8
 ;;9002226.02101,"1018,099.9 ",.01)
 ;;099.9
 ;;9002226.02101,"1018,099.9 ",.02)
 ;;099.9
 ;;9002226.02101,"1018,131 ",.01)
 ;;131
 ;;9002226.02101,"1018,131 ",.02)
 ;;131
 ;;9002226.02101,"1018,131.0 ",.01)
 ;;131.0
 ;;9002226.02101,"1018,131.0 ",.02)
 ;;131.0
 ;;9002226.02101,"1018,131.00 ",.01)
 ;;131.00
 ;;9002226.02101,"1018,131.00 ",.02)
 ;;131.00
 ;;9002226.02101,"1018,131.01 ",.01)
 ;;131.01
 ;;9002226.02101,"1018,131.01 ",.02)
 ;;131.01
 ;;9002226.02101,"1018,131.02 ",.01)
 ;;131.02
 ;;9002226.02101,"1018,131.02 ",.02)
 ;;131.02
 ;;9002226.02101,"1018,131.03 ",.01)
 ;;131.03
 ;;9002226.02101,"1018,131.03 ",.02)
 ;;131.03
 ;;9002226.02101,"1018,131.09 ",.01)
 ;;131.09
 ;;9002226.02101,"1018,131.09 ",.02)
 ;;131.09
 ;;9002226.02101,"1018,131.8 ",.01)
 ;;131.8
 ;;9002226.02101,"1018,131.8 ",.02)
 ;;131.8
 ;;9002226.02101,"1018,131.9 ",.01)
 ;;131.9
 ;;9002226.02101,"1018,131.9 ",.02)
 ;;131.9
 ;;9002226.02101,"1018,339.82 ",.01)
 ;;339.82
 ;;9002226.02101,"1018,339.82 ",.02)
 ;;339.82
 ;;9002226.02101,"1018,614 ",.01)
 ;;614
 ;;9002226.02101,"1018,614 ",.02)
 ;;614
 ;;9002226.02101,"1018,614.0 ",.01)
 ;;614.0
 ;;9002226.02101,"1018,614.0 ",.02)
 ;;614.0
 ;;9002226.02101,"1018,614.1 ",.01)
 ;;614.1
 ;;9002226.02101,"1018,614.1 ",.02)
 ;;614.1
 ;;9002226.02101,"1018,614.2 ",.01)
 ;;614.2
 ;;9002226.02101,"1018,614.2 ",.02)
 ;;614.2
 ;;9002226.02101,"1018,614.3 ",.01)
 ;;614.3
 ;;9002226.02101,"1018,614.3 ",.02)
 ;;614.3
 ;;9002226.02101,"1018,614.4 ",.01)
 ;;614.4
 ;;9002226.02101,"1018,614.4 ",.02)
 ;;614.4
 ;;9002226.02101,"1018,614.5 ",.01)
 ;;614.5
 ;;9002226.02101,"1018,614.5 ",.02)
 ;;614.5
 ;;9002226.02101,"1018,614.6 ",.01)
 ;;614.6
 ;;9002226.02101,"1018,614.6 ",.02)
 ;;614.6
 ;;9002226.02101,"1018,614.7 ",.01)
 ;;614.7
 ;;9002226.02101,"1018,614.7 ",.02)
 ;;614.7
 ;;9002226.02101,"1018,614.8 ",.01)
 ;;614.8
 ;;9002226.02101,"1018,614.8 ",.02)
 ;;614.8
 ;;9002226.02101,"1018,614.9 ",.01)
 ;;614.9
 ;;9002226.02101,"1018,614.9 ",.02)
 ;;614.9
 ;;9002226.02101,"1018,615 ",.01)
 ;;615
 ;;9002226.02101,"1018,615 ",.02)
 ;;615
 ;;9002226.02101,"1018,615.0 ",.01)
 ;;615.0
 ;;9002226.02101,"1018,615.0 ",.02)
 ;;615.0
 ;;9002226.02101,"1018,615.1 ",.01)
 ;;615.1
 ;;9002226.02101,"1018,615.1 ",.02)
 ;;615.1
 ;;9002226.02101,"1018,615.9 ",.01)
 ;;615.9
 ;;9002226.02101,"1018,615.9 ",.02)
 ;;615.9
 ;;9002226.02101,"1018,616 ",.01)
 ;;616
 ;;9002226.02101,"1018,616 ",.02)
 ;;616
 ;;9002226.02101,"1018,616.0 ",.01)
 ;;616.0
 ;;9002226.02101,"1018,616.0 ",.02)
 ;;616.0
 ;;9002226.02101,"1018,616.1 ",.01)
 ;;616.1
 ;;9002226.02101,"1018,616.1 ",.02)
 ;;616.1
 ;;9002226.02101,"1018,616.10 ",.01)
 ;;616.10
 ;;9002226.02101,"1018,616.10 ",.02)
 ;;616.10
 ;;9002226.02101,"1018,616.11 ",.01)
 ;;616.11
 ;;9002226.02101,"1018,616.11 ",.02)
 ;;616.11
 ;;9002226.02101,"1018,616.2 ",.01)
 ;;616.2
 ;;9002226.02101,"1018,616.2 ",.02)
 ;;616.2
 ;;9002226.02101,"1018,616.3 ",.01)
 ;;616.3
 ;;9002226.02101,"1018,616.3 ",.02)
 ;;616.3
 ;;9002226.02101,"1018,616.4 ",.01)
 ;;616.4
 ;;9002226.02101,"1018,616.4 ",.02)
 ;;616.4
 ;;9002226.02101,"1018,616.5 ",.01)
 ;;616.5
 ;;9002226.02101,"1018,616.5 ",.02)
 ;;616.5
 ;;9002226.02101,"1018,616.50 ",.01)
 ;;616.50
 ;;9002226.02101,"1018,616.50 ",.02)
 ;;616.50
 ;;9002226.02101,"1018,616.51 ",.01)
 ;;616.51
 ;;9002226.02101,"1018,616.51 ",.02)
 ;;616.51
 ;;9002226.02101,"1018,616.8 ",.01)
 ;;616.8
 ;;9002226.02101,"1018,616.8 ",.02)
 ;;616.8
 ;;9002226.02101,"1018,616.81 ",.01)
 ;;616.81
 ;;9002226.02101,"1018,616.81 ",.02)
 ;;616.81
 ;;9002226.02101,"1018,616.89 ",.01)
 ;;616.89
 ;;9002226.02101,"1018,616.89 ",.02)
 ;;616.89
 ;;9002226.02101,"1018,616.9 ",.01)
 ;;616.9
 ;;9002226.02101,"1018,616.9 ",.02)
 ;;616.9
 ;;9002226.02101,"1018,622.3 ",.01)
 ;;622.3
 ;;9002226.02101,"1018,622.3 ",.02)
 ;;622.3
 ;;9002226.02101,"1018,623.4 ",.01)
 ;;623.4
 ;;9002226.02101,"1018,623.4 ",.02)
 ;;623.4
 ;;9002226.02101,"1018,626.7 ",.01)
 ;;626.7
 ;;9002226.02101,"1018,626.7 ",.02)
 ;;626.7
 ;;9002226.02101,"1018,628 ",.01)
 ;;628
 ;;9002226.02101,"1018,628 ",.02)
 ;;628
 ;;9002226.02101,"1018,628.0 ",.01)
 ;;628.0
 ;;9002226.02101,"1018,628.0 ",.02)
 ;;628.0
 ;;9002226.02101,"1018,628.1 ",.01)
 ;;628.1
 ;;9002226.02101,"1018,628.1 ",.02)
 ;;628.1
 ;;9002226.02101,"1018,628.2 ",.01)
 ;;628.2
 ;;9002226.02101,"1018,628.2 ",.02)
 ;;628.2
 ;;9002226.02101,"1018,628.3 ",.01)
 ;;628.3
 ;;9002226.02101,"1018,628.3 ",.02)
 ;;628.3
 ;;9002226.02101,"1018,628.4 ",.01)
 ;;628.4
 ;;9002226.02101,"1018,628.4 ",.02)
 ;;628.4
 ;;9002226.02101,"1018,628.8 ",.01)
 ;;628.8