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

BGP8ZP15.m

Go to the documentation of this file.
BGP8ZP15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"1795,42291-0322-90 ",.02)
 ;;42291-0322-90
 ;;9002226.02101,"1795,42291-0323-50 ",.01)
 ;;42291-0323-50
 ;;9002226.02101,"1795,42291-0323-50 ",.02)
 ;;42291-0323-50
 ;;9002226.02101,"1795,42291-0323-90 ",.01)
 ;;42291-0323-90
 ;;9002226.02101,"1795,42291-0323-90 ",.02)
 ;;42291-0323-90
 ;;9002226.02101,"1795,42291-0608-10 ",.01)
 ;;42291-0608-10
 ;;9002226.02101,"1795,42291-0608-10 ",.02)
 ;;42291-0608-10
 ;;9002226.02101,"1795,42291-0608-90 ",.01)
 ;;42291-0608-90
 ;;9002226.02101,"1795,42291-0608-90 ",.02)
 ;;42291-0608-90
 ;;9002226.02101,"1795,42291-0609-10 ",.01)
 ;;42291-0609-10
 ;;9002226.02101,"1795,42291-0609-10 ",.02)
 ;;42291-0609-10
 ;;9002226.02101,"1795,42291-0609-90 ",.01)
 ;;42291-0609-90
 ;;9002226.02101,"1795,42291-0609-90 ",.02)
 ;;42291-0609-90
 ;;9002226.02101,"1795,42549-0528-30 ",.01)
 ;;42549-0528-30
 ;;9002226.02101,"1795,42549-0528-30 ",.02)
 ;;42549-0528-30
 ;;9002226.02101,"1795,42549-0543-10 ",.01)
 ;;42549-0543-10
 ;;9002226.02101,"1795,42549-0543-10 ",.02)
 ;;42549-0543-10
 ;;9002226.02101,"1795,42549-0543-20 ",.01)
 ;;42549-0543-20
 ;;9002226.02101,"1795,42549-0543-20 ",.02)
 ;;42549-0543-20
 ;;9002226.02101,"1795,42549-0543-30 ",.01)
 ;;42549-0543-30
 ;;9002226.02101,"1795,42549-0543-30 ",.02)
 ;;42549-0543-30
 ;;9002226.02101,"1795,42582-0300-10 ",.01)
 ;;42582-0300-10
 ;;9002226.02101,"1795,42582-0300-10 ",.02)
 ;;42582-0300-10
 ;;9002226.02101,"1795,42582-0300-16 ",.01)
 ;;42582-0300-16
 ;;9002226.02101,"1795,42582-0300-16 ",.02)
 ;;42582-0300-16
 ;;9002226.02101,"1795,42582-0300-20 ",.01)
 ;;42582-0300-20
 ;;9002226.02101,"1795,42582-0300-20 ",.02)
 ;;42582-0300-20
 ;;9002226.02101,"1795,42582-0301-10 ",.01)
 ;;42582-0301-10
 ;;9002226.02101,"1795,42582-0301-10 ",.02)
 ;;42582-0301-10
 ;;9002226.02101,"1795,42582-0301-16 ",.01)
 ;;42582-0301-16
 ;;9002226.02101,"1795,42582-0301-16 ",.02)
 ;;42582-0301-16
 ;;9002226.02101,"1795,42582-0301-20 ",.01)
 ;;42582-0301-20
 ;;9002226.02101,"1795,42582-0301-20 ",.02)
 ;;42582-0301-20
 ;;9002226.02101,"1795,42806-0012-01 ",.01)
 ;;42806-0012-01
 ;;9002226.02101,"1795,42806-0012-01 ",.02)
 ;;42806-0012-01
 ;;9002226.02101,"1795,42806-0012-10 ",.01)
 ;;42806-0012-10
 ;;9002226.02101,"1795,42806-0012-10 ",.02)
 ;;42806-0012-10
 ;;9002226.02101,"1795,42806-0014-01 ",.01)
 ;;42806-0014-01
 ;;9002226.02101,"1795,42806-0014-01 ",.02)
 ;;42806-0014-01
 ;;9002226.02101,"1795,42806-0014-10 ",.01)
 ;;42806-0014-10
 ;;9002226.02101,"1795,42806-0014-10 ",.02)
 ;;42806-0014-10
 ;;9002226.02101,"1795,42806-0159-01 ",.01)
 ;;42806-0159-01
 ;;9002226.02101,"1795,42806-0159-01 ",.02)
 ;;42806-0159-01
 ;;9002226.02101,"1795,42806-0159-05 ",.01)
 ;;42806-0159-05
 ;;9002226.02101,"1795,42806-0159-05 ",.02)
 ;;42806-0159-05
 ;;9002226.02101,"1795,42806-0159-10 ",.01)
 ;;42806-0159-10
 ;;9002226.02101,"1795,42806-0159-10 ",.02)
 ;;42806-0159-10
 ;;9002226.02101,"1795,42806-0160-01 ",.01)
 ;;42806-0160-01
 ;;9002226.02101,"1795,42806-0160-01 ",.02)
 ;;42806-0160-01
 ;;9002226.02101,"1795,42806-0160-05 ",.01)
 ;;42806-0160-05
 ;;9002226.02101,"1795,42806-0160-05 ",.02)
 ;;42806-0160-05
 ;;9002226.02101,"1795,42806-0160-10 ",.01)
 ;;42806-0160-10
 ;;9002226.02101,"1795,42806-0160-10 ",.02)
 ;;42806-0160-10
 ;;9002226.02101,"1795,42806-0161-01 ",.01)
 ;;42806-0161-01
 ;;9002226.02101,"1795,42806-0161-01 ",.02)
 ;;42806-0161-01
 ;;9002226.02101,"1795,42806-0161-05 ",.01)
 ;;42806-0161-05
 ;;9002226.02101,"1795,42806-0161-05 ",.02)
 ;;42806-0161-05
 ;;9002226.02101,"1795,42806-0161-10 ",.01)
 ;;42806-0161-10
 ;;9002226.02101,"1795,42806-0161-10 ",.02)
 ;;42806-0161-10
 ;;9002226.02101,"1795,42852-0833-75 ",.01)
 ;;42852-0833-75
 ;;9002226.02101,"1795,42852-0833-75 ",.02)
 ;;42852-0833-75
 ;;9002226.02101,"1795,43063-0003-01 ",.01)
 ;;43063-0003-01
 ;;9002226.02101,"1795,43063-0003-01 ",.02)
 ;;43063-0003-01
 ;;9002226.02101,"1795,43063-0045-04 ",.01)
 ;;43063-0045-04
 ;;9002226.02101,"1795,43063-0045-04 ",.02)
 ;;43063-0045-04
 ;;9002226.02101,"1795,43063-0045-06 ",.01)
 ;;43063-0045-06
 ;;9002226.02101,"1795,43063-0045-06 ",.02)
 ;;43063-0045-06
 ;;9002226.02101,"1795,43063-0045-60 ",.01)
 ;;43063-0045-60
 ;;9002226.02101,"1795,43063-0045-60 ",.02)
 ;;43063-0045-60
 ;;9002226.02101,"1795,43063-0049-02 ",.01)
 ;;43063-0049-02
 ;;9002226.02101,"1795,43063-0049-02 ",.02)
 ;;43063-0049-02
 ;;9002226.02101,"1795,43063-0049-06 ",.01)
 ;;43063-0049-06
 ;;9002226.02101,"1795,43063-0049-06 ",.02)
 ;;43063-0049-06
 ;;9002226.02101,"1795,43063-0060-02 ",.01)
 ;;43063-0060-02
 ;;9002226.02101,"1795,43063-0060-02 ",.02)
 ;;43063-0060-02
 ;;9002226.02101,"1795,43063-0060-04 ",.01)
 ;;43063-0060-04
 ;;9002226.02101,"1795,43063-0060-04 ",.02)
 ;;43063-0060-04
 ;;9002226.02101,"1795,43063-0060-06 ",.01)
 ;;43063-0060-06
 ;;9002226.02101,"1795,43063-0060-06 ",.02)
 ;;43063-0060-06
 ;;9002226.02101,"1795,43063-0089-04 ",.01)
 ;;43063-0089-04
 ;;9002226.02101,"1795,43063-0089-04 ",.02)
 ;;43063-0089-04
 ;;9002226.02101,"1795,43063-0089-06 ",.01)
 ;;43063-0089-06
 ;;9002226.02101,"1795,43063-0089-06 ",.02)
 ;;43063-0089-06
 ;;9002226.02101,"1795,43063-0095-06 ",.01)
 ;;43063-0095-06
 ;;9002226.02101,"1795,43063-0095-06 ",.02)
 ;;43063-0095-06
 ;;9002226.02101,"1795,43063-0095-12 ",.01)
 ;;43063-0095-12
 ;;9002226.02101,"1795,43063-0095-12 ",.02)
 ;;43063-0095-12
 ;;9002226.02101,"1795,43063-0095-20 ",.01)
 ;;43063-0095-20
 ;;9002226.02101,"1795,43063-0095-20 ",.02)
 ;;43063-0095-20
 ;;9002226.02101,"1795,43063-0112-04 ",.01)
 ;;43063-0112-04
 ;;9002226.02101,"1795,43063-0112-04 ",.02)
 ;;43063-0112-04
 ;;9002226.02101,"1795,43063-0112-06 ",.01)
 ;;43063-0112-06
 ;;9002226.02101,"1795,43063-0112-06 ",.02)
 ;;43063-0112-06
 ;;9002226.02101,"1795,43063-0172-01 ",.01)
 ;;43063-0172-01
 ;;9002226.02101,"1795,43063-0172-01 ",.02)
 ;;43063-0172-01
 ;;9002226.02101,"1795,43063-0172-04 ",.01)
 ;;43063-0172-04
 ;;9002226.02101,"1795,43063-0172-04 ",.02)
 ;;43063-0172-04
 ;;9002226.02101,"1795,43063-0207-30 ",.01)
 ;;43063-0207-30
 ;;9002226.02101,"1795,43063-0207-30 ",.02)
 ;;43063-0207-30
 ;;9002226.02101,"1795,43063-0251-10 ",.01)
 ;;43063-0251-10
 ;;9002226.02101,"1795,43063-0251-10 ",.02)
 ;;43063-0251-10
 ;;9002226.02101,"1795,43063-0267-90 ",.01)
 ;;43063-0267-90
 ;;9002226.02101,"1795,43063-0267-90 ",.02)
 ;;43063-0267-90
 ;;9002226.02101,"1795,43063-0321-60 ",.01)
 ;;43063-0321-60
 ;;9002226.02101,"1795,43063-0321-60 ",.02)
 ;;43063-0321-60
 ;;9002226.02101,"1795,43063-0376-01 ",.01)
 ;;43063-0376-01
 ;;9002226.02101,"1795,43063-0376-01 ",.02)
 ;;43063-0376-01
 ;;9002226.02101,"1795,43063-0405-02 ",.01)
 ;;43063-0405-02
 ;;9002226.02101,"1795,43063-0405-02 ",.02)
 ;;43063-0405-02
 ;;9002226.02101,"1795,43063-0405-04 ",.01)
 ;;43063-0405-04
 ;;9002226.02101,"1795,43063-0405-04 ",.02)
 ;;43063-0405-04
 ;;9002226.02101,"1795,43063-0405-05 ",.01)
 ;;43063-0405-05
 ;;9002226.02101,"1795,43063-0405-05 ",.02)
 ;;43063-0405-05
 ;;9002226.02101,"1795,43063-0405-10 ",.01)
 ;;43063-0405-10
 ;;9002226.02101,"1795,43063-0405-10 ",.02)
 ;;43063-0405-10
 ;;9002226.02101,"1795,43063-0405-12 ",.01)
 ;;43063-0405-12
 ;;9002226.02101,"1795,43063-0405-12 ",.02)
 ;;43063-0405-12
 ;;9002226.02101,"1795,43063-0405-15 ",.01)
 ;;43063-0405-15
 ;;9002226.02101,"1795,43063-0405-15 ",.02)
 ;;43063-0405-15
 ;;9002226.02101,"1795,43063-0405-20 ",.01)
 ;;43063-0405-20
 ;;9002226.02101,"1795,43063-0405-20 ",.02)
 ;;43063-0405-20
 ;;9002226.02101,"1795,43063-0405-25 ",.01)
 ;;43063-0405-25
 ;;9002226.02101,"1795,43063-0405-25 ",.02)
 ;;43063-0405-25
 ;;9002226.02101,"1795,43063-0405-30 ",.01)
 ;;43063-0405-30
 ;;9002226.02101,"1795,43063-0405-30 ",.02)
 ;;43063-0405-30
 ;;9002226.02101,"1795,43063-0405-60 ",.01)
 ;;43063-0405-60
 ;;9002226.02101,"1795,43063-0405-60 ",.02)
 ;;43063-0405-60
 ;;9002226.02101,"1795,43063-0405-79 ",.01)
 ;;43063-0405-79
 ;;9002226.02101,"1795,43063-0405-79 ",.02)
 ;;43063-0405-79
 ;;9002226.02101,"1795,43063-0406-10 ",.01)
 ;;43063-0406-10
 ;;9002226.02101,"1795,43063-0406-10 ",.02)
 ;;43063-0406-10
 ;;9002226.02101,"1795,43063-0406-15 ",.01)
 ;;43063-0406-15
 ;;9002226.02101,"1795,43063-0406-15 ",.02)
 ;;43063-0406-15
 ;;9002226.02101,"1795,43063-0406-30 ",.01)
 ;;43063-0406-30
 ;;9002226.02101,"1795,43063-0406-30 ",.02)
 ;;43063-0406-30
 ;;9002226.02101,"1795,43063-0435-20 ",.01)
 ;;43063-0435-20
 ;;9002226.02101,"1795,43063-0435-20 ",.02)
 ;;43063-0435-20
 ;;9002226.02101,"1795,43063-0435-30 ",.01)
 ;;43063-0435-30
 ;;9002226.02101,"1795,43063-0435-30 ",.02)
 ;;43063-0435-30
 ;;9002226.02101,"1795,43063-0447-04 ",.01)
 ;;43063-0447-04
 ;;9002226.02101,"1795,43063-0447-04 ",.02)
 ;;43063-0447-04
 ;;9002226.02101,"1795,43063-0501-30 ",.01)
 ;;43063-0501-30
 ;;9002226.02101,"1795,43063-0501-30 ",.02)
 ;;43063-0501-30
 ;;9002226.02101,"1795,43063-0517-60 ",.01)
 ;;43063-0517-60
 ;;9002226.02101,"1795,43063-0517-60 ",.02)
 ;;43063-0517-60
 ;;9002226.02101,"1795,43063-0518-06 ",.01)
 ;;43063-0518-06
 ;;9002226.02101,"1795,43063-0518-06 ",.02)
 ;;43063-0518-06
 ;;9002226.02101,"1795,43063-0518-28 ",.01)
 ;;43063-0518-28
 ;;9002226.02101,"1795,43063-0518-28 ",.02)
 ;;43063-0518-28
 ;;9002226.02101,"1795,43063-0518-40 ",.01)
 ;;43063-0518-40
 ;;9002226.02101,"1795,43063-0518-40 ",.02)
 ;;43063-0518-40
 ;;9002226.02101,"1795,43063-0518-90 ",.01)
 ;;43063-0518-90
 ;;9002226.02101,"1795,43063-0518-90 ",.02)
 ;;43063-0518-90
 ;;9002226.02101,"1795,43063-0601-01 ",.01)
 ;;43063-0601-01
 ;;9002226.02101,"1795,43063-0601-01 ",.02)
 ;;43063-0601-01
 ;;9002226.02101,"1795,43063-0662-10 ",.01)
 ;;43063-0662-10
 ;;9002226.02101,"1795,43063-0662-10 ",.02)
 ;;43063-0662-10
 ;;9002226.02101,"1795,43063-0662-15 ",.01)
 ;;43063-0662-15
 ;;9002226.02101,"1795,43063-0662-15 ",.02)
 ;;43063-0662-15
 ;;9002226.02101,"1795,43063-0662-30 ",.01)
 ;;43063-0662-30
 ;;9002226.02101,"1795,43063-0662-30 ",.02)
 ;;43063-0662-30
 ;;9002226.02101,"1795,43063-0708-02 ",.01)
 ;;43063-0708-02
 ;;9002226.02101,"1795,43063-0708-02 ",.02)
 ;;43063-0708-02
 ;;9002226.02101,"1795,43093-0104-01 ",.01)
 ;;43093-0104-01
 ;;9002226.02101,"1795,43093-0104-01 ",.02)
 ;;43093-0104-01
 ;;9002226.02101,"1795,43199-0011-01 ",.01)
 ;;43199-0011-01
 ;;9002226.02101,"1795,43199-0011-01 ",.02)
 ;;43199-0011-01
 ;;9002226.02101,"1795,43199-0012-01 ",.01)
 ;;43199-0012-01
 ;;9002226.02101,"1795,43199-0012-01 ",.02)
 ;;43199-0012-01
 ;;9002226.02101,"1795,43199-0013-01 ",.01)
 ;;43199-0013-01
 ;;9002226.02101,"1795,43199-0013-01 ",.02)
 ;;43199-0013-01
 ;;9002226.02101,"1795,43199-0014-01 ",.01)
 ;;43199-0014-01
 ;;9002226.02101,"1795,43199-0014-01 ",.02)
 ;;43199-0014-01
 ;;9002226.02101,"1795,43353-0083-30 ",.01)
 ;;43353-0083-30
 ;;9002226.02101,"1795,43353-0083-30 ",.02)
 ;;43353-0083-30
 ;;9002226.02101,"1795,43353-0083-53 ",.01)
 ;;43353-0083-53
 ;;9002226.02101,"1795,43353-0083-53 ",.02)
 ;;43353-0083-53
 ;;9002226.02101,"1795,43353-0083-60 ",.01)
 ;;43353-0083-60
 ;;9002226.02101,"1795,43353-0083-60 ",.02)
 ;;43353-0083-60
 ;;9002226.02101,"1795,43353-0083-70 ",.01)
 ;;43353-0083-70
 ;;9002226.02101,"1795,43353-0083-70 ",.02)
 ;;43353-0083-70
 ;;9002226.02101,"1795,43353-0083-80 ",.01)
 ;;43353-0083-80
 ;;9002226.02101,"1795,43353-0083-80 ",.02)
 ;;43353-0083-80
 ;;9002226.02101,"1795,43353-0083-90 ",.01)
 ;;43353-0083-90
 ;;9002226.02101,"1795,43353-0083-90 ",.02)
 ;;43353-0083-90
 ;;9002226.02101,"1795,43353-0094-30 ",.01)
 ;;43353-0094-30
 ;;9002226.02101,"1795,43353-0094-30 ",.02)
 ;;43353-0094-30
 ;;9002226.02101,"1795,43353-0094-53 ",.01)
 ;;43353-0094-53
 ;;9002226.02101,"1795,43353-0094-53 ",.02)
 ;;43353-0094-53