4363: -- This is a follow up fix to bug 3649415.
4364: -- Only flex field data will be overwritten in x_material_detail parameter.
4365: ======================================================================= */
4366: PROCEDURE validate_flex_process_param (
4367: p_process_param_rec IN gme_process_parameters%ROWTYPE
4368: ,p_validate_flexfields IN VARCHAR2
4369: ,x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE
4370: ,x_return_status OUT NOCOPY VARCHAR2)
4371: IS
4365: ======================================================================= */
4366: PROCEDURE validate_flex_process_param (
4367: p_process_param_rec IN gme_process_parameters%ROWTYPE
4368: ,p_validate_flexfields IN VARCHAR2
4369: ,x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE
4370: ,x_return_status OUT NOCOPY VARCHAR2)
4371: IS
4372: l_attribute_category VARCHAR2 (240);
4373: appl_short_name VARCHAR2 (30) := 'GME';
4380: process_param_fetch_error EXCEPTION;
4381: l_field_value VARCHAR2 (240);
4382: l_field_name VARCHAR2 (100);
4383: n NUMBER := 0;
4384: l_process_param_rec gme_process_parameters%ROWTYPE;
4385: l_exists NUMBER;
4386: l_dummy BOOLEAN;
4387:
4388: CURSOR cur_record_exists (v_rec_id NUMBER)
4387:
4388: CURSOR cur_record_exists (v_rec_id NUMBER)
4389: IS
4390: SELECT 1
4391: FROM gme_process_parameters
4392: WHERE process_param_id = v_rec_id;
4393: BEGIN
4394: /* Set return status to success initially */
4395: x_return_status := fnd_api.g_ret_sts_success;
4424: IF cur_record_exists%NOTFOUND THEN
4425: l_process_param_rec := p_process_param_rec;
4426: ELSE
4427: l_dummy :=
4428: gme_process_parameters_dbl.fetch_row (p_process_param_rec
4429: ,l_process_param_rec);
4430: END IF;
4431:
4432: CLOSE cur_record_exists;
6199: -- DESCRIPTION
6200: -- This procedure will assign the default values of the segments into the columns.
6201: -- SYNOPSIS:
6202: create_flex_process_param (
6203: p_process_param_rec IN gme_process_parameters%ROWTYPE,
6204: x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6205: x_return_status OUT NOCOPY VARCHAR2
6206: -- HISTORY
6207: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
6200: -- This procedure will assign the default values of the segments into the columns.
6201: -- SYNOPSIS:
6202: create_flex_process_param (
6203: p_process_param_rec IN gme_process_parameters%ROWTYPE,
6204: x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6205: x_return_status OUT NOCOPY VARCHAR2
6206: -- HISTORY
6207: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
6208: -- K Swapna Bug#4257930 25-MAY-2005
6210: fnd_flex_descval.validate_desccols with the parameter,values_or_ids as 'D'
6211: and erroring out from the procedure based on profile, GME:Validate Flex on sertver.
6212: ======================================================================= */
6213: PROCEDURE create_flex_process_param (
6214: p_process_param_rec IN gme_process_parameters%ROWTYPE,
6215: x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6216: x_return_status OUT NOCOPY VARCHAR2
6217: ) IS
6218: appl_short_name VARCHAR2 (30) := 'GME';
6211: and erroring out from the procedure based on profile, GME:Validate Flex on sertver.
6212: ======================================================================= */
6213: PROCEDURE create_flex_process_param (
6214: p_process_param_rec IN gme_process_parameters%ROWTYPE,
6215: x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6216: x_return_status OUT NOCOPY VARCHAR2
6217: ) IS
6218: appl_short_name VARCHAR2 (30) := 'GME';
6219: desc_flex_name VARCHAR2 (30) := 'GME_BATCH_PROC_PARAM_FLEX';
6463: * into the columns.
6464: * SYNOPSIS:
6465: * create_flex_material_details (
6466: * p_process_param_rec IN
6467: * gme_process_parameters%ROWTYPE,
6468: * x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6469: * x_return_status OUT NOCOPY VARCHAR2);
6470: * HISTORY
6471: * K.Swapna 07-MAR-2005 Created --BUG#4050727
6464: * SYNOPSIS:
6465: * create_flex_material_details (
6466: * p_process_param_rec IN
6467: * gme_process_parameters%ROWTYPE,
6468: * x_process_param_rec IN OUT NOCOPY gme_process_parameters%ROWTYPE,
6469: * x_return_status OUT NOCOPY VARCHAR2);
6470: * HISTORY
6471: * K.Swapna 07-MAR-2005 Created --BUG#4050727
6472: * K Swapna 25-MAY-2005 Bug#4257930