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

BGP0ZD40.m

Go to the documentation of this file.
  1. BGP0ZD40 ;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,"976,65162-0570-10 ",.02)
  1. ;;65162-0570-10
  1. ;;9002226.02101,"976,65162-0570-50 ",.01)
  1. ;;65162-0570-50
  1. ;;9002226.02101,"976,65162-0570-50 ",.02)
  1. ;;65162-0570-50
  1. ;;9002226.02101,"976,65169-0076-50 ",.01)
  1. ;;65169-0076-50
  1. ;;9002226.02101,"976,65169-0076-50 ",.02)
  1. ;;65169-0076-50
  1. ;;9002226.02101,"976,65284-0312-60 ",.01)
  1. ;;65284-0312-60
  1. ;;9002226.02101,"976,65284-0312-60 ",.02)
  1. ;;65284-0312-60
  1. ;;9002226.02101,"976,65557-0400-05 ",.01)
  1. ;;65557-0400-05
  1. ;;9002226.02101,"976,65557-0400-05 ",.02)
  1. ;;65557-0400-05
  1. ;;9002226.02101,"976,65557-0401-05 ",.01)
  1. ;;65557-0401-05
  1. ;;9002226.02101,"976,65557-0401-05 ",.02)
  1. ;;65557-0401-05
  1. ;;9002226.02101,"976,65557-0402-05 ",.01)
  1. ;;65557-0402-05
  1. ;;9002226.02101,"976,65557-0402-05 ",.02)
  1. ;;65557-0402-05
  1. ;;9002226.02101,"976,66105-0105-10 ",.01)
  1. ;;66105-0105-10
  1. ;;9002226.02101,"976,66105-0105-10 ",.02)
  1. ;;66105-0105-10
  1. ;;9002226.02101,"976,66105-0106-10 ",.01)
  1. ;;66105-0106-10
  1. ;;9002226.02101,"976,66105-0106-10 ",.02)
  1. ;;66105-0106-10
  1. ;;9002226.02101,"976,66105-0131-06 ",.01)
  1. ;;66105-0131-06
  1. ;;9002226.02101,"976,66105-0131-06 ",.02)
  1. ;;66105-0131-06
  1. ;;9002226.02101,"976,66105-0136-10 ",.01)
  1. ;;66105-0136-10
  1. ;;9002226.02101,"976,66105-0136-10 ",.02)
  1. ;;66105-0136-10
  1. ;;9002226.02101,"976,66105-0143-10 ",.01)
  1. ;;66105-0143-10
  1. ;;9002226.02101,"976,66105-0143-10 ",.02)
  1. ;;66105-0143-10
  1. ;;9002226.02101,"976,66257-0116-15 ",.01)
  1. ;;66257-0116-15
  1. ;;9002226.02101,"976,66257-0116-15 ",.02)
  1. ;;66257-0116-15
  1. ;;9002226.02101,"976,66257-0116-20 ",.01)
  1. ;;66257-0116-20
  1. ;;9002226.02101,"976,66257-0116-20 ",.02)
  1. ;;66257-0116-20
  1. ;;9002226.02101,"976,66257-0116-30 ",.01)
  1. ;;66257-0116-30
  1. ;;9002226.02101,"976,66257-0116-30 ",.02)
  1. ;;66257-0116-30
  1. ;;9002226.02101,"976,66257-0116-40 ",.01)
  1. ;;66257-0116-40
  1. ;;9002226.02101,"976,66257-0116-40 ",.02)
  1. ;;66257-0116-40
  1. ;;9002226.02101,"976,66257-0116-60 ",.01)
  1. ;;66257-0116-60
  1. ;;9002226.02101,"976,66257-0116-60 ",.02)
  1. ;;66257-0116-60
  1. ;;9002226.02101,"976,66257-0116-90 ",.01)
  1. ;;66257-0116-90
  1. ;;9002226.02101,"976,66257-0116-90 ",.02)
  1. ;;66257-0116-90
  1. ;;9002226.02101,"976,66257-0117-15 ",.01)
  1. ;;66257-0117-15
  1. ;;9002226.02101,"976,66257-0117-15 ",.02)
  1. ;;66257-0117-15
  1. ;;9002226.02101,"976,66257-0117-20 ",.01)
  1. ;;66257-0117-20
  1. ;;9002226.02101,"976,66257-0117-20 ",.02)
  1. ;;66257-0117-20
  1. ;;9002226.02101,"976,66257-0117-30 ",.01)
  1. ;;66257-0117-30
  1. ;;9002226.02101,"976,66257-0117-30 ",.02)
  1. ;;66257-0117-30
  1. ;;9002226.02101,"976,66257-0117-40 ",.01)
  1. ;;66257-0117-40
  1. ;;9002226.02101,"976,66257-0117-40 ",.02)
  1. ;;66257-0117-40
  1. ;;9002226.02101,"976,66257-0117-60 ",.01)
  1. ;;66257-0117-60
  1. ;;9002226.02101,"976,66257-0117-60 ",.02)
  1. ;;66257-0117-60
  1. ;;9002226.02101,"976,66257-0117-90 ",.01)
  1. ;;66257-0117-90
  1. ;;9002226.02101,"976,66257-0117-90 ",.02)
  1. ;;66257-0117-90
  1. ;;9002226.02101,"976,66257-0118-15 ",.01)
  1. ;;66257-0118-15
  1. ;;9002226.02101,"976,66257-0118-15 ",.02)
  1. ;;66257-0118-15
  1. ;;9002226.02101,"976,66257-0118-20 ",.01)
  1. ;;66257-0118-20
  1. ;;9002226.02101,"976,66257-0118-20 ",.02)
  1. ;;66257-0118-20
  1. ;;9002226.02101,"976,66257-0118-21 ",.01)
  1. ;;66257-0118-21
  1. ;;9002226.02101,"976,66257-0118-21 ",.02)
  1. ;;66257-0118-21
  1. ;;9002226.02101,"976,66257-0118-30 ",.01)
  1. ;;66257-0118-30
  1. ;;9002226.02101,"976,66257-0118-30 ",.02)
  1. ;;66257-0118-30
  1. ;;9002226.02101,"976,66257-0118-40 ",.01)
  1. ;;66257-0118-40
  1. ;;9002226.02101,"976,66257-0118-40 ",.02)
  1. ;;66257-0118-40
  1. ;;9002226.02101,"976,66257-0118-60 ",.01)
  1. ;;66257-0118-60
  1. ;;9002226.02101,"976,66257-0118-60 ",.02)
  1. ;;66257-0118-60
  1. ;;9002226.02101,"976,66257-0118-90 ",.01)
  1. ;;66257-0118-90
  1. ;;9002226.02101,"976,66257-0118-90 ",.02)
  1. ;;66257-0118-90
  1. ;;9002226.02101,"976,66257-0963-00 ",.01)
  1. ;;66257-0963-00
  1. ;;9002226.02101,"976,66257-0963-00 ",.02)
  1. ;;66257-0963-00
  1. ;;9002226.02101,"976,66257-0964-00 ",.01)
  1. ;;66257-0964-00
  1. ;;9002226.02101,"976,66257-0964-00 ",.02)
  1. ;;66257-0964-00
  1. ;;9002226.02101,"976,66267-0046-14 ",.01)
  1. ;;66267-0046-14
  1. ;;9002226.02101,"976,66267-0046-14 ",.02)
  1. ;;66267-0046-14
  1. ;;9002226.02101,"976,66267-0046-20 ",.01)
  1. ;;66267-0046-20
  1. ;;9002226.02101,"976,66267-0046-20 ",.02)
  1. ;;66267-0046-20
  1. ;;9002226.02101,"976,66267-0046-30 ",.01)
  1. ;;66267-0046-30
  1. ;;9002226.02101,"976,66267-0046-30 ",.02)
  1. ;;66267-0046-30
  1. ;;9002226.02101,"976,66267-0048-07 ",.01)
  1. ;;66267-0048-07
  1. ;;9002226.02101,"976,66267-0048-07 ",.02)
  1. ;;66267-0048-07
  1. ;;9002226.02101,"976,66267-0048-10 ",.01)
  1. ;;66267-0048-10
  1. ;;9002226.02101,"976,66267-0048-10 ",.02)
  1. ;;66267-0048-10
  1. ;;9002226.02101,"976,66267-0048-15 ",.01)
  1. ;;66267-0048-15
  1. ;;9002226.02101,"976,66267-0048-15 ",.02)
  1. ;;66267-0048-15
  1. ;;9002226.02101,"976,66267-0048-20 ",.01)
  1. ;;66267-0048-20
  1. ;;9002226.02101,"976,66267-0048-20 ",.02)
  1. ;;66267-0048-20
  1. ;;9002226.02101,"976,66267-0048-30 ",.01)
  1. ;;66267-0048-30
  1. ;;9002226.02101,"976,66267-0048-30 ",.02)
  1. ;;66267-0048-30
  1. ;;9002226.02101,"976,66267-0065-14 ",.01)
  1. ;;66267-0065-14
  1. ;;9002226.02101,"976,66267-0065-14 ",.02)
  1. ;;66267-0065-14
  1. ;;9002226.02101,"976,66267-0065-30 ",.01)
  1. ;;66267-0065-30
  1. ;;9002226.02101,"976,66267-0065-30 ",.02)
  1. ;;66267-0065-30
  1. ;;9002226.02101,"976,66267-0065-60 ",.01)
  1. ;;66267-0065-60
  1. ;;9002226.02101,"976,66267-0065-60 ",.02)
  1. ;;66267-0065-60
  1. ;;9002226.02101,"976,66267-0071-20 ",.01)
  1. ;;66267-0071-20
  1. ;;9002226.02101,"976,66267-0071-20 ",.02)
  1. ;;66267-0071-20
  1. ;;9002226.02101,"976,66267-0071-60 ",.01)
  1. ;;66267-0071-60
  1. ;;9002226.02101,"976,66267-0071-60 ",.02)
  1. ;;66267-0071-60
  1. ;;9002226.02101,"976,66267-0095-28 ",.01)
  1. ;;66267-0095-28
  1. ;;9002226.02101,"976,66267-0095-28 ",.02)
  1. ;;66267-0095-28
  1. ;;9002226.02101,"976,66267-0095-30 ",.01)
  1. ;;66267-0095-30
  1. ;;9002226.02101,"976,66267-0095-30 ",.02)
  1. ;;66267-0095-30
  1. ;;9002226.02101,"976,66267-0095-40 ",.01)
  1. ;;66267-0095-40
  1. ;;9002226.02101,"976,66267-0095-40 ",.02)
  1. ;;66267-0095-40
  1. ;;9002226.02101,"976,66267-0095-60 ",.01)
  1. ;;66267-0095-60
  1. ;;9002226.02101,"976,66267-0095-60 ",.02)
  1. ;;66267-0095-60
  1. ;;9002226.02101,"976,66267-0119-30 ",.01)
  1. ;;66267-0119-30
  1. ;;9002226.02101,"976,66267-0119-30 ",.02)
  1. ;;66267-0119-30
  1. ;;9002226.02101,"976,66267-0120-20 ",.01)
  1. ;;66267-0120-20
  1. ;;9002226.02101,"976,66267-0120-20 ",.02)
  1. ;;66267-0120-20
  1. ;;9002226.02101,"976,66267-0120-30 ",.01)
  1. ;;66267-0120-30
  1. ;;9002226.02101,"976,66267-0120-30 ",.02)
  1. ;;66267-0120-30
  1. ;;9002226.02101,"976,66267-0121-14 ",.01)
  1. ;;66267-0121-14
  1. ;;9002226.02101,"976,66267-0121-14 ",.02)
  1. ;;66267-0121-14
  1. ;;9002226.02101,"976,66267-0121-15 ",.01)
  1. ;;66267-0121-15
  1. ;;9002226.02101,"976,66267-0121-15 ",.02)
  1. ;;66267-0121-15
  1. ;;9002226.02101,"976,66267-0121-20 ",.01)
  1. ;;66267-0121-20
  1. ;;9002226.02101,"976,66267-0121-20 ",.02)
  1. ;;66267-0121-20
  1. ;;9002226.02101,"976,66267-0125-21 ",.01)
  1. ;;66267-0125-21
  1. ;;9002226.02101,"976,66267-0125-21 ",.02)
  1. ;;66267-0125-21
  1. ;;9002226.02101,"976,66267-0126-21 ",.01)
  1. ;;66267-0126-21
  1. ;;9002226.02101,"976,66267-0126-21 ",.02)
  1. ;;66267-0126-21
  1. ;;9002226.02101,"976,66267-0151-20 ",.01)
  1. ;;66267-0151-20
  1. ;;9002226.02101,"976,66267-0151-20 ",.02)
  1. ;;66267-0151-20
  1. ;;9002226.02101,"976,66267-0151-30 ",.01)
  1. ;;66267-0151-30
  1. ;;9002226.02101,"976,66267-0151-30 ",.02)
  1. ;;66267-0151-30
  1. ;;9002226.02101,"976,66267-0151-40 ",.01)
  1. ;;66267-0151-40
  1. ;;9002226.02101,"976,66267-0151-40 ",.02)
  1. ;;66267-0151-40
  1. ;;9002226.02101,"976,66267-0151-60 ",.01)
  1. ;;66267-0151-60
  1. ;;9002226.02101,"976,66267-0151-60 ",.02)
  1. ;;66267-0151-60
  1. ;;9002226.02101,"976,66267-0152-20 ",.01)
  1. ;;66267-0152-20
  1. ;;9002226.02101,"976,66267-0152-20 ",.02)
  1. ;;66267-0152-20
  1. ;;9002226.02101,"976,66267-0152-30 ",.01)
  1. ;;66267-0152-30
  1. ;;9002226.02101,"976,66267-0152-30 ",.02)
  1. ;;66267-0152-30
  1. ;;9002226.02101,"976,66267-0152-40 ",.01)
  1. ;;66267-0152-40
  1. ;;9002226.02101,"976,66267-0152-40 ",.02)
  1. ;;66267-0152-40
  1. ;;9002226.02101,"976,66267-0152-60 ",.01)
  1. ;;66267-0152-60
  1. ;;9002226.02101,"976,66267-0152-60 ",.02)
  1. ;;66267-0152-60
  1. ;;9002226.02101,"976,66267-0152-90 ",.01)
  1. ;;66267-0152-90
  1. ;;9002226.02101,"976,66267-0152-90 ",.02)
  1. ;;66267-0152-90
  1. ;;9002226.02101,"976,66267-0153-10 ",.01)
  1. ;;66267-0153-10
  1. ;;9002226.02101,"976,66267-0153-10 ",.02)
  1. ;;66267-0153-10
  1. ;;9002226.02101,"976,66267-0153-14 ",.01)
  1. ;;66267-0153-14
  1. ;;9002226.02101,"976,66267-0153-14 ",.02)
  1. ;;66267-0153-14
  1. ;;9002226.02101,"976,66267-0153-15 ",.01)
  1. ;;66267-0153-15
  1. ;;9002226.02101,"976,66267-0153-15 ",.02)
  1. ;;66267-0153-15
  1. ;;9002226.02101,"976,66267-0153-20 ",.01)
  1. ;;66267-0153-20
  1. ;;9002226.02101,"976,66267-0153-20 ",.02)
  1. ;;66267-0153-20
  1. ;;9002226.02101,"976,66267-0153-30 ",.01)
  1. ;;66267-0153-30
  1. ;;9002226.02101,"976,66267-0153-30 ",.02)
  1. ;;66267-0153-30
  1. ;;9002226.02101,"976,66267-0153-40 ",.01)
  1. ;;66267-0153-40
  1. ;;9002226.02101,"976,66267-0153-40 ",.02)
  1. ;;66267-0153-40
  1. ;;9002226.02101,"976,66267-0153-42 ",.01)
  1. ;;66267-0153-42
  1. ;;9002226.02101,"976,66267-0153-42 ",.02)
  1. ;;66267-0153-42
  1. ;;9002226.02101,"976,66267-0153-60 ",.01)
  1. ;;66267-0153-60
  1. ;;9002226.02101,"976,66267-0153-60 ",.02)
  1. ;;66267-0153-60
  1. ;;9002226.02101,"976,66267-0153-90 ",.01)
  1. ;;66267-0153-90
  1. ;;9002226.02101,"976,66267-0153-90 ",.02)
  1. ;;66267-0153-90
  1. ;;9002226.02101,"976,66267-0154-14 ",.01)
  1. ;;66267-0154-14
  1. ;;9002226.02101,"976,66267-0154-14 ",.02)
  1. ;;66267-0154-14
  1. ;;9002226.02101,"976,66267-0154-20 ",.01)
  1. ;;66267-0154-20
  1. ;;9002226.02101,"976,66267-0154-20 ",.02)
  1. ;;66267-0154-20
  1. ;;9002226.02101,"976,66267-0154-30 ",.01)
  1. ;;66267-0154-30
  1. ;;9002226.02101,"976,66267-0154-30 ",.02)
  1. ;;66267-0154-30
  1. ;;9002226.02101,"976,66267-0154-60 ",.01)
  1. ;;66267-0154-60
  1. ;;9002226.02101,"976,66267-0154-60 ",.02)
  1. ;;66267-0154-60
  1. ;;9002226.02101,"976,66267-0168-10 ",.01)
  1. ;;66267-0168-10
  1. ;;9002226.02101,"976,66267-0168-10 ",.02)
  1. ;;66267-0168-10
  1. ;;9002226.02101,"976,66267-0168-14 ",.01)
  1. ;;66267-0168-14
  1. ;;9002226.02101,"976,66267-0168-14 ",.02)
  1. ;;66267-0168-14
  1. ;;9002226.02101,"976,66267-0168-20 ",.01)
  1. ;;66267-0168-20
  1. ;;9002226.02101,"976,66267-0168-20 ",.02)
  1. ;;66267-0168-20
  1. ;;9002226.02101,"976,66267-0168-30 ",.01)
  1. ;;66267-0168-30
  1. ;;9002226.02101,"976,66267-0168-30 ",.02)
  1. ;;66267-0168-30
  1. ;;9002226.02101,"976,66267-0168-60 ",.01)
  1. ;;66267-0168-60
  1. ;;9002226.02101,"976,66267-0168-60 ",.02)
  1. ;;66267-0168-60
  1. ;;9002226.02101,"976,66267-0168-90 ",.01)
  1. ;;66267-0168-90
  1. ;;9002226.02101,"976,66267-0168-90 ",.02)
  1. ;;66267-0168-90
  1. ;;9002226.02101,"976,66267-0189-14 ",.01)
  1. ;;66267-0189-14
  1. ;;9002226.02101,"976,66267-0189-14 ",.02)
  1. ;;66267-0189-14
  1. ;;9002226.02101,"976,66267-0189-20 ",.01)
  1. ;;66267-0189-20
  1. ;;9002226.02101,"976,66267-0189-20 ",.02)
  1. ;;66267-0189-20
  1. ;;9002226.02101,"976,66267-0189-28 ",.01)
  1. ;;66267-0189-28
  1. ;;9002226.02101,"976,66267-0189-28 ",.02)
  1. ;;66267-0189-28
  1. ;;9002226.02101,"976,66267-0190-30 ",.01)
  1. ;;66267-0190-30
  1. ;;9002226.02101,"976,66267-0190-30 ",.02)
  1. ;;66267-0190-30
  1. ;;9002226.02101,"976,66267-0197-15 ",.01)
  1. ;;66267-0197-15
  1. ;;9002226.02101,"976,66267-0197-15 ",.02)
  1. ;;66267-0197-15
  1. ;;9002226.02101,"976,66267-0197-20 ",.01)
  1. ;;66267-0197-20
  1. ;;9002226.02101,"976,66267-0197-20 ",.02)
  1. ;;66267-0197-20
  1. ;;9002226.02101,"976,66267-0197-30 ",.01)
  1. ;;66267-0197-30
  1. ;;9002226.02101,"976,66267-0197-30 ",.02)
  1. ;;66267-0197-30
  1. ;;9002226.02101,"976,66267-0197-40 ",.01)
  1. ;;66267-0197-40
  1. ;;9002226.02101,"976,66267-0197-40 ",.02)
  1. ;;66267-0197-40
  1. ;;9002226.02101,"976,66267-0204-08 ",.01)
  1. ;;66267-0204-08
  1. ;;9002226.02101,"976,66267-0204-08 ",.02)
  1. ;;66267-0204-08
  1. ;;9002226.02101,"976,66267-0204-21 ",.01)
  1. ;;66267-0204-21
  1. ;;9002226.02101,"976,66267-0204-21 ",.02)
  1. ;;66267-0204-21
  1. ;;9002226.02101,"976,66267-0264-20 ",.01)
  1. ;;66267-0264-20
  1. ;;9002226.02101,"976,66267-0264-20 ",.02)
  1. ;;66267-0264-20
  1. ;;9002226.02101,"976,66267-0358-30 ",.01)
  1. ;;66267-0358-30
  1. ;;9002226.02101,"976,66267-0358-30 ",.02)
  1. ;;66267-0358-30
  1. ;;9002226.02101,"976,66267-0358-60 ",.01)
  1. ;;66267-0358-60
  1. ;;9002226.02101,"976,66267-0358-60 ",.02)
  1. ;;66267-0358-60
  1. ;;9002226.02101,"976,66267-0358-90 ",.01)
  1. ;;66267-0358-90
  1. ;;9002226.02101,"976,66267-0358-90 ",.02)
  1. ;;66267-0358-90
  1. ;;9002226.02101,"976,66267-0407-14 ",.01)
  1. ;;66267-0407-14
  1. ;;9002226.02101,"976,66267-0407-14 ",.02)
  1. ;;66267-0407-14
  1. ;;9002226.02101,"976,66267-0407-20 ",.01)
  1. ;;66267-0407-20
  1. ;;9002226.02101,"976,66267-0407-20 ",.02)
  1. ;;66267-0407-20
  1. ;;9002226.02101,"976,66267-0407-30 ",.01)
  1. ;;66267-0407-30
  1. ;;9002226.02101,"976,66267-0407-30 ",.02)
  1. ;;66267-0407-30
  1. ;;9002226.02101,"976,66267-0407-60 ",.01)
  1. ;;66267-0407-60
  1. ;;9002226.02101,"976,66267-0407-60 ",.02)
  1. ;;66267-0407-60
  1. ;;9002226.02101,"976,66267-0418-20 ",.01)
  1. ;;66267-0418-20
  1. ;;9002226.02101,"976,66267-0418-20 ",.02)
  1. ;;66267-0418-20
  1. ;;9002226.02101,"976,66267-0482-20 ",.01)
  1. ;;66267-0482-20
  1. ;;9002226.02101,"976,66267-0482-20 ",.02)
  1. ;;66267-0482-20
  1. ;;9002226.02101,"976,66267-0482-30 ",.01)
  1. ;;66267-0482-30
  1. ;;9002226.02101,"976,66267-0482-30 ",.02)
  1. ;;66267-0482-30
  1. ;;9002226.02101,"976,66267-0482-40 ",.01)
  1. ;;66267-0482-40
  1. ;;9002226.02101,"976,66267-0482-40 ",.02)
  1. ;;66267-0482-40
  1. ;;9002226.02101,"976,66267-0486-30 ",.01)
  1. ;;66267-0486-30
  1. ;;9002226.02101,"976,66267-0486-30 ",.02)
  1. ;;66267-0486-30
  1. ;;9002226.02101,"976,66267-0520-30 ",.01)
  1. ;;66267-0520-30
  1. ;;9002226.02101,"976,66267-0520-30 ",.02)
  1. ;;66267-0520-30
  1. ;;9002226.02101,"976,66267-0529-20 ",.01)
  1. ;;66267-0529-20
  1. ;;9002226.02101,"976,66267-0529-20 ",.02)
  1. ;;66267-0529-20
  1. ;;9002226.02101,"976,66267-0529-30 ",.01)
  1. ;;66267-0529-30