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

BGP83A20.m

Go to the documentation of this file.
BGP83A20 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1828,35356-0663-15 ",.01)
 ;;35356-0663-15
 ;;9002226.02101,"1828,35356-0663-15 ",.02)
 ;;35356-0663-15
 ;;9002226.02101,"1828,35356-0663-30 ",.01)
 ;;35356-0663-30
 ;;9002226.02101,"1828,35356-0663-30 ",.02)
 ;;35356-0663-30
 ;;9002226.02101,"1828,35356-0663-60 ",.01)
 ;;35356-0663-60
 ;;9002226.02101,"1828,35356-0663-60 ",.02)
 ;;35356-0663-60
 ;;9002226.02101,"1828,35356-0664-15 ",.01)
 ;;35356-0664-15
 ;;9002226.02101,"1828,35356-0664-15 ",.02)
 ;;35356-0664-15
 ;;9002226.02101,"1828,35356-0664-30 ",.01)
 ;;35356-0664-30
 ;;9002226.02101,"1828,35356-0664-30 ",.02)
 ;;35356-0664-30
 ;;9002226.02101,"1828,35356-0664-60 ",.01)
 ;;35356-0664-60
 ;;9002226.02101,"1828,35356-0664-60 ",.02)
 ;;35356-0664-60
 ;;9002226.02101,"1828,35356-0664-90 ",.01)
 ;;35356-0664-90
 ;;9002226.02101,"1828,35356-0664-90 ",.02)
 ;;35356-0664-90
 ;;9002226.02101,"1828,35356-0694-05 ",.01)
 ;;35356-0694-05
 ;;9002226.02101,"1828,35356-0694-05 ",.02)
 ;;35356-0694-05
 ;;9002226.02101,"1828,35356-0694-30 ",.01)
 ;;35356-0694-30
 ;;9002226.02101,"1828,35356-0694-30 ",.02)
 ;;35356-0694-30
 ;;9002226.02101,"1828,35356-0694-60 ",.01)
 ;;35356-0694-60
 ;;9002226.02101,"1828,35356-0694-60 ",.02)
 ;;35356-0694-60
 ;;9002226.02101,"1828,35356-0694-90 ",.01)
 ;;35356-0694-90
 ;;9002226.02101,"1828,35356-0694-90 ",.02)
 ;;35356-0694-90
 ;;9002226.02101,"1828,35356-0716-02 ",.01)
 ;;35356-0716-02
 ;;9002226.02101,"1828,35356-0716-02 ",.02)
 ;;35356-0716-02
 ;;9002226.02101,"1828,35356-0716-04 ",.01)
 ;;35356-0716-04
 ;;9002226.02101,"1828,35356-0716-04 ",.02)
 ;;35356-0716-04
 ;;9002226.02101,"1828,35356-0716-10 ",.01)
 ;;35356-0716-10
 ;;9002226.02101,"1828,35356-0716-10 ",.02)
 ;;35356-0716-10
 ;;9002226.02101,"1828,35356-0716-20 ",.01)
 ;;35356-0716-20
 ;;9002226.02101,"1828,35356-0716-20 ",.02)
 ;;35356-0716-20
 ;;9002226.02101,"1828,35356-0716-30 ",.01)
 ;;35356-0716-30
 ;;9002226.02101,"1828,35356-0716-30 ",.02)
 ;;35356-0716-30
 ;;9002226.02101,"1828,35356-0716-60 ",.01)
 ;;35356-0716-60
 ;;9002226.02101,"1828,35356-0716-60 ",.02)
 ;;35356-0716-60
 ;;9002226.02101,"1828,35356-0716-90 ",.01)
 ;;35356-0716-90
 ;;9002226.02101,"1828,35356-0716-90 ",.02)
 ;;35356-0716-90
 ;;9002226.02101,"1828,35356-0719-01 ",.01)
 ;;35356-0719-01
 ;;9002226.02101,"1828,35356-0719-01 ",.02)
 ;;35356-0719-01
 ;;9002226.02101,"1828,35356-0719-30 ",.01)
 ;;35356-0719-30
 ;;9002226.02101,"1828,35356-0719-30 ",.02)
 ;;35356-0719-30
 ;;9002226.02101,"1828,35356-0719-60 ",.01)
 ;;35356-0719-60
 ;;9002226.02101,"1828,35356-0719-60 ",.02)
 ;;35356-0719-60
 ;;9002226.02101,"1828,35356-0722-30 ",.01)
 ;;35356-0722-30
 ;;9002226.02101,"1828,35356-0722-30 ",.02)
 ;;35356-0722-30
 ;;9002226.02101,"1828,35356-0722-60 ",.01)
 ;;35356-0722-60
 ;;9002226.02101,"1828,35356-0722-60 ",.02)
 ;;35356-0722-60
 ;;9002226.02101,"1828,35356-0722-90 ",.01)
 ;;35356-0722-90
 ;;9002226.02101,"1828,35356-0722-90 ",.02)
 ;;35356-0722-90
 ;;9002226.02101,"1828,35356-0724-01 ",.01)
 ;;35356-0724-01
 ;;9002226.02101,"1828,35356-0724-01 ",.02)
 ;;35356-0724-01
 ;;9002226.02101,"1828,35356-0724-02 ",.01)
 ;;35356-0724-02
 ;;9002226.02101,"1828,35356-0724-02 ",.02)
 ;;35356-0724-02
 ;;9002226.02101,"1828,35356-0724-30 ",.01)
 ;;35356-0724-30
 ;;9002226.02101,"1828,35356-0724-30 ",.02)
 ;;35356-0724-30
 ;;9002226.02101,"1828,35356-0724-60 ",.01)
 ;;35356-0724-60
 ;;9002226.02101,"1828,35356-0724-60 ",.02)
 ;;35356-0724-60
 ;;9002226.02101,"1828,35356-0724-90 ",.01)
 ;;35356-0724-90
 ;;9002226.02101,"1828,35356-0724-90 ",.02)
 ;;35356-0724-90
 ;;9002226.02101,"1828,35356-0744-10 ",.01)
 ;;35356-0744-10
 ;;9002226.02101,"1828,35356-0744-10 ",.02)
 ;;35356-0744-10
 ;;9002226.02101,"1828,35356-0744-30 ",.01)
 ;;35356-0744-30
 ;;9002226.02101,"1828,35356-0744-30 ",.02)
 ;;35356-0744-30
 ;;9002226.02101,"1828,35356-0744-60 ",.01)
 ;;35356-0744-60
 ;;9002226.02101,"1828,35356-0744-60 ",.02)
 ;;35356-0744-60
 ;;9002226.02101,"1828,35356-0744-90 ",.01)
 ;;35356-0744-90
 ;;9002226.02101,"1828,35356-0744-90 ",.02)
 ;;35356-0744-90
 ;;9002226.02101,"1828,35356-0747-30 ",.01)
 ;;35356-0747-30
 ;;9002226.02101,"1828,35356-0747-30 ",.02)
 ;;35356-0747-30
 ;;9002226.02101,"1828,35356-0752-60 ",.01)
 ;;35356-0752-60
 ;;9002226.02101,"1828,35356-0752-60 ",.02)
 ;;35356-0752-60
 ;;9002226.02101,"1828,35356-0812-00 ",.01)
 ;;35356-0812-00
 ;;9002226.02101,"1828,35356-0812-00 ",.02)
 ;;35356-0812-00
 ;;9002226.02101,"1828,35356-0821-30 ",.01)
 ;;35356-0821-30
 ;;9002226.02101,"1828,35356-0821-30 ",.02)
 ;;35356-0821-30
 ;;9002226.02101,"1828,35356-0844-05 ",.01)
 ;;35356-0844-05
 ;;9002226.02101,"1828,35356-0844-05 ",.02)
 ;;35356-0844-05
 ;;9002226.02101,"1828,35356-0844-15 ",.01)
 ;;35356-0844-15
 ;;9002226.02101,"1828,35356-0844-15 ",.02)
 ;;35356-0844-15
 ;;9002226.02101,"1828,35356-0844-30 ",.01)
 ;;35356-0844-30
 ;;9002226.02101,"1828,35356-0844-30 ",.02)
 ;;35356-0844-30
 ;;9002226.02101,"1828,35356-0844-60 ",.01)
 ;;35356-0844-60
 ;;9002226.02101,"1828,35356-0844-60 ",.02)
 ;;35356-0844-60
 ;;9002226.02101,"1828,35356-0844-90 ",.01)
 ;;35356-0844-90
 ;;9002226.02101,"1828,35356-0844-90 ",.02)
 ;;35356-0844-90
 ;;9002226.02101,"1828,35356-0882-30 ",.01)
 ;;35356-0882-30
 ;;9002226.02101,"1828,35356-0882-30 ",.02)
 ;;35356-0882-30
 ;;9002226.02101,"1828,35573-0325-10 ",.01)
 ;;35573-0325-10
 ;;9002226.02101,"1828,35573-0325-10 ",.02)
 ;;35573-0325-10
 ;;9002226.02101,"1828,42192-0336-01 ",.01)
 ;;42192-0336-01
 ;;9002226.02101,"1828,42192-0336-01 ",.02)
 ;;42192-0336-01
 ;;9002226.02101,"1828,42254-0033-03 ",.01)
 ;;42254-0033-03
 ;;9002226.02101,"1828,42254-0033-03 ",.02)
 ;;42254-0033-03
 ;;9002226.02101,"1828,42254-0033-14 ",.01)
 ;;42254-0033-14
 ;;9002226.02101,"1828,42254-0033-14 ",.02)
 ;;42254-0033-14
 ;;9002226.02101,"1828,42254-0033-20 ",.01)
 ;;42254-0033-20
 ;;9002226.02101,"1828,42254-0033-20 ",.02)
 ;;42254-0033-20
 ;;9002226.02101,"1828,42254-0033-30 ",.01)
 ;;42254-0033-30
 ;;9002226.02101,"1828,42254-0033-30 ",.02)
 ;;42254-0033-30
 ;;9002226.02101,"1828,42254-0033-60 ",.01)
 ;;42254-0033-60
 ;;9002226.02101,"1828,42254-0033-60 ",.02)
 ;;42254-0033-60
 ;;9002226.02101,"1828,42254-0033-90 ",.01)
 ;;42254-0033-90
 ;;9002226.02101,"1828,42254-0033-90 ",.02)
 ;;42254-0033-90
 ;;9002226.02101,"1828,42254-0048-60 ",.01)
 ;;42254-0048-60
 ;;9002226.02101,"1828,42254-0048-60 ",.02)
 ;;42254-0048-60
 ;;9002226.02101,"1828,42254-0096-20 ",.01)
 ;;42254-0096-20
 ;;9002226.02101,"1828,42254-0096-20 ",.02)
 ;;42254-0096-20
 ;;9002226.02101,"1828,42254-0096-30 ",.01)
 ;;42254-0096-30
 ;;9002226.02101,"1828,42254-0096-30 ",.02)
 ;;42254-0096-30
 ;;9002226.02101,"1828,42254-0096-60 ",.01)
 ;;42254-0096-60
 ;;9002226.02101,"1828,42254-0096-60 ",.02)
 ;;42254-0096-60
 ;;9002226.02101,"1828,42254-0096-90 ",.01)
 ;;42254-0096-90
 ;;9002226.02101,"1828,42254-0096-90 ",.02)
 ;;42254-0096-90
 ;;9002226.02101,"1828,42254-0111-30 ",.01)
 ;;42254-0111-30
 ;;9002226.02101,"1828,42254-0111-30 ",.02)
 ;;42254-0111-30
 ;;9002226.02101,"1828,42254-0111-90 ",.01)
 ;;42254-0111-90
 ;;9002226.02101,"1828,42254-0111-90 ",.02)
 ;;42254-0111-90
 ;;9002226.02101,"1828,42254-0113-05 ",.01)
 ;;42254-0113-05
 ;;9002226.02101,"1828,42254-0113-05 ",.02)
 ;;42254-0113-05
 ;;9002226.02101,"1828,42254-0113-15 ",.01)
 ;;42254-0113-15
 ;;9002226.02101,"1828,42254-0113-15 ",.02)
 ;;42254-0113-15
 ;;9002226.02101,"1828,42254-0113-30 ",.01)
 ;;42254-0113-30
 ;;9002226.02101,"1828,42254-0113-30 ",.02)
 ;;42254-0113-30
 ;;9002226.02101,"1828,42254-0113-60 ",.01)
 ;;42254-0113-60
 ;;9002226.02101,"1828,42254-0113-60 ",.02)
 ;;42254-0113-60
 ;;9002226.02101,"1828,42254-0113-90 ",.01)
 ;;42254-0113-90
 ;;9002226.02101,"1828,42254-0113-90 ",.02)
 ;;42254-0113-90
 ;;9002226.02101,"1828,42254-0216-90 ",.01)
 ;;42254-0216-90
 ;;9002226.02101,"1828,42254-0216-90 ",.02)
 ;;42254-0216-90
 ;;9002226.02101,"1828,42254-0254-03 ",.01)
 ;;42254-0254-03
 ;;9002226.02101,"1828,42254-0254-03 ",.02)
 ;;42254-0254-03
 ;;9002226.02101,"1828,42291-0210-90 ",.01)
 ;;42291-0210-90
 ;;9002226.02101,"1828,42291-0210-90 ",.02)
 ;;42291-0210-90
 ;;9002226.02101,"1828,42291-0211-90 ",.01)
 ;;42291-0211-90
 ;;9002226.02101,"1828,42291-0211-90 ",.02)
 ;;42291-0211-90
 ;;9002226.02101,"1828,42291-0212-90 ",.01)
 ;;42291-0212-90
 ;;9002226.02101,"1828,42291-0212-90 ",.02)
 ;;42291-0212-90
 ;;9002226.02101,"1828,42291-0214-01 ",.01)
 ;;42291-0214-01
 ;;9002226.02101,"1828,42291-0214-01 ",.02)
 ;;42291-0214-01
 ;;9002226.02101,"1828,42291-0797-01 ",.01)
 ;;42291-0797-01
 ;;9002226.02101,"1828,42291-0797-01 ",.02)
 ;;42291-0797-01
 ;;9002226.02101,"1828,42549-0534-30 ",.01)
 ;;42549-0534-30
 ;;9002226.02101,"1828,42549-0534-30 ",.02)
 ;;42549-0534-30
 ;;9002226.02101,"1828,42549-0554-30 ",.01)
 ;;42549-0554-30
 ;;9002226.02101,"1828,42549-0554-30 ",.02)
 ;;42549-0554-30
 ;;9002226.02101,"1828,42549-0554-60 ",.01)
 ;;42549-0554-60
 ;;9002226.02101,"1828,42549-0554-60 ",.02)
 ;;42549-0554-60
 ;;9002226.02101,"1828,42549-0554-92 ",.01)
 ;;42549-0554-92
 ;;9002226.02101,"1828,42549-0554-92 ",.02)
 ;;42549-0554-92
 ;;9002226.02101,"1828,42549-0558-30 ",.01)
 ;;42549-0558-30
 ;;9002226.02101,"1828,42549-0558-30 ",.02)
 ;;42549-0558-30
 ;;9002226.02101,"1828,42549-0561-30 ",.01)
 ;;42549-0561-30
 ;;9002226.02101,"1828,42549-0561-30 ",.02)
 ;;42549-0561-30
 ;;9002226.02101,"1828,42549-0603-20 ",.01)
 ;;42549-0603-20
 ;;9002226.02101,"1828,42549-0603-20 ",.02)
 ;;42549-0603-20
 ;;9002226.02101,"1828,42549-0603-30 ",.01)
 ;;42549-0603-30
 ;;9002226.02101,"1828,42549-0603-30 ",.02)
 ;;42549-0603-30
 ;;9002226.02101,"1828,42549-0603-60 ",.01)
 ;;42549-0603-60
 ;;9002226.02101,"1828,42549-0603-60 ",.02)
 ;;42549-0603-60
 ;;9002226.02101,"1828,42549-0603-90 ",.01)
 ;;42549-0603-90
 ;;9002226.02101,"1828,42549-0603-90 ",.02)
 ;;42549-0603-90
 ;;9002226.02101,"1828,42549-0608-30 ",.01)
 ;;42549-0608-30
 ;;9002226.02101,"1828,42549-0608-30 ",.02)
 ;;42549-0608-30
 ;;9002226.02101,"1828,42549-0651-30 ",.01)
 ;;42549-0651-30
 ;;9002226.02101,"1828,42549-0651-30 ",.02)
 ;;42549-0651-30
 ;;9002226.02101,"1828,42549-0651-60 ",.01)
 ;;42549-0651-60
 ;;9002226.02101,"1828,42549-0651-60 ",.02)
 ;;42549-0651-60
 ;;9002226.02101,"1828,42549-0651-90 ",.01)
 ;;42549-0651-90
 ;;9002226.02101,"1828,42549-0651-90 ",.02)
 ;;42549-0651-90
 ;;9002226.02101,"1828,42549-0655-10 ",.01)
 ;;42549-0655-10
 ;;9002226.02101,"1828,42549-0655-10 ",.02)
 ;;42549-0655-10
 ;;9002226.02101,"1828,42582-0300-10 ",.01)
 ;;42582-0300-10
 ;;9002226.02101,"1828,42582-0300-10 ",.02)
 ;;42582-0300-10
 ;;9002226.02101,"1828,42582-0300-16 ",.01)
 ;;42582-0300-16
 ;;9002226.02101,"1828,42582-0300-16 ",.02)
 ;;42582-0300-16
 ;;9002226.02101,"1828,42582-0300-20 ",.01)
 ;;42582-0300-20
 ;;9002226.02101,"1828,42582-0300-20 ",.02)
 ;;42582-0300-20
 ;;9002226.02101,"1828,42582-0301-10 ",.01)
 ;;42582-0301-10
 ;;9002226.02101,"1828,42582-0301-10 ",.02)
 ;;42582-0301-10
 ;;9002226.02101,"1828,42582-0301-16 ",.01)
 ;;42582-0301-16
 ;;9002226.02101,"1828,42582-0301-16 ",.02)
 ;;42582-0301-16
 ;;9002226.02101,"1828,42582-0301-20 ",.01)
 ;;42582-0301-20
 ;;9002226.02101,"1828,42582-0301-20 ",.02)
 ;;42582-0301-20
 ;;9002226.02101,"1828,43063-0018-04 ",.01)
 ;;43063-0018-04
 ;;9002226.02101,"1828,43063-0018-04 ",.02)
 ;;43063-0018-04
 ;;9002226.02101,"1828,43063-0018-06 ",.01)
 ;;43063-0018-06
 ;;9002226.02101,"1828,43063-0018-06 ",.02)
 ;;43063-0018-06
 ;;9002226.02101,"1828,43063-0030-03 ",.01)
 ;;43063-0030-03
 ;;9002226.02101,"1828,43063-0030-03 ",.02)
 ;;43063-0030-03
 ;;9002226.02101,"1828,43063-0030-06 ",.01)
 ;;43063-0030-06