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

BGP62Y47.m

Go to the documentation of this file.
  1. BGP62Y47 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,33358-0133-28 ",.02)
  1. ;;33358-0133-28
  1. ;;9002226.02101,"868,33358-0202-00 ",.01)
  1. ;;33358-0202-00
  1. ;;9002226.02101,"868,33358-0202-00 ",.02)
  1. ;;33358-0202-00
  1. ;;9002226.02101,"868,33358-0202-10 ",.01)
  1. ;;33358-0202-10
  1. ;;9002226.02101,"868,33358-0202-10 ",.02)
  1. ;;33358-0202-10
  1. ;;9002226.02101,"868,33358-0202-30 ",.01)
  1. ;;33358-0202-30
  1. ;;9002226.02101,"868,33358-0202-30 ",.02)
  1. ;;33358-0202-30
  1. ;;9002226.02101,"868,33358-0202-60 ",.01)
  1. ;;33358-0202-60
  1. ;;9002226.02101,"868,33358-0202-60 ",.02)
  1. ;;33358-0202-60
  1. ;;9002226.02101,"868,33358-0272-06 ",.01)
  1. ;;33358-0272-06
  1. ;;9002226.02101,"868,33358-0272-06 ",.02)
  1. ;;33358-0272-06
  1. ;;9002226.02101,"868,33358-0284-20 ",.01)
  1. ;;33358-0284-20
  1. ;;9002226.02101,"868,33358-0284-20 ",.02)
  1. ;;33358-0284-20
  1. ;;9002226.02101,"868,33358-0284-30 ",.01)
  1. ;;33358-0284-30
  1. ;;9002226.02101,"868,33358-0284-30 ",.02)
  1. ;;33358-0284-30
  1. ;;9002226.02101,"868,33358-0284-40 ",.01)
  1. ;;33358-0284-40
  1. ;;9002226.02101,"868,33358-0284-40 ",.02)
  1. ;;33358-0284-40
  1. ;;9002226.02101,"868,33358-0284-60 ",.01)
  1. ;;33358-0284-60
  1. ;;9002226.02101,"868,33358-0284-60 ",.02)
  1. ;;33358-0284-60
  1. ;;9002226.02101,"868,33358-0285-20 ",.01)
  1. ;;33358-0285-20
  1. ;;9002226.02101,"868,33358-0285-20 ",.02)
  1. ;;33358-0285-20
  1. ;;9002226.02101,"868,33358-0285-30 ",.01)
  1. ;;33358-0285-30
  1. ;;9002226.02101,"868,33358-0285-30 ",.02)
  1. ;;33358-0285-30
  1. ;;9002226.02101,"868,33358-0285-40 ",.01)
  1. ;;33358-0285-40
  1. ;;9002226.02101,"868,33358-0285-40 ",.02)
  1. ;;33358-0285-40
  1. ;;9002226.02101,"868,33358-0285-60 ",.01)
  1. ;;33358-0285-60
  1. ;;9002226.02101,"868,33358-0285-60 ",.02)
  1. ;;33358-0285-60
  1. ;;9002226.02101,"868,33358-0329-06 ",.01)
  1. ;;33358-0329-06
  1. ;;9002226.02101,"868,33358-0329-06 ",.02)
  1. ;;33358-0329-06
  1. ;;9002226.02101,"868,33358-0329-14 ",.01)
  1. ;;33358-0329-14
  1. ;;9002226.02101,"868,33358-0329-14 ",.02)
  1. ;;33358-0329-14
  1. ;;9002226.02101,"868,33358-0329-20 ",.01)
  1. ;;33358-0329-20
  1. ;;9002226.02101,"868,33358-0329-20 ",.02)
  1. ;;33358-0329-20
  1. ;;9002226.02101,"868,33358-0329-30 ",.01)
  1. ;;33358-0329-30
  1. ;;9002226.02101,"868,33358-0329-30 ",.02)
  1. ;;33358-0329-30
  1. ;;9002226.02101,"868,33358-0334-20 ",.01)
  1. ;;33358-0334-20
  1. ;;9002226.02101,"868,33358-0334-20 ",.02)
  1. ;;33358-0334-20
  1. ;;9002226.02101,"868,33358-0334-40 ",.01)
  1. ;;33358-0334-40
  1. ;;9002226.02101,"868,33358-0334-40 ",.02)
  1. ;;33358-0334-40
  1. ;;9002226.02101,"868,33358-0334-60 ",.01)
  1. ;;33358-0334-60
  1. ;;9002226.02101,"868,33358-0334-60 ",.02)
  1. ;;33358-0334-60
  1. ;;9002226.02101,"868,33358-0335-40 ",.01)
  1. ;;33358-0335-40
  1. ;;9002226.02101,"868,33358-0335-40 ",.02)
  1. ;;33358-0335-40
  1. ;;9002226.02101,"868,33358-0335-56 ",.01)
  1. ;;33358-0335-56
  1. ;;9002226.02101,"868,33358-0335-56 ",.02)
  1. ;;33358-0335-56
  1. ;;9002226.02101,"868,33358-0367-01 ",.01)
  1. ;;33358-0367-01
  1. ;;9002226.02101,"868,33358-0367-01 ",.02)
  1. ;;33358-0367-01
  1. ;;9002226.02101,"868,33358-0367-03 ",.01)
  1. ;;33358-0367-03
  1. ;;9002226.02101,"868,33358-0367-03 ",.02)
  1. ;;33358-0367-03
  1. ;;9002226.02101,"868,33358-0368-04 ",.01)
  1. ;;33358-0368-04
  1. ;;9002226.02101,"868,33358-0368-04 ",.02)
  1. ;;33358-0368-04
  1. ;;9002226.02101,"868,33358-0368-30 ",.01)
  1. ;;33358-0368-30
  1. ;;9002226.02101,"868,33358-0368-30 ",.02)
  1. ;;33358-0368-30
  1. ;;9002226.02101,"868,33358-0368-50 ",.01)
  1. ;;33358-0368-50
  1. ;;9002226.02101,"868,33358-0368-50 ",.02)
  1. ;;33358-0368-50
  1. ;;9002226.02101,"868,35356-0017-03 ",.01)
  1. ;;35356-0017-03
  1. ;;9002226.02101,"868,35356-0017-03 ",.02)
  1. ;;35356-0017-03
  1. ;;9002226.02101,"868,35356-0025-14 ",.01)
  1. ;;35356-0025-14
  1. ;;9002226.02101,"868,35356-0025-14 ",.02)
  1. ;;35356-0025-14
  1. ;;9002226.02101,"868,35356-0037-40 ",.01)
  1. ;;35356-0037-40
  1. ;;9002226.02101,"868,35356-0037-40 ",.02)
  1. ;;35356-0037-40
  1. ;;9002226.02101,"868,35356-0038-20 ",.01)
  1. ;;35356-0038-20
  1. ;;9002226.02101,"868,35356-0038-20 ",.02)
  1. ;;35356-0038-20
  1. ;;9002226.02101,"868,35356-0044-15 ",.01)
  1. ;;35356-0044-15
  1. ;;9002226.02101,"868,35356-0044-15 ",.02)
  1. ;;35356-0044-15
  1. ;;9002226.02101,"868,35356-0119-60 ",.01)
  1. ;;35356-0119-60
  1. ;;9002226.02101,"868,35356-0119-60 ",.02)
  1. ;;35356-0119-60
  1. ;;9002226.02101,"868,35356-0128-15 ",.01)
  1. ;;35356-0128-15
  1. ;;9002226.02101,"868,35356-0128-15 ",.02)
  1. ;;35356-0128-15
  1. ;;9002226.02101,"868,35356-0666-06 ",.01)
  1. ;;35356-0666-06
  1. ;;9002226.02101,"868,35356-0666-06 ",.02)
  1. ;;35356-0666-06
  1. ;;9002226.02101,"868,35356-0666-10 ",.01)
  1. ;;35356-0666-10
  1. ;;9002226.02101,"868,35356-0666-10 ",.02)
  1. ;;35356-0666-10
  1. ;;9002226.02101,"868,35356-0666-14 ",.01)
  1. ;;35356-0666-14
  1. ;;9002226.02101,"868,35356-0666-14 ",.02)
  1. ;;35356-0666-14
  1. ;;9002226.02101,"868,35356-0666-20 ",.01)
  1. ;;35356-0666-20
  1. ;;9002226.02101,"868,35356-0666-20 ",.02)
  1. ;;35356-0666-20
  1. ;;9002226.02101,"868,35356-0666-28 ",.01)
  1. ;;35356-0666-28
  1. ;;9002226.02101,"868,35356-0666-28 ",.02)
  1. ;;35356-0666-28
  1. ;;9002226.02101,"868,35356-0666-30 ",.01)
  1. ;;35356-0666-30
  1. ;;9002226.02101,"868,35356-0666-30 ",.02)
  1. ;;35356-0666-30
  1. ;;9002226.02101,"868,35356-0666-60 ",.01)
  1. ;;35356-0666-60
  1. ;;9002226.02101,"868,35356-0666-60 ",.02)
  1. ;;35356-0666-60
  1. ;;9002226.02101,"868,35356-0666-90 ",.01)
  1. ;;35356-0666-90
  1. ;;9002226.02101,"868,35356-0666-90 ",.02)
  1. ;;35356-0666-90
  1. ;;9002226.02101,"868,35356-0732-10 ",.01)
  1. ;;35356-0732-10
  1. ;;9002226.02101,"868,35356-0732-10 ",.02)
  1. ;;35356-0732-10
  1. ;;9002226.02101,"868,35356-0732-14 ",.01)
  1. ;;35356-0732-14
  1. ;;9002226.02101,"868,35356-0732-14 ",.02)
  1. ;;35356-0732-14
  1. ;;9002226.02101,"868,35356-0732-20 ",.01)
  1. ;;35356-0732-20
  1. ;;9002226.02101,"868,35356-0732-20 ",.02)
  1. ;;35356-0732-20
  1. ;;9002226.02101,"868,35356-0732-30 ",.01)
  1. ;;35356-0732-30
  1. ;;9002226.02101,"868,35356-0732-30 ",.02)
  1. ;;35356-0732-30
  1. ;;9002226.02101,"868,36000-0008-24 ",.01)
  1. ;;36000-0008-24
  1. ;;9002226.02101,"868,36000-0008-24 ",.02)
  1. ;;36000-0008-24
  1. ;;9002226.02101,"868,36000-0009-24 ",.01)
  1. ;;36000-0009-24
  1. ;;9002226.02101,"868,36000-0009-24 ",.02)
  1. ;;36000-0009-24
  1. ;;9002226.02101,"868,36000-0010-01 ",.01)
  1. ;;36000-0010-01
  1. ;;9002226.02101,"868,36000-0010-01 ",.02)
  1. ;;36000-0010-01
  1. ;;9002226.02101,"868,36000-0011-01 ",.01)
  1. ;;36000-0011-01
  1. ;;9002226.02101,"868,36000-0011-01 ",.02)
  1. ;;36000-0011-01
  1. ;;9002226.02101,"868,36000-0045-01 ",.01)
  1. ;;36000-0045-01
  1. ;;9002226.02101,"868,36000-0045-01 ",.02)
  1. ;;36000-0045-01
  1. ;;9002226.02101,"868,36000-0046-24 ",.01)
  1. ;;36000-0046-24
  1. ;;9002226.02101,"868,36000-0046-24 ",.02)
  1. ;;36000-0046-24
  1. ;;9002226.02101,"868,36000-0047-24 ",.01)
  1. ;;36000-0047-24
  1. ;;9002226.02101,"868,36000-0047-24 ",.02)
  1. ;;36000-0047-24
  1. ;;9002226.02101,"868,36000-0048-24 ",.01)
  1. ;;36000-0048-24
  1. ;;9002226.02101,"868,36000-0048-24 ",.02)
  1. ;;36000-0048-24
  1. ;;9002226.02101,"868,36000-0070-10 ",.01)
  1. ;;36000-0070-10
  1. ;;9002226.02101,"868,36000-0070-10 ",.02)
  1. ;;36000-0070-10
  1. ;;9002226.02101,"868,36000-0071-10 ",.01)
  1. ;;36000-0071-10
  1. ;;9002226.02101,"868,36000-0071-10 ",.02)
  1. ;;36000-0071-10
  1. ;;9002226.02101,"868,36000-0072-10 ",.01)
  1. ;;36000-0072-10
  1. ;;9002226.02101,"868,36000-0072-10 ",.02)
  1. ;;36000-0072-10
  1. ;;9002226.02101,"868,36000-0073-10 ",.01)
  1. ;;36000-0073-10
  1. ;;9002226.02101,"868,36000-0073-10 ",.02)
  1. ;;36000-0073-10
  1. ;;9002226.02101,"868,42043-0140-01 ",.01)
  1. ;;42043-0140-01
  1. ;;9002226.02101,"868,42043-0140-01 ",.02)
  1. ;;42043-0140-01
  1. ;;9002226.02101,"868,42043-0140-05 ",.01)
  1. ;;42043-0140-05
  1. ;;9002226.02101,"868,42043-0140-05 ",.02)
  1. ;;42043-0140-05
  1. ;;9002226.02101,"868,42043-0141-01 ",.01)
  1. ;;42043-0141-01
  1. ;;9002226.02101,"868,42043-0141-01 ",.02)
  1. ;;42043-0141-01
  1. ;;9002226.02101,"868,42043-0141-05 ",.01)
  1. ;;42043-0141-05
  1. ;;9002226.02101,"868,42043-0141-05 ",.02)
  1. ;;42043-0141-05
  1. ;;9002226.02101,"868,42043-0142-38 ",.01)
  1. ;;42043-0142-38
  1. ;;9002226.02101,"868,42043-0142-38 ",.02)
  1. ;;42043-0142-38
  1. ;;9002226.02101,"868,42043-0142-58 ",.01)
  1. ;;42043-0142-58
  1. ;;9002226.02101,"868,42043-0142-58 ",.02)
  1. ;;42043-0142-58
  1. ;;9002226.02101,"868,42043-0143-38 ",.01)
  1. ;;42043-0143-38
  1. ;;9002226.02101,"868,42043-0143-38 ",.02)
  1. ;;42043-0143-38
  1. ;;9002226.02101,"868,42043-0143-58 ",.01)
  1. ;;42043-0143-58
  1. ;;9002226.02101,"868,42043-0143-58 ",.02)
  1. ;;42043-0143-58
  1. ;;9002226.02101,"868,42043-0251-38 ",.01)
  1. ;;42043-0251-38
  1. ;;9002226.02101,"868,42043-0251-38 ",.02)
  1. ;;42043-0251-38
  1. ;;9002226.02101,"868,42043-0252-67 ",.01)
  1. ;;42043-0252-67
  1. ;;9002226.02101,"868,42043-0252-67 ",.02)
  1. ;;42043-0252-67
  1. ;;9002226.02101,"868,42291-0120-50 ",.01)
  1. ;;42291-0120-50
  1. ;;9002226.02101,"868,42291-0120-50 ",.02)
  1. ;;42291-0120-50
  1. ;;9002226.02101,"868,42291-0121-50 ",.01)
  1. ;;42291-0121-50
  1. ;;9002226.02101,"868,42291-0121-50 ",.02)
  1. ;;42291-0121-50
  1. ;;9002226.02101,"868,42291-0208-50 ",.01)
  1. ;;42291-0208-50
  1. ;;9002226.02101,"868,42291-0208-50 ",.02)
  1. ;;42291-0208-50
  1. ;;9002226.02101,"868,42291-0209-50 ",.01)
  1. ;;42291-0209-50
  1. ;;9002226.02101,"868,42291-0209-50 ",.02)
  1. ;;42291-0209-50
  1. ;;9002226.02101,"868,42291-0219-01 ",.01)
  1. ;;42291-0219-01
  1. ;;9002226.02101,"868,42291-0219-01 ",.02)
  1. ;;42291-0219-01
  1. ;;9002226.02101,"868,42291-0248-30 ",.01)
  1. ;;42291-0248-30
  1. ;;9002226.02101,"868,42291-0248-30 ",.02)
  1. ;;42291-0248-30
  1. ;;9002226.02101,"868,42291-0248-31 ",.01)
  1. ;;42291-0248-31
  1. ;;9002226.02101,"868,42291-0248-31 ",.02)
  1. ;;42291-0248-31
  1. ;;9002226.02101,"868,42291-0589-90 ",.01)
  1. ;;42291-0589-90
  1. ;;9002226.02101,"868,42291-0589-90 ",.02)
  1. ;;42291-0589-90
  1. ;;9002226.02101,"868,42291-0591-60 ",.01)
  1. ;;42291-0591-60
  1. ;;9002226.02101,"868,42291-0591-60 ",.02)
  1. ;;42291-0591-60
  1. ;;9002226.02101,"868,42291-0620-05 ",.01)
  1. ;;42291-0620-05
  1. ;;9002226.02101,"868,42291-0620-05 ",.02)
  1. ;;42291-0620-05
  1. ;;9002226.02101,"868,42291-0620-50 ",.01)
  1. ;;42291-0620-50
  1. ;;9002226.02101,"868,42291-0620-50 ",.02)
  1. ;;42291-0620-50
  1. ;;9002226.02101,"868,42291-0845-90 ",.01)
  1. ;;42291-0845-90
  1. ;;9002226.02101,"868,42291-0845-90 ",.02)
  1. ;;42291-0845-90
  1. ;;9002226.02101,"868,42549-0504-14 ",.01)
  1. ;;42549-0504-14
  1. ;;9002226.02101,"868,42549-0504-14 ",.02)
  1. ;;42549-0504-14
  1. ;;9002226.02101,"868,42549-0531-20 ",.01)
  1. ;;42549-0531-20
  1. ;;9002226.02101,"868,42549-0531-20 ",.02)
  1. ;;42549-0531-20
  1. ;;9002226.02101,"868,42549-0532-28 ",.01)
  1. ;;42549-0532-28
  1. ;;9002226.02101,"868,42549-0532-28 ",.02)
  1. ;;42549-0532-28
  1. ;;9002226.02101,"868,42549-0532-60 ",.01)
  1. ;;42549-0532-60
  1. ;;9002226.02101,"868,42549-0532-60 ",.02)
  1. ;;42549-0532-60
  1. ;;9002226.02101,"868,42549-0565-04 ",.01)
  1. ;;42549-0565-04
  1. ;;9002226.02101,"868,42549-0565-04 ",.02)
  1. ;;42549-0565-04
  1. ;;9002226.02101,"868,42549-0565-10 ",.01)
  1. ;;42549-0565-10
  1. ;;9002226.02101,"868,42549-0565-10 ",.02)
  1. ;;42549-0565-10
  1. ;;9002226.02101,"868,42549-0565-28 ",.01)
  1. ;;42549-0565-28
  1. ;;9002226.02101,"868,42549-0565-28 ",.02)
  1. ;;42549-0565-28
  1. ;;9002226.02101,"868,42549-0565-30 ",.01)
  1. ;;42549-0565-30
  1. ;;9002226.02101,"868,42549-0565-30 ",.02)
  1. ;;42549-0565-30
  1. ;;9002226.02101,"868,42549-0565-40 ",.01)
  1. ;;42549-0565-40
  1. ;;9002226.02101,"868,42549-0565-40 ",.02)
  1. ;;42549-0565-40
  1. ;;9002226.02101,"868,42549-0570-20 ",.01)
  1. ;;42549-0570-20
  1. ;;9002226.02101,"868,42549-0570-20 ",.02)
  1. ;;42549-0570-20
  1. ;;9002226.02101,"868,42783-0610-30 ",.01)
  1. ;;42783-0610-30
  1. ;;9002226.02101,"868,42783-0610-30 ",.02)
  1. ;;42783-0610-30
  1. ;;9002226.02101,"868,42783-0610-60 ",.01)
  1. ;;42783-0610-60
  1. ;;9002226.02101,"868,42783-0610-60 ",.02)
  1. ;;42783-0610-60
  1. ;;9002226.02101,"868,43063-0002-10 ",.01)
  1. ;;43063-0002-10
  1. ;;9002226.02101,"868,43063-0002-10 ",.02)
  1. ;;43063-0002-10
  1. ;;9002226.02101,"868,43063-0015-04 ",.01)
  1. ;;43063-0015-04
  1. ;;9002226.02101,"868,43063-0015-04 ",.02)
  1. ;;43063-0015-04
  1. ;;9002226.02101,"868,43063-0015-06 ",.01)
  1. ;;43063-0015-06
  1. ;;9002226.02101,"868,43063-0015-06 ",.02)
  1. ;;43063-0015-06
  1. ;;9002226.02101,"868,43063-0015-15 ",.01)
  1. ;;43063-0015-15