/*********************************************************************
* Copyright (C) 2000 by Progress Software Corporation ("PSC"),       *
* 14 Oak Park, Bedford, MA 01730, and other contributors as listed   *
* below.  All Rights Reserved.                                       *
*                                                                    *
* The Initial Developer of the Original Code is PSC.  The Original   *
* Code is Progress IDE code released to open source December 1, 2000.*
*                                                                    *
* The contents of this file are subject to the Possenet Public       *
* License Version 1.0 (the "License"); you may not use this file     *
* except in compliance with the License.  A copy of the License is   *
* available as of the date of this notice at                         *
* http://www.possenet.org/license.html                               *
*                                                                    *
* Software distributed under the License is distributed on an "AS IS"*
* basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You*
* should refer to the License for the specific language governing    *
* rights and limitations under the License.                          *
*                                                                    *
* Contributors:                                                      *
*                                                                    *
*********************************************************************/

/*----------------------------------------------------------------------------

File: _chkfld.p

Description:

Input Parameters:
   p_u_recid -- Recid id of U record
   p_table  -- The table name. 
   p_field  -- The field name.
   p_options -- Method of validation.  "DB" Check for existence in database 
     (DICTDB will be defined).  "Local" Validate local name. 

Output Parameters:
   p_ok -- indicates that the table was found in the database. 

Author:  Nancy E.Horn 
Created: 2/97
Updated: 2/16/98 adams Modified for Skywalker

Notes:  Database name is not needed since "DICTDB" is defined to be the 
        database.  

---------------------------------------------------------------------------- */
/* Include Definitions */
{ adeuib/sharvars.i }
{ adeuib/uniwidg.i }

DEFINE INPUT  PARAMETER p_u_recid AS RECID     NO-UNDO.
DEFINE INPUT  PARAMETER p_table   AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER p_field   AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER p_options AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER p_OK      AS LOGICAL   NO-UNDO.

/* Include Definitions */
{ workshop/dbname.i &DB = "DICTDB"}

/* ------------------- Internal Procedures -------------------- */

/* ------------------- Main Code Block  -------------------- */

/* Get the _U record */
FIND FIRST _U WHERE RECID(_U) eq p_u_recid NO-ERROR.
IF NOT AVAILABLE(_U) THEN RETURN.

CASE p_options:
  WHEN "DB":U THEN DO:
    FIND FIRST DICTDB._file WHERE DICTDB._file._file-name eq p_table NO-ERROR.
    IF AVAILABLE (_file) THEN DO:
      FIND FIRST DICTDB._field of DICTDB._file WHERE DICTDB._field._field-name eq p_field NO-ERROR.
      IF AVAILABLE(DICTDB._field) THEN DO:
        ASSIGN 
          _U._DBNAME     = get-dbname(DICTDB._file._db-recid) 
          _U._TABLE      = DICTDB._file._file-name 
          _U._NAME       = DICTDB._field._field-name
          _U._DEFINED-BY = "DB":U
          _U._HELP       = DICTDB._field._help.
      
       FIND FIRST _F WHERE RECID(_F) = _U._x-recid NO-ERROR.
       IF AVAILABLE (_F) THEN 
         ASSIGN 
           _F._DATA-TYPE     = CAPS(DICTDB._field._data-type)
           _F._FORMAT        = DICTDB._field._format
           _F._FORMAT-ATTR   = DICTDB._field._format-SA
           _F._FORMAT-SOURCE = "D":U
           _F._INITIAL-DATA  = DICTDB._field._initial.
       ASSIGN p_OK = yes.
      END.
      ELSE
        p_OK = no.
    END.	 
    ELSE p_OK = no.
  END.
  /* For "Tool" (Local) clear out record */     
  WHEN "Tool":U THEN DO:
    ASSIGN _U._DBNAME = ?
      _U._TABLE  = (if p_table ne "" then TRIM(p_table) else ?)
      _U._NAME   =  TRIM(p_field)
      _U._DEFINED-BY = "Tool" 
      _U._HELP       = ?.
     FIND FIRST _F WHERE RECID(_F) = _U._x-recid NO-ERROR.
     IF AVAILABLE (_F) THEN DO:
       IF p_options ne "User":U THEN 
         IF _U._TYPE eq "TOGGLE-BOX" THEN 
           ASSIGN 
             _F._DATA-TYPE    = "LOGICAL":U
             _F._INITIAL-DATA = ?.
         ELSE
           ASSIGN 
             _F._DATA-TYPE = "CHARACTER":U
             _F._FORMAT    = "x(256)".
       ELSE
         ASSIGN 
           _F._DATA-TYPE = ""
           _F._FORMAT    = "".
    
       ASSIGN 
         _F._FORMAT-ATTR   = "" 
         _F._FORMAT-SOURCE = "" 
         _F._INITIAL-DATA  = ""
         p_OK              = yes.
     END.
  END.
  /* For "User" leave what's already there, just update name, defined-by */
  WHEN "User":U THEN
    ASSIGN _U._DBNAME = ?
      _U._TABLE       = (IF p_table ne "" THEN TRIM(p_table) ELSE ?)
      _U._NAME        =  TRIM(p_field)
      _U._DEFINED-BY  = "User":U. 
END CASE.

/* _chkfld.p - end of file */