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