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

BGP06A22.m

Go to the documentation of this file.
  1. BGP06A22 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"974,00093-0865-53 ",.01)
  1. ;;00093-0865-53
  1. ;;9002226.02101,"974,00093-0865-53 ",.02)
  1. ;;00093-0865-53
  1. ;;9002226.02101,"974,00093-1073-34 ",.01)
  1. ;;00093-1073-34
  1. ;;9002226.02101,"974,00093-1073-34 ",.02)
  1. ;;00093-1073-34
  1. ;;9002226.02101,"974,00093-1075-73 ",.01)
  1. ;;00093-1075-73
  1. ;;9002226.02101,"974,00093-1075-73 ",.02)
  1. ;;00093-1075-73
  1. ;;9002226.02101,"974,00093-1075-76 ",.01)
  1. ;;00093-1075-76
  1. ;;9002226.02101,"974,00093-1075-76 ",.02)
  1. ;;00093-1075-76
  1. ;;9002226.02101,"974,00093-1075-78 ",.01)
  1. ;;00093-1075-78
  1. ;;9002226.02101,"974,00093-1075-78 ",.02)
  1. ;;00093-1075-78
  1. ;;9002226.02101,"974,00093-1076-73 ",.01)
  1. ;;00093-1076-73
  1. ;;9002226.02101,"974,00093-1076-73 ",.02)
  1. ;;00093-1076-73
  1. ;;9002226.02101,"974,00093-1076-76 ",.01)
  1. ;;00093-1076-76
  1. ;;9002226.02101,"974,00093-1076-76 ",.02)
  1. ;;00093-1076-76
  1. ;;9002226.02101,"974,00093-1076-78 ",.01)
  1. ;;00093-1076-78
  1. ;;9002226.02101,"974,00093-1076-78 ",.02)
  1. ;;00093-1076-78
  1. ;;9002226.02101,"974,00093-1077-01 ",.01)
  1. ;;00093-1077-01
  1. ;;9002226.02101,"974,00093-1077-01 ",.02)
  1. ;;00093-1077-01
  1. ;;9002226.02101,"974,00093-1078-01 ",.01)
  1. ;;00093-1078-01
  1. ;;9002226.02101,"974,00093-1078-01 ",.02)
  1. ;;00093-1078-01
  1. ;;9002226.02101,"974,00093-1078-53 ",.01)
  1. ;;00093-1078-53
  1. ;;9002226.02101,"974,00093-1078-53 ",.02)
  1. ;;00093-1078-53
  1. ;;9002226.02101,"974,00093-1087-01 ",.01)
  1. ;;00093-1087-01
  1. ;;9002226.02101,"974,00093-1087-01 ",.02)
  1. ;;00093-1087-01
  1. ;;9002226.02101,"974,00093-1171-01 ",.01)
  1. ;;00093-1171-01
  1. ;;9002226.02101,"974,00093-1171-01 ",.02)
  1. ;;00093-1171-01
  1. ;;9002226.02101,"974,00093-1171-10 ",.01)
  1. ;;00093-1171-10
  1. ;;9002226.02101,"974,00093-1171-10 ",.02)
  1. ;;00093-1171-10
  1. ;;9002226.02101,"974,00093-1172-01 ",.01)
  1. ;;00093-1172-01
  1. ;;9002226.02101,"974,00093-1172-01 ",.02)
  1. ;;00093-1172-01
  1. ;;9002226.02101,"974,00093-1172-10 ",.01)
  1. ;;00093-1172-10
  1. ;;9002226.02101,"974,00093-1172-10 ",.02)
  1. ;;00093-1172-10
  1. ;;9002226.02101,"974,00093-1173-01 ",.01)
  1. ;;00093-1173-01
  1. ;;9002226.02101,"974,00093-1173-01 ",.02)
  1. ;;00093-1173-01
  1. ;;9002226.02101,"974,00093-1173-10 ",.01)
  1. ;;00093-1173-10
  1. ;;9002226.02101,"974,00093-1173-10 ",.02)
  1. ;;00093-1173-10
  1. ;;9002226.02101,"974,00093-1174-01 ",.01)
  1. ;;00093-1174-01
  1. ;;9002226.02101,"974,00093-1174-01 ",.02)
  1. ;;00093-1174-01
  1. ;;9002226.02101,"974,00093-1174-10 ",.01)
  1. ;;00093-1174-10
  1. ;;9002226.02101,"974,00093-1174-10 ",.02)
  1. ;;00093-1174-10
  1. ;;9002226.02101,"974,00093-1215-01 ",.01)
  1. ;;00093-1215-01
  1. ;;9002226.02101,"974,00093-1215-01 ",.02)
  1. ;;00093-1215-01
  1. ;;9002226.02101,"974,00093-2158-01 ",.01)
  1. ;;00093-2158-01
  1. ;;9002226.02101,"974,00093-2158-01 ",.02)
  1. ;;00093-2158-01
  1. ;;9002226.02101,"974,00093-2238-01 ",.01)
  1. ;;00093-2238-01
  1. ;;9002226.02101,"974,00093-2238-01 ",.02)
  1. ;;00093-2238-01
  1. ;;9002226.02101,"974,00093-2240-01 ",.01)
  1. ;;00093-2240-01
  1. ;;9002226.02101,"974,00093-2240-01 ",.02)
  1. ;;00093-2240-01
  1. ;;9002226.02101,"974,00093-2263-01 ",.01)
  1. ;;00093-2263-01
  1. ;;9002226.02101,"974,00093-2263-01 ",.02)
  1. ;;00093-2263-01
  1. ;;9002226.02101,"974,00093-2264-01 ",.01)
  1. ;;00093-2264-01
  1. ;;9002226.02101,"974,00093-2264-01 ",.02)
  1. ;;00093-2264-01
  1. ;;9002226.02101,"974,00093-2267-01 ",.01)
  1. ;;00093-2267-01
  1. ;;9002226.02101,"974,00093-2267-01 ",.02)
  1. ;;00093-2267-01
  1. ;;9002226.02101,"974,00093-2268-01 ",.01)
  1. ;;00093-2268-01
  1. ;;9002226.02101,"974,00093-2268-01 ",.02)
  1. ;;00093-2268-01
  1. ;;9002226.02101,"974,00093-2268-05 ",.01)
  1. ;;00093-2268-05
  1. ;;9002226.02101,"974,00093-2268-05 ",.02)
  1. ;;00093-2268-05
  1. ;;9002226.02101,"974,00093-2270-34 ",.01)
  1. ;;00093-2270-34
  1. ;;9002226.02101,"974,00093-2270-34 ",.02)
  1. ;;00093-2270-34
  1. ;;9002226.02101,"974,00093-2272-34 ",.01)
  1. ;;00093-2272-34
  1. ;;9002226.02101,"974,00093-2272-34 ",.02)
  1. ;;00093-2272-34
  1. ;;9002226.02101,"974,00093-2274-34 ",.01)
  1. ;;00093-2274-34
  1. ;;9002226.02101,"974,00093-2274-34 ",.02)
  1. ;;00093-2274-34
  1. ;;9002226.02101,"974,00093-2275-34 ",.01)
  1. ;;00093-2275-34
  1. ;;9002226.02101,"974,00093-2275-34 ",.02)
  1. ;;00093-2275-34
  1. ;;9002226.02101,"974,00093-2277-73 ",.01)
  1. ;;00093-2277-73
  1. ;;9002226.02101,"974,00093-2277-73 ",.02)
  1. ;;00093-2277-73
  1. ;;9002226.02101,"974,00093-2279-73 ",.01)
  1. ;;00093-2279-73
  1. ;;9002226.02101,"974,00093-2279-73 ",.02)
  1. ;;00093-2279-73
  1. ;;9002226.02101,"974,00093-3107-01 ",.01)
  1. ;;00093-3107-01
  1. ;;9002226.02101,"974,00093-3107-01 ",.02)
  1. ;;00093-3107-01
  1. ;;9002226.02101,"974,00093-3107-05 ",.01)
  1. ;;00093-3107-05
  1. ;;9002226.02101,"974,00093-3107-05 ",.02)
  1. ;;00093-3107-05
  1. ;;9002226.02101,"974,00093-3107-56 ",.01)
  1. ;;00093-3107-56
  1. ;;9002226.02101,"974,00093-3107-56 ",.02)
  1. ;;00093-3107-56
  1. ;;9002226.02101,"974,00093-3109-05 ",.01)
  1. ;;00093-3109-05
  1. ;;9002226.02101,"974,00093-3109-05 ",.02)
  1. ;;00093-3109-05
  1. ;;9002226.02101,"974,00093-3109-53 ",.01)
  1. ;;00093-3109-53
  1. ;;9002226.02101,"974,00093-3109-53 ",.02)
  1. ;;00093-3109-53
  1. ;;9002226.02101,"974,00093-3111-06 ",.01)
  1. ;;00093-3111-06
  1. ;;9002226.02101,"974,00093-3111-06 ",.02)
  1. ;;00093-3111-06
  1. ;;9002226.02101,"974,00093-3123-01 ",.01)
  1. ;;00093-3123-01
  1. ;;9002226.02101,"974,00093-3123-01 ",.02)
  1. ;;00093-3123-01
  1. ;;9002226.02101,"974,00093-3125-01 ",.01)
  1. ;;00093-3125-01
  1. ;;9002226.02101,"974,00093-3125-01 ",.02)
  1. ;;00093-3125-01
  1. ;;9002226.02101,"974,00093-3145-01 ",.01)
  1. ;;00093-3145-01
  1. ;;9002226.02101,"974,00093-3145-01 ",.02)
  1. ;;00093-3145-01
  1. ;;9002226.02101,"974,00093-3145-05 ",.01)
  1. ;;00093-3145-05
  1. ;;9002226.02101,"974,00093-3145-05 ",.02)
  1. ;;00093-3145-05
  1. ;;9002226.02101,"974,00093-3147-01 ",.01)
  1. ;;00093-3147-01
  1. ;;9002226.02101,"974,00093-3147-01 ",.02)
  1. ;;00093-3147-01
  1. ;;9002226.02101,"974,00093-3147-05 ",.01)
  1. ;;00093-3147-05
  1. ;;9002226.02101,"974,00093-3147-05 ",.02)
  1. ;;00093-3147-05
  1. ;;9002226.02101,"974,00093-3165-01 ",.01)
  1. ;;00093-3165-01
  1. ;;9002226.02101,"974,00093-3165-01 ",.02)
  1. ;;00093-3165-01
  1. ;;9002226.02101,"974,00093-3167-53 ",.01)
  1. ;;00093-3167-53
  1. ;;9002226.02101,"974,00093-3167-53 ",.02)
  1. ;;00093-3167-53
  1. ;;9002226.02101,"974,00093-3171-01 ",.01)
  1. ;;00093-3171-01
  1. ;;9002226.02101,"974,00093-3171-01 ",.02)
  1. ;;00093-3171-01
  1. ;;9002226.02101,"974,00093-3415-01 ",.01)
  1. ;;00093-3415-01
  1. ;;9002226.02101,"974,00093-3415-01 ",.02)
  1. ;;00093-3415-01
  1. ;;9002226.02101,"974,00093-3415-05 ",.01)
  1. ;;00093-3415-05
  1. ;;9002226.02101,"974,00093-3415-05 ",.02)
  1. ;;00093-3415-05
  1. ;;9002226.02101,"974,00093-4125-73 ",.01)
  1. ;;00093-4125-73
  1. ;;9002226.02101,"974,00093-4125-73 ",.02)
  1. ;;00093-4125-73
  1. ;;9002226.02101,"974,00093-4125-74 ",.01)
  1. ;;00093-4125-74
  1. ;;9002226.02101,"974,00093-4125-74 ",.02)
  1. ;;00093-4125-74
  1. ;;9002226.02101,"974,00093-4127-73 ",.01)
  1. ;;00093-4127-73
  1. ;;9002226.02101,"974,00093-4127-73 ",.02)
  1. ;;00093-4127-73
  1. ;;9002226.02101,"974,00093-4127-74 ",.01)
  1. ;;00093-4127-74
  1. ;;9002226.02101,"974,00093-4127-74 ",.02)
  1. ;;00093-4127-74
  1. ;;9002226.02101,"974,00093-4150-73 ",.01)
  1. ;;00093-4150-73
  1. ;;9002226.02101,"974,00093-4150-73 ",.02)
  1. ;;00093-4150-73
  1. ;;9002226.02101,"974,00093-4150-79 ",.01)
  1. ;;00093-4150-79
  1. ;;9002226.02101,"974,00093-4150-79 ",.02)
  1. ;;00093-4150-79
  1. ;;9002226.02101,"974,00093-4150-80 ",.01)
  1. ;;00093-4150-80
  1. ;;9002226.02101,"974,00093-4150-80 ",.02)
  1. ;;00093-4150-80
  1. ;;9002226.02101,"974,00093-4155-73 ",.01)
  1. ;;00093-4155-73
  1. ;;9002226.02101,"974,00093-4155-73 ",.02)
  1. ;;00093-4155-73
  1. ;;9002226.02101,"974,00093-4155-79 ",.01)
  1. ;;00093-4155-79
  1. ;;9002226.02101,"974,00093-4155-79 ",.02)
  1. ;;00093-4155-79
  1. ;;9002226.02101,"974,00093-4155-80 ",.01)
  1. ;;00093-4155-80
  1. ;;9002226.02101,"974,00093-4155-80 ",.02)
  1. ;;00093-4155-80
  1. ;;9002226.02101,"974,00093-4160-73 ",.01)
  1. ;;00093-4160-73
  1. ;;9002226.02101,"974,00093-4160-73 ",.02)
  1. ;;00093-4160-73
  1. ;;9002226.02101,"974,00093-4160-76 ",.01)
  1. ;;00093-4160-76
  1. ;;9002226.02101,"974,00093-4160-76 ",.02)
  1. ;;00093-4160-76
  1. ;;9002226.02101,"974,00093-4160-78 ",.01)
  1. ;;00093-4160-78
  1. ;;9002226.02101,"974,00093-4160-78 ",.02)
  1. ;;00093-4160-78
  1. ;;9002226.02101,"974,00093-4161-73 ",.01)
  1. ;;00093-4161-73
  1. ;;9002226.02101,"974,00093-4161-73 ",.02)
  1. ;;00093-4161-73
  1. ;;9002226.02101,"974,00093-4161-76 ",.01)
  1. ;;00093-4161-76
  1. ;;9002226.02101,"974,00093-4161-76 ",.02)
  1. ;;00093-4161-76
  1. ;;9002226.02101,"974,00093-4161-78 ",.01)
  1. ;;00093-4161-78
  1. ;;9002226.02101,"974,00093-4161-78 ",.02)
  1. ;;00093-4161-78
  1. ;;9002226.02101,"974,00093-4175-73 ",.01)
  1. ;;00093-4175-73
  1. ;;9002226.02101,"974,00093-4175-73 ",.02)
  1. ;;00093-4175-73
  1. ;;9002226.02101,"974,00093-4175-74 ",.01)
  1. ;;00093-4175-74
  1. ;;9002226.02101,"974,00093-4175-74 ",.02)
  1. ;;00093-4175-74
  1. ;;9002226.02101,"974,00093-4177-73 ",.01)
  1. ;;00093-4177-73
  1. ;;9002226.02101,"974,00093-4177-73 ",.02)
  1. ;;00093-4177-73
  1. ;;9002226.02101,"974,00093-4177-74 ",.01)
  1. ;;00093-4177-74
  1. ;;9002226.02101,"974,00093-4177-74 ",.02)
  1. ;;00093-4177-74
  1. ;;9002226.02101,"974,00093-5145-01 ",.01)
  1. ;;00093-5145-01
  1. ;;9002226.02101,"974,00093-5145-01 ",.02)
  1. ;;00093-5145-01
  1. ;;9002226.02101,"974,00093-5145-05 ",.01)
  1. ;;00093-5145-05
  1. ;;9002226.02101,"974,00093-5145-05 ",.02)
  1. ;;00093-5145-05
  1. ;;9002226.02101,"974,00093-5146-01 ",.01)
  1. ;;00093-5146-01
  1. ;;9002226.02101,"974,00093-5146-01 ",.02)
  1. ;;00093-5146-01
  1. ;;9002226.02101,"974,00093-5146-05 ",.01)
  1. ;;00093-5146-05
  1. ;;9002226.02101,"974,00093-5146-05 ",.02)
  1. ;;00093-5146-05
  1. ;;9002226.02101,"974,00093-5194-01 ",.01)
  1. ;;00093-5194-01
  1. ;;9002226.02101,"974,00093-5194-01 ",.02)
  1. ;;00093-5194-01
  1. ;;9002226.02101,"974,00093-5194-10 ",.01)
  1. ;;00093-5194-10
  1. ;;9002226.02101,"974,00093-5194-10 ",.02)
  1. ;;00093-5194-10
  1. ;;9002226.02101,"974,00093-5195-01 ",.01)
  1. ;;00093-5195-01
  1. ;;9002226.02101,"974,00093-5195-01 ",.02)
  1. ;;00093-5195-01
  1. ;;9002226.02101,"974,00093-5195-05 ",.01)
  1. ;;00093-5195-05
  1. ;;9002226.02101,"974,00093-5195-05 ",.02)
  1. ;;00093-5195-05
  1. ;;9002226.02101,"974,00093-5198-73 ",.01)
  1. ;;00093-5198-73
  1. ;;9002226.02101,"974,00093-5198-73 ",.02)
  1. ;;00093-5198-73
  1. ;;9002226.02101,"974,00093-5198-74 ",.01)
  1. ;;00093-5198-74
  1. ;;9002226.02101,"974,00093-5198-74 ",.02)
  1. ;;00093-5198-74
  1. ;;9002226.02101,"974,00093-5199-73 ",.01)
  1. ;;00093-5199-73
  1. ;;9002226.02101,"974,00093-5199-73 ",.02)
  1. ;;00093-5199-73
  1. ;;9002226.02101,"974,00093-5199-74 ",.01)
  1. ;;00093-5199-74
  1. ;;9002226.02101,"974,00093-5199-74 ",.02)
  1. ;;00093-5199-74
  1. ;;9002226.02101,"974,00093-5256-01 ",.01)
  1. ;;00093-5256-01
  1. ;;9002226.02101,"974,00093-5256-01 ",.02)
  1. ;;00093-5256-01
  1. ;;9002226.02101,"974,00093-5256-68 ",.01)
  1. ;;00093-5256-68
  1. ;;9002226.02101,"974,00093-5256-68 ",.02)
  1. ;;00093-5256-68
  1. ;;9002226.02101,"974,00093-7146-09 ",.01)
  1. ;;00093-7146-09
  1. ;;9002226.02101,"974,00093-7146-09 ",.02)
  1. ;;00093-7146-09
  1. ;;9002226.02101,"974,00093-7146-18 ",.01)
  1. ;;00093-7146-18
  1. ;;9002226.02101,"974,00093-7146-18 ",.02)
  1. ;;00093-7146-18
  1. ;;9002226.02101,"974,00093-7146-56 ",.01)
  1. ;;00093-7146-56
  1. ;;9002226.02101,"974,00093-7146-56 ",.02)
  1. ;;00093-7146-56
  1. ;;9002226.02101,"974,00093-7147-56 ",.01)
  1. ;;00093-7147-56
  1. ;;9002226.02101,"974,00093-7147-56 ",.02)
  1. ;;00093-7147-56
  1. ;;9002226.02101,"974,00093-7169-33 ",.01)
  1. ;;00093-7169-33
  1. ;;9002226.02101,"974,00093-7169-33 ",.02)
  1. ;;00093-7169-33
  1. ;;9002226.02101,"974,00093-7169-56 ",.01)
  1. ;;00093-7169-56
  1. ;;9002226.02101,"974,00093-7169-56 ",.02)
  1. ;;00093-7169-56
  1. ;;9002226.02101,"974,00093-7169-90 ",.01)
  1. ;;00093-7169-90
  1. ;;9002226.02101,"974,00093-7169-90 ",.02)
  1. ;;00093-7169-90
  1. ;;9002226.02101,"974,00093-7180-01 ",.01)
  1. ;;00093-7180-01
  1. ;;9002226.02101,"974,00093-7180-01 ",.02)
  1. ;;00093-7180-01
  1. ;;9002226.02101,"974,00093-7181-01 ",.01)
  1. ;;00093-7181-01
  1. ;;9002226.02101,"974,00093-7181-01 ",.02)
  1. ;;00093-7181-01
  1. ;;9002226.02101,"974,00093-7182-01 ",.01)
  1. ;;00093-7182-01
  1. ;;9002226.02101,"974,00093-7182-01 ",.02)
  1. ;;00093-7182-01
  1. ;;9002226.02101,"974,00093-7300-01 ",.01)
  1. ;;00093-7300-01
  1. ;;9002226.02101,"974,00093-7300-01 ",.02)
  1. ;;00093-7300-01
  1. ;;9002226.02101,"974,00093-8675-74 ",.01)
  1. ;;00093-8675-74
  1. ;;9002226.02101,"974,00093-8675-74 ",.02)
  1. ;;00093-8675-74
  1. ;;9002226.02101,"974,00093-8675-75 ",.01)
  1. ;;00093-8675-75
  1. ;;9002226.02101,"974,00093-8675-75 ",.02)
  1. ;;00093-8675-75
  1. ;;9002226.02101,"974,00093-8675-78 ",.01)
  1. ;;00093-8675-78
  1. ;;9002226.02101,"974,00093-8675-78 ",.02)
  1. ;;00093-8675-78
  1. ;;9002226.02101,"974,00115-1399-03 ",.01)
  1. ;;00115-1399-03
  1. ;;9002226.02101,"974,00115-1399-03 ",.02)
  1. ;;00115-1399-03
  1. ;;9002226.02101,"974,00115-1400-01 ",.01)
  1. ;;00115-1400-01
  1. ;;9002226.02101,"974,00115-1400-01 ",.02)
  1. ;;00115-1400-01
  1. ;;9002226.02101,"974,00115-1400-03 ",.01)
  1. ;;00115-1400-03
  1. ;;9002226.02101,"974,00115-1400-03 ",.02)
  1. ;;00115-1400-03
  1. ;;9002226.02101,"974,00115-1402-01 ",.01)
  1. ;;00115-1402-01
  1. ;;9002226.02101,"974,00115-1402-01 ",.02)
  1. ;;00115-1402-01
  1. ;;9002226.02101,"974,00115-1402-03 ",.01)
  1. ;;00115-1402-03
  1. ;;9002226.02101,"974,00115-1402-03 ",.02)
  1. ;;00115-1402-03
  1. ;;9002226.02101,"974,00115-1405-01 ",.01)
  1. ;;00115-1405-01
  1. ;;9002226.02101,"974,00115-1405-01 ",.02)
  1. ;;00115-1405-01
  1. ;;9002226.02101,"974,00115-1405-03 ",.01)
  1. ;;00115-1405-03
  1. ;;9002226.02101,"974,00115-1405-03 ",.02)
  1. ;;00115-1405-03
  1. ;;9002226.02101,"974,00115-4747-01 ",.01)
  1. ;;00115-4747-01
  1. ;;9002226.02101,"974,00115-4747-01 ",.02)
  1. ;;00115-4747-01
  1. ;;9002226.02101,"974,00115-4747-03 ",.01)
  1. ;;00115-4747-03
  1. ;;9002226.02101,"974,00115-4747-03 ",.02)
  1. ;;00115-4747-03
  1. ;;9002226.02101,"974,00115-7017-01 ",.01)
  1. ;;00115-7017-01
  1. ;;9002226.02101,"974,00115-7017-01 ",.02)
  1. ;;00115-7017-01
  1. ;;9002226.02101,"974,00115-7018-06 ",.01)
  1. ;;00115-7018-06
  1. ;;9002226.02101,"974,00115-7018-06 ",.02)
  1. ;;00115-7018-06