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

BGP8ZI34.m

Go to the documentation of this file.
BGP8ZI34 ;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,"869,42291-0894-90 ",.01)
 ;;42291-0894-90
 ;;9002226.02101,"869,42291-0894-90 ",.02)
 ;;42291-0894-90
 ;;9002226.02101,"869,42291-0895-50 ",.01)
 ;;42291-0895-50
 ;;9002226.02101,"869,42291-0895-50 ",.02)
 ;;42291-0895-50
 ;;9002226.02101,"869,42291-0895-90 ",.01)
 ;;42291-0895-90
 ;;9002226.02101,"869,42291-0895-90 ",.02)
 ;;42291-0895-90
 ;;9002226.02101,"869,42291-0896-50 ",.01)
 ;;42291-0896-50
 ;;9002226.02101,"869,42291-0896-50 ",.02)
 ;;42291-0896-50
 ;;9002226.02101,"869,42291-0896-90 ",.01)
 ;;42291-0896-90
 ;;9002226.02101,"869,42291-0896-90 ",.02)
 ;;42291-0896-90
 ;;9002226.02101,"869,42291-0897-90 ",.01)
 ;;42291-0897-90
 ;;9002226.02101,"869,42291-0897-90 ",.02)
 ;;42291-0897-90
 ;;9002226.02101,"869,42291-0898-90 ",.01)
 ;;42291-0898-90
 ;;9002226.02101,"869,42291-0898-90 ",.02)
 ;;42291-0898-90
 ;;9002226.02101,"869,42291-0899-90 ",.01)
 ;;42291-0899-90
 ;;9002226.02101,"869,42291-0899-90 ",.02)
 ;;42291-0899-90
 ;;9002226.02101,"869,42292-0019-01 ",.01)
 ;;42292-0019-01
 ;;9002226.02101,"869,42292-0019-01 ",.02)
 ;;42292-0019-01
 ;;9002226.02101,"869,42292-0019-20 ",.01)
 ;;42292-0019-20
 ;;9002226.02101,"869,42292-0019-20 ",.02)
 ;;42292-0019-20
 ;;9002226.02101,"869,42292-0020-20 ",.01)
 ;;42292-0020-20
 ;;9002226.02101,"869,42292-0020-20 ",.02)
 ;;42292-0020-20
 ;;9002226.02101,"869,42543-0725-01 ",.01)
 ;;42543-0725-01
 ;;9002226.02101,"869,42543-0725-01 ",.02)
 ;;42543-0725-01
 ;;9002226.02101,"869,42543-0725-05 ",.01)
 ;;42543-0725-05
 ;;9002226.02101,"869,42543-0725-05 ",.02)
 ;;42543-0725-05
 ;;9002226.02101,"869,42543-0725-10 ",.01)
 ;;42543-0725-10
 ;;9002226.02101,"869,42543-0725-10 ",.02)
 ;;42543-0725-10
 ;;9002226.02101,"869,42543-0726-01 ",.01)
 ;;42543-0726-01
 ;;9002226.02101,"869,42543-0726-01 ",.02)
 ;;42543-0726-01
 ;;9002226.02101,"869,42543-0726-05 ",.01)
 ;;42543-0726-05
 ;;9002226.02101,"869,42543-0726-05 ",.02)
 ;;42543-0726-05
 ;;9002226.02101,"869,42543-0726-10 ",.01)
 ;;42543-0726-10
 ;;9002226.02101,"869,42543-0726-10 ",.02)
 ;;42543-0726-10
 ;;9002226.02101,"869,42543-0727-01 ",.01)
 ;;42543-0727-01
 ;;9002226.02101,"869,42543-0727-01 ",.02)
 ;;42543-0727-01
 ;;9002226.02101,"869,42543-0727-05 ",.01)
 ;;42543-0727-05
 ;;9002226.02101,"869,42543-0727-05 ",.02)
 ;;42543-0727-05
 ;;9002226.02101,"869,42543-0727-30 ",.01)
 ;;42543-0727-30
 ;;9002226.02101,"869,42543-0727-30 ",.02)
 ;;42543-0727-30
 ;;9002226.02101,"869,42769-1221-00 ",.01)
 ;;42769-1221-00
 ;;9002226.02101,"869,42769-1221-00 ",.02)
 ;;42769-1221-00
 ;;9002226.02101,"869,42769-1222-00 ",.01)
 ;;42769-1222-00
 ;;9002226.02101,"869,42769-1222-00 ",.02)
 ;;42769-1222-00
 ;;9002226.02101,"869,42769-1225-00 ",.01)
 ;;42769-1225-00
 ;;9002226.02101,"869,42769-1225-00 ",.02)
 ;;42769-1225-00
 ;;9002226.02101,"869,42806-0019-01 ",.01)
 ;;42806-0019-01
 ;;9002226.02101,"869,42806-0019-01 ",.02)
 ;;42806-0019-01
 ;;9002226.02101,"869,42806-0019-10 ",.01)
 ;;42806-0019-10
 ;;9002226.02101,"869,42806-0019-10 ",.02)
 ;;42806-0019-10
 ;;9002226.02101,"869,42806-0020-01 ",.01)
 ;;42806-0020-01
 ;;9002226.02101,"869,42806-0020-01 ",.02)
 ;;42806-0020-01
 ;;9002226.02101,"869,42806-0020-10 ",.01)
 ;;42806-0020-10
 ;;9002226.02101,"869,42806-0020-10 ",.02)
 ;;42806-0020-10
 ;;9002226.02101,"869,42806-0021-01 ",.01)
 ;;42806-0021-01
 ;;9002226.02101,"869,42806-0021-01 ",.02)
 ;;42806-0021-01
 ;;9002226.02101,"869,42806-0021-10 ",.01)
 ;;42806-0021-10
 ;;9002226.02101,"869,42806-0021-10 ",.02)
 ;;42806-0021-10
 ;;9002226.02101,"869,42806-0096-01 ",.01)
 ;;42806-0096-01
 ;;9002226.02101,"869,42806-0096-01 ",.02)
 ;;42806-0096-01
 ;;9002226.02101,"869,42806-0097-01 ",.01)
 ;;42806-0097-01
 ;;9002226.02101,"869,42806-0097-01 ",.02)
 ;;42806-0097-01
 ;;9002226.02101,"869,43063-0009-01 ",.01)
 ;;43063-0009-01
 ;;9002226.02101,"869,43063-0009-01 ",.02)
 ;;43063-0009-01
 ;;9002226.02101,"869,43063-0033-01 ",.01)
 ;;43063-0033-01
 ;;9002226.02101,"869,43063-0033-01 ",.02)
 ;;43063-0033-01
 ;;9002226.02101,"869,43063-0033-90 ",.01)
 ;;43063-0033-90
 ;;9002226.02101,"869,43063-0033-90 ",.02)
 ;;43063-0033-90
 ;;9002226.02101,"869,43063-0063-14 ",.01)
 ;;43063-0063-14
 ;;9002226.02101,"869,43063-0063-14 ",.02)
 ;;43063-0063-14
 ;;9002226.02101,"869,43063-0063-30 ",.01)
 ;;43063-0063-30
 ;;9002226.02101,"869,43063-0063-30 ",.02)
 ;;43063-0063-30
 ;;9002226.02101,"869,43063-0063-60 ",.01)
 ;;43063-0063-60
 ;;9002226.02101,"869,43063-0063-60 ",.02)
 ;;43063-0063-60
 ;;9002226.02101,"869,43063-0063-90 ",.01)
 ;;43063-0063-90
 ;;9002226.02101,"869,43063-0063-90 ",.02)
 ;;43063-0063-90
 ;;9002226.02101,"869,43063-0170-90 ",.01)
 ;;43063-0170-90
 ;;9002226.02101,"869,43063-0170-90 ",.02)
 ;;43063-0170-90
 ;;9002226.02101,"869,43063-0183-60 ",.01)
 ;;43063-0183-60
 ;;9002226.02101,"869,43063-0183-60 ",.02)
 ;;43063-0183-60
 ;;9002226.02101,"869,43063-0193-60 ",.01)
 ;;43063-0193-60
 ;;9002226.02101,"869,43063-0193-60 ",.02)
 ;;43063-0193-60
 ;;9002226.02101,"869,43063-0197-30 ",.01)
 ;;43063-0197-30
 ;;9002226.02101,"869,43063-0197-30 ",.02)
 ;;43063-0197-30
 ;;9002226.02101,"869,43063-0197-90 ",.01)
 ;;43063-0197-90
 ;;9002226.02101,"869,43063-0197-90 ",.02)
 ;;43063-0197-90
 ;;9002226.02101,"869,43063-0243-30 ",.01)
 ;;43063-0243-30
 ;;9002226.02101,"869,43063-0243-30 ",.02)
 ;;43063-0243-30
 ;;9002226.02101,"869,43063-0262-30 ",.01)
 ;;43063-0262-30
 ;;9002226.02101,"869,43063-0262-30 ",.02)
 ;;43063-0262-30
 ;;9002226.02101,"869,43063-0284-30 ",.01)
 ;;43063-0284-30
 ;;9002226.02101,"869,43063-0284-30 ",.02)
 ;;43063-0284-30
 ;;9002226.02101,"869,43063-0284-98 ",.01)
 ;;43063-0284-98
 ;;9002226.02101,"869,43063-0284-98 ",.02)
 ;;43063-0284-98
 ;;9002226.02101,"869,43063-0292-30 ",.01)
 ;;43063-0292-30
 ;;9002226.02101,"869,43063-0292-30 ",.02)
 ;;43063-0292-30
 ;;9002226.02101,"869,43063-0336-30 ",.01)
 ;;43063-0336-30
 ;;9002226.02101,"869,43063-0336-30 ",.02)
 ;;43063-0336-30
 ;;9002226.02101,"869,43063-0336-60 ",.01)
 ;;43063-0336-60
 ;;9002226.02101,"869,43063-0336-60 ",.02)
 ;;43063-0336-60
 ;;9002226.02101,"869,43063-0374-01 ",.01)
 ;;43063-0374-01
 ;;9002226.02101,"869,43063-0374-01 ",.02)
 ;;43063-0374-01
 ;;9002226.02101,"869,43063-0374-30 ",.01)
 ;;43063-0374-30
 ;;9002226.02101,"869,43063-0374-30 ",.02)
 ;;43063-0374-30
 ;;9002226.02101,"869,43063-0374-90 ",.01)
 ;;43063-0374-90
 ;;9002226.02101,"869,43063-0374-90 ",.02)
 ;;43063-0374-90
 ;;9002226.02101,"869,43063-0385-01 ",.01)
 ;;43063-0385-01
 ;;9002226.02101,"869,43063-0385-01 ",.02)
 ;;43063-0385-01
 ;;9002226.02101,"869,43063-0385-30 ",.01)
 ;;43063-0385-30
 ;;9002226.02101,"869,43063-0385-30 ",.02)
 ;;43063-0385-30
 ;;9002226.02101,"869,43063-0385-90 ",.01)
 ;;43063-0385-90
 ;;9002226.02101,"869,43063-0385-90 ",.02)
 ;;43063-0385-90
 ;;9002226.02101,"869,43063-0387-90 ",.01)
 ;;43063-0387-90
 ;;9002226.02101,"869,43063-0387-90 ",.02)
 ;;43063-0387-90
 ;;9002226.02101,"869,43063-0388-90 ",.01)
 ;;43063-0388-90
 ;;9002226.02101,"869,43063-0388-90 ",.02)
 ;;43063-0388-90
 ;;9002226.02101,"869,43063-0389-30 ",.01)
 ;;43063-0389-30
 ;;9002226.02101,"869,43063-0389-30 ",.02)
 ;;43063-0389-30
 ;;9002226.02101,"869,43063-0390-30 ",.01)
 ;;43063-0390-30
 ;;9002226.02101,"869,43063-0390-30 ",.02)
 ;;43063-0390-30
 ;;9002226.02101,"869,43063-0411-60 ",.01)
 ;;43063-0411-60
 ;;9002226.02101,"869,43063-0411-60 ",.02)
 ;;43063-0411-60
 ;;9002226.02101,"869,43063-0411-90 ",.01)
 ;;43063-0411-90
 ;;9002226.02101,"869,43063-0411-90 ",.02)
 ;;43063-0411-90
 ;;9002226.02101,"869,43063-0413-90 ",.01)
 ;;43063-0413-90
 ;;9002226.02101,"869,43063-0413-90 ",.02)
 ;;43063-0413-90
 ;;9002226.02101,"869,43063-0481-05 ",.01)
 ;;43063-0481-05
 ;;9002226.02101,"869,43063-0481-05 ",.02)
 ;;43063-0481-05
 ;;9002226.02101,"869,43063-0503-30 ",.01)
 ;;43063-0503-30
 ;;9002226.02101,"869,43063-0503-30 ",.02)
 ;;43063-0503-30
 ;;9002226.02101,"869,43063-0521-30 ",.01)
 ;;43063-0521-30
 ;;9002226.02101,"869,43063-0521-30 ",.02)
 ;;43063-0521-30
 ;;9002226.02101,"869,43063-0521-90 ",.01)
 ;;43063-0521-90
 ;;9002226.02101,"869,43063-0521-90 ",.02)
 ;;43063-0521-90
 ;;9002226.02101,"869,43063-0570-21 ",.01)
 ;;43063-0570-21
 ;;9002226.02101,"869,43063-0570-21 ",.02)
 ;;43063-0570-21
 ;;9002226.02101,"869,43063-0570-28 ",.01)
 ;;43063-0570-28
 ;;9002226.02101,"869,43063-0570-28 ",.02)
 ;;43063-0570-28
 ;;9002226.02101,"869,43063-0570-30 ",.01)
 ;;43063-0570-30
 ;;9002226.02101,"869,43063-0570-30 ",.02)
 ;;43063-0570-30
 ;;9002226.02101,"869,43063-0570-90 ",.01)
 ;;43063-0570-90
 ;;9002226.02101,"869,43063-0570-90 ",.02)
 ;;43063-0570-90
 ;;9002226.02101,"869,43063-0633-90 ",.01)
 ;;43063-0633-90
 ;;9002226.02101,"869,43063-0633-90 ",.02)
 ;;43063-0633-90
 ;;9002226.02101,"869,43063-0661-30 ",.01)
 ;;43063-0661-30
 ;;9002226.02101,"869,43063-0661-30 ",.02)
 ;;43063-0661-30
 ;;9002226.02101,"869,43063-0661-90 ",.01)
 ;;43063-0661-90
 ;;9002226.02101,"869,43063-0661-90 ",.02)
 ;;43063-0661-90
 ;;9002226.02101,"869,43063-0666-01 ",.01)
 ;;43063-0666-01
 ;;9002226.02101,"869,43063-0666-01 ",.02)
 ;;43063-0666-01
 ;;9002226.02101,"869,43063-0666-30 ",.01)
 ;;43063-0666-30
 ;;9002226.02101,"869,43063-0666-30 ",.02)
 ;;43063-0666-30
 ;;9002226.02101,"869,43063-0666-90 ",.01)
 ;;43063-0666-90
 ;;9002226.02101,"869,43063-0666-90 ",.02)
 ;;43063-0666-90
 ;;9002226.02101,"869,43063-0670-30 ",.01)
 ;;43063-0670-30
 ;;9002226.02101,"869,43063-0670-30 ",.02)
 ;;43063-0670-30
 ;;9002226.02101,"869,43063-0670-90 ",.01)
 ;;43063-0670-90
 ;;9002226.02101,"869,43063-0670-90 ",.02)
 ;;43063-0670-90
 ;;9002226.02101,"869,43063-0683-30 ",.01)
 ;;43063-0683-30
 ;;9002226.02101,"869,43063-0683-30 ",.02)
 ;;43063-0683-30
 ;;9002226.02101,"869,43063-0683-90 ",.01)
 ;;43063-0683-90
 ;;9002226.02101,"869,43063-0683-90 ",.02)
 ;;43063-0683-90
 ;;9002226.02101,"869,43063-0712-21 ",.01)
 ;;43063-0712-21
 ;;9002226.02101,"869,43063-0712-21 ",.02)
 ;;43063-0712-21
 ;;9002226.02101,"869,43063-0712-30 ",.01)
 ;;43063-0712-30
 ;;9002226.02101,"869,43063-0712-30 ",.02)
 ;;43063-0712-30
 ;;9002226.02101,"869,43063-0722-30 ",.01)
 ;;43063-0722-30
 ;;9002226.02101,"869,43063-0722-30 ",.02)
 ;;43063-0722-30
 ;;9002226.02101,"869,43063-0744-30 ",.01)
 ;;43063-0744-30
 ;;9002226.02101,"869,43063-0744-30 ",.02)
 ;;43063-0744-30
 ;;9002226.02101,"869,43063-0754-30 ",.01)
 ;;43063-0754-30
 ;;9002226.02101,"869,43063-0754-30 ",.02)
 ;;43063-0754-30
 ;;9002226.02101,"869,43063-0754-90 ",.01)
 ;;43063-0754-90
 ;;9002226.02101,"869,43063-0754-90 ",.02)
 ;;43063-0754-90
 ;;9002226.02101,"869,43063-0761-90 ",.01)
 ;;43063-0761-90
 ;;9002226.02101,"869,43063-0761-90 ",.02)
 ;;43063-0761-90
 ;;9002226.02101,"869,43353-0362-15 ",.01)
 ;;43353-0362-15
 ;;9002226.02101,"869,43353-0362-15 ",.02)
 ;;43353-0362-15
 ;;9002226.02101,"869,43353-0364-15 ",.01)
 ;;43353-0364-15
 ;;9002226.02101,"869,43353-0364-15 ",.02)
 ;;43353-0364-15
 ;;9002226.02101,"869,43353-0370-53 ",.01)
 ;;43353-0370-53
 ;;9002226.02101,"869,43353-0370-53 ",.02)
 ;;43353-0370-53
 ;;9002226.02101,"869,43353-0378-45 ",.01)
 ;;43353-0378-45
 ;;9002226.02101,"869,43353-0378-45 ",.02)
 ;;43353-0378-45
 ;;9002226.02101,"869,43353-0382-30 ",.01)
 ;;43353-0382-30
 ;;9002226.02101,"869,43353-0382-30 ",.02)
 ;;43353-0382-30
 ;;9002226.02101,"869,43353-0415-30 ",.01)
 ;;43353-0415-30
 ;;9002226.02101,"869,43353-0415-30 ",.02)
 ;;43353-0415-30
 ;;9002226.02101,"869,43353-0419-15 ",.01)
 ;;43353-0419-15
 ;;9002226.02101,"869,43353-0419-15 ",.02)
 ;;43353-0419-15
 ;;9002226.02101,"869,43353-0421-30 ",.01)
 ;;43353-0421-30
 ;;9002226.02101,"869,43353-0421-30 ",.02)
 ;;43353-0421-30