/*
** Built-in: CLEAR_BLOCK
** Example: Clears the current block without validation, and
** deposits the primary key value which the user
** has typed into a global variable which a
** Pre-Query trigger will use to include it as a
** query criterion.
** Trigger: When-New-Item-Instance
*/

BEGIN
   IF :Emp.Empno IS NOT NULL THEN
      :Global.Employee_Id := :Emp.Empno;
      Clear_Block (No_Validate);
   END IF;
END;

/*
** Trigger: Pre-Query
*/

BEGIN
   Default_Value (NULL, 'Global.Employee_Id');

   IF :Global.Employee_Id IS NOT NULL THEN
      :Emp.Empno := :Global.Employee_Id;
   END IF;
END;

-- Example 1
/*
** Built-in: COPY
** Example: Force a wildcard search on the EmpNo item during
** query.
** Trigger: Pre-Query
*/

DECLARE
   cur_val   VARCHAR2 (40);
BEGIN
/*
** Get the value of EMP.EMPNO as a string
*/
   cur_val := Name_In ('Emp.Empno');
/*** Add a percent to the end of the string.
*/
   cur_val := cur_val || '%';
/*
** Copy the new value back into the item so Form Builder
** will use it as a query criterion.
*/
   Copy (cur_val, 'Emp.Empno');
END;

-- Example 2
/*
** Built-in: COPY
** Example: Set the value of a global variable whose name is
** dynamically constructed.
*/

DECLARE
   global_var_name   VARCHAR2 (80);
BEGIN
   IF :Selection.Choice = 5 THEN
      global_var_name := 'Storage_1';
   ELSE
      global_var_name := 'Storage_2';
   END IF;

/*
** Use the name in the 'global_var_name' variable as the
** name of the global variable in which to copy the
** current 'Yes' value.
*/
   COPY ('Yes', 'GLOBAL.' || global_var_name);
END;

ERASE('global.var');