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

BGP82Z39.m

Go to the documentation of this file.
BGP82Z39 ; 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,42549-0640-60 ",.02)
 ;;42549-0640-60
 ;;9002226.02101,"619,42549-0640-84 ",.01)
 ;;42549-0640-84
 ;;9002226.02101,"619,42549-0640-84 ",.02)
 ;;42549-0640-84
 ;;9002226.02101,"619,42549-0640-90 ",.01)
 ;;42549-0640-90
 ;;9002226.02101,"619,42549-0640-90 ",.02)
 ;;42549-0640-90
 ;;9002226.02101,"619,42549-0643-30 ",.01)
 ;;42549-0643-30
 ;;9002226.02101,"619,42549-0643-30 ",.02)
 ;;42549-0643-30
 ;;9002226.02101,"619,42549-0643-60 ",.01)
 ;;42549-0643-60
 ;;9002226.02101,"619,42549-0643-60 ",.02)
 ;;42549-0643-60
 ;;9002226.02101,"619,42549-0644-30 ",.01)
 ;;42549-0644-30
 ;;9002226.02101,"619,42549-0644-30 ",.02)
 ;;42549-0644-30
 ;;9002226.02101,"619,42549-0645-30 ",.01)
 ;;42549-0645-30
 ;;9002226.02101,"619,42549-0645-30 ",.02)
 ;;42549-0645-30
 ;;9002226.02101,"619,42549-0653-30 ",.01)
 ;;42549-0653-30
 ;;9002226.02101,"619,42549-0653-30 ",.02)
 ;;42549-0653-30
 ;;9002226.02101,"619,42549-0653-60 ",.01)
 ;;42549-0653-60
 ;;9002226.02101,"619,42549-0653-60 ",.02)
 ;;42549-0653-60
 ;;9002226.02101,"619,42549-0653-90 ",.01)
 ;;42549-0653-90
 ;;9002226.02101,"619,42549-0653-90 ",.02)
 ;;42549-0653-90
 ;;9002226.02101,"619,42549-0659-28 ",.01)
 ;;42549-0659-28
 ;;9002226.02101,"619,42549-0659-28 ",.02)
 ;;42549-0659-28
 ;;9002226.02101,"619,42549-0659-30 ",.01)
 ;;42549-0659-30
 ;;9002226.02101,"619,42549-0659-30 ",.02)
 ;;42549-0659-30
 ;;9002226.02101,"619,42549-0659-56 ",.01)
 ;;42549-0659-56
 ;;9002226.02101,"619,42549-0659-56 ",.02)
 ;;42549-0659-56
 ;;9002226.02101,"619,42549-0659-60 ",.01)
 ;;42549-0659-60
 ;;9002226.02101,"619,42549-0659-60 ",.02)
 ;;42549-0659-60
 ;;9002226.02101,"619,42571-0119-01 ",.01)
 ;;42571-0119-01
 ;;9002226.02101,"619,42571-0119-01 ",.02)
 ;;42571-0119-01
 ;;9002226.02101,"619,42571-0119-05 ",.01)
 ;;42571-0119-05
 ;;9002226.02101,"619,42571-0119-05 ",.02)
 ;;42571-0119-05
 ;;9002226.02101,"619,42747-0221-32 ",.01)
 ;;42747-0221-32
 ;;9002226.02101,"619,42747-0221-32 ",.02)
 ;;42747-0221-32
 ;;9002226.02101,"619,42747-0222-32 ",.01)
 ;;42747-0222-32
 ;;9002226.02101,"619,42747-0222-32 ",.02)
 ;;42747-0222-32
 ;;9002226.02101,"619,42747-0223-32 ",.01)
 ;;42747-0223-32
 ;;9002226.02101,"619,42747-0223-32 ",.02)
 ;;42747-0223-32
 ;;9002226.02101,"619,42747-0224-32 ",.01)
 ;;42747-0224-32
 ;;9002226.02101,"619,42747-0224-32 ",.02)
 ;;42747-0224-32
 ;;9002226.02101,"619,42747-0226-32 ",.01)
 ;;42747-0226-32
 ;;9002226.02101,"619,42747-0226-32 ",.02)
 ;;42747-0226-32
 ;;9002226.02101,"619,42747-0228-32 ",.01)
 ;;42747-0228-32
 ;;9002226.02101,"619,42747-0228-32 ",.02)
 ;;42747-0228-32
 ;;9002226.02101,"619,42799-0217-01 ",.01)
 ;;42799-0217-01
 ;;9002226.02101,"619,42799-0217-01 ",.02)
 ;;42799-0217-01
 ;;9002226.02101,"619,42799-0217-02 ",.01)
 ;;42799-0217-02
 ;;9002226.02101,"619,42799-0217-02 ",.02)
 ;;42799-0217-02
 ;;9002226.02101,"619,42806-0005-01 ",.01)
 ;;42806-0005-01
 ;;9002226.02101,"619,42806-0005-01 ",.02)
 ;;42806-0005-01
 ;;9002226.02101,"619,42806-0006-01 ",.01)
 ;;42806-0006-01
 ;;9002226.02101,"619,42806-0006-01 ",.02)
 ;;42806-0006-01
 ;;9002226.02101,"619,42806-0007-01 ",.01)
 ;;42806-0007-01
 ;;9002226.02101,"619,42806-0007-01 ",.02)
 ;;42806-0007-01
 ;;9002226.02101,"619,42806-0008-01 ",.01)
 ;;42806-0008-01
 ;;9002226.02101,"619,42806-0008-01 ",.02)
 ;;42806-0008-01
 ;;9002226.02101,"619,42806-0050-01 ",.01)
 ;;42806-0050-01
 ;;9002226.02101,"619,42806-0050-01 ",.02)
 ;;42806-0050-01
 ;;9002226.02101,"619,42806-0051-01 ",.01)
 ;;42806-0051-01
 ;;9002226.02101,"619,42806-0051-01 ",.02)
 ;;42806-0051-01
 ;;9002226.02101,"619,42858-0001-01 ",.01)
 ;;42858-0001-01
 ;;9002226.02101,"619,42858-0001-01 ",.02)
 ;;42858-0001-01
 ;;9002226.02101,"619,42858-0001-10 ",.01)
 ;;42858-0001-10
 ;;9002226.02101,"619,42858-0001-10 ",.02)
 ;;42858-0001-10
 ;;9002226.02101,"619,42858-0002-01 ",.01)
 ;;42858-0002-01
 ;;9002226.02101,"619,42858-0002-01 ",.02)
 ;;42858-0002-01
 ;;9002226.02101,"619,42858-0002-10 ",.01)
 ;;42858-0002-10
 ;;9002226.02101,"619,42858-0002-10 ",.02)
 ;;42858-0002-10
 ;;9002226.02101,"619,42858-0003-01 ",.01)
 ;;42858-0003-01
 ;;9002226.02101,"619,42858-0003-01 ",.02)
 ;;42858-0003-01
 ;;9002226.02101,"619,42858-0004-01 ",.01)
 ;;42858-0004-01
 ;;9002226.02101,"619,42858-0004-01 ",.02)
 ;;42858-0004-01
 ;;9002226.02101,"619,42858-0005-01 ",.01)
 ;;42858-0005-01
 ;;9002226.02101,"619,42858-0005-01 ",.02)
 ;;42858-0005-01
 ;;9002226.02101,"619,42858-0102-01 ",.01)
 ;;42858-0102-01
 ;;9002226.02101,"619,42858-0102-01 ",.02)
 ;;42858-0102-01
 ;;9002226.02101,"619,42858-0102-50 ",.01)
 ;;42858-0102-50
 ;;9002226.02101,"619,42858-0102-50 ",.02)
 ;;42858-0102-50
 ;;9002226.02101,"619,42858-0103-01 ",.01)
 ;;42858-0103-01
 ;;9002226.02101,"619,42858-0103-01 ",.02)
 ;;42858-0103-01
 ;;9002226.02101,"619,42858-0103-50 ",.01)
 ;;42858-0103-50
 ;;9002226.02101,"619,42858-0103-50 ",.02)
 ;;42858-0103-50
 ;;9002226.02101,"619,42858-0104-01 ",.01)
 ;;42858-0104-01
 ;;9002226.02101,"619,42858-0104-01 ",.02)
 ;;42858-0104-01
 ;;9002226.02101,"619,42858-0104-50 ",.01)
 ;;42858-0104-50
 ;;9002226.02101,"619,42858-0104-50 ",.02)
 ;;42858-0104-50
 ;;9002226.02101,"619,42858-0122-01 ",.01)
 ;;42858-0122-01
 ;;9002226.02101,"619,42858-0122-01 ",.02)
 ;;42858-0122-01
 ;;9002226.02101,"619,42858-0201-01 ",.01)
 ;;42858-0201-01
 ;;9002226.02101,"619,42858-0201-01 ",.02)
 ;;42858-0201-01
 ;;9002226.02101,"619,42858-0201-50 ",.01)
 ;;42858-0201-50
 ;;9002226.02101,"619,42858-0201-50 ",.02)
 ;;42858-0201-50
 ;;9002226.02101,"619,42858-0202-01 ",.01)
 ;;42858-0202-01
 ;;9002226.02101,"619,42858-0202-01 ",.02)
 ;;42858-0202-01
 ;;9002226.02101,"619,42858-0203-01 ",.01)
 ;;42858-0203-01
 ;;9002226.02101,"619,42858-0203-01 ",.02)
 ;;42858-0203-01
 ;;9002226.02101,"619,42858-0203-50 ",.01)
 ;;42858-0203-50
 ;;9002226.02101,"619,42858-0203-50 ",.02)
 ;;42858-0203-50
 ;;9002226.02101,"619,42858-0234-01 ",.01)
 ;;42858-0234-01
 ;;9002226.02101,"619,42858-0234-01 ",.02)
 ;;42858-0234-01
 ;;9002226.02101,"619,42858-0234-50 ",.01)
 ;;42858-0234-50
 ;;9002226.02101,"619,42858-0234-50 ",.02)
 ;;42858-0234-50
 ;;9002226.02101,"619,42858-0301-01 ",.01)
 ;;42858-0301-01
 ;;9002226.02101,"619,42858-0301-01 ",.02)
 ;;42858-0301-01
 ;;9002226.02101,"619,42858-0301-25 ",.01)
 ;;42858-0301-25
 ;;9002226.02101,"619,42858-0301-25 ",.02)
 ;;42858-0301-25
 ;;9002226.02101,"619,42858-0302-01 ",.01)
 ;;42858-0302-01
 ;;9002226.02101,"619,42858-0302-01 ",.02)
 ;;42858-0302-01
 ;;9002226.02101,"619,42858-0302-25 ",.01)
 ;;42858-0302-25
 ;;9002226.02101,"619,42858-0302-25 ",.02)
 ;;42858-0302-25
 ;;9002226.02101,"619,42858-0302-50 ",.01)
 ;;42858-0302-50
 ;;9002226.02101,"619,42858-0302-50 ",.02)
 ;;42858-0302-50
 ;;9002226.02101,"619,42858-0303-01 ",.01)
 ;;42858-0303-01
 ;;9002226.02101,"619,42858-0303-01 ",.02)
 ;;42858-0303-01
 ;;9002226.02101,"619,42858-0304-16 ",.01)
 ;;42858-0304-16
 ;;9002226.02101,"619,42858-0304-16 ",.02)
 ;;42858-0304-16
 ;;9002226.02101,"619,42858-0338-01 ",.01)
 ;;42858-0338-01
 ;;9002226.02101,"619,42858-0338-01 ",.02)
 ;;42858-0338-01
 ;;9002226.02101,"619,42858-0416-16 ",.01)
 ;;42858-0416-16
 ;;9002226.02101,"619,42858-0416-16 ",.02)
 ;;42858-0416-16
 ;;9002226.02101,"619,42858-0515-01 ",.01)
 ;;42858-0515-01
 ;;9002226.02101,"619,42858-0515-01 ",.02)
 ;;42858-0515-01
 ;;9002226.02101,"619,42858-0631-01 ",.01)
 ;;42858-0631-01
 ;;9002226.02101,"619,42858-0631-01 ",.02)
 ;;42858-0631-01
 ;;9002226.02101,"619,42858-0760-01 ",.01)
 ;;42858-0760-01
 ;;9002226.02101,"619,42858-0760-01 ",.02)
 ;;42858-0760-01
 ;;9002226.02101,"619,42858-0799-01 ",.01)
 ;;42858-0799-01
 ;;9002226.02101,"619,42858-0799-01 ",.02)
 ;;42858-0799-01
 ;;9002226.02101,"619,42858-0801-01 ",.01)
 ;;42858-0801-01
 ;;9002226.02101,"619,42858-0801-01 ",.02)
 ;;42858-0801-01
 ;;9002226.02101,"619,42858-0802-01 ",.01)
 ;;42858-0802-01
 ;;9002226.02101,"619,42858-0802-01 ",.02)
 ;;42858-0802-01
 ;;9002226.02101,"619,42858-0803-01 ",.01)
 ;;42858-0803-01
 ;;9002226.02101,"619,42858-0803-01 ",.02)
 ;;42858-0803-01
 ;;9002226.02101,"619,42858-0804-01 ",.01)
 ;;42858-0804-01
 ;;9002226.02101,"619,42858-0804-01 ",.02)
 ;;42858-0804-01
 ;;9002226.02101,"619,42858-0805-01 ",.01)
 ;;42858-0805-01
 ;;9002226.02101,"619,42858-0805-01 ",.02)
 ;;42858-0805-01
 ;;9002226.02101,"619,42858-0900-01 ",.01)
 ;;42858-0900-01
 ;;9002226.02101,"619,42858-0900-01 ",.02)
 ;;42858-0900-01
 ;;9002226.02101,"619,42998-0203-01 ",.01)
 ;;42998-0203-01
 ;;9002226.02101,"619,42998-0203-01 ",.02)
 ;;42998-0203-01
 ;;9002226.02101,"619,42998-0203-02 ",.01)
 ;;42998-0203-02
 ;;9002226.02101,"619,42998-0203-02 ",.02)
 ;;42998-0203-02
 ;;9002226.02101,"619,43063-0014-03 ",.01)
 ;;43063-0014-03
 ;;9002226.02101,"619,43063-0014-03 ",.02)
 ;;43063-0014-03
 ;;9002226.02101,"619,43063-0014-04 ",.01)
 ;;43063-0014-04
 ;;9002226.02101,"619,43063-0014-04 ",.02)
 ;;43063-0014-04
 ;;9002226.02101,"619,43063-0014-06 ",.01)
 ;;43063-0014-06
 ;;9002226.02101,"619,43063-0014-06 ",.02)
 ;;43063-0014-06
 ;;9002226.02101,"619,43063-0014-12 ",.01)
 ;;43063-0014-12
 ;;9002226.02101,"619,43063-0014-12 ",.02)
 ;;43063-0014-12
 ;;9002226.02101,"619,43063-0025-02 ",.01)
 ;;43063-0025-02
 ;;9002226.02101,"619,43063-0025-02 ",.02)
 ;;43063-0025-02
 ;;9002226.02101,"619,43063-0025-04 ",.01)
 ;;43063-0025-04
 ;;9002226.02101,"619,43063-0025-04 ",.02)
 ;;43063-0025-04
 ;;9002226.02101,"619,43063-0025-06 ",.01)
 ;;43063-0025-06
 ;;9002226.02101,"619,43063-0025-06 ",.02)
 ;;43063-0025-06
 ;;9002226.02101,"619,43063-0025-12 ",.01)
 ;;43063-0025-12
 ;;9002226.02101,"619,43063-0025-12 ",.02)
 ;;43063-0025-12
 ;;9002226.02101,"619,43063-0051-06 ",.01)
 ;;43063-0051-06
 ;;9002226.02101,"619,43063-0051-06 ",.02)
 ;;43063-0051-06
 ;;9002226.02101,"619,43063-0055-06 ",.01)
 ;;43063-0055-06
 ;;9002226.02101,"619,43063-0055-06 ",.02)
 ;;43063-0055-06
 ;;9002226.02101,"619,43063-0091-02 ",.01)
 ;;43063-0091-02
 ;;9002226.02101,"619,43063-0091-02 ",.02)
 ;;43063-0091-02
 ;;9002226.02101,"619,43063-0091-04 ",.01)
 ;;43063-0091-04
 ;;9002226.02101,"619,43063-0091-04 ",.02)
 ;;43063-0091-04
 ;;9002226.02101,"619,43063-0091-06 ",.01)
 ;;43063-0091-06
 ;;9002226.02101,"619,43063-0091-06 ",.02)
 ;;43063-0091-06
 ;;9002226.02101,"619,43063-0091-12 ",.01)
 ;;43063-0091-12
 ;;9002226.02101,"619,43063-0091-12 ",.02)
 ;;43063-0091-12
 ;;9002226.02101,"619,43063-0091-20 ",.01)
 ;;43063-0091-20
 ;;9002226.02101,"619,43063-0091-20 ",.02)
 ;;43063-0091-20
 ;;9002226.02101,"619,43063-0142-20 ",.01)
 ;;43063-0142-20
 ;;9002226.02101,"619,43063-0142-20 ",.02)
 ;;43063-0142-20
 ;;9002226.02101,"619,43063-0213-98 ",.01)
 ;;43063-0213-98
 ;;9002226.02101,"619,43063-0213-98 ",.02)
 ;;43063-0213-98
 ;;9002226.02101,"619,43063-0219-10 ",.01)
 ;;43063-0219-10
 ;;9002226.02101,"619,43063-0219-10 ",.02)
 ;;43063-0219-10
 ;;9002226.02101,"619,43063-0219-30 ",.01)
 ;;43063-0219-30
 ;;9002226.02101,"619,43063-0219-30 ",.02)
 ;;43063-0219-30
 ;;9002226.02101,"619,43063-0219-60 ",.01)
 ;;43063-0219-60
 ;;9002226.02101,"619,43063-0219-60 ",.02)
 ;;43063-0219-60
 ;;9002226.02101,"619,43063-0219-90 ",.01)
 ;;43063-0219-90
 ;;9002226.02101,"619,43063-0219-90 ",.02)
 ;;43063-0219-90
 ;;9002226.02101,"619,43063-0219-93 ",.01)
 ;;43063-0219-93
 ;;9002226.02101,"619,43063-0219-93 ",.02)
 ;;43063-0219-93
 ;;9002226.02101,"619,43063-0219-98 ",.01)
 ;;43063-0219-98
 ;;9002226.02101,"619,43063-0219-98 ",.02)
 ;;43063-0219-98
 ;;9002226.02101,"619,43063-0220-10 ",.01)
 ;;43063-0220-10
 ;;9002226.02101,"619,43063-0220-10 ",.02)
 ;;43063-0220-10
 ;;9002226.02101,"619,43063-0220-30 ",.01)
 ;;43063-0220-30