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

BGP06Z7.m

Go to the documentation of this file.
  1. BGP06Z7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"982,00247-0088-77 ",.02)
  1. ;;00247-0088-77
  1. ;;9002226.02101,"982,00247-0088-90 ",.01)
  1. ;;00247-0088-90
  1. ;;9002226.02101,"982,00247-0088-90 ",.02)
  1. ;;00247-0088-90
  1. ;;9002226.02101,"982,00247-0112-03 ",.01)
  1. ;;00247-0112-03
  1. ;;9002226.02101,"982,00247-0112-03 ",.02)
  1. ;;00247-0112-03
  1. ;;9002226.02101,"982,00247-0112-04 ",.01)
  1. ;;00247-0112-04
  1. ;;9002226.02101,"982,00247-0112-04 ",.02)
  1. ;;00247-0112-04
  1. ;;9002226.02101,"982,00247-0112-10 ",.01)
  1. ;;00247-0112-10
  1. ;;9002226.02101,"982,00247-0112-10 ",.02)
  1. ;;00247-0112-10
  1. ;;9002226.02101,"982,00247-0112-12 ",.01)
  1. ;;00247-0112-12
  1. ;;9002226.02101,"982,00247-0112-12 ",.02)
  1. ;;00247-0112-12
  1. ;;9002226.02101,"982,00247-0112-14 ",.01)
  1. ;;00247-0112-14
  1. ;;9002226.02101,"982,00247-0112-14 ",.02)
  1. ;;00247-0112-14
  1. ;;9002226.02101,"982,00247-0112-15 ",.01)
  1. ;;00247-0112-15
  1. ;;9002226.02101,"982,00247-0112-15 ",.02)
  1. ;;00247-0112-15
  1. ;;9002226.02101,"982,00247-0112-16 ",.01)
  1. ;;00247-0112-16
  1. ;;9002226.02101,"982,00247-0112-16 ",.02)
  1. ;;00247-0112-16
  1. ;;9002226.02101,"982,00247-0112-20 ",.01)
  1. ;;00247-0112-20
  1. ;;9002226.02101,"982,00247-0112-20 ",.02)
  1. ;;00247-0112-20
  1. ;;9002226.02101,"982,00247-0112-24 ",.01)
  1. ;;00247-0112-24
  1. ;;9002226.02101,"982,00247-0112-24 ",.02)
  1. ;;00247-0112-24
  1. ;;9002226.02101,"982,00247-0112-28 ",.01)
  1. ;;00247-0112-28
  1. ;;9002226.02101,"982,00247-0112-28 ",.02)
  1. ;;00247-0112-28
  1. ;;9002226.02101,"982,00247-0112-30 ",.01)
  1. ;;00247-0112-30
  1. ;;9002226.02101,"982,00247-0112-30 ",.02)
  1. ;;00247-0112-30
  1. ;;9002226.02101,"982,00247-0112-40 ",.01)
  1. ;;00247-0112-40
  1. ;;9002226.02101,"982,00247-0112-40 ",.02)
  1. ;;00247-0112-40
  1. ;;9002226.02101,"982,00247-0180-03 ",.01)
  1. ;;00247-0180-03
  1. ;;9002226.02101,"982,00247-0180-03 ",.02)
  1. ;;00247-0180-03
  1. ;;9002226.02101,"982,00247-0180-04 ",.01)
  1. ;;00247-0180-04
  1. ;;9002226.02101,"982,00247-0180-04 ",.02)
  1. ;;00247-0180-04
  1. ;;9002226.02101,"982,00247-0180-06 ",.01)
  1. ;;00247-0180-06
  1. ;;9002226.02101,"982,00247-0180-06 ",.02)
  1. ;;00247-0180-06
  1. ;;9002226.02101,"982,00247-0180-10 ",.01)
  1. ;;00247-0180-10
  1. ;;9002226.02101,"982,00247-0180-10 ",.02)
  1. ;;00247-0180-10
  1. ;;9002226.02101,"982,00247-0180-12 ",.01)
  1. ;;00247-0180-12
  1. ;;9002226.02101,"982,00247-0180-12 ",.02)
  1. ;;00247-0180-12
  1. ;;9002226.02101,"982,00247-0180-14 ",.01)
  1. ;;00247-0180-14
  1. ;;9002226.02101,"982,00247-0180-14 ",.02)
  1. ;;00247-0180-14
  1. ;;9002226.02101,"982,00247-0180-15 ",.01)
  1. ;;00247-0180-15
  1. ;;9002226.02101,"982,00247-0180-15 ",.02)
  1. ;;00247-0180-15
  1. ;;9002226.02101,"982,00247-0180-20 ",.01)
  1. ;;00247-0180-20
  1. ;;9002226.02101,"982,00247-0180-20 ",.02)
  1. ;;00247-0180-20
  1. ;;9002226.02101,"982,00247-0180-21 ",.01)
  1. ;;00247-0180-21
  1. ;;9002226.02101,"982,00247-0180-21 ",.02)
  1. ;;00247-0180-21
  1. ;;9002226.02101,"982,00247-0180-24 ",.01)
  1. ;;00247-0180-24
  1. ;;9002226.02101,"982,00247-0180-24 ",.02)
  1. ;;00247-0180-24
  1. ;;9002226.02101,"982,00247-0180-28 ",.01)
  1. ;;00247-0180-28
  1. ;;9002226.02101,"982,00247-0180-28 ",.02)
  1. ;;00247-0180-28
  1. ;;9002226.02101,"982,00247-0180-40 ",.01)
  1. ;;00247-0180-40
  1. ;;9002226.02101,"982,00247-0180-40 ",.02)
  1. ;;00247-0180-40
  1. ;;9002226.02101,"982,00247-0180-60 ",.01)
  1. ;;00247-0180-60
  1. ;;9002226.02101,"982,00247-0180-60 ",.02)
  1. ;;00247-0180-60
  1. ;;9002226.02101,"982,00247-0286-06 ",.01)
  1. ;;00247-0286-06
  1. ;;9002226.02101,"982,00247-0286-06 ",.02)
  1. ;;00247-0286-06
  1. ;;9002226.02101,"982,00247-0286-16 ",.01)
  1. ;;00247-0286-16
  1. ;;9002226.02101,"982,00247-0286-16 ",.02)
  1. ;;00247-0286-16
  1. ;;9002226.02101,"982,00247-0286-18 ",.01)
  1. ;;00247-0286-18
  1. ;;9002226.02101,"982,00247-0286-18 ",.02)
  1. ;;00247-0286-18
  1. ;;9002226.02101,"982,00247-0286-20 ",.01)
  1. ;;00247-0286-20
  1. ;;9002226.02101,"982,00247-0286-20 ",.02)
  1. ;;00247-0286-20
  1. ;;9002226.02101,"982,00247-0286-30 ",.01)
  1. ;;00247-0286-30
  1. ;;9002226.02101,"982,00247-0286-30 ",.02)
  1. ;;00247-0286-30
  1. ;;9002226.02101,"982,00247-0286-40 ",.01)
  1. ;;00247-0286-40
  1. ;;9002226.02101,"982,00247-0286-40 ",.02)
  1. ;;00247-0286-40
  1. ;;9002226.02101,"982,00247-0324-02 ",.01)
  1. ;;00247-0324-02
  1. ;;9002226.02101,"982,00247-0324-02 ",.02)
  1. ;;00247-0324-02
  1. ;;9002226.02101,"982,00247-0324-08 ",.01)
  1. ;;00247-0324-08
  1. ;;9002226.02101,"982,00247-0324-08 ",.02)
  1. ;;00247-0324-08
  1. ;;9002226.02101,"982,00247-0324-10 ",.01)
  1. ;;00247-0324-10
  1. ;;9002226.02101,"982,00247-0324-10 ",.02)
  1. ;;00247-0324-10
  1. ;;9002226.02101,"982,00247-0324-14 ",.01)
  1. ;;00247-0324-14
  1. ;;9002226.02101,"982,00247-0324-14 ",.02)
  1. ;;00247-0324-14
  1. ;;9002226.02101,"982,00247-0324-20 ",.01)
  1. ;;00247-0324-20
  1. ;;9002226.02101,"982,00247-0324-20 ",.02)
  1. ;;00247-0324-20
  1. ;;9002226.02101,"982,00247-0324-21 ",.01)
  1. ;;00247-0324-21
  1. ;;9002226.02101,"982,00247-0324-21 ",.02)
  1. ;;00247-0324-21
  1. ;;9002226.02101,"982,00247-0324-28 ",.01)
  1. ;;00247-0324-28
  1. ;;9002226.02101,"982,00247-0324-28 ",.02)
  1. ;;00247-0324-28
  1. ;;9002226.02101,"982,00247-0324-30 ",.01)
  1. ;;00247-0324-30
  1. ;;9002226.02101,"982,00247-0324-30 ",.02)
  1. ;;00247-0324-30
  1. ;;9002226.02101,"982,00247-0341-20 ",.01)
  1. ;;00247-0341-20
  1. ;;9002226.02101,"982,00247-0341-20 ",.02)
  1. ;;00247-0341-20
  1. ;;9002226.02101,"982,00247-0341-30 ",.01)
  1. ;;00247-0341-30
  1. ;;9002226.02101,"982,00247-0341-30 ",.02)
  1. ;;00247-0341-30
  1. ;;9002226.02101,"982,00247-0368-02 ",.01)
  1. ;;00247-0368-02
  1. ;;9002226.02101,"982,00247-0368-02 ",.02)
  1. ;;00247-0368-02
  1. ;;9002226.02101,"982,00247-0368-08 ",.01)
  1. ;;00247-0368-08
  1. ;;9002226.02101,"982,00247-0368-08 ",.02)
  1. ;;00247-0368-08
  1. ;;9002226.02101,"982,00247-0368-10 ",.01)
  1. ;;00247-0368-10
  1. ;;9002226.02101,"982,00247-0368-10 ",.02)
  1. ;;00247-0368-10
  1. ;;9002226.02101,"982,00247-0368-14 ",.01)
  1. ;;00247-0368-14
  1. ;;9002226.02101,"982,00247-0368-14 ",.02)
  1. ;;00247-0368-14
  1. ;;9002226.02101,"982,00247-0368-20 ",.01)
  1. ;;00247-0368-20
  1. ;;9002226.02101,"982,00247-0368-20 ",.02)
  1. ;;00247-0368-20
  1. ;;9002226.02101,"982,00247-0368-30 ",.01)
  1. ;;00247-0368-30
  1. ;;9002226.02101,"982,00247-0368-30 ",.02)
  1. ;;00247-0368-30
  1. ;;9002226.02101,"982,00247-0369-24 ",.01)
  1. ;;00247-0369-24
  1. ;;9002226.02101,"982,00247-0369-24 ",.02)
  1. ;;00247-0369-24
  1. ;;9002226.02101,"982,00247-0369-30 ",.01)
  1. ;;00247-0369-30
  1. ;;9002226.02101,"982,00247-0369-30 ",.02)
  1. ;;00247-0369-30
  1. ;;9002226.02101,"982,00247-0391-07 ",.01)
  1. ;;00247-0391-07
  1. ;;9002226.02101,"982,00247-0391-07 ",.02)
  1. ;;00247-0391-07
  1. ;;9002226.02101,"982,00247-0391-15 ",.01)
  1. ;;00247-0391-15
  1. ;;9002226.02101,"982,00247-0391-15 ",.02)
  1. ;;00247-0391-15
  1. ;;9002226.02101,"982,00247-0391-20 ",.01)
  1. ;;00247-0391-20
  1. ;;9002226.02101,"982,00247-0391-20 ",.02)
  1. ;;00247-0391-20
  1. ;;9002226.02101,"982,00247-0391-30 ",.01)
  1. ;;00247-0391-30
  1. ;;9002226.02101,"982,00247-0391-30 ",.02)
  1. ;;00247-0391-30
  1. ;;9002226.02101,"982,00247-0391-40 ",.01)
  1. ;;00247-0391-40
  1. ;;9002226.02101,"982,00247-0391-40 ",.02)
  1. ;;00247-0391-40
  1. ;;9002226.02101,"982,00247-0610-02 ",.01)
  1. ;;00247-0610-02
  1. ;;9002226.02101,"982,00247-0610-02 ",.02)
  1. ;;00247-0610-02
  1. ;;9002226.02101,"982,00247-0610-06 ",.01)
  1. ;;00247-0610-06
  1. ;;9002226.02101,"982,00247-0610-06 ",.02)
  1. ;;00247-0610-06
  1. ;;9002226.02101,"982,00247-0610-15 ",.01)
  1. ;;00247-0610-15
  1. ;;9002226.02101,"982,00247-0610-15 ",.02)
  1. ;;00247-0610-15
  1. ;;9002226.02101,"982,00247-0610-16 ",.01)
  1. ;;00247-0610-16
  1. ;;9002226.02101,"982,00247-0610-16 ",.02)
  1. ;;00247-0610-16
  1. ;;9002226.02101,"982,00247-0610-18 ",.01)
  1. ;;00247-0610-18
  1. ;;9002226.02101,"982,00247-0610-18 ",.02)
  1. ;;00247-0610-18
  1. ;;9002226.02101,"982,00247-0610-20 ",.01)
  1. ;;00247-0610-20
  1. ;;9002226.02101,"982,00247-0610-20 ",.02)
  1. ;;00247-0610-20
  1. ;;9002226.02101,"982,00247-0610-21 ",.01)
  1. ;;00247-0610-21
  1. ;;9002226.02101,"982,00247-0610-21 ",.02)
  1. ;;00247-0610-21
  1. ;;9002226.02101,"982,00247-0610-30 ",.01)
  1. ;;00247-0610-30
  1. ;;9002226.02101,"982,00247-0610-30 ",.02)
  1. ;;00247-0610-30
  1. ;;9002226.02101,"982,00247-0610-32 ",.01)
  1. ;;00247-0610-32
  1. ;;9002226.02101,"982,00247-0610-32 ",.02)
  1. ;;00247-0610-32
  1. ;;9002226.02101,"982,00247-0610-40 ",.01)
  1. ;;00247-0610-40
  1. ;;9002226.02101,"982,00247-0610-40 ",.02)
  1. ;;00247-0610-40
  1. ;;9002226.02101,"982,00247-0610-42 ",.01)
  1. ;;00247-0610-42
  1. ;;9002226.02101,"982,00247-0610-42 ",.02)
  1. ;;00247-0610-42
  1. ;;9002226.02101,"982,00247-0610-60 ",.01)
  1. ;;00247-0610-60
  1. ;;9002226.02101,"982,00247-0610-60 ",.02)
  1. ;;00247-0610-60
  1. ;;9002226.02101,"982,00247-0708-08 ",.01)
  1. ;;00247-0708-08
  1. ;;9002226.02101,"982,00247-0708-08 ",.02)
  1. ;;00247-0708-08
  1. ;;9002226.02101,"982,00247-0708-20 ",.01)
  1. ;;00247-0708-20
  1. ;;9002226.02101,"982,00247-0708-20 ",.02)
  1. ;;00247-0708-20
  1. ;;9002226.02101,"982,00247-0708-21 ",.01)
  1. ;;00247-0708-21
  1. ;;9002226.02101,"982,00247-0708-21 ",.02)
  1. ;;00247-0708-21
  1. ;;9002226.02101,"982,00247-0708-28 ",.01)
  1. ;;00247-0708-28
  1. ;;9002226.02101,"982,00247-0708-28 ",.02)
  1. ;;00247-0708-28
  1. ;;9002226.02101,"982,00247-0708-30 ",.01)
  1. ;;00247-0708-30
  1. ;;9002226.02101,"982,00247-0708-30 ",.02)
  1. ;;00247-0708-30
  1. ;;9002226.02101,"982,00247-0708-36 ",.01)
  1. ;;00247-0708-36
  1. ;;9002226.02101,"982,00247-0708-36 ",.02)
  1. ;;00247-0708-36
  1. ;;9002226.02101,"982,00247-1054-21 ",.01)
  1. ;;00247-1054-21
  1. ;;9002226.02101,"982,00247-1054-21 ",.02)
  1. ;;00247-1054-21
  1. ;;9002226.02101,"982,00247-1054-60 ",.01)
  1. ;;00247-1054-60
  1. ;;9002226.02101,"982,00247-1054-60 ",.02)
  1. ;;00247-1054-60
  1. ;;9002226.02101,"982,00247-1055-07 ",.01)
  1. ;;00247-1055-07
  1. ;;9002226.02101,"982,00247-1055-07 ",.02)
  1. ;;00247-1055-07
  1. ;;9002226.02101,"982,00247-1055-28 ",.01)
  1. ;;00247-1055-28
  1. ;;9002226.02101,"982,00247-1055-28 ",.02)
  1. ;;00247-1055-28
  1. ;;9002226.02101,"982,00247-1055-40 ",.01)
  1. ;;00247-1055-40
  1. ;;9002226.02101,"982,00247-1055-40 ",.02)
  1. ;;00247-1055-40
  1. ;;9002226.02101,"982,00247-1055-60 ",.01)
  1. ;;00247-1055-60
  1. ;;9002226.02101,"982,00247-1055-60 ",.02)
  1. ;;00247-1055-60
  1. ;;9002226.02101,"982,00247-1540-12 ",.01)
  1. ;;00247-1540-12
  1. ;;9002226.02101,"982,00247-1540-12 ",.02)
  1. ;;00247-1540-12
  1. ;;9002226.02101,"982,00247-1540-20 ",.01)
  1. ;;00247-1540-20
  1. ;;9002226.02101,"982,00247-1540-20 ",.02)
  1. ;;00247-1540-20
  1. ;;9002226.02101,"982,00247-1540-28 ",.01)
  1. ;;00247-1540-28
  1. ;;9002226.02101,"982,00247-1540-28 ",.02)
  1. ;;00247-1540-28
  1. ;;9002226.02101,"982,00247-1540-30 ",.01)
  1. ;;00247-1540-30
  1. ;;9002226.02101,"982,00247-1540-30 ",.02)
  1. ;;00247-1540-30
  1. ;;9002226.02101,"982,00247-1761-20 ",.01)
  1. ;;00247-1761-20
  1. ;;9002226.02101,"982,00247-1761-20 ",.02)
  1. ;;00247-1761-20
  1. ;;9002226.02101,"982,00247-2048-10 ",.01)
  1. ;;00247-2048-10
  1. ;;9002226.02101,"982,00247-2048-10 ",.02)
  1. ;;00247-2048-10
  1. ;;9002226.02101,"982,00247-2048-20 ",.01)
  1. ;;00247-2048-20
  1. ;;9002226.02101,"982,00247-2048-20 ",.02)
  1. ;;00247-2048-20
  1. ;;9002226.02101,"982,00247-2048-21 ",.01)
  1. ;;00247-2048-21
  1. ;;9002226.02101,"982,00247-2048-21 ",.02)
  1. ;;00247-2048-21
  1. ;;9002226.02101,"982,00247-2048-30 ",.01)
  1. ;;00247-2048-30
  1. ;;9002226.02101,"982,00247-2048-30 ",.02)
  1. ;;00247-2048-30
  1. ;;9002226.02101,"982,00247-2048-40 ",.01)
  1. ;;00247-2048-40
  1. ;;9002226.02101,"982,00247-2048-40 ",.02)
  1. ;;00247-2048-40
  1. ;;9002226.02101,"982,00247-2219-21 ",.01)
  1. ;;00247-2219-21
  1. ;;9002226.02101,"982,00247-2219-21 ",.02)
  1. ;;00247-2219-21
  1. ;;9002226.02101,"982,00254-2410-38 ",.01)
  1. ;;00254-2410-38
  1. ;;9002226.02101,"982,00254-2410-38 ",.02)
  1. ;;00254-2410-38
  1. ;;9002226.02101,"982,00364-0346-01 ",.01)
  1. ;;00364-0346-01
  1. ;;9002226.02101,"982,00364-0346-01 ",.02)
  1. ;;00364-0346-01
  1. ;;9002226.02101,"982,00364-0346-05 ",.01)
  1. ;;00364-0346-05
  1. ;;9002226.02101,"982,00364-0346-05 ",.02)
  1. ;;00364-0346-05
  1. ;;9002226.02101,"982,00364-0347-01 ",.01)
  1. ;;00364-0347-01
  1. ;;9002226.02101,"982,00364-0347-01 ",.02)
  1. ;;00364-0347-01
  1. ;;9002226.02101,"982,00364-0347-05 ",.01)
  1. ;;00364-0347-05
  1. ;;9002226.02101,"982,00364-0347-05 ",.02)
  1. ;;00364-0347-05
  1. ;;9002226.02101,"982,00364-0475-01 ",.01)
  1. ;;00364-0475-01
  1. ;;9002226.02101,"982,00364-0475-01 ",.02)
  1. ;;00364-0475-01
  1. ;;9002226.02101,"982,00364-0475-02 ",.01)
  1. ;;00364-0475-02
  1. ;;9002226.02101,"982,00364-0475-02 ",.02)
  1. ;;00364-0475-02
  1. ;;9002226.02101,"982,00364-0475-04 ",.01)
  1. ;;00364-0475-04
  1. ;;9002226.02101,"982,00364-0475-04 ",.02)
  1. ;;00364-0475-04
  1. ;;9002226.02101,"982,00364-0475-05 ",.01)
  1. ;;00364-0475-05
  1. ;;9002226.02101,"982,00364-0475-05 ",.02)
  1. ;;00364-0475-05
  1. ;;9002226.02101,"982,00364-2348-01 ",.01)
  1. ;;00364-2348-01
  1. ;;9002226.02101,"982,00364-2348-01 ",.02)
  1. ;;00364-2348-01
  1. ;;9002226.02101,"982,00364-2348-02 ",.01)
  1. ;;00364-2348-02
  1. ;;9002226.02101,"982,00364-2348-02 ",.02)
  1. ;;00364-2348-02
  1. ;;9002226.02101,"982,00364-2348-05 ",.01)
  1. ;;00364-2348-05
  1. ;;9002226.02101,"982,00364-2348-05 ",.02)
  1. ;;00364-2348-05
  1. ;;9002226.02101,"982,00364-2830-01 ",.01)
  1. ;;00364-2830-01
  1. ;;9002226.02101,"982,00364-2830-01 ",.02)
  1. ;;00364-2830-01
  1. ;;9002226.02101,"982,00364-2830-04 ",.01)
  1. ;;00364-2830-04
  1. ;;9002226.02101,"982,00364-2830-04 ",.02)
  1. ;;00364-2830-04
  1. ;;9002226.02101,"982,00378-0751-01 ",.01)
  1. ;;00378-0751-01
  1. ;;9002226.02101,"982,00378-0751-01 ",.02)
  1. ;;00378-0751-01
  1. ;;9002226.02101,"982,00378-0751-10 ",.01)
  1. ;;00378-0751-10
  1. ;;9002226.02101,"982,00378-0751-10 ",.02)
  1. ;;00378-0751-10
  1. ;;9002226.02101,"982,00378-0751-93 ",.01)
  1. ;;00378-0751-93
  1. ;;9002226.02101,"982,00378-0751-93 ",.02)
  1. ;;00378-0751-93
  1. ;;9002226.02101,"982,00378-0771-01 ",.01)
  1. ;;00378-0771-01
  1. ;;9002226.02101,"982,00378-0771-01 ",.02)
  1. ;;00378-0771-01
  1. ;;9002226.02101,"982,00378-0771-05 ",.01)
  1. ;;00378-0771-05
  1. ;;9002226.02101,"982,00378-0771-05 ",.02)
  1. ;;00378-0771-05
  1. ;;9002226.02101,"982,00378-0771-93 ",.01)
  1. ;;00378-0771-93
  1. ;;9002226.02101,"982,00378-0771-93 ",.02)
  1. ;;00378-0771-93
  1. ;;9002226.02101,"982,00378-3358-01 ",.01)
  1. ;;00378-3358-01