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

BGP73F47.m

Go to the documentation of this file.
  1. BGP73F47 ;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,"868,50458-0925-50 ",.02)
  1. ;;50458-0925-50
  1. ;;9002226.02101,"868,50458-0930-10 ",.01)
  1. ;;50458-0930-10
  1. ;;9002226.02101,"868,50458-0930-10 ",.02)
  1. ;;50458-0930-10
  1. ;;9002226.02101,"868,50458-0930-20 ",.01)
  1. ;;50458-0930-20
  1. ;;9002226.02101,"868,50458-0930-20 ",.02)
  1. ;;50458-0930-20
  1. ;;9002226.02101,"868,50962-0302-20 ",.01)
  1. ;;50962-0302-20
  1. ;;9002226.02101,"868,50962-0302-20 ",.02)
  1. ;;50962-0302-20
  1. ;;9002226.02101,"868,51079-0016-01 ",.01)
  1. ;;51079-0016-01
  1. ;;9002226.02101,"868,51079-0016-01 ",.02)
  1. ;;51079-0016-01
  1. ;;9002226.02101,"868,51079-0017-01 ",.01)
  1. ;;51079-0017-01
  1. ;;9002226.02101,"868,51079-0017-01 ",.02)
  1. ;;51079-0017-01
  1. ;;9002226.02101,"868,51079-0034-01 ",.01)
  1. ;;51079-0034-01
  1. ;;9002226.02101,"868,51079-0034-01 ",.02)
  1. ;;51079-0034-01
  1. ;;9002226.02101,"868,51079-0034-20 ",.01)
  1. ;;51079-0034-20
  1. ;;9002226.02101,"868,51079-0034-20 ",.02)
  1. ;;51079-0034-20
  1. ;;9002226.02101,"868,51079-0035-01 ",.01)
  1. ;;51079-0035-01
  1. ;;9002226.02101,"868,51079-0035-01 ",.02)
  1. ;;51079-0035-01
  1. ;;9002226.02101,"868,51079-0035-20 ",.01)
  1. ;;51079-0035-20
  1. ;;9002226.02101,"868,51079-0035-20 ",.02)
  1. ;;51079-0035-20
  1. ;;9002226.02101,"868,51079-0040-01 ",.01)
  1. ;;51079-0040-01
  1. ;;9002226.02101,"868,51079-0040-01 ",.02)
  1. ;;51079-0040-01
  1. ;;9002226.02101,"868,51079-0040-20 ",.01)
  1. ;;51079-0040-20
  1. ;;9002226.02101,"868,51079-0040-20 ",.02)
  1. ;;51079-0040-20
  1. ;;9002226.02101,"868,51079-0128-08 ",.01)
  1. ;;51079-0128-08
  1. ;;9002226.02101,"868,51079-0128-08 ",.02)
  1. ;;51079-0128-08
  1. ;;9002226.02101,"868,51079-0128-20 ",.01)
  1. ;;51079-0128-20
  1. ;;9002226.02101,"868,51079-0128-20 ",.02)
  1. ;;51079-0128-20
  1. ;;9002226.02101,"868,51079-0128-90 ",.01)
  1. ;;51079-0128-90
  1. ;;9002226.02101,"868,51079-0128-90 ",.02)
  1. ;;51079-0128-90
  1. ;;9002226.02101,"868,51079-0128-92 ",.01)
  1. ;;51079-0128-92
  1. ;;9002226.02101,"868,51079-0128-92 ",.02)
  1. ;;51079-0128-92
  1. ;;9002226.02101,"868,51079-0181-01 ",.01)
  1. ;;51079-0181-01
  1. ;;9002226.02101,"868,51079-0181-01 ",.02)
  1. ;;51079-0181-01
  1. ;;9002226.02101,"868,51079-0181-20 ",.01)
  1. ;;51079-0181-20
  1. ;;9002226.02101,"868,51079-0181-20 ",.02)
  1. ;;51079-0181-20
  1. ;;9002226.02101,"868,51079-0182-01 ",.01)
  1. ;;51079-0182-01
  1. ;;9002226.02101,"868,51079-0182-01 ",.02)
  1. ;;51079-0182-01
  1. ;;9002226.02101,"868,51079-0182-20 ",.01)
  1. ;;51079-0182-20
  1. ;;9002226.02101,"868,51079-0182-20 ",.02)
  1. ;;51079-0182-20
  1. ;;9002226.02101,"868,51079-0265-01 ",.01)
  1. ;;51079-0265-01
  1. ;;9002226.02101,"868,51079-0265-01 ",.02)
  1. ;;51079-0265-01
  1. ;;9002226.02101,"868,51079-0265-20 ",.01)
  1. ;;51079-0265-20
  1. ;;9002226.02101,"868,51079-0265-20 ",.02)
  1. ;;51079-0265-20
  1. ;;9002226.02101,"868,51079-0267-01 ",.01)
  1. ;;51079-0267-01
  1. ;;9002226.02101,"868,51079-0267-01 ",.02)
  1. ;;51079-0267-01
  1. ;;9002226.02101,"868,51079-0267-20 ",.01)
  1. ;;51079-0267-20
  1. ;;9002226.02101,"868,51079-0267-20 ",.02)
  1. ;;51079-0267-20
  1. ;;9002226.02101,"868,51079-0402-01 ",.01)
  1. ;;51079-0402-01
  1. ;;9002226.02101,"868,51079-0402-01 ",.02)
  1. ;;51079-0402-01
  1. ;;9002226.02101,"868,51079-0402-20 ",.01)
  1. ;;51079-0402-20
  1. ;;9002226.02101,"868,51079-0402-20 ",.02)
  1. ;;51079-0402-20
  1. ;;9002226.02101,"868,51079-0403-01 ",.01)
  1. ;;51079-0403-01
  1. ;;9002226.02101,"868,51079-0403-01 ",.02)
  1. ;;51079-0403-01
  1. ;;9002226.02101,"868,51079-0403-20 ",.01)
  1. ;;51079-0403-20
  1. ;;9002226.02101,"868,51079-0403-20 ",.02)
  1. ;;51079-0403-20
  1. ;;9002226.02101,"868,51079-0591-01 ",.01)
  1. ;;51079-0591-01
  1. ;;9002226.02101,"868,51079-0591-01 ",.02)
  1. ;;51079-0591-01
  1. ;;9002226.02101,"868,51079-0591-20 ",.01)
  1. ;;51079-0591-20
  1. ;;9002226.02101,"868,51079-0591-20 ",.02)
  1. ;;51079-0591-20
  1. ;;9002226.02101,"868,51079-0598-01 ",.01)
  1. ;;51079-0598-01
  1. ;;9002226.02101,"868,51079-0598-01 ",.02)
  1. ;;51079-0598-01
  1. ;;9002226.02101,"868,51079-0598-17 ",.01)
  1. ;;51079-0598-17
  1. ;;9002226.02101,"868,51079-0598-17 ",.02)
  1. ;;51079-0598-17
  1. ;;9002226.02101,"868,51079-0598-19 ",.01)
  1. ;;51079-0598-19
  1. ;;9002226.02101,"868,51079-0598-19 ",.02)
  1. ;;51079-0598-19
  1. ;;9002226.02101,"868,51079-0598-20 ",.01)
  1. ;;51079-0598-20
  1. ;;9002226.02101,"868,51079-0598-20 ",.02)
  1. ;;51079-0598-20
  1. ;;9002226.02101,"868,51079-0601-01 ",.01)
  1. ;;51079-0601-01
  1. ;;9002226.02101,"868,51079-0601-01 ",.02)
  1. ;;51079-0601-01
  1. ;;9002226.02101,"868,51079-0601-20 ",.01)
  1. ;;51079-0601-20
  1. ;;9002226.02101,"868,51079-0601-20 ",.02)
  1. ;;51079-0601-20
  1. ;;9002226.02101,"868,51079-0604-01 ",.01)
  1. ;;51079-0604-01
  1. ;;9002226.02101,"868,51079-0604-01 ",.02)
  1. ;;51079-0604-01
  1. ;;9002226.02101,"868,51079-0604-20 ",.01)
  1. ;;51079-0604-20
  1. ;;9002226.02101,"868,51079-0604-20 ",.02)
  1. ;;51079-0604-20
  1. ;;9002226.02101,"868,51079-0605-01 ",.01)
  1. ;;51079-0605-01
  1. ;;9002226.02101,"868,51079-0605-01 ",.02)
  1. ;;51079-0605-01
  1. ;;9002226.02101,"868,51079-0605-20 ",.01)
  1. ;;51079-0605-20
  1. ;;9002226.02101,"868,51079-0605-20 ",.02)
  1. ;;51079-0605-20
  1. ;;9002226.02101,"868,51079-0672-01 ",.01)
  1. ;;51079-0672-01
  1. ;;9002226.02101,"868,51079-0672-01 ",.02)
  1. ;;51079-0672-01
  1. ;;9002226.02101,"868,51079-0672-20 ",.01)
  1. ;;51079-0672-20
  1. ;;9002226.02101,"868,51079-0672-20 ",.02)
  1. ;;51079-0672-20
  1. ;;9002226.02101,"868,51079-0673-01 ",.01)
  1. ;;51079-0673-01
  1. ;;9002226.02101,"868,51079-0673-01 ",.02)
  1. ;;51079-0673-01
  1. ;;9002226.02101,"868,51079-0673-06 ",.01)
  1. ;;51079-0673-06
  1. ;;9002226.02101,"868,51079-0673-06 ",.02)
  1. ;;51079-0673-06
  1. ;;9002226.02101,"868,51285-0445-21 ",.01)
  1. ;;51285-0445-21
  1. ;;9002226.02101,"868,51285-0445-21 ",.02)
  1. ;;51285-0445-21
  1. ;;9002226.02101,"868,51285-0445-22 ",.01)
  1. ;;51285-0445-22
  1. ;;9002226.02101,"868,51285-0445-22 ",.02)
  1. ;;51285-0445-22
  1. ;;9002226.02101,"868,51285-0445-23 ",.01)
  1. ;;51285-0445-23
  1. ;;9002226.02101,"868,51285-0445-23 ",.02)
  1. ;;51285-0445-23
  1. ;;9002226.02101,"868,51655-0009-52 ",.01)
  1. ;;51655-0009-52
  1. ;;9002226.02101,"868,51655-0009-52 ",.02)
  1. ;;51655-0009-52
  1. ;;9002226.02101,"868,51655-0009-87 ",.01)
  1. ;;51655-0009-87
  1. ;;9002226.02101,"868,51655-0009-87 ",.02)
  1. ;;51655-0009-87
  1. ;;9002226.02101,"868,51655-0010-24 ",.01)
  1. ;;51655-0010-24
  1. ;;9002226.02101,"868,51655-0010-24 ",.02)
  1. ;;51655-0010-24
  1. ;;9002226.02101,"868,51655-0010-29 ",.01)
  1. ;;51655-0010-29
  1. ;;9002226.02101,"868,51655-0010-29 ",.02)
  1. ;;51655-0010-29
  1. ;;9002226.02101,"868,51655-0010-51 ",.01)
  1. ;;51655-0010-51
  1. ;;9002226.02101,"868,51655-0010-51 ",.02)
  1. ;;51655-0010-51
  1. ;;9002226.02101,"868,51655-0010-52 ",.01)
  1. ;;51655-0010-52
  1. ;;9002226.02101,"868,51655-0010-52 ",.02)
  1. ;;51655-0010-52
  1. ;;9002226.02101,"868,51655-0024-87 ",.01)
  1. ;;51655-0024-87
  1. ;;9002226.02101,"868,51655-0024-87 ",.02)
  1. ;;51655-0024-87
  1. ;;9002226.02101,"868,51655-0075-87 ",.01)
  1. ;;51655-0075-87
  1. ;;9002226.02101,"868,51655-0075-87 ",.02)
  1. ;;51655-0075-87
  1. ;;9002226.02101,"868,51655-0097-27 ",.01)
  1. ;;51655-0097-27
  1. ;;9002226.02101,"868,51655-0097-27 ",.02)
  1. ;;51655-0097-27
  1. ;;9002226.02101,"868,51655-0110-31 ",.01)
  1. ;;51655-0110-31
  1. ;;9002226.02101,"868,51655-0110-31 ",.02)
  1. ;;51655-0110-31
  1. ;;9002226.02101,"868,51655-0112-31 ",.01)
  1. ;;51655-0112-31
  1. ;;9002226.02101,"868,51655-0112-31 ",.02)
  1. ;;51655-0112-31
  1. ;;9002226.02101,"868,51655-0112-51 ",.01)
  1. ;;51655-0112-51
  1. ;;9002226.02101,"868,51655-0112-51 ",.02)
  1. ;;51655-0112-51
  1. ;;9002226.02101,"868,51655-0112-53 ",.01)
  1. ;;51655-0112-53
  1. ;;9002226.02101,"868,51655-0112-53 ",.02)
  1. ;;51655-0112-53
  1. ;;9002226.02101,"868,51655-0115-84 ",.01)
  1. ;;51655-0115-84
  1. ;;9002226.02101,"868,51655-0115-84 ",.02)
  1. ;;51655-0115-84
  1. ;;9002226.02101,"868,51655-0115-87 ",.01)
  1. ;;51655-0115-87
  1. ;;9002226.02101,"868,51655-0115-87 ",.02)
  1. ;;51655-0115-87
  1. ;;9002226.02101,"868,51655-0118-29 ",.01)
  1. ;;51655-0118-29
  1. ;;9002226.02101,"868,51655-0118-29 ",.02)
  1. ;;51655-0118-29
  1. ;;9002226.02101,"868,51655-0118-47 ",.01)
  1. ;;51655-0118-47
  1. ;;9002226.02101,"868,51655-0118-47 ",.02)
  1. ;;51655-0118-47
  1. ;;9002226.02101,"868,51655-0118-52 ",.01)
  1. ;;51655-0118-52
  1. ;;9002226.02101,"868,51655-0118-52 ",.02)
  1. ;;51655-0118-52
  1. ;;9002226.02101,"868,51655-0118-53 ",.01)
  1. ;;51655-0118-53
  1. ;;9002226.02101,"868,51655-0118-53 ",.02)
  1. ;;51655-0118-53
  1. ;;9002226.02101,"868,51655-0118-84 ",.01)
  1. ;;51655-0118-84
  1. ;;9002226.02101,"868,51655-0118-84 ",.02)
  1. ;;51655-0118-84
  1. ;;9002226.02101,"868,51655-0118-87 ",.01)
  1. ;;51655-0118-87
  1. ;;9002226.02101,"868,51655-0118-87 ",.02)
  1. ;;51655-0118-87
  1. ;;9002226.02101,"868,51655-0120-29 ",.01)
  1. ;;51655-0120-29
  1. ;;9002226.02101,"868,51655-0120-29 ",.02)
  1. ;;51655-0120-29
  1. ;;9002226.02101,"868,51655-0186-29 ",.01)
  1. ;;51655-0186-29
  1. ;;9002226.02101,"868,51655-0186-29 ",.02)
  1. ;;51655-0186-29
  1. ;;9002226.02101,"868,51655-0194-29 ",.01)
  1. ;;51655-0194-29
  1. ;;9002226.02101,"868,51655-0194-29 ",.02)
  1. ;;51655-0194-29
  1. ;;9002226.02101,"868,51655-0297-51 ",.01)
  1. ;;51655-0297-51
  1. ;;9002226.02101,"868,51655-0297-51 ",.02)
  1. ;;51655-0297-51
  1. ;;9002226.02101,"868,51655-0412-24 ",.01)
  1. ;;51655-0412-24
  1. ;;9002226.02101,"868,51655-0412-24 ",.02)
  1. ;;51655-0412-24
  1. ;;9002226.02101,"868,51655-0480-24 ",.01)
  1. ;;51655-0480-24
  1. ;;9002226.02101,"868,51655-0480-24 ",.02)
  1. ;;51655-0480-24
  1. ;;9002226.02101,"868,51655-0519-29 ",.01)
  1. ;;51655-0519-29
  1. ;;9002226.02101,"868,51655-0519-29 ",.02)
  1. ;;51655-0519-29
  1. ;;9002226.02101,"868,51655-0519-51 ",.01)
  1. ;;51655-0519-51
  1. ;;9002226.02101,"868,51655-0519-51 ",.02)
  1. ;;51655-0519-51
  1. ;;9002226.02101,"868,51655-0537-84 ",.01)
  1. ;;51655-0537-84
  1. ;;9002226.02101,"868,51655-0537-84 ",.02)
  1. ;;51655-0537-84
  1. ;;9002226.02101,"868,51655-0537-87 ",.01)
  1. ;;51655-0537-87
  1. ;;9002226.02101,"868,51655-0537-87 ",.02)
  1. ;;51655-0537-87
  1. ;;9002226.02101,"868,51655-0917-24 ",.01)
  1. ;;51655-0917-24
  1. ;;9002226.02101,"868,51655-0917-24 ",.02)
  1. ;;51655-0917-24
  1. ;;9002226.02101,"868,51655-0964-24 ",.01)
  1. ;;51655-0964-24
  1. ;;9002226.02101,"868,51655-0964-24 ",.02)
  1. ;;51655-0964-24
  1. ;;9002226.02101,"868,51655-0964-29 ",.01)
  1. ;;51655-0964-29
  1. ;;9002226.02101,"868,51655-0964-29 ",.02)
  1. ;;51655-0964-29
  1. ;;9002226.02101,"868,51655-0964-52 ",.01)
  1. ;;51655-0964-52
  1. ;;9002226.02101,"868,51655-0964-52 ",.02)
  1. ;;51655-0964-52
  1. ;;9002226.02101,"868,51655-0964-89 ",.01)
  1. ;;51655-0964-89
  1. ;;9002226.02101,"868,51655-0964-89 ",.02)
  1. ;;51655-0964-89
  1. ;;9002226.02101,"868,51862-0557-12 ",.01)
  1. ;;51862-0557-12
  1. ;;9002226.02101,"868,51862-0557-12 ",.02)
  1. ;;51862-0557-12
  1. ;;9002226.02101,"868,51862-0558-06 ",.01)
  1. ;;51862-0558-06
  1. ;;9002226.02101,"868,51862-0558-06 ",.02)
  1. ;;51862-0558-06
  1. ;;9002226.02101,"868,51991-0034-52 ",.01)
  1. ;;51991-0034-52
  1. ;;9002226.02101,"868,51991-0034-52 ",.02)
  1. ;;51991-0034-52
  1. ;;9002226.02101,"868,52533-0014-42 ",.01)
  1. ;;52533-0014-42
  1. ;;9002226.02101,"868,52533-0014-42 ",.02)
  1. ;;52533-0014-42
  1. ;;9002226.02101,"868,52533-0015-14 ",.01)
  1. ;;52533-0015-14
  1. ;;9002226.02101,"868,52533-0015-14 ",.02)
  1. ;;52533-0015-14
  1. ;;9002226.02101,"868,52533-0113-42 ",.01)
  1. ;;52533-0113-42
  1. ;;9002226.02101,"868,52533-0113-42 ",.02)
  1. ;;52533-0113-42
  1. ;;9002226.02101,"868,52555-0771-01 ",.01)
  1. ;;52555-0771-01
  1. ;;9002226.02101,"868,52555-0771-01 ",.02)
  1. ;;52555-0771-01
  1. ;;9002226.02101,"868,52959-0004-05 ",.01)
  1. ;;52959-0004-05
  1. ;;9002226.02101,"868,52959-0004-05 ",.02)
  1. ;;52959-0004-05
  1. ;;9002226.02101,"868,52959-0011-20 ",.01)
  1. ;;52959-0011-20
  1. ;;9002226.02101,"868,52959-0011-20 ",.02)
  1. ;;52959-0011-20
  1. ;;9002226.02101,"868,52959-0011-21 ",.01)
  1. ;;52959-0011-21
  1. ;;9002226.02101,"868,52959-0011-21 ",.02)
  1. ;;52959-0011-21
  1. ;;9002226.02101,"868,52959-0011-24 ",.01)
  1. ;;52959-0011-24
  1. ;;9002226.02101,"868,52959-0011-24 ",.02)
  1. ;;52959-0011-24
  1. ;;9002226.02101,"868,52959-0011-30 ",.01)
  1. ;;52959-0011-30
  1. ;;9002226.02101,"868,52959-0011-30 ",.02)
  1. ;;52959-0011-30
  1. ;;9002226.02101,"868,52959-0011-40 ",.01)
  1. ;;52959-0011-40
  1. ;;9002226.02101,"868,52959-0011-40 ",.02)
  1. ;;52959-0011-40
  1. ;;9002226.02101,"868,52959-0011-60 ",.01)
  1. ;;52959-0011-60