2209: -- NAME
2210: -- validate_flex_step_resources
2211: --
2212: -- DESCRIPTION
2213: -- This procedure will validate the GME_BATCH_STEP_RESOURCES_FLEX, descriptive flex field
2214: -- for batch step resources using serverside flex field validation package FND_FLEX_DESCVAL.
2215: --
2216: -- SYNOPSIS:
2217:
2238:
2239: --- 16-March-2005 Punit Kumar Convergence changes
2240: ======================================================================= */
2241: PROCEDURE validate_flex_step_resources (
2242: p_step_resources IN gme_batch_step_resources%ROWTYPE
2243: ,x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE
2244: ,x_return_status OUT NOCOPY VARCHAR2)
2245: IS
2246: l_attribute_category VARCHAR2 (240);
2239: --- 16-March-2005 Punit Kumar Convergence changes
2240: ======================================================================= */
2241: PROCEDURE validate_flex_step_resources (
2242: p_step_resources IN gme_batch_step_resources%ROWTYPE
2243: ,x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE
2244: ,x_return_status OUT NOCOPY VARCHAR2)
2245: IS
2246: l_attribute_category VARCHAR2 (240);
2247: appl_short_name VARCHAR2 (30) := 'GME';
2244: ,x_return_status OUT NOCOPY VARCHAR2)
2245: IS
2246: l_attribute_category VARCHAR2 (240);
2247: appl_short_name VARCHAR2 (30) := 'GME';
2248: desc_flex_name VARCHAR2 (30) := 'GME_BATCH_STEP_RESOURCES_FLEX';
2249: values_or_ids VARCHAR2 (10) := 'I';
2250: validation_date DATE := SYSDATE;
2251: error_msg VARCHAR2 (5000);
2252: validation_error EXCEPTION;
2253: step_fetch_error EXCEPTION;
2254: l_field_value VARCHAR2 (240);
2255: l_field_name VARCHAR2 (100);
2256: n NUMBER := 0;
2257: l_step_resource_row gme_batch_step_resources%ROWTYPE;
2258: --3556979
2259: l_exists NUMBER;
2260: l_dummy BOOLEAN;
2261:
2261:
2262: CURSOR cur_record_exists (v_rec_id NUMBER)
2263: IS
2264: SELECT 1
2265: FROM gme_batch_step_resources
2266: WHERE batchstep_resource_id = v_rec_id;
2267: BEGIN
2268: /* Set return status to success initially */
2269: x_return_status := fnd_api.g_ret_sts_success;
2298: IF cur_record_exists%NOTFOUND THEN
2299: l_step_resource_row := p_step_resources;
2300: ELSE
2301: l_dummy :=
2302: gme_batch_step_resources_dbl.fetch_row (p_step_resources
2303: ,l_step_resource_row);
2304: END IF;
2305:
2306: CLOSE cur_record_exists;
2978: step_fetch_error EXCEPTION;
2979: l_field_value VARCHAR2 (240);
2980: l_field_name VARCHAR2 (100);
2981: n NUMBER := 0;
2982: l_step_resource_row gme_batch_step_resources%ROWTYPE;
2983: --3556979
2984: l_exists NUMBER;
2985: l_dummy BOOLEAN;
2986: /*start, Punit Kumar*/
5935: -- This procedure will assign the default values of the segments into the columns.
5936: -- SYNOPSIS:
5937:
5938: create_flex_step_resources (
5939: p_step_resources IN gme_batch_step_resources%ROWTYPE,
5940: x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE,
5941: x_return_status OUT NOCOPY VARCHAR2);
5942: -- HISTORY
5943: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
5936: -- SYNOPSIS:
5937:
5938: create_flex_step_resources (
5939: p_step_resources IN gme_batch_step_resources%ROWTYPE,
5940: x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE,
5941: x_return_status OUT NOCOPY VARCHAR2);
5942: -- HISTORY
5943: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
5944: --K Swapna Bug#4257930 25-MAY-2005
5946: fnd_flex_descval.validate_desccols with the parameter,values_or_ids as 'D'
5947: and erroring out from the procedure based on global validate flag
5948: ======================================================================= */
5949: PROCEDURE create_flex_step_resources (
5950: p_step_resources IN gme_batch_step_resources%ROWTYPE,
5951: x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE,
5952: x_return_status OUT NOCOPY VARCHAR2
5953: ) IS
5954: appl_short_name VARCHAR2 (30) := 'GME';
5947: and erroring out from the procedure based on global validate flag
5948: ======================================================================= */
5949: PROCEDURE create_flex_step_resources (
5950: p_step_resources IN gme_batch_step_resources%ROWTYPE,
5951: x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE,
5952: x_return_status OUT NOCOPY VARCHAR2
5953: ) IS
5954: appl_short_name VARCHAR2 (30) := 'GME';
5955: desc_flex_name VARCHAR2 (30) := 'GME_BATCH_STEP_RESOURCES_FLEX';
5951: x_step_resources IN OUT NOCOPY gme_batch_step_resources%ROWTYPE,
5952: x_return_status OUT NOCOPY VARCHAR2
5953: ) IS
5954: appl_short_name VARCHAR2 (30) := 'GME';
5955: desc_flex_name VARCHAR2 (30) := 'GME_BATCH_STEP_RESOURCES_FLEX';
5956: values_or_ids VARCHAR2 (10) := 'D';
5957: validation_date DATE := SYSDATE;
5958: error_msg VARCHAR2 (5000);
5959: n NUMBER := 0;