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

BGP52B13.m

Go to the documentation of this file.
  1. BGP52B13 ;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,"1813,67544-0194-30 ",.02)
  1. ;;67544-0194-30
  1. ;;9002226.02101,"1813,67544-0195-30 ",.01)
  1. ;;67544-0195-30
  1. ;;9002226.02101,"1813,67544-0195-30 ",.02)
  1. ;;67544-0195-30
  1. ;;9002226.02101,"1813,67544-0195-40 ",.01)
  1. ;;67544-0195-40
  1. ;;9002226.02101,"1813,67544-0195-40 ",.02)
  1. ;;67544-0195-40
  1. ;;9002226.02101,"1813,67544-0195-45 ",.01)
  1. ;;67544-0195-45
  1. ;;9002226.02101,"1813,67544-0195-45 ",.02)
  1. ;;67544-0195-45
  1. ;;9002226.02101,"1813,67544-0195-53 ",.01)
  1. ;;67544-0195-53
  1. ;;9002226.02101,"1813,67544-0195-53 ",.02)
  1. ;;67544-0195-53
  1. ;;9002226.02101,"1813,67544-0195-60 ",.01)
  1. ;;67544-0195-60
  1. ;;9002226.02101,"1813,67544-0195-60 ",.02)
  1. ;;67544-0195-60
  1. ;;9002226.02101,"1813,67544-0318-15 ",.01)
  1. ;;67544-0318-15
  1. ;;9002226.02101,"1813,67544-0318-15 ",.02)
  1. ;;67544-0318-15
  1. ;;9002226.02101,"1813,67544-0318-30 ",.01)
  1. ;;67544-0318-30
  1. ;;9002226.02101,"1813,67544-0318-30 ",.02)
  1. ;;67544-0318-30
  1. ;;9002226.02101,"1813,67544-0318-35 ",.01)
  1. ;;67544-0318-35
  1. ;;9002226.02101,"1813,67544-0318-35 ",.02)
  1. ;;67544-0318-35
  1. ;;9002226.02101,"1813,67544-0318-40 ",.01)
  1. ;;67544-0318-40
  1. ;;9002226.02101,"1813,67544-0318-40 ",.02)
  1. ;;67544-0318-40
  1. ;;9002226.02101,"1813,67544-0318-45 ",.01)
  1. ;;67544-0318-45
  1. ;;9002226.02101,"1813,67544-0318-45 ",.02)
  1. ;;67544-0318-45
  1. ;;9002226.02101,"1813,67544-0318-50 ",.01)
  1. ;;67544-0318-50
  1. ;;9002226.02101,"1813,67544-0318-50 ",.02)
  1. ;;67544-0318-50
  1. ;;9002226.02101,"1813,67544-0318-53 ",.01)
  1. ;;67544-0318-53
  1. ;;9002226.02101,"1813,67544-0318-53 ",.02)
  1. ;;67544-0318-53
  1. ;;9002226.02101,"1813,67544-0318-55 ",.01)
  1. ;;67544-0318-55
  1. ;;9002226.02101,"1813,67544-0318-55 ",.02)
  1. ;;67544-0318-55
  1. ;;9002226.02101,"1813,67544-0318-60 ",.01)
  1. ;;67544-0318-60
  1. ;;9002226.02101,"1813,67544-0318-60 ",.02)
  1. ;;67544-0318-60
  1. ;;9002226.02101,"1813,67544-0318-61 ",.01)
  1. ;;67544-0318-61
  1. ;;9002226.02101,"1813,67544-0318-61 ",.02)
  1. ;;67544-0318-61
  1. ;;9002226.02101,"1813,67544-0318-70 ",.01)
  1. ;;67544-0318-70
  1. ;;9002226.02101,"1813,67544-0318-70 ",.02)
  1. ;;67544-0318-70
  1. ;;9002226.02101,"1813,67544-0401-15 ",.01)
  1. ;;67544-0401-15
  1. ;;9002226.02101,"1813,67544-0401-15 ",.02)
  1. ;;67544-0401-15
  1. ;;9002226.02101,"1813,67544-0401-30 ",.01)
  1. ;;67544-0401-30
  1. ;;9002226.02101,"1813,67544-0401-30 ",.02)
  1. ;;67544-0401-30
  1. ;;9002226.02101,"1813,67544-0401-35 ",.01)
  1. ;;67544-0401-35
  1. ;;9002226.02101,"1813,67544-0401-35 ",.02)
  1. ;;67544-0401-35
  1. ;;9002226.02101,"1813,67544-0401-40 ",.01)
  1. ;;67544-0401-40
  1. ;;9002226.02101,"1813,67544-0401-40 ",.02)
  1. ;;67544-0401-40
  1. ;;9002226.02101,"1813,67544-0401-45 ",.01)
  1. ;;67544-0401-45
  1. ;;9002226.02101,"1813,67544-0401-45 ",.02)
  1. ;;67544-0401-45
  1. ;;9002226.02101,"1813,67544-0401-50 ",.01)
  1. ;;67544-0401-50
  1. ;;9002226.02101,"1813,67544-0401-50 ",.02)
  1. ;;67544-0401-50
  1. ;;9002226.02101,"1813,67544-0401-53 ",.01)
  1. ;;67544-0401-53
  1. ;;9002226.02101,"1813,67544-0401-53 ",.02)
  1. ;;67544-0401-53
  1. ;;9002226.02101,"1813,67544-0401-55 ",.01)
  1. ;;67544-0401-55
  1. ;;9002226.02101,"1813,67544-0401-55 ",.02)
  1. ;;67544-0401-55
  1. ;;9002226.02101,"1813,67544-0401-60 ",.01)
  1. ;;67544-0401-60
  1. ;;9002226.02101,"1813,67544-0401-60 ",.02)
  1. ;;67544-0401-60
  1. ;;9002226.02101,"1813,67544-0401-61 ",.01)
  1. ;;67544-0401-61
  1. ;;9002226.02101,"1813,67544-0401-61 ",.02)
  1. ;;67544-0401-61
  1. ;;9002226.02101,"1813,67544-0401-70 ",.01)
  1. ;;67544-0401-70
  1. ;;9002226.02101,"1813,67544-0401-70 ",.02)
  1. ;;67544-0401-70
  1. ;;9002226.02101,"1813,68084-0027-01 ",.01)
  1. ;;68084-0027-01
  1. ;;9002226.02101,"1813,68084-0027-01 ",.02)
  1. ;;68084-0027-01
  1. ;;9002226.02101,"1813,68084-0027-11 ",.01)
  1. ;;68084-0027-11
  1. ;;9002226.02101,"1813,68084-0027-11 ",.02)
  1. ;;68084-0027-11
  1. ;;9002226.02101,"1813,68084-0027-77 ",.01)
  1. ;;68084-0027-77
  1. ;;9002226.02101,"1813,68084-0027-77 ",.02)
  1. ;;68084-0027-77
  1. ;;9002226.02101,"1813,68258-6067-03 ",.01)
  1. ;;68258-6067-03
  1. ;;9002226.02101,"1813,68258-6067-03 ",.02)
  1. ;;68258-6067-03
  1. ;;9002226.02101,"1813,68258-6068-03 ",.01)
  1. ;;68258-6068-03
  1. ;;9002226.02101,"1813,68258-6068-03 ",.02)
  1. ;;68258-6068-03
  1. ;;9002226.02101,"1813,68382-0052-01 ",.01)
  1. ;;68382-0052-01
  1. ;;9002226.02101,"1813,68382-0052-01 ",.02)
  1. ;;68382-0052-01
  1. ;;9002226.02101,"1813,68382-0052-10 ",.01)
  1. ;;68382-0052-10
  1. ;;9002226.02101,"1813,68382-0052-10 ",.02)
  1. ;;68382-0052-10
  1. ;;9002226.02101,"1813,68382-0053-01 ",.01)
  1. ;;68382-0053-01
  1. ;;9002226.02101,"1813,68382-0053-01 ",.02)
  1. ;;68382-0053-01
  1. ;;9002226.02101,"1813,68382-0053-10 ",.01)
  1. ;;68382-0053-10
  1. ;;9002226.02101,"1813,68382-0053-10 ",.02)
  1. ;;68382-0053-10
  1. ;;9002226.02101,"1813,68382-0054-01 ",.01)
  1. ;;68382-0054-01
  1. ;;9002226.02101,"1813,68382-0054-01 ",.02)
  1. ;;68382-0054-01
  1. ;;9002226.02101,"1813,68382-0054-10 ",.01)
  1. ;;68382-0054-10
  1. ;;9002226.02101,"1813,68382-0054-10 ",.02)
  1. ;;68382-0054-10
  1. ;;9002226.02101,"1813,68382-0055-01 ",.01)
  1. ;;68382-0055-01
  1. ;;9002226.02101,"1813,68382-0055-01 ",.02)
  1. ;;68382-0055-01
  1. ;;9002226.02101,"1813,68382-0055-10 ",.01)
  1. ;;68382-0055-10
  1. ;;9002226.02101,"1813,68382-0055-10 ",.02)
  1. ;;68382-0055-10
  1. ;;9002226.02101,"1813,68382-0056-01 ",.01)
  1. ;;68382-0056-01
  1. ;;9002226.02101,"1813,68382-0056-01 ",.02)
  1. ;;68382-0056-01
  1. ;;9002226.02101,"1813,68382-0056-10 ",.01)
  1. ;;68382-0056-10
  1. ;;9002226.02101,"1813,68382-0056-10 ",.02)
  1. ;;68382-0056-10
  1. ;;9002226.02101,"1813,68382-0056-16 ",.01)
  1. ;;68382-0056-16
  1. ;;9002226.02101,"1813,68382-0056-16 ",.02)
  1. ;;68382-0056-16
  1. ;;9002226.02101,"1813,68382-0057-01 ",.01)
  1. ;;68382-0057-01
  1. ;;9002226.02101,"1813,68382-0057-01 ",.02)
  1. ;;68382-0057-01
  1. ;;9002226.02101,"1813,68382-0058-01 ",.01)
  1. ;;68382-0058-01
  1. ;;9002226.02101,"1813,68382-0058-01 ",.02)
  1. ;;68382-0058-01
  1. ;;9002226.02101,"1813,68382-0059-01 ",.01)
  1. ;;68382-0059-01
  1. ;;9002226.02101,"1813,68382-0059-01 ",.02)
  1. ;;68382-0059-01
  1. ;;9002226.02101,"1813,68382-0064-01 ",.01)
  1. ;;68382-0064-01
  1. ;;9002226.02101,"1813,68382-0064-01 ",.02)
  1. ;;68382-0064-01
  1. ;;9002226.02101,"1813,68382-0064-10 ",.01)
  1. ;;68382-0064-10
  1. ;;9002226.02101,"1813,68382-0064-10 ",.02)
  1. ;;68382-0064-10
  1. ;;9002226.02101,"1813,68883-0010-05 ",.01)
  1. ;;68883-0010-05
  1. ;;9002226.02101,"1813,68883-0010-05 ",.02)
  1. ;;68883-0010-05
  1. ;;9002226.02101,"1813,68883-0100-03 ",.01)
  1. ;;68883-0100-03
  1. ;;9002226.02101,"1813,68883-0100-03 ",.02)
  1. ;;68883-0100-03
  1. ;;9002226.02101,"1813,68883-0100-05 ",.01)
  1. ;;68883-0100-05
  1. ;;9002226.02101,"1813,68883-0100-05 ",.02)
  1. ;;68883-0100-05