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

BGP82P19.m

Go to the documentation of this file.
  1. BGP82P19 ; 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,"1224,54569-5951-00 ",.02)
  1. ;;54569-5951-00
  1. ;;9002226.02101,"1224,54569-6054-01 ",.01)
  1. ;;54569-6054-01
  1. ;;9002226.02101,"1224,54569-6054-01 ",.02)
  1. ;;54569-6054-01
  1. ;;9002226.02101,"1224,54569-6099-00 ",.01)
  1. ;;54569-6099-00
  1. ;;9002226.02101,"1224,54569-6099-00 ",.02)
  1. ;;54569-6099-00
  1. ;;9002226.02101,"1224,54569-6113-00 ",.01)
  1. ;;54569-6113-00
  1. ;;9002226.02101,"1224,54569-6113-00 ",.02)
  1. ;;54569-6113-00
  1. ;;9002226.02101,"1224,54569-6113-01 ",.01)
  1. ;;54569-6113-01
  1. ;;9002226.02101,"1224,54569-6113-01 ",.02)
  1. ;;54569-6113-01
  1. ;;9002226.02101,"1224,54569-6282-00 ",.01)
  1. ;;54569-6282-00
  1. ;;9002226.02101,"1224,54569-6282-00 ",.02)
  1. ;;54569-6282-00
  1. ;;9002226.02101,"1224,54569-6282-01 ",.01)
  1. ;;54569-6282-01
  1. ;;9002226.02101,"1224,54569-6282-01 ",.02)
  1. ;;54569-6282-01
  1. ;;9002226.02101,"1224,54569-6283-00 ",.01)
  1. ;;54569-6283-00
  1. ;;9002226.02101,"1224,54569-6283-00 ",.02)
  1. ;;54569-6283-00
  1. ;;9002226.02101,"1224,54569-6283-01 ",.01)
  1. ;;54569-6283-01
  1. ;;9002226.02101,"1224,54569-6283-01 ",.02)
  1. ;;54569-6283-01
  1. ;;9002226.02101,"1224,54569-6284-00 ",.01)
  1. ;;54569-6284-00
  1. ;;9002226.02101,"1224,54569-6284-00 ",.02)
  1. ;;54569-6284-00
  1. ;;9002226.02101,"1224,54569-6284-01 ",.01)
  1. ;;54569-6284-01
  1. ;;9002226.02101,"1224,54569-6284-01 ",.02)
  1. ;;54569-6284-01
  1. ;;9002226.02101,"1224,54569-6285-00 ",.01)
  1. ;;54569-6285-00
  1. ;;9002226.02101,"1224,54569-6285-00 ",.02)
  1. ;;54569-6285-00
  1. ;;9002226.02101,"1224,54569-6285-01 ",.01)
  1. ;;54569-6285-01
  1. ;;9002226.02101,"1224,54569-6285-01 ",.02)
  1. ;;54569-6285-01
  1. ;;9002226.02101,"1224,54569-6302-00 ",.01)
  1. ;;54569-6302-00
  1. ;;9002226.02101,"1224,54569-6302-00 ",.02)
  1. ;;54569-6302-00
  1. ;;9002226.02101,"1224,54569-6302-01 ",.01)
  1. ;;54569-6302-01
  1. ;;9002226.02101,"1224,54569-6302-01 ",.02)
  1. ;;54569-6302-01
  1. ;;9002226.02101,"1224,54569-6428-00 ",.01)
  1. ;;54569-6428-00
  1. ;;9002226.02101,"1224,54569-6428-00 ",.02)
  1. ;;54569-6428-00
  1. ;;9002226.02101,"1224,54569-6428-01 ",.01)
  1. ;;54569-6428-01
  1. ;;9002226.02101,"1224,54569-6428-01 ",.02)
  1. ;;54569-6428-01
  1. ;;9002226.02101,"1224,54569-6450-00 ",.01)
  1. ;;54569-6450-00
  1. ;;9002226.02101,"1224,54569-6450-00 ",.02)
  1. ;;54569-6450-00
  1. ;;9002226.02101,"1224,54569-6510-00 ",.01)
  1. ;;54569-6510-00
  1. ;;9002226.02101,"1224,54569-6510-00 ",.02)
  1. ;;54569-6510-00
  1. ;;9002226.02101,"1224,54569-6510-01 ",.01)
  1. ;;54569-6510-01
  1. ;;9002226.02101,"1224,54569-6510-01 ",.02)
  1. ;;54569-6510-01
  1. ;;9002226.02101,"1224,54569-6673-00 ",.01)
  1. ;;54569-6673-00
  1. ;;9002226.02101,"1224,54569-6673-00 ",.02)
  1. ;;54569-6673-00
  1. ;;9002226.02101,"1224,54569-6673-01 ",.01)
  1. ;;54569-6673-01
  1. ;;9002226.02101,"1224,54569-6673-01 ",.02)
  1. ;;54569-6673-01
  1. ;;9002226.02101,"1224,54569-6674-00 ",.01)
  1. ;;54569-6674-00
  1. ;;9002226.02101,"1224,54569-6674-00 ",.02)
  1. ;;54569-6674-00
  1. ;;9002226.02101,"1224,54569-6674-01 ",.01)
  1. ;;54569-6674-01
  1. ;;9002226.02101,"1224,54569-6674-01 ",.02)
  1. ;;54569-6674-01
  1. ;;9002226.02101,"1224,54569-6675-00 ",.01)
  1. ;;54569-6675-00
  1. ;;9002226.02101,"1224,54569-6675-00 ",.02)
  1. ;;54569-6675-00
  1. ;;9002226.02101,"1224,54569-6675-01 ",.01)
  1. ;;54569-6675-01
  1. ;;9002226.02101,"1224,54569-6675-01 ",.02)
  1. ;;54569-6675-01
  1. ;;9002226.02101,"1224,54569-6676-00 ",.01)
  1. ;;54569-6676-00
  1. ;;9002226.02101,"1224,54569-6676-00 ",.02)
  1. ;;54569-6676-00
  1. ;;9002226.02101,"1224,54569-6676-01 ",.01)
  1. ;;54569-6676-01
  1. ;;9002226.02101,"1224,54569-6676-01 ",.02)
  1. ;;54569-6676-01
  1. ;;9002226.02101,"1224,54569-8866-00 ",.01)
  1. ;;54569-8866-00
  1. ;;9002226.02101,"1224,54569-8866-00 ",.02)
  1. ;;54569-8866-00
  1. ;;9002226.02101,"1224,54868-1087-00 ",.01)
  1. ;;54868-1087-00
  1. ;;9002226.02101,"1224,54868-1087-00 ",.02)
  1. ;;54868-1087-00
  1. ;;9002226.02101,"1224,54868-1087-01 ",.01)
  1. ;;54868-1087-01
  1. ;;9002226.02101,"1224,54868-1087-01 ",.02)
  1. ;;54868-1087-01
  1. ;;9002226.02101,"1224,54868-1207-00 ",.01)
  1. ;;54868-1207-00
  1. ;;9002226.02101,"1224,54868-1207-00 ",.02)
  1. ;;54868-1207-00
  1. ;;9002226.02101,"1224,54868-1207-01 ",.01)
  1. ;;54868-1207-01
  1. ;;9002226.02101,"1224,54868-1207-01 ",.02)
  1. ;;54868-1207-01
  1. ;;9002226.02101,"1224,54868-1890-00 ",.01)
  1. ;;54868-1890-00
  1. ;;9002226.02101,"1224,54868-1890-00 ",.02)
  1. ;;54868-1890-00
  1. ;;9002226.02101,"1224,54868-1890-01 ",.01)
  1. ;;54868-1890-01
  1. ;;9002226.02101,"1224,54868-1890-01 ",.02)
  1. ;;54868-1890-01
  1. ;;9002226.02101,"1224,54868-2288-00 ",.01)
  1. ;;54868-2288-00
  1. ;;9002226.02101,"1224,54868-2288-00 ",.02)
  1. ;;54868-2288-00
  1. ;;9002226.02101,"1224,54868-2288-01 ",.01)
  1. ;;54868-2288-01
  1. ;;9002226.02101,"1224,54868-2288-01 ",.02)
  1. ;;54868-2288-01
  1. ;;9002226.02101,"1224,54868-2288-02 ",.01)
  1. ;;54868-2288-02
  1. ;;9002226.02101,"1224,54868-2288-02 ",.02)
  1. ;;54868-2288-02
  1. ;;9002226.02101,"1224,54868-2639-00 ",.01)
  1. ;;54868-2639-00
  1. ;;9002226.02101,"1224,54868-2639-00 ",.02)
  1. ;;54868-2639-00
  1. ;;9002226.02101,"1224,54868-2639-01 ",.01)
  1. ;;54868-2639-01
  1. ;;9002226.02101,"1224,54868-2639-01 ",.02)
  1. ;;54868-2639-01
  1. ;;9002226.02101,"1224,54868-3104-00 ",.01)
  1. ;;54868-3104-00
  1. ;;9002226.02101,"1224,54868-3104-00 ",.02)
  1. ;;54868-3104-00
  1. ;;9002226.02101,"1224,54868-3104-01 ",.01)
  1. ;;54868-3104-01
  1. ;;9002226.02101,"1224,54868-3104-01 ",.02)
  1. ;;54868-3104-01
  1. ;;9002226.02101,"1224,54868-3270-00 ",.01)
  1. ;;54868-3270-00
  1. ;;9002226.02101,"1224,54868-3270-00 ",.02)
  1. ;;54868-3270-00
  1. ;;9002226.02101,"1224,54868-3270-01 ",.01)
  1. ;;54868-3270-01
  1. ;;9002226.02101,"1224,54868-3270-01 ",.02)
  1. ;;54868-3270-01
  1. ;;9002226.02101,"1224,54868-3270-02 ",.01)
  1. ;;54868-3270-02
  1. ;;9002226.02101,"1224,54868-3270-02 ",.02)
  1. ;;54868-3270-02
  1. ;;9002226.02101,"1224,54868-3287-00 ",.01)
  1. ;;54868-3287-00
  1. ;;9002226.02101,"1224,54868-3287-00 ",.02)
  1. ;;54868-3287-00
  1. ;;9002226.02101,"1224,54868-3287-01 ",.01)
  1. ;;54868-3287-01
  1. ;;9002226.02101,"1224,54868-3287-01 ",.02)
  1. ;;54868-3287-01
  1. ;;9002226.02101,"1224,54868-3329-00 ",.01)
  1. ;;54868-3329-00
  1. ;;9002226.02101,"1224,54868-3329-00 ",.02)
  1. ;;54868-3329-00
  1. ;;9002226.02101,"1224,54868-3934-00 ",.01)
  1. ;;54868-3934-00
  1. ;;9002226.02101,"1224,54868-3934-00 ",.02)
  1. ;;54868-3934-00
  1. ;;9002226.02101,"1224,54868-3934-01 ",.01)
  1. ;;54868-3934-01
  1. ;;9002226.02101,"1224,54868-3934-01 ",.02)
  1. ;;54868-3934-01
  1. ;;9002226.02101,"1224,54868-3934-02 ",.01)
  1. ;;54868-3934-02
  1. ;;9002226.02101,"1224,54868-3934-02 ",.02)
  1. ;;54868-3934-02
  1. ;;9002226.02101,"1224,54868-3934-03 ",.01)
  1. ;;54868-3934-03
  1. ;;9002226.02101,"1224,54868-3934-03 ",.02)
  1. ;;54868-3934-03
  1. ;;9002226.02101,"1224,54868-3934-04 ",.01)
  1. ;;54868-3934-04
  1. ;;9002226.02101,"1224,54868-3934-04 ",.02)
  1. ;;54868-3934-04
  1. ;;9002226.02101,"1224,54868-3946-00 ",.01)
  1. ;;54868-3946-00
  1. ;;9002226.02101,"1224,54868-3946-00 ",.02)
  1. ;;54868-3946-00
  1. ;;9002226.02101,"1224,54868-3946-01 ",.01)
  1. ;;54868-3946-01
  1. ;;9002226.02101,"1224,54868-3946-01 ",.02)
  1. ;;54868-3946-01
  1. ;;9002226.02101,"1224,54868-3946-02 ",.01)
  1. ;;54868-3946-02
  1. ;;9002226.02101,"1224,54868-3946-02 ",.02)
  1. ;;54868-3946-02
  1. ;;9002226.02101,"1224,54868-3946-03 ",.01)
  1. ;;54868-3946-03
  1. ;;9002226.02101,"1224,54868-3946-03 ",.02)
  1. ;;54868-3946-03
  1. ;;9002226.02101,"1224,54868-3946-04 ",.01)
  1. ;;54868-3946-04
  1. ;;9002226.02101,"1224,54868-3946-04 ",.02)
  1. ;;54868-3946-04
  1. ;;9002226.02101,"1224,54868-4157-00 ",.01)
  1. ;;54868-4157-00
  1. ;;9002226.02101,"1224,54868-4157-00 ",.02)
  1. ;;54868-4157-00
  1. ;;9002226.02101,"1224,54868-4157-01 ",.01)
  1. ;;54868-4157-01
  1. ;;9002226.02101,"1224,54868-4157-01 ",.02)
  1. ;;54868-4157-01
  1. ;;9002226.02101,"1224,54868-4157-02 ",.01)
  1. ;;54868-4157-02
  1. ;;9002226.02101,"1224,54868-4157-02 ",.02)
  1. ;;54868-4157-02
  1. ;;9002226.02101,"1224,54868-4181-00 ",.01)
  1. ;;54868-4181-00
  1. ;;9002226.02101,"1224,54868-4181-00 ",.02)
  1. ;;54868-4181-00
  1. ;;9002226.02101,"1224,54868-4181-01 ",.01)
  1. ;;54868-4181-01
  1. ;;9002226.02101,"1224,54868-4181-01 ",.02)
  1. ;;54868-4181-01
  1. ;;9002226.02101,"1224,54868-4224-00 ",.01)
  1. ;;54868-4224-00
  1. ;;9002226.02101,"1224,54868-4224-00 ",.02)
  1. ;;54868-4224-00
  1. ;;9002226.02101,"1224,54868-4224-01 ",.01)
  1. ;;54868-4224-01
  1. ;;9002226.02101,"1224,54868-4224-01 ",.02)
  1. ;;54868-4224-01
  1. ;;9002226.02101,"1224,54868-4229-00 ",.01)
  1. ;;54868-4229-00
  1. ;;9002226.02101,"1224,54868-4229-00 ",.02)
  1. ;;54868-4229-00
  1. ;;9002226.02101,"1224,54868-4229-01 ",.01)
  1. ;;54868-4229-01
  1. ;;9002226.02101,"1224,54868-4229-01 ",.02)
  1. ;;54868-4229-01
  1. ;;9002226.02101,"1224,54868-4229-02 ",.01)
  1. ;;54868-4229-02
  1. ;;9002226.02101,"1224,54868-4229-02 ",.02)
  1. ;;54868-4229-02
  1. ;;9002226.02101,"1224,54868-4229-03 ",.01)
  1. ;;54868-4229-03
  1. ;;9002226.02101,"1224,54868-4229-03 ",.02)
  1. ;;54868-4229-03
  1. ;;9002226.02101,"1224,54868-4585-00 ",.01)
  1. ;;54868-4585-00
  1. ;;9002226.02101,"1224,54868-4585-00 ",.02)
  1. ;;54868-4585-00
  1. ;;9002226.02101,"1224,54868-4585-01 ",.01)
  1. ;;54868-4585-01
  1. ;;9002226.02101,"1224,54868-4585-01 ",.02)
  1. ;;54868-4585-01
  1. ;;9002226.02101,"1224,54868-4585-02 ",.01)
  1. ;;54868-4585-02
  1. ;;9002226.02101,"1224,54868-4585-02 ",.02)
  1. ;;54868-4585-02
  1. ;;9002226.02101,"1224,54868-4585-03 ",.01)
  1. ;;54868-4585-03
  1. ;;9002226.02101,"1224,54868-4585-03 ",.02)
  1. ;;54868-4585-03
  1. ;;9002226.02101,"1224,54868-4593-00 ",.01)
  1. ;;54868-4593-00
  1. ;;9002226.02101,"1224,54868-4593-00 ",.02)
  1. ;;54868-4593-00
  1. ;;9002226.02101,"1224,54868-4593-01 ",.01)
  1. ;;54868-4593-01
  1. ;;9002226.02101,"1224,54868-4593-01 ",.02)
  1. ;;54868-4593-01
  1. ;;9002226.02101,"1224,54868-4593-02 ",.01)
  1. ;;54868-4593-02
  1. ;;9002226.02101,"1224,54868-4593-02 ",.02)
  1. ;;54868-4593-02
  1. ;;9002226.02101,"1224,54868-4601-00 ",.01)
  1. ;;54868-4601-00
  1. ;;9002226.02101,"1224,54868-4601-00 ",.02)
  1. ;;54868-4601-00
  1. ;;9002226.02101,"1224,54868-4634-00 ",.01)
  1. ;;54868-4634-00
  1. ;;9002226.02101,"1224,54868-4634-00 ",.02)
  1. ;;54868-4634-00
  1. ;;9002226.02101,"1224,54868-4774-00 ",.01)
  1. ;;54868-4774-00
  1. ;;9002226.02101,"1224,54868-4774-00 ",.02)
  1. ;;54868-4774-00
  1. ;;9002226.02101,"1224,54868-4774-01 ",.01)
  1. ;;54868-4774-01
  1. ;;9002226.02101,"1224,54868-4774-01 ",.02)
  1. ;;54868-4774-01
  1. ;;9002226.02101,"1224,54868-4774-02 ",.01)
  1. ;;54868-4774-02
  1. ;;9002226.02101,"1224,54868-4774-02 ",.02)
  1. ;;54868-4774-02
  1. ;;9002226.02101,"1224,54868-4774-03 ",.01)
  1. ;;54868-4774-03
  1. ;;9002226.02101,"1224,54868-4774-03 ",.02)
  1. ;;54868-4774-03
  1. ;;9002226.02101,"1224,54868-4807-00 ",.01)
  1. ;;54868-4807-00
  1. ;;9002226.02101,"1224,54868-4807-00 ",.02)
  1. ;;54868-4807-00
  1. ;;9002226.02101,"1224,54868-4807-01 ",.01)
  1. ;;54868-4807-01
  1. ;;9002226.02101,"1224,54868-4807-01 ",.02)
  1. ;;54868-4807-01
  1. ;;9002226.02101,"1224,54868-4807-02 ",.01)
  1. ;;54868-4807-02
  1. ;;9002226.02101,"1224,54868-4807-02 ",.02)
  1. ;;54868-4807-02
  1. ;;9002226.02101,"1224,54868-4934-00 ",.01)
  1. ;;54868-4934-00
  1. ;;9002226.02101,"1224,54868-4934-00 ",.02)
  1. ;;54868-4934-00
  1. ;;9002226.02101,"1224,54868-4934-01 ",.01)
  1. ;;54868-4934-01
  1. ;;9002226.02101,"1224,54868-4934-01 ",.02)
  1. ;;54868-4934-01
  1. ;;9002226.02101,"1224,54868-4934-02 ",.01)
  1. ;;54868-4934-02
  1. ;;9002226.02101,"1224,54868-4934-02 ",.02)
  1. ;;54868-4934-02
  1. ;;9002226.02101,"1224,54868-4934-03 ",.01)
  1. ;;54868-4934-03
  1. ;;9002226.02101,"1224,54868-4934-03 ",.02)
  1. ;;54868-4934-03
  1. ;;9002226.02101,"1224,54868-4963-00 ",.01)
  1. ;;54868-4963-00
  1. ;;9002226.02101,"1224,54868-4963-00 ",.02)
  1. ;;54868-4963-00
  1. ;;9002226.02101,"1224,54868-4963-01 ",.01)
  1. ;;54868-4963-01
  1. ;;9002226.02101,"1224,54868-4963-01 ",.02)
  1. ;;54868-4963-01
  1. ;;9002226.02101,"1224,54868-4963-02 ",.01)
  1. ;;54868-4963-02
  1. ;;9002226.02101,"1224,54868-4963-02 ",.02)
  1. ;;54868-4963-02
  1. ;;9002226.02101,"1224,54868-4963-03 ",.01)
  1. ;;54868-4963-03
  1. ;;9002226.02101,"1224,54868-4963-03 ",.02)
  1. ;;54868-4963-03
  1. ;;9002226.02101,"1224,54868-5085-00 ",.01)
  1. ;;54868-5085-00
  1. ;;9002226.02101,"1224,54868-5085-00 ",.02)
  1. ;;54868-5085-00
  1. ;;9002226.02101,"1224,54868-5085-01 ",.01)
  1. ;;54868-5085-01
  1. ;;9002226.02101,"1224,54868-5085-01 ",.02)
  1. ;;54868-5085-01