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

BGP51I2.m

Go to the documentation of this file.
  1. BGP51I2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  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,"726,00025-2742-51 ",.02)
  1. ;;00025-2742-51
  1. ;;9002226.02101,"726,00025-2752-31 ",.01)
  1. ;;00025-2752-31
  1. ;;9002226.02101,"726,00025-2752-31 ",.02)
  1. ;;00025-2752-31
  1. ;;9002226.02101,"726,00025-2762-31 ",.01)
  1. ;;00025-2762-31
  1. ;;9002226.02101,"726,00025-2762-31 ",.02)
  1. ;;00025-2762-31
  1. ;;9002226.02101,"726,00054-0057-46 ",.01)
  1. ;;00054-0057-46
  1. ;;9002226.02101,"726,00054-0057-46 ",.02)
  1. ;;00054-0057-46
  1. ;;9002226.02101,"726,00069-2600-66 ",.01)
  1. ;;00069-2600-66
  1. ;;9002226.02101,"726,00069-2600-66 ",.02)
  1. ;;00069-2600-66
  1. ;;9002226.02101,"726,00093-2931-01 ",.01)
  1. ;;00093-2931-01
  1. ;;9002226.02101,"726,00093-2931-01 ",.02)
  1. ;;00093-2931-01
  1. ;;9002226.02101,"726,00093-2931-10 ",.01)
  1. ;;00093-2931-10
  1. ;;9002226.02101,"726,00093-2931-10 ",.02)
  1. ;;00093-2931-10
  1. ;;9002226.02101,"726,00093-2932-01 ",.01)
  1. ;;00093-2932-01
  1. ;;9002226.02101,"726,00093-2932-01 ",.02)
  1. ;;00093-2932-01
  1. ;;9002226.02101,"726,00093-2932-05 ",.01)
  1. ;;00093-2932-05
  1. ;;9002226.02101,"726,00093-2932-05 ",.02)
  1. ;;00093-2932-05
  1. ;;9002226.02101,"726,00093-3127-01 ",.01)
  1. ;;00093-3127-01
  1. ;;9002226.02101,"726,00093-3127-01 ",.02)
  1. ;;00093-3127-01
  1. ;;9002226.02101,"726,00093-3129-01 ",.01)
  1. ;;00093-3129-01
  1. ;;9002226.02101,"726,00093-3129-01 ",.02)
  1. ;;00093-3129-01
  1. ;;9002226.02101,"726,00115-9811-01 ",.01)
  1. ;;00115-9811-01
  1. ;;9002226.02101,"726,00115-9811-01 ",.02)
  1. ;;00115-9811-01
  1. ;;9002226.02101,"726,00115-9811-03 ",.01)
  1. ;;00115-9811-03
  1. ;;9002226.02101,"726,00115-9811-03 ",.02)
  1. ;;00115-9811-03
  1. ;;9002226.02101,"726,00115-9822-01 ",.01)
  1. ;;00115-9822-01
  1. ;;9002226.02101,"726,00115-9822-01 ",.02)
  1. ;;00115-9822-01
  1. ;;9002226.02101,"726,00115-9822-03 ",.01)
  1. ;;00115-9822-03
  1. ;;9002226.02101,"726,00115-9822-03 ",.02)
  1. ;;00115-9822-03
  1. ;;9002226.02101,"726,00143-1240-01 ",.01)
  1. ;;00143-1240-01
  1. ;;9002226.02101,"726,00143-1240-01 ",.02)
  1. ;;00143-1240-01
  1. ;;9002226.02101,"726,00143-1240-10 ",.01)
  1. ;;00143-1240-10
  1. ;;9002226.02101,"726,00143-1240-10 ",.02)
  1. ;;00143-1240-10
  1. ;;9002226.02101,"726,00143-1240-51 ",.01)
  1. ;;00143-1240-51
  1. ;;9002226.02101,"726,00143-1240-51 ",.02)
  1. ;;00143-1240-51
  1. ;;9002226.02101,"726,00143-1241-01 ",.01)
  1. ;;00143-1241-01
  1. ;;9002226.02101,"726,00143-1241-01 ",.02)
  1. ;;00143-1241-01
  1. ;;9002226.02101,"726,00143-1241-10 ",.01)
  1. ;;00143-1241-10
  1. ;;9002226.02101,"726,00143-1241-10 ",.02)
  1. ;;00143-1241-10
  1. ;;9002226.02101,"726,00143-1241-51 ",.01)
  1. ;;00143-1241-51
  1. ;;9002226.02101,"726,00143-1241-51 ",.02)
  1. ;;00143-1241-51
  1. ;;9002226.02101,"726,00173-0242-55 ",.01)
  1. ;;00173-0242-55
  1. ;;9002226.02101,"726,00173-0242-55 ",.02)
  1. ;;00173-0242-55
  1. ;;9002226.02101,"726,00173-0242-56 ",.01)
  1. ;;00173-0242-56
  1. ;;9002226.02101,"726,00173-0242-56 ",.02)
  1. ;;00173-0242-56
  1. ;;9002226.02101,"726,00173-0242-75 ",.01)
  1. ;;00173-0242-75
  1. ;;9002226.02101,"726,00173-0242-75 ",.02)
  1. ;;00173-0242-75
  1. ;;9002226.02101,"726,00173-0249-55 ",.01)
  1. ;;00173-0249-55
  1. ;;9002226.02101,"726,00173-0249-55 ",.02)
  1. ;;00173-0249-55
  1. ;;9002226.02101,"726,00173-0249-56 ",.01)
  1. ;;00173-0249-56
  1. ;;9002226.02101,"726,00173-0249-56 ",.02)
  1. ;;00173-0249-56
  1. ;;9002226.02101,"726,00173-0249-75 ",.01)
  1. ;;00173-0249-75
  1. ;;9002226.02101,"726,00173-0249-75 ",.02)
  1. ;;00173-0249-75
  1. ;;9002226.02101,"726,00173-0249-80 ",.01)
  1. ;;00173-0249-80
  1. ;;9002226.02101,"726,00173-0249-80 ",.02)
  1. ;;00173-0249-80
  1. ;;9002226.02101,"726,00173-0260-01 ",.01)
  1. ;;00173-0260-01
  1. ;;9002226.02101,"726,00173-0260-01 ",.02)
  1. ;;00173-0260-01
  1. ;;9002226.02101,"726,00173-0260-10 ",.01)
  1. ;;00173-0260-10
  1. ;;9002226.02101,"726,00173-0260-10 ",.02)
  1. ;;00173-0260-10
  1. ;;9002226.02101,"726,00173-0260-35 ",.01)
  1. ;;00173-0260-35
  1. ;;9002226.02101,"726,00173-0260-35 ",.02)
  1. ;;00173-0260-35
  1. ;;9002226.02101,"726,00173-0262-10 ",.01)
  1. ;;00173-0262-10
  1. ;;9002226.02101,"726,00173-0262-10 ",.02)
  1. ;;00173-0262-10
  1. ;;9002226.02101,"726,00185-0032-01 ",.01)
  1. ;;00185-0032-01
  1. ;;9002226.02101,"726,00185-0032-01 ",.02)
  1. ;;00185-0032-01
  1. ;;9002226.02101,"726,00185-0032-10 ",.01)
  1. ;;00185-0032-10
  1. ;;9002226.02101,"726,00185-0032-10 ",.02)
  1. ;;00185-0032-10
  1. ;;9002226.02101,"726,00185-0134-01 ",.01)
  1. ;;00185-0134-01
  1. ;;9002226.02101,"726,00185-0134-01 ",.02)
  1. ;;00185-0134-01
  1. ;;9002226.02101,"726,00185-0134-10 ",.01)
  1. ;;00185-0134-10
  1. ;;9002226.02101,"726,00185-0134-10 ",.02)
  1. ;;00185-0134-10
  1. ;;9002226.02101,"726,00228-2497-10 ",.01)
  1. ;;00228-2497-10
  1. ;;9002226.02101,"726,00228-2497-10 ",.02)
  1. ;;00228-2497-10
  1. ;;9002226.02101,"726,00228-2530-10 ",.01)
  1. ;;00228-2530-10
  1. ;;9002226.02101,"726,00228-2530-10 ",.02)
  1. ;;00228-2530-10
  1. ;;9002226.02101,"726,00378-0421-01 ",.01)
  1. ;;00378-0421-01
  1. ;;9002226.02101,"726,00378-0421-01 ",.02)
  1. ;;00378-0421-01
  1. ;;9002226.02101,"726,00378-0421-05 ",.01)
  1. ;;00378-0421-05
  1. ;;9002226.02101,"726,00378-0421-05 ",.02)
  1. ;;00378-0421-05
  1. ;;9002226.02101,"726,00378-0507-01 ",.01)
  1. ;;00378-0507-01
  1. ;;9002226.02101,"726,00378-0507-01 ",.02)
  1. ;;00378-0507-01
  1. ;;9002226.02101,"726,00378-0611-01 ",.01)
  1. ;;00378-0611-01
  1. ;;9002226.02101,"726,00378-0611-01 ",.02)
  1. ;;00378-0611-01
  1. ;;9002226.02101,"726,00378-0611-10 ",.01)
  1. ;;00378-0611-10
  1. ;;9002226.02101,"726,00378-0611-10 ",.02)
  1. ;;00378-0611-10
  1. ;;9002226.02101,"726,00378-0711-01 ",.01)
  1. ;;00378-0711-01
  1. ;;9002226.02101,"726,00378-0711-01 ",.02)
  1. ;;00378-0711-01
  1. ;;9002226.02101,"726,00378-0711-10 ",.01)
  1. ;;00378-0711-10
  1. ;;9002226.02101,"726,00378-0711-10 ",.02)
  1. ;;00378-0711-10
  1. ;;9002226.02101,"726,00378-1160-01 ",.01)
  1. ;;00378-1160-01
  1. ;;9002226.02101,"726,00378-1160-01 ",.02)
  1. ;;00378-1160-01
  1. ;;9002226.02101,"726,00378-1190-01 ",.01)
  1. ;;00378-1190-01
  1. ;;9002226.02101,"726,00378-1190-01 ",.02)
  1. ;;00378-1190-01
  1. ;;9002226.02101,"726,00409-2169-31 ",.01)
  1. ;;00409-2169-31
  1. ;;9002226.02101,"726,00409-2169-31 ",.02)
  1. ;;00409-2169-31
  1. ;;9002226.02101,"726,00440-7390-90 ",.01)
  1. ;;00440-7390-90
  1. ;;9002226.02101,"726,00440-7390-90 ",.02)
  1. ;;00440-7390-90
  1. ;;9002226.02101,"726,00440-7391-30 ",.01)
  1. ;;00440-7391-30
  1. ;;9002226.02101,"726,00440-7391-30 ",.02)
  1. ;;00440-7391-30
  1. ;;9002226.02101,"726,00440-7391-90 ",.01)
  1. ;;00440-7391-90
  1. ;;9002226.02101,"726,00440-7391-90 ",.02)
  1. ;;00440-7391-90
  1. ;;9002226.02101,"726,00440-7685-10 ",.01)
  1. ;;00440-7685-10
  1. ;;9002226.02101,"726,00440-7685-10 ",.02)
  1. ;;00440-7685-10
  1. ;;9002226.02101,"726,00440-7685-30 ",.01)
  1. ;;00440-7685-30
  1. ;;9002226.02101,"726,00440-7685-30 ",.02)
  1. ;;00440-7685-30
  1. ;;9002226.02101,"726,00440-7685-90 ",.01)
  1. ;;00440-7685-90
  1. ;;9002226.02101,"726,00440-7685-90 ",.02)
  1. ;;00440-7685-90
  1. ;;9002226.02101,"726,00440-7686-30 ",.01)
  1. ;;00440-7686-30
  1. ;;9002226.02101,"726,00440-7686-30 ",.02)
  1. ;;00440-7686-30
  1. ;;9002226.02101,"726,00440-7686-90 ",.01)
  1. ;;00440-7686-90
  1. ;;9002226.02101,"726,00440-7686-90 ",.02)
  1. ;;00440-7686-90
  1. ;;9002226.02101,"726,00440-7755-90 ",.01)
  1. ;;00440-7755-90
  1. ;;9002226.02101,"726,00440-7755-90 ",.02)
  1. ;;00440-7755-90
  1. ;;9002226.02101,"726,00440-7755-94 ",.01)
  1. ;;00440-7755-94
  1. ;;9002226.02101,"726,00440-7755-94 ",.02)
  1. ;;00440-7755-94
  1. ;;9002226.02101,"726,00440-7756-90 ",.01)
  1. ;;00440-7756-90
  1. ;;9002226.02101,"726,00440-7756-90 ",.02)
  1. ;;00440-7756-90
  1. ;;9002226.02101,"726,00440-7756-94 ",.01)
  1. ;;00440-7756-94
  1. ;;9002226.02101,"726,00440-7756-94 ",.02)
  1. ;;00440-7756-94
  1. ;;9002226.02101,"726,00440-7860-04 ",.01)
  1. ;;00440-7860-04
  1. ;;9002226.02101,"726,00440-7860-04 ",.02)
  1. ;;00440-7860-04
  1. ;;9002226.02101,"726,00440-7860-08 ",.01)
  1. ;;00440-7860-08
  1. ;;9002226.02101,"726,00440-7860-08 ",.02)
  1. ;;00440-7860-08
  1. ;;9002226.02101,"726,00440-7860-90 ",.01)
  1. ;;00440-7860-90
  1. ;;9002226.02101,"726,00440-7860-90 ",.02)
  1. ;;00440-7860-90
  1. ;;9002226.02101,"726,00517-8905-10 ",.01)
  1. ;;00517-8905-10
  1. ;;9002226.02101,"726,00517-8905-10 ",.02)
  1. ;;00517-8905-10
  1. ;;9002226.02101,"726,00527-1324-01 ",.01)
  1. ;;00527-1324-01
  1. ;;9002226.02101,"726,00527-1324-01 ",.02)
  1. ;;00527-1324-01
  1. ;;9002226.02101,"726,00527-1324-10 ",.01)
  1. ;;00527-1324-10
  1. ;;9002226.02101,"726,00527-1324-10 ",.02)
  1. ;;00527-1324-10
  1. ;;9002226.02101,"726,00527-1325-01 ",.01)
  1. ;;00527-1325-01
  1. ;;9002226.02101,"726,00527-1325-01 ",.02)
  1. ;;00527-1325-01
  1. ;;9002226.02101,"726,00527-1325-10 ",.01)
  1. ;;00527-1325-10
  1. ;;9002226.02101,"726,00527-1325-10 ",.02)
  1. ;;00527-1325-10
  1. ;;9002226.02101,"726,00591-0444-01 ",.01)
  1. ;;00591-0444-01
  1. ;;9002226.02101,"726,00591-0444-01 ",.02)
  1. ;;00591-0444-01
  1. ;;9002226.02101,"726,00591-0453-01 ",.01)
  1. ;;00591-0453-01
  1. ;;9002226.02101,"726,00591-0453-01 ",.02)
  1. ;;00591-0453-01
  1. ;;9002226.02101,"726,00591-5560-01 ",.01)
  1. ;;00591-5560-01
  1. ;;9002226.02101,"726,00591-5560-01 ",.02)
  1. ;;00591-5560-01
  1. ;;9002226.02101,"726,00591-5561-01 ",.01)
  1. ;;00591-5561-01
  1. ;;9002226.02101,"726,00591-5561-01 ",.02)
  1. ;;00591-5561-01
  1. ;;9002226.02101,"726,00615-0547-43 ",.01)
  1. ;;00615-0547-43
  1. ;;9002226.02101,"726,00615-0547-43 ",.02)
  1. ;;00615-0547-43
  1. ;;9002226.02101,"726,00641-1410-31 ",.01)
  1. ;;00641-1410-31
  1. ;;9002226.02101,"726,00641-1410-31 ",.02)
  1. ;;00641-1410-31
  1. ;;9002226.02101,"726,00641-1410-35 ",.01)
  1. ;;00641-1410-35
  1. ;;9002226.02101,"726,00641-1410-35 ",.02)
  1. ;;00641-1410-35
  1. ;;9002226.02101,"726,00781-3059-95 ",.01)
  1. ;;00781-3059-95
  1. ;;9002226.02101,"726,00781-3059-95 ",.02)
  1. ;;00781-3059-95
  1. ;;9002226.02101,"726,00904-5921-61 ",.01)
  1. ;;00904-5921-61
  1. ;;9002226.02101,"726,00904-5921-61 ",.02)
  1. ;;00904-5921-61
  1. ;;9002226.02101,"726,00904-5922-61 ",.01)
  1. ;;00904-5922-61
  1. ;;9002226.02101,"726,00904-5922-61 ",.02)
  1. ;;00904-5922-61
  1. ;;9002226.02101,"726,00904-6183-60 ",.01)
  1. ;;00904-6183-60
  1. ;;9002226.02101,"726,00904-6183-60 ",.02)
  1. ;;00904-6183-60
  1. ;;9002226.02101,"726,00904-6184-60 ",.01)
  1. ;;00904-6184-60
  1. ;;9002226.02101,"726,00904-6184-60 ",.02)
  1. ;;00904-6184-60
  1. ;;9002226.02101,"726,10135-0534-01 ",.01)
  1. ;;10135-0534-01
  1. ;;9002226.02101,"726,10135-0534-01 ",.02)
  1. ;;10135-0534-01
  1. ;;9002226.02101,"726,10135-0534-10 ",.01)
  1. ;;10135-0534-10
  1. ;;9002226.02101,"726,10135-0534-10 ",.02)
  1. ;;10135-0534-10
  1. ;;9002226.02101,"726,10135-0535-01 ",.01)
  1. ;;10135-0535-01
  1. ;;9002226.02101,"726,10135-0535-01 ",.02)
  1. ;;10135-0535-01
  1. ;;9002226.02101,"726,10135-0535-10 ",.01)
  1. ;;10135-0535-10
  1. ;;9002226.02101,"726,10135-0535-10 ",.02)
  1. ;;10135-0535-10
  1. ;;9002226.02101,"726,16590-0319-30 ",.01)
  1. ;;16590-0319-30
  1. ;;9002226.02101,"726,16590-0319-30 ",.02)
  1. ;;16590-0319-30
  1. ;;9002226.02101,"726,16590-0319-60 ",.01)
  1. ;;16590-0319-60
  1. ;;9002226.02101,"726,16590-0319-60 ",.02)
  1. ;;16590-0319-60
  1. ;;9002226.02101,"726,16590-0319-82 ",.01)
  1. ;;16590-0319-82
  1. ;;9002226.02101,"726,16590-0319-82 ",.02)
  1. ;;16590-0319-82
  1. ;;9002226.02101,"726,16590-0319-90 ",.01)
  1. ;;16590-0319-90
  1. ;;9002226.02101,"726,16590-0319-90 ",.02)
  1. ;;16590-0319-90
  1. ;;9002226.02101,"726,16729-0030-01 ",.01)
  1. ;;16729-0030-01
  1. ;;9002226.02101,"726,16729-0030-01 ",.02)
  1. ;;16729-0030-01
  1. ;;9002226.02101,"726,16729-0030-16 ",.01)
  1. ;;16729-0030-16
  1. ;;9002226.02101,"726,16729-0030-16 ",.02)
  1. ;;16729-0030-16
  1. ;;9002226.02101,"726,16729-0031-01 ",.01)
  1. ;;16729-0031-01
  1. ;;9002226.02101,"726,16729-0031-01 ",.02)
  1. ;;16729-0031-01
  1. ;;9002226.02101,"726,16729-0031-16 ",.01)
  1. ;;16729-0031-16
  1. ;;9002226.02101,"726,16729-0031-16 ",.02)
  1. ;;16729-0031-16
  1. ;;9002226.02101,"726,17856-0057-01 ",.01)
  1. ;;17856-0057-01
  1. ;;9002226.02101,"726,17856-0057-01 ",.02)
  1. ;;17856-0057-01
  1. ;;9002226.02101,"726,17856-0057-30 ",.01)
  1. ;;17856-0057-30
  1. ;;9002226.02101,"726,17856-0057-30 ",.02)
  1. ;;17856-0057-30
  1. ;;9002226.02101,"726,21695-0678-30 ",.01)
  1. ;;21695-0678-30
  1. ;;9002226.02101,"726,21695-0678-30 ",.02)
  1. ;;21695-0678-30
  1. ;;9002226.02101,"726,21695-0879-60 ",.01)
  1. ;;21695-0879-60
  1. ;;9002226.02101,"726,21695-0879-60 ",.02)
  1. ;;21695-0879-60
  1. ;;9002226.02101,"726,21695-0879-90 ",.01)
  1. ;;21695-0879-90
  1. ;;9002226.02101,"726,21695-0879-90 ",.02)
  1. ;;21695-0879-90
  1. ;;9002226.02101,"726,21695-0880-60 ",.01)
  1. ;;21695-0880-60
  1. ;;9002226.02101,"726,21695-0880-60 ",.02)
  1. ;;21695-0880-60
  1. ;;9002226.02101,"726,23155-0194-01 ",.01)
  1. ;;23155-0194-01
  1. ;;9002226.02101,"726,23155-0194-01 ",.02)
  1. ;;23155-0194-01
  1. ;;9002226.02101,"726,23155-0195-01 ",.01)
  1. ;;23155-0195-01
  1. ;;9002226.02101,"726,23155-0195-01 ",.02)
  1. ;;23155-0195-01
  1. ;;9002226.02101,"726,23490-4904-00 ",.01)
  1. ;;23490-4904-00
  1. ;;9002226.02101,"726,23490-4904-00 ",.02)
  1. ;;23490-4904-00
  1. ;;9002226.02101,"726,23490-5443-01 ",.01)
  1. ;;23490-5443-01
  1. ;;9002226.02101,"726,23490-5443-01 ",.02)
  1. ;;23490-5443-01
  1. ;;9002226.02101,"726,23490-5445-01 ",.01)
  1. ;;23490-5445-01
  1. ;;9002226.02101,"726,23490-5445-01 ",.02)
  1. ;;23490-5445-01
  1. ;;9002226.02101,"726,23490-7952-03 ",.01)
  1. ;;23490-7952-03
  1. ;;9002226.02101,"726,23490-7952-03 ",.02)
  1. ;;23490-7952-03
  1. ;;9002226.02101,"726,24987-0240-55 ",.01)
  1. ;;24987-0240-55
  1. ;;9002226.02101,"726,24987-0240-55 ",.02)
  1. ;;24987-0240-55
  1. ;;9002226.02101,"726,24987-0242-55 ",.01)
  1. ;;24987-0242-55
  1. ;;9002226.02101,"726,24987-0242-55 ",.02)
  1. ;;24987-0242-55
  1. ;;9002226.02101,"726,24987-0242-56 ",.01)
  1. ;;24987-0242-56
  1. ;;9002226.02101,"726,24987-0242-56 ",.02)
  1. ;;24987-0242-56
  1. ;;9002226.02101,"726,24987-0242-57 ",.01)
  1. ;;24987-0242-57
  1. ;;9002226.02101,"726,24987-0242-57 ",.02)
  1. ;;24987-0242-57
  1. ;;9002226.02101,"726,24987-0242-75 ",.01)
  1. ;;24987-0242-75
  1. ;;9002226.02101,"726,24987-0242-75 ",.02)
  1. ;;24987-0242-75
  1. ;;9002226.02101,"726,24987-0242-76 ",.01)
  1. ;;24987-0242-76
  1. ;;9002226.02101,"726,24987-0242-76 ",.02)
  1. ;;24987-0242-76
  1. ;;9002226.02101,"726,24987-0245-55 ",.01)
  1. ;;24987-0245-55
  1. ;;9002226.02101,"726,24987-0245-55 ",.02)
  1. ;;24987-0245-55
  1. ;;9002226.02101,"726,24987-0249-55 ",.01)
  1. ;;24987-0249-55