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

BGP83A22.m

Go to the documentation of this file.
  1. BGP83A22 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"1828,43353-0277-46 ",.01)
  1. ;;43353-0277-46
  1. ;;9002226.02101,"1828,43353-0277-46 ",.02)
  1. ;;43353-0277-46
  1. ;;9002226.02101,"1828,43353-0277-55 ",.01)
  1. ;;43353-0277-55
  1. ;;9002226.02101,"1828,43353-0277-55 ",.02)
  1. ;;43353-0277-55
  1. ;;9002226.02101,"1828,43353-0277-75 ",.01)
  1. ;;43353-0277-75
  1. ;;9002226.02101,"1828,43353-0277-75 ",.02)
  1. ;;43353-0277-75
  1. ;;9002226.02101,"1828,43353-0277-80 ",.01)
  1. ;;43353-0277-80
  1. ;;9002226.02101,"1828,43353-0277-80 ",.02)
  1. ;;43353-0277-80
  1. ;;9002226.02101,"1828,43353-0278-15 ",.01)
  1. ;;43353-0278-15
  1. ;;9002226.02101,"1828,43353-0278-15 ",.02)
  1. ;;43353-0278-15
  1. ;;9002226.02101,"1828,43353-0278-20 ",.01)
  1. ;;43353-0278-20
  1. ;;9002226.02101,"1828,43353-0278-20 ",.02)
  1. ;;43353-0278-20
  1. ;;9002226.02101,"1828,43353-0278-30 ",.01)
  1. ;;43353-0278-30
  1. ;;9002226.02101,"1828,43353-0278-30 ",.02)
  1. ;;43353-0278-30
  1. ;;9002226.02101,"1828,43353-0278-45 ",.01)
  1. ;;43353-0278-45
  1. ;;9002226.02101,"1828,43353-0278-45 ",.02)
  1. ;;43353-0278-45
  1. ;;9002226.02101,"1828,43353-0278-53 ",.01)
  1. ;;43353-0278-53
  1. ;;9002226.02101,"1828,43353-0278-53 ",.02)
  1. ;;43353-0278-53
  1. ;;9002226.02101,"1828,43353-0278-55 ",.01)
  1. ;;43353-0278-55
  1. ;;9002226.02101,"1828,43353-0278-55 ",.02)
  1. ;;43353-0278-55
  1. ;;9002226.02101,"1828,43353-0278-60 ",.01)
  1. ;;43353-0278-60
  1. ;;9002226.02101,"1828,43353-0278-60 ",.02)
  1. ;;43353-0278-60
  1. ;;9002226.02101,"1828,43353-0278-70 ",.01)
  1. ;;43353-0278-70
  1. ;;9002226.02101,"1828,43353-0278-70 ",.02)
  1. ;;43353-0278-70
  1. ;;9002226.02101,"1828,43353-0278-75 ",.01)
  1. ;;43353-0278-75
  1. ;;9002226.02101,"1828,43353-0278-75 ",.02)
  1. ;;43353-0278-75
  1. ;;9002226.02101,"1828,43353-0278-80 ",.01)
  1. ;;43353-0278-80
  1. ;;9002226.02101,"1828,43353-0278-80 ",.02)
  1. ;;43353-0278-80
  1. ;;9002226.02101,"1828,43353-0278-90 ",.01)
  1. ;;43353-0278-90
  1. ;;9002226.02101,"1828,43353-0278-90 ",.02)
  1. ;;43353-0278-90
  1. ;;9002226.02101,"1828,43353-0281-30 ",.01)
  1. ;;43353-0281-30
  1. ;;9002226.02101,"1828,43353-0281-30 ",.02)
  1. ;;43353-0281-30
  1. ;;9002226.02101,"1828,43353-0281-53 ",.01)
  1. ;;43353-0281-53
  1. ;;9002226.02101,"1828,43353-0281-53 ",.02)
  1. ;;43353-0281-53
  1. ;;9002226.02101,"1828,43353-0281-60 ",.01)
  1. ;;43353-0281-60
  1. ;;9002226.02101,"1828,43353-0281-60 ",.02)
  1. ;;43353-0281-60
  1. ;;9002226.02101,"1828,43353-0281-70 ",.01)
  1. ;;43353-0281-70
  1. ;;9002226.02101,"1828,43353-0281-70 ",.02)
  1. ;;43353-0281-70
  1. ;;9002226.02101,"1828,43353-0357-15 ",.01)
  1. ;;43353-0357-15
  1. ;;9002226.02101,"1828,43353-0357-15 ",.02)
  1. ;;43353-0357-15
  1. ;;9002226.02101,"1828,43353-0357-30 ",.01)
  1. ;;43353-0357-30
  1. ;;9002226.02101,"1828,43353-0357-30 ",.02)
  1. ;;43353-0357-30
  1. ;;9002226.02101,"1828,43353-0357-53 ",.01)
  1. ;;43353-0357-53
  1. ;;9002226.02101,"1828,43353-0357-53 ",.02)
  1. ;;43353-0357-53
  1. ;;9002226.02101,"1828,43353-0357-60 ",.01)
  1. ;;43353-0357-60
  1. ;;9002226.02101,"1828,43353-0357-60 ",.02)
  1. ;;43353-0357-60
  1. ;;9002226.02101,"1828,43353-0357-70 ",.01)
  1. ;;43353-0357-70
  1. ;;9002226.02101,"1828,43353-0357-70 ",.02)
  1. ;;43353-0357-70
  1. ;;9002226.02101,"1828,43353-0358-20 ",.01)
  1. ;;43353-0358-20
  1. ;;9002226.02101,"1828,43353-0358-20 ",.02)
  1. ;;43353-0358-20
  1. ;;9002226.02101,"1828,43353-0358-30 ",.01)
  1. ;;43353-0358-30
  1. ;;9002226.02101,"1828,43353-0358-30 ",.02)
  1. ;;43353-0358-30
  1. ;;9002226.02101,"1828,43353-0358-45 ",.01)
  1. ;;43353-0358-45
  1. ;;9002226.02101,"1828,43353-0358-45 ",.02)
  1. ;;43353-0358-45
  1. ;;9002226.02101,"1828,43353-0358-53 ",.01)
  1. ;;43353-0358-53
  1. ;;9002226.02101,"1828,43353-0358-53 ",.02)
  1. ;;43353-0358-53
  1. ;;9002226.02101,"1828,43353-0358-60 ",.01)
  1. ;;43353-0358-60
  1. ;;9002226.02101,"1828,43353-0358-60 ",.02)
  1. ;;43353-0358-60
  1. ;;9002226.02101,"1828,43353-0358-70 ",.01)
  1. ;;43353-0358-70
  1. ;;9002226.02101,"1828,43353-0358-70 ",.02)
  1. ;;43353-0358-70
  1. ;;9002226.02101,"1828,43353-0358-75 ",.01)
  1. ;;43353-0358-75
  1. ;;9002226.02101,"1828,43353-0358-75 ",.02)
  1. ;;43353-0358-75
  1. ;;9002226.02101,"1828,43353-0358-80 ",.01)
  1. ;;43353-0358-80
  1. ;;9002226.02101,"1828,43353-0358-80 ",.02)
  1. ;;43353-0358-80
  1. ;;9002226.02101,"1828,43353-0358-92 ",.01)
  1. ;;43353-0358-92
  1. ;;9002226.02101,"1828,43353-0358-92 ",.02)
  1. ;;43353-0358-92
  1. ;;9002226.02101,"1828,43353-0359-30 ",.01)
  1. ;;43353-0359-30
  1. ;;9002226.02101,"1828,43353-0359-30 ",.02)
  1. ;;43353-0359-30
  1. ;;9002226.02101,"1828,43353-0359-45 ",.01)
  1. ;;43353-0359-45
  1. ;;9002226.02101,"1828,43353-0359-45 ",.02)
  1. ;;43353-0359-45
  1. ;;9002226.02101,"1828,43353-0359-53 ",.01)
  1. ;;43353-0359-53
  1. ;;9002226.02101,"1828,43353-0359-53 ",.02)
  1. ;;43353-0359-53
  1. ;;9002226.02101,"1828,43353-0359-60 ",.01)
  1. ;;43353-0359-60
  1. ;;9002226.02101,"1828,43353-0359-60 ",.02)
  1. ;;43353-0359-60
  1. ;;9002226.02101,"1828,43353-0359-70 ",.01)
  1. ;;43353-0359-70
  1. ;;9002226.02101,"1828,43353-0359-70 ",.02)
  1. ;;43353-0359-70
  1. ;;9002226.02101,"1828,43353-0359-75 ",.01)
  1. ;;43353-0359-75
  1. ;;9002226.02101,"1828,43353-0359-75 ",.02)
  1. ;;43353-0359-75
  1. ;;9002226.02101,"1828,43353-0359-80 ",.01)
  1. ;;43353-0359-80
  1. ;;9002226.02101,"1828,43353-0359-80 ",.02)
  1. ;;43353-0359-80
  1. ;;9002226.02101,"1828,43353-0359-90 ",.01)
  1. ;;43353-0359-90
  1. ;;9002226.02101,"1828,43353-0359-90 ",.02)
  1. ;;43353-0359-90
  1. ;;9002226.02101,"1828,43353-0451-30 ",.01)
  1. ;;43353-0451-30
  1. ;;9002226.02101,"1828,43353-0451-30 ",.02)
  1. ;;43353-0451-30
  1. ;;9002226.02101,"1828,43353-0451-53 ",.01)
  1. ;;43353-0451-53
  1. ;;9002226.02101,"1828,43353-0451-53 ",.02)
  1. ;;43353-0451-53
  1. ;;9002226.02101,"1828,43353-0555-15 ",.01)
  1. ;;43353-0555-15
  1. ;;9002226.02101,"1828,43353-0555-15 ",.02)
  1. ;;43353-0555-15
  1. ;;9002226.02101,"1828,43353-0555-20 ",.01)
  1. ;;43353-0555-20
  1. ;;9002226.02101,"1828,43353-0555-20 ",.02)
  1. ;;43353-0555-20
  1. ;;9002226.02101,"1828,43353-0555-30 ",.01)
  1. ;;43353-0555-30
  1. ;;9002226.02101,"1828,43353-0555-30 ",.02)
  1. ;;43353-0555-30
  1. ;;9002226.02101,"1828,43353-0555-45 ",.01)
  1. ;;43353-0555-45
  1. ;;9002226.02101,"1828,43353-0555-45 ",.02)
  1. ;;43353-0555-45
  1. ;;9002226.02101,"1828,43353-0555-53 ",.01)
  1. ;;43353-0555-53
  1. ;;9002226.02101,"1828,43353-0555-53 ",.02)
  1. ;;43353-0555-53
  1. ;;9002226.02101,"1828,43353-0555-55 ",.01)
  1. ;;43353-0555-55
  1. ;;9002226.02101,"1828,43353-0555-55 ",.02)
  1. ;;43353-0555-55
  1. ;;9002226.02101,"1828,43353-0555-60 ",.01)
  1. ;;43353-0555-60
  1. ;;9002226.02101,"1828,43353-0555-60 ",.02)
  1. ;;43353-0555-60
  1. ;;9002226.02101,"1828,43353-0555-70 ",.01)
  1. ;;43353-0555-70
  1. ;;9002226.02101,"1828,43353-0555-70 ",.02)
  1. ;;43353-0555-70
  1. ;;9002226.02101,"1828,43353-0555-75 ",.01)
  1. ;;43353-0555-75
  1. ;;9002226.02101,"1828,43353-0555-75 ",.02)
  1. ;;43353-0555-75
  1. ;;9002226.02101,"1828,43353-0555-80 ",.01)
  1. ;;43353-0555-80
  1. ;;9002226.02101,"1828,43353-0555-80 ",.02)
  1. ;;43353-0555-80
  1. ;;9002226.02101,"1828,43353-0555-90 ",.01)
  1. ;;43353-0555-90
  1. ;;9002226.02101,"1828,43353-0555-90 ",.02)
  1. ;;43353-0555-90
  1. ;;9002226.02101,"1828,43353-0555-92 ",.01)
  1. ;;43353-0555-92
  1. ;;9002226.02101,"1828,43353-0555-92 ",.02)
  1. ;;43353-0555-92
  1. ;;9002226.02101,"1828,43353-0572-15 ",.01)
  1. ;;43353-0572-15
  1. ;;9002226.02101,"1828,43353-0572-15 ",.02)
  1. ;;43353-0572-15
  1. ;;9002226.02101,"1828,43353-0572-30 ",.01)
  1. ;;43353-0572-30
  1. ;;9002226.02101,"1828,43353-0572-30 ",.02)
  1. ;;43353-0572-30
  1. ;;9002226.02101,"1828,43353-0572-53 ",.01)
  1. ;;43353-0572-53
  1. ;;9002226.02101,"1828,43353-0572-53 ",.02)
  1. ;;43353-0572-53
  1. ;;9002226.02101,"1828,43353-0572-60 ",.01)
  1. ;;43353-0572-60
  1. ;;9002226.02101,"1828,43353-0572-60 ",.02)
  1. ;;43353-0572-60
  1. ;;9002226.02101,"1828,43353-0572-70 ",.01)
  1. ;;43353-0572-70
  1. ;;9002226.02101,"1828,43353-0572-70 ",.02)
  1. ;;43353-0572-70
  1. ;;9002226.02101,"1828,43353-0572-75 ",.01)
  1. ;;43353-0572-75
  1. ;;9002226.02101,"1828,43353-0572-75 ",.02)
  1. ;;43353-0572-75
  1. ;;9002226.02101,"1828,43353-0572-80 ",.01)
  1. ;;43353-0572-80
  1. ;;9002226.02101,"1828,43353-0572-80 ",.02)
  1. ;;43353-0572-80
  1. ;;9002226.02101,"1828,43353-0572-90 ",.01)
  1. ;;43353-0572-90
  1. ;;9002226.02101,"1828,43353-0572-90 ",.02)
  1. ;;43353-0572-90
  1. ;;9002226.02101,"1828,43353-0698-30 ",.01)
  1. ;;43353-0698-30
  1. ;;9002226.02101,"1828,43353-0698-30 ",.02)
  1. ;;43353-0698-30
  1. ;;9002226.02101,"1828,43353-0698-53 ",.01)
  1. ;;43353-0698-53
  1. ;;9002226.02101,"1828,43353-0698-53 ",.02)
  1. ;;43353-0698-53
  1. ;;9002226.02101,"1828,43353-0698-60 ",.01)
  1. ;;43353-0698-60
  1. ;;9002226.02101,"1828,43353-0698-60 ",.02)
  1. ;;43353-0698-60
  1. ;;9002226.02101,"1828,43353-0699-30 ",.01)
  1. ;;43353-0699-30
  1. ;;9002226.02101,"1828,43353-0699-30 ",.02)
  1. ;;43353-0699-30
  1. ;;9002226.02101,"1828,43353-0699-53 ",.01)
  1. ;;43353-0699-53
  1. ;;9002226.02101,"1828,43353-0699-53 ",.02)
  1. ;;43353-0699-53
  1. ;;9002226.02101,"1828,43353-0699-60 ",.01)
  1. ;;43353-0699-60
  1. ;;9002226.02101,"1828,43353-0699-60 ",.02)
  1. ;;43353-0699-60
  1. ;;9002226.02101,"1828,43353-0705-15 ",.01)
  1. ;;43353-0705-15
  1. ;;9002226.02101,"1828,43353-0705-15 ",.02)
  1. ;;43353-0705-15
  1. ;;9002226.02101,"1828,43353-0705-30 ",.01)
  1. ;;43353-0705-30
  1. ;;9002226.02101,"1828,43353-0705-30 ",.02)
  1. ;;43353-0705-30
  1. ;;9002226.02101,"1828,43353-0705-53 ",.01)
  1. ;;43353-0705-53
  1. ;;9002226.02101,"1828,43353-0705-53 ",.02)
  1. ;;43353-0705-53
  1. ;;9002226.02101,"1828,43353-0705-60 ",.01)
  1. ;;43353-0705-60
  1. ;;9002226.02101,"1828,43353-0705-60 ",.02)
  1. ;;43353-0705-60
  1. ;;9002226.02101,"1828,43353-0705-70 ",.01)
  1. ;;43353-0705-70
  1. ;;9002226.02101,"1828,43353-0705-70 ",.02)
  1. ;;43353-0705-70
  1. ;;9002226.02101,"1828,43353-0711-30 ",.01)
  1. ;;43353-0711-30
  1. ;;9002226.02101,"1828,43353-0711-30 ",.02)
  1. ;;43353-0711-30
  1. ;;9002226.02101,"1828,43353-0711-53 ",.01)
  1. ;;43353-0711-53
  1. ;;9002226.02101,"1828,43353-0711-53 ",.02)
  1. ;;43353-0711-53
  1. ;;9002226.02101,"1828,43353-0711-60 ",.01)
  1. ;;43353-0711-60
  1. ;;9002226.02101,"1828,43353-0711-60 ",.02)
  1. ;;43353-0711-60
  1. ;;9002226.02101,"1828,43353-0783-15 ",.01)
  1. ;;43353-0783-15
  1. ;;9002226.02101,"1828,43353-0783-15 ",.02)
  1. ;;43353-0783-15
  1. ;;9002226.02101,"1828,43353-0783-20 ",.01)
  1. ;;43353-0783-20
  1. ;;9002226.02101,"1828,43353-0783-20 ",.02)
  1. ;;43353-0783-20
  1. ;;9002226.02101,"1828,43353-0783-30 ",.01)
  1. ;;43353-0783-30
  1. ;;9002226.02101,"1828,43353-0783-30 ",.02)
  1. ;;43353-0783-30
  1. ;;9002226.02101,"1828,43353-0783-45 ",.01)
  1. ;;43353-0783-45
  1. ;;9002226.02101,"1828,43353-0783-45 ",.02)
  1. ;;43353-0783-45
  1. ;;9002226.02101,"1828,43353-0783-53 ",.01)
  1. ;;43353-0783-53
  1. ;;9002226.02101,"1828,43353-0783-53 ",.02)
  1. ;;43353-0783-53
  1. ;;9002226.02101,"1828,43353-0783-55 ",.01)
  1. ;;43353-0783-55
  1. ;;9002226.02101,"1828,43353-0783-55 ",.02)
  1. ;;43353-0783-55
  1. ;;9002226.02101,"1828,43353-0783-60 ",.01)
  1. ;;43353-0783-60
  1. ;;9002226.02101,"1828,43353-0783-60 ",.02)
  1. ;;43353-0783-60
  1. ;;9002226.02101,"1828,43353-0783-70 ",.01)
  1. ;;43353-0783-70
  1. ;;9002226.02101,"1828,43353-0783-70 ",.02)
  1. ;;43353-0783-70
  1. ;;9002226.02101,"1828,43353-0783-75 ",.01)
  1. ;;43353-0783-75
  1. ;;9002226.02101,"1828,43353-0783-75 ",.02)
  1. ;;43353-0783-75
  1. ;;9002226.02101,"1828,43353-0783-80 ",.01)
  1. ;;43353-0783-80
  1. ;;9002226.02101,"1828,43353-0783-80 ",.02)
  1. ;;43353-0783-80
  1. ;;9002226.02101,"1828,43353-0783-90 ",.01)
  1. ;;43353-0783-90
  1. ;;9002226.02101,"1828,43353-0783-90 ",.02)
  1. ;;43353-0783-90
  1. ;;9002226.02101,"1828,43353-0799-15 ",.01)
  1. ;;43353-0799-15
  1. ;;9002226.02101,"1828,43353-0799-15 ",.02)
  1. ;;43353-0799-15
  1. ;;9002226.02101,"1828,43353-0799-45 ",.01)
  1. ;;43353-0799-45
  1. ;;9002226.02101,"1828,43353-0799-45 ",.02)
  1. ;;43353-0799-45
  1. ;;9002226.02101,"1828,43353-0799-70 ",.01)
  1. ;;43353-0799-70
  1. ;;9002226.02101,"1828,43353-0799-70 ",.02)
  1. ;;43353-0799-70
  1. ;;9002226.02101,"1828,43353-0820-30 ",.01)
  1. ;;43353-0820-30
  1. ;;9002226.02101,"1828,43353-0820-30 ",.02)
  1. ;;43353-0820-30
  1. ;;9002226.02101,"1828,43353-0820-53 ",.01)
  1. ;;43353-0820-53
  1. ;;9002226.02101,"1828,43353-0820-53 ",.02)
  1. ;;43353-0820-53
  1. ;;9002226.02101,"1828,43353-0820-60 ",.01)
  1. ;;43353-0820-60
  1. ;;9002226.02101,"1828,43353-0820-60 ",.02)
  1. ;;43353-0820-60
  1. ;;9002226.02101,"1828,43353-0820-70 ",.01)
  1. ;;43353-0820-70