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

BGP82H20.m

Go to the documentation of this file.
  1. BGP82H20 ; 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,"1218,54569-6315-00 ",.01)
  1. ;;54569-6315-00
  1. ;;9002226.02101,"1218,54569-6315-00 ",.02)
  1. ;;54569-6315-00
  1. ;;9002226.02101,"1218,54569-6315-01 ",.01)
  1. ;;54569-6315-01
  1. ;;9002226.02101,"1218,54569-6315-01 ",.02)
  1. ;;54569-6315-01
  1. ;;9002226.02101,"1218,54569-6342-00 ",.01)
  1. ;;54569-6342-00
  1. ;;9002226.02101,"1218,54569-6342-00 ",.02)
  1. ;;54569-6342-00
  1. ;;9002226.02101,"1218,54569-6342-01 ",.01)
  1. ;;54569-6342-01
  1. ;;9002226.02101,"1218,54569-6342-01 ",.02)
  1. ;;54569-6342-01
  1. ;;9002226.02101,"1218,54569-9009-00 ",.01)
  1. ;;54569-9009-00
  1. ;;9002226.02101,"1218,54569-9009-00 ",.02)
  1. ;;54569-9009-00
  1. ;;9002226.02101,"1218,54569-9047-00 ",.01)
  1. ;;54569-9047-00
  1. ;;9002226.02101,"1218,54569-9047-00 ",.02)
  1. ;;54569-9047-00
  1. ;;9002226.02101,"1218,54569-9070-00 ",.01)
  1. ;;54569-9070-00
  1. ;;9002226.02101,"1218,54569-9070-00 ",.02)
  1. ;;54569-9070-00
  1. ;;9002226.02101,"1218,54569-9075-00 ",.01)
  1. ;;54569-9075-00
  1. ;;9002226.02101,"1218,54569-9075-00 ",.02)
  1. ;;54569-9075-00
  1. ;;9002226.02101,"1218,54868-0052-00 ",.01)
  1. ;;54868-0052-00
  1. ;;9002226.02101,"1218,54868-0052-00 ",.02)
  1. ;;54868-0052-00
  1. ;;9002226.02101,"1218,54868-0052-01 ",.01)
  1. ;;54868-0052-01
  1. ;;9002226.02101,"1218,54868-0052-01 ",.02)
  1. ;;54868-0052-01
  1. ;;9002226.02101,"1218,54868-0052-02 ",.01)
  1. ;;54868-0052-02
  1. ;;9002226.02101,"1218,54868-0052-02 ",.02)
  1. ;;54868-0052-02
  1. ;;9002226.02101,"1218,54868-0053-02 ",.01)
  1. ;;54868-0053-02
  1. ;;9002226.02101,"1218,54868-0053-02 ",.02)
  1. ;;54868-0053-02
  1. ;;9002226.02101,"1218,54868-0053-03 ",.01)
  1. ;;54868-0053-03
  1. ;;9002226.02101,"1218,54868-0053-03 ",.02)
  1. ;;54868-0053-03
  1. ;;9002226.02101,"1218,54868-0053-07 ",.01)
  1. ;;54868-0053-07
  1. ;;9002226.02101,"1218,54868-0053-07 ",.02)
  1. ;;54868-0053-07
  1. ;;9002226.02101,"1218,54868-0106-00 ",.01)
  1. ;;54868-0106-00
  1. ;;9002226.02101,"1218,54868-0106-00 ",.02)
  1. ;;54868-0106-00
  1. ;;9002226.02101,"1218,54868-0106-01 ",.01)
  1. ;;54868-0106-01
  1. ;;9002226.02101,"1218,54868-0106-01 ",.02)
  1. ;;54868-0106-01
  1. ;;9002226.02101,"1218,54868-0293-00 ",.01)
  1. ;;54868-0293-00
  1. ;;9002226.02101,"1218,54868-0293-00 ",.02)
  1. ;;54868-0293-00
  1. ;;9002226.02101,"1218,54868-0293-01 ",.01)
  1. ;;54868-0293-01
  1. ;;9002226.02101,"1218,54868-0293-01 ",.02)
  1. ;;54868-0293-01
  1. ;;9002226.02101,"1218,54868-0293-05 ",.01)
  1. ;;54868-0293-05
  1. ;;9002226.02101,"1218,54868-0293-05 ",.02)
  1. ;;54868-0293-05
  1. ;;9002226.02101,"1218,54868-0293-06 ",.01)
  1. ;;54868-0293-06
  1. ;;9002226.02101,"1218,54868-0293-06 ",.02)
  1. ;;54868-0293-06
  1. ;;9002226.02101,"1218,54868-0321-00 ",.01)
  1. ;;54868-0321-00
  1. ;;9002226.02101,"1218,54868-0321-00 ",.02)
  1. ;;54868-0321-00
  1. ;;9002226.02101,"1218,54868-0674-00 ",.01)
  1. ;;54868-0674-00
  1. ;;9002226.02101,"1218,54868-0674-00 ",.02)
  1. ;;54868-0674-00
  1. ;;9002226.02101,"1218,54868-0674-01 ",.01)
  1. ;;54868-0674-01
  1. ;;9002226.02101,"1218,54868-0674-01 ",.02)
  1. ;;54868-0674-01
  1. ;;9002226.02101,"1218,54868-0680-00 ",.01)
  1. ;;54868-0680-00
  1. ;;9002226.02101,"1218,54868-0680-00 ",.02)
  1. ;;54868-0680-00
  1. ;;9002226.02101,"1218,54868-0680-01 ",.01)
  1. ;;54868-0680-01
  1. ;;9002226.02101,"1218,54868-0680-01 ",.02)
  1. ;;54868-0680-01
  1. ;;9002226.02101,"1218,54868-0685-01 ",.01)
  1. ;;54868-0685-01
  1. ;;9002226.02101,"1218,54868-0685-01 ",.02)
  1. ;;54868-0685-01
  1. ;;9002226.02101,"1218,54868-0696-01 ",.01)
  1. ;;54868-0696-01
  1. ;;9002226.02101,"1218,54868-0696-01 ",.02)
  1. ;;54868-0696-01
  1. ;;9002226.02101,"1218,54868-0696-02 ",.01)
  1. ;;54868-0696-02
  1. ;;9002226.02101,"1218,54868-0696-02 ",.02)
  1. ;;54868-0696-02
  1. ;;9002226.02101,"1218,54868-0696-03 ",.01)
  1. ;;54868-0696-03
  1. ;;9002226.02101,"1218,54868-0696-03 ",.02)
  1. ;;54868-0696-03
  1. ;;9002226.02101,"1218,54868-0701-00 ",.01)
  1. ;;54868-0701-00
  1. ;;9002226.02101,"1218,54868-0701-00 ",.02)
  1. ;;54868-0701-00
  1. ;;9002226.02101,"1218,54868-0854-00 ",.01)
  1. ;;54868-0854-00
  1. ;;9002226.02101,"1218,54868-0854-00 ",.02)
  1. ;;54868-0854-00
  1. ;;9002226.02101,"1218,54868-0854-01 ",.01)
  1. ;;54868-0854-01
  1. ;;9002226.02101,"1218,54868-0854-01 ",.02)
  1. ;;54868-0854-01
  1. ;;9002226.02101,"1218,54868-1063-00 ",.01)
  1. ;;54868-1063-00
  1. ;;9002226.02101,"1218,54868-1063-00 ",.02)
  1. ;;54868-1063-00
  1. ;;9002226.02101,"1218,54868-1063-01 ",.01)
  1. ;;54868-1063-01
  1. ;;9002226.02101,"1218,54868-1063-01 ",.02)
  1. ;;54868-1063-01
  1. ;;9002226.02101,"1218,54868-1063-02 ",.01)
  1. ;;54868-1063-02
  1. ;;9002226.02101,"1218,54868-1063-02 ",.02)
  1. ;;54868-1063-02
  1. ;;9002226.02101,"1218,54868-1441-00 ",.01)
  1. ;;54868-1441-00
  1. ;;9002226.02101,"1218,54868-1441-00 ",.02)
  1. ;;54868-1441-00
  1. ;;9002226.02101,"1218,54868-1441-01 ",.01)
  1. ;;54868-1441-01
  1. ;;9002226.02101,"1218,54868-1441-01 ",.02)
  1. ;;54868-1441-01
  1. ;;9002226.02101,"1218,54868-1442-00 ",.01)
  1. ;;54868-1442-00
  1. ;;9002226.02101,"1218,54868-1442-00 ",.02)
  1. ;;54868-1442-00
  1. ;;9002226.02101,"1218,54868-1442-01 ",.01)
  1. ;;54868-1442-01
  1. ;;9002226.02101,"1218,54868-1442-01 ",.02)
  1. ;;54868-1442-01
  1. ;;9002226.02101,"1218,54868-1442-02 ",.01)
  1. ;;54868-1442-02
  1. ;;9002226.02101,"1218,54868-1442-02 ",.02)
  1. ;;54868-1442-02
  1. ;;9002226.02101,"1218,54868-1517-00 ",.01)
  1. ;;54868-1517-00
  1. ;;9002226.02101,"1218,54868-1517-00 ",.02)
  1. ;;54868-1517-00
  1. ;;9002226.02101,"1218,54868-1517-02 ",.01)
  1. ;;54868-1517-02
  1. ;;9002226.02101,"1218,54868-1517-02 ",.02)
  1. ;;54868-1517-02
  1. ;;9002226.02101,"1218,54868-1517-03 ",.01)
  1. ;;54868-1517-03
  1. ;;9002226.02101,"1218,54868-1517-03 ",.02)
  1. ;;54868-1517-03
  1. ;;9002226.02101,"1218,54868-1518-00 ",.01)
  1. ;;54868-1518-00
  1. ;;9002226.02101,"1218,54868-1518-00 ",.02)
  1. ;;54868-1518-00
  1. ;;9002226.02101,"1218,54868-1518-01 ",.01)
  1. ;;54868-1518-01
  1. ;;9002226.02101,"1218,54868-1518-01 ",.02)
  1. ;;54868-1518-01
  1. ;;9002226.02101,"1218,54868-1518-02 ",.01)
  1. ;;54868-1518-02
  1. ;;9002226.02101,"1218,54868-1518-02 ",.02)
  1. ;;54868-1518-02
  1. ;;9002226.02101,"1218,54868-1518-03 ",.01)
  1. ;;54868-1518-03
  1. ;;9002226.02101,"1218,54868-1518-03 ",.02)
  1. ;;54868-1518-03
  1. ;;9002226.02101,"1218,54868-1871-00 ",.01)
  1. ;;54868-1871-00
  1. ;;9002226.02101,"1218,54868-1871-00 ",.02)
  1. ;;54868-1871-00
  1. ;;9002226.02101,"1218,54868-1871-01 ",.01)
  1. ;;54868-1871-01
  1. ;;9002226.02101,"1218,54868-1871-01 ",.02)
  1. ;;54868-1871-01
  1. ;;9002226.02101,"1218,54868-1871-02 ",.01)
  1. ;;54868-1871-02
  1. ;;9002226.02101,"1218,54868-1871-02 ",.02)
  1. ;;54868-1871-02
  1. ;;9002226.02101,"1218,54868-1871-04 ",.01)
  1. ;;54868-1871-04
  1. ;;9002226.02101,"1218,54868-1871-04 ",.02)
  1. ;;54868-1871-04
  1. ;;9002226.02101,"1218,54868-1971-00 ",.01)
  1. ;;54868-1971-00
  1. ;;9002226.02101,"1218,54868-1971-00 ",.02)
  1. ;;54868-1971-00
  1. ;;9002226.02101,"1218,54868-1971-01 ",.01)
  1. ;;54868-1971-01
  1. ;;9002226.02101,"1218,54868-1971-01 ",.02)
  1. ;;54868-1971-01
  1. ;;9002226.02101,"1218,54868-1971-03 ",.01)
  1. ;;54868-1971-03
  1. ;;9002226.02101,"1218,54868-1971-03 ",.02)
  1. ;;54868-1971-03
  1. ;;9002226.02101,"1218,54868-1971-04 ",.01)
  1. ;;54868-1971-04
  1. ;;9002226.02101,"1218,54868-1971-04 ",.02)
  1. ;;54868-1971-04
  1. ;;9002226.02101,"1218,54868-1980-00 ",.01)
  1. ;;54868-1980-00
  1. ;;9002226.02101,"1218,54868-1980-00 ",.02)
  1. ;;54868-1980-00
  1. ;;9002226.02101,"1218,54868-1980-01 ",.01)
  1. ;;54868-1980-01
  1. ;;9002226.02101,"1218,54868-1980-01 ",.02)
  1. ;;54868-1980-01
  1. ;;9002226.02101,"1218,54868-2349-01 ",.01)
  1. ;;54868-2349-01
  1. ;;9002226.02101,"1218,54868-2349-01 ",.02)
  1. ;;54868-2349-01
  1. ;;9002226.02101,"1218,54868-2349-02 ",.01)
  1. ;;54868-2349-02
  1. ;;9002226.02101,"1218,54868-2349-02 ",.02)
  1. ;;54868-2349-02
  1. ;;9002226.02101,"1218,54868-2349-03 ",.01)
  1. ;;54868-2349-03
  1. ;;9002226.02101,"1218,54868-2349-03 ",.02)
  1. ;;54868-2349-03
  1. ;;9002226.02101,"1218,54868-2349-04 ",.01)
  1. ;;54868-2349-04
  1. ;;9002226.02101,"1218,54868-2349-04 ",.02)
  1. ;;54868-2349-04
  1. ;;9002226.02101,"1218,54868-2349-05 ",.01)
  1. ;;54868-2349-05
  1. ;;9002226.02101,"1218,54868-2349-05 ",.02)
  1. ;;54868-2349-05
  1. ;;9002226.02101,"1218,54868-2572-00 ",.01)
  1. ;;54868-2572-00
  1. ;;9002226.02101,"1218,54868-2572-00 ",.02)
  1. ;;54868-2572-00
  1. ;;9002226.02101,"1218,54868-2572-01 ",.01)
  1. ;;54868-2572-01
  1. ;;9002226.02101,"1218,54868-2572-01 ",.02)
  1. ;;54868-2572-01
  1. ;;9002226.02101,"1218,54868-2572-02 ",.01)
  1. ;;54868-2572-02
  1. ;;9002226.02101,"1218,54868-2572-02 ",.02)
  1. ;;54868-2572-02
  1. ;;9002226.02101,"1218,54868-2683-00 ",.01)
  1. ;;54868-2683-00
  1. ;;9002226.02101,"1218,54868-2683-00 ",.02)
  1. ;;54868-2683-00
  1. ;;9002226.02101,"1218,54868-2683-01 ",.01)
  1. ;;54868-2683-01
  1. ;;9002226.02101,"1218,54868-2683-01 ",.02)
  1. ;;54868-2683-01
  1. ;;9002226.02101,"1218,54868-2683-02 ",.01)
  1. ;;54868-2683-02
  1. ;;9002226.02101,"1218,54868-2683-02 ",.02)
  1. ;;54868-2683-02
  1. ;;9002226.02101,"1218,54868-2864-00 ",.01)
  1. ;;54868-2864-00
  1. ;;9002226.02101,"1218,54868-2864-00 ",.02)
  1. ;;54868-2864-00
  1. ;;9002226.02101,"1218,54868-2864-01 ",.01)
  1. ;;54868-2864-01
  1. ;;9002226.02101,"1218,54868-2864-01 ",.02)
  1. ;;54868-2864-01
  1. ;;9002226.02101,"1218,54868-2989-00 ",.01)
  1. ;;54868-2989-00
  1. ;;9002226.02101,"1218,54868-2989-00 ",.02)
  1. ;;54868-2989-00
  1. ;;9002226.02101,"1218,54868-2989-02 ",.01)
  1. ;;54868-2989-02
  1. ;;9002226.02101,"1218,54868-2989-02 ",.02)
  1. ;;54868-2989-02
  1. ;;9002226.02101,"1218,54868-2989-03 ",.01)
  1. ;;54868-2989-03
  1. ;;9002226.02101,"1218,54868-2989-03 ",.02)
  1. ;;54868-2989-03
  1. ;;9002226.02101,"1218,54868-2989-04 ",.01)
  1. ;;54868-2989-04
  1. ;;9002226.02101,"1218,54868-2989-04 ",.02)
  1. ;;54868-2989-04
  1. ;;9002226.02101,"1218,54868-2989-05 ",.01)
  1. ;;54868-2989-05
  1. ;;9002226.02101,"1218,54868-2989-05 ",.02)
  1. ;;54868-2989-05
  1. ;;9002226.02101,"1218,54868-2989-06 ",.01)
  1. ;;54868-2989-06
  1. ;;9002226.02101,"1218,54868-2989-06 ",.02)
  1. ;;54868-2989-06
  1. ;;9002226.02101,"1218,54868-2989-07 ",.01)
  1. ;;54868-2989-07
  1. ;;9002226.02101,"1218,54868-2989-07 ",.02)
  1. ;;54868-2989-07
  1. ;;9002226.02101,"1218,54868-2990-00 ",.01)
  1. ;;54868-2990-00
  1. ;;9002226.02101,"1218,54868-2990-00 ",.02)
  1. ;;54868-2990-00
  1. ;;9002226.02101,"1218,54868-2990-02 ",.01)
  1. ;;54868-2990-02
  1. ;;9002226.02101,"1218,54868-2990-02 ",.02)
  1. ;;54868-2990-02
  1. ;;9002226.02101,"1218,54868-2990-03 ",.01)
  1. ;;54868-2990-03
  1. ;;9002226.02101,"1218,54868-2990-03 ",.02)
  1. ;;54868-2990-03
  1. ;;9002226.02101,"1218,54868-2990-04 ",.01)
  1. ;;54868-2990-04
  1. ;;9002226.02101,"1218,54868-2990-04 ",.02)
  1. ;;54868-2990-04
  1. ;;9002226.02101,"1218,54868-2990-05 ",.01)
  1. ;;54868-2990-05
  1. ;;9002226.02101,"1218,54868-2990-05 ",.02)
  1. ;;54868-2990-05
  1. ;;9002226.02101,"1218,54868-3062-00 ",.01)
  1. ;;54868-3062-00
  1. ;;9002226.02101,"1218,54868-3062-00 ",.02)
  1. ;;54868-3062-00
  1. ;;9002226.02101,"1218,54868-3062-01 ",.01)
  1. ;;54868-3062-01
  1. ;;9002226.02101,"1218,54868-3062-01 ",.02)
  1. ;;54868-3062-01
  1. ;;9002226.02101,"1218,54868-3062-02 ",.01)
  1. ;;54868-3062-02
  1. ;;9002226.02101,"1218,54868-3062-02 ",.02)
  1. ;;54868-3062-02
  1. ;;9002226.02101,"1218,54868-3062-03 ",.01)
  1. ;;54868-3062-03
  1. ;;9002226.02101,"1218,54868-3062-03 ",.02)
  1. ;;54868-3062-03
  1. ;;9002226.02101,"1218,54868-3064-00 ",.01)
  1. ;;54868-3064-00
  1. ;;9002226.02101,"1218,54868-3064-00 ",.02)
  1. ;;54868-3064-00
  1. ;;9002226.02101,"1218,54868-3064-01 ",.01)
  1. ;;54868-3064-01
  1. ;;9002226.02101,"1218,54868-3064-01 ",.02)
  1. ;;54868-3064-01
  1. ;;9002226.02101,"1218,54868-3257-01 ",.01)
  1. ;;54868-3257-01
  1. ;;9002226.02101,"1218,54868-3257-01 ",.02)
  1. ;;54868-3257-01
  1. ;;9002226.02101,"1218,54868-3257-02 ",.01)
  1. ;;54868-3257-02
  1. ;;9002226.02101,"1218,54868-3257-02 ",.02)
  1. ;;54868-3257-02
  1. ;;9002226.02101,"1218,54868-3257-03 ",.01)
  1. ;;54868-3257-03
  1. ;;9002226.02101,"1218,54868-3257-03 ",.02)
  1. ;;54868-3257-03
  1. ;;9002226.02101,"1218,54868-3257-04 ",.01)
  1. ;;54868-3257-04
  1. ;;9002226.02101,"1218,54868-3257-04 ",.02)
  1. ;;54868-3257-04
  1. ;;9002226.02101,"1218,54868-3257-05 ",.01)
  1. ;;54868-3257-05
  1. ;;9002226.02101,"1218,54868-3257-05 ",.02)
  1. ;;54868-3257-05
  1. ;;9002226.02101,"1218,54868-3257-06 ",.01)
  1. ;;54868-3257-06
  1. ;;9002226.02101,"1218,54868-3257-06 ",.02)
  1. ;;54868-3257-06
  1. ;;9002226.02101,"1218,54868-3587-00 ",.01)
  1. ;;54868-3587-00