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

BGP73G47.m

Go to the documentation of this file.
  1. BGP73G47 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"869,57237-0008-30 ",.02)
  1. ;;57237-0008-30
  1. ;;9002226.02101,"869,57237-0009-05 ",.01)
  1. ;;57237-0009-05
  1. ;;9002226.02101,"869,57237-0009-05 ",.02)
  1. ;;57237-0009-05
  1. ;;9002226.02101,"869,57237-0009-30 ",.01)
  1. ;;57237-0009-30
  1. ;;9002226.02101,"869,57237-0009-30 ",.02)
  1. ;;57237-0009-30
  1. ;;9002226.02101,"869,57237-0010-05 ",.01)
  1. ;;57237-0010-05
  1. ;;9002226.02101,"869,57237-0010-05 ",.02)
  1. ;;57237-0010-05
  1. ;;9002226.02101,"869,57237-0010-30 ",.01)
  1. ;;57237-0010-30
  1. ;;9002226.02101,"869,57237-0010-30 ",.02)
  1. ;;57237-0010-30
  1. ;;9002226.02101,"869,57237-0011-06 ",.01)
  1. ;;57237-0011-06
  1. ;;9002226.02101,"869,57237-0011-06 ",.02)
  1. ;;57237-0011-06
  1. ;;9002226.02101,"869,57237-0012-06 ",.01)
  1. ;;57237-0012-06
  1. ;;9002226.02101,"869,57237-0012-06 ",.02)
  1. ;;57237-0012-06
  1. ;;9002226.02101,"869,57237-0013-06 ",.01)
  1. ;;57237-0013-06
  1. ;;9002226.02101,"869,57237-0013-06 ",.02)
  1. ;;57237-0013-06
  1. ;;9002226.02101,"869,57237-0017-60 ",.01)
  1. ;;57237-0017-60
  1. ;;9002226.02101,"869,57237-0017-60 ",.02)
  1. ;;57237-0017-60
  1. ;;9002226.02101,"869,57237-0018-30 ",.01)
  1. ;;57237-0018-30
  1. ;;9002226.02101,"869,57237-0018-30 ",.02)
  1. ;;57237-0018-30
  1. ;;9002226.02101,"869,57237-0018-90 ",.01)
  1. ;;57237-0018-90
  1. ;;9002226.02101,"869,57237-0018-90 ",.02)
  1. ;;57237-0018-90
  1. ;;9002226.02101,"869,57237-0018-99 ",.01)
  1. ;;57237-0018-99
  1. ;;9002226.02101,"869,57237-0018-99 ",.02)
  1. ;;57237-0018-99
  1. ;;9002226.02101,"869,57237-0019-30 ",.01)
  1. ;;57237-0019-30
  1. ;;9002226.02101,"869,57237-0019-30 ",.02)
  1. ;;57237-0019-30
  1. ;;9002226.02101,"869,57237-0019-90 ",.01)
  1. ;;57237-0019-90
  1. ;;9002226.02101,"869,57237-0019-90 ",.02)
  1. ;;57237-0019-90
  1. ;;9002226.02101,"869,57237-0019-99 ",.01)
  1. ;;57237-0019-99
  1. ;;9002226.02101,"869,57237-0019-99 ",.02)
  1. ;;57237-0019-99
  1. ;;9002226.02101,"869,57237-0172-01 ",.01)
  1. ;;57237-0172-01
  1. ;;9002226.02101,"869,57237-0172-01 ",.02)
  1. ;;57237-0172-01
  1. ;;9002226.02101,"869,57237-0172-90 ",.01)
  1. ;;57237-0172-90
  1. ;;9002226.02101,"869,57237-0172-90 ",.02)
  1. ;;57237-0172-90
  1. ;;9002226.02101,"869,57237-0173-01 ",.01)
  1. ;;57237-0173-01
  1. ;;9002226.02101,"869,57237-0173-01 ",.02)
  1. ;;57237-0173-01
  1. ;;9002226.02101,"869,57237-0173-90 ",.01)
  1. ;;57237-0173-90
  1. ;;9002226.02101,"869,57237-0173-90 ",.02)
  1. ;;57237-0173-90
  1. ;;9002226.02101,"869,57237-0174-01 ",.01)
  1. ;;57237-0174-01
  1. ;;9002226.02101,"869,57237-0174-01 ",.02)
  1. ;;57237-0174-01
  1. ;;9002226.02101,"869,57237-0174-90 ",.01)
  1. ;;57237-0174-90
  1. ;;9002226.02101,"869,57237-0174-90 ",.02)
  1. ;;57237-0174-90
  1. ;;9002226.02101,"869,57237-0175-01 ",.01)
  1. ;;57237-0175-01
  1. ;;9002226.02101,"869,57237-0175-01 ",.02)
  1. ;;57237-0175-01
  1. ;;9002226.02101,"869,57237-0175-90 ",.01)
  1. ;;57237-0175-90
  1. ;;9002226.02101,"869,57237-0175-90 ",.02)
  1. ;;57237-0175-90
  1. ;;9002226.02101,"869,57237-0176-01 ",.01)
  1. ;;57237-0176-01
  1. ;;9002226.02101,"869,57237-0176-01 ",.02)
  1. ;;57237-0176-01
  1. ;;9002226.02101,"869,57237-0176-90 ",.01)
  1. ;;57237-0176-90
  1. ;;9002226.02101,"869,57237-0176-90 ",.02)
  1. ;;57237-0176-90
  1. ;;9002226.02101,"869,57664-0357-88 ",.01)
  1. ;;57664-0357-88
  1. ;;9002226.02101,"869,57664-0357-88 ",.02)
  1. ;;57664-0357-88
  1. ;;9002226.02101,"869,57664-0361-13 ",.01)
  1. ;;57664-0361-13
  1. ;;9002226.02101,"869,57664-0361-13 ",.02)
  1. ;;57664-0361-13
  1. ;;9002226.02101,"869,57664-0361-88 ",.01)
  1. ;;57664-0361-88
  1. ;;9002226.02101,"869,57664-0361-88 ",.02)
  1. ;;57664-0361-88
  1. ;;9002226.02101,"869,57664-0362-13 ",.01)
  1. ;;57664-0362-13
  1. ;;9002226.02101,"869,57664-0362-13 ",.02)
  1. ;;57664-0362-13
  1. ;;9002226.02101,"869,57664-0362-88 ",.01)
  1. ;;57664-0362-88
  1. ;;9002226.02101,"869,57664-0362-88 ",.02)
  1. ;;57664-0362-88
  1. ;;9002226.02101,"869,57664-0392-88 ",.01)
  1. ;;57664-0392-88
  1. ;;9002226.02101,"869,57664-0392-88 ",.02)
  1. ;;57664-0392-88
  1. ;;9002226.02101,"869,57664-0393-88 ",.01)
  1. ;;57664-0393-88
  1. ;;9002226.02101,"869,57664-0393-88 ",.02)
  1. ;;57664-0393-88
  1. ;;9002226.02101,"869,57664-0394-88 ",.01)
  1. ;;57664-0394-88
  1. ;;9002226.02101,"869,57664-0394-88 ",.02)
  1. ;;57664-0394-88
  1. ;;9002226.02101,"869,57664-0395-88 ",.01)
  1. ;;57664-0395-88
  1. ;;9002226.02101,"869,57664-0395-88 ",.02)
  1. ;;57664-0395-88
  1. ;;9002226.02101,"869,57664-0396-88 ",.01)
  1. ;;57664-0396-88
  1. ;;9002226.02101,"869,57664-0396-88 ",.02)
  1. ;;57664-0396-88
  1. ;;9002226.02101,"869,57664-0421-13 ",.01)
  1. ;;57664-0421-13
  1. ;;9002226.02101,"869,57664-0421-13 ",.02)
  1. ;;57664-0421-13
  1. ;;9002226.02101,"869,57664-0421-83 ",.01)
  1. ;;57664-0421-83
  1. ;;9002226.02101,"869,57664-0421-83 ",.02)
  1. ;;57664-0421-83
  1. ;;9002226.02101,"869,57664-0421-99 ",.01)
  1. ;;57664-0421-99
  1. ;;9002226.02101,"869,57664-0421-99 ",.02)
  1. ;;57664-0421-99
  1. ;;9002226.02101,"869,57664-0422-13 ",.01)
  1. ;;57664-0422-13
  1. ;;9002226.02101,"869,57664-0422-13 ",.02)
  1. ;;57664-0422-13
  1. ;;9002226.02101,"869,57664-0422-18 ",.01)
  1. ;;57664-0422-18
  1. ;;9002226.02101,"869,57664-0422-18 ",.02)
  1. ;;57664-0422-18
  1. ;;9002226.02101,"869,57664-0422-83 ",.01)
  1. ;;57664-0422-83
  1. ;;9002226.02101,"869,57664-0422-83 ",.02)
  1. ;;57664-0422-83
  1. ;;9002226.02101,"869,57664-0422-99 ",.01)
  1. ;;57664-0422-99
  1. ;;9002226.02101,"869,57664-0422-99 ",.02)
  1. ;;57664-0422-99
  1. ;;9002226.02101,"869,57664-0424-13 ",.01)
  1. ;;57664-0424-13
  1. ;;9002226.02101,"869,57664-0424-13 ",.02)
  1. ;;57664-0424-13
  1. ;;9002226.02101,"869,57664-0424-83 ",.01)
  1. ;;57664-0424-83
  1. ;;9002226.02101,"869,57664-0424-83 ",.02)
  1. ;;57664-0424-83
  1. ;;9002226.02101,"869,57664-0424-99 ",.01)
  1. ;;57664-0424-99
  1. ;;9002226.02101,"869,57664-0424-99 ",.02)
  1. ;;57664-0424-99
  1. ;;9002226.02101,"869,57664-0425-13 ",.01)
  1. ;;57664-0425-13
  1. ;;9002226.02101,"869,57664-0425-13 ",.02)
  1. ;;57664-0425-13
  1. ;;9002226.02101,"869,57664-0425-83 ",.01)
  1. ;;57664-0425-83
  1. ;;9002226.02101,"869,57664-0425-83 ",.02)
  1. ;;57664-0425-83
  1. ;;9002226.02101,"869,57664-0425-99 ",.01)
  1. ;;57664-0425-99
  1. ;;9002226.02101,"869,57664-0425-99 ",.02)
  1. ;;57664-0425-99
  1. ;;9002226.02101,"869,57664-0499-18 ",.01)
  1. ;;57664-0499-18
  1. ;;9002226.02101,"869,57664-0499-18 ",.02)
  1. ;;57664-0499-18
  1. ;;9002226.02101,"869,57664-0499-83 ",.01)
  1. ;;57664-0499-83
  1. ;;9002226.02101,"869,57664-0499-83 ",.02)
  1. ;;57664-0499-83
  1. ;;9002226.02101,"869,57664-0500-18 ",.01)
  1. ;;57664-0500-18
  1. ;;9002226.02101,"869,57664-0500-18 ",.02)
  1. ;;57664-0500-18
  1. ;;9002226.02101,"869,57664-0500-83 ",.01)
  1. ;;57664-0500-83
  1. ;;9002226.02101,"869,57664-0500-83 ",.02)
  1. ;;57664-0500-83
  1. ;;9002226.02101,"869,57664-0501-18 ",.01)
  1. ;;57664-0501-18
  1. ;;9002226.02101,"869,57664-0501-18 ",.02)
  1. ;;57664-0501-18
  1. ;;9002226.02101,"869,57664-0501-83 ",.01)
  1. ;;57664-0501-83
  1. ;;9002226.02101,"869,57664-0501-83 ",.02)
  1. ;;57664-0501-83
  1. ;;9002226.02101,"869,57664-0507-13 ",.01)
  1. ;;57664-0507-13
  1. ;;9002226.02101,"869,57664-0507-13 ",.02)
  1. ;;57664-0507-13
  1. ;;9002226.02101,"869,57664-0507-88 ",.01)
  1. ;;57664-0507-88
  1. ;;9002226.02101,"869,57664-0507-88 ",.02)
  1. ;;57664-0507-88
  1. ;;9002226.02101,"869,57664-0508-13 ",.01)
  1. ;;57664-0508-13
  1. ;;9002226.02101,"869,57664-0508-13 ",.02)
  1. ;;57664-0508-13
  1. ;;9002226.02101,"869,57664-0508-18 ",.01)
  1. ;;57664-0508-18
  1. ;;9002226.02101,"869,57664-0508-18 ",.02)
  1. ;;57664-0508-18
  1. ;;9002226.02101,"869,57664-0508-88 ",.01)
  1. ;;57664-0508-88
  1. ;;9002226.02101,"869,57664-0508-88 ",.02)
  1. ;;57664-0508-88
  1. ;;9002226.02101,"869,57664-0509-13 ",.01)
  1. ;;57664-0509-13
  1. ;;9002226.02101,"869,57664-0509-13 ",.02)
  1. ;;57664-0509-13
  1. ;;9002226.02101,"869,57664-0509-18 ",.01)
  1. ;;57664-0509-18
  1. ;;9002226.02101,"869,57664-0509-18 ",.02)
  1. ;;57664-0509-18
  1. ;;9002226.02101,"869,57664-0509-88 ",.01)
  1. ;;57664-0509-88
  1. ;;9002226.02101,"869,57664-0509-88 ",.02)
  1. ;;57664-0509-88
  1. ;;9002226.02101,"869,57664-0510-18 ",.01)
  1. ;;57664-0510-18
  1. ;;9002226.02101,"869,57664-0510-18 ",.02)
  1. ;;57664-0510-18
  1. ;;9002226.02101,"869,57664-0510-83 ",.01)
  1. ;;57664-0510-83
  1. ;;9002226.02101,"869,57664-0510-83 ",.02)
  1. ;;57664-0510-83
  1. ;;9002226.02101,"869,57866-0920-01 ",.01)
  1. ;;57866-0920-01
  1. ;;9002226.02101,"869,57866-0920-01 ",.02)
  1. ;;57866-0920-01
  1. ;;9002226.02101,"869,57866-0920-02 ",.01)
  1. ;;57866-0920-02
  1. ;;9002226.02101,"869,57866-0920-02 ",.02)
  1. ;;57866-0920-02
  1. ;;9002226.02101,"869,57866-0920-03 ",.01)
  1. ;;57866-0920-03
  1. ;;9002226.02101,"869,57866-0920-03 ",.02)
  1. ;;57866-0920-03
  1. ;;9002226.02101,"869,57866-0922-01 ",.01)
  1. ;;57866-0922-01
  1. ;;9002226.02101,"869,57866-0922-01 ",.02)
  1. ;;57866-0922-01
  1. ;;9002226.02101,"869,57866-0922-02 ",.01)
  1. ;;57866-0922-02
  1. ;;9002226.02101,"869,57866-0922-02 ",.02)
  1. ;;57866-0922-02
  1. ;;9002226.02101,"869,57866-0922-03 ",.01)
  1. ;;57866-0922-03
  1. ;;9002226.02101,"869,57866-0922-03 ",.02)
  1. ;;57866-0922-03
  1. ;;9002226.02101,"869,57866-3061-02 ",.01)
  1. ;;57866-3061-02
  1. ;;9002226.02101,"869,57866-3061-02 ",.02)
  1. ;;57866-3061-02
  1. ;;9002226.02101,"869,57866-3071-01 ",.01)
  1. ;;57866-3071-01
  1. ;;9002226.02101,"869,57866-3071-01 ",.02)
  1. ;;57866-3071-01
  1. ;;9002226.02101,"869,57866-3072-01 ",.01)
  1. ;;57866-3072-01
  1. ;;9002226.02101,"869,57866-3072-01 ",.02)
  1. ;;57866-3072-01
  1. ;;9002226.02101,"869,57866-3072-02 ",.01)
  1. ;;57866-3072-02
  1. ;;9002226.02101,"869,57866-3072-02 ",.02)
  1. ;;57866-3072-02
  1. ;;9002226.02101,"869,57866-3072-03 ",.01)
  1. ;;57866-3072-03
  1. ;;9002226.02101,"869,57866-3072-03 ",.02)
  1. ;;57866-3072-03
  1. ;;9002226.02101,"869,57866-3073-01 ",.01)
  1. ;;57866-3073-01
  1. ;;9002226.02101,"869,57866-3073-01 ",.02)
  1. ;;57866-3073-01
  1. ;;9002226.02101,"869,57866-3073-02 ",.01)
  1. ;;57866-3073-02
  1. ;;9002226.02101,"869,57866-3073-02 ",.02)
  1. ;;57866-3073-02
  1. ;;9002226.02101,"869,57866-3073-03 ",.01)
  1. ;;57866-3073-03
  1. ;;9002226.02101,"869,57866-3073-03 ",.02)
  1. ;;57866-3073-03
  1. ;;9002226.02101,"869,57866-3906-01 ",.01)
  1. ;;57866-3906-01
  1. ;;9002226.02101,"869,57866-3906-01 ",.02)
  1. ;;57866-3906-01
  1. ;;9002226.02101,"869,57866-3907-01 ",.01)
  1. ;;57866-3907-01
  1. ;;9002226.02101,"869,57866-3907-01 ",.02)
  1. ;;57866-3907-01
  1. ;;9002226.02101,"869,57866-3930-01 ",.01)
  1. ;;57866-3930-01
  1. ;;9002226.02101,"869,57866-3930-01 ",.02)
  1. ;;57866-3930-01
  1. ;;9002226.02101,"869,57866-3931-01 ",.01)
  1. ;;57866-3931-01
  1. ;;9002226.02101,"869,57866-3931-01 ",.02)
  1. ;;57866-3931-01
  1. ;;9002226.02101,"869,57866-4688-01 ",.01)
  1. ;;57866-4688-01
  1. ;;9002226.02101,"869,57866-4688-01 ",.02)
  1. ;;57866-4688-01
  1. ;;9002226.02101,"869,57866-4688-02 ",.01)
  1. ;;57866-4688-02
  1. ;;9002226.02101,"869,57866-4688-02 ",.02)
  1. ;;57866-4688-02
  1. ;;9002226.02101,"869,57866-4688-03 ",.01)
  1. ;;57866-4688-03
  1. ;;9002226.02101,"869,57866-4688-03 ",.02)
  1. ;;57866-4688-03
  1. ;;9002226.02101,"869,57866-4688-04 ",.01)
  1. ;;57866-4688-04
  1. ;;9002226.02101,"869,57866-4688-04 ",.02)
  1. ;;57866-4688-04
  1. ;;9002226.02101,"869,57866-4715-01 ",.01)
  1. ;;57866-4715-01
  1. ;;9002226.02101,"869,57866-4715-01 ",.02)
  1. ;;57866-4715-01
  1. ;;9002226.02101,"869,57866-4715-02 ",.01)
  1. ;;57866-4715-02
  1. ;;9002226.02101,"869,57866-4715-02 ",.02)
  1. ;;57866-4715-02
  1. ;;9002226.02101,"869,57866-4715-03 ",.01)
  1. ;;57866-4715-03
  1. ;;9002226.02101,"869,57866-4715-03 ",.02)
  1. ;;57866-4715-03
  1. ;;9002226.02101,"869,57866-4715-04 ",.01)
  1. ;;57866-4715-04
  1. ;;9002226.02101,"869,57866-4715-04 ",.02)
  1. ;;57866-4715-04
  1. ;;9002226.02101,"869,57866-6650-01 ",.01)
  1. ;;57866-6650-01
  1. ;;9002226.02101,"869,57866-6650-01 ",.02)
  1. ;;57866-6650-01
  1. ;;9002226.02101,"869,57866-6650-02 ",.01)
  1. ;;57866-6650-02
  1. ;;9002226.02101,"869,57866-6650-02 ",.02)
  1. ;;57866-6650-02
  1. ;;9002226.02101,"869,57866-6650-03 ",.01)
  1. ;;57866-6650-03
  1. ;;9002226.02101,"869,57866-6650-03 ",.02)
  1. ;;57866-6650-03
  1. ;;9002226.02101,"869,58016-0004-00 ",.01)
  1. ;;58016-0004-00
  1. ;;9002226.02101,"869,58016-0004-00 ",.02)
  1. ;;58016-0004-00
  1. ;;9002226.02101,"869,58016-0004-30 ",.01)
  1. ;;58016-0004-30
  1. ;;9002226.02101,"869,58016-0004-30 ",.02)
  1. ;;58016-0004-30
  1. ;;9002226.02101,"869,58016-0004-60 ",.01)
  1. ;;58016-0004-60
  1. ;;9002226.02101,"869,58016-0004-60 ",.02)
  1. ;;58016-0004-60
  1. ;;9002226.02101,"869,58016-0004-90 ",.01)
  1. ;;58016-0004-90