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

BGP83A23.m

Go to the documentation of this file.
  1. BGP83A23 ; 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-0820-70 ",.02)
  1. ;;43353-0820-70
  1. ;;9002226.02101,"1828,43353-0825-30 ",.01)
  1. ;;43353-0825-30
  1. ;;9002226.02101,"1828,43353-0825-30 ",.02)
  1. ;;43353-0825-30
  1. ;;9002226.02101,"1828,43353-0825-53 ",.01)
  1. ;;43353-0825-53
  1. ;;9002226.02101,"1828,43353-0825-53 ",.02)
  1. ;;43353-0825-53
  1. ;;9002226.02101,"1828,43353-0825-60 ",.01)
  1. ;;43353-0825-60
  1. ;;9002226.02101,"1828,43353-0825-60 ",.02)
  1. ;;43353-0825-60
  1. ;;9002226.02101,"1828,43353-0825-70 ",.01)
  1. ;;43353-0825-70
  1. ;;9002226.02101,"1828,43353-0825-70 ",.02)
  1. ;;43353-0825-70
  1. ;;9002226.02101,"1828,43353-0965-30 ",.01)
  1. ;;43353-0965-30
  1. ;;9002226.02101,"1828,43353-0965-30 ",.02)
  1. ;;43353-0965-30
  1. ;;9002226.02101,"1828,43353-0965-53 ",.01)
  1. ;;43353-0965-53
  1. ;;9002226.02101,"1828,43353-0965-53 ",.02)
  1. ;;43353-0965-53
  1. ;;9002226.02101,"1828,43353-0965-60 ",.01)
  1. ;;43353-0965-60
  1. ;;9002226.02101,"1828,43353-0965-60 ",.02)
  1. ;;43353-0965-60
  1. ;;9002226.02101,"1828,43353-0969-53 ",.01)
  1. ;;43353-0969-53
  1. ;;9002226.02101,"1828,43353-0969-53 ",.02)
  1. ;;43353-0969-53
  1. ;;9002226.02101,"1828,43353-0980-30 ",.01)
  1. ;;43353-0980-30
  1. ;;9002226.02101,"1828,43353-0980-30 ",.02)
  1. ;;43353-0980-30
  1. ;;9002226.02101,"1828,43547-0251-10 ",.01)
  1. ;;43547-0251-10
  1. ;;9002226.02101,"1828,43547-0251-10 ",.02)
  1. ;;43547-0251-10
  1. ;;9002226.02101,"1828,43547-0252-10 ",.01)
  1. ;;43547-0252-10
  1. ;;9002226.02101,"1828,43547-0252-10 ",.02)
  1. ;;43547-0252-10
  1. ;;9002226.02101,"1828,43547-0253-10 ",.01)
  1. ;;43547-0253-10
  1. ;;9002226.02101,"1828,43547-0253-10 ",.02)
  1. ;;43547-0253-10
  1. ;;9002226.02101,"1828,47335-0603-13 ",.01)
  1. ;;47335-0603-13
  1. ;;9002226.02101,"1828,47335-0603-13 ",.02)
  1. ;;47335-0603-13
  1. ;;9002226.02101,"1828,47335-0603-18 ",.01)
  1. ;;47335-0603-18
  1. ;;9002226.02101,"1828,47335-0603-18 ",.02)
  1. ;;47335-0603-18
  1. ;;9002226.02101,"1828,47335-0603-88 ",.01)
  1. ;;47335-0603-88
  1. ;;9002226.02101,"1828,47335-0603-88 ",.02)
  1. ;;47335-0603-88
  1. ;;9002226.02101,"1828,47335-0604-13 ",.01)
  1. ;;47335-0604-13
  1. ;;9002226.02101,"1828,47335-0604-13 ",.02)
  1. ;;47335-0604-13
  1. ;;9002226.02101,"1828,47335-0604-18 ",.01)
  1. ;;47335-0604-18
  1. ;;9002226.02101,"1828,47335-0604-18 ",.02)
  1. ;;47335-0604-18
  1. ;;9002226.02101,"1828,47335-0604-88 ",.01)
  1. ;;47335-0604-88
  1. ;;9002226.02101,"1828,47335-0604-88 ",.02)
  1. ;;47335-0604-88
  1. ;;9002226.02101,"1828,47335-0605-13 ",.01)
  1. ;;47335-0605-13
  1. ;;9002226.02101,"1828,47335-0605-13 ",.02)
  1. ;;47335-0605-13
  1. ;;9002226.02101,"1828,47335-0605-18 ",.01)
  1. ;;47335-0605-18
  1. ;;9002226.02101,"1828,47335-0605-18 ",.02)
  1. ;;47335-0605-18
  1. ;;9002226.02101,"1828,47335-0605-88 ",.01)
  1. ;;47335-0605-88
  1. ;;9002226.02101,"1828,47335-0605-88 ",.02)
  1. ;;47335-0605-88
  1. ;;9002226.02101,"1828,47335-0606-88 ",.01)
  1. ;;47335-0606-88
  1. ;;9002226.02101,"1828,47335-0606-88 ",.02)
  1. ;;47335-0606-88
  1. ;;9002226.02101,"1828,47463-0008-30 ",.01)
  1. ;;47463-0008-30
  1. ;;9002226.02101,"1828,47463-0008-30 ",.02)
  1. ;;47463-0008-30
  1. ;;9002226.02101,"1828,47463-0009-00 ",.01)
  1. ;;47463-0009-00
  1. ;;9002226.02101,"1828,47463-0009-00 ",.02)
  1. ;;47463-0009-00
  1. ;;9002226.02101,"1828,47463-0009-30 ",.01)
  1. ;;47463-0009-30
  1. ;;9002226.02101,"1828,47463-0009-30 ",.02)
  1. ;;47463-0009-30
  1. ;;9002226.02101,"1828,47463-0009-60 ",.01)
  1. ;;47463-0009-60
  1. ;;9002226.02101,"1828,47463-0009-60 ",.02)
  1. ;;47463-0009-60
  1. ;;9002226.02101,"1828,47463-0009-71 ",.01)
  1. ;;47463-0009-71
  1. ;;9002226.02101,"1828,47463-0009-71 ",.02)
  1. ;;47463-0009-71
  1. ;;9002226.02101,"1828,47463-0009-76 ",.01)
  1. ;;47463-0009-76
  1. ;;9002226.02101,"1828,47463-0009-76 ",.02)
  1. ;;47463-0009-76
  1. ;;9002226.02101,"1828,47463-0010-00 ",.01)
  1. ;;47463-0010-00
  1. ;;9002226.02101,"1828,47463-0010-00 ",.02)
  1. ;;47463-0010-00
  1. ;;9002226.02101,"1828,47463-0010-30 ",.01)
  1. ;;47463-0010-30
  1. ;;9002226.02101,"1828,47463-0010-30 ",.02)
  1. ;;47463-0010-30
  1. ;;9002226.02101,"1828,47463-0010-60 ",.01)
  1. ;;47463-0010-60
  1. ;;9002226.02101,"1828,47463-0010-60 ",.02)
  1. ;;47463-0010-60
  1. ;;9002226.02101,"1828,47463-0010-71 ",.01)
  1. ;;47463-0010-71
  1. ;;9002226.02101,"1828,47463-0010-71 ",.02)
  1. ;;47463-0010-71
  1. ;;9002226.02101,"1828,47463-0010-76 ",.01)
  1. ;;47463-0010-76
  1. ;;9002226.02101,"1828,47463-0010-76 ",.02)
  1. ;;47463-0010-76
  1. ;;9002226.02101,"1828,47463-0010-90 ",.01)
  1. ;;47463-0010-90
  1. ;;9002226.02101,"1828,47463-0010-90 ",.02)
  1. ;;47463-0010-90
  1. ;;9002226.02101,"1828,47463-0011-30 ",.01)
  1. ;;47463-0011-30
  1. ;;9002226.02101,"1828,47463-0011-30 ",.02)
  1. ;;47463-0011-30
  1. ;;9002226.02101,"1828,47463-0011-60 ",.01)
  1. ;;47463-0011-60
  1. ;;9002226.02101,"1828,47463-0011-60 ",.02)
  1. ;;47463-0011-60
  1. ;;9002226.02101,"1828,47463-0011-71 ",.01)
  1. ;;47463-0011-71
  1. ;;9002226.02101,"1828,47463-0011-71 ",.02)
  1. ;;47463-0011-71
  1. ;;9002226.02101,"1828,47463-0011-77 ",.01)
  1. ;;47463-0011-77
  1. ;;9002226.02101,"1828,47463-0011-77 ",.02)
  1. ;;47463-0011-77
  1. ;;9002226.02101,"1828,47463-0011-90 ",.01)
  1. ;;47463-0011-90
  1. ;;9002226.02101,"1828,47463-0011-90 ",.02)
  1. ;;47463-0011-90
  1. ;;9002226.02101,"1828,47463-0075-00 ",.01)
  1. ;;47463-0075-00
  1. ;;9002226.02101,"1828,47463-0075-00 ",.02)
  1. ;;47463-0075-00
  1. ;;9002226.02101,"1828,47463-0075-30 ",.01)
  1. ;;47463-0075-30
  1. ;;9002226.02101,"1828,47463-0075-30 ",.02)
  1. ;;47463-0075-30
  1. ;;9002226.02101,"1828,47463-0075-60 ",.01)
  1. ;;47463-0075-60
  1. ;;9002226.02101,"1828,47463-0075-60 ",.02)
  1. ;;47463-0075-60
  1. ;;9002226.02101,"1828,47463-0075-71 ",.01)
  1. ;;47463-0075-71
  1. ;;9002226.02101,"1828,47463-0075-71 ",.02)
  1. ;;47463-0075-71
  1. ;;9002226.02101,"1828,47463-0075-90 ",.01)
  1. ;;47463-0075-90
  1. ;;9002226.02101,"1828,47463-0075-90 ",.02)
  1. ;;47463-0075-90
  1. ;;9002226.02101,"1828,47463-0076-00 ",.01)
  1. ;;47463-0076-00
  1. ;;9002226.02101,"1828,47463-0076-00 ",.02)
  1. ;;47463-0076-00
  1. ;;9002226.02101,"1828,47463-0076-30 ",.01)
  1. ;;47463-0076-30
  1. ;;9002226.02101,"1828,47463-0076-30 ",.02)
  1. ;;47463-0076-30
  1. ;;9002226.02101,"1828,47463-0076-60 ",.01)
  1. ;;47463-0076-60
  1. ;;9002226.02101,"1828,47463-0076-60 ",.02)
  1. ;;47463-0076-60
  1. ;;9002226.02101,"1828,47463-0076-71 ",.01)
  1. ;;47463-0076-71
  1. ;;9002226.02101,"1828,47463-0076-71 ",.02)
  1. ;;47463-0076-71
  1. ;;9002226.02101,"1828,47463-0076-90 ",.01)
  1. ;;47463-0076-90
  1. ;;9002226.02101,"1828,47463-0076-90 ",.02)
  1. ;;47463-0076-90
  1. ;;9002226.02101,"1828,47463-0079-90 ",.01)
  1. ;;47463-0079-90
  1. ;;9002226.02101,"1828,47463-0079-90 ",.02)
  1. ;;47463-0079-90
  1. ;;9002226.02101,"1828,47463-0109-60 ",.01)
  1. ;;47463-0109-60
  1. ;;9002226.02101,"1828,47463-0109-60 ",.02)
  1. ;;47463-0109-60
  1. ;;9002226.02101,"1828,47463-0203-02 ",.01)
  1. ;;47463-0203-02
  1. ;;9002226.02101,"1828,47463-0203-02 ",.02)
  1. ;;47463-0203-02
  1. ;;9002226.02101,"1828,47463-0203-15 ",.01)
  1. ;;47463-0203-15
  1. ;;9002226.02101,"1828,47463-0203-15 ",.02)
  1. ;;47463-0203-15
  1. ;;9002226.02101,"1828,47463-0203-30 ",.01)
  1. ;;47463-0203-30
  1. ;;9002226.02101,"1828,47463-0203-30 ",.02)
  1. ;;47463-0203-30
  1. ;;9002226.02101,"1828,47463-0203-60 ",.01)
  1. ;;47463-0203-60
  1. ;;9002226.02101,"1828,47463-0203-60 ",.02)
  1. ;;47463-0203-60
  1. ;;9002226.02101,"1828,47463-0203-90 ",.01)
  1. ;;47463-0203-90
  1. ;;9002226.02101,"1828,47463-0203-90 ",.02)
  1. ;;47463-0203-90
  1. ;;9002226.02101,"1828,47463-0204-20 ",.01)
  1. ;;47463-0204-20
  1. ;;9002226.02101,"1828,47463-0204-20 ",.02)
  1. ;;47463-0204-20
  1. ;;9002226.02101,"1828,47463-0204-30 ",.01)
  1. ;;47463-0204-30
  1. ;;9002226.02101,"1828,47463-0204-30 ",.02)
  1. ;;47463-0204-30
  1. ;;9002226.02101,"1828,47463-0204-40 ",.01)
  1. ;;47463-0204-40
  1. ;;9002226.02101,"1828,47463-0204-40 ",.02)
  1. ;;47463-0204-40
  1. ;;9002226.02101,"1828,47463-0204-60 ",.01)
  1. ;;47463-0204-60
  1. ;;9002226.02101,"1828,47463-0204-60 ",.02)
  1. ;;47463-0204-60
  1. ;;9002226.02101,"1828,47463-0204-71 ",.01)
  1. ;;47463-0204-71
  1. ;;9002226.02101,"1828,47463-0204-71 ",.02)
  1. ;;47463-0204-71
  1. ;;9002226.02101,"1828,47463-0204-90 ",.01)
  1. ;;47463-0204-90
  1. ;;9002226.02101,"1828,47463-0204-90 ",.02)
  1. ;;47463-0204-90
  1. ;;9002226.02101,"1828,47463-0393-00 ",.01)
  1. ;;47463-0393-00
  1. ;;9002226.02101,"1828,47463-0393-00 ",.02)
  1. ;;47463-0393-00
  1. ;;9002226.02101,"1828,47463-0393-15 ",.01)
  1. ;;47463-0393-15
  1. ;;9002226.02101,"1828,47463-0393-15 ",.02)
  1. ;;47463-0393-15
  1. ;;9002226.02101,"1828,47463-0393-71 ",.01)
  1. ;;47463-0393-71
  1. ;;9002226.02101,"1828,47463-0393-71 ",.02)
  1. ;;47463-0393-71
  1. ;;9002226.02101,"1828,47463-0393-73 ",.01)
  1. ;;47463-0393-73
  1. ;;9002226.02101,"1828,47463-0393-73 ",.02)
  1. ;;47463-0393-73
  1. ;;9002226.02101,"1828,47463-0404-60 ",.01)
  1. ;;47463-0404-60
  1. ;;9002226.02101,"1828,47463-0404-60 ",.02)
  1. ;;47463-0404-60
  1. ;;9002226.02101,"1828,47463-0441-90 ",.01)
  1. ;;47463-0441-90
  1. ;;9002226.02101,"1828,47463-0441-90 ",.02)
  1. ;;47463-0441-90
  1. ;;9002226.02101,"1828,47463-0789-28 ",.01)
  1. ;;47463-0789-28
  1. ;;9002226.02101,"1828,47463-0789-28 ",.02)
  1. ;;47463-0789-28
  1. ;;9002226.02101,"1828,47463-0789-30 ",.01)
  1. ;;47463-0789-30
  1. ;;9002226.02101,"1828,47463-0789-30 ",.02)
  1. ;;47463-0789-30
  1. ;;9002226.02101,"1828,47463-0790-30 ",.01)
  1. ;;47463-0790-30
  1. ;;9002226.02101,"1828,47463-0790-30 ",.02)
  1. ;;47463-0790-30
  1. ;;9002226.02101,"1828,47463-0790-60 ",.01)
  1. ;;47463-0790-60
  1. ;;9002226.02101,"1828,47463-0790-60 ",.02)
  1. ;;47463-0790-60
  1. ;;9002226.02101,"1828,47463-0852-60 ",.01)
  1. ;;47463-0852-60
  1. ;;9002226.02101,"1828,47463-0852-60 ",.02)
  1. ;;47463-0852-60
  1. ;;9002226.02101,"1828,49884-0110-52 ",.01)
  1. ;;49884-0110-52
  1. ;;9002226.02101,"1828,49884-0110-52 ",.02)
  1. ;;49884-0110-52
  1. ;;9002226.02101,"1828,49884-0110-74 ",.01)
  1. ;;49884-0110-74
  1. ;;9002226.02101,"1828,49884-0110-74 ",.02)
  1. ;;49884-0110-74
  1. ;;9002226.02101,"1828,49884-0111-52 ",.01)
  1. ;;49884-0111-52
  1. ;;9002226.02101,"1828,49884-0111-52 ",.02)
  1. ;;49884-0111-52
  1. ;;9002226.02101,"1828,49884-0111-74 ",.01)
  1. ;;49884-0111-74
  1. ;;9002226.02101,"1828,49884-0111-74 ",.02)
  1. ;;49884-0111-74
  1. ;;9002226.02101,"1828,49884-0213-52 ",.01)
  1. ;;49884-0213-52
  1. ;;9002226.02101,"1828,49884-0213-52 ",.02)
  1. ;;49884-0213-52
  1. ;;9002226.02101,"1828,49884-0213-74 ",.01)
  1. ;;49884-0213-74
  1. ;;9002226.02101,"1828,49884-0213-74 ",.02)
  1. ;;49884-0213-74
  1. ;;9002226.02101,"1828,49884-0214-52 ",.01)
  1. ;;49884-0214-52
  1. ;;9002226.02101,"1828,49884-0214-52 ",.02)
  1. ;;49884-0214-52
  1. ;;9002226.02101,"1828,49884-0214-74 ",.01)
  1. ;;49884-0214-74
  1. ;;9002226.02101,"1828,49884-0214-74 ",.02)
  1. ;;49884-0214-74
  1. ;;9002226.02101,"1828,49884-0306-02 ",.01)
  1. ;;49884-0306-02
  1. ;;9002226.02101,"1828,49884-0306-02 ",.02)
  1. ;;49884-0306-02
  1. ;;9002226.02101,"1828,49884-0306-52 ",.01)
  1. ;;49884-0306-52
  1. ;;9002226.02101,"1828,49884-0306-52 ",.02)
  1. ;;49884-0306-52
  1. ;;9002226.02101,"1828,49884-0307-02 ",.01)
  1. ;;49884-0307-02
  1. ;;9002226.02101,"1828,49884-0307-02 ",.02)
  1. ;;49884-0307-02
  1. ;;9002226.02101,"1828,49884-0307-52 ",.01)
  1. ;;49884-0307-52
  1. ;;9002226.02101,"1828,49884-0307-52 ",.02)
  1. ;;49884-0307-52
  1. ;;9002226.02101,"1828,49884-0308-02 ",.01)
  1. ;;49884-0308-02
  1. ;;9002226.02101,"1828,49884-0308-02 ",.02)
  1. ;;49884-0308-02
  1. ;;9002226.02101,"1828,49884-0308-52 ",.01)
  1. ;;49884-0308-52
  1. ;;9002226.02101,"1828,49884-0308-52 ",.02)
  1. ;;49884-0308-52
  1. ;;9002226.02101,"1828,49884-0309-02 ",.01)
  1. ;;49884-0309-02
  1. ;;9002226.02101,"1828,49884-0309-02 ",.02)
  1. ;;49884-0309-02
  1. ;;9002226.02101,"1828,49884-0309-52 ",.01)
  1. ;;49884-0309-52
  1. ;;9002226.02101,"1828,49884-0309-52 ",.02)
  1. ;;49884-0309-52
  1. ;;9002226.02101,"1828,49884-0310-02 ",.01)
  1. ;;49884-0310-02
  1. ;;9002226.02101,"1828,49884-0310-02 ",.02)
  1. ;;49884-0310-02
  1. ;;9002226.02101,"1828,49884-0310-52 ",.01)
  1. ;;49884-0310-52
  1. ;;9002226.02101,"1828,49884-0310-52 ",.02)
  1. ;;49884-0310-52
  1. ;;9002226.02101,"1828,49999-0018-02 ",.01)
  1. ;;49999-0018-02
  1. ;;9002226.02101,"1828,49999-0018-02 ",.02)
  1. ;;49999-0018-02
  1. ;;9002226.02101,"1828,49999-0018-03 ",.01)
  1. ;;49999-0018-03
  1. ;;9002226.02101,"1828,49999-0018-03 ",.02)
  1. ;;49999-0018-03
  1. ;;9002226.02101,"1828,49999-0018-05 ",.01)
  1. ;;49999-0018-05
  1. ;;9002226.02101,"1828,49999-0018-05 ",.02)
  1. ;;49999-0018-05