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

BGP82Z50.m

Go to the documentation of this file.
BGP82Z50 ; 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-0666-40 ",.02)
 ;;52959-0666-40
 ;;9002226.02101,"619,52959-0666-56 ",.01)
 ;;52959-0666-56
 ;;9002226.02101,"619,52959-0666-56 ",.02)
 ;;52959-0666-56
 ;;9002226.02101,"619,52959-0666-60 ",.01)
 ;;52959-0666-60
 ;;9002226.02101,"619,52959-0666-60 ",.02)
 ;;52959-0666-60
 ;;9002226.02101,"619,52959-0666-90 ",.01)
 ;;52959-0666-90
 ;;9002226.02101,"619,52959-0666-90 ",.02)
 ;;52959-0666-90
 ;;9002226.02101,"619,52959-0688-00 ",.01)
 ;;52959-0688-00
 ;;9002226.02101,"619,52959-0688-00 ",.02)
 ;;52959-0688-00
 ;;9002226.02101,"619,52959-0688-02 ",.01)
 ;;52959-0688-02
 ;;9002226.02101,"619,52959-0688-02 ",.02)
 ;;52959-0688-02
 ;;9002226.02101,"619,52959-0688-03 ",.01)
 ;;52959-0688-03
 ;;9002226.02101,"619,52959-0688-03 ",.02)
 ;;52959-0688-03
 ;;9002226.02101,"619,52959-0688-05 ",.01)
 ;;52959-0688-05
 ;;9002226.02101,"619,52959-0688-05 ",.02)
 ;;52959-0688-05
 ;;9002226.02101,"619,52959-0688-10 ",.01)
 ;;52959-0688-10
 ;;9002226.02101,"619,52959-0688-10 ",.02)
 ;;52959-0688-10
 ;;9002226.02101,"619,52959-0688-12 ",.01)
 ;;52959-0688-12
 ;;9002226.02101,"619,52959-0688-12 ",.02)
 ;;52959-0688-12
 ;;9002226.02101,"619,52959-0688-15 ",.01)
 ;;52959-0688-15
 ;;9002226.02101,"619,52959-0688-15 ",.02)
 ;;52959-0688-15
 ;;9002226.02101,"619,52959-0688-18 ",.01)
 ;;52959-0688-18
 ;;9002226.02101,"619,52959-0688-18 ",.02)
 ;;52959-0688-18
 ;;9002226.02101,"619,52959-0688-20 ",.01)
 ;;52959-0688-20
 ;;9002226.02101,"619,52959-0688-20 ",.02)
 ;;52959-0688-20
 ;;9002226.02101,"619,52959-0688-21 ",.01)
 ;;52959-0688-21
 ;;9002226.02101,"619,52959-0688-21 ",.02)
 ;;52959-0688-21
 ;;9002226.02101,"619,52959-0688-24 ",.01)
 ;;52959-0688-24
 ;;9002226.02101,"619,52959-0688-24 ",.02)
 ;;52959-0688-24
 ;;9002226.02101,"619,52959-0688-25 ",.01)
 ;;52959-0688-25
 ;;9002226.02101,"619,52959-0688-25 ",.02)
 ;;52959-0688-25
 ;;9002226.02101,"619,52959-0688-28 ",.01)
 ;;52959-0688-28
 ;;9002226.02101,"619,52959-0688-28 ",.02)
 ;;52959-0688-28
 ;;9002226.02101,"619,52959-0688-30 ",.01)
 ;;52959-0688-30
 ;;9002226.02101,"619,52959-0688-30 ",.02)
 ;;52959-0688-30
 ;;9002226.02101,"619,52959-0688-35 ",.01)
 ;;52959-0688-35
 ;;9002226.02101,"619,52959-0688-35 ",.02)
 ;;52959-0688-35
 ;;9002226.02101,"619,52959-0688-40 ",.01)
 ;;52959-0688-40
 ;;9002226.02101,"619,52959-0688-40 ",.02)
 ;;52959-0688-40
 ;;9002226.02101,"619,52959-0688-50 ",.01)
 ;;52959-0688-50
 ;;9002226.02101,"619,52959-0688-50 ",.02)
 ;;52959-0688-50
 ;;9002226.02101,"619,52959-0688-56 ",.01)
 ;;52959-0688-56
 ;;9002226.02101,"619,52959-0688-56 ",.02)
 ;;52959-0688-56
 ;;9002226.02101,"619,52959-0688-60 ",.01)
 ;;52959-0688-60
 ;;9002226.02101,"619,52959-0688-60 ",.02)
 ;;52959-0688-60
 ;;9002226.02101,"619,52959-0688-84 ",.01)
 ;;52959-0688-84
 ;;9002226.02101,"619,52959-0688-84 ",.02)
 ;;52959-0688-84
 ;;9002226.02101,"619,52959-0688-90 ",.01)
 ;;52959-0688-90
 ;;9002226.02101,"619,52959-0688-90 ",.02)
 ;;52959-0688-90
 ;;9002226.02101,"619,52959-0735-00 ",.01)
 ;;52959-0735-00
 ;;9002226.02101,"619,52959-0735-00 ",.02)
 ;;52959-0735-00
 ;;9002226.02101,"619,52959-0735-02 ",.01)
 ;;52959-0735-02
 ;;9002226.02101,"619,52959-0735-02 ",.02)
 ;;52959-0735-02
 ;;9002226.02101,"619,52959-0735-03 ",.01)
 ;;52959-0735-03
 ;;9002226.02101,"619,52959-0735-03 ",.02)
 ;;52959-0735-03
 ;;9002226.02101,"619,52959-0735-28 ",.01)
 ;;52959-0735-28
 ;;9002226.02101,"619,52959-0735-28 ",.02)
 ;;52959-0735-28
 ;;9002226.02101,"619,52959-0735-30 ",.01)
 ;;52959-0735-30
 ;;9002226.02101,"619,52959-0735-30 ",.02)
 ;;52959-0735-30
 ;;9002226.02101,"619,52959-0735-40 ",.01)
 ;;52959-0735-40
 ;;9002226.02101,"619,52959-0735-40 ",.02)
 ;;52959-0735-40
 ;;9002226.02101,"619,52959-0735-42 ",.01)
 ;;52959-0735-42
 ;;9002226.02101,"619,52959-0735-42 ",.02)
 ;;52959-0735-42
 ;;9002226.02101,"619,52959-0735-50 ",.01)
 ;;52959-0735-50
 ;;9002226.02101,"619,52959-0735-50 ",.02)
 ;;52959-0735-50
 ;;9002226.02101,"619,52959-0735-60 ",.01)
 ;;52959-0735-60
 ;;9002226.02101,"619,52959-0735-60 ",.02)
 ;;52959-0735-60
 ;;9002226.02101,"619,52959-0735-80 ",.01)
 ;;52959-0735-80
 ;;9002226.02101,"619,52959-0735-80 ",.02)
 ;;52959-0735-80
 ;;9002226.02101,"619,52959-0735-84 ",.01)
 ;;52959-0735-84
 ;;9002226.02101,"619,52959-0735-84 ",.02)
 ;;52959-0735-84
 ;;9002226.02101,"619,52959-0735-90 ",.01)
 ;;52959-0735-90
 ;;9002226.02101,"619,52959-0735-90 ",.02)
 ;;52959-0735-90
 ;;9002226.02101,"619,52959-0737-02 ",.01)
 ;;52959-0737-02
 ;;9002226.02101,"619,52959-0737-02 ",.02)
 ;;52959-0737-02
 ;;9002226.02101,"619,52959-0737-15 ",.01)
 ;;52959-0737-15
 ;;9002226.02101,"619,52959-0737-15 ",.02)
 ;;52959-0737-15
 ;;9002226.02101,"619,52959-0737-20 ",.01)
 ;;52959-0737-20
 ;;9002226.02101,"619,52959-0737-20 ",.02)
 ;;52959-0737-20
 ;;9002226.02101,"619,52959-0737-25 ",.01)
 ;;52959-0737-25
 ;;9002226.02101,"619,52959-0737-25 ",.02)
 ;;52959-0737-25
 ;;9002226.02101,"619,52959-0737-28 ",.01)
 ;;52959-0737-28
 ;;9002226.02101,"619,52959-0737-28 ",.02)
 ;;52959-0737-28
 ;;9002226.02101,"619,52959-0737-30 ",.01)
 ;;52959-0737-30
 ;;9002226.02101,"619,52959-0737-30 ",.02)
 ;;52959-0737-30
 ;;9002226.02101,"619,52959-0737-40 ",.01)
 ;;52959-0737-40
 ;;9002226.02101,"619,52959-0737-40 ",.02)
 ;;52959-0737-40
 ;;9002226.02101,"619,52959-0737-42 ",.01)
 ;;52959-0737-42
 ;;9002226.02101,"619,52959-0737-42 ",.02)
 ;;52959-0737-42
 ;;9002226.02101,"619,52959-0737-45 ",.01)
 ;;52959-0737-45
 ;;9002226.02101,"619,52959-0737-45 ",.02)
 ;;52959-0737-45
 ;;9002226.02101,"619,52959-0737-50 ",.01)
 ;;52959-0737-50
 ;;9002226.02101,"619,52959-0737-50 ",.02)
 ;;52959-0737-50
 ;;9002226.02101,"619,52959-0737-60 ",.01)
 ;;52959-0737-60
 ;;9002226.02101,"619,52959-0737-60 ",.02)
 ;;52959-0737-60
 ;;9002226.02101,"619,52959-0737-90 ",.01)
 ;;52959-0737-90
 ;;9002226.02101,"619,52959-0737-90 ",.02)
 ;;52959-0737-90
 ;;9002226.02101,"619,52959-0738-00 ",.01)
 ;;52959-0738-00
 ;;9002226.02101,"619,52959-0738-00 ",.02)
 ;;52959-0738-00
 ;;9002226.02101,"619,52959-0738-02 ",.01)
 ;;52959-0738-02
 ;;9002226.02101,"619,52959-0738-02 ",.02)
 ;;52959-0738-02
 ;;9002226.02101,"619,52959-0738-10 ",.01)
 ;;52959-0738-10
 ;;9002226.02101,"619,52959-0738-10 ",.02)
 ;;52959-0738-10
 ;;9002226.02101,"619,52959-0738-12 ",.01)
 ;;52959-0738-12
 ;;9002226.02101,"619,52959-0738-12 ",.02)
 ;;52959-0738-12
 ;;9002226.02101,"619,52959-0738-15 ",.01)
 ;;52959-0738-15
 ;;9002226.02101,"619,52959-0738-15 ",.02)
 ;;52959-0738-15
 ;;9002226.02101,"619,52959-0738-20 ",.01)
 ;;52959-0738-20
 ;;9002226.02101,"619,52959-0738-20 ",.02)
 ;;52959-0738-20
 ;;9002226.02101,"619,52959-0738-30 ",.01)
 ;;52959-0738-30
 ;;9002226.02101,"619,52959-0738-30 ",.02)
 ;;52959-0738-30
 ;;9002226.02101,"619,52959-0738-40 ",.01)
 ;;52959-0738-40
 ;;9002226.02101,"619,52959-0738-40 ",.02)
 ;;52959-0738-40
 ;;9002226.02101,"619,52959-0738-50 ",.01)
 ;;52959-0738-50
 ;;9002226.02101,"619,52959-0738-50 ",.02)
 ;;52959-0738-50
 ;;9002226.02101,"619,52959-0738-60 ",.01)
 ;;52959-0738-60
 ;;9002226.02101,"619,52959-0738-60 ",.02)
 ;;52959-0738-60
 ;;9002226.02101,"619,52959-0738-90 ",.01)
 ;;52959-0738-90
 ;;9002226.02101,"619,52959-0738-90 ",.02)
 ;;52959-0738-90
 ;;9002226.02101,"619,52959-0814-00 ",.01)
 ;;52959-0814-00
 ;;9002226.02101,"619,52959-0814-00 ",.02)
 ;;52959-0814-00
 ;;9002226.02101,"619,52959-0814-10 ",.01)
 ;;52959-0814-10
 ;;9002226.02101,"619,52959-0814-10 ",.02)
 ;;52959-0814-10
 ;;9002226.02101,"619,52959-0814-12 ",.01)
 ;;52959-0814-12
 ;;9002226.02101,"619,52959-0814-12 ",.02)
 ;;52959-0814-12
 ;;9002226.02101,"619,52959-0814-15 ",.01)
 ;;52959-0814-15
 ;;9002226.02101,"619,52959-0814-15 ",.02)
 ;;52959-0814-15
 ;;9002226.02101,"619,52959-0814-18 ",.01)
 ;;52959-0814-18
 ;;9002226.02101,"619,52959-0814-18 ",.02)
 ;;52959-0814-18
 ;;9002226.02101,"619,52959-0814-20 ",.01)
 ;;52959-0814-20
 ;;9002226.02101,"619,52959-0814-20 ",.02)
 ;;52959-0814-20
 ;;9002226.02101,"619,52959-0814-30 ",.01)
 ;;52959-0814-30
 ;;9002226.02101,"619,52959-0814-30 ",.02)
 ;;52959-0814-30
 ;;9002226.02101,"619,52959-0814-40 ",.01)
 ;;52959-0814-40
 ;;9002226.02101,"619,52959-0814-40 ",.02)
 ;;52959-0814-40
 ;;9002226.02101,"619,52959-0814-60 ",.01)
 ;;52959-0814-60
 ;;9002226.02101,"619,52959-0814-60 ",.02)
 ;;52959-0814-60
 ;;9002226.02101,"619,52959-0814-90 ",.01)
 ;;52959-0814-90
 ;;9002226.02101,"619,52959-0814-90 ",.02)
 ;;52959-0814-90
 ;;9002226.02101,"619,52959-0865-00 ",.01)
 ;;52959-0865-00
 ;;9002226.02101,"619,52959-0865-00 ",.02)
 ;;52959-0865-00
 ;;9002226.02101,"619,52959-0865-30 ",.01)
 ;;52959-0865-30
 ;;9002226.02101,"619,52959-0865-30 ",.02)
 ;;52959-0865-30
 ;;9002226.02101,"619,52959-0868-00 ",.01)
 ;;52959-0868-00
 ;;9002226.02101,"619,52959-0868-00 ",.02)
 ;;52959-0868-00
 ;;9002226.02101,"619,52959-0868-60 ",.01)
 ;;52959-0868-60
 ;;9002226.02101,"619,52959-0868-60 ",.02)
 ;;52959-0868-60
 ;;9002226.02101,"619,52959-0868-90 ",.01)
 ;;52959-0868-90
 ;;9002226.02101,"619,52959-0868-90 ",.02)
 ;;52959-0868-90
 ;;9002226.02101,"619,52959-0912-60 ",.01)
 ;;52959-0912-60
 ;;9002226.02101,"619,52959-0912-60 ",.02)
 ;;52959-0912-60
 ;;9002226.02101,"619,53002-0101-10 ",.01)
 ;;53002-0101-10
 ;;9002226.02101,"619,53002-0101-10 ",.02)
 ;;53002-0101-10
 ;;9002226.02101,"619,53002-0101-15 ",.01)
 ;;53002-0101-15
 ;;9002226.02101,"619,53002-0101-15 ",.02)
 ;;53002-0101-15
 ;;9002226.02101,"619,53002-0101-20 ",.01)
 ;;53002-0101-20
 ;;9002226.02101,"619,53002-0101-20 ",.02)
 ;;53002-0101-20
 ;;9002226.02101,"619,53002-0101-30 ",.01)
 ;;53002-0101-30
 ;;9002226.02101,"619,53002-0101-30 ",.02)
 ;;53002-0101-30
 ;;9002226.02101,"619,53002-0327-92 ",.01)
 ;;53002-0327-92
 ;;9002226.02101,"619,53002-0327-92 ",.02)
 ;;53002-0327-92
 ;;9002226.02101,"619,53002-0432-10 ",.01)
 ;;53002-0432-10
 ;;9002226.02101,"619,53002-0432-10 ",.02)
 ;;53002-0432-10
 ;;9002226.02101,"619,53002-0432-20 ",.01)
 ;;53002-0432-20
 ;;9002226.02101,"619,53002-0432-20 ",.02)
 ;;53002-0432-20
 ;;9002226.02101,"619,53002-0432-30 ",.01)
 ;;53002-0432-30
 ;;9002226.02101,"619,53002-0432-30 ",.02)
 ;;53002-0432-30
 ;;9002226.02101,"619,53014-0548-01 ",.01)
 ;;53014-0548-01
 ;;9002226.02101,"619,53014-0548-01 ",.02)
 ;;53014-0548-01
 ;;9002226.02101,"619,53217-0040-00 ",.01)
 ;;53217-0040-00
 ;;9002226.02101,"619,53217-0040-00 ",.02)
 ;;53217-0040-00
 ;;9002226.02101,"619,53217-0040-02 ",.01)
 ;;53217-0040-02
 ;;9002226.02101,"619,53217-0040-02 ",.02)
 ;;53217-0040-02
 ;;9002226.02101,"619,53217-0040-03 ",.01)
 ;;53217-0040-03
 ;;9002226.02101,"619,53217-0040-03 ",.02)
 ;;53217-0040-03
 ;;9002226.02101,"619,53217-0040-07 ",.01)
 ;;53217-0040-07
 ;;9002226.02101,"619,53217-0040-07 ",.02)
 ;;53217-0040-07
 ;;9002226.02101,"619,53217-0040-10 ",.01)
 ;;53217-0040-10
 ;;9002226.02101,"619,53217-0040-10 ",.02)
 ;;53217-0040-10
 ;;9002226.02101,"619,53217-0040-14 ",.01)
 ;;53217-0040-14
 ;;9002226.02101,"619,53217-0040-14 ",.02)
 ;;53217-0040-14
 ;;9002226.02101,"619,53217-0040-20 ",.01)
 ;;53217-0040-20
 ;;9002226.02101,"619,53217-0040-20 ",.02)
 ;;53217-0040-20
 ;;9002226.02101,"619,53217-0040-21 ",.01)
 ;;53217-0040-21
 ;;9002226.02101,"619,53217-0040-21 ",.02)
 ;;53217-0040-21
 ;;9002226.02101,"619,53217-0040-28 ",.01)
 ;;53217-0040-28
 ;;9002226.02101,"619,53217-0040-28 ",.02)
 ;;53217-0040-28
 ;;9002226.02101,"619,53217-0040-30 ",.01)
 ;;53217-0040-30
 ;;9002226.02101,"619,53217-0040-30 ",.02)
 ;;53217-0040-30
 ;;9002226.02101,"619,53217-0040-40 ",.01)
 ;;53217-0040-40
 ;;9002226.02101,"619,53217-0040-40 ",.02)
 ;;53217-0040-40
 ;;9002226.02101,"619,53217-0040-60 ",.01)
 ;;53217-0040-60