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

BGP47D41.m

Go to the documentation of this file.
BGP47D41 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"734,33358-0071-40 ",.02)
 ;;33358-0071-40
 ;;9002226.02101,"734,33358-0071-60 ",.01)
 ;;33358-0071-60
 ;;9002226.02101,"734,33358-0071-60 ",.02)
 ;;33358-0071-60
 ;;9002226.02101,"734,33358-0072-14 ",.01)
 ;;33358-0072-14
 ;;9002226.02101,"734,33358-0072-14 ",.02)
 ;;33358-0072-14
 ;;9002226.02101,"734,33358-0072-15 ",.01)
 ;;33358-0072-15
 ;;9002226.02101,"734,33358-0072-15 ",.02)
 ;;33358-0072-15
 ;;9002226.02101,"734,33358-0072-20 ",.01)
 ;;33358-0072-20
 ;;9002226.02101,"734,33358-0072-20 ",.02)
 ;;33358-0072-20
 ;;9002226.02101,"734,33358-0072-21 ",.01)
 ;;33358-0072-21
 ;;9002226.02101,"734,33358-0072-21 ",.02)
 ;;33358-0072-21
 ;;9002226.02101,"734,33358-0072-28 ",.01)
 ;;33358-0072-28
 ;;9002226.02101,"734,33358-0072-28 ",.02)
 ;;33358-0072-28
 ;;9002226.02101,"734,33358-0072-30 ",.01)
 ;;33358-0072-30
 ;;9002226.02101,"734,33358-0072-30 ",.02)
 ;;33358-0072-30
 ;;9002226.02101,"734,33358-0072-40 ",.01)
 ;;33358-0072-40
 ;;9002226.02101,"734,33358-0072-40 ",.02)
 ;;33358-0072-40
 ;;9002226.02101,"734,33358-0072-60 ",.01)
 ;;33358-0072-60
 ;;9002226.02101,"734,33358-0072-60 ",.02)
 ;;33358-0072-60
 ;;9002226.02101,"734,33358-0080-01 ",.01)
 ;;33358-0080-01
 ;;9002226.02101,"734,33358-0080-01 ",.02)
 ;;33358-0080-01
 ;;9002226.02101,"734,33358-0080-06 ",.01)
 ;;33358-0080-06
 ;;9002226.02101,"734,33358-0080-06 ",.02)
 ;;33358-0080-06
 ;;9002226.02101,"734,33358-0081-01 ",.01)
 ;;33358-0081-01
 ;;9002226.02101,"734,33358-0081-01 ",.02)
 ;;33358-0081-01
 ;;9002226.02101,"734,33358-0081-06 ",.01)
 ;;33358-0081-06
 ;;9002226.02101,"734,33358-0081-06 ",.02)
 ;;33358-0081-06
 ;;9002226.02101,"734,33358-0081-10 ",.01)
 ;;33358-0081-10
 ;;9002226.02101,"734,33358-0081-10 ",.02)
 ;;33358-0081-10
 ;;9002226.02101,"734,33358-0081-14 ",.01)
 ;;33358-0081-14
 ;;9002226.02101,"734,33358-0081-14 ",.02)
 ;;33358-0081-14
 ;;9002226.02101,"734,33358-0081-20 ",.01)
 ;;33358-0081-20
 ;;9002226.02101,"734,33358-0081-20 ",.02)
 ;;33358-0081-20
 ;;9002226.02101,"734,33358-0081-28 ",.01)
 ;;33358-0081-28
 ;;9002226.02101,"734,33358-0081-28 ",.02)
 ;;33358-0081-28
 ;;9002226.02101,"734,33358-0081-30 ",.01)
 ;;33358-0081-30
 ;;9002226.02101,"734,33358-0081-30 ",.02)
 ;;33358-0081-30
 ;;9002226.02101,"734,33358-0081-60 ",.01)
 ;;33358-0081-60
 ;;9002226.02101,"734,33358-0081-60 ",.02)
 ;;33358-0081-60
 ;;9002226.02101,"734,33358-0086-20 ",.01)
 ;;33358-0086-20
 ;;9002226.02101,"734,33358-0086-20 ",.02)
 ;;33358-0086-20
 ;;9002226.02101,"734,33358-0087-14 ",.01)
 ;;33358-0087-14
 ;;9002226.02101,"734,33358-0087-14 ",.02)
 ;;33358-0087-14
 ;;9002226.02101,"734,33358-0088-12 ",.01)
 ;;33358-0088-12
 ;;9002226.02101,"734,33358-0088-12 ",.02)
 ;;33358-0088-12
 ;;9002226.02101,"734,33358-0088-28 ",.01)
 ;;33358-0088-28
 ;;9002226.02101,"734,33358-0088-28 ",.02)
 ;;33358-0088-28
 ;;9002226.02101,"734,33358-0088-30 ",.01)
 ;;33358-0088-30
 ;;9002226.02101,"734,33358-0088-30 ",.02)
 ;;33358-0088-30
 ;;9002226.02101,"734,33358-0089-20 ",.01)
 ;;33358-0089-20
 ;;9002226.02101,"734,33358-0089-20 ",.02)
 ;;33358-0089-20
 ;;9002226.02101,"734,33358-0089-30 ",.01)
 ;;33358-0089-30
 ;;9002226.02101,"734,33358-0089-30 ",.02)
 ;;33358-0089-30
 ;;9002226.02101,"734,33358-0106-14 ",.01)
 ;;33358-0106-14
 ;;9002226.02101,"734,33358-0106-14 ",.02)
 ;;33358-0106-14
 ;;9002226.02101,"734,33358-0106-20 ",.01)
 ;;33358-0106-20
 ;;9002226.02101,"734,33358-0106-20 ",.02)
 ;;33358-0106-20
 ;;9002226.02101,"734,33358-0106-30 ",.01)
 ;;33358-0106-30
 ;;9002226.02101,"734,33358-0106-30 ",.02)
 ;;33358-0106-30
 ;;9002226.02101,"734,33358-0106-40 ",.01)
 ;;33358-0106-40
 ;;9002226.02101,"734,33358-0106-40 ",.02)
 ;;33358-0106-40
 ;;9002226.02101,"734,33358-0107-14 ",.01)
 ;;33358-0107-14
 ;;9002226.02101,"734,33358-0107-14 ",.02)
 ;;33358-0107-14
 ;;9002226.02101,"734,33358-0107-20 ",.01)
 ;;33358-0107-20
 ;;9002226.02101,"734,33358-0107-20 ",.02)
 ;;33358-0107-20
 ;;9002226.02101,"734,33358-0107-30 ",.01)
 ;;33358-0107-30
 ;;9002226.02101,"734,33358-0107-30 ",.02)
 ;;33358-0107-30
 ;;9002226.02101,"734,33358-0107-40 ",.01)
 ;;33358-0107-40
 ;;9002226.02101,"734,33358-0107-40 ",.02)
 ;;33358-0107-40
 ;;9002226.02101,"734,33358-0120-14 ",.01)
 ;;33358-0120-14
 ;;9002226.02101,"734,33358-0120-14 ",.02)
 ;;33358-0120-14
 ;;9002226.02101,"734,33358-0120-20 ",.01)
 ;;33358-0120-20
 ;;9002226.02101,"734,33358-0120-20 ",.02)
 ;;33358-0120-20
 ;;9002226.02101,"734,33358-0120-30 ",.01)
 ;;33358-0120-30
 ;;9002226.02101,"734,33358-0120-30 ",.02)
 ;;33358-0120-30
 ;;9002226.02101,"734,33358-0120-40 ",.01)
 ;;33358-0120-40
 ;;9002226.02101,"734,33358-0120-40 ",.02)
 ;;33358-0120-40
 ;;9002226.02101,"734,33358-0120-60 ",.01)
 ;;33358-0120-60
 ;;9002226.02101,"734,33358-0120-60 ",.02)
 ;;33358-0120-60
 ;;9002226.02101,"734,33358-0121-20 ",.01)
 ;;33358-0121-20
 ;;9002226.02101,"734,33358-0121-20 ",.02)
 ;;33358-0121-20
 ;;9002226.02101,"734,33358-0121-30 ",.01)
 ;;33358-0121-30
 ;;9002226.02101,"734,33358-0121-30 ",.02)
 ;;33358-0121-30
 ;;9002226.02101,"734,33358-0132-30 ",.01)
 ;;33358-0132-30
 ;;9002226.02101,"734,33358-0132-30 ",.02)
 ;;33358-0132-30
 ;;9002226.02101,"734,33358-0133-28 ",.01)
 ;;33358-0133-28
 ;;9002226.02101,"734,33358-0133-28 ",.02)
 ;;33358-0133-28
 ;;9002226.02101,"734,33358-0202-00 ",.01)
 ;;33358-0202-00
 ;;9002226.02101,"734,33358-0202-00 ",.02)
 ;;33358-0202-00
 ;;9002226.02101,"734,33358-0202-10 ",.01)
 ;;33358-0202-10
 ;;9002226.02101,"734,33358-0202-10 ",.02)
 ;;33358-0202-10
 ;;9002226.02101,"734,33358-0202-30 ",.01)
 ;;33358-0202-30
 ;;9002226.02101,"734,33358-0202-30 ",.02)
 ;;33358-0202-30
 ;;9002226.02101,"734,33358-0202-60 ",.01)
 ;;33358-0202-60
 ;;9002226.02101,"734,33358-0202-60 ",.02)
 ;;33358-0202-60
 ;;9002226.02101,"734,33358-0272-06 ",.01)
 ;;33358-0272-06
 ;;9002226.02101,"734,33358-0272-06 ",.02)
 ;;33358-0272-06
 ;;9002226.02101,"734,33358-0284-20 ",.01)
 ;;33358-0284-20
 ;;9002226.02101,"734,33358-0284-20 ",.02)
 ;;33358-0284-20
 ;;9002226.02101,"734,33358-0284-30 ",.01)
 ;;33358-0284-30
 ;;9002226.02101,"734,33358-0284-30 ",.02)
 ;;33358-0284-30
 ;;9002226.02101,"734,33358-0284-40 ",.01)
 ;;33358-0284-40
 ;;9002226.02101,"734,33358-0284-40 ",.02)
 ;;33358-0284-40
 ;;9002226.02101,"734,33358-0284-60 ",.01)
 ;;33358-0284-60
 ;;9002226.02101,"734,33358-0284-60 ",.02)
 ;;33358-0284-60
 ;;9002226.02101,"734,33358-0285-20 ",.01)
 ;;33358-0285-20
 ;;9002226.02101,"734,33358-0285-20 ",.02)
 ;;33358-0285-20
 ;;9002226.02101,"734,33358-0285-30 ",.01)
 ;;33358-0285-30
 ;;9002226.02101,"734,33358-0285-30 ",.02)
 ;;33358-0285-30
 ;;9002226.02101,"734,33358-0285-40 ",.01)
 ;;33358-0285-40
 ;;9002226.02101,"734,33358-0285-40 ",.02)
 ;;33358-0285-40
 ;;9002226.02101,"734,33358-0285-60 ",.01)
 ;;33358-0285-60
 ;;9002226.02101,"734,33358-0285-60 ",.02)
 ;;33358-0285-60
 ;;9002226.02101,"734,33358-0329-06 ",.01)
 ;;33358-0329-06
 ;;9002226.02101,"734,33358-0329-06 ",.02)
 ;;33358-0329-06
 ;;9002226.02101,"734,33358-0329-14 ",.01)
 ;;33358-0329-14
 ;;9002226.02101,"734,33358-0329-14 ",.02)
 ;;33358-0329-14
 ;;9002226.02101,"734,33358-0329-20 ",.01)
 ;;33358-0329-20
 ;;9002226.02101,"734,33358-0329-20 ",.02)
 ;;33358-0329-20
 ;;9002226.02101,"734,33358-0329-30 ",.01)
 ;;33358-0329-30
 ;;9002226.02101,"734,33358-0329-30 ",.02)
 ;;33358-0329-30
 ;;9002226.02101,"734,33358-0334-20 ",.01)
 ;;33358-0334-20
 ;;9002226.02101,"734,33358-0334-20 ",.02)
 ;;33358-0334-20
 ;;9002226.02101,"734,33358-0334-40 ",.01)
 ;;33358-0334-40
 ;;9002226.02101,"734,33358-0334-40 ",.02)
 ;;33358-0334-40
 ;;9002226.02101,"734,33358-0334-60 ",.01)
 ;;33358-0334-60
 ;;9002226.02101,"734,33358-0334-60 ",.02)
 ;;33358-0334-60
 ;;9002226.02101,"734,33358-0335-40 ",.01)
 ;;33358-0335-40
 ;;9002226.02101,"734,33358-0335-40 ",.02)
 ;;33358-0335-40
 ;;9002226.02101,"734,33358-0335-56 ",.01)
 ;;33358-0335-56
 ;;9002226.02101,"734,33358-0335-56 ",.02)
 ;;33358-0335-56
 ;;9002226.02101,"734,33358-0367-01 ",.01)
 ;;33358-0367-01
 ;;9002226.02101,"734,33358-0367-01 ",.02)
 ;;33358-0367-01
 ;;9002226.02101,"734,33358-0367-03 ",.01)
 ;;33358-0367-03
 ;;9002226.02101,"734,33358-0367-03 ",.02)
 ;;33358-0367-03
 ;;9002226.02101,"734,33358-0368-04 ",.01)
 ;;33358-0368-04
 ;;9002226.02101,"734,33358-0368-04 ",.02)
 ;;33358-0368-04
 ;;9002226.02101,"734,33358-0368-30 ",.01)
 ;;33358-0368-30
 ;;9002226.02101,"734,33358-0368-30 ",.02)
 ;;33358-0368-30
 ;;9002226.02101,"734,33358-0368-50 ",.01)
 ;;33358-0368-50
 ;;9002226.02101,"734,33358-0368-50 ",.02)
 ;;33358-0368-50
 ;;9002226.02101,"734,35356-0017-03 ",.01)
 ;;35356-0017-03
 ;;9002226.02101,"734,35356-0017-03 ",.02)
 ;;35356-0017-03
 ;;9002226.02101,"734,35356-0025-14 ",.01)
 ;;35356-0025-14
 ;;9002226.02101,"734,35356-0025-14 ",.02)
 ;;35356-0025-14
 ;;9002226.02101,"734,35356-0037-40 ",.01)
 ;;35356-0037-40
 ;;9002226.02101,"734,35356-0037-40 ",.02)
 ;;35356-0037-40
 ;;9002226.02101,"734,35356-0038-20 ",.01)
 ;;35356-0038-20
 ;;9002226.02101,"734,35356-0038-20 ",.02)
 ;;35356-0038-20
 ;;9002226.02101,"734,35356-0044-15 ",.01)
 ;;35356-0044-15
 ;;9002226.02101,"734,35356-0044-15 ",.02)
 ;;35356-0044-15
 ;;9002226.02101,"734,35356-0119-60 ",.01)
 ;;35356-0119-60
 ;;9002226.02101,"734,35356-0119-60 ",.02)
 ;;35356-0119-60
 ;;9002226.02101,"734,35356-0128-15 ",.01)
 ;;35356-0128-15
 ;;9002226.02101,"734,35356-0128-15 ",.02)
 ;;35356-0128-15
 ;;9002226.02101,"734,36000-0008-24 ",.01)
 ;;36000-0008-24
 ;;9002226.02101,"734,36000-0008-24 ",.02)
 ;;36000-0008-24
 ;;9002226.02101,"734,36000-0009-24 ",.01)
 ;;36000-0009-24
 ;;9002226.02101,"734,36000-0009-24 ",.02)
 ;;36000-0009-24
 ;;9002226.02101,"734,36000-0010-01 ",.01)
 ;;36000-0010-01
 ;;9002226.02101,"734,36000-0010-01 ",.02)
 ;;36000-0010-01
 ;;9002226.02101,"734,36000-0011-01 ",.01)
 ;;36000-0011-01
 ;;9002226.02101,"734,36000-0011-01 ",.02)
 ;;36000-0011-01
 ;;9002226.02101,"734,36000-0070-10 ",.01)
 ;;36000-0070-10
 ;;9002226.02101,"734,36000-0070-10 ",.02)
 ;;36000-0070-10
 ;;9002226.02101,"734,36000-0071-10 ",.01)
 ;;36000-0071-10
 ;;9002226.02101,"734,36000-0071-10 ",.02)
 ;;36000-0071-10
 ;;9002226.02101,"734,36000-0072-10 ",.01)
 ;;36000-0072-10
 ;;9002226.02101,"734,36000-0072-10 ",.02)
 ;;36000-0072-10
 ;;9002226.02101,"734,36000-0073-10 ",.01)
 ;;36000-0073-10
 ;;9002226.02101,"734,36000-0073-10 ",.02)
 ;;36000-0073-10
 ;;9002226.02101,"734,42043-0140-01 ",.01)
 ;;42043-0140-01
 ;;9002226.02101,"734,42043-0140-01 ",.02)
 ;;42043-0140-01
 ;;9002226.02101,"734,42043-0140-05 ",.01)
 ;;42043-0140-05
 ;;9002226.02101,"734,42043-0140-05 ",.02)
 ;;42043-0140-05
 ;;9002226.02101,"734,42043-0141-01 ",.01)
 ;;42043-0141-01
 ;;9002226.02101,"734,42043-0141-01 ",.02)
 ;;42043-0141-01
 ;;9002226.02101,"734,42043-0141-05 ",.01)
 ;;42043-0141-05
 ;;9002226.02101,"734,42043-0141-05 ",.02)
 ;;42043-0141-05
 ;;9002226.02101,"734,42043-0142-38 ",.01)
 ;;42043-0142-38
 ;;9002226.02101,"734,42043-0142-38 ",.02)
 ;;42043-0142-38
 ;;9002226.02101,"734,42043-0142-58 ",.01)
 ;;42043-0142-58
 ;;9002226.02101,"734,42043-0142-58 ",.02)
 ;;42043-0142-58
 ;;9002226.02101,"734,42043-0143-38 ",.01)
 ;;42043-0143-38
 ;;9002226.02101,"734,42043-0143-38 ",.02)
 ;;42043-0143-38
 ;;9002226.02101,"734,42043-0143-58 ",.01)
 ;;42043-0143-58
 ;;9002226.02101,"734,42043-0143-58 ",.02)
 ;;42043-0143-58
 ;;9002226.02101,"734,42291-0120-50 ",.01)
 ;;42291-0120-50
 ;;9002226.02101,"734,42291-0120-50 ",.02)
 ;;42291-0120-50
 ;;9002226.02101,"734,42291-0121-50 ",.01)
 ;;42291-0121-50
 ;;9002226.02101,"734,42291-0121-50 ",.02)
 ;;42291-0121-50
 ;;9002226.02101,"734,42291-0208-50 ",.01)
 ;;42291-0208-50
 ;;9002226.02101,"734,42291-0208-50 ",.02)
 ;;42291-0208-50
 ;;9002226.02101,"734,42291-0209-50 ",.01)
 ;;42291-0209-50
 ;;9002226.02101,"734,42291-0209-50 ",.02)
 ;;42291-0209-50
 ;;9002226.02101,"734,42291-0620-05 ",.01)
 ;;42291-0620-05
 ;;9002226.02101,"734,42291-0620-05 ",.02)
 ;;42291-0620-05
 ;;9002226.02101,"734,42291-0845-90 ",.01)
 ;;42291-0845-90
 ;;9002226.02101,"734,42291-0845-90 ",.02)
 ;;42291-0845-90
 ;;9002226.02101,"734,43063-0002-10 ",.01)
 ;;43063-0002-10
 ;;9002226.02101,"734,43063-0002-10 ",.02)
 ;;43063-0002-10
 ;;9002226.02101,"734,43063-0015-06 ",.01)
 ;;43063-0015-06
 ;;9002226.02101,"734,43063-0015-06 ",.02)
 ;;43063-0015-06
 ;;9002226.02101,"734,43063-0015-15 ",.01)
 ;;43063-0015-15
 ;;9002226.02101,"734,43063-0015-15 ",.02)
 ;;43063-0015-15
 ;;9002226.02101,"734,43063-0015-21 ",.01)
 ;;43063-0015-21
 ;;9002226.02101,"734,43063-0015-21 ",.02)
 ;;43063-0015-21
 ;;9002226.02101,"734,43063-0015-24 ",.01)
 ;;43063-0015-24
 ;;9002226.02101,"734,43063-0015-24 ",.02)
 ;;43063-0015-24
 ;;9002226.02101,"734,43063-0015-30 ",.01)
 ;;43063-0015-30
 ;;9002226.02101,"734,43063-0015-30 ",.02)
 ;;43063-0015-30
 ;;9002226.02101,"734,43063-0015-40 ",.01)
 ;;43063-0015-40
 ;;9002226.02101,"734,43063-0015-40 ",.02)
 ;;43063-0015-40
 ;;9002226.02101,"734,43063-0015-60 ",.01)
 ;;43063-0015-60
 ;;9002226.02101,"734,43063-0015-60 ",.02)
 ;;43063-0015-60
 ;;9002226.02101,"734,43063-0016-06 ",.01)
 ;;43063-0016-06
 ;;9002226.02101,"734,43063-0016-06 ",.02)
 ;;43063-0016-06
 ;;9002226.02101,"734,43063-0016-09 ",.01)
 ;;43063-0016-09
 ;;9002226.02101,"734,43063-0016-09 ",.02)
 ;;43063-0016-09
 ;;9002226.02101,"734,43063-0016-10 ",.01)
 ;;43063-0016-10
 ;;9002226.02101,"734,43063-0016-10 ",.02)
 ;;43063-0016-10
 ;;9002226.02101,"734,43063-0016-15 ",.01)
 ;;43063-0016-15