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