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

BGP06L5.m

Go to the documentation of this file.
  1. BGP06L5 ;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,"692,00555-0163-05 ",.01)
  1. ;;00555-0163-05
  1. ;;9002226.02101,"692,00555-0163-05 ",.02)
  1. ;;00555-0163-05
  1. ;;9002226.02101,"692,00555-0164-02 ",.01)
  1. ;;00555-0164-02
  1. ;;9002226.02101,"692,00555-0164-02 ",.02)
  1. ;;00555-0164-02
  1. ;;9002226.02101,"692,00555-0164-05 ",.01)
  1. ;;00555-0164-05
  1. ;;9002226.02101,"692,00555-0164-05 ",.02)
  1. ;;00555-0164-05
  1. ;;9002226.02101,"692,00555-0363-02 ",.01)
  1. ;;00555-0363-02
  1. ;;9002226.02101,"692,00555-0363-02 ",.02)
  1. ;;00555-0363-02
  1. ;;9002226.02101,"692,00555-0363-05 ",.01)
  1. ;;00555-0363-05
  1. ;;9002226.02101,"692,00555-0363-05 ",.02)
  1. ;;00555-0363-05
  1. ;;9002226.02101,"692,00591-0785-01 ",.01)
  1. ;;00591-0785-01
  1. ;;9002226.02101,"692,00591-0785-01 ",.02)
  1. ;;00591-0785-01
  1. ;;9002226.02101,"692,00591-0785-05 ",.01)
  1. ;;00591-0785-05
  1. ;;9002226.02101,"692,00591-0785-05 ",.02)
  1. ;;00591-0785-05
  1. ;;9002226.02101,"692,00591-0786-01 ",.01)
  1. ;;00591-0786-01
  1. ;;9002226.02101,"692,00591-0786-01 ",.02)
  1. ;;00591-0786-01
  1. ;;9002226.02101,"692,00591-0786-05 ",.01)
  1. ;;00591-0786-05
  1. ;;9002226.02101,"692,00591-0786-05 ",.02)
  1. ;;00591-0786-05
  1. ;;9002226.02101,"692,00591-0786-10 ",.01)
  1. ;;00591-0786-10
  1. ;;9002226.02101,"692,00591-0786-10 ",.02)
  1. ;;00591-0786-10
  1. ;;9002226.02101,"692,00591-0787-01 ",.01)
  1. ;;00591-0787-01
  1. ;;9002226.02101,"692,00591-0787-01 ",.02)
  1. ;;00591-0787-01
  1. ;;9002226.02101,"692,00591-0787-05 ",.01)
  1. ;;00591-0787-05
  1. ;;9002226.02101,"692,00591-0787-05 ",.02)
  1. ;;00591-0787-05
  1. ;;9002226.02101,"692,00591-4007-01 ",.01)
  1. ;;00591-4007-01
  1. ;;9002226.02101,"692,00591-4007-01 ",.02)
  1. ;;00591-4007-01
  1. ;;9002226.02101,"692,00591-4007-05 ",.01)
  1. ;;00591-4007-05
  1. ;;9002226.02101,"692,00591-4007-05 ",.02)
  1. ;;00591-4007-05
  1. ;;9002226.02101,"692,00591-5619-01 ",.01)
  1. ;;00591-5619-01
  1. ;;9002226.02101,"692,00591-5619-01 ",.02)
  1. ;;00591-5619-01
  1. ;;9002226.02101,"692,00591-5619-05 ",.01)
  1. ;;00591-5619-05
  1. ;;9002226.02101,"692,00591-5619-05 ",.02)
  1. ;;00591-5619-05
  1. ;;9002226.02101,"692,00591-5619-10 ",.01)
  1. ;;00591-5619-10
  1. ;;9002226.02101,"692,00591-5619-10 ",.02)
  1. ;;00591-5619-10
  1. ;;9002226.02101,"692,00591-5620-01 ",.01)
  1. ;;00591-5620-01
  1. ;;9002226.02101,"692,00591-5620-01 ",.02)
  1. ;;00591-5620-01
  1. ;;9002226.02101,"692,00591-5620-05 ",.01)
  1. ;;00591-5620-05
  1. ;;9002226.02101,"692,00591-5620-05 ",.02)
  1. ;;00591-5620-05
  1. ;;9002226.02101,"692,00591-5620-10 ",.01)
  1. ;;00591-5620-10
  1. ;;9002226.02101,"692,00591-5620-10 ",.02)
  1. ;;00591-5620-10
  1. ;;9002226.02101,"692,00591-5621-01 ",.01)
  1. ;;00591-5621-01
  1. ;;9002226.02101,"692,00591-5621-01 ",.02)
  1. ;;00591-5621-01
  1. ;;9002226.02101,"692,00591-5621-05 ",.01)
  1. ;;00591-5621-05
  1. ;;9002226.02101,"692,00591-5621-05 ",.02)
  1. ;;00591-5621-05
  1. ;;9002226.02101,"692,00591-5621-10 ",.01)
  1. ;;00591-5621-10
  1. ;;9002226.02101,"692,00591-5621-10 ",.02)
  1. ;;00591-5621-10
  1. ;;9002226.02101,"692,00603-2666-32 ",.01)
  1. ;;00603-2666-32
  1. ;;9002226.02101,"692,00603-2666-32 ",.02)
  1. ;;00603-2666-32
  1. ;;9002226.02101,"692,00603-2690-21 ",.01)
  1. ;;00603-2690-21
  1. ;;9002226.02101,"692,00603-2690-21 ",.02)
  1. ;;00603-2690-21
  1. ;;9002226.02101,"692,00603-2690-28 ",.01)
  1. ;;00603-2690-28
  1. ;;9002226.02101,"692,00603-2690-28 ",.02)
  1. ;;00603-2690-28
  1. ;;9002226.02101,"692,00603-2691-21 ",.01)
  1. ;;00603-2691-21
  1. ;;9002226.02101,"692,00603-2691-21 ",.02)
  1. ;;00603-2691-21
  1. ;;9002226.02101,"692,00603-2691-28 ",.01)
  1. ;;00603-2691-28
  1. ;;9002226.02101,"692,00603-2691-28 ",.02)
  1. ;;00603-2691-28
  1. ;;9002226.02101,"692,00603-2714-21 ",.01)
  1. ;;00603-2714-21
  1. ;;9002226.02101,"692,00603-2714-21 ",.02)
  1. ;;00603-2714-21
  1. ;;9002226.02101,"692,00603-2714-32 ",.01)
  1. ;;00603-2714-32
  1. ;;9002226.02101,"692,00603-2714-32 ",.02)
  1. ;;00603-2714-32
  1. ;;9002226.02101,"692,00603-3213-16 ",.01)
  1. ;;00603-3213-16
  1. ;;9002226.02101,"692,00603-3213-16 ",.02)
  1. ;;00603-3213-16
  1. ;;9002226.02101,"692,00603-3213-20 ",.01)
  1. ;;00603-3213-20
  1. ;;9002226.02101,"692,00603-3213-20 ",.02)
  1. ;;00603-3213-20
  1. ;;9002226.02101,"692,00603-3213-21 ",.01)
  1. ;;00603-3213-21
  1. ;;9002226.02101,"692,00603-3213-21 ",.02)
  1. ;;00603-3213-21
  1. ;;9002226.02101,"692,00603-3213-28 ",.01)
  1. ;;00603-3213-28
  1. ;;9002226.02101,"692,00603-3213-28 ",.02)
  1. ;;00603-3213-28
  1. ;;9002226.02101,"692,00603-3214-02 ",.01)
  1. ;;00603-3214-02
  1. ;;9002226.02101,"692,00603-3214-02 ",.02)
  1. ;;00603-3214-02
  1. ;;9002226.02101,"692,00603-3214-16 ",.01)
  1. ;;00603-3214-16
  1. ;;9002226.02101,"692,00603-3214-16 ",.02)
  1. ;;00603-3214-16
  1. ;;9002226.02101,"692,00603-3214-20 ",.01)
  1. ;;00603-3214-20
  1. ;;9002226.02101,"692,00603-3214-20 ",.02)
  1. ;;00603-3214-20
  1. ;;9002226.02101,"692,00603-3214-21 ",.01)
  1. ;;00603-3214-21
  1. ;;9002226.02101,"692,00603-3214-21 ",.02)
  1. ;;00603-3214-21
  1. ;;9002226.02101,"692,00603-3214-22 ",.01)
  1. ;;00603-3214-22
  1. ;;9002226.02101,"692,00603-3214-22 ",.02)
  1. ;;00603-3214-22
  1. ;;9002226.02101,"692,00603-3214-28 ",.01)
  1. ;;00603-3214-28
  1. ;;9002226.02101,"692,00603-3214-28 ",.02)
  1. ;;00603-3214-28
  1. ;;9002226.02101,"692,00603-3214-32 ",.01)
  1. ;;00603-3214-32
  1. ;;9002226.02101,"692,00603-3214-32 ",.02)
  1. ;;00603-3214-32
  1. ;;9002226.02101,"692,00603-3215-02 ",.01)
  1. ;;00603-3215-02
  1. ;;9002226.02101,"692,00603-3215-02 ",.02)
  1. ;;00603-3215-02
  1. ;;9002226.02101,"692,00603-3215-16 ",.01)
  1. ;;00603-3215-16
  1. ;;9002226.02101,"692,00603-3215-16 ",.02)
  1. ;;00603-3215-16
  1. ;;9002226.02101,"692,00603-3215-20 ",.01)
  1. ;;00603-3215-20
  1. ;;9002226.02101,"692,00603-3215-20 ",.02)
  1. ;;00603-3215-20
  1. ;;9002226.02101,"692,00603-3215-21 ",.01)
  1. ;;00603-3215-21
  1. ;;9002226.02101,"692,00603-3215-21 ",.02)
  1. ;;00603-3215-21
  1. ;;9002226.02101,"692,00603-3215-22 ",.01)
  1. ;;00603-3215-22
  1. ;;9002226.02101,"692,00603-3215-22 ",.02)
  1. ;;00603-3215-22
  1. ;;9002226.02101,"692,00603-3215-28 ",.01)
  1. ;;00603-3215-28
  1. ;;9002226.02101,"692,00603-3215-28 ",.02)
  1. ;;00603-3215-28
  1. ;;9002226.02101,"692,00603-3215-32 ",.01)
  1. ;;00603-3215-32
  1. ;;9002226.02101,"692,00603-3215-32 ",.02)
  1. ;;00603-3215-32
  1. ;;9002226.02101,"692,00603-3216-28 ",.01)
  1. ;;00603-3216-28
  1. ;;9002226.02101,"692,00603-3216-28 ",.02)
  1. ;;00603-3216-28
  1. ;;9002226.02101,"692,00603-3217-28 ",.01)
  1. ;;00603-3217-28
  1. ;;9002226.02101,"692,00603-3217-28 ",.02)
  1. ;;00603-3217-28
  1. ;;9002226.02101,"692,00603-3218-28 ",.01)
  1. ;;00603-3218-28
  1. ;;9002226.02101,"692,00603-3218-28 ",.02)
  1. ;;00603-3218-28
  1. ;;9002226.02101,"692,00603-3692-28 ",.01)
  1. ;;00603-3692-28
  1. ;;9002226.02101,"692,00603-3692-28 ",.02)
  1. ;;00603-3692-28
  1. ;;9002226.02101,"692,00615-0435-05 ",.01)
  1. ;;00615-0435-05
  1. ;;9002226.02101,"692,00615-0435-05 ",.02)
  1. ;;00615-0435-05
  1. ;;9002226.02101,"692,00615-0435-10 ",.01)
  1. ;;00615-0435-10
  1. ;;9002226.02101,"692,00615-0435-10 ",.02)
  1. ;;00615-0435-10
  1. ;;9002226.02101,"692,00615-0436-01 ",.01)
  1. ;;00615-0436-01
  1. ;;9002226.02101,"692,00615-0436-01 ",.02)
  1. ;;00615-0436-01
  1. ;;9002226.02101,"692,00615-0436-10 ",.01)
  1. ;;00615-0436-10
  1. ;;9002226.02101,"692,00615-0436-10 ",.02)
  1. ;;00615-0436-10
  1. ;;9002226.02101,"692,00615-0437-01 ",.01)
  1. ;;00615-0437-01
  1. ;;9002226.02101,"692,00615-0437-01 ",.02)
  1. ;;00615-0437-01
  1. ;;9002226.02101,"692,00615-0437-05 ",.01)
  1. ;;00615-0437-05
  1. ;;9002226.02101,"692,00615-0437-05 ",.02)
  1. ;;00615-0437-05
  1. ;;9002226.02101,"692,00615-0437-10 ",.01)
  1. ;;00615-0437-10
  1. ;;9002226.02101,"692,00615-0437-10 ",.02)
  1. ;;00615-0437-10
  1. ;;9002226.02101,"692,00615-0461-47 ",.01)
  1. ;;00615-0461-47
  1. ;;9002226.02101,"692,00615-0461-47 ",.02)
  1. ;;00615-0461-47
  1. ;;9002226.02101,"692,00615-1532-53 ",.01)
  1. ;;00615-1532-53
  1. ;;9002226.02101,"692,00615-1532-53 ",.02)
  1. ;;00615-1532-53
  1. ;;9002226.02101,"692,00615-1532-63 ",.01)
  1. ;;00615-1532-63
  1. ;;9002226.02101,"692,00615-1532-63 ",.02)
  1. ;;00615-1532-63
  1. ;;9002226.02101,"692,00615-1533-01 ",.01)
  1. ;;00615-1533-01
  1. ;;9002226.02101,"692,00615-1533-01 ",.02)
  1. ;;00615-1533-01
  1. ;;9002226.02101,"692,00615-1533-10 ",.01)
  1. ;;00615-1533-10
  1. ;;9002226.02101,"692,00615-1533-10 ",.02)
  1. ;;00615-1533-10
  1. ;;9002226.02101,"692,00615-1533-32 ",.01)
  1. ;;00615-1533-32
  1. ;;9002226.02101,"692,00615-1533-32 ",.02)
  1. ;;00615-1533-32
  1. ;;9002226.02101,"692,00615-1533-53 ",.01)
  1. ;;00615-1533-53
  1. ;;9002226.02101,"692,00615-1533-53 ",.02)
  1. ;;00615-1533-53
  1. ;;9002226.02101,"692,00615-1533-63 ",.01)
  1. ;;00615-1533-63
  1. ;;9002226.02101,"692,00615-1533-63 ",.02)
  1. ;;00615-1533-63
  1. ;;9002226.02101,"692,00677-0457-01 ",.01)
  1. ;;00677-0457-01
  1. ;;9002226.02101,"692,00677-0457-01 ",.02)
  1. ;;00677-0457-01
  1. ;;9002226.02101,"692,00677-0459-01 ",.01)
  1. ;;00677-0459-01
  1. ;;9002226.02101,"692,00677-0459-01 ",.02)
  1. ;;00677-0459-01
  1. ;;9002226.02101,"692,00677-1247-01 ",.01)
  1. ;;00677-1247-01
  1. ;;9002226.02101,"692,00677-1247-01 ",.02)
  1. ;;00677-1247-01
  1. ;;9002226.02101,"692,00677-1247-10 ",.01)
  1. ;;00677-1247-10
  1. ;;9002226.02101,"692,00677-1247-10 ",.02)
  1. ;;00677-1247-10
  1. ;;9002226.02101,"692,00781-2080-01 ",.01)
  1. ;;00781-2080-01
  1. ;;9002226.02101,"692,00781-2080-01 ",.02)
  1. ;;00781-2080-01
  1. ;;9002226.02101,"692,00781-2080-05 ",.01)
  1. ;;00781-2080-05
  1. ;;9002226.02101,"692,00781-2080-05 ",.02)
  1. ;;00781-2080-05
  1. ;;9002226.02101,"692,00781-2080-10 ",.01)
  1. ;;00781-2080-10
  1. ;;9002226.02101,"692,00781-2080-10 ",.02)
  1. ;;00781-2080-10
  1. ;;9002226.02101,"692,00781-2082-05 ",.01)
  1. ;;00781-2082-05
  1. ;;9002226.02101,"692,00781-2082-05 ",.02)
  1. ;;00781-2082-05
  1. ;;9002226.02101,"692,00781-2082-10 ",.01)
  1. ;;00781-2082-10
  1. ;;9002226.02101,"692,00781-2082-10 ",.02)
  1. ;;00781-2082-10
  1. ;;9002226.02101,"692,00781-2084-01 ",.01)
  1. ;;00781-2084-01
  1. ;;9002226.02101,"692,00781-2084-01 ",.02)
  1. ;;00781-2084-01
  1. ;;9002226.02101,"692,00781-2084-05 ",.01)
  1. ;;00781-2084-05
  1. ;;9002226.02101,"692,00781-2084-05 ",.02)
  1. ;;00781-2084-05
  1. ;;9002226.02101,"692,00781-2084-10 ",.01)
  1. ;;00781-2084-10
  1. ;;9002226.02101,"692,00781-2084-10 ",.02)
  1. ;;00781-2084-10
  1. ;;9002226.02101,"692,00904-0090-40 ",.01)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"692,00904-0090-40 ",.02)
  1. ;;00904-0090-40
  1. ;;9002226.02101,"692,00904-0090-60 ",.01)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"692,00904-0090-60 ",.02)
  1. ;;00904-0090-60
  1. ;;9002226.02101,"692,00904-0090-80 ",.01)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"692,00904-0090-80 ",.02)
  1. ;;00904-0090-80
  1. ;;9002226.02101,"692,00904-0091-40 ",.01)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"692,00904-0091-40 ",.02)
  1. ;;00904-0091-40
  1. ;;9002226.02101,"692,00904-0091-60 ",.01)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"692,00904-0091-60 ",.02)
  1. ;;00904-0091-60
  1. ;;9002226.02101,"692,00904-0091-80 ",.01)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"692,00904-0091-80 ",.02)
  1. ;;00904-0091-80
  1. ;;9002226.02101,"692,00904-0092-40 ",.01)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"692,00904-0092-40 ",.02)
  1. ;;00904-0092-40
  1. ;;9002226.02101,"692,00904-0092-60 ",.01)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"692,00904-0092-60 ",.02)
  1. ;;00904-0092-60
  1. ;;9002226.02101,"692,00904-1700-40 ",.01)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"692,00904-1700-40 ",.02)
  1. ;;00904-1700-40
  1. ;;9002226.02101,"692,00904-1700-60 ",.01)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"692,00904-1700-60 ",.02)
  1. ;;00904-1700-60
  1. ;;9002226.02101,"692,00904-1701-40 ",.01)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"692,00904-1701-40 ",.02)
  1. ;;00904-1701-40
  1. ;;9002226.02101,"692,00904-2801-40 ",.01)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"692,00904-2801-40 ",.02)
  1. ;;00904-2801-40
  1. ;;9002226.02101,"692,00904-2801-61 ",.01)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"692,00904-2801-61 ",.02)
  1. ;;00904-2801-61
  1. ;;9002226.02101,"692,00904-5880-61 ",.01)
  1. ;;00904-5880-61
  1. ;;9002226.02101,"692,00904-5880-61 ",.02)
  1. ;;00904-5880-61
  1. ;;9002226.02101,"692,00904-5881-61 ",.01)
  1. ;;00904-5881-61
  1. ;;9002226.02101,"692,00904-5881-61 ",.02)
  1. ;;00904-5881-61
  1. ;;9002226.02101,"692,10544-0309-30 ",.01)
  1. ;;10544-0309-30
  1. ;;9002226.02101,"692,10544-0309-30 ",.02)
  1. ;;10544-0309-30
  1. ;;9002226.02101,"692,12280-0006-00 ",.01)
  1. ;;12280-0006-00
  1. ;;9002226.02101,"692,12280-0006-00 ",.02)
  1. ;;12280-0006-00
  1. ;;9002226.02101,"692,12280-0219-00 ",.01)
  1. ;;12280-0219-00
  1. ;;9002226.02101,"692,12280-0219-00 ",.02)
  1. ;;12280-0219-00
  1. ;;9002226.02101,"692,16590-0069-30 ",.01)
  1. ;;16590-0069-30
  1. ;;9002226.02101,"692,16590-0069-30 ",.02)
  1. ;;16590-0069-30
  1. ;;9002226.02101,"692,16590-0069-60 ",.01)
  1. ;;16590-0069-60
  1. ;;9002226.02101,"692,16590-0069-60 ",.02)
  1. ;;16590-0069-60
  1. ;;9002226.02101,"692,16590-0069-90 ",.01)
  1. ;;16590-0069-90
  1. ;;9002226.02101,"692,16590-0069-90 ",.02)
  1. ;;16590-0069-90
  1. ;;9002226.02101,"692,16590-0070-10 ",.01)
  1. ;;16590-0070-10
  1. ;;9002226.02101,"692,16590-0070-10 ",.02)
  1. ;;16590-0070-10
  1. ;;9002226.02101,"692,16590-0070-20 ",.01)
  1. ;;16590-0070-20
  1. ;;9002226.02101,"692,16590-0070-20 ",.02)
  1. ;;16590-0070-20
  1. ;;9002226.02101,"692,16590-0070-30 ",.01)
  1. ;;16590-0070-30
  1. ;;9002226.02101,"692,16590-0070-30 ",.02)
  1. ;;16590-0070-30
  1. ;;9002226.02101,"692,16590-0070-60 ",.01)
  1. ;;16590-0070-60
  1. ;;9002226.02101,"692,16590-0070-60 ",.02)
  1. ;;16590-0070-60
  1. ;;9002226.02101,"692,16590-0070-71 ",.01)
  1. ;;16590-0070-71
  1. ;;9002226.02101,"692,16590-0070-71 ",.02)
  1. ;;16590-0070-71
  1. ;;9002226.02101,"692,16590-0070-72 ",.01)
  1. ;;16590-0070-72
  1. ;;9002226.02101,"692,16590-0070-72 ",.02)
  1. ;;16590-0070-72
  1. ;;9002226.02101,"692,16590-0070-90 ",.01)
  1. ;;16590-0070-90
  1. ;;9002226.02101,"692,16590-0070-90 ",.02)
  1. ;;16590-0070-90
  1. ;;9002226.02101,"692,16590-0071-30 ",.01)
  1. ;;16590-0071-30
  1. ;;9002226.02101,"692,16590-0071-30 ",.02)
  1. ;;16590-0071-30
  1. ;;9002226.02101,"692,16590-0071-45 ",.01)
  1. ;;16590-0071-45
  1. ;;9002226.02101,"692,16590-0071-45 ",.02)
  1. ;;16590-0071-45
  1. ;;9002226.02101,"692,16590-0071-60 ",.01)
  1. ;;16590-0071-60
  1. ;;9002226.02101,"692,16590-0071-60 ",.02)
  1. ;;16590-0071-60
  1. ;;9002226.02101,"692,16590-0071-90 ",.01)
  1. ;;16590-0071-90
  1. ;;9002226.02101,"692,16590-0071-90 ",.02)
  1. ;;16590-0071-90