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

BGP82Z49.m

Go to the documentation of this file.
BGP82Z49 ; 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,"619,52959-0324-10 ",.02)
 ;;52959-0324-10
 ;;9002226.02101,"619,52959-0324-15 ",.01)
 ;;52959-0324-15
 ;;9002226.02101,"619,52959-0324-15 ",.02)
 ;;52959-0324-15
 ;;9002226.02101,"619,52959-0324-20 ",.01)
 ;;52959-0324-20
 ;;9002226.02101,"619,52959-0324-20 ",.02)
 ;;52959-0324-20
 ;;9002226.02101,"619,52959-0324-24 ",.01)
 ;;52959-0324-24
 ;;9002226.02101,"619,52959-0324-24 ",.02)
 ;;52959-0324-24
 ;;9002226.02101,"619,52959-0324-25 ",.01)
 ;;52959-0324-25
 ;;9002226.02101,"619,52959-0324-25 ",.02)
 ;;52959-0324-25
 ;;9002226.02101,"619,52959-0324-28 ",.01)
 ;;52959-0324-28
 ;;9002226.02101,"619,52959-0324-28 ",.02)
 ;;52959-0324-28
 ;;9002226.02101,"619,52959-0324-30 ",.01)
 ;;52959-0324-30
 ;;9002226.02101,"619,52959-0324-30 ",.02)
 ;;52959-0324-30
 ;;9002226.02101,"619,52959-0324-40 ",.01)
 ;;52959-0324-40
 ;;9002226.02101,"619,52959-0324-40 ",.02)
 ;;52959-0324-40
 ;;9002226.02101,"619,52959-0324-42 ",.01)
 ;;52959-0324-42
 ;;9002226.02101,"619,52959-0324-42 ",.02)
 ;;52959-0324-42
 ;;9002226.02101,"619,52959-0324-45 ",.01)
 ;;52959-0324-45
 ;;9002226.02101,"619,52959-0324-45 ",.02)
 ;;52959-0324-45
 ;;9002226.02101,"619,52959-0324-50 ",.01)
 ;;52959-0324-50
 ;;9002226.02101,"619,52959-0324-50 ",.02)
 ;;52959-0324-50
 ;;9002226.02101,"619,52959-0324-60 ",.01)
 ;;52959-0324-60
 ;;9002226.02101,"619,52959-0324-60 ",.02)
 ;;52959-0324-60
 ;;9002226.02101,"619,52959-0324-75 ",.01)
 ;;52959-0324-75
 ;;9002226.02101,"619,52959-0324-75 ",.02)
 ;;52959-0324-75
 ;;9002226.02101,"619,52959-0324-84 ",.01)
 ;;52959-0324-84
 ;;9002226.02101,"619,52959-0324-84 ",.02)
 ;;52959-0324-84
 ;;9002226.02101,"619,52959-0324-90 ",.01)
 ;;52959-0324-90
 ;;9002226.02101,"619,52959-0324-90 ",.02)
 ;;52959-0324-90
 ;;9002226.02101,"619,52959-0386-02 ",.01)
 ;;52959-0386-02
 ;;9002226.02101,"619,52959-0386-02 ",.02)
 ;;52959-0386-02
 ;;9002226.02101,"619,52959-0386-30 ",.01)
 ;;52959-0386-30
 ;;9002226.02101,"619,52959-0386-30 ",.02)
 ;;52959-0386-30
 ;;9002226.02101,"619,52959-0386-60 ",.01)
 ;;52959-0386-60
 ;;9002226.02101,"619,52959-0386-60 ",.02)
 ;;52959-0386-60
 ;;9002226.02101,"619,52959-0386-90 ",.01)
 ;;52959-0386-90
 ;;9002226.02101,"619,52959-0386-90 ",.02)
 ;;52959-0386-90
 ;;9002226.02101,"619,52959-0396-60 ",.01)
 ;;52959-0396-60
 ;;9002226.02101,"619,52959-0396-60 ",.02)
 ;;52959-0396-60
 ;;9002226.02101,"619,52959-0406-02 ",.01)
 ;;52959-0406-02
 ;;9002226.02101,"619,52959-0406-02 ",.02)
 ;;52959-0406-02
 ;;9002226.02101,"619,52959-0406-30 ",.01)
 ;;52959-0406-30
 ;;9002226.02101,"619,52959-0406-30 ",.02)
 ;;52959-0406-30
 ;;9002226.02101,"619,52959-0406-60 ",.01)
 ;;52959-0406-60
 ;;9002226.02101,"619,52959-0406-60 ",.02)
 ;;52959-0406-60
 ;;9002226.02101,"619,52959-0406-90 ",.01)
 ;;52959-0406-90
 ;;9002226.02101,"619,52959-0406-90 ",.02)
 ;;52959-0406-90
 ;;9002226.02101,"619,52959-0408-02 ",.01)
 ;;52959-0408-02
 ;;9002226.02101,"619,52959-0408-02 ",.02)
 ;;52959-0408-02
 ;;9002226.02101,"619,52959-0408-30 ",.01)
 ;;52959-0408-30
 ;;9002226.02101,"619,52959-0408-30 ",.02)
 ;;52959-0408-30
 ;;9002226.02101,"619,52959-0408-60 ",.01)
 ;;52959-0408-60
 ;;9002226.02101,"619,52959-0408-60 ",.02)
 ;;52959-0408-60
 ;;9002226.02101,"619,52959-0409-30 ",.01)
 ;;52959-0409-30
 ;;9002226.02101,"619,52959-0409-30 ",.02)
 ;;52959-0409-30
 ;;9002226.02101,"619,52959-0409-60 ",.01)
 ;;52959-0409-60
 ;;9002226.02101,"619,52959-0409-60 ",.02)
 ;;52959-0409-60
 ;;9002226.02101,"619,52959-0413-02 ",.01)
 ;;52959-0413-02
 ;;9002226.02101,"619,52959-0413-02 ",.02)
 ;;52959-0413-02
 ;;9002226.02101,"619,52959-0413-60 ",.01)
 ;;52959-0413-60
 ;;9002226.02101,"619,52959-0413-60 ",.02)
 ;;52959-0413-60
 ;;9002226.02101,"619,52959-0414-00 ",.01)
 ;;52959-0414-00
 ;;9002226.02101,"619,52959-0414-00 ",.02)
 ;;52959-0414-00
 ;;9002226.02101,"619,52959-0414-02 ",.01)
 ;;52959-0414-02
 ;;9002226.02101,"619,52959-0414-02 ",.02)
 ;;52959-0414-02
 ;;9002226.02101,"619,52959-0414-10 ",.01)
 ;;52959-0414-10
 ;;9002226.02101,"619,52959-0414-10 ",.02)
 ;;52959-0414-10
 ;;9002226.02101,"619,52959-0414-15 ",.01)
 ;;52959-0414-15
 ;;9002226.02101,"619,52959-0414-15 ",.02)
 ;;52959-0414-15
 ;;9002226.02101,"619,52959-0414-20 ",.01)
 ;;52959-0414-20
 ;;9002226.02101,"619,52959-0414-20 ",.02)
 ;;52959-0414-20
 ;;9002226.02101,"619,52959-0414-21 ",.01)
 ;;52959-0414-21
 ;;9002226.02101,"619,52959-0414-21 ",.02)
 ;;52959-0414-21
 ;;9002226.02101,"619,52959-0414-24 ",.01)
 ;;52959-0414-24
 ;;9002226.02101,"619,52959-0414-24 ",.02)
 ;;52959-0414-24
 ;;9002226.02101,"619,52959-0414-28 ",.01)
 ;;52959-0414-28
 ;;9002226.02101,"619,52959-0414-28 ",.02)
 ;;52959-0414-28
 ;;9002226.02101,"619,52959-0414-30 ",.01)
 ;;52959-0414-30
 ;;9002226.02101,"619,52959-0414-30 ",.02)
 ;;52959-0414-30
 ;;9002226.02101,"619,52959-0414-40 ",.01)
 ;;52959-0414-40
 ;;9002226.02101,"619,52959-0414-40 ",.02)
 ;;52959-0414-40
 ;;9002226.02101,"619,52959-0414-60 ",.01)
 ;;52959-0414-60
 ;;9002226.02101,"619,52959-0414-60 ",.02)
 ;;52959-0414-60
 ;;9002226.02101,"619,52959-0420-02 ",.01)
 ;;52959-0420-02
 ;;9002226.02101,"619,52959-0420-02 ",.02)
 ;;52959-0420-02
 ;;9002226.02101,"619,52959-0435-02 ",.01)
 ;;52959-0435-02
 ;;9002226.02101,"619,52959-0435-02 ",.02)
 ;;52959-0435-02
 ;;9002226.02101,"619,52959-0435-30 ",.01)
 ;;52959-0435-30
 ;;9002226.02101,"619,52959-0435-30 ",.02)
 ;;52959-0435-30
 ;;9002226.02101,"619,52959-0435-60 ",.01)
 ;;52959-0435-60
 ;;9002226.02101,"619,52959-0435-60 ",.02)
 ;;52959-0435-60
 ;;9002226.02101,"619,52959-0435-90 ",.01)
 ;;52959-0435-90
 ;;9002226.02101,"619,52959-0435-90 ",.02)
 ;;52959-0435-90
 ;;9002226.02101,"619,52959-0446-00 ",.01)
 ;;52959-0446-00
 ;;9002226.02101,"619,52959-0446-00 ",.02)
 ;;52959-0446-00
 ;;9002226.02101,"619,52959-0446-02 ",.01)
 ;;52959-0446-02
 ;;9002226.02101,"619,52959-0446-02 ",.02)
 ;;52959-0446-02
 ;;9002226.02101,"619,52959-0446-20 ",.01)
 ;;52959-0446-20
 ;;9002226.02101,"619,52959-0446-20 ",.02)
 ;;52959-0446-20
 ;;9002226.02101,"619,52959-0446-24 ",.01)
 ;;52959-0446-24
 ;;9002226.02101,"619,52959-0446-24 ",.02)
 ;;52959-0446-24
 ;;9002226.02101,"619,52959-0446-30 ",.01)
 ;;52959-0446-30
 ;;9002226.02101,"619,52959-0446-30 ",.02)
 ;;52959-0446-30
 ;;9002226.02101,"619,52959-0446-50 ",.01)
 ;;52959-0446-50
 ;;9002226.02101,"619,52959-0446-50 ",.02)
 ;;52959-0446-50
 ;;9002226.02101,"619,52959-0446-60 ",.01)
 ;;52959-0446-60
 ;;9002226.02101,"619,52959-0446-60 ",.02)
 ;;52959-0446-60
 ;;9002226.02101,"619,52959-0522-12 ",.01)
 ;;52959-0522-12
 ;;9002226.02101,"619,52959-0522-12 ",.02)
 ;;52959-0522-12
 ;;9002226.02101,"619,52959-0522-15 ",.01)
 ;;52959-0522-15
 ;;9002226.02101,"619,52959-0522-15 ",.02)
 ;;52959-0522-15
 ;;9002226.02101,"619,52959-0522-20 ",.01)
 ;;52959-0522-20
 ;;9002226.02101,"619,52959-0522-20 ",.02)
 ;;52959-0522-20
 ;;9002226.02101,"619,52959-0522-30 ",.01)
 ;;52959-0522-30
 ;;9002226.02101,"619,52959-0522-30 ",.02)
 ;;52959-0522-30
 ;;9002226.02101,"619,52959-0522-40 ",.01)
 ;;52959-0522-40
 ;;9002226.02101,"619,52959-0522-40 ",.02)
 ;;52959-0522-40
 ;;9002226.02101,"619,52959-0533-24 ",.01)
 ;;52959-0533-24
 ;;9002226.02101,"619,52959-0533-24 ",.02)
 ;;52959-0533-24
 ;;9002226.02101,"619,52959-0533-30 ",.01)
 ;;52959-0533-30
 ;;9002226.02101,"619,52959-0533-30 ",.02)
 ;;52959-0533-30
 ;;9002226.02101,"619,52959-0533-40 ",.01)
 ;;52959-0533-40
 ;;9002226.02101,"619,52959-0533-40 ",.02)
 ;;52959-0533-40
 ;;9002226.02101,"619,52959-0545-02 ",.01)
 ;;52959-0545-02
 ;;9002226.02101,"619,52959-0545-02 ",.02)
 ;;52959-0545-02
 ;;9002226.02101,"619,52959-0545-10 ",.01)
 ;;52959-0545-10
 ;;9002226.02101,"619,52959-0545-10 ",.02)
 ;;52959-0545-10
 ;;9002226.02101,"619,52959-0545-12 ",.01)
 ;;52959-0545-12
 ;;9002226.02101,"619,52959-0545-12 ",.02)
 ;;52959-0545-12
 ;;9002226.02101,"619,52959-0545-15 ",.01)
 ;;52959-0545-15
 ;;9002226.02101,"619,52959-0545-15 ",.02)
 ;;52959-0545-15
 ;;9002226.02101,"619,52959-0545-20 ",.01)
 ;;52959-0545-20
 ;;9002226.02101,"619,52959-0545-20 ",.02)
 ;;52959-0545-20
 ;;9002226.02101,"619,52959-0545-24 ",.01)
 ;;52959-0545-24
 ;;9002226.02101,"619,52959-0545-24 ",.02)
 ;;52959-0545-24
 ;;9002226.02101,"619,52959-0545-30 ",.01)
 ;;52959-0545-30
 ;;9002226.02101,"619,52959-0545-30 ",.02)
 ;;52959-0545-30
 ;;9002226.02101,"619,52959-0545-35 ",.01)
 ;;52959-0545-35
 ;;9002226.02101,"619,52959-0545-35 ",.02)
 ;;52959-0545-35
 ;;9002226.02101,"619,52959-0545-40 ",.01)
 ;;52959-0545-40
 ;;9002226.02101,"619,52959-0545-40 ",.02)
 ;;52959-0545-40
 ;;9002226.02101,"619,52959-0545-50 ",.01)
 ;;52959-0545-50
 ;;9002226.02101,"619,52959-0545-50 ",.02)
 ;;52959-0545-50
 ;;9002226.02101,"619,52959-0545-60 ",.01)
 ;;52959-0545-60
 ;;9002226.02101,"619,52959-0545-60 ",.02)
 ;;52959-0545-60
 ;;9002226.02101,"619,52959-0545-90 ",.01)
 ;;52959-0545-90
 ;;9002226.02101,"619,52959-0545-90 ",.02)
 ;;52959-0545-90
 ;;9002226.02101,"619,52959-0548-30 ",.01)
 ;;52959-0548-30
 ;;9002226.02101,"619,52959-0548-30 ",.02)
 ;;52959-0548-30
 ;;9002226.02101,"619,52959-0549-30 ",.01)
 ;;52959-0549-30
 ;;9002226.02101,"619,52959-0549-30 ",.02)
 ;;52959-0549-30
 ;;9002226.02101,"619,52959-0552-30 ",.01)
 ;;52959-0552-30
 ;;9002226.02101,"619,52959-0552-30 ",.02)
 ;;52959-0552-30
 ;;9002226.02101,"619,52959-0553-30 ",.01)
 ;;52959-0553-30
 ;;9002226.02101,"619,52959-0553-30 ",.02)
 ;;52959-0553-30
 ;;9002226.02101,"619,52959-0554-02 ",.01)
 ;;52959-0554-02
 ;;9002226.02101,"619,52959-0554-02 ",.02)
 ;;52959-0554-02
 ;;9002226.02101,"619,52959-0554-30 ",.01)
 ;;52959-0554-30
 ;;9002226.02101,"619,52959-0554-30 ",.02)
 ;;52959-0554-30
 ;;9002226.02101,"619,52959-0554-60 ",.01)
 ;;52959-0554-60
 ;;9002226.02101,"619,52959-0554-60 ",.02)
 ;;52959-0554-60
 ;;9002226.02101,"619,52959-0554-90 ",.01)
 ;;52959-0554-90
 ;;9002226.02101,"619,52959-0554-90 ",.02)
 ;;52959-0554-90
 ;;9002226.02101,"619,52959-0556-02 ",.01)
 ;;52959-0556-02
 ;;9002226.02101,"619,52959-0556-02 ",.02)
 ;;52959-0556-02
 ;;9002226.02101,"619,52959-0556-30 ",.01)
 ;;52959-0556-30
 ;;9002226.02101,"619,52959-0556-30 ",.02)
 ;;52959-0556-30
 ;;9002226.02101,"619,52959-0556-60 ",.01)
 ;;52959-0556-60
 ;;9002226.02101,"619,52959-0556-60 ",.02)
 ;;52959-0556-60
 ;;9002226.02101,"619,52959-0556-90 ",.01)
 ;;52959-0556-90
 ;;9002226.02101,"619,52959-0556-90 ",.02)
 ;;52959-0556-90
 ;;9002226.02101,"619,52959-0566-30 ",.01)
 ;;52959-0566-30
 ;;9002226.02101,"619,52959-0566-30 ",.02)
 ;;52959-0566-30
 ;;9002226.02101,"619,52959-0580-03 ",.01)
 ;;52959-0580-03
 ;;9002226.02101,"619,52959-0580-03 ",.02)
 ;;52959-0580-03
 ;;9002226.02101,"619,52959-0585-05 ",.01)
 ;;52959-0585-05
 ;;9002226.02101,"619,52959-0585-05 ",.02)
 ;;52959-0585-05
 ;;9002226.02101,"619,52959-0586-05 ",.01)
 ;;52959-0586-05
 ;;9002226.02101,"619,52959-0586-05 ",.02)
 ;;52959-0586-05
 ;;9002226.02101,"619,52959-0658-05 ",.01)
 ;;52959-0658-05
 ;;9002226.02101,"619,52959-0658-05 ",.02)
 ;;52959-0658-05
 ;;9002226.02101,"619,52959-0666-00 ",.01)
 ;;52959-0666-00
 ;;9002226.02101,"619,52959-0666-00 ",.02)
 ;;52959-0666-00
 ;;9002226.02101,"619,52959-0666-02 ",.01)
 ;;52959-0666-02
 ;;9002226.02101,"619,52959-0666-02 ",.02)
 ;;52959-0666-02
 ;;9002226.02101,"619,52959-0666-20 ",.01)
 ;;52959-0666-20
 ;;9002226.02101,"619,52959-0666-20 ",.02)
 ;;52959-0666-20
 ;;9002226.02101,"619,52959-0666-28 ",.01)
 ;;52959-0666-28
 ;;9002226.02101,"619,52959-0666-28 ",.02)
 ;;52959-0666-28
 ;;9002226.02101,"619,52959-0666-30 ",.01)
 ;;52959-0666-30
 ;;9002226.02101,"619,52959-0666-30 ",.02)
 ;;52959-0666-30
 ;;9002226.02101,"619,52959-0666-40 ",.01)
 ;;52959-0666-40