28: -- executed. A problem occurs when there is a flexfield of value set type,
29: -- that has a where clause using a block field on the form.
30: ======================================================================= */
31: PROCEDURE validate_flex_batch_header (
32: p_batch_header IN gme_batch_header%ROWTYPE
33: ,x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE
34: ,x_return_status OUT NOCOPY VARCHAR2)
35: IS
36: l_attribute_category VARCHAR2 (240);
29: -- that has a where clause using a block field on the form.
30: ======================================================================= */
31: PROCEDURE validate_flex_batch_header (
32: p_batch_header IN gme_batch_header%ROWTYPE
33: ,x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE
34: ,x_return_status OUT NOCOPY VARCHAR2)
35: IS
36: l_attribute_category VARCHAR2 (240);
37: appl_short_name VARCHAR2 (30) := 'GME';
43: header_fetch_error EXCEPTION;
44: l_field_value VARCHAR2 (240);
45: l_field_name VARCHAR2 (100);
46: n NUMBER := 0;
47: l_batch_header_row gme_batch_header%ROWTYPE;
48: BEGIN
49: /* Set return status to success initially */
50: x_return_status := fnd_api.g_ret_sts_success;
51:
81:
82: RETURN;
83: END IF;
84:
85: IF NOT gme_batch_header_dbl.fetch_row (p_batch_header
86: ,l_batch_header_row) THEN
87: RAISE header_fetch_error;
88: END IF;
89:
5094: --
5095: -- SYNOPSIS:
5096:
5097: create_flex_batch_header (
5098: p_batch_header IN gme_batch_header%ROWTYPE,
5099: x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE
5100: x_return_status OUT NOCOPY VARCHAR2);
5101: -- HISTORY
5102: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
5095: -- SYNOPSIS:
5096:
5097: create_flex_batch_header (
5098: p_batch_header IN gme_batch_header%ROWTYPE,
5099: x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE
5100: x_return_status OUT NOCOPY VARCHAR2);
5101: -- HISTORY
5102: -- K.Swapna 07-MAR-2005 Created --BUG#4050727
5103: --25-MAY-2005 Swapna K Bug#4257930
5105: fnd_flex_descval.validate_desccols with the parameter,values_or_ids as 'D'
5106: and erroring out from the procedure based on global validate flag
5107: ======================================================================= */
5108: PROCEDURE create_flex_batch_header (
5109: p_batch_header IN gme_batch_header%ROWTYPE,
5110: x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE,
5111: x_return_status OUT NOCOPY VARCHAR2
5112: ) IS
5113: appl_short_name VARCHAR2 (30) := 'GME';
5106: and erroring out from the procedure based on global validate flag
5107: ======================================================================= */
5108: PROCEDURE create_flex_batch_header (
5109: p_batch_header IN gme_batch_header%ROWTYPE,
5110: x_batch_header IN OUT NOCOPY gme_batch_header%ROWTYPE,
5111: x_return_status OUT NOCOPY VARCHAR2
5112: ) IS
5113: appl_short_name VARCHAR2 (30) := 'GME';
5114: desc_flex_name VARCHAR2 (30) := 'BATCH_FLEX';