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.
BGP73G47 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"869,57237-0008-30 ",.02)
 ;;57237-0008-30
 ;;9002226.02101,"869,57237-0009-05 ",.01)
 ;;57237-0009-05
 ;;9002226.02101,"869,57237-0009-05 ",.02)
 ;;57237-0009-05
 ;;9002226.02101,"869,57237-0009-30 ",.01)
 ;;57237-0009-30
 ;;9002226.02101,"869,57237-0009-30 ",.02)
 ;;57237-0009-30
 ;;9002226.02101,"869,57237-0010-05 ",.01)
 ;;57237-0010-05
 ;;9002226.02101,"869,57237-0010-05 ",.02)
 ;;57237-0010-05
 ;;9002226.02101,"869,57237-0010-30 ",.01)
 ;;57237-0010-30
 ;;9002226.02101,"869,57237-0010-30 ",.02)
 ;;57237-0010-30
 ;;9002226.02101,"869,57237-0011-06 ",.01)
 ;;57237-0011-06
 ;;9002226.02101,"869,57237-0011-06 ",.02)
 ;;57237-0011-06
 ;;9002226.02101,"869,57237-0012-06 ",.01)
 ;;57237-0012-06
 ;;9002226.02101,"869,57237-0012-06 ",.02)
 ;;57237-0012-06
 ;;9002226.02101,"869,57237-0013-06 ",.01)
 ;;57237-0013-06
 ;;9002226.02101,"869,57237-0013-06 ",.02)
 ;;57237-0013-06
 ;;9002226.02101,"869,57237-0017-60 ",.01)
 ;;57237-0017-60
 ;;9002226.02101,"869,57237-0017-60 ",.02)
 ;;57237-0017-60
 ;;9002226.02101,"869,57237-0018-30 ",.01)
 ;;57237-0018-30
 ;;9002226.02101,"869,57237-0018-30 ",.02)
 ;;57237-0018-30
 ;;9002226.02101,"869,57237-0018-90 ",.01)
 ;;57237-0018-90
 ;;9002226.02101,"869,57237-0018-90 ",.02)
 ;;57237-0018-90
 ;;9002226.02101,"869,57237-0018-99 ",.01)
 ;;57237-0018-99
 ;;9002226.02101,"869,57237-0018-99 ",.02)
 ;;57237-0018-99
 ;;9002226.02101,"869,57237-0019-30 ",.01)
 ;;57237-0019-30
 ;;9002226.02101,"869,57237-0019-30 ",.02)
 ;;57237-0019-30
 ;;9002226.02101,"869,57237-0019-90 ",.01)
 ;;57237-0019-90
 ;;9002226.02101,"869,57237-0019-90 ",.02)
 ;;57237-0019-90
 ;;9002226.02101,"869,57237-0019-99 ",.01)
 ;;57237-0019-99
 ;;9002226.02101,"869,57237-0019-99 ",.02)
 ;;57237-0019-99
 ;;9002226.02101,"869,57237-0172-01 ",.01)
 ;;57237-0172-01
 ;;9002226.02101,"869,57237-0172-01 ",.02)
 ;;57237-0172-01
 ;;9002226.02101,"869,57237-0172-90 ",.01)
 ;;57237-0172-90
 ;;9002226.02101,"869,57237-0172-90 ",.02)
 ;;57237-0172-90
 ;;9002226.02101,"869,57237-0173-01 ",.01)
 ;;57237-0173-01
 ;;9002226.02101,"869,57237-0173-01 ",.02)
 ;;57237-0173-01
 ;;9002226.02101,"869,57237-0173-90 ",.01)
 ;;57237-0173-90
 ;;9002226.02101,"869,57237-0173-90 ",.02)
 ;;57237-0173-90
 ;;9002226.02101,"869,57237-0174-01 ",.01)
 ;;57237-0174-01
 ;;9002226.02101,"869,57237-0174-01 ",.02)
 ;;57237-0174-01
 ;;9002226.02101,"869,57237-0174-90 ",.01)
 ;;57237-0174-90
 ;;9002226.02101,"869,57237-0174-90 ",.02)
 ;;57237-0174-90
 ;;9002226.02101,"869,57237-0175-01 ",.01)
 ;;57237-0175-01
 ;;9002226.02101,"869,57237-0175-01 ",.02)
 ;;57237-0175-01
 ;;9002226.02101,"869,57237-0175-90 ",.01)
 ;;57237-0175-90
 ;;9002226.02101,"869,57237-0175-90 ",.02)
 ;;57237-0175-90
 ;;9002226.02101,"869,57237-0176-01 ",.01)
 ;;57237-0176-01
 ;;9002226.02101,"869,57237-0176-01 ",.02)
 ;;57237-0176-01
 ;;9002226.02101,"869,57237-0176-90 ",.01)
 ;;57237-0176-90
 ;;9002226.02101,"869,57237-0176-90 ",.02)
 ;;57237-0176-90
 ;;9002226.02101,"869,57664-0357-88 ",.01)
 ;;57664-0357-88
 ;;9002226.02101,"869,57664-0357-88 ",.02)
 ;;57664-0357-88
 ;;9002226.02101,"869,57664-0361-13 ",.01)
 ;;57664-0361-13
 ;;9002226.02101,"869,57664-0361-13 ",.02)
 ;;57664-0361-13
 ;;9002226.02101,"869,57664-0361-88 ",.01)
 ;;57664-0361-88
 ;;9002226.02101,"869,57664-0361-88 ",.02)
 ;;57664-0361-88
 ;;9002226.02101,"869,57664-0362-13 ",.01)
 ;;57664-0362-13
 ;;9002226.02101,"869,57664-0362-13 ",.02)
 ;;57664-0362-13
 ;;9002226.02101,"869,57664-0362-88 ",.01)
 ;;57664-0362-88
 ;;9002226.02101,"869,57664-0362-88 ",.02)
 ;;57664-0362-88
 ;;9002226.02101,"869,57664-0392-88 ",.01)
 ;;57664-0392-88
 ;;9002226.02101,"869,57664-0392-88 ",.02)
 ;;57664-0392-88
 ;;9002226.02101,"869,57664-0393-88 ",.01)
 ;;57664-0393-88
 ;;9002226.02101,"869,57664-0393-88 ",.02)
 ;;57664-0393-88
 ;;9002226.02101,"869,57664-0394-88 ",.01)
 ;;57664-0394-88
 ;;9002226.02101,"869,57664-0394-88 ",.02)
 ;;57664-0394-88
 ;;9002226.02101,"869,57664-0395-88 ",.01)
 ;;57664-0395-88
 ;;9002226.02101,"869,57664-0395-88 ",.02)
 ;;57664-0395-88
 ;;9002226.02101,"869,57664-0396-88 ",.01)
 ;;57664-0396-88
 ;;9002226.02101,"869,57664-0396-88 ",.02)
 ;;57664-0396-88
 ;;9002226.02101,"869,57664-0421-13 ",.01)
 ;;57664-0421-13
 ;;9002226.02101,"869,57664-0421-13 ",.02)
 ;;57664-0421-13
 ;;9002226.02101,"869,57664-0421-83 ",.01)
 ;;57664-0421-83
 ;;9002226.02101,"869,57664-0421-83 ",.02)
 ;;57664-0421-83
 ;;9002226.02101,"869,57664-0421-99 ",.01)
 ;;57664-0421-99
 ;;9002226.02101,"869,57664-0421-99 ",.02)
 ;;57664-0421-99
 ;;9002226.02101,"869,57664-0422-13 ",.01)
 ;;57664-0422-13
 ;;9002226.02101,"869,57664-0422-13 ",.02)
 ;;57664-0422-13
 ;;9002226.02101,"869,57664-0422-18 ",.01)
 ;;57664-0422-18
 ;;9002226.02101,"869,57664-0422-18 ",.02)
 ;;57664-0422-18
 ;;9002226.02101,"869,57664-0422-83 ",.01)
 ;;57664-0422-83
 ;;9002226.02101,"869,57664-0422-83 ",.02)
 ;;57664-0422-83
 ;;9002226.02101,"869,57664-0422-99 ",.01)
 ;;57664-0422-99
 ;;9002226.02101,"869,57664-0422-99 ",.02)
 ;;57664-0422-99
 ;;9002226.02101,"869,57664-0424-13 ",.01)
 ;;57664-0424-13
 ;;9002226.02101,"869,57664-0424-13 ",.02)
 ;;57664-0424-13
 ;;9002226.02101,"869,57664-0424-83 ",.01)
 ;;57664-0424-83
 ;;9002226.02101,"869,57664-0424-83 ",.02)
 ;;57664-0424-83
 ;;9002226.02101,"869,57664-0424-99 ",.01)
 ;;57664-0424-99
 ;;9002226.02101,"869,57664-0424-99 ",.02)
 ;;57664-0424-99
 ;;9002226.02101,"869,57664-0425-13 ",.01)
 ;;57664-0425-13
 ;;9002226.02101,"869,57664-0425-13 ",.02)
 ;;57664-0425-13
 ;;9002226.02101,"869,57664-0425-83 ",.01)
 ;;57664-0425-83
 ;;9002226.02101,"869,57664-0425-83 ",.02)
 ;;57664-0425-83
 ;;9002226.02101,"869,57664-0425-99 ",.01)
 ;;57664-0425-99
 ;;9002226.02101,"869,57664-0425-99 ",.02)
 ;;57664-0425-99
 ;;9002226.02101,"869,57664-0499-18 ",.01)
 ;;57664-0499-18
 ;;9002226.02101,"869,57664-0499-18 ",.02)
 ;;57664-0499-18
 ;;9002226.02101,"869,57664-0499-83 ",.01)
 ;;57664-0499-83
 ;;9002226.02101,"869,57664-0499-83 ",.02)
 ;;57664-0499-83
 ;;9002226.02101,"869,57664-0500-18 ",.01)
 ;;57664-0500-18
 ;;9002226.02101,"869,57664-0500-18 ",.02)
 ;;57664-0500-18
 ;;9002226.02101,"869,57664-0500-83 ",.01)
 ;;57664-0500-83
 ;;9002226.02101,"869,57664-0500-83 ",.02)
 ;;57664-0500-83
 ;;9002226.02101,"869,57664-0501-18 ",.01)
 ;;57664-0501-18
 ;;9002226.02101,"869,57664-0501-18 ",.02)
 ;;57664-0501-18
 ;;9002226.02101,"869,57664-0501-83 ",.01)
 ;;57664-0501-83
 ;;9002226.02101,"869,57664-0501-83 ",.02)
 ;;57664-0501-83
 ;;9002226.02101,"869,57664-0507-13 ",.01)
 ;;57664-0507-13
 ;;9002226.02101,"869,57664-0507-13 ",.02)
 ;;57664-0507-13
 ;;9002226.02101,"869,57664-0507-88 ",.01)
 ;;57664-0507-88
 ;;9002226.02101,"869,57664-0507-88 ",.02)
 ;;57664-0507-88
 ;;9002226.02101,"869,57664-0508-13 ",.01)
 ;;57664-0508-13
 ;;9002226.02101,"869,57664-0508-13 ",.02)
 ;;57664-0508-13
 ;;9002226.02101,"869,57664-0508-18 ",.01)
 ;;57664-0508-18
 ;;9002226.02101,"869,57664-0508-18 ",.02)
 ;;57664-0508-18
 ;;9002226.02101,"869,57664-0508-88 ",.01)
 ;;57664-0508-88
 ;;9002226.02101,"869,57664-0508-88 ",.02)
 ;;57664-0508-88
 ;;9002226.02101,"869,57664-0509-13 ",.01)
 ;;57664-0509-13
 ;;9002226.02101,"869,57664-0509-13 ",.02)
 ;;57664-0509-13
 ;;9002226.02101,"869,57664-0509-18 ",.01)
 ;;57664-0509-18
 ;;9002226.02101,"869,57664-0509-18 ",.02)
 ;;57664-0509-18
 ;;9002226.02101,"869,57664-0509-88 ",.01)
 ;;57664-0509-88
 ;;9002226.02101,"869,57664-0509-88 ",.02)
 ;;57664-0509-88
 ;;9002226.02101,"869,57664-0510-18 ",.01)
 ;;57664-0510-18
 ;;9002226.02101,"869,57664-0510-18 ",.02)
 ;;57664-0510-18
 ;;9002226.02101,"869,57664-0510-83 ",.01)
 ;;57664-0510-83
 ;;9002226.02101,"869,57664-0510-83 ",.02)
 ;;57664-0510-83
 ;;9002226.02101,"869,57866-0920-01 ",.01)
 ;;57866-0920-01
 ;;9002226.02101,"869,57866-0920-01 ",.02)
 ;;57866-0920-01
 ;;9002226.02101,"869,57866-0920-02 ",.01)
 ;;57866-0920-02
 ;;9002226.02101,"869,57866-0920-02 ",.02)
 ;;57866-0920-02
 ;;9002226.02101,"869,57866-0920-03 ",.01)
 ;;57866-0920-03
 ;;9002226.02101,"869,57866-0920-03 ",.02)
 ;;57866-0920-03
 ;;9002226.02101,"869,57866-0922-01 ",.01)
 ;;57866-0922-01
 ;;9002226.02101,"869,57866-0922-01 ",.02)
 ;;57866-0922-01
 ;;9002226.02101,"869,57866-0922-02 ",.01)
 ;;57866-0922-02
 ;;9002226.02101,"869,57866-0922-02 ",.02)
 ;;57866-0922-02
 ;;9002226.02101,"869,57866-0922-03 ",.01)
 ;;57866-0922-03
 ;;9002226.02101,"869,57866-0922-03 ",.02)
 ;;57866-0922-03
 ;;9002226.02101,"869,57866-3061-02 ",.01)
 ;;57866-3061-02
 ;;9002226.02101,"869,57866-3061-02 ",.02)
 ;;57866-3061-02
 ;;9002226.02101,"869,57866-3071-01 ",.01)
 ;;57866-3071-01
 ;;9002226.02101,"869,57866-3071-01 ",.02)
 ;;57866-3071-01
 ;;9002226.02101,"869,57866-3072-01 ",.01)
 ;;57866-3072-01
 ;;9002226.02101,"869,57866-3072-01 ",.02)
 ;;57866-3072-01
 ;;9002226.02101,"869,57866-3072-02 ",.01)
 ;;57866-3072-02
 ;;9002226.02101,"869,57866-3072-02 ",.02)
 ;;57866-3072-02
 ;;9002226.02101,"869,57866-3072-03 ",.01)
 ;;57866-3072-03
 ;;9002226.02101,"869,57866-3072-03 ",.02)
 ;;57866-3072-03
 ;;9002226.02101,"869,57866-3073-01 ",.01)
 ;;57866-3073-01
 ;;9002226.02101,"869,57866-3073-01 ",.02)
 ;;57866-3073-01
 ;;9002226.02101,"869,57866-3073-02 ",.01)
 ;;57866-3073-02
 ;;9002226.02101,"869,57866-3073-02 ",.02)
 ;;57866-3073-02
 ;;9002226.02101,"869,57866-3073-03 ",.01)
 ;;57866-3073-03
 ;;9002226.02101,"869,57866-3073-03 ",.02)
 ;;57866-3073-03
 ;;9002226.02101,"869,57866-3906-01 ",.01)
 ;;57866-3906-01
 ;;9002226.02101,"869,57866-3906-01 ",.02)
 ;;57866-3906-01
 ;;9002226.02101,"869,57866-3907-01 ",.01)
 ;;57866-3907-01
 ;;9002226.02101,"869,57866-3907-01 ",.02)
 ;;57866-3907-01
 ;;9002226.02101,"869,57866-3930-01 ",.01)
 ;;57866-3930-01
 ;;9002226.02101,"869,57866-3930-01 ",.02)
 ;;57866-3930-01
 ;;9002226.02101,"869,57866-3931-01 ",.01)
 ;;57866-3931-01
 ;;9002226.02101,"869,57866-3931-01 ",.02)
 ;;57866-3931-01
 ;;9002226.02101,"869,57866-4688-01 ",.01)
 ;;57866-4688-01
 ;;9002226.02101,"869,57866-4688-01 ",.02)
 ;;57866-4688-01
 ;;9002226.02101,"869,57866-4688-02 ",.01)
 ;;57866-4688-02
 ;;9002226.02101,"869,57866-4688-02 ",.02)
 ;;57866-4688-02
 ;;9002226.02101,"869,57866-4688-03 ",.01)
 ;;57866-4688-03
 ;;9002226.02101,"869,57866-4688-03 ",.02)
 ;;57866-4688-03
 ;;9002226.02101,"869,57866-4688-04 ",.01)
 ;;57866-4688-04
 ;;9002226.02101,"869,57866-4688-04 ",.02)
 ;;57866-4688-04
 ;;9002226.02101,"869,57866-4715-01 ",.01)
 ;;57866-4715-01
 ;;9002226.02101,"869,57866-4715-01 ",.02)
 ;;57866-4715-01
 ;;9002226.02101,"869,57866-4715-02 ",.01)
 ;;57866-4715-02
 ;;9002226.02101,"869,57866-4715-02 ",.02)
 ;;57866-4715-02
 ;;9002226.02101,"869,57866-4715-03 ",.01)
 ;;57866-4715-03
 ;;9002226.02101,"869,57866-4715-03 ",.02)
 ;;57866-4715-03
 ;;9002226.02101,"869,57866-4715-04 ",.01)
 ;;57866-4715-04
 ;;9002226.02101,"869,57866-4715-04 ",.02)
 ;;57866-4715-04
 ;;9002226.02101,"869,57866-6650-01 ",.01)
 ;;57866-6650-01
 ;;9002226.02101,"869,57866-6650-01 ",.02)
 ;;57866-6650-01
 ;;9002226.02101,"869,57866-6650-02 ",.01)
 ;;57866-6650-02
 ;;9002226.02101,"869,57866-6650-02 ",.02)
 ;;57866-6650-02
 ;;9002226.02101,"869,57866-6650-03 ",.01)
 ;;57866-6650-03
 ;;9002226.02101,"869,57866-6650-03 ",.02)
 ;;57866-6650-03
 ;;9002226.02101,"869,58016-0004-00 ",.01)
 ;;58016-0004-00
 ;;9002226.02101,"869,58016-0004-00 ",.02)
 ;;58016-0004-00
 ;;9002226.02101,"869,58016-0004-30 ",.01)
 ;;58016-0004-30
 ;;9002226.02101,"869,58016-0004-30 ",.02)
 ;;58016-0004-30
 ;;9002226.02101,"869,58016-0004-60 ",.01)
 ;;58016-0004-60
 ;;9002226.02101,"869,58016-0004-60 ",.02)
 ;;58016-0004-60
 ;;9002226.02101,"869,58016-0004-90 ",.01)
 ;;58016-0004-90