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

BGP82Z51.m

Go to the documentation of this file.
BGP82Z51 ; 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,53217-0040-60 ",.02)
 ;;53217-0040-60
 ;;9002226.02101,"619,53217-0040-90 ",.01)
 ;;53217-0040-90
 ;;9002226.02101,"619,53217-0040-90 ",.02)
 ;;53217-0040-90
 ;;9002226.02101,"619,53217-0040-98 ",.01)
 ;;53217-0040-98
 ;;9002226.02101,"619,53217-0040-98 ",.02)
 ;;53217-0040-98
 ;;9002226.02101,"619,53217-0136-01 ",.01)
 ;;53217-0136-01
 ;;9002226.02101,"619,53217-0136-01 ",.02)
 ;;53217-0136-01
 ;;9002226.02101,"619,53217-0137-01 ",.01)
 ;;53217-0137-01
 ;;9002226.02101,"619,53217-0137-01 ",.02)
 ;;53217-0137-01
 ;;9002226.02101,"619,53217-0180-02 ",.01)
 ;;53217-0180-02
 ;;9002226.02101,"619,53217-0180-02 ",.02)
 ;;53217-0180-02
 ;;9002226.02101,"619,53217-0180-20 ",.01)
 ;;53217-0180-20
 ;;9002226.02101,"619,53217-0180-20 ",.02)
 ;;53217-0180-20
 ;;9002226.02101,"619,53217-0180-30 ",.01)
 ;;53217-0180-30
 ;;9002226.02101,"619,53217-0180-30 ",.02)
 ;;53217-0180-30
 ;;9002226.02101,"619,53217-0180-60 ",.01)
 ;;53217-0180-60
 ;;9002226.02101,"619,53217-0180-60 ",.02)
 ;;53217-0180-60
 ;;9002226.02101,"619,53217-0180-90 ",.01)
 ;;53217-0180-90
 ;;9002226.02101,"619,53217-0180-90 ",.02)
 ;;53217-0180-90
 ;;9002226.02101,"619,53217-0192-02 ",.01)
 ;;53217-0192-02
 ;;9002226.02101,"619,53217-0192-02 ",.02)
 ;;53217-0192-02
 ;;9002226.02101,"619,53217-0192-30 ",.01)
 ;;53217-0192-30
 ;;9002226.02101,"619,53217-0192-30 ",.02)
 ;;53217-0192-30
 ;;9002226.02101,"619,53217-0192-60 ",.01)
 ;;53217-0192-60
 ;;9002226.02101,"619,53217-0192-60 ",.02)
 ;;53217-0192-60
 ;;9002226.02101,"619,53217-0192-90 ",.01)
 ;;53217-0192-90
 ;;9002226.02101,"619,53217-0192-90 ",.02)
 ;;53217-0192-90
 ;;9002226.02101,"619,53217-0195-30 ",.01)
 ;;53217-0195-30
 ;;9002226.02101,"619,53217-0195-30 ",.02)
 ;;53217-0195-30
 ;;9002226.02101,"619,53217-0195-60 ",.01)
 ;;53217-0195-60
 ;;9002226.02101,"619,53217-0195-60 ",.02)
 ;;53217-0195-60
 ;;9002226.02101,"619,53217-0195-90 ",.01)
 ;;53217-0195-90
 ;;9002226.02101,"619,53217-0195-90 ",.02)
 ;;53217-0195-90
 ;;9002226.02101,"619,53217-0213-01 ",.01)
 ;;53217-0213-01
 ;;9002226.02101,"619,53217-0213-01 ",.02)
 ;;53217-0213-01
 ;;9002226.02101,"619,53217-0265-02 ",.01)
 ;;53217-0265-02
 ;;9002226.02101,"619,53217-0265-02 ",.02)
 ;;53217-0265-02
 ;;9002226.02101,"619,53217-0265-10 ",.01)
 ;;53217-0265-10
 ;;9002226.02101,"619,53217-0265-10 ",.02)
 ;;53217-0265-10
 ;;9002226.02101,"619,53217-0265-12 ",.01)
 ;;53217-0265-12
 ;;9002226.02101,"619,53217-0265-12 ",.02)
 ;;53217-0265-12
 ;;9002226.02101,"619,53217-0265-15 ",.01)
 ;;53217-0265-15
 ;;9002226.02101,"619,53217-0265-15 ",.02)
 ;;53217-0265-15
 ;;9002226.02101,"619,53217-0265-16 ",.01)
 ;;53217-0265-16
 ;;9002226.02101,"619,53217-0265-16 ",.02)
 ;;53217-0265-16
 ;;9002226.02101,"619,53217-0265-20 ",.01)
 ;;53217-0265-20
 ;;9002226.02101,"619,53217-0265-20 ",.02)
 ;;53217-0265-20
 ;;9002226.02101,"619,53217-0265-24 ",.01)
 ;;53217-0265-24
 ;;9002226.02101,"619,53217-0265-24 ",.02)
 ;;53217-0265-24
 ;;9002226.02101,"619,53217-0265-30 ",.01)
 ;;53217-0265-30
 ;;9002226.02101,"619,53217-0265-30 ",.02)
 ;;53217-0265-30
 ;;9002226.02101,"619,53217-0265-40 ",.01)
 ;;53217-0265-40
 ;;9002226.02101,"619,53217-0265-40 ",.02)
 ;;53217-0265-40
 ;;9002226.02101,"619,53217-0265-50 ",.01)
 ;;53217-0265-50
 ;;9002226.02101,"619,53217-0265-50 ",.02)
 ;;53217-0265-50
 ;;9002226.02101,"619,53217-0265-60 ",.01)
 ;;53217-0265-60
 ;;9002226.02101,"619,53217-0265-60 ",.02)
 ;;53217-0265-60
 ;;9002226.02101,"619,53217-0265-90 ",.01)
 ;;53217-0265-90
 ;;9002226.02101,"619,53217-0265-90 ",.02)
 ;;53217-0265-90
 ;;9002226.02101,"619,53217-0266-02 ",.01)
 ;;53217-0266-02
 ;;9002226.02101,"619,53217-0266-02 ",.02)
 ;;53217-0266-02
 ;;9002226.02101,"619,53217-0266-10 ",.01)
 ;;53217-0266-10
 ;;9002226.02101,"619,53217-0266-10 ",.02)
 ;;53217-0266-10
 ;;9002226.02101,"619,53217-0266-12 ",.01)
 ;;53217-0266-12
 ;;9002226.02101,"619,53217-0266-12 ",.02)
 ;;53217-0266-12
 ;;9002226.02101,"619,53217-0266-15 ",.01)
 ;;53217-0266-15
 ;;9002226.02101,"619,53217-0266-15 ",.02)
 ;;53217-0266-15
 ;;9002226.02101,"619,53217-0266-18 ",.01)
 ;;53217-0266-18
 ;;9002226.02101,"619,53217-0266-18 ",.02)
 ;;53217-0266-18
 ;;9002226.02101,"619,53217-0266-20 ",.01)
 ;;53217-0266-20
 ;;9002226.02101,"619,53217-0266-20 ",.02)
 ;;53217-0266-20
 ;;9002226.02101,"619,53217-0266-30 ",.01)
 ;;53217-0266-30
 ;;9002226.02101,"619,53217-0266-30 ",.02)
 ;;53217-0266-30
 ;;9002226.02101,"619,53217-0266-40 ",.01)
 ;;53217-0266-40
 ;;9002226.02101,"619,53217-0266-40 ",.02)
 ;;53217-0266-40
 ;;9002226.02101,"619,53217-0266-45 ",.01)
 ;;53217-0266-45
 ;;9002226.02101,"619,53217-0266-45 ",.02)
 ;;53217-0266-45
 ;;9002226.02101,"619,53217-0266-60 ",.01)
 ;;53217-0266-60
 ;;9002226.02101,"619,53217-0266-60 ",.02)
 ;;53217-0266-60
 ;;9002226.02101,"619,53217-0266-90 ",.01)
 ;;53217-0266-90
 ;;9002226.02101,"619,53217-0266-90 ",.02)
 ;;53217-0266-90
 ;;9002226.02101,"619,53217-0267-02 ",.01)
 ;;53217-0267-02
 ;;9002226.02101,"619,53217-0267-02 ",.02)
 ;;53217-0267-02
 ;;9002226.02101,"619,53217-0267-10 ",.01)
 ;;53217-0267-10
 ;;9002226.02101,"619,53217-0267-10 ",.02)
 ;;53217-0267-10
 ;;9002226.02101,"619,53217-0267-12 ",.01)
 ;;53217-0267-12
 ;;9002226.02101,"619,53217-0267-12 ",.02)
 ;;53217-0267-12
 ;;9002226.02101,"619,53217-0267-16 ",.01)
 ;;53217-0267-16
 ;;9002226.02101,"619,53217-0267-16 ",.02)
 ;;53217-0267-16
 ;;9002226.02101,"619,53217-0267-20 ",.01)
 ;;53217-0267-20
 ;;9002226.02101,"619,53217-0267-20 ",.02)
 ;;53217-0267-20
 ;;9002226.02101,"619,53217-0267-28 ",.01)
 ;;53217-0267-28
 ;;9002226.02101,"619,53217-0267-28 ",.02)
 ;;53217-0267-28
 ;;9002226.02101,"619,53217-0267-30 ",.01)
 ;;53217-0267-30
 ;;9002226.02101,"619,53217-0267-30 ",.02)
 ;;53217-0267-30
 ;;9002226.02101,"619,53217-0267-32 ",.01)
 ;;53217-0267-32
 ;;9002226.02101,"619,53217-0267-32 ",.02)
 ;;53217-0267-32
 ;;9002226.02101,"619,53217-0267-40 ",.01)
 ;;53217-0267-40
 ;;9002226.02101,"619,53217-0267-40 ",.02)
 ;;53217-0267-40
 ;;9002226.02101,"619,53217-0267-45 ",.01)
 ;;53217-0267-45
 ;;9002226.02101,"619,53217-0267-45 ",.02)
 ;;53217-0267-45
 ;;9002226.02101,"619,53217-0267-50 ",.01)
 ;;53217-0267-50
 ;;9002226.02101,"619,53217-0267-50 ",.02)
 ;;53217-0267-50
 ;;9002226.02101,"619,53217-0267-56 ",.01)
 ;;53217-0267-56
 ;;9002226.02101,"619,53217-0267-56 ",.02)
 ;;53217-0267-56
 ;;9002226.02101,"619,53217-0267-60 ",.01)
 ;;53217-0267-60
 ;;9002226.02101,"619,53217-0267-60 ",.02)
 ;;53217-0267-60
 ;;9002226.02101,"619,53217-0267-84 ",.01)
 ;;53217-0267-84
 ;;9002226.02101,"619,53217-0267-84 ",.02)
 ;;53217-0267-84
 ;;9002226.02101,"619,53217-0267-90 ",.01)
 ;;53217-0267-90
 ;;9002226.02101,"619,53217-0267-90 ",.02)
 ;;53217-0267-90
 ;;9002226.02101,"619,53217-0267-92 ",.01)
 ;;53217-0267-92
 ;;9002226.02101,"619,53217-0267-92 ",.02)
 ;;53217-0267-92
 ;;9002226.02101,"619,53746-0109-01 ",.01)
 ;;53746-0109-01
 ;;9002226.02101,"619,53746-0109-01 ",.02)
 ;;53746-0109-01
 ;;9002226.02101,"619,53746-0109-05 ",.01)
 ;;53746-0109-05
 ;;9002226.02101,"619,53746-0109-05 ",.02)
 ;;53746-0109-05
 ;;9002226.02101,"619,53746-0109-10 ",.01)
 ;;53746-0109-10
 ;;9002226.02101,"619,53746-0109-10 ",.02)
 ;;53746-0109-10
 ;;9002226.02101,"619,53746-0110-01 ",.01)
 ;;53746-0110-01
 ;;9002226.02101,"619,53746-0110-01 ",.02)
 ;;53746-0110-01
 ;;9002226.02101,"619,53746-0110-05 ",.01)
 ;;53746-0110-05
 ;;9002226.02101,"619,53746-0110-05 ",.02)
 ;;53746-0110-05
 ;;9002226.02101,"619,53746-0110-10 ",.01)
 ;;53746-0110-10
 ;;9002226.02101,"619,53746-0110-10 ",.02)
 ;;53746-0110-10
 ;;9002226.02101,"619,53746-0116-01 ",.01)
 ;;53746-0116-01
 ;;9002226.02101,"619,53746-0116-01 ",.02)
 ;;53746-0116-01
 ;;9002226.02101,"619,53746-0117-01 ",.01)
 ;;53746-0117-01
 ;;9002226.02101,"619,53746-0117-01 ",.02)
 ;;53746-0117-01
 ;;9002226.02101,"619,53746-0145-01 ",.01)
 ;;53746-0145-01
 ;;9002226.02101,"619,53746-0145-01 ",.02)
 ;;53746-0145-01
 ;;9002226.02101,"619,53746-0146-01 ",.01)
 ;;53746-0146-01
 ;;9002226.02101,"619,53746-0146-01 ",.02)
 ;;53746-0146-01
 ;;9002226.02101,"619,53746-0203-01 ",.01)
 ;;53746-0203-01
 ;;9002226.02101,"619,53746-0203-01 ",.02)
 ;;53746-0203-01
 ;;9002226.02101,"619,53746-0203-05 ",.01)
 ;;53746-0203-05
 ;;9002226.02101,"619,53746-0203-05 ",.02)
 ;;53746-0203-05
 ;;9002226.02101,"619,53746-0204-01 ",.01)
 ;;53746-0204-01
 ;;9002226.02101,"619,53746-0204-01 ",.02)
 ;;53746-0204-01
 ;;9002226.02101,"619,53746-0204-05 ",.01)
 ;;53746-0204-05
 ;;9002226.02101,"619,53746-0204-05 ",.02)
 ;;53746-0204-05
 ;;9002226.02101,"619,53746-0617-01 ",.01)
 ;;53746-0617-01
 ;;9002226.02101,"619,53746-0617-01 ",.02)
 ;;53746-0617-01
 ;;9002226.02101,"619,53746-0617-05 ",.01)
 ;;53746-0617-05
 ;;9002226.02101,"619,53746-0617-05 ",.02)
 ;;53746-0617-05
 ;;9002226.02101,"619,53746-0617-10 ",.01)
 ;;53746-0617-10
 ;;9002226.02101,"619,53746-0617-10 ",.02)
 ;;53746-0617-10
 ;;9002226.02101,"619,54348-0015-10 ",.01)
 ;;54348-0015-10
 ;;9002226.02101,"619,54348-0015-10 ",.02)
 ;;54348-0015-10
 ;;9002226.02101,"619,54348-0015-15 ",.01)
 ;;54348-0015-15
 ;;9002226.02101,"619,54348-0015-15 ",.02)
 ;;54348-0015-15
 ;;9002226.02101,"619,54348-0015-20 ",.01)
 ;;54348-0015-20
 ;;9002226.02101,"619,54348-0015-20 ",.02)
 ;;54348-0015-20
 ;;9002226.02101,"619,54348-0015-30 ",.01)
 ;;54348-0015-30
 ;;9002226.02101,"619,54348-0015-30 ",.02)
 ;;54348-0015-30
 ;;9002226.02101,"619,54569-0024-02 ",.01)
 ;;54569-0024-02
 ;;9002226.02101,"619,54569-0024-02 ",.02)
 ;;54569-0024-02
 ;;9002226.02101,"619,54569-0025-00 ",.01)
 ;;54569-0025-00
 ;;9002226.02101,"619,54569-0025-00 ",.02)
 ;;54569-0025-00
 ;;9002226.02101,"619,54569-0025-01 ",.01)
 ;;54569-0025-01
 ;;9002226.02101,"619,54569-0025-01 ",.02)
 ;;54569-0025-01
 ;;9002226.02101,"619,54569-0025-02 ",.01)
 ;;54569-0025-02
 ;;9002226.02101,"619,54569-0025-02 ",.02)
 ;;54569-0025-02
 ;;9002226.02101,"619,54569-0025-03 ",.01)
 ;;54569-0025-03
 ;;9002226.02101,"619,54569-0025-03 ",.02)
 ;;54569-0025-03
 ;;9002226.02101,"619,54569-0025-04 ",.01)
 ;;54569-0025-04
 ;;9002226.02101,"619,54569-0025-04 ",.02)
 ;;54569-0025-04
 ;;9002226.02101,"619,54569-0025-06 ",.01)
 ;;54569-0025-06
 ;;9002226.02101,"619,54569-0025-06 ",.02)
 ;;54569-0025-06
 ;;9002226.02101,"619,54569-0025-07 ",.01)
 ;;54569-0025-07
 ;;9002226.02101,"619,54569-0025-07 ",.02)
 ;;54569-0025-07
 ;;9002226.02101,"619,54569-0025-09 ",.01)
 ;;54569-0025-09
 ;;9002226.02101,"619,54569-0025-09 ",.02)
 ;;54569-0025-09
 ;;9002226.02101,"619,54569-0302-01 ",.01)
 ;;54569-0302-01
 ;;9002226.02101,"619,54569-0302-01 ",.02)
 ;;54569-0302-01
 ;;9002226.02101,"619,54569-0302-02 ",.01)
 ;;54569-0302-02
 ;;9002226.02101,"619,54569-0302-02 ",.02)
 ;;54569-0302-02
 ;;9002226.02101,"619,54569-0302-08 ",.01)
 ;;54569-0302-08
 ;;9002226.02101,"619,54569-0302-08 ",.02)
 ;;54569-0302-08
 ;;9002226.02101,"619,54569-0311-00 ",.01)
 ;;54569-0311-00
 ;;9002226.02101,"619,54569-0311-00 ",.02)
 ;;54569-0311-00
 ;;9002226.02101,"619,54569-0311-02 ",.01)
 ;;54569-0311-02
 ;;9002226.02101,"619,54569-0311-02 ",.02)
 ;;54569-0311-02
 ;;9002226.02101,"619,54569-0337-02 ",.01)
 ;;54569-0337-02
 ;;9002226.02101,"619,54569-0337-02 ",.02)
 ;;54569-0337-02
 ;;9002226.02101,"619,54569-1001-00 ",.01)
 ;;54569-1001-00
 ;;9002226.02101,"619,54569-1001-00 ",.02)
 ;;54569-1001-00
 ;;9002226.02101,"619,54569-1047-00 ",.01)
 ;;54569-1047-00
 ;;9002226.02101,"619,54569-1047-00 ",.02)
 ;;54569-1047-00
 ;;9002226.02101,"619,54569-1056-00 ",.01)
 ;;54569-1056-00
 ;;9002226.02101,"619,54569-1056-00 ",.02)
 ;;54569-1056-00
 ;;9002226.02101,"619,54569-2523-00 ",.01)
 ;;54569-2523-00