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

BGP82Z33.m

Go to the documentation of this file.
BGP82Z33 ; 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,33261-0058-12 ",.02)
 ;;33261-0058-12
 ;;9002226.02101,"619,33261-0058-14 ",.01)
 ;;33261-0058-14
 ;;9002226.02101,"619,33261-0058-14 ",.02)
 ;;33261-0058-14
 ;;9002226.02101,"619,33261-0058-16 ",.01)
 ;;33261-0058-16
 ;;9002226.02101,"619,33261-0058-16 ",.02)
 ;;33261-0058-16
 ;;9002226.02101,"619,33261-0058-20 ",.01)
 ;;33261-0058-20
 ;;9002226.02101,"619,33261-0058-20 ",.02)
 ;;33261-0058-20
 ;;9002226.02101,"619,33261-0058-21 ",.01)
 ;;33261-0058-21
 ;;9002226.02101,"619,33261-0058-21 ",.02)
 ;;33261-0058-21
 ;;9002226.02101,"619,33261-0058-28 ",.01)
 ;;33261-0058-28
 ;;9002226.02101,"619,33261-0058-28 ",.02)
 ;;33261-0058-28
 ;;9002226.02101,"619,33261-0058-30 ",.01)
 ;;33261-0058-30
 ;;9002226.02101,"619,33261-0058-30 ",.02)
 ;;33261-0058-30
 ;;9002226.02101,"619,33261-0058-32 ",.01)
 ;;33261-0058-32
 ;;9002226.02101,"619,33261-0058-32 ",.02)
 ;;33261-0058-32
 ;;9002226.02101,"619,33261-0058-40 ",.01)
 ;;33261-0058-40
 ;;9002226.02101,"619,33261-0058-40 ",.02)
 ;;33261-0058-40
 ;;9002226.02101,"619,33261-0058-42 ",.01)
 ;;33261-0058-42
 ;;9002226.02101,"619,33261-0058-42 ",.02)
 ;;33261-0058-42
 ;;9002226.02101,"619,33261-0058-48 ",.01)
 ;;33261-0058-48
 ;;9002226.02101,"619,33261-0058-48 ",.02)
 ;;33261-0058-48
 ;;9002226.02101,"619,33261-0058-50 ",.01)
 ;;33261-0058-50
 ;;9002226.02101,"619,33261-0058-50 ",.02)
 ;;33261-0058-50
 ;;9002226.02101,"619,33261-0058-52 ",.01)
 ;;33261-0058-52
 ;;9002226.02101,"619,33261-0058-52 ",.02)
 ;;33261-0058-52
 ;;9002226.02101,"619,33261-0058-56 ",.01)
 ;;33261-0058-56
 ;;9002226.02101,"619,33261-0058-56 ",.02)
 ;;33261-0058-56
 ;;9002226.02101,"619,33261-0058-60 ",.01)
 ;;33261-0058-60
 ;;9002226.02101,"619,33261-0058-60 ",.02)
 ;;33261-0058-60
 ;;9002226.02101,"619,33261-0058-70 ",.01)
 ;;33261-0058-70
 ;;9002226.02101,"619,33261-0058-70 ",.02)
 ;;33261-0058-70
 ;;9002226.02101,"619,33261-0058-84 ",.01)
 ;;33261-0058-84
 ;;9002226.02101,"619,33261-0058-84 ",.02)
 ;;33261-0058-84
 ;;9002226.02101,"619,33261-0058-90 ",.01)
 ;;33261-0058-90
 ;;9002226.02101,"619,33261-0058-90 ",.02)
 ;;33261-0058-90
 ;;9002226.02101,"619,33261-0058-97 ",.01)
 ;;33261-0058-97
 ;;9002226.02101,"619,33261-0058-97 ",.02)
 ;;33261-0058-97
 ;;9002226.02101,"619,33261-0105-00 ",.01)
 ;;33261-0105-00
 ;;9002226.02101,"619,33261-0105-00 ",.02)
 ;;33261-0105-00
 ;;9002226.02101,"619,33261-0105-01 ",.01)
 ;;33261-0105-01
 ;;9002226.02101,"619,33261-0105-01 ",.02)
 ;;33261-0105-01
 ;;9002226.02101,"619,33261-0105-02 ",.01)
 ;;33261-0105-02
 ;;9002226.02101,"619,33261-0105-02 ",.02)
 ;;33261-0105-02
 ;;9002226.02101,"619,33261-0105-03 ",.01)
 ;;33261-0105-03
 ;;9002226.02101,"619,33261-0105-03 ",.02)
 ;;33261-0105-03
 ;;9002226.02101,"619,33261-0105-04 ",.01)
 ;;33261-0105-04
 ;;9002226.02101,"619,33261-0105-04 ",.02)
 ;;33261-0105-04
 ;;9002226.02101,"619,33261-0105-10 ",.01)
 ;;33261-0105-10
 ;;9002226.02101,"619,33261-0105-10 ",.02)
 ;;33261-0105-10
 ;;9002226.02101,"619,33261-0105-12 ",.01)
 ;;33261-0105-12
 ;;9002226.02101,"619,33261-0105-12 ",.02)
 ;;33261-0105-12
 ;;9002226.02101,"619,33261-0105-14 ",.01)
 ;;33261-0105-14
 ;;9002226.02101,"619,33261-0105-14 ",.02)
 ;;33261-0105-14
 ;;9002226.02101,"619,33261-0105-15 ",.01)
 ;;33261-0105-15
 ;;9002226.02101,"619,33261-0105-15 ",.02)
 ;;33261-0105-15
 ;;9002226.02101,"619,33261-0105-16 ",.01)
 ;;33261-0105-16
 ;;9002226.02101,"619,33261-0105-16 ",.02)
 ;;33261-0105-16
 ;;9002226.02101,"619,33261-0105-20 ",.01)
 ;;33261-0105-20
 ;;9002226.02101,"619,33261-0105-20 ",.02)
 ;;33261-0105-20
 ;;9002226.02101,"619,33261-0105-21 ",.01)
 ;;33261-0105-21
 ;;9002226.02101,"619,33261-0105-21 ",.02)
 ;;33261-0105-21
 ;;9002226.02101,"619,33261-0105-25 ",.01)
 ;;33261-0105-25
 ;;9002226.02101,"619,33261-0105-25 ",.02)
 ;;33261-0105-25
 ;;9002226.02101,"619,33261-0105-28 ",.01)
 ;;33261-0105-28
 ;;9002226.02101,"619,33261-0105-28 ",.02)
 ;;33261-0105-28
 ;;9002226.02101,"619,33261-0105-30 ",.01)
 ;;33261-0105-30
 ;;9002226.02101,"619,33261-0105-30 ",.02)
 ;;33261-0105-30
 ;;9002226.02101,"619,33261-0105-45 ",.01)
 ;;33261-0105-45
 ;;9002226.02101,"619,33261-0105-45 ",.02)
 ;;33261-0105-45
 ;;9002226.02101,"619,33261-0105-50 ",.01)
 ;;33261-0105-50
 ;;9002226.02101,"619,33261-0105-50 ",.02)
 ;;33261-0105-50
 ;;9002226.02101,"619,33261-0105-60 ",.01)
 ;;33261-0105-60
 ;;9002226.02101,"619,33261-0105-60 ",.02)
 ;;33261-0105-60
 ;;9002226.02101,"619,33261-0105-90 ",.01)
 ;;33261-0105-90
 ;;9002226.02101,"619,33261-0105-90 ",.02)
 ;;33261-0105-90
 ;;9002226.02101,"619,33261-0105-91 ",.01)
 ;;33261-0105-91
 ;;9002226.02101,"619,33261-0105-91 ",.02)
 ;;33261-0105-91
 ;;9002226.02101,"619,33261-0105-98 ",.01)
 ;;33261-0105-98
 ;;9002226.02101,"619,33261-0105-98 ",.02)
 ;;33261-0105-98
 ;;9002226.02101,"619,33261-0105-99 ",.01)
 ;;33261-0105-99
 ;;9002226.02101,"619,33261-0105-99 ",.02)
 ;;33261-0105-99
 ;;9002226.02101,"619,33261-0196-06 ",.01)
 ;;33261-0196-06
 ;;9002226.02101,"619,33261-0196-06 ",.02)
 ;;33261-0196-06
 ;;9002226.02101,"619,33261-0196-10 ",.01)
 ;;33261-0196-10
 ;;9002226.02101,"619,33261-0196-10 ",.02)
 ;;33261-0196-10
 ;;9002226.02101,"619,33261-0196-15 ",.01)
 ;;33261-0196-15
 ;;9002226.02101,"619,33261-0196-15 ",.02)
 ;;33261-0196-15
 ;;9002226.02101,"619,33261-0196-20 ",.01)
 ;;33261-0196-20
 ;;9002226.02101,"619,33261-0196-20 ",.02)
 ;;33261-0196-20
 ;;9002226.02101,"619,33261-0196-30 ",.01)
 ;;33261-0196-30
 ;;9002226.02101,"619,33261-0196-30 ",.02)
 ;;33261-0196-30
 ;;9002226.02101,"619,33261-0389-00 ",.01)
 ;;33261-0389-00
 ;;9002226.02101,"619,33261-0389-00 ",.02)
 ;;33261-0389-00
 ;;9002226.02101,"619,33261-0389-02 ",.01)
 ;;33261-0389-02
 ;;9002226.02101,"619,33261-0389-02 ",.02)
 ;;33261-0389-02
 ;;9002226.02101,"619,33261-0389-03 ",.01)
 ;;33261-0389-03
 ;;9002226.02101,"619,33261-0389-03 ",.02)
 ;;33261-0389-03
 ;;9002226.02101,"619,33261-0389-07 ",.01)
 ;;33261-0389-07
 ;;9002226.02101,"619,33261-0389-07 ",.02)
 ;;33261-0389-07
 ;;9002226.02101,"619,33261-0389-10 ",.01)
 ;;33261-0389-10
 ;;9002226.02101,"619,33261-0389-10 ",.02)
 ;;33261-0389-10
 ;;9002226.02101,"619,33261-0389-14 ",.01)
 ;;33261-0389-14
 ;;9002226.02101,"619,33261-0389-14 ",.02)
 ;;33261-0389-14
 ;;9002226.02101,"619,33261-0389-20 ",.01)
 ;;33261-0389-20
 ;;9002226.02101,"619,33261-0389-20 ",.02)
 ;;33261-0389-20
 ;;9002226.02101,"619,33261-0389-21 ",.01)
 ;;33261-0389-21
 ;;9002226.02101,"619,33261-0389-21 ",.02)
 ;;33261-0389-21
 ;;9002226.02101,"619,33261-0389-28 ",.01)
 ;;33261-0389-28
 ;;9002226.02101,"619,33261-0389-28 ",.02)
 ;;33261-0389-28
 ;;9002226.02101,"619,33261-0389-30 ",.01)
 ;;33261-0389-30
 ;;9002226.02101,"619,33261-0389-30 ",.02)
 ;;33261-0389-30
 ;;9002226.02101,"619,33261-0389-40 ",.01)
 ;;33261-0389-40
 ;;9002226.02101,"619,33261-0389-40 ",.02)
 ;;33261-0389-40
 ;;9002226.02101,"619,33261-0389-60 ",.01)
 ;;33261-0389-60
 ;;9002226.02101,"619,33261-0389-60 ",.02)
 ;;33261-0389-60
 ;;9002226.02101,"619,33261-0389-90 ",.01)
 ;;33261-0389-90
 ;;9002226.02101,"619,33261-0389-90 ",.02)
 ;;33261-0389-90
 ;;9002226.02101,"619,33261-0389-98 ",.01)
 ;;33261-0389-98
 ;;9002226.02101,"619,33261-0389-98 ",.02)
 ;;33261-0389-98
 ;;9002226.02101,"619,33261-0391-01 ",.01)
 ;;33261-0391-01
 ;;9002226.02101,"619,33261-0391-01 ",.02)
 ;;33261-0391-01
 ;;9002226.02101,"619,33261-0470-01 ",.01)
 ;;33261-0470-01
 ;;9002226.02101,"619,33261-0470-01 ",.02)
 ;;33261-0470-01
 ;;9002226.02101,"619,33261-0483-00 ",.01)
 ;;33261-0483-00
 ;;9002226.02101,"619,33261-0483-00 ",.02)
 ;;33261-0483-00
 ;;9002226.02101,"619,33261-0483-01 ",.01)
 ;;33261-0483-01
 ;;9002226.02101,"619,33261-0483-01 ",.02)
 ;;33261-0483-01
 ;;9002226.02101,"619,33261-0483-02 ",.01)
 ;;33261-0483-02
 ;;9002226.02101,"619,33261-0483-02 ",.02)
 ;;33261-0483-02
 ;;9002226.02101,"619,33261-0483-03 ",.01)
 ;;33261-0483-03
 ;;9002226.02101,"619,33261-0483-03 ",.02)
 ;;33261-0483-03
 ;;9002226.02101,"619,33261-0483-04 ",.01)
 ;;33261-0483-04
 ;;9002226.02101,"619,33261-0483-04 ",.02)
 ;;33261-0483-04
 ;;9002226.02101,"619,33261-0483-10 ",.01)
 ;;33261-0483-10
 ;;9002226.02101,"619,33261-0483-10 ",.02)
 ;;33261-0483-10
 ;;9002226.02101,"619,33261-0483-12 ",.01)
 ;;33261-0483-12
 ;;9002226.02101,"619,33261-0483-12 ",.02)
 ;;33261-0483-12
 ;;9002226.02101,"619,33261-0483-14 ",.01)
 ;;33261-0483-14
 ;;9002226.02101,"619,33261-0483-14 ",.02)
 ;;33261-0483-14
 ;;9002226.02101,"619,33261-0483-15 ",.01)
 ;;33261-0483-15
 ;;9002226.02101,"619,33261-0483-15 ",.02)
 ;;33261-0483-15
 ;;9002226.02101,"619,33261-0483-16 ",.01)
 ;;33261-0483-16
 ;;9002226.02101,"619,33261-0483-16 ",.02)
 ;;33261-0483-16
 ;;9002226.02101,"619,33261-0483-20 ",.01)
 ;;33261-0483-20
 ;;9002226.02101,"619,33261-0483-20 ",.02)
 ;;33261-0483-20
 ;;9002226.02101,"619,33261-0483-21 ",.01)
 ;;33261-0483-21
 ;;9002226.02101,"619,33261-0483-21 ",.02)
 ;;33261-0483-21
 ;;9002226.02101,"619,33261-0483-25 ",.01)
 ;;33261-0483-25
 ;;9002226.02101,"619,33261-0483-25 ",.02)
 ;;33261-0483-25
 ;;9002226.02101,"619,33261-0483-30 ",.01)
 ;;33261-0483-30
 ;;9002226.02101,"619,33261-0483-30 ",.02)
 ;;33261-0483-30
 ;;9002226.02101,"619,33261-0483-40 ",.01)
 ;;33261-0483-40
 ;;9002226.02101,"619,33261-0483-40 ",.02)
 ;;33261-0483-40
 ;;9002226.02101,"619,33261-0483-45 ",.01)
 ;;33261-0483-45
 ;;9002226.02101,"619,33261-0483-45 ",.02)
 ;;33261-0483-45
 ;;9002226.02101,"619,33261-0483-50 ",.01)
 ;;33261-0483-50
 ;;9002226.02101,"619,33261-0483-50 ",.02)
 ;;33261-0483-50
 ;;9002226.02101,"619,33261-0483-60 ",.01)
 ;;33261-0483-60
 ;;9002226.02101,"619,33261-0483-60 ",.02)
 ;;33261-0483-60
 ;;9002226.02101,"619,33261-0483-90 ",.01)
 ;;33261-0483-90
 ;;9002226.02101,"619,33261-0483-90 ",.02)
 ;;33261-0483-90
 ;;9002226.02101,"619,33261-0483-91 ",.01)
 ;;33261-0483-91
 ;;9002226.02101,"619,33261-0483-91 ",.02)
 ;;33261-0483-91
 ;;9002226.02101,"619,33261-0483-98 ",.01)
 ;;33261-0483-98
 ;;9002226.02101,"619,33261-0483-98 ",.02)
 ;;33261-0483-98
 ;;9002226.02101,"619,33261-0802-30 ",.01)
 ;;33261-0802-30
 ;;9002226.02101,"619,33261-0802-30 ",.02)
 ;;33261-0802-30
 ;;9002226.02101,"619,33261-0802-60 ",.01)
 ;;33261-0802-60
 ;;9002226.02101,"619,33261-0802-60 ",.02)
 ;;33261-0802-60
 ;;9002226.02101,"619,33261-0802-90 ",.01)
 ;;33261-0802-90
 ;;9002226.02101,"619,33261-0802-90 ",.02)
 ;;33261-0802-90
 ;;9002226.02101,"619,33261-0880-00 ",.01)
 ;;33261-0880-00
 ;;9002226.02101,"619,33261-0880-00 ",.02)
 ;;33261-0880-00
 ;;9002226.02101,"619,33261-0880-30 ",.01)
 ;;33261-0880-30
 ;;9002226.02101,"619,33261-0880-30 ",.02)
 ;;33261-0880-30
 ;;9002226.02101,"619,33261-0880-60 ",.01)
 ;;33261-0880-60
 ;;9002226.02101,"619,33261-0880-60 ",.02)
 ;;33261-0880-60
 ;;9002226.02101,"619,33261-0880-90 ",.01)
 ;;33261-0880-90
 ;;9002226.02101,"619,33261-0880-90 ",.02)
 ;;33261-0880-90
 ;;9002226.02101,"619,33261-0881-00 ",.01)
 ;;33261-0881-00
 ;;9002226.02101,"619,33261-0881-00 ",.02)
 ;;33261-0881-00
 ;;9002226.02101,"619,33261-0881-02 ",.01)
 ;;33261-0881-02
 ;;9002226.02101,"619,33261-0881-02 ",.02)
 ;;33261-0881-02
 ;;9002226.02101,"619,33261-0881-15 ",.01)
 ;;33261-0881-15
 ;;9002226.02101,"619,33261-0881-15 ",.02)
 ;;33261-0881-15
 ;;9002226.02101,"619,33261-0881-30 ",.01)
 ;;33261-0881-30
 ;;9002226.02101,"619,33261-0881-30 ",.02)
 ;;33261-0881-30
 ;;9002226.02101,"619,33261-0881-60 ",.01)
 ;;33261-0881-60
 ;;9002226.02101,"619,33261-0881-60 ",.02)
 ;;33261-0881-60
 ;;9002226.02101,"619,33261-0881-90 ",.01)
 ;;33261-0881-90
 ;;9002226.02101,"619,33261-0881-90 ",.02)
 ;;33261-0881-90
 ;;9002226.02101,"619,33261-0960-00 ",.01)
 ;;33261-0960-00