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

BGP48K10.m

Go to the documentation of this file.
BGP48K10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 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,"1813,33261-0990-30 ",.01)
 ;;33261-0990-30
 ;;9002226.02101,"1813,33261-0990-30 ",.02)
 ;;33261-0990-30
 ;;9002226.02101,"1813,33261-0990-60 ",.01)
 ;;33261-0990-60
 ;;9002226.02101,"1813,33261-0990-60 ",.02)
 ;;33261-0990-60
 ;;9002226.02101,"1813,33261-0990-90 ",.01)
 ;;33261-0990-90
 ;;9002226.02101,"1813,33261-0990-90 ",.02)
 ;;33261-0990-90
 ;;9002226.02101,"1813,33358-0360-00 ",.01)
 ;;33358-0360-00
 ;;9002226.02101,"1813,33358-0360-00 ",.02)
 ;;33358-0360-00
 ;;9002226.02101,"1813,33358-0361-30 ",.01)
 ;;33358-0361-30
 ;;9002226.02101,"1813,33358-0361-30 ",.02)
 ;;33358-0361-30
 ;;9002226.02101,"1813,35356-0018-10 ",.01)
 ;;35356-0018-10
 ;;9002226.02101,"1813,35356-0018-10 ",.02)
 ;;35356-0018-10
 ;;9002226.02101,"1813,35356-0019-10 ",.01)
 ;;35356-0019-10
 ;;9002226.02101,"1813,35356-0019-10 ",.02)
 ;;35356-0019-10
 ;;9002226.02101,"1813,35356-0020-10 ",.01)
 ;;35356-0020-10
 ;;9002226.02101,"1813,35356-0020-10 ",.02)
 ;;35356-0020-10
 ;;9002226.02101,"1813,35356-0078-02 ",.01)
 ;;35356-0078-02
 ;;9002226.02101,"1813,35356-0078-02 ",.02)
 ;;35356-0078-02
 ;;9002226.02101,"1813,35356-0078-10 ",.01)
 ;;35356-0078-10
 ;;9002226.02101,"1813,35356-0078-10 ",.02)
 ;;35356-0078-10
 ;;9002226.02101,"1813,35356-0079-02 ",.01)
 ;;35356-0079-02
 ;;9002226.02101,"1813,35356-0079-02 ",.02)
 ;;35356-0079-02
 ;;9002226.02101,"1813,35356-0079-10 ",.01)
 ;;35356-0079-10
 ;;9002226.02101,"1813,35356-0079-10 ",.02)
 ;;35356-0079-10
 ;;9002226.02101,"1813,35356-0080-02 ",.01)
 ;;35356-0080-02
 ;;9002226.02101,"1813,35356-0080-02 ",.02)
 ;;35356-0080-02
 ;;9002226.02101,"1813,35356-0080-10 ",.01)
 ;;35356-0080-10
 ;;9002226.02101,"1813,35356-0080-10 ",.02)
 ;;35356-0080-10
 ;;9002226.02101,"1813,35356-0081-02 ",.01)
 ;;35356-0081-02
 ;;9002226.02101,"1813,35356-0081-02 ",.02)
 ;;35356-0081-02
 ;;9002226.02101,"1813,35356-0081-10 ",.01)
 ;;35356-0081-10
 ;;9002226.02101,"1813,35356-0081-10 ",.02)
 ;;35356-0081-10
 ;;9002226.02101,"1813,35356-0397-30 ",.01)
 ;;35356-0397-30
 ;;9002226.02101,"1813,35356-0397-30 ",.02)
 ;;35356-0397-30
 ;;9002226.02101,"1813,35356-0397-60 ",.01)
 ;;35356-0397-60
 ;;9002226.02101,"1813,35356-0397-60 ",.02)
 ;;35356-0397-60
 ;;9002226.02101,"1813,35356-0397-90 ",.01)
 ;;35356-0397-90
 ;;9002226.02101,"1813,35356-0397-90 ",.02)
 ;;35356-0397-90
 ;;9002226.02101,"1813,35356-0481-10 ",.01)
 ;;35356-0481-10
 ;;9002226.02101,"1813,35356-0481-10 ",.02)
 ;;35356-0481-10
 ;;9002226.02101,"1813,35356-0540-90 ",.01)
 ;;35356-0540-90
 ;;9002226.02101,"1813,35356-0540-90 ",.02)
 ;;35356-0540-90
 ;;9002226.02101,"1813,35356-0571-30 ",.01)
 ;;35356-0571-30
 ;;9002226.02101,"1813,35356-0571-30 ",.02)
 ;;35356-0571-30
 ;;9002226.02101,"1813,35356-0571-60 ",.01)
 ;;35356-0571-60
 ;;9002226.02101,"1813,35356-0571-60 ",.02)
 ;;35356-0571-60
 ;;9002226.02101,"1813,35356-0571-90 ",.01)
 ;;35356-0571-90
 ;;9002226.02101,"1813,35356-0571-90 ",.02)
 ;;35356-0571-90
 ;;9002226.02101,"1813,35356-0582-30 ",.01)
 ;;35356-0582-30
 ;;9002226.02101,"1813,35356-0582-30 ",.02)
 ;;35356-0582-30
 ;;9002226.02101,"1813,35356-0582-60 ",.01)
 ;;35356-0582-60
 ;;9002226.02101,"1813,35356-0582-60 ",.02)
 ;;35356-0582-60
 ;;9002226.02101,"1813,35356-0582-90 ",.01)
 ;;35356-0582-90
 ;;9002226.02101,"1813,35356-0582-90 ",.02)
 ;;35356-0582-90
 ;;9002226.02101,"1813,35356-0906-30 ",.01)
 ;;35356-0906-30
 ;;9002226.02101,"1813,35356-0906-30 ",.02)
 ;;35356-0906-30
 ;;9002226.02101,"1813,35356-0906-90 ",.01)
 ;;35356-0906-90
 ;;9002226.02101,"1813,35356-0906-90 ",.02)
 ;;35356-0906-90
 ;;9002226.02101,"1813,42549-0496-30 ",.01)
 ;;42549-0496-30
 ;;9002226.02101,"1813,42549-0496-30 ",.02)
 ;;42549-0496-30
 ;;9002226.02101,"1813,42549-0497-30 ",.01)
 ;;42549-0497-30
 ;;9002226.02101,"1813,42549-0497-30 ",.02)
 ;;42549-0497-30
 ;;9002226.02101,"1813,43063-0218-30 ",.01)
 ;;43063-0218-30
 ;;9002226.02101,"1813,43063-0218-30 ",.02)
 ;;43063-0218-30
 ;;9002226.02101,"1813,43353-0049-30 ",.01)
 ;;43353-0049-30
 ;;9002226.02101,"1813,43353-0049-30 ",.02)
 ;;43353-0049-30
 ;;9002226.02101,"1813,43353-0049-60 ",.01)
 ;;43353-0049-60
 ;;9002226.02101,"1813,43353-0049-60 ",.02)
 ;;43353-0049-60
 ;;9002226.02101,"1813,43353-0050-15 ",.01)
 ;;43353-0050-15
 ;;9002226.02101,"1813,43353-0050-15 ",.02)
 ;;43353-0050-15
 ;;9002226.02101,"1813,43353-0050-20 ",.01)
 ;;43353-0050-20
 ;;9002226.02101,"1813,43353-0050-20 ",.02)
 ;;43353-0050-20
 ;;9002226.02101,"1813,43353-0050-25 ",.01)
 ;;43353-0050-25
 ;;9002226.02101,"1813,43353-0050-25 ",.02)
 ;;43353-0050-25
 ;;9002226.02101,"1813,43353-0050-28 ",.01)
 ;;43353-0050-28
 ;;9002226.02101,"1813,43353-0050-28 ",.02)
 ;;43353-0050-28
 ;;9002226.02101,"1813,43353-0050-30 ",.01)
 ;;43353-0050-30
 ;;9002226.02101,"1813,43353-0050-30 ",.02)
 ;;43353-0050-30
 ;;9002226.02101,"1813,43353-0050-35 ",.01)
 ;;43353-0050-35
 ;;9002226.02101,"1813,43353-0050-35 ",.02)
 ;;43353-0050-35
 ;;9002226.02101,"1813,43353-0050-38 ",.01)
 ;;43353-0050-38
 ;;9002226.02101,"1813,43353-0050-38 ",.02)
 ;;43353-0050-38
 ;;9002226.02101,"1813,43353-0050-40 ",.01)
 ;;43353-0050-40
 ;;9002226.02101,"1813,43353-0050-40 ",.02)
 ;;43353-0050-40
 ;;9002226.02101,"1813,43353-0050-45 ",.01)
 ;;43353-0050-45
 ;;9002226.02101,"1813,43353-0050-45 ",.02)
 ;;43353-0050-45
 ;;9002226.02101,"1813,43353-0050-50 ",.01)
 ;;43353-0050-50
 ;;9002226.02101,"1813,43353-0050-50 ",.02)
 ;;43353-0050-50
 ;;9002226.02101,"1813,43353-0050-53 ",.01)
 ;;43353-0050-53
 ;;9002226.02101,"1813,43353-0050-53 ",.02)
 ;;43353-0050-53
 ;;9002226.02101,"1813,43353-0050-55 ",.01)
 ;;43353-0050-55
 ;;9002226.02101,"1813,43353-0050-55 ",.02)
 ;;43353-0050-55
 ;;9002226.02101,"1813,43353-0050-57 ",.01)
 ;;43353-0050-57
 ;;9002226.02101,"1813,43353-0050-57 ",.02)
 ;;43353-0050-57
 ;;9002226.02101,"1813,43353-0050-60 ",.01)
 ;;43353-0050-60
 ;;9002226.02101,"1813,43353-0050-60 ",.02)
 ;;43353-0050-60
 ;;9002226.02101,"1813,43353-0050-61 ",.01)
 ;;43353-0050-61
 ;;9002226.02101,"1813,43353-0050-61 ",.02)
 ;;43353-0050-61
 ;;9002226.02101,"1813,43353-0050-65 ",.01)
 ;;43353-0050-65
 ;;9002226.02101,"1813,43353-0050-65 ",.02)
 ;;43353-0050-65
 ;;9002226.02101,"1813,43353-0050-68 ",.01)
 ;;43353-0050-68
 ;;9002226.02101,"1813,43353-0050-68 ",.02)
 ;;43353-0050-68
 ;;9002226.02101,"1813,43353-0050-70 ",.01)
 ;;43353-0050-70
 ;;9002226.02101,"1813,43353-0050-70 ",.02)
 ;;43353-0050-70
 ;;9002226.02101,"1813,43353-0050-78 ",.01)
 ;;43353-0050-78
 ;;9002226.02101,"1813,43353-0050-78 ",.02)
 ;;43353-0050-78
 ;;9002226.02101,"1813,43353-0089-30 ",.01)
 ;;43353-0089-30
 ;;9002226.02101,"1813,43353-0089-30 ",.02)
 ;;43353-0089-30
 ;;9002226.02101,"1813,43353-0089-60 ",.01)
 ;;43353-0089-60
 ;;9002226.02101,"1813,43353-0089-60 ",.02)
 ;;43353-0089-60
 ;;9002226.02101,"1813,43353-0142-30 ",.01)
 ;;43353-0142-30
 ;;9002226.02101,"1813,43353-0142-30 ",.02)
 ;;43353-0142-30
 ;;9002226.02101,"1813,43353-0142-40 ",.01)
 ;;43353-0142-40
 ;;9002226.02101,"1813,43353-0142-40 ",.02)
 ;;43353-0142-40
 ;;9002226.02101,"1813,43353-0142-45 ",.01)
 ;;43353-0142-45
 ;;9002226.02101,"1813,43353-0142-45 ",.02)
 ;;43353-0142-45
 ;;9002226.02101,"1813,43353-0142-53 ",.01)
 ;;43353-0142-53
 ;;9002226.02101,"1813,43353-0142-53 ",.02)
 ;;43353-0142-53
 ;;9002226.02101,"1813,43353-0142-60 ",.01)
 ;;43353-0142-60
 ;;9002226.02101,"1813,43353-0142-60 ",.02)
 ;;43353-0142-60
 ;;9002226.02101,"1813,43353-0491-30 ",.01)
 ;;43353-0491-30
 ;;9002226.02101,"1813,43353-0491-30 ",.02)
 ;;43353-0491-30
 ;;9002226.02101,"1813,43353-0492-30 ",.01)
 ;;43353-0492-30
 ;;9002226.02101,"1813,43353-0492-30 ",.02)
 ;;43353-0492-30
 ;;9002226.02101,"1813,43353-0492-60 ",.01)
 ;;43353-0492-60
 ;;9002226.02101,"1813,43353-0492-60 ",.02)
 ;;43353-0492-60
 ;;9002226.02101,"1813,43353-0493-30 ",.01)
 ;;43353-0493-30
 ;;9002226.02101,"1813,43353-0493-30 ",.02)
 ;;43353-0493-30
 ;;9002226.02101,"1813,43353-0493-60 ",.01)
 ;;43353-0493-60
 ;;9002226.02101,"1813,43353-0493-60 ",.02)
 ;;43353-0493-60
 ;;9002226.02101,"1813,43353-0494-30 ",.01)
 ;;43353-0494-30
 ;;9002226.02101,"1813,43353-0494-30 ",.02)
 ;;43353-0494-30
 ;;9002226.02101,"1813,43353-0578-30 ",.01)
 ;;43353-0578-30
 ;;9002226.02101,"1813,43353-0578-30 ",.02)
 ;;43353-0578-30
 ;;9002226.02101,"1813,43353-0579-30 ",.01)
 ;;43353-0579-30
 ;;9002226.02101,"1813,43353-0579-30 ",.02)
 ;;43353-0579-30
 ;;9002226.02101,"1813,43353-0584-30 ",.01)
 ;;43353-0584-30
 ;;9002226.02101,"1813,43353-0584-30 ",.02)
 ;;43353-0584-30
 ;;9002226.02101,"1813,43353-0584-60 ",.01)
 ;;43353-0584-60
 ;;9002226.02101,"1813,43353-0584-60 ",.02)
 ;;43353-0584-60
 ;;9002226.02101,"1813,43353-0587-30 ",.01)
 ;;43353-0587-30
 ;;9002226.02101,"1813,43353-0587-30 ",.02)
 ;;43353-0587-30
 ;;9002226.02101,"1813,43683-0117-30 ",.01)
 ;;43683-0117-30
 ;;9002226.02101,"1813,43683-0117-30 ",.02)
 ;;43683-0117-30
 ;;9002226.02101,"1813,43683-0118-30 ",.01)
 ;;43683-0118-30
 ;;9002226.02101,"1813,43683-0118-30 ",.02)
 ;;43683-0118-30
 ;;9002226.02101,"1813,49999-0093-30 ",.01)
 ;;49999-0093-30
 ;;9002226.02101,"1813,49999-0093-30 ",.02)
 ;;49999-0093-30
 ;;9002226.02101,"1813,49999-0411-30 ",.01)
 ;;49999-0411-30
 ;;9002226.02101,"1813,49999-0411-30 ",.02)
 ;;49999-0411-30
 ;;9002226.02101,"1813,49999-0576-00 ",.01)
 ;;49999-0576-00
 ;;9002226.02101,"1813,49999-0576-00 ",.02)
 ;;49999-0576-00
 ;;9002226.02101,"1813,49999-0576-10 ",.01)
 ;;49999-0576-10
 ;;9002226.02101,"1813,49999-0576-10 ",.02)
 ;;49999-0576-10
 ;;9002226.02101,"1813,49999-0576-20 ",.01)
 ;;49999-0576-20
 ;;9002226.02101,"1813,49999-0576-20 ",.02)
 ;;49999-0576-20
 ;;9002226.02101,"1813,49999-0576-30 ",.01)
 ;;49999-0576-30
 ;;9002226.02101,"1813,49999-0576-30 ",.02)
 ;;49999-0576-30
 ;;9002226.02101,"1813,49999-0576-60 ",.01)
 ;;49999-0576-60
 ;;9002226.02101,"1813,49999-0576-60 ",.02)
 ;;49999-0576-60
 ;;9002226.02101,"1813,49999-0576-90 ",.01)
 ;;49999-0576-90
 ;;9002226.02101,"1813,49999-0576-90 ",.02)
 ;;49999-0576-90
 ;;9002226.02101,"1813,49999-0829-00 ",.01)
 ;;49999-0829-00
 ;;9002226.02101,"1813,49999-0829-00 ",.02)
 ;;49999-0829-00
 ;;9002226.02101,"1813,49999-0923-10 ",.01)
 ;;49999-0923-10
 ;;9002226.02101,"1813,49999-0923-10 ",.02)
 ;;49999-0923-10
 ;;9002226.02101,"1813,49999-0923-30 ",.01)
 ;;49999-0923-30
 ;;9002226.02101,"1813,49999-0923-30 ",.02)
 ;;49999-0923-30
 ;;9002226.02101,"1813,49999-0923-60 ",.01)
 ;;49999-0923-60
 ;;9002226.02101,"1813,49999-0923-60 ",.02)
 ;;49999-0923-60
 ;;9002226.02101,"1813,49999-0923-90 ",.01)
 ;;49999-0923-90
 ;;9002226.02101,"1813,49999-0923-90 ",.02)
 ;;49999-0923-90
 ;;9002226.02101,"1813,51138-0054-30 ",.01)
 ;;51138-0054-30
 ;;9002226.02101,"1813,51138-0054-30 ",.02)
 ;;51138-0054-30
 ;;9002226.02101,"1813,51138-0055-30 ",.01)
 ;;51138-0055-30
 ;;9002226.02101,"1813,51138-0055-30 ",.02)
 ;;51138-0055-30
 ;;9002226.02101,"1813,51138-0056-30 ",.01)
 ;;51138-0056-30
 ;;9002226.02101,"1813,51138-0056-30 ",.02)
 ;;51138-0056-30
 ;;9002226.02101,"1813,51138-0057-30 ",.01)
 ;;51138-0057-30
 ;;9002226.02101,"1813,51138-0057-30 ",.02)
 ;;51138-0057-30
 ;;9002226.02101,"1813,51138-0058-30 ",.01)
 ;;51138-0058-30
 ;;9002226.02101,"1813,51138-0058-30 ",.02)
 ;;51138-0058-30
 ;;9002226.02101,"1813,51138-0059-30 ",.01)
 ;;51138-0059-30
 ;;9002226.02101,"1813,51138-0059-30 ",.02)
 ;;51138-0059-30
 ;;9002226.02101,"1813,51138-0060-30 ",.01)
 ;;51138-0060-30
 ;;9002226.02101,"1813,51138-0060-30 ",.02)
 ;;51138-0060-30
 ;;9002226.02101,"1813,51138-0061-30 ",.01)
 ;;51138-0061-30
 ;;9002226.02101,"1813,51138-0061-30 ",.02)
 ;;51138-0061-30
 ;;9002226.02101,"1813,51138-0062-30 ",.01)
 ;;51138-0062-30
 ;;9002226.02101,"1813,51138-0062-30 ",.02)
 ;;51138-0062-30
 ;;9002226.02101,"1813,51138-0179-30 ",.01)
 ;;51138-0179-30
 ;;9002226.02101,"1813,51138-0179-30 ",.02)
 ;;51138-0179-30
 ;;9002226.02101,"1813,51138-0180-30 ",.01)
 ;;51138-0180-30
 ;;9002226.02101,"1813,51138-0180-30 ",.02)
 ;;51138-0180-30
 ;;9002226.02101,"1813,51138-0180-60 ",.01)
 ;;51138-0180-60
 ;;9002226.02101,"1813,51138-0180-60 ",.02)
 ;;51138-0180-60
 ;;9002226.02101,"1813,51138-0181-30 ",.01)
 ;;51138-0181-30
 ;;9002226.02101,"1813,51138-0181-30 ",.02)
 ;;51138-0181-30
 ;;9002226.02101,"1813,51138-0182-30 ",.01)
 ;;51138-0182-30
 ;;9002226.02101,"1813,51138-0182-30 ",.02)
 ;;51138-0182-30
 ;;9002226.02101,"1813,51138-0183-30 ",.01)
 ;;51138-0183-30
 ;;9002226.02101,"1813,51138-0183-30 ",.02)
 ;;51138-0183-30
 ;;9002226.02101,"1813,51138-0184-30 ",.01)
 ;;51138-0184-30
 ;;9002226.02101,"1813,51138-0184-30 ",.02)
 ;;51138-0184-30
 ;;9002226.02101,"1813,51138-0185-30 ",.01)
 ;;51138-0185-30
 ;;9002226.02101,"1813,51138-0185-30 ",.02)
 ;;51138-0185-30
 ;;9002226.02101,"1813,51138-0186-30 ",.01)
 ;;51138-0186-30
 ;;9002226.02101,"1813,51138-0186-30 ",.02)
 ;;51138-0186-30
 ;;9002226.02101,"1813,51138-0187-30 ",.01)
 ;;51138-0187-30
 ;;9002226.02101,"1813,51138-0187-30 ",.02)
 ;;51138-0187-30
 ;;9002226.02101,"1813,51138-0195-30 ",.01)
 ;;51138-0195-30
 ;;9002226.02101,"1813,51138-0195-30 ",.02)
 ;;51138-0195-30
 ;;9002226.02101,"1813,51138-0196-30 ",.01)
 ;;51138-0196-30
 ;;9002226.02101,"1813,51138-0196-30 ",.02)
 ;;51138-0196-30
 ;;9002226.02101,"1813,51138-0196-60 ",.01)
 ;;51138-0196-60
 ;;9002226.02101,"1813,51138-0196-60 ",.02)
 ;;51138-0196-60
 ;;9002226.02101,"1813,51138-0197-30 ",.01)
 ;;51138-0197-30
 ;;9002226.02101,"1813,51138-0197-30 ",.02)
 ;;51138-0197-30
 ;;9002226.02101,"1813,51138-0198-30 ",.01)
 ;;51138-0198-30