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

BGP7LXFI.m

Go to the documentation of this file.
BGP7LXFI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"623,58016-0995-12 ",.01)
 ;;58016-0995-12
 ;;9002226.02101,"623,58016-0995-12 ",.02)
 ;;58016-0995-12
 ;;9002226.02101,"623,58016-0995-14 ",.01)
 ;;58016-0995-14
 ;;9002226.02101,"623,58016-0995-14 ",.02)
 ;;58016-0995-14
 ;;9002226.02101,"623,58016-0995-15 ",.01)
 ;;58016-0995-15
 ;;9002226.02101,"623,58016-0995-15 ",.02)
 ;;58016-0995-15
 ;;9002226.02101,"623,58016-0995-20 ",.01)
 ;;58016-0995-20
 ;;9002226.02101,"623,58016-0995-20 ",.02)
 ;;58016-0995-20
 ;;9002226.02101,"623,58016-0995-21 ",.01)
 ;;58016-0995-21
 ;;9002226.02101,"623,58016-0995-21 ",.02)
 ;;58016-0995-21
 ;;9002226.02101,"623,58016-0995-24 ",.01)
 ;;58016-0995-24
 ;;9002226.02101,"623,58016-0995-24 ",.02)
 ;;58016-0995-24
 ;;9002226.02101,"623,58016-0995-28 ",.01)
 ;;58016-0995-28
 ;;9002226.02101,"623,58016-0995-28 ",.02)
 ;;58016-0995-28
 ;;9002226.02101,"623,58016-0995-30 ",.01)
 ;;58016-0995-30
 ;;9002226.02101,"623,58016-0995-30 ",.02)
 ;;58016-0995-30
 ;;9002226.02101,"623,58016-0995-40 ",.01)
 ;;58016-0995-40
 ;;9002226.02101,"623,58016-0995-40 ",.02)
 ;;58016-0995-40
 ;;9002226.02101,"623,58016-0995-45 ",.01)
 ;;58016-0995-45
 ;;9002226.02101,"623,58016-0995-45 ",.02)
 ;;58016-0995-45
 ;;9002226.02101,"623,58016-0995-50 ",.01)
 ;;58016-0995-50
 ;;9002226.02101,"623,58016-0995-50 ",.02)
 ;;58016-0995-50
 ;;9002226.02101,"623,58016-0995-60 ",.01)
 ;;58016-0995-60
 ;;9002226.02101,"623,58016-0995-60 ",.02)
 ;;58016-0995-60
 ;;9002226.02101,"623,58016-0995-75 ",.01)
 ;;58016-0995-75
 ;;9002226.02101,"623,58016-0995-75 ",.02)
 ;;58016-0995-75
 ;;9002226.02101,"623,58441-0117-10 ",.01)
 ;;58441-0117-10
 ;;9002226.02101,"623,58441-0117-10 ",.02)
 ;;58441-0117-10
 ;;9002226.02101,"623,58605-0501-01 ",.01)
 ;;58605-0501-01
 ;;9002226.02101,"623,58605-0501-01 ",.02)
 ;;58605-0501-01
 ;;9002226.02101,"623,58605-0511-01 ",.01)
 ;;58605-0511-01
 ;;9002226.02101,"623,58605-0511-01 ",.02)
 ;;58605-0511-01
 ;;9002226.02101,"623,58605-0524-01 ",.01)
 ;;58605-0524-01
 ;;9002226.02101,"623,58605-0524-01 ",.02)
 ;;58605-0524-01
 ;;9002226.02101,"623,58634-0021-02 ",.01)
 ;;58634-0021-02
 ;;9002226.02101,"623,58634-0021-02 ",.02)
 ;;58634-0021-02
 ;;9002226.02101,"623,58634-0021-04 ",.01)
 ;;58634-0021-04
 ;;9002226.02101,"623,58634-0021-04 ",.02)
 ;;58634-0021-04
 ;;9002226.02101,"623,58634-0021-08 ",.01)
 ;;58634-0021-08
 ;;9002226.02101,"623,58634-0021-08 ",.02)
 ;;58634-0021-08
 ;;9002226.02101,"623,58634-0022-02 ",.01)
 ;;58634-0022-02
 ;;9002226.02101,"623,58634-0022-02 ",.02)
 ;;58634-0022-02
 ;;9002226.02101,"623,58634-0022-04 ",.01)
 ;;58634-0022-04
 ;;9002226.02101,"623,58634-0022-04 ",.02)
 ;;58634-0022-04
 ;;9002226.02101,"623,58634-0022-08 ",.01)
 ;;58634-0022-08
 ;;9002226.02101,"623,58634-0022-08 ",.02)
 ;;58634-0022-08
 ;;9002226.02101,"623,58864-0857-30 ",.01)
 ;;58864-0857-30
 ;;9002226.02101,"623,58864-0857-30 ",.02)
 ;;58864-0857-30
 ;;9002226.02101,"623,58948-0379-16 ",.01)
 ;;58948-0379-16
 ;;9002226.02101,"623,58948-0379-16 ",.02)
 ;;58948-0379-16
 ;;9002226.02101,"623,59441-0153-01 ",.01)
 ;;59441-0153-01
 ;;9002226.02101,"623,59441-0153-01 ",.02)
 ;;59441-0153-01
 ;;9002226.02101,"623,59441-0178-01 ",.01)
 ;;59441-0178-01
 ;;9002226.02101,"623,59441-0178-01 ",.02)
 ;;59441-0178-01
 ;;9002226.02101,"623,59441-0178-05 ",.01)
 ;;59441-0178-05
 ;;9002226.02101,"623,59441-0178-05 ",.02)
 ;;59441-0178-05
 ;;9002226.02101,"623,59630-0170-10 ",.01)
 ;;59630-0170-10
 ;;9002226.02101,"623,59630-0170-10 ",.02)
 ;;59630-0170-10
 ;;9002226.02101,"623,59702-0650-01 ",.01)
 ;;59702-0650-01
 ;;9002226.02101,"623,59702-0650-01 ",.02)
 ;;59702-0650-01
 ;;9002226.02101,"623,59741-0136-16 ",.01)
 ;;59741-0136-16
 ;;9002226.02101,"623,59741-0136-16 ",.02)
 ;;59741-0136-16
 ;;9002226.02101,"623,59743-0004-01 ",.01)
 ;;59743-0004-01
 ;;9002226.02101,"623,59743-0004-01 ",.02)
 ;;59743-0004-01
 ;;9002226.02101,"623,60346-0208-20 ",.01)
 ;;60346-0208-20
 ;;9002226.02101,"623,60346-0208-20 ",.02)
 ;;60346-0208-20
 ;;9002226.02101,"623,60346-0208-30 ",.01)
 ;;60346-0208-30
 ;;9002226.02101,"623,60346-0208-30 ",.02)
 ;;60346-0208-30
 ;;9002226.02101,"623,60346-0797-10 ",.01)
 ;;60346-0797-10
 ;;9002226.02101,"623,60346-0797-10 ",.02)
 ;;60346-0797-10
 ;;9002226.02101,"623,60346-0797-20 ",.01)
 ;;60346-0797-20
 ;;9002226.02101,"623,60346-0797-20 ",.02)
 ;;60346-0797-20
 ;;9002226.02101,"623,60346-0797-30 ",.01)
 ;;60346-0797-30
 ;;9002226.02101,"623,60346-0797-30 ",.02)
 ;;60346-0797-30
 ;;9002226.02101,"623,60432-0026-16 ",.01)
 ;;60432-0026-16
 ;;9002226.02101,"623,60432-0026-16 ",.02)
 ;;60432-0026-16
 ;;9002226.02101,"623,60432-0026-28 ",.01)
 ;;60432-0026-28
 ;;9002226.02101,"623,60432-0026-28 ",.02)
 ;;60432-0026-28
 ;;9002226.02101,"623,60809-0507-55 ",.01)
 ;;60809-0507-55
 ;;9002226.02101,"623,60809-0507-55 ",.02)
 ;;60809-0507-55
 ;;9002226.02101,"623,60809-0507-72 ",.01)
 ;;60809-0507-72
 ;;9002226.02101,"623,60809-0507-72 ",.02)
 ;;60809-0507-72
 ;;9002226.02101,"623,60951-0675-70 ",.01)
 ;;60951-0675-70
 ;;9002226.02101,"623,60951-0675-70 ",.02)
 ;;60951-0675-70
 ;;9002226.02101,"623,61392-0382-30 ",.01)
 ;;61392-0382-30
 ;;9002226.02101,"623,61392-0382-30 ",.02)
 ;;61392-0382-30
 ;;9002226.02101,"623,61392-0382-31 ",.01)
 ;;61392-0382-31
 ;;9002226.02101,"623,61392-0382-31 ",.02)
 ;;61392-0382-31
 ;;9002226.02101,"623,61392-0382-39 ",.01)
 ;;61392-0382-39
 ;;9002226.02101,"623,61392-0382-39 ",.02)
 ;;61392-0382-39
 ;;9002226.02101,"623,61392-0382-60 ",.01)
 ;;61392-0382-60
 ;;9002226.02101,"623,61392-0382-60 ",.02)
 ;;61392-0382-60
 ;;9002226.02101,"623,61392-0382-90 ",.01)
 ;;61392-0382-90
 ;;9002226.02101,"623,61392-0382-90 ",.02)
 ;;61392-0382-90
 ;;9002226.02101,"623,61392-0391-30 ",.01)
 ;;61392-0391-30
 ;;9002226.02101,"623,61392-0391-30 ",.02)
 ;;61392-0391-30
 ;;9002226.02101,"623,61392-0391-31 ",.01)
 ;;61392-0391-31
 ;;9002226.02101,"623,61392-0391-31 ",.02)
 ;;61392-0391-31
 ;;9002226.02101,"623,61392-0391-32 ",.01)
 ;;61392-0391-32
 ;;9002226.02101,"623,61392-0391-32 ",.02)
 ;;61392-0391-32
 ;;9002226.02101,"623,61392-0391-39 ",.01)
 ;;61392-0391-39
 ;;9002226.02101,"623,61392-0391-39 ",.02)
 ;;61392-0391-39
 ;;9002226.02101,"623,61392-0391-51 ",.01)
 ;;61392-0391-51
 ;;9002226.02101,"623,61392-0391-51 ",.02)
 ;;61392-0391-51
 ;;9002226.02101,"623,61392-0391-60 ",.01)
 ;;61392-0391-60
 ;;9002226.02101,"623,61392-0391-60 ",.02)
 ;;61392-0391-60
 ;;9002226.02101,"623,61392-0391-65 ",.01)
 ;;61392-0391-65
 ;;9002226.02101,"623,61392-0391-65 ",.02)
 ;;61392-0391-65
 ;;9002226.02101,"623,61392-0391-90 ",.01)
 ;;61392-0391-90
 ;;9002226.02101,"623,61392-0391-90 ",.02)
 ;;61392-0391-90
 ;;9002226.02101,"623,61392-0392-30 ",.01)
 ;;61392-0392-30
 ;;9002226.02101,"623,61392-0392-30 ",.02)
 ;;61392-0392-30
 ;;9002226.02101,"623,61392-0392-31 ",.01)
 ;;61392-0392-31
 ;;9002226.02101,"623,61392-0392-31 ",.02)
 ;;61392-0392-31
 ;;9002226.02101,"623,61392-0392-39 ",.01)
 ;;61392-0392-39
 ;;9002226.02101,"623,61392-0392-39 ",.02)
 ;;61392-0392-39
 ;;9002226.02101,"623,61392-0392-60 ",.01)
 ;;61392-0392-60
 ;;9002226.02101,"623,61392-0392-60 ",.02)
 ;;61392-0392-60
 ;;9002226.02101,"623,61787-0578-04 ",.01)
 ;;61787-0578-04
 ;;9002226.02101,"623,61787-0578-04 ",.02)
 ;;61787-0578-04
 ;;9002226.02101,"623,61808-0110-01 ",.01)
 ;;61808-0110-01
 ;;9002226.02101,"623,61808-0110-01 ",.02)
 ;;61808-0110-01
 ;;9002226.02101,"623,61808-0110-05 ",.01)
 ;;61808-0110-05
 ;;9002226.02101,"623,61808-0110-05 ",.02)
 ;;61808-0110-05
 ;;9002226.02101,"623,62022-0070-01 ",.01)
 ;;62022-0070-01
 ;;9002226.02101,"623,62022-0070-01 ",.02)
 ;;62022-0070-01
 ;;9002226.02101,"623,62022-0073-01 ",.01)
 ;;62022-0073-01
 ;;9002226.02101,"623,62022-0073-01 ",.02)
 ;;62022-0073-01
 ;;9002226.02101,"623,62431-0112-04 ",.01)
 ;;62431-0112-04
 ;;9002226.02101,"623,62431-0112-04 ",.02)
 ;;62431-0112-04
 ;;9002226.02101,"623,62431-0112-08 ",.01)
 ;;62431-0112-08
 ;;9002226.02101,"623,62431-0112-08 ",.02)
 ;;62431-0112-08
 ;;9002226.02101,"623,62584-0739-01 ",.01)
 ;;62584-0739-01
 ;;9002226.02101,"623,62584-0739-01 ",.02)
 ;;62584-0739-01
 ;;9002226.02101,"623,62584-0741-01 ",.01)
 ;;62584-0741-01
 ;;9002226.02101,"623,62584-0741-01 ",.02)
 ;;62584-0741-01
 ;;9002226.02101,"623,62865-0379-34 ",.01)
 ;;62865-0379-34
 ;;9002226.02101,"623,62865-0379-34 ",.02)
 ;;62865-0379-34
 ;;9002226.02101,"623,63304-0679-01 ",.01)
 ;;63304-0679-01
 ;;9002226.02101,"623,63304-0679-01 ",.02)
 ;;63304-0679-01
 ;;9002226.02101,"623,63304-0679-80 ",.01)
 ;;63304-0679-80
 ;;9002226.02101,"623,63304-0679-80 ",.02)
 ;;63304-0679-80
 ;;9002226.02101,"623,63304-0680-01 ",.01)
 ;;63304-0680-01
 ;;9002226.02101,"623,63304-0680-01 ",.02)
 ;;63304-0680-01
 ;;9002226.02101,"623,63304-0741-01 ",.01)
 ;;63304-0741-01
 ;;9002226.02101,"623,63304-0741-01 ",.02)
 ;;63304-0741-01
 ;;9002226.02101,"623,63304-0742-01 ",.01)
 ;;63304-0742-01
 ;;9002226.02101,"623,63304-0742-01 ",.02)
 ;;63304-0742-01
 ;;9002226.02101,"623,63304-0742-10 ",.01)
 ;;63304-0742-10
 ;;9002226.02101,"623,63304-0742-10 ",.02)
 ;;63304-0742-10
 ;;9002226.02101,"623,63304-0743-01 ",.01)
 ;;63304-0743-01
 ;;9002226.02101,"623,63304-0743-01 ",.02)
 ;;63304-0743-01
 ;;9002226.02101,"623,63304-0743-10 ",.01)
 ;;63304-0743-10
 ;;9002226.02101,"623,63304-0743-10 ",.02)
 ;;63304-0743-10
 ;;9002226.02101,"623,63304-0744-01 ",.01)
 ;;63304-0744-01
 ;;9002226.02101,"623,63304-0744-01 ",.02)
 ;;63304-0744-01
 ;;9002226.02101,"623,63739-0200-01 ",.01)
 ;;63739-0200-01
 ;;9002226.02101,"623,63739-0200-01 ",.02)
 ;;63739-0200-01
 ;;9002226.02101,"623,63739-0200-03 ",.01)
 ;;63739-0200-03
 ;;9002226.02101,"623,63739-0200-03 ",.02)
 ;;63739-0200-03
 ;;9002226.02101,"623,63739-0200-15 ",.01)
 ;;63739-0200-15
 ;;9002226.02101,"623,63739-0200-15 ",.02)
 ;;63739-0200-15
 ;;9002226.02101,"623,63739-0201-01 ",.01)
 ;;63739-0201-01
 ;;9002226.02101,"623,63739-0201-01 ",.02)
 ;;63739-0201-01
 ;;9002226.02101,"623,63739-0201-03 ",.01)
 ;;63739-0201-03
 ;;9002226.02101,"623,63739-0201-03 ",.02)
 ;;63739-0201-03
 ;;9002226.02101,"623,63739-0201-15 ",.01)
 ;;63739-0201-15
 ;;9002226.02101,"623,63739-0201-15 ",.02)
 ;;63739-0201-15
 ;;9002226.02101,"623,63874-0219-01 ",.01)
 ;;63874-0219-01
 ;;9002226.02101,"623,63874-0219-01 ",.02)
 ;;63874-0219-01
 ;;9002226.02101,"623,63874-0219-20 ",.01)
 ;;63874-0219-20
 ;;9002226.02101,"623,63874-0219-20 ",.02)
 ;;63874-0219-20
 ;;9002226.02101,"623,63874-0219-25 ",.01)
 ;;63874-0219-25
 ;;9002226.02101,"623,63874-0219-25 ",.02)
 ;;63874-0219-25
 ;;9002226.02101,"623,63874-0219-30 ",.01)
 ;;63874-0219-30
 ;;9002226.02101,"623,63874-0219-30 ",.02)
 ;;63874-0219-30
 ;;9002226.02101,"623,63874-0268-01 ",.01)
 ;;63874-0268-01
 ;;9002226.02101,"623,63874-0268-01 ",.02)
 ;;63874-0268-01
 ;;9002226.02101,"623,63874-0268-02 ",.01)
 ;;63874-0268-02
 ;;9002226.02101,"623,63874-0268-02 ",.02)
 ;;63874-0268-02
 ;;9002226.02101,"623,63874-0268-10 ",.01)
 ;;63874-0268-10
 ;;9002226.02101,"623,63874-0268-10 ",.02)
 ;;63874-0268-10
 ;;9002226.02101,"623,63874-0268-12 ",.01)
 ;;63874-0268-12
 ;;9002226.02101,"623,63874-0268-12 ",.02)
 ;;63874-0268-12
 ;;9002226.02101,"623,63874-0268-14 ",.01)
 ;;63874-0268-14
 ;;9002226.02101,"623,63874-0268-14 ",.02)
 ;;63874-0268-14
 ;;9002226.02101,"623,63874-0268-15 ",.01)
 ;;63874-0268-15
 ;;9002226.02101,"623,63874-0268-15 ",.02)
 ;;63874-0268-15
 ;;9002226.02101,"623,63874-0268-20 ",.01)
 ;;63874-0268-20
 ;;9002226.02101,"623,63874-0268-20 ",.02)
 ;;63874-0268-20
 ;;9002226.02101,"623,63874-0268-21 ",.01)
 ;;63874-0268-21
 ;;9002226.02101,"623,63874-0268-21 ",.02)
 ;;63874-0268-21
 ;;9002226.02101,"623,63874-0268-24 ",.01)
 ;;63874-0268-24
 ;;9002226.02101,"623,63874-0268-24 ",.02)
 ;;63874-0268-24
 ;;9002226.02101,"623,63874-0268-25 ",.01)
 ;;63874-0268-25
 ;;9002226.02101,"623,63874-0268-25 ",.02)
 ;;63874-0268-25
 ;;9002226.02101,"623,63874-0268-28 ",.01)
 ;;63874-0268-28
 ;;9002226.02101,"623,63874-0268-28 ",.02)
 ;;63874-0268-28
 ;;9002226.02101,"623,63874-0268-30 ",.01)
 ;;63874-0268-30
 ;;9002226.02101,"623,63874-0268-30 ",.02)
 ;;63874-0268-30
 ;;9002226.02101,"623,63874-0268-40 ",.01)
 ;;63874-0268-40
 ;;9002226.02101,"623,63874-0268-40 ",.02)
 ;;63874-0268-40
 ;;9002226.02101,"623,63874-0268-50 ",.01)
 ;;63874-0268-50
 ;;9002226.02101,"623,63874-0268-50 ",.02)
 ;;63874-0268-50
 ;;9002226.02101,"623,63874-0268-60 ",.01)
 ;;63874-0268-60
 ;;9002226.02101,"623,63874-0268-60 ",.02)
 ;;63874-0268-60
 ;;9002226.02101,"623,63874-0448-01 ",.01)
 ;;63874-0448-01
 ;;9002226.02101,"623,63874-0448-01 ",.02)
 ;;63874-0448-01
 ;;9002226.02101,"623,63874-0448-02 ",.01)
 ;;63874-0448-02
 ;;9002226.02101,"623,63874-0448-02 ",.02)
 ;;63874-0448-02
 ;;9002226.02101,"623,63874-0448-03 ",.01)
 ;;63874-0448-03
 ;;9002226.02101,"623,63874-0448-03 ",.02)
 ;;63874-0448-03
 ;;9002226.02101,"623,63874-0448-10 ",.01)
 ;;63874-0448-10
 ;;9002226.02101,"623,63874-0448-10 ",.02)
 ;;63874-0448-10
 ;;9002226.02101,"623,63874-0448-20 ",.01)
 ;;63874-0448-20
 ;;9002226.02101,"623,63874-0448-20 ",.02)
 ;;63874-0448-20
 ;;9002226.02101,"623,63874-0448-30 ",.01)
 ;;63874-0448-30
 ;;9002226.02101,"623,63874-0448-30 ",.02)
 ;;63874-0448-30
 ;;9002226.02101,"623,63874-0448-50 ",.01)
 ;;63874-0448-50
 ;;9002226.02101,"623,63874-0448-50 ",.02)
 ;;63874-0448-50
 ;;9002226.02101,"623,63874-0448-60 ",.01)
 ;;63874-0448-60
 ;;9002226.02101,"623,63874-0448-60 ",.02)
 ;;63874-0448-60