[Home] [Help]
1: PACKAGE BODY fnd_flex_server AS
2: /* $Header: AFFFSSVB.pls 120.13.12010000.3 2008/10/10 18:35:41 hgeorgi ship $ */
3:
4: --------
5: -- PRIVATE TYPES
6: --
7:
8: TYPE ValattRqst IS RECORD
9: (nrqstd NUMBER,
10: fq_names FND_FLEX_SERVER1.QualNameArray,
11: sq_names FND_FLEX_SERVER1.QualNameArray);
12:
13: TYPE DerivedRqst IS RECORD
14: (nrqstd NUMBER,
7:
8: TYPE ValattRqst IS RECORD
9: (nrqstd NUMBER,
10: fq_names FND_FLEX_SERVER1.QualNameArray,
11: sq_names FND_FLEX_SERVER1.QualNameArray);
12:
13: TYPE DerivedRqst IS RECORD
14: (nrqstd NUMBER,
15: sq_names FND_FLEX_SERVER1.QualNameArray);
11: sq_names FND_FLEX_SERVER1.QualNameArray);
12:
13: TYPE DerivedRqst IS RECORD
14: (nrqstd NUMBER,
15: sq_names FND_FLEX_SERVER1.QualNameArray);
16:
17:
18: -- ======================================================================
19: -- Caching.
102: DATE_TEST_FMT CONSTANT VARCHAR2(11) := 'DD-MON-YYYY';
103: DATE_DEBUG_FMT CONSTANT VARCHAR2(9) := 'DD-MON-RR';
104: MAX_ARG_LEN CONSTANT NUMBER := 1950;
105: MAX_CATSEG_LEN CONSTANT NUMBER := 700;
106: BLANKS VARCHAR2(4); -- := FND_FLEX_SERVER1.WHITESPACE;
107: -------------
108: -- EXCEPTIONS
109: --
110:
121: --
122: fdfgli_on BOOLEAN := TRUE;
123:
124: -- Determines whether or not to call user validation function
125: -- FND_FLEX_SERVER.VALIDATE just before inserting a new combination.
126: --
127: userval_on BOOLEAN := TRUE;
128:
129: --
133:
134: /* -------------------------------------------------------------------- */
135: /* Private definitions */
136: /* -------------------------------------------------------------------- */
137: FUNCTION insert_combination(fstruct IN FND_FLEX_SERVER1.FlexStructId,
138: structnum IN NUMBER,
139: maintmode IN BOOLEAN,
140: v_date IN DATE,
141: seg_delim IN VARCHAR2,
139: maintmode IN BOOLEAN,
140: v_date IN DATE,
141: seg_delim IN VARCHAR2,
142: ccid_inp IN NUMBER,
143: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
144: combcols IN FND_FLEX_SERVER1.TabColArray,
145: combtypes IN FND_FLEX_SERVER1.CharArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
140: v_date IN DATE,
141: seg_delim IN VARCHAR2,
142: ccid_inp IN NUMBER,
143: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
144: combcols IN FND_FLEX_SERVER1.TabColArray,
145: combtypes IN FND_FLEX_SERVER1.CharArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
141: seg_delim IN VARCHAR2,
142: ccid_inp IN NUMBER,
143: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
144: combcols IN FND_FLEX_SERVER1.TabColArray,
145: combtypes IN FND_FLEX_SERVER1.CharArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
144: combcols IN FND_FLEX_SERVER1.TabColArray,
145: combtypes IN FND_FLEX_SERVER1.CharArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
145: combtypes IN FND_FLEX_SERVER1.CharArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
146: user_id IN NUMBER,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
147: nsegs IN NUMBER,
148: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
155: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
149: segfmts IN FND_FLEX_SERVER1.SegFormats,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
155: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
156: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
157: newcomb OUT nocopy BOOLEAN,
150: dvalues IN FND_FLEX_SERVER1.DerivedVals,
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
155: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
156: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
157: newcomb OUT nocopy BOOLEAN,
158: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN;
151: dquals IN FND_FLEX_SERVER1.Qualifiers,
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
155: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
156: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
157: newcomb OUT nocopy BOOLEAN,
158: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN;
159:
152: nxcols IN NUMBER,
153: xcolnames IN FND_FLEX_SERVER1.StringArray,
154: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
155: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
156: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
157: newcomb OUT nocopy BOOLEAN,
158: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN;
159:
160: FUNCTION hash_segs(n IN NUMBER,
157: newcomb OUT nocopy BOOLEAN,
158: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN;
159:
160: FUNCTION hash_segs(n IN NUMBER,
161: segs IN FND_FLEX_SERVER1.ValueIdArray) RETURN NUMBER;
162:
163:
164: FUNCTION call_userval(fstruct IN FND_FLEX_SERVER1.FlexStructId,
165: vdate IN DATE,
160: FUNCTION hash_segs(n IN NUMBER,
161: segs IN FND_FLEX_SERVER1.ValueIdArray) RETURN NUMBER;
162:
163:
164: FUNCTION call_userval(fstruct IN FND_FLEX_SERVER1.FlexStructId,
165: vdate IN DATE,
166: nids IN NUMBER,
167: delim IN VARCHAR2,
168: segids IN FND_FLEX_SERVER1.ValueIdArray)
164: FUNCTION call_userval(fstruct IN FND_FLEX_SERVER1.FlexStructId,
165: vdate IN DATE,
166: nids IN NUMBER,
167: delim IN VARCHAR2,
168: segids IN FND_FLEX_SERVER1.ValueIdArray)
169: RETURN BOOLEAN;
170:
171: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
172: t_quals IN FND_FLEX_SERVER1.Qualifiers,
167: delim IN VARCHAR2,
168: segids IN FND_FLEX_SERVER1.ValueIdArray)
169: RETURN BOOLEAN;
170:
171: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
172: t_quals IN FND_FLEX_SERVER1.Qualifiers,
173: v_rules IN FND_FLEX_SERVER1.Vrules,
174: v_date IN DATE,
175: check_effective IN BOOLEAN) RETURN NUMBER;
168: segids IN FND_FLEX_SERVER1.ValueIdArray)
169: RETURN BOOLEAN;
170:
171: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
172: t_quals IN FND_FLEX_SERVER1.Qualifiers,
173: v_rules IN FND_FLEX_SERVER1.Vrules,
174: v_date IN DATE,
175: check_effective IN BOOLEAN) RETURN NUMBER;
176:
169: RETURN BOOLEAN;
170:
171: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
172: t_quals IN FND_FLEX_SERVER1.Qualifiers,
173: v_rules IN FND_FLEX_SERVER1.Vrules,
174: v_date IN DATE,
175: check_effective IN BOOLEAN) RETURN NUMBER;
176:
177:
174: v_date IN DATE,
175: check_effective IN BOOLEAN) RETURN NUMBER;
176:
177:
178: FUNCTION find_column_index(column_list IN FND_FLEX_SERVER1.TabColArray,
179: column_count IN NUMBER,
180: colname IN VARCHAR2) RETURN NUMBER;
181:
182: FUNCTION concatenate_fulldescs(ndescs IN NUMBER,
179: column_count IN NUMBER,
180: colname IN VARCHAR2) RETURN NUMBER;
181:
182: FUNCTION concatenate_fulldescs(ndescs IN NUMBER,
183: descs IN FND_FLEX_SERVER1.ValueDescArray,
184: displ IN FND_FLEX_SERVER1.DisplayedSegs,
185: delimiter IN VARCHAR2) RETURN VARCHAR2;
186:
187: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
180: colname IN VARCHAR2) RETURN NUMBER;
181:
182: FUNCTION concatenate_fulldescs(ndescs IN NUMBER,
183: descs IN FND_FLEX_SERVER1.ValueDescArray,
184: displ IN FND_FLEX_SERVER1.DisplayedSegs,
185: delimiter IN VARCHAR2) RETURN VARCHAR2;
186:
187: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
188: RETURN VARCHAR2;
183: descs IN FND_FLEX_SERVER1.ValueDescArray,
184: displ IN FND_FLEX_SERVER1.DisplayedSegs,
185: delimiter IN VARCHAR2) RETURN VARCHAR2;
186:
187: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
188: RETURN VARCHAR2;
189:
190: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
191: drv IN FND_FLEX_SERVER1.DerivedVals,
186:
187: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
188: RETURN VARCHAR2;
189:
190: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
191: drv IN FND_FLEX_SERVER1.DerivedVals,
192: d_rqst IN DerivedRqst) RETURN VARCHAR2;
193:
194: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
187: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
188: RETURN VARCHAR2;
189:
190: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
191: drv IN FND_FLEX_SERVER1.DerivedVals,
192: d_rqst IN DerivedRqst) RETURN VARCHAR2;
193:
194: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
195: drv IN FND_FLEX_SERVER1.DerivedVals,
190: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
191: drv IN FND_FLEX_SERVER1.DerivedVals,
192: d_rqst IN DerivedRqst) RETURN VARCHAR2;
193:
194: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
195: drv IN FND_FLEX_SERVER1.DerivedVals,
196: v_rqst IN ValattRqst) RETURN VARCHAR2;
197:
198: FUNCTION parse_va_rqst(s IN VARCHAR2, var OUT nocopy ValattRqst) RETURN NUMBER;
191: drv IN FND_FLEX_SERVER1.DerivedVals,
192: d_rqst IN DerivedRqst) RETURN VARCHAR2;
193:
194: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
195: drv IN FND_FLEX_SERVER1.DerivedVals,
196: v_rqst IN ValattRqst) RETURN VARCHAR2;
197:
198: FUNCTION parse_va_rqst(s IN VARCHAR2, var OUT nocopy ValattRqst) RETURN NUMBER;
199:
199:
200: FUNCTION parse_drv_rqst(s IN VARCHAR2, dr OUT nocopy DerivedRqst) RETURN NUMBER;
201:
202: FUNCTION parse_vrules(s IN VARCHAR2,
203: vr OUT nocopy FND_FLEX_SERVER1.Vrules) RETURN NUMBER;
204:
205: FUNCTION parse_set_msg(p_msg IN VARCHAR2) RETURN BOOLEAN;
206:
207: FUNCTION evaluate_token(token_str IN VARCHAR2,
205: FUNCTION parse_set_msg(p_msg IN VARCHAR2) RETURN BOOLEAN;
206:
207: FUNCTION evaluate_token(token_str IN VARCHAR2,
208: n_segs IN NUMBER,
209: fq_tab IN FND_FLEX_SERVER1.FlexQualTable,
210: token_map OUT nocopy FND_FLEX_SERVER1.BooleanArray)
211: RETURN BOOLEAN;
212:
213: FUNCTION call_fdfgli(ccid IN NUMBER) RETURN BOOLEAN;
206:
207: FUNCTION evaluate_token(token_str IN VARCHAR2,
208: n_segs IN NUMBER,
209: fq_tab IN FND_FLEX_SERVER1.FlexQualTable,
210: token_map OUT nocopy FND_FLEX_SERVER1.BooleanArray)
211: RETURN BOOLEAN;
212:
213: FUNCTION call_fdfgli(ccid IN NUMBER) RETURN BOOLEAN;
214:
507: /* ------------------------------------------------------------------------ */
508:
509: PROCEDURE clear_cache IS
510: BEGIN
511: FND_FLEX_SERVER2.x_clear_cv_cache;
512: END clear_cache;
513:
514: /* ------------------------------------------------------------------------ */
515: /* Externalized function so client can use hash-lock mechanism. */
527: deadlock EXCEPTION;
528: nsegs NUMBER;
529: hash_num NUMBER;
530: hash_number NUMBER;
531: idsegs FND_FLEX_SERVER1.StringArray;
532: segids FND_FLEX_SERVER1.ValueIdArray;
533: kff_id FND_FLEX_SERVER1.FlexStructId;
534: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
535:
528: nsegs NUMBER;
529: hash_num NUMBER;
530: hash_number NUMBER;
531: idsegs FND_FLEX_SERVER1.StringArray;
532: segids FND_FLEX_SERVER1.ValueIdArray;
533: kff_id FND_FLEX_SERVER1.FlexStructId;
534: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
535:
536: PRAGMA EXCEPTION_INIT(deadlock, -60);
529: hash_num NUMBER;
530: hash_number NUMBER;
531: idsegs FND_FLEX_SERVER1.StringArray;
532: segids FND_FLEX_SERVER1.ValueIdArray;
533: kff_id FND_FLEX_SERVER1.FlexStructId;
534: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
535:
536: PRAGMA EXCEPTION_INIT(deadlock, -60);
537:
530: hash_number NUMBER;
531: idsegs FND_FLEX_SERVER1.StringArray;
532: segids FND_FLEX_SERVER1.ValueIdArray;
533: kff_id FND_FLEX_SERVER1.FlexStructId;
534: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
535:
536: PRAGMA EXCEPTION_INIT(deadlock, -60);
537:
538: BEGIN
546: as otherwise we were getting hash_number of 0 always. */
547: kff_id.isa_key_flexfield := TRUE;
548:
549: if((parse_displayed(kff_id, 'ALL', disp_segs) = FALSE) or
550: (FND_FLEX_SERVER2.breakup_catsegs(concat_ids, delimiter, FALSE,
551: disp_segs, nsegs, idsegs) = FALSE)) then
552: return(-20);
553: end if;
554:
666: v_date DATE;
667: rq_dqual DerivedRqst;
668: rq_valat ValattRqst;
669: nvalidated NUMBER;
670: value_dvals FND_FLEX_SERVER1.ValueArray;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
667: rq_dqual DerivedRqst;
668: rq_valat ValattRqst;
669: nvalidated NUMBER;
670: value_dvals FND_FLEX_SERVER1.ValueArray;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
668: rq_valat ValattRqst;
669: nvalidated NUMBER;
670: value_dvals FND_FLEX_SERVER1.ValueArray;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
669: nvalidated NUMBER;
670: value_dvals FND_FLEX_SERVER1.ValueArray;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
670: value_dvals FND_FLEX_SERVER1.ValueArray;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
671: value_vals FND_FLEX_SERVER1.ValueArray;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
672: value_ids FND_FLEX_SERVER1.ValueIdArray;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
673: value_descs FND_FLEX_SERVER1.ValueDescArray;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
674: value_desclens FND_FLEX_SERVER1.NumberArray;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
675: cc_cols FND_FLEX_SERVER1.TabColArray;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
683: n_xcol_vals NUMBER;
676: cc_coltypes FND_FLEX_SERVER1.CharArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
683: n_xcol_vals NUMBER;
684: xcol_vals FND_FLEX_SERVER1.StringArray;
677: segtypes FND_FLEX_SERVER1.SegFormats;
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
683: n_xcol_vals NUMBER;
684: xcol_vals FND_FLEX_SERVER1.StringArray;
685: delim VARCHAR2(1);
678: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
679: derv FND_FLEX_SERVER1.DerivedVals;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
683: n_xcol_vals NUMBER;
684: xcol_vals FND_FLEX_SERVER1.StringArray;
685: delim VARCHAR2(1);
686: new_comb BOOLEAN;
680: tbl_derv FND_FLEX_SERVER1.DerivedVals;
681: drv_quals FND_FLEX_SERVER1.Qualifiers;
682: tbl_quals FND_FLEX_SERVER1.Qualifiers;
683: n_xcol_vals NUMBER;
684: xcol_vals FND_FLEX_SERVER1.StringArray;
685: delim VARCHAR2(1);
686: new_comb BOOLEAN;
687: BEGIN
688: fnd_flex_server1.set_debugging(server_debug_mode);
684: xcol_vals FND_FLEX_SERVER1.StringArray;
685: delim VARCHAR2(1);
686: new_comb BOOLEAN;
687: BEGIN
688: fnd_flex_server1.set_debugging(server_debug_mode);
689:
690: IF (fnd_flex_server1.g_debug_level > 0) THEN
691: fnd_flex_server1.add_debug('BEGIN SSV.validate_combination()');
692: END IF;
686: new_comb BOOLEAN;
687: BEGIN
688: fnd_flex_server1.set_debugging(server_debug_mode);
689:
690: IF (fnd_flex_server1.g_debug_level > 0) THEN
691: fnd_flex_server1.add_debug('BEGIN SSV.validate_combination()');
692: END IF;
693:
694: -- Initialize globals, parse qualifier requests.
687: BEGIN
688: fnd_flex_server1.set_debugging(server_debug_mode);
689:
690: IF (fnd_flex_server1.g_debug_level > 0) THEN
691: fnd_flex_server1.add_debug('BEGIN SSV.validate_combination()');
692: END IF;
693:
694: -- Initialize globals, parse qualifier requests.
695: -- If ok, then validate and return results.
695: -- If ok, then validate and return results.
696: -- Otherwise return error and message.
697: --
698:
699: if((FND_FLEX_SERVER1.init_globals) and
700: (parse_drv_rqst(get_derived, rq_dqual) >= 0) and
701: (parse_va_rqst(get_valatts, rq_valat) >= 0)) then
702:
703: -- Client passes in julian date of 0 to mean null vdate
722: segcodes, error_seg);
723:
724: -- Return requested outputs as concatenated strings.
725: --
726: IF (vstatus <> FND_FLEX_SERVER1.vv_error) THEN
727: concat_vals_out := concatenate_values(nvalidated, value_dvals,
728: disp_segs, delim);
729: concat_ids_out := concatenate_ids(nvalidated, value_ids, delim);
730: concat_desc := concatenate_fulldescs(nvalidated, value_descs,
730: concat_desc := concatenate_fulldescs(nvalidated, value_descs,
731: disp_segs, delim);
732: derived_vals := ret_derived(drv_quals, derv, rq_dqual);
733: valatts := ret_valatts(drv_quals, derv, rq_valat);
734: extra_cols := FND_FLEX_SERVER1.from_stringarray2
735: (n_xcol_vals, xcol_vals,
736: FND_FLEX_SERVER1.TERMINATOR);
737: start_date := to_char(derv.start_valid, DATE_PASS_FORMAT);
738: end_date := to_char(derv.end_valid, DATE_PASS_FORMAT);
732: derived_vals := ret_derived(drv_quals, derv, rq_dqual);
733: valatts := ret_valatts(drv_quals, derv, rq_valat);
734: extra_cols := FND_FLEX_SERVER1.from_stringarray2
735: (n_xcol_vals, xcol_vals,
736: FND_FLEX_SERVER1.TERMINATOR);
737: start_date := to_char(derv.start_valid, DATE_PASS_FORMAT);
738: end_date := to_char(derv.end_valid, DATE_PASS_FORMAT);
739: enabled_flag := derv.enabled_flag;
740: summary_flag := derv.summary_flag;
754: END IF;
755: GOTO goto_return;
756: end if;
757:
758: vstatus := FND_FLEX_SERVER1.VV_ERROR;
759:
760: <
761:
762: message := FND_MESSAGE.get_encoded;
759:
760: <
761:
762: message := FND_MESSAGE.get_encoded;
763: IF (fnd_flex_server1.g_debug_level > 0) THEN
764: fnd_flex_server1.add_debug('END SSV.validate_combination()');
765: END IF;
766: return;
767:
760: <
761:
762: message := FND_MESSAGE.get_encoded;
763: IF (fnd_flex_server1.g_debug_level > 0) THEN
764: fnd_flex_server1.add_debug('END SSV.validate_combination()');
765: END IF;
766: return;
767:
768: EXCEPTION
769: WHEN OTHERS then
770: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
775: fnd_flex_server1.add_debug
776: ('EXCEPTION others SSV.validate_combination()');
777: END IF;
770: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
775: fnd_flex_server1.add_debug
776: ('EXCEPTION others SSV.validate_combination()');
777: END IF;
778: return;
771: FND_MESSAGE.set_token('MSG','SV1.validate_combination() exception: '||SQLERRM);
772: message := FND_MESSAGE.get_encoded;
773: vstatus := FND_FLEX_SERVER1.VV_ERROR;
774: IF (fnd_flex_server1.g_debug_level > 0) THEN
775: fnd_flex_server1.add_debug
776: ('EXCEPTION others SSV.validate_combination()');
777: END IF;
778: return;
779: END validate_combination;
809:
810: v_date DATE;
811: rowid_in ROWID;
812: nvalidated NUMBER;
813: value_dvals FND_FLEX_SERVER1.ValueArray;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
810: v_date DATE;
811: rowid_in ROWID;
812: nvalidated NUMBER;
813: value_dvals FND_FLEX_SERVER1.ValueArray;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
811: rowid_in ROWID;
812: nvalidated NUMBER;
813: value_dvals FND_FLEX_SERVER1.ValueArray;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
812: nvalidated NUMBER;
813: value_dvals FND_FLEX_SERVER1.ValueArray;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
813: value_dvals FND_FLEX_SERVER1.ValueArray;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
814: value_vals FND_FLEX_SERVER1.ValueArray;
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
822: delim VARCHAR2(1);
815: value_ids FND_FLEX_SERVER1.ValueIdArray;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
822: delim VARCHAR2(1);
823: omit_activation BOOLEAN;
816: value_descs FND_FLEX_SERVER1.ValueDescArray;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
822: delim VARCHAR2(1);
823: omit_activation BOOLEAN;
824: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
817: value_desclens FND_FLEX_SERVER1.NumberArray;
818: cc_cols FND_FLEX_SERVER1.TabColArray;
819: cc_coltypes FND_FLEX_SERVER1.CharArray;
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
822: delim VARCHAR2(1);
823: omit_activation BOOLEAN;
824: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
825:
820: segtypes FND_FLEX_SERVER1.SegFormats;
821: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
822: delim VARCHAR2(1);
823: omit_activation BOOLEAN;
824: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
825:
826: BEGIN
827:
828: -- Initialize globals.
828: -- Initialize globals.
829: -- If ok, then validate and return results.
830: -- Otherwise return error and message.
831: --
832: if(FND_FLEX_SERVER1.init_globals) then
833:
834: -- Client passes in julian date of 0 to mean null vdate
835: --
836: if(vdate = '0') then
853:
854: -- Client passes in allow_nulls, update_table, and vals_or_ids as
855: -- chars. Change them to boolean.
856:
857: FND_FLEX_SERVER4.descval_engine(user_apid, user_resp, userid,
858: flex_app_sname, desc_flex_name, v_date, invoking_mode,
859: (allow_nulls = 'Y'), (update_table = 'Y'),
860: omit_activation, concat_segs, (vals_or_ids = 'V'),
861: FALSE, dummy_coldef, rowid_in, alternate_table,
876: return;
877: end if;
878:
879: message := FND_MESSAGE.get_encoded;
880: vstatus := FND_FLEX_SERVER1.VV_ERROR;
881: return;
882:
883: EXCEPTION
884: WHEN OTHERS then
884: WHEN OTHERS then
885: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
886: FND_MESSAGE.set_token('MSG','validate_descflex() exception: '||SQLERRM);
887: message := FND_MESSAGE.get_encoded;
888: vstatus := FND_FLEX_SERVER1.VV_ERROR;
889: return;
890: END validate_descflex;
891:
892: /* ------------------------------------------------------------------------ */
927: message OUT nocopy VARCHAR2) IS
928:
929: nsegs NUMBER;
930: nvals NUMBER;
931: segs FND_FLEX_SERVER1.StringArray;
932: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
933: errsegnum NUMBER;
934: errcode NUMBER;
935: val_date DATE;
928:
929: nsegs NUMBER;
930: nvals NUMBER;
931: segs FND_FLEX_SERVER1.StringArray;
932: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
933: errsegnum NUMBER;
934: errcode NUMBER;
935: val_date DATE;
936: segtypes FND_FLEX_SERVER1.SegFormats;
932: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
933: errsegnum NUMBER;
934: errcode NUMBER;
935: val_date DATE;
936: segtypes FND_FLEX_SERVER1.SegFormats;
937: segcodes VARCHAR2(30);
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
934: errcode NUMBER;
935: val_date DATE;
936: segtypes FND_FLEX_SERVER1.SegFormats;
937: segcodes VARCHAR2(30);
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
935: val_date DATE;
936: segtypes FND_FLEX_SERVER1.SegFormats;
937: segcodes VARCHAR2(30);
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
936: segtypes FND_FLEX_SERVER1.SegFormats;
937: segcodes VARCHAR2(30);
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
937: segcodes VARCHAR2(30);
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
938: kff_cc FND_FLEX_SERVER1.CombTblInfo;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
939: kff_id FND_FLEX_SERVER1.FlexStructId;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
940: kff_info FND_FLEX_SERVER1.FlexStructInfo;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
941: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
942: value_dvals FND_FLEX_SERVER1.ValueArray;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
943: value_vals FND_FLEX_SERVER1.ValueArray;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
951: v_rules FND_FLEX_SERVER1.Vrules;
944: value_ids FND_FLEX_SERVER1.ValueIdArray;
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
951: v_rules FND_FLEX_SERVER1.Vrules;
952:
945: value_descs FND_FLEX_SERVER1.ValueDescArray;
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
951: v_rules FND_FLEX_SERVER1.Vrules;
952:
953: BEGIN
946: desc_lens FND_FLEX_SERVER1.NumberArray;
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
951: v_rules FND_FLEX_SERVER1.Vrules;
952:
953: BEGIN
954:
947: cc_cols FND_FLEX_SERVER1.TabColArray;
948: cc_coltypes FND_FLEX_SERVER1.CharArray;
949: derv FND_FLEX_SERVER1.DerivedVals;
950: drv_quals FND_FLEX_SERVER1.Qualifiers;
951: v_rules FND_FLEX_SERVER1.Vrules;
952:
953: BEGIN
954:
955: -- Initialize messages, debugging, and number of sql strings
953: BEGIN
954:
955: -- Initialize messages, debugging, and number of sql strings
956: --
957: if(FND_FLEX_SERVER1.init_globals = FALSE) then
958: goto return_error;
959: end if;
960:
961: -- Convert the validation date to date format. Client may pass 0 to mean null.
967: end IF;
968:
969: -- Get all required info about the desired flexfield structure.
970: --
971: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
972: NULL, flex_num,
973: kff_id, kff_info, kff_cc) = FALSE) then
974: goto return_error;
975: end if;
1003: end if;
1004:
1005: -- Set up some debug information to return
1006: --
1007: IF (fnd_flex_server1.g_debug_level > 0) THEN
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1004:
1005: -- Set up some debug information to return
1006: --
1007: IF (fnd_flex_server1.g_debug_level > 0) THEN
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1005: -- Set up some debug information to return
1006: --
1007: IF (fnd_flex_server1.g_debug_level > 0) THEN
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1013: FND_FLEX_SERVER1.add_debug(', display_segs = ' || display_segs);
1006: --
1007: IF (fnd_flex_server1.g_debug_level > 0) THEN
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1013: FND_FLEX_SERVER1.add_debug(', display_segs = ' || display_segs);
1014: END IF;
1007: IF (fnd_flex_server1.g_debug_level > 0) THEN
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1013: FND_FLEX_SERVER1.add_debug(', display_segs = ' || display_segs);
1014: END IF;
1015:
1008: FND_FLEX_SERVER1.add_debug('Entering pre_window(). ');
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1013: FND_FLEX_SERVER1.add_debug(', display_segs = ' || display_segs);
1014: END IF;
1015:
1016: -- Convert concatenated segments to array and check there are not too many
1009: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1010: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1011: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1012: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1013: FND_FLEX_SERVER1.add_debug(', display_segs = ' || display_segs);
1014: END IF;
1015:
1016: -- Convert concatenated segments to array and check there are not too many
1017: --
1014: END IF;
1015:
1016: -- Convert concatenated segments to array and check there are not too many
1017: --
1018: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1019: kff_info.concatenated_segment_delimiter,
1020: vv_flags.values_not_ids, disp_segs, nsegs, segs) = FALSE) then
1021: goto return_error;
1022: end if;
1022: end if;
1023:
1024: -- Look up the descriptions and ids.
1025: --
1026: errcode := FND_FLEX_SERVER1.validate_struct(kff_id,
1027: kff_cc.table_application_id, kff_cc.combination_table_id,
1028: nsegs, segs, disp_segs, vv_flags, val_date, v_rules, user_apid,
1029: user_resp, nvals, segtypes, segcodes, cc_cols, cc_coltypes,
1030: value_dvals, value_vals, value_ids, value_descs, desc_lens,
1029: user_resp, nvals, segtypes, segcodes, cc_cols, cc_coltypes,
1030: value_dvals, value_vals, value_ids, value_descs, desc_lens,
1031: derv, drv_quals, errsegnum);
1032:
1033: IF (fnd_flex_server1.g_debug_level > 0) THEN
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1030: value_dvals, value_vals, value_ids, value_descs, desc_lens,
1031: derv, drv_quals, errsegnum);
1032:
1033: IF (fnd_flex_server1.g_debug_level > 0) THEN
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1031: derv, drv_quals, errsegnum);
1032:
1033: IF (fnd_flex_server1.g_debug_level > 0) THEN
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1032:
1033: IF (fnd_flex_server1.g_debug_level > 0) THEN
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1033: IF (fnd_flex_server1.g_debug_level > 0) THEN
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1034: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ');
1035: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1036: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1043: FND_FLEX_SERVER1.add_debug(cc_cols(i) || '" ');
1044: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||'" ');
1037: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1043: FND_FLEX_SERVER1.add_debug(cc_cols(i) || '" ');
1044: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||'" ');
1045: end loop;
1038: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1043: FND_FLEX_SERVER1.add_debug(cc_cols(i) || '" ');
1044: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||'" ');
1045: end loop;
1046: END IF;
1039: for i in 1..nvals loop
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1043: FND_FLEX_SERVER1.add_debug(cc_cols(i) || '" ');
1044: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||'" ');
1045: end loop;
1046: END IF;
1047:
1040: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
1041: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
1042: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
1043: FND_FLEX_SERVER1.add_debug(cc_cols(i) || '" ');
1044: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||'" ');
1045: end loop;
1046: END IF;
1047:
1048: concat_vals_out := concatenate_values(nvals, value_dvals, disp_segs,
1061: return;
1062:
1063: <
1064: message := FND_MESSAGE.get_encoded;
1065: v_status := FND_FLEX_SERVER1.VV_ERROR;
1066: return;
1067:
1068: EXCEPTION
1069: WHEN OTHERS then
1095: n_segments OUT nocopy NUMBER,
1096: message OUT nocopy VARCHAR2) IS
1097:
1098: n_segs NUMBER;
1099: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1096: message OUT nocopy VARCHAR2) IS
1097:
1098: n_segs NUMBER;
1099: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1097:
1098: n_segs NUMBER;
1099: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1098: n_segs NUMBER;
1099: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1099: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1100: kff_id FND_FLEX_SERVER1.FlexStructId;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1108: s_displayed FND_FLEX_SERVER1.BooleanArray;
1101: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1108: s_displayed FND_FLEX_SERVER1.BooleanArray;
1109: ins_map VARCHAR2(30);
1102: fq_table FND_FLEX_SERVER1.FlexQualTable;
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1108: s_displayed FND_FLEX_SERVER1.BooleanArray;
1109: ins_map VARCHAR2(30);
1110: upd_map VARCHAR2(30);
1103: seg_disp FND_FLEX_SERVER1.CharArray;
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1108: s_displayed FND_FLEX_SERVER1.BooleanArray;
1109: ins_map VARCHAR2(30);
1110: upd_map VARCHAR2(30);
1111: disp_map VARCHAR2(30);
1104: seg_rqd FND_FLEX_SERVER1.CharArray;
1105: s_required FND_FLEX_SERVER1.BooleanArray;
1106: s_insertable FND_FLEX_SERVER1.BooleanArray;
1107: s_updatable FND_FLEX_SERVER1.BooleanArray;
1108: s_displayed FND_FLEX_SERVER1.BooleanArray;
1109: ins_map VARCHAR2(30);
1110: upd_map VARCHAR2(30);
1111: disp_map VARCHAR2(30);
1112: rqd_map VARCHAR2(30);
1114: BEGIN
1115:
1116: -- Initialize messages, debugging, and number of sql strings
1117: --
1118: if(FND_FLEX_SERVER1.init_globals = FALSE) then
1119: goto return_error;
1120: end if;
1121:
1122: -- Get all required info about the desired flexfield structure.
1120: end if;
1121:
1122: -- Get all required info about the desired flexfield structure.
1123: --
1124: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1125: NULL, flex_num,
1126: kff_id, kff_info, kff_cc) = FALSE) then
1127: goto return_error;
1128: end if;
1128: end if;
1129:
1130: -- Set up some debug information to return
1131: --
1132: IF (fnd_flex_server1.g_debug_level > 0) THEN
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1129:
1130: -- Set up some debug information to return
1131: --
1132: IF (fnd_flex_server1.g_debug_level > 0) THEN
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1130: -- Set up some debug information to return
1131: --
1132: IF (fnd_flex_server1.g_debug_level > 0) THEN
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1131: --
1132: IF (fnd_flex_server1.g_debug_level > 0) THEN
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1139: if(FND_FLEX_SERVER2.get_qualsegs(kff_id, n_segs, seg_disp,
1132: IF (fnd_flex_server1.g_debug_level > 0) THEN
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1139: if(FND_FLEX_SERVER2.get_qualsegs(kff_id, n_segs, seg_disp,
1140: seg_rqd, fq_table) = FALSE) then
1133: FND_FLEX_SERVER1.add_debug('Starting segment_maps() ');
1134: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1139: if(FND_FLEX_SERVER2.get_qualsegs(kff_id, n_segs, seg_disp,
1140: seg_rqd, fq_table) = FALSE) then
1141: goto return_error;
1135: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1136: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1137: FND_FLEX_SERVER1.add_debug(', Structure Number = '||to_char(flex_num));
1138: END IF;
1139: if(FND_FLEX_SERVER2.get_qualsegs(kff_id, n_segs, seg_disp,
1140: seg_rqd, fq_table) = FALSE) then
1141: goto return_error;
1142: end if;
1143:
1223: message OUT nocopy VARCHAR2) IS
1224:
1225: secseg NUMBER;
1226: nsegs NUMBER;
1227: segs FND_FLEX_SERVER1.StringArray;
1228: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1229: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1230: kff_id FND_FLEX_SERVER1.FlexStructId;
1231: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1224:
1225: secseg NUMBER;
1226: nsegs NUMBER;
1227: segs FND_FLEX_SERVER1.StringArray;
1228: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1229: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1230: kff_id FND_FLEX_SERVER1.FlexStructId;
1231: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1232:
1225: secseg NUMBER;
1226: nsegs NUMBER;
1227: segs FND_FLEX_SERVER1.StringArray;
1228: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1229: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1230: kff_id FND_FLEX_SERVER1.FlexStructId;
1231: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1232:
1233: BEGIN
1226: nsegs NUMBER;
1227: segs FND_FLEX_SERVER1.StringArray;
1228: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1229: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1230: kff_id FND_FLEX_SERVER1.FlexStructId;
1231: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1232:
1233: BEGIN
1234:
1227: segs FND_FLEX_SERVER1.StringArray;
1228: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1229: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1230: kff_id FND_FLEX_SERVER1.FlexStructId;
1231: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1232:
1233: BEGIN
1234:
1235: -- Check for null segments
1240: end if;
1241:
1242: -- Initialize messages, debugging, and number of sql strings
1243: --
1244: if(FND_FLEX_SERVER1.init_globals = FALSE) then
1245: goto return_error;
1246: end if;
1247:
1248: -- Get all required info about the desired flexfield structure.
1246: end if;
1247:
1248: -- Get all required info about the desired flexfield structure.
1249: --
1250: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1251: NULL, flex_num,
1252: kff_id, kff_info, kff_cc) = FALSE) then
1253: goto return_error;
1254: end if;
1254: end if;
1255:
1256: -- Set up some debug information to return
1257: --
1258: IF (fnd_flex_server1.g_debug_level > 0) THEN
1259: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1260: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1261: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1262: FND_FLEX_SERVER1.add_debug(', Structure Number = '|| to_char(flex_num));
1255:
1256: -- Set up some debug information to return
1257: --
1258: IF (fnd_flex_server1.g_debug_level > 0) THEN
1259: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1260: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1261: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1262: FND_FLEX_SERVER1.add_debug(', Structure Number = '|| to_char(flex_num));
1263: END IF;
1256: -- Set up some debug information to return
1257: --
1258: IF (fnd_flex_server1.g_debug_level > 0) THEN
1259: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1260: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1261: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1262: FND_FLEX_SERVER1.add_debug(', Structure Number = '|| to_char(flex_num));
1263: END IF;
1264: if(parse_displayed(kff_id, display_segs, disp_segs) = FALSE) then
1257: --
1258: IF (fnd_flex_server1.g_debug_level > 0) THEN
1259: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1260: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1261: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1262: FND_FLEX_SERVER1.add_debug(', Structure Number = '|| to_char(flex_num));
1263: END IF;
1264: if(parse_displayed(kff_id, display_segs, disp_segs) = FALSE) then
1265: goto return_error;
1258: IF (fnd_flex_server1.g_debug_level > 0) THEN
1259: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ');
1260: FND_FLEX_SERVER1.add_debug(to_char(kff_id.application_id));
1261: FND_FLEX_SERVER1.add_debug(', Flex Code = ' || flex_code);
1262: FND_FLEX_SERVER1.add_debug(', Structure Number = '|| to_char(flex_num));
1263: END IF;
1264: if(parse_displayed(kff_id, display_segs, disp_segs) = FALSE) then
1265: goto return_error;
1266: end if;
1266: end if;
1267:
1268: -- Convert concatenated segments to array and check there are not too many
1269: --
1270: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1271: kff_info.concatenated_segment_delimiter,
1272: TRUE, disp_segs, nsegs, segs) = FALSE) then
1273: goto return_error;
1274: end if;
1274: end if;
1275:
1276: -- See if any segment values are secured.
1277: --
1278: secseg := FND_FLEX_SERVER1.vals_secured(kff_id, nsegs, segs, disp_segs,
1279: resp_apid, resp_id);
1280: segnum := secseg;
1281: if(secseg = 0) then
1282: FND_MESSAGE.clear;
1303: -- Autonomous Transaction Version of Insert Combination.
1304: -- copied from insert_combination().
1305: --
1306: FUNCTION insert_combination_at
1307: (fstruct IN FND_FLEX_SERVER1.FlexStructId,
1308: structnum IN NUMBER,
1309: maintmode IN BOOLEAN,
1310: v_date IN DATE,
1311: seg_delim IN VARCHAR2,
1309: maintmode IN BOOLEAN,
1310: v_date IN DATE,
1311: seg_delim IN VARCHAR2,
1312: ccid_inp IN NUMBER,
1313: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
1314: combcols IN FND_FLEX_SERVER1.TabColArray,
1315: combtypes IN FND_FLEX_SERVER1.CharArray,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1310: v_date IN DATE,
1311: seg_delim IN VARCHAR2,
1312: ccid_inp IN NUMBER,
1313: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
1314: combcols IN FND_FLEX_SERVER1.TabColArray,
1315: combtypes IN FND_FLEX_SERVER1.CharArray,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1311: seg_delim IN VARCHAR2,
1312: ccid_inp IN NUMBER,
1313: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
1314: combcols IN FND_FLEX_SERVER1.TabColArray,
1315: combtypes IN FND_FLEX_SERVER1.CharArray,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1314: combcols IN FND_FLEX_SERVER1.TabColArray,
1315: combtypes IN FND_FLEX_SERVER1.CharArray,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1315: combtypes IN FND_FLEX_SERVER1.CharArray,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1316: user_id IN NUMBER,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1317: nsegs IN NUMBER,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1318: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
1319: segvals_in IN FND_FLEX_SERVER1.valuearray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1326: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
1320: segfmts IN FND_FLEX_SERVER1.SegFormats,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1326: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
1327: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1328: newcomb OUT nocopy BOOLEAN,
1321: dvalues IN FND_FLEX_SERVER1.DerivedVals,
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1326: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
1327: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1328: newcomb OUT nocopy BOOLEAN,
1329: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN
1322: dquals IN FND_FLEX_SERVER1.Qualifiers,
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1326: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
1327: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1328: newcomb OUT nocopy BOOLEAN,
1329: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN
1330: IS
1323: nxcols IN NUMBER,
1324: xcolnames IN FND_FLEX_SERVER1.StringArray,
1325: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
1326: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
1327: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1328: newcomb OUT nocopy BOOLEAN,
1329: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN
1330: IS
1331: PRAGMA AUTONOMOUS_TRANSACTION;
1334: nfound NUMBER;
1335: hash_num NUMBER;
1336: hash_number NUMBER;
1337: ccid_string VARCHAR2(50);
1338: segids FND_FLEX_SERVER1.ValueIdArray;
1339:
1340: PRAGMA EXCEPTION_INIT(deadlock, -60);
1341:
1342: BEGIN
1343: SAVEPOINT pre_insert_comb_at;
1344:
1345: -- For debugging...
1346: --
1347: IF (fnd_flex_server1.g_debug_level > 0) THEN
1348: FND_FLEX_SERVER1.add_debug(to_char(nsegs) ||
1349: ' segs passed to insert_combination().');
1350: END IF;
1351:
1344:
1345: -- For debugging...
1346: --
1347: IF (fnd_flex_server1.g_debug_level > 0) THEN
1348: FND_FLEX_SERVER1.add_debug(to_char(nsegs) ||
1349: ' segs passed to insert_combination().');
1350: END IF;
1351:
1352: -- First lock this combination and prevent other users from inserting.
1362: sqls := sqls || ' in row share mode';
1363:
1364: fnd_dsql.init;
1365: fnd_dsql.add_text(sqls);
1366: if(FND_FLEX_SERVER1.x_dsql_execute < 0) THEN
1367: GOTO return_false;
1368: end if;
1369:
1370: -- Next compute the hash number that is to be locked.
1373: if(hash_number < 0) THEN
1374: GOTO return_false;
1375: end if;
1376:
1377: IF (fnd_flex_server1.g_debug_level > 0) THEN
1378: FND_FLEX_SERVER1.add_debug('Hash value = '||to_char(hash_number)||'.');
1379: END IF;
1380: SELECT hash_value INTO hash_num FROM fnd_flex_hash
1381: WHERE hash_value = hash_number FOR UPDATE;
1374: GOTO return_false;
1375: end if;
1376:
1377: IF (fnd_flex_server1.g_debug_level > 0) THEN
1378: FND_FLEX_SERVER1.add_debug('Hash value = '||to_char(hash_number)||'.');
1379: END IF;
1380: SELECT hash_value INTO hash_num FROM fnd_flex_hash
1381: WHERE hash_value = hash_number FOR UPDATE;
1382:
1410: sqls := 'select to_char(' || combtbl.application_table_name;
1411: sqls := sqls || '_S.NEXTVAL) from dual';
1412: fnd_dsql.init;
1413: fnd_dsql.add_text(sqls);
1414: if(FND_FLEX_SERVER1.x_dsql_select_one(ccid_string) <> 1) THEN
1415: GOTO return_false;
1416: end if;
1417: ccid := to_number(ccid_string);
1418: if(ccid > MAX_CCID) then
1491: fnd_dsql.add_text(',');
1492: --
1493: -- This will call fnd_dsql.add_bind
1494: --
1495: fnd_flex_server1.x_compare_clause
1496: (combtypes(i),
1497: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
1498: segfmts.vs_format(i), segfmts.vs_maxsize(i));
1499: end if;
1493: -- This will call fnd_dsql.add_bind
1494: --
1495: fnd_flex_server1.x_compare_clause
1496: (combtypes(i),
1497: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
1498: segfmts.vs_format(i), segfmts.vs_maxsize(i));
1499: end if;
1500: end loop;
1501: fnd_dsql.add_text(')');
1502:
1503: --
1504: -- Finally do the insert
1505: --
1506: if(FND_FLEX_SERVER1.x_dsql_execute < 0) then
1507: GOTO return_false;
1508: end if;
1509: if((fstruct.application_id = 101) and (fstruct.id_flex_code ='GL#')) then
1510: if(call_fdfgli(ccid) = FALSE) THEN
1515:
1516: -- Return all out variables. If comb was found in table these were set
1517: -- above.
1518: --
1519: IF (fnd_flex_server1.g_debug_level > 0) THEN
1520: FND_FLEX_SERVER1.add_debug(' Returning ccid = '||to_char(ccid)|| '. ');
1521: END IF;
1522: ccid_out := ccid;
1523: newcomb := TRUE;
1516: -- Return all out variables. If comb was found in table these were set
1517: -- above.
1518: --
1519: IF (fnd_flex_server1.g_debug_level > 0) THEN
1520: FND_FLEX_SERVER1.add_debug(' Returning ccid = '||to_char(ccid)|| '. ');
1521: END IF;
1522: ccid_out := ccid;
1523: newcomb := TRUE;
1524: tblderv := dvalues;
1536: --
1537: -- However following stuff should be done in AT.
1538: -- copied from validation_engine() function.
1539: --
1540: if(FND_FLEX_SERVER2.x_drop_cached_cv_result(fstruct, nsegs, segvals_in)
1541: = FALSE) then
1542: GOTO return_false;
1543: end if;
1544:
1608: /* Many error conditions return no array information at all. This */
1609: /* condition is indicated by setting the array counts to 0 for all */
1610: /* empty arrays. */
1611: /* */
1612: /* NOTE: Make sure to call FND_FLEX_SERVER1.init_globals before */
1613: /* calling this function, to initialize debugging and messages. */
1614: /* ------------------------------------------------------------------------ */
1615:
1616: PROCEDURE
1638: where_clause_msg IN VARCHAR2,
1639: get_extra_cols IN VARCHAR2,
1640: ccid_in IN NUMBER,
1641: nvalidated OUT nocopy NUMBER,
1642: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1639: get_extra_cols IN VARCHAR2,
1640: ccid_in IN NUMBER,
1641: nvalidated OUT nocopy NUMBER,
1642: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1640: ccid_in IN NUMBER,
1641: nvalidated OUT nocopy NUMBER,
1642: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1641: nvalidated OUT nocopy NUMBER,
1642: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1642: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1643: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1644: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1645: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1646: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1647: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1655: n_column_vals OUT nocopy NUMBER,
1648: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1655: n_column_vals OUT nocopy NUMBER,
1656: column_vals OUT nocopy FND_FLEX_SERVER1.StringArray,
1649: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1655: n_column_vals OUT nocopy NUMBER,
1656: column_vals OUT nocopy FND_FLEX_SERVER1.StringArray,
1657: seg_delimiter OUT nocopy VARCHAR2,
1650: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1651: derived_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1655: n_column_vals OUT nocopy NUMBER,
1656: column_vals OUT nocopy FND_FLEX_SERVER1.StringArray,
1657: seg_delimiter OUT nocopy VARCHAR2,
1658: ccid_out OUT nocopy NUMBER,
1652: table_eff OUT nocopy FND_FLEX_SERVER1.DerivedVals,
1653: derived_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1654: table_quals OUT nocopy FND_FLEX_SERVER1.Qualifiers,
1655: n_column_vals OUT nocopy NUMBER,
1656: column_vals OUT nocopy FND_FLEX_SERVER1.StringArray,
1657: seg_delimiter OUT nocopy VARCHAR2,
1658: ccid_out OUT nocopy NUMBER,
1659: new_combination OUT nocopy BOOLEAN,
1660: v_status OUT nocopy NUMBER,
1662: err_segnum OUT nocopy NUMBER) IS
1663:
1664: big_arg VARCHAR2(40);
1665: catsegs VARCHAR2(2000);
1666: segtypes FND_FLEX_SERVER1.SegFormats;
1667: segcodes VARCHAR2(30);
1668: error_col VARCHAR2(30);
1669: nfound NUMBER;
1670: comb_id NUMBER;
1674: for_insert BOOLEAN;
1675: dynam_insrt BOOLEAN;
1676: defer_insrt BOOLEAN;
1677: new_comb BOOLEAN;
1678: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1679: kff_id FND_FLEX_SERVER1.FlexStructId;
1680: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1675: dynam_insrt BOOLEAN;
1676: defer_insrt BOOLEAN;
1677: new_comb BOOLEAN;
1678: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1679: kff_id FND_FLEX_SERVER1.FlexStructId;
1680: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1676: defer_insrt BOOLEAN;
1677: new_comb BOOLEAN;
1678: kff_cc FND_FLEX_SERVER1.CombTblInfo;
1679: kff_id FND_FLEX_SERVER1.FlexStructId;
1680: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1679: kff_id FND_FLEX_SERVER1.FlexStructId;
1680: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1680: kff_info FND_FLEX_SERVER1.FlexStructInfo;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1681: nvals NUMBER;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1682: nsegs NUMBER;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1683: segs FND_FLEX_SERVER1.StringArray;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1684: value_dvals FND_FLEX_SERVER1.ValueArray;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1685: value_vals FND_FLEX_SERVER1.ValueArray;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1686: value_ids FND_FLEX_SERVER1.ValueIdArray;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1687: value_descs FND_FLEX_SERVER1.ValueDescArray;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1688: cc_cols FND_FLEX_SERVER1.TabColArray;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1689: cc_coltypes FND_FLEX_SERVER1.CharArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1690: desc_lens FND_FLEX_SERVER1.NumberArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1691: derv FND_FLEX_SERVER1.DerivedVals;
1692: tbl_derv FND_FLEX_SERVER1.DerivedVals;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1699: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1693: drv_quals FND_FLEX_SERVER1.Qualifiers;
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1699: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1700: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
1701: entered VARCHAR2(1);
1694: tbl_quals FND_FLEX_SERVER1.Qualifiers;
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1699: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1700: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
1701: entered VARCHAR2(1);
1702: nice_where_cl VARCHAR2(2000);
1695: v_rules FND_FLEX_SERVER1.Vrules;
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1699: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1700: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
1701: entered VARCHAR2(1);
1702: nice_where_cl VARCHAR2(2000);
1703: l_dinsert VARCHAR2(10);
1696: n_xcols NUMBER;
1697: rq_xcols FND_FLEX_SERVER1.StringArray;
1698: xcol_vals FND_FLEX_SERVER1.StringArray;
1699: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1700: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
1701: entered VARCHAR2(1);
1702: nice_where_cl VARCHAR2(2000);
1703: l_dinsert VARCHAR2(10);
1704: no_at BOOLEAN := FALSE;
1703: l_dinsert VARCHAR2(10);
1704: no_at BOOLEAN := FALSE;
1705: BEGIN
1706: l_dinsert := Nvl(dinsert, 'N');
1707: IF (fnd_flex_server1.g_debug_level > 0) THEN
1708: fnd_flex_server1.add_debug('BEGIN SSV.validation_engine()');
1709: END IF;
1710:
1711: -- Initialize all output variables so that returning from any point
1704: no_at BOOLEAN := FALSE;
1705: BEGIN
1706: l_dinsert := Nvl(dinsert, 'N');
1707: IF (fnd_flex_server1.g_debug_level > 0) THEN
1708: fnd_flex_server1.add_debug('BEGIN SSV.validation_engine()');
1709: END IF;
1710:
1711: -- Initialize all output variables so that returning from any point
1712: -- results in a valid state.
1717: derived_quals.nquals := 0;
1718: table_quals.nquals := 0;
1719: n_column_vals := 0;
1720: new_combination := FALSE;
1721: v_status := FND_FLEX_SERVER1.VV_ERROR;
1722:
1723: -- Initialize everything which affects returned information. This way we
1724: -- can process all returned information before returning when exiting from
1725: -- any point in this code even if there is an error.
1732: drv_quals.nquals := 0;
1733: tbl_quals.nquals := 0;
1734: n_xcols := 0;
1735: new_comb := FALSE;
1736: errcode := FND_FLEX_SERVER1.VV_ERROR;
1737:
1738: if((concat_segs is null) and (ccid_in is null)) then
1739: entered := 'N';
1740: else
1751: end if;
1752:
1753: -- Get all required info about the desired flexfield structure.
1754: --
1755: if(FND_FLEX_SERVER2.get_keystruct(flex_app_sname, flex_code,
1756: select_comb_from_view, flex_num,
1757: kff_id, kff_info, kff_cc) = FALSE) then
1758: goto return_error;
1759: end if;
1850: goto return_error;
1851: end if;
1852:
1853: IF (get_extra_cols IS NOT NULL) THEN
1854: n_xcols := FND_FLEX_SERVER1.to_stringarray2(get_extra_cols,
1855: FND_FLEX_SERVER1.TERMINATOR, rq_xcols);
1856: ELSE
1857: n_xcols := 0;
1858: END IF;
1851: end if;
1852:
1853: IF (get_extra_cols IS NOT NULL) THEN
1854: n_xcols := FND_FLEX_SERVER1.to_stringarray2(get_extra_cols,
1855: FND_FLEX_SERVER1.TERMINATOR, rq_xcols);
1856: ELSE
1857: n_xcols := 0;
1858: END IF;
1859:
1865: end loop;
1866:
1867: -- List the parsed v-rules if any
1868: --
1869: IF (fnd_flex_server1.g_debug_level > 0) THEN
1870: if(v_rules.nvrules > 0) then
1871: FND_FLEX_SERVER1.add_debug(to_char(v_rules.nvrules) || '{Vrules: ');
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1867: -- List the parsed v-rules if any
1868: --
1869: IF (fnd_flex_server1.g_debug_level > 0) THEN
1870: if(v_rules.nvrules > 0) then
1871: FND_FLEX_SERVER1.add_debug(to_char(v_rules.nvrules) || '{Vrules: ');
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1869: IF (fnd_flex_server1.g_debug_level > 0) THEN
1870: if(v_rules.nvrules > 0) then
1871: FND_FLEX_SERVER1.add_debug(to_char(v_rules.nvrules) || '{Vrules: ');
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1870: if(v_rules.nvrules > 0) then
1871: FND_FLEX_SERVER1.add_debug(to_char(v_rules.nvrules) || '{Vrules: ');
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1871: FND_FLEX_SERVER1.add_debug(to_char(v_rules.nvrules) || '{Vrules: ');
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1879: end loop;
1872: for i in 1..v_rules.nvrules loop
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1879: end loop;
1880: FND_FLEX_SERVER1.add_debug('} ');
1873: FND_FLEX_SERVER1.add_debug('(' || v_rules.fq_names(i) || ', ');
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1879: end loop;
1880: FND_FLEX_SERVER1.add_debug('} ');
1881: end if;
1874: FND_FLEX_SERVER1.add_debug(v_rules.sq_names(i) || ', ');
1875: FND_FLEX_SERVER1.add_debug(v_rules.ie_flags(i) || ', ');
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1879: end loop;
1880: FND_FLEX_SERVER1.add_debug('} ');
1881: end if;
1882:
1876: FND_FLEX_SERVER1.add_debug(v_rules.cat_vals(i) || ', ');
1877: FND_FLEX_SERVER1.add_debug(v_rules.app_names(i) || ', ');
1878: FND_FLEX_SERVER1.add_debug(v_rules.err_names(i) || ') ');
1879: end loop;
1880: FND_FLEX_SERVER1.add_debug('} ');
1881: end if;
1882:
1883: -- Set up some debug information to return
1884: --
1881: end if;
1882:
1883: -- Set up some debug information to return
1884: --
1885: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid) ||
1886: ', User Resp = ' || to_char(user_resp) ||
1887: ', User Id = ' || to_char(userid));
1888: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ' || kff_id.application_id ||
1889: ', Flex Code = ' || flex_code ||
1884: --
1885: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid) ||
1886: ', User Resp = ' || to_char(user_resp) ||
1887: ', User Id = ' || to_char(userid));
1888: FND_FLEX_SERVER1.add_debug('Flex Appl Id = ' || kff_id.application_id ||
1889: ', Flex Code = ' || flex_code ||
1890: ', Structure Number = '|| flex_num ||
1891: ', Dinsert = ' || l_dinsert || '. ');
1892: END IF;
1924: (validate_mode in ('PARTIAL','PARTIAL_IF_POSSIBLE','FOR_INSERT')))) then
1925:
1926: -- Convert concatenated segments to array and check there are not too many
1927: --
1928: if(FND_FLEX_SERVER2.breakup_catsegs(concat_segs,
1929: kff_info.concatenated_segment_delimiter,
1930: vv_flags.values_not_ids, disp_segs, nsegs, segs) = FALSE) then
1931: goto return_error;
1932: end if;
1930: vv_flags.values_not_ids, disp_segs, nsegs, segs) = FALSE) then
1931: goto return_error;
1932: end if;
1933:
1934: IF (fnd_flex_server1.g_debug_level > 0) THEN
1935: IF (nsegs > 0) THEN
1936: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
1937: ELSE
1938: catsegs := '';
1932: end if;
1933:
1934: IF (fnd_flex_server1.g_debug_level > 0) THEN
1935: IF (nsegs > 0) THEN
1936: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
1937: ELSE
1938: catsegs := '';
1939: END IF;
1940: FND_FLEX_SERVER1.add_debug(catsegs);
1936: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
1937: ELSE
1938: catsegs := '';
1939: END IF;
1940: FND_FLEX_SERVER1.add_debug(catsegs);
1941: END IF;
1942:
1943: else
1944:
1952: end if;
1953:
1954: -- Get segment mapping to code combinations table
1955: --
1956: if(FND_FLEX_SERVER2.get_struct_cols(kff_id, kff_cc.table_application_id,
1957: kff_cc.combination_table_id, nsegs, cc_cols,
1958: cc_coltypes, segtypes) = FALSE) then
1959: goto return_error;
1960: end if;
1957: kff_cc.combination_table_id, nsegs, cc_cols,
1958: cc_coltypes, segtypes) = FALSE) then
1959: goto return_error;
1960: end if;
1961: IF (fnd_flex_server1.g_debug_level > 0) THEN
1962: FND_FLEX_SERVER1.add_debug(' LOADID() found segment mapping: [');
1963: for i in 1..nsegs loop
1964: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ' ');
1965: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||' ');
1958: cc_coltypes, segtypes) = FALSE) then
1959: goto return_error;
1960: end if;
1961: IF (fnd_flex_server1.g_debug_level > 0) THEN
1962: FND_FLEX_SERVER1.add_debug(' LOADID() found segment mapping: [');
1963: for i in 1..nsegs loop
1964: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ' ');
1965: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||' ');
1966: end loop;
1960: end if;
1961: IF (fnd_flex_server1.g_debug_level > 0) THEN
1962: FND_FLEX_SERVER1.add_debug(' LOADID() found segment mapping: [');
1963: for i in 1..nsegs loop
1964: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ' ');
1965: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||' ');
1966: end loop;
1967: FND_FLEX_SERVER1.add_debug('] ');
1968: END IF;
1961: IF (fnd_flex_server1.g_debug_level > 0) THEN
1962: FND_FLEX_SERVER1.add_debug(' LOADID() found segment mapping: [');
1963: for i in 1..nsegs loop
1964: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ' ');
1965: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||' ');
1966: end loop;
1967: FND_FLEX_SERVER1.add_debug('] ');
1968: END IF;
1969:
1963: for i in 1..nsegs loop
1964: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ' ');
1965: --FND_FLEX_SERVER1.add_debug(cc_cols(i)||':'||cc_coltypes(i)||' ');
1966: end loop;
1967: FND_FLEX_SERVER1.add_debug('] ');
1968: END IF;
1969:
1970: -- In LOADID() we have to look up the qualifier names, columns, and
1971: -- default values prior to looking for the combination. Therefore we
1973: -- POPID() and VALID() we can wait until after value validation and get
1974: -- the qualifier names and table columns from the returned qualifier info
1975: -- thus avoiding the extra table hit below.
1976: --
1977: if(FND_FLEX_SERVER2.get_all_segquals(kff_id, tbl_quals) = FALSE) then
1978: goto return_error;
1979: end if;
1980:
1981: IF (fnd_flex_server1.g_debug_level > 0) THEN
1977: if(FND_FLEX_SERVER2.get_all_segquals(kff_id, tbl_quals) = FALSE) then
1978: goto return_error;
1979: end if;
1980:
1981: IF (fnd_flex_server1.g_debug_level > 0) THEN
1982: FND_FLEX_SERVER1.add_debug(' LOADID() found qualifier cols: [');
1983: for i in 1..tbl_quals.nquals loop
1984: FND_FLEX_SERVER1.add_debug(tbl_quals.derived_cols(i) || ' ');
1985: end loop;
1978: goto return_error;
1979: end if;
1980:
1981: IF (fnd_flex_server1.g_debug_level > 0) THEN
1982: FND_FLEX_SERVER1.add_debug(' LOADID() found qualifier cols: [');
1983: for i in 1..tbl_quals.nquals loop
1984: FND_FLEX_SERVER1.add_debug(tbl_quals.derived_cols(i) || ' ');
1985: end loop;
1986: FND_FLEX_SERVER1.add_debug('] ');
1980:
1981: IF (fnd_flex_server1.g_debug_level > 0) THEN
1982: FND_FLEX_SERVER1.add_debug(' LOADID() found qualifier cols: [');
1983: for i in 1..tbl_quals.nquals loop
1984: FND_FLEX_SERVER1.add_debug(tbl_quals.derived_cols(i) || ' ');
1985: end loop;
1986: FND_FLEX_SERVER1.add_debug('] ');
1987: END IF;
1988:
1982: FND_FLEX_SERVER1.add_debug(' LOADID() found qualifier cols: [');
1983: for i in 1..tbl_quals.nquals loop
1984: FND_FLEX_SERVER1.add_debug(tbl_quals.derived_cols(i) || ' ');
1985: end loop;
1986: FND_FLEX_SERVER1.add_debug('] ');
1987: END IF;
1988:
1989: -- Next find combination by CCID
1990: --
2011: for i in 1..nsegs loop
2012: segs(i) := value_ids(i);
2013: end loop;
2014:
2015: IF (fnd_flex_server1.g_debug_level > 0) THEN
2016: FND_FLEX_SERVER1.add_debug(' LOADID() found combination. Segids: ');
2017: IF (nsegs > 0) THEN
2018: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
2019: ELSE
2012: segs(i) := value_ids(i);
2013: end loop;
2014:
2015: IF (fnd_flex_server1.g_debug_level > 0) THEN
2016: FND_FLEX_SERVER1.add_debug(' LOADID() found combination. Segids: ');
2017: IF (nsegs > 0) THEN
2018: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
2019: ELSE
2020: catsegs := '';
2014:
2015: IF (fnd_flex_server1.g_debug_level > 0) THEN
2016: FND_FLEX_SERVER1.add_debug(' LOADID() found combination. Segids: ');
2017: IF (nsegs > 0) THEN
2018: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
2019: ELSE
2020: catsegs := '';
2021: END IF;
2022: FND_FLEX_SERVER1.add_debug(catsegs);
2018: catsegs := FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*');
2019: ELSE
2020: catsegs := '';
2021: END IF;
2022: FND_FLEX_SERVER1.add_debug(catsegs);
2023: END IF;
2024:
2025: -- Next check qualifiers in the table against the vrules.
2026: -- This is done to mimic client behavior, but I think LOADID() shouldnt care.
2026: -- This is done to mimic client behavior, but I think LOADID() shouldnt care.
2027: --
2028: /* bug872437. No vrule check in loadid().
2029: errcode := check_table_comb(tbl_derv,tbl_quals,v_rules,val_date,FALSE);
2030: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2031: goto return_outvars;
2032: end if;
2033: */
2034: -- Finally, look up all the displayed values and descriptions and
2043: -- POPID() and VALID() require full value validation.
2044: -- Side effect is to fill cc_cols array with the names of the columns into
2045: -- which the segments will be inserted.
2046: --
2047: errcode := FND_FLEX_SERVER1.validate_struct(kff_id,
2048: kff_cc.table_application_id, kff_cc.combination_table_id,
2049: nsegs, segs, disp_segs, vv_flags, val_date, v_rules, user_apid,
2050: user_resp, nvals, segtypes, segcodes, cc_cols, cc_coltypes,
2051: value_dvals, value_vals, value_ids, value_descs, desc_lens,
2050: user_resp, nvals, segtypes, segcodes, cc_cols, cc_coltypes,
2051: value_dvals, value_vals, value_ids, value_descs, desc_lens,
2052: derv, drv_quals, errsegnum);
2053:
2054: IF (fnd_flex_server1.g_debug_level > 0) THEN
2055: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ' ||
2056: to_char(errcode) ||' and '|| to_char(nvals) ||
2057: ' values. SegCodes: ' || segcodes || '.' ||
2058: ' ErrSeg: ' || to_char(errsegnum));
2051: value_dvals, value_vals, value_ids, value_descs, desc_lens,
2052: derv, drv_quals, errsegnum);
2053:
2054: IF (fnd_flex_server1.g_debug_level > 0) THEN
2055: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ' ||
2056: to_char(errcode) ||' and '|| to_char(nvals) ||
2057: ' values. SegCodes: ' || segcodes || '.' ||
2058: ' ErrSeg: ' || to_char(errsegnum));
2059: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
2055: FND_FLEX_SERVER1.add_debug('SV1.validate_struct() returns errcode ' ||
2056: to_char(errcode) ||' and '|| to_char(nvals) ||
2057: ' values. SegCodes: ' || segcodes || '.' ||
2058: ' ErrSeg: ' || to_char(errsegnum));
2059: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
2060: for i in 1..nvals loop
2061: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i) ||
2062: to_char(segtypes.vs_maxsize(i), 'S099') ||
2063: '*' || value_dvals(i) || '*' ||
2057: ' values. SegCodes: ' || segcodes || '.' ||
2058: ' ErrSeg: ' || to_char(errsegnum));
2059: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
2060: for i in 1..nvals loop
2061: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i) ||
2062: to_char(segtypes.vs_maxsize(i), 'S099') ||
2063: '*' || value_dvals(i) || '*' ||
2064: cc_cols(i) || ':' || cc_coltypes(i) ||'" ');
2065: end loop;
2062: to_char(segtypes.vs_maxsize(i), 'S099') ||
2063: '*' || value_dvals(i) || '*' ||
2064: cc_cols(i) || ':' || cc_coltypes(i) ||'" ');
2065: end loop;
2066: FND_FLEX_SERVER1.add_debug('Derived values: Start Date:' ||
2067: to_char(derv.start_valid, DATE_DEBUG_FMT) ||
2068: ' End Date:' ||
2069: to_char(derv.end_valid, DATE_DEBUG_FMT) ||
2070: ' Enabled=' || derv.enabled_flag ||
2071: ' Summary=' || derv.summary_flag || '.');
2072:
2073: -- Print derived qualifiers to debug string
2074: --
2075: FND_FLEX_SERVER1.add_debug('Derived Qualifiers=');
2076: for i in 1..drv_quals.nquals LOOP
2077: FND_FLEX_SERVER1.add_debug('(' || drv_quals.fq_names(i) || ', '||
2078: drv_quals.sq_names(i) || ', ' ||
2079: drv_quals.sq_values(i) || ', ' ||
2073: -- Print derived qualifiers to debug string
2074: --
2075: FND_FLEX_SERVER1.add_debug('Derived Qualifiers=');
2076: for i in 1..drv_quals.nquals LOOP
2077: FND_FLEX_SERVER1.add_debug('(' || drv_quals.fq_names(i) || ', '||
2078: drv_quals.sq_names(i) || ', ' ||
2079: drv_quals.sq_values(i) || ', ' ||
2080: drv_quals.derived_cols(i) || ')');
2081: end loop;
2084: -- or if any errors whatsoever.
2085:
2086: if((invoking_mode = 'L') or
2087: (validate_mode in ('PARTIAL', 'PARTIAL_IF_POSSIBLE')) or
2088: (errcode <> FND_FLEX_SERVER1.VV_VALID)) then
2089: goto return_outvars;
2090: end if;
2091:
2092:
2112: -- before using it.
2113: -- Keep nice_where_cl null if in for insert mode.
2114: --
2115: if(not for_insert) then
2116: errcode:=FND_FLEX_SERVER1.parse_where_token(where_clause,nice_where_cl);
2117: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2118: goto return_outvars;
2119: end if;
2120: end if;
2113: -- Keep nice_where_cl null if in for insert mode.
2114: --
2115: if(not for_insert) then
2116: errcode:=FND_FLEX_SERVER1.parse_where_token(where_clause,nice_where_cl);
2117: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2118: goto return_outvars;
2119: end if;
2120: end if;
2121:
2142: -- If combination does not exist continue on.
2143: --
2144: if((nfound = 1) and (ccid_in is not null) and (ccid_in <> 0) and
2145: (ccid_in <> -1) and (comb_id = ccid_in)) then
2146: errcode := FND_FLEX_SERVER1.VV_VALID;
2147: goto return_outvars;
2148: elsif(nfound >= 1) then
2149: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2150: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2146: errcode := FND_FLEX_SERVER1.VV_VALID;
2147: goto return_outvars;
2148: elsif(nfound >= 1) then
2149: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2150: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2151: goto return_outvars;
2152: else
2153: if(nfound <> 0) then
2154: goto return_error;
2158: else
2159:
2160: if(nfound > 0) then
2161: new_comb := FALSE;
2162: IF (fnd_flex_server1.g_debug_level > 0) THEN
2163: FND_FLEX_SERVER1.add_debug(' Combination already exists. CCID = ');
2164: FND_FLEX_SERVER1.add_debug(to_char(comb_id));
2165: END IF;
2166: end if;
2159:
2160: if(nfound > 0) then
2161: new_comb := FALSE;
2162: IF (fnd_flex_server1.g_debug_level > 0) THEN
2163: FND_FLEX_SERVER1.add_debug(' Combination already exists. CCID = ');
2164: FND_FLEX_SERVER1.add_debug(to_char(comb_id));
2165: END IF;
2166: end if;
2167:
2160: if(nfound > 0) then
2161: new_comb := FALSE;
2162: IF (fnd_flex_server1.g_debug_level > 0) THEN
2163: FND_FLEX_SERVER1.add_debug(' Combination already exists. CCID = ');
2164: FND_FLEX_SERVER1.add_debug(to_char(comb_id));
2165: END IF;
2166: end if;
2167:
2168: -- If found, Check qualifiers in the table against the vrules and return.
2196: IF (NOT parse_set_msg(where_clause_msg)) THEN
2197: FND_MESSAGE.set_name('FND', 'FLEX-WHERE CLAUSE FAILURE');
2198: FND_MESSAGE.set_token('WHERE', where_clause);
2199: END IF;
2200: errcode := FND_FLEX_SERVER1.VV_WHEREFAILURE;
2201: goto return_outvars;
2202: elsif((nfound > 1) or (nfound < 0)) then
2203: goto return_error;
2204: else
2214: if(not dynam_insrt) THEN
2215: IF (NOT parse_set_msg(no_combmsg)) THEN
2216: FND_MESSAGE.set_name('FND', 'FLEX-NO DYNAMIC INSERTS');
2217: END IF;
2218: errcode := FND_FLEX_SERVER1.VV_COMBNOTFOUND;
2219: goto return_outvars;
2220: end if;
2221:
2222:
2222:
2223: -- Next do the cross validation if flag is set.
2224: --
2225: if(kff_info.cross_segment_validation_flag = 'Y') then
2226: errcode := FND_FLEX_SERVER2.cross_validate(nvals, value_vals, segtypes,
2227: val_date, kff_id, error_col);
2228: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2229: errsegnum := find_column_index(cc_cols, nvals, error_col);
2230: IF (fnd_flex_server1.g_debug_level > 0) THEN
2224: --
2225: if(kff_info.cross_segment_validation_flag = 'Y') then
2226: errcode := FND_FLEX_SERVER2.cross_validate(nvals, value_vals, segtypes,
2227: val_date, kff_id, error_col);
2228: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2229: errsegnum := find_column_index(cc_cols, nvals, error_col);
2230: IF (fnd_flex_server1.g_debug_level > 0) THEN
2231: FND_FLEX_SERVER1.add_debug(' CROSS-VALIDATION-INVALID ON SEG ' ||
2232: to_char(errsegnum) || '. ');
2226: errcode := FND_FLEX_SERVER2.cross_validate(nvals, value_vals, segtypes,
2227: val_date, kff_id, error_col);
2228: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2229: errsegnum := find_column_index(cc_cols, nvals, error_col);
2230: IF (fnd_flex_server1.g_debug_level > 0) THEN
2231: FND_FLEX_SERVER1.add_debug(' CROSS-VALIDATION-INVALID ON SEG ' ||
2232: to_char(errsegnum) || '. ');
2233: END IF;
2234: goto return_outvars;
2227: val_date, kff_id, error_col);
2228: if(errcode <> FND_FLEX_SERVER1.VV_VALID) then
2229: errsegnum := find_column_index(cc_cols, nvals, error_col);
2230: IF (fnd_flex_server1.g_debug_level > 0) THEN
2231: FND_FLEX_SERVER1.add_debug(' CROSS-VALIDATION-INVALID ON SEG ' ||
2232: to_char(errsegnum) || '. ');
2233: END IF;
2234: goto return_outvars;
2235: end if;
2255: -- We will not do the real insert, we will just lock the
2256: -- hash number, and let Maintenenace Form do the insert.
2257: -- So no need to call AutoTrans function.
2258: --
2259: IF (fnd_flex_server1.g_debug_level > 0) THEN
2260: fnd_flex_server1.add_debug('FOR_INSERT:Maintenance Form');
2261: END IF;
2262: SAVEPOINT pre_insert_comb;
2263:
2256: -- hash number, and let Maintenenace Form do the insert.
2257: -- So no need to call AutoTrans function.
2258: --
2259: IF (fnd_flex_server1.g_debug_level > 0) THEN
2260: fnd_flex_server1.add_debug('FOR_INSERT:Maintenance Form');
2261: END IF;
2262: SAVEPOINT pre_insert_comb;
2263:
2264:
2272: ROLLBACK TO SAVEPOINT pre_insert_comb;
2273: goto return_error;
2274: end if;
2275:
2276: if(FND_FLEX_SERVER2.x_drop_cached_cv_result(kff_id, nvals, value_vals)
2277: = FALSE) then
2278: ROLLBACK TO SAVEPOINT pre_insert_comb;
2279: goto return_error;
2280: end if;
2286: ROLLBACK TO SAVEPOINT pre_insert_comb;
2287: goto return_error;
2288: end if;
2289: end if;
2290: errcode := FND_FLEX_SERVER1.VV_VALID;
2291: else
2292: ROLLBACK TO SAVEPOINT pre_insert_comb;
2293: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2294: (ccid_in = -1) or (comb_id <> ccid_in))) then
2292: ROLLBACK TO SAVEPOINT pre_insert_comb;
2293: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2294: (ccid_in = -1) or (comb_id <> ccid_in))) then
2295: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2296: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2297: goto return_error;
2298: end if;
2299: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2300: val_date,TRUE);
2304: --
2305: -- We are called from a foreign key form.
2306: -- In this case use the AutoTrans.
2307: --
2308: IF (fnd_flex_server1.g_debug_level > 0) THEN
2309: fnd_flex_server1.add_debug('Autonomous Transaction');
2310: END IF;
2311: if(insert_combination_at
2312: (kff_id, cc_struct, for_insert, val_date,
2305: -- We are called from a foreign key form.
2306: -- In this case use the AutoTrans.
2307: --
2308: IF (fnd_flex_server1.g_debug_level > 0) THEN
2309: fnd_flex_server1.add_debug('Autonomous Transaction');
2310: END IF;
2311: if(insert_combination_at
2312: (kff_id, cc_struct, for_insert, val_date,
2313: kff_info.concatenated_segment_delimiter,
2318: comb_id) = FALSE) then
2319: goto return_error;
2320: end if;
2321: IF (new_comb) THEN
2322: errcode := FND_FLEX_SERVER1.VV_VALID;
2323: ELSE
2324: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2325: (ccid_in = -1) or (comb_id <> ccid_in))) then
2326: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2323: ELSE
2324: if(for_insert and ((ccid_in is null) or (ccid_in = 0) or
2325: (ccid_in = -1) or (comb_id <> ccid_in))) then
2326: FND_MESSAGE.set_name('FND', 'FLEX-COMB. ALREADY EXISTS');
2327: errcode := FND_FLEX_SERVER1.VV_COMBEXISTS;
2328: goto return_error;
2329: end if;
2330: errcode:=check_table_comb(tbl_derv,tbl_quals,v_rules,
2331: val_date,TRUE);
2335: comb_id := ccid_in;
2336: else
2337: comb_id := -1;
2338: end if;
2339: errcode := FND_FLEX_SERVER1.VV_VALID;
2340: elsif((invoking_mode = 'V') and (defer_insrt = TRUE)) then
2341: comb_id := -1;
2342: errcode := FND_FLEX_SERVER1.VV_VALID;
2343: else
2338: end if;
2339: errcode := FND_FLEX_SERVER1.VV_VALID;
2340: elsif((invoking_mode = 'V') and (defer_insrt = TRUE)) then
2341: comb_id := -1;
2342: errcode := FND_FLEX_SERVER1.VV_VALID;
2343: else
2344: errcode := FND_FLEX_SERVER1.VV_ERROR;
2345: end if;
2346:
2340: elsif((invoking_mode = 'V') and (defer_insrt = TRUE)) then
2341: comb_id := -1;
2342: errcode := FND_FLEX_SERVER1.VV_VALID;
2343: else
2344: errcode := FND_FLEX_SERVER1.VV_ERROR;
2345: end if;
2346:
2347: <
2348: displayed_vals := value_dvals;
2369: v_status := errcode;
2370: GOTO goto_return;
2371:
2372: <
2373: v_status := FND_FLEX_SERVER1.VV_ERROR;
2374: GOTO goto_return;
2375:
2376: <
2377: IF (fnd_flex_server1.g_debug_level > 0) THEN
2373: v_status := FND_FLEX_SERVER1.VV_ERROR;
2374: GOTO goto_return;
2375:
2376: <
2377: IF (fnd_flex_server1.g_debug_level > 0) THEN
2378: fnd_flex_server1.add_debug('END SSV.validation_engine()');
2379: END IF;
2380: RETURN;
2381:
2374: GOTO goto_return;
2375:
2376: <
2377: IF (fnd_flex_server1.g_debug_level > 0) THEN
2378: fnd_flex_server1.add_debug('END SSV.validation_engine()');
2379: END IF;
2380: RETURN;
2381:
2382: EXCEPTION
2382: EXCEPTION
2383: WHEN OTHERS then
2384: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2385: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2386: v_status := FND_FLEX_SERVER1.VV_ERROR;
2387: IF (fnd_flex_server1.g_debug_level > 0) THEN
2388: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2389: END IF;
2390: return;
2383: WHEN OTHERS then
2384: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2385: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2386: v_status := FND_FLEX_SERVER1.VV_ERROR;
2387: IF (fnd_flex_server1.g_debug_level > 0) THEN
2388: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2389: END IF;
2390: return;
2391: END validation_engine;
2384: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
2385: FND_MESSAGE.set_token('MSG','SSV.validation_engine() exception: '||SQLERRM);
2386: v_status := FND_FLEX_SERVER1.VV_ERROR;
2387: IF (fnd_flex_server1.g_debug_level > 0) THEN
2388: fnd_flex_server1.add_debug('EXCEPTION others SSV.validation_engine()');
2389: END IF;
2390: return;
2391: END validation_engine;
2392:
2463: /* Returns number of combinations found or < 0 if error. */
2464: /* If combination not found, all output variables are null. */
2465: /* ----------------------------------------------------------------------- */
2466: FUNCTION find_combination(structnum IN NUMBER,
2467: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2468: nsegs IN NUMBER,
2469: combcols IN FND_FLEX_SERVER1.TabColArray,
2470: combtypes IN FND_FLEX_SERVER1.CharArray,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2465: /* ----------------------------------------------------------------------- */
2466: FUNCTION find_combination(structnum IN NUMBER,
2467: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2468: nsegs IN NUMBER,
2469: combcols IN FND_FLEX_SERVER1.TabColArray,
2470: combtypes IN FND_FLEX_SERVER1.CharArray,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2472: nquals IN NUMBER,
2473: qualcols IN FND_FLEX_SERVER1.TabColArray,
2466: FUNCTION find_combination(structnum IN NUMBER,
2467: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2468: nsegs IN NUMBER,
2469: combcols IN FND_FLEX_SERVER1.TabColArray,
2470: combtypes IN FND_FLEX_SERVER1.CharArray,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2472: nquals IN NUMBER,
2473: qualcols IN FND_FLEX_SERVER1.TabColArray,
2474: nxcols IN NUMBER,
2467: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2468: nsegs IN NUMBER,
2469: combcols IN FND_FLEX_SERVER1.TabColArray,
2470: combtypes IN FND_FLEX_SERVER1.CharArray,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2472: nquals IN NUMBER,
2473: qualcols IN FND_FLEX_SERVER1.TabColArray,
2474: nxcols IN NUMBER,
2475: xcolnames IN FND_FLEX_SERVER1.StringArray,
2469: combcols IN FND_FLEX_SERVER1.TabColArray,
2470: combtypes IN FND_FLEX_SERVER1.CharArray,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2472: nquals IN NUMBER,
2473: qualcols IN FND_FLEX_SERVER1.TabColArray,
2474: nxcols IN NUMBER,
2475: xcolnames IN FND_FLEX_SERVER1.StringArray,
2476: where_cl IN VARCHAR2,
2477: ccid IN OUT nocopy NUMBER,
2471: segfmts IN FND_FLEX_SERVER1.SegFormats,
2472: nquals IN NUMBER,
2473: qualcols IN FND_FLEX_SERVER1.TabColArray,
2474: nxcols IN NUMBER,
2475: xcolnames IN FND_FLEX_SERVER1.StringArray,
2476: where_cl IN VARCHAR2,
2477: ccid IN OUT nocopy NUMBER,
2478: segids IN OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
2479: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2474: nxcols IN NUMBER,
2475: xcolnames IN FND_FLEX_SERVER1.StringArray,
2476: where_cl IN VARCHAR2,
2477: ccid IN OUT nocopy NUMBER,
2478: segids IN OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
2479: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2480: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2481: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray)
2482: RETURN NUMBER IS
2475: xcolnames IN FND_FLEX_SERVER1.StringArray,
2476: where_cl IN VARCHAR2,
2477: ccid IN OUT nocopy NUMBER,
2478: segids IN OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
2479: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2480: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2481: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray)
2482: RETURN NUMBER IS
2483: offset BINARY_INTEGER;
2476: where_cl IN VARCHAR2,
2477: ccid IN OUT nocopy NUMBER,
2478: segids IN OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
2479: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2480: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2481: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray)
2482: RETURN NUMBER IS
2483: offset BINARY_INTEGER;
2484: nrecords NUMBER;
2477: ccid IN OUT nocopy NUMBER,
2478: segids IN OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
2479: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2480: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2481: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray)
2482: RETURN NUMBER IS
2483: offset BINARY_INTEGER;
2484: nrecords NUMBER;
2485: colvals FND_FLEX_SERVER1.StringArray;
2481: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray)
2482: RETURN NUMBER IS
2483: offset BINARY_INTEGER;
2484: nrecords NUMBER;
2485: colvals FND_FLEX_SERVER1.StringArray;
2486: l_vc2 VARCHAR2(100);
2487:
2488: BEGIN
2489:
2497:
2498: sqls := 'select to_char(' || combtbl.unique_id_column_name || '), ';
2499: sqls := sqls || 'nvl(ENABLED_FLAG, ''Y''), nvl(SUMMARY_FLAG, ''N''), ';
2500: sqls := sqls || 'to_char(START_DATE_ACTIVE, ''' ||
2501: FND_FLEX_SERVER1.DATETIME_FMT || '''), ';
2502: sqls := sqls || 'to_char(END_DATE_ACTIVE, ''' ||
2503: FND_FLEX_SERVER1.DATETIME_FMT || ''')';
2504: for i in 1..nsegs loop
2505: sqls := sqls || ', ' || FND_FLEX_SERVER1.select_clause(combcols(i),
2499: sqls := sqls || 'nvl(ENABLED_FLAG, ''Y''), nvl(SUMMARY_FLAG, ''N''), ';
2500: sqls := sqls || 'to_char(START_DATE_ACTIVE, ''' ||
2501: FND_FLEX_SERVER1.DATETIME_FMT || '''), ';
2502: sqls := sqls || 'to_char(END_DATE_ACTIVE, ''' ||
2503: FND_FLEX_SERVER1.DATETIME_FMT || ''')';
2504: for i in 1..nsegs loop
2505: sqls := sqls || ', ' || FND_FLEX_SERVER1.select_clause(combcols(i),
2506: combtypes(i), FND_FLEX_SERVER1.VC_ID,
2507: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2501: FND_FLEX_SERVER1.DATETIME_FMT || '''), ';
2502: sqls := sqls || 'to_char(END_DATE_ACTIVE, ''' ||
2503: FND_FLEX_SERVER1.DATETIME_FMT || ''')';
2504: for i in 1..nsegs loop
2505: sqls := sqls || ', ' || FND_FLEX_SERVER1.select_clause(combcols(i),
2506: combtypes(i), FND_FLEX_SERVER1.VC_ID,
2507: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2508: end loop;
2509: for i in 1..nquals loop
2502: sqls := sqls || 'to_char(END_DATE_ACTIVE, ''' ||
2503: FND_FLEX_SERVER1.DATETIME_FMT || ''')';
2504: for i in 1..nsegs loop
2505: sqls := sqls || ', ' || FND_FLEX_SERVER1.select_clause(combcols(i),
2506: combtypes(i), FND_FLEX_SERVER1.VC_ID,
2507: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2508: end loop;
2509: for i in 1..nquals loop
2510: sqls := sqls || ', ' || qualcols(i);
2540: fnd_dsql.add_text(' = ');
2541: --
2542: -- This will call fnd_dsql.add_bind
2543: --
2544: fnd_flex_server1.x_compare_clause
2545: (combtypes(i),
2546: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
2547: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2548:
2542: -- This will call fnd_dsql.add_bind
2543: --
2544: fnd_flex_server1.x_compare_clause
2545: (combtypes(i),
2546: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
2547: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2548:
2549: fnd_dsql.add_text(')');
2550: end if;
2564:
2565: --
2566: -- This will use the sql string stored in fnd_dsql package.
2567: --
2568: nrecords := fnd_flex_server1.x_dsql_select(nsegs + nquals + nxcols + 5,
2569: colvals);
2570:
2571: -- Return output information.
2572: --
2576: --
2577: ccid := to_number(colvals(1));
2578: tblderv.enabled_flag := colvals(2);
2579: tblderv.summary_flag := colvals(3);
2580: tblderv.start_valid := to_date(colvals(4),FND_FLEX_SERVER1.DATETIME_FMT);
2581: tblderv.end_valid := to_date(colvals(5), FND_FLEX_SERVER1.DATETIME_FMT);
2582:
2583: -- Copy segment column values to output
2584: --
2577: ccid := to_number(colvals(1));
2578: tblderv.enabled_flag := colvals(2);
2579: tblderv.summary_flag := colvals(3);
2580: tblderv.start_valid := to_date(colvals(4),FND_FLEX_SERVER1.DATETIME_FMT);
2581: tblderv.end_valid := to_date(colvals(5), FND_FLEX_SERVER1.DATETIME_FMT);
2582:
2583: -- Copy segment column values to output
2584: --
2585: offset := 5;
2673: /* of if it returns new_comb = FALSE to unlock the hash number. */
2674: /* */
2675: /* Returns TRUE on success or FALSE and sets message on error. */
2676: /* ----------------------------------------------------------------------- */
2677: FUNCTION insert_combination(fstruct IN FND_FLEX_SERVER1.FlexStructId,
2678: structnum IN NUMBER,
2679: maintmode IN BOOLEAN,
2680: v_date IN DATE,
2681: seg_delim IN VARCHAR2,
2679: maintmode IN BOOLEAN,
2680: v_date IN DATE,
2681: seg_delim IN VARCHAR2,
2682: ccid_inp IN NUMBER,
2683: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2684: combcols IN FND_FLEX_SERVER1.TabColArray,
2685: combtypes IN FND_FLEX_SERVER1.CharArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2680: v_date IN DATE,
2681: seg_delim IN VARCHAR2,
2682: ccid_inp IN NUMBER,
2683: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2684: combcols IN FND_FLEX_SERVER1.TabColArray,
2685: combtypes IN FND_FLEX_SERVER1.CharArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2681: seg_delim IN VARCHAR2,
2682: ccid_inp IN NUMBER,
2683: combtbl IN FND_FLEX_SERVER1.CombTblInfo,
2684: combcols IN FND_FLEX_SERVER1.TabColArray,
2685: combtypes IN FND_FLEX_SERVER1.CharArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2684: combcols IN FND_FLEX_SERVER1.TabColArray,
2685: combtypes IN FND_FLEX_SERVER1.CharArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2685: combtypes IN FND_FLEX_SERVER1.CharArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2686: user_id IN NUMBER,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2687: nsegs IN NUMBER,
2688: segids_in IN FND_FLEX_SERVER1.ValueIdArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2695: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2689: segfmts IN FND_FLEX_SERVER1.SegFormats,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2695: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2696: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2697: newcomb OUT nocopy BOOLEAN,
2690: dvalues IN FND_FLEX_SERVER1.DerivedVals,
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2695: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2696: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2697: newcomb OUT nocopy BOOLEAN,
2698: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN IS
2691: dquals IN FND_FLEX_SERVER1.Qualifiers,
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2695: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2696: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2697: newcomb OUT nocopy BOOLEAN,
2698: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN IS
2699:
2692: nxcols IN NUMBER,
2693: xcolnames IN FND_FLEX_SERVER1.StringArray,
2694: xcolvals OUT nocopy FND_FLEX_SERVER1.StringArray,
2695: qualvals OUT nocopy FND_FLEX_SERVER1.ValAttribArray,
2696: tblderv OUT nocopy FND_FLEX_SERVER1.DerivedVals,
2697: newcomb OUT nocopy BOOLEAN,
2698: ccid_out OUT nocopy NUMBER) RETURN BOOLEAN IS
2699:
2700: deadlock EXCEPTION;
2702: nfound NUMBER;
2703: hash_num NUMBER;
2704: hash_number NUMBER;
2705: ccid_string VARCHAR2(50);
2706: segids FND_FLEX_SERVER1.ValueIdArray;
2707:
2708: PRAGMA EXCEPTION_INIT(deadlock, -60);
2709:
2710: BEGIN
2711:
2712: -- For debugging...
2713: --
2714:
2715: IF (fnd_flex_server1.g_debug_level > 0) THEN
2716: FND_FLEX_SERVER1.add_debug(to_char(nsegs) ||
2717: ' segs passed to insert_combination().');
2718: END IF;
2719:
2712: -- For debugging...
2713: --
2714:
2715: IF (fnd_flex_server1.g_debug_level > 0) THEN
2716: FND_FLEX_SERVER1.add_debug(to_char(nsegs) ||
2717: ' segs passed to insert_combination().');
2718: END IF;
2719:
2720: -- First lock this combination and prevent other users from inserting.
2730: sqls := sqls || ' in row share mode';
2731:
2732: fnd_dsql.init;
2733: fnd_dsql.add_text(sqls);
2734: if(FND_FLEX_SERVER1.x_dsql_execute < 0) then
2735: return(FALSE);
2736: end if;
2737:
2738: -- Next compute the hash number that is to be locked.
2741: if(hash_number < 0) then
2742: return(FALSE);
2743: end if;
2744:
2745: IF (fnd_flex_server1.g_debug_level > 0) THEN
2746: FND_FLEX_SERVER1.add_debug('Hash value = '||to_char(hash_number)||'.');
2747: END IF;
2748: SELECT hash_value INTO hash_num FROM fnd_flex_hash
2749: WHERE hash_value = hash_number FOR UPDATE;
2742: return(FALSE);
2743: end if;
2744:
2745: IF (fnd_flex_server1.g_debug_level > 0) THEN
2746: FND_FLEX_SERVER1.add_debug('Hash value = '||to_char(hash_number)||'.');
2747: END IF;
2748: SELECT hash_value INTO hash_num FROM fnd_flex_hash
2749: WHERE hash_value = hash_number FOR UPDATE;
2750:
2776: sqls := 'select to_char(' || combtbl.application_table_name;
2777: sqls := sqls || '_S.NEXTVAL) from dual';
2778: fnd_dsql.init;
2779: fnd_dsql.add_text(sqls);
2780: if(FND_FLEX_SERVER1.x_dsql_select_one(ccid_string) <> 1) then
2781: return(FALSE);
2782: end if;
2783: ccid := to_number(ccid_string);
2784: if(ccid > MAX_CCID) then
2857: fnd_dsql.add_text(',');
2858: --
2859: -- This will call fnd_dsql.add_bind
2860: --
2861: fnd_flex_server1.x_compare_clause
2862: (combtypes(i),
2863: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
2864: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2865: end if;
2859: -- This will call fnd_dsql.add_bind
2860: --
2861: fnd_flex_server1.x_compare_clause
2862: (combtypes(i),
2863: combcols(i), segids(i), FND_FLEX_SERVER1.VC_ID,
2864: segfmts.vs_format(i), segfmts.vs_maxsize(i));
2865: end if;
2866: end loop;
2867: fnd_dsql.add_text(')');
2868:
2869: --
2870: -- Finally do the insert
2871: --
2872: if(FND_FLEX_SERVER1.x_dsql_execute < 0) then
2873: return(FALSE);
2874: end if;
2875: end if;
2876:
2876:
2877: -- Return all out variables. If comb was found in table these were set
2878: -- above.
2879: --
2880: IF (fnd_flex_server1.g_debug_level > 0) THEN
2881: FND_FLEX_SERVER1.add_debug(' Returning ccid = '||to_char(ccid) || '. ');
2882: END IF;
2883: ccid_out := ccid;
2884: newcomb := TRUE;
2877: -- Return all out variables. If comb was found in table these were set
2878: -- above.
2879: --
2880: IF (fnd_flex_server1.g_debug_level > 0) THEN
2881: FND_FLEX_SERVER1.add_debug(' Returning ccid = '||to_char(ccid) || '. ');
2882: END IF;
2883: ccid_out := ccid;
2884: newcomb := TRUE;
2885: tblderv := dvalues;
2922: /* up to 64K for multi-byte characters. Multiply code for each char */
2923: /* by the characters position to make non-commutative */
2924: /* ----------------------------------------------------------------------- */
2925:
2926: FUNCTION hash_segs(n IN NUMBER, segs IN FND_FLEX_SERVER1.ValueIdArray)
2927: RETURN NUMBER IS
2928:
2929: hval NUMBER;
2930: cval NUMBER;
2963: /* flags if check_effective flag is TRUE. */
2964: /* Error code indicating result of validation. VV_VALID means all ok */
2965: /* ----------------------------------------------------------------------- */
2966:
2967: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
2968: t_quals IN FND_FLEX_SERVER1.Qualifiers,
2969: v_rules IN FND_FLEX_SERVER1.Vrules,
2970: v_date IN DATE,
2971: check_effective IN BOOLEAN) RETURN NUMBER IS
2964: /* Error code indicating result of validation. VV_VALID means all ok */
2965: /* ----------------------------------------------------------------------- */
2966:
2967: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
2968: t_quals IN FND_FLEX_SERVER1.Qualifiers,
2969: v_rules IN FND_FLEX_SERVER1.Vrules,
2970: v_date IN DATE,
2971: check_effective IN BOOLEAN) RETURN NUMBER IS
2972: BEGIN
2965: /* ----------------------------------------------------------------------- */
2966:
2967: FUNCTION check_table_comb(t_dval IN FND_FLEX_SERVER1.DerivedVals,
2968: t_quals IN FND_FLEX_SERVER1.Qualifiers,
2969: v_rules IN FND_FLEX_SERVER1.Vrules,
2970: v_date IN DATE,
2971: check_effective IN BOOLEAN) RETURN NUMBER IS
2972: BEGIN
2973:
2972: BEGIN
2973:
2974: -- Print table segments, qualifiers, extra columns and effectivity info.
2975: --
2976: IF (fnd_flex_server1.g_debug_level > 0) THEN
2977: FND_FLEX_SERVER1.add_debug('Check expiration/vrules on table quals.');
2978:
2979: FND_FLEX_SERVER1.add_debug('Qualifiers: ');
2980: for i in 1..t_quals.nquals loop
2973:
2974: -- Print table segments, qualifiers, extra columns and effectivity info.
2975: --
2976: IF (fnd_flex_server1.g_debug_level > 0) THEN
2977: FND_FLEX_SERVER1.add_debug('Check expiration/vrules on table quals.');
2978:
2979: FND_FLEX_SERVER1.add_debug('Qualifiers: ');
2980: for i in 1..t_quals.nquals loop
2981: FND_FLEX_SERVER1.add_debug('(' || t_quals.sq_names(i) || ' = ');
2975: --
2976: IF (fnd_flex_server1.g_debug_level > 0) THEN
2977: FND_FLEX_SERVER1.add_debug('Check expiration/vrules on table quals.');
2978:
2979: FND_FLEX_SERVER1.add_debug('Qualifiers: ');
2980: for i in 1..t_quals.nquals loop
2981: FND_FLEX_SERVER1.add_debug('(' || t_quals.sq_names(i) || ' = ');
2982: FND_FLEX_SERVER1.add_debug(t_quals.sq_values(i) || ') ');
2983: end loop;
2977: FND_FLEX_SERVER1.add_debug('Check expiration/vrules on table quals.');
2978:
2979: FND_FLEX_SERVER1.add_debug('Qualifiers: ');
2980: for i in 1..t_quals.nquals loop
2981: FND_FLEX_SERVER1.add_debug('(' || t_quals.sq_names(i) || ' = ');
2982: FND_FLEX_SERVER1.add_debug(t_quals.sq_values(i) || ') ');
2983: end loop;
2984:
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2978:
2979: FND_FLEX_SERVER1.add_debug('Qualifiers: ');
2980: for i in 1..t_quals.nquals loop
2981: FND_FLEX_SERVER1.add_debug('(' || t_quals.sq_names(i) || ' = ');
2982: FND_FLEX_SERVER1.add_debug(t_quals.sq_values(i) || ') ');
2983: end loop;
2984:
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2986: FND_FLEX_SERVER1.add_debug
2981: FND_FLEX_SERVER1.add_debug('(' || t_quals.sq_names(i) || ' = ');
2982: FND_FLEX_SERVER1.add_debug(t_quals.sq_values(i) || ') ');
2983: end loop;
2984:
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2986: FND_FLEX_SERVER1.add_debug
2987: (' Starts: ' || to_char(t_dval.start_valid,
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2982: FND_FLEX_SERVER1.add_debug(t_quals.sq_values(i) || ') ');
2983: end loop;
2984:
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2986: FND_FLEX_SERVER1.add_debug
2987: (' Starts: ' || to_char(t_dval.start_valid,
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2990: (' Ends: ' || to_char(t_dval.end_valid,
2984:
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2986: FND_FLEX_SERVER1.add_debug
2987: (' Starts: ' || to_char(t_dval.start_valid,
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2990: (' Ends: ' || to_char(t_dval.end_valid,
2991: FND_FLEX_SERVER1.DATETIME_FMT));
2992: FND_FLEX_SERVER1.add_debug(' Summary Flag: ' || t_dval.summary_flag);
2985: FND_FLEX_SERVER1.add_debug('Enabled: ' || t_dval.enabled_flag);
2986: FND_FLEX_SERVER1.add_debug
2987: (' Starts: ' || to_char(t_dval.start_valid,
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2990: (' Ends: ' || to_char(t_dval.end_valid,
2991: FND_FLEX_SERVER1.DATETIME_FMT));
2992: FND_FLEX_SERVER1.add_debug(' Summary Flag: ' || t_dval.summary_flag);
2993: END IF;
2987: (' Starts: ' || to_char(t_dval.start_valid,
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2990: (' Ends: ' || to_char(t_dval.end_valid,
2991: FND_FLEX_SERVER1.DATETIME_FMT));
2992: FND_FLEX_SERVER1.add_debug(' Summary Flag: ' || t_dval.summary_flag);
2993: END IF;
2994: -- Check if combination turned on
2995: --
2988: FND_FLEX_SERVER1.DATETIME_FMT));
2989: FND_FLEX_SERVER1.add_debug
2990: (' Ends: ' || to_char(t_dval.end_valid,
2991: FND_FLEX_SERVER1.DATETIME_FMT));
2992: FND_FLEX_SERVER1.add_debug(' Summary Flag: ' || t_dval.summary_flag);
2993: END IF;
2994: -- Check if combination turned on
2995: --
2996: if(check_effective) then
2995: --
2996: if(check_effective) then
2997: if(t_dval.enabled_flag <> 'Y') then
2998: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION DISABLED');
2999: return(FND_FLEX_SERVER1.VV_VALUES);
3000: end if;
3001: if((v_date is not null) and
3002: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3003: (Trunc(v_date) > Trunc(nvl(t_dval.end_valid, v_date))))) then
3001: if((v_date is not null) and
3002: ((Trunc(v_date) < Trunc(nvl(t_dval.start_valid, v_date))) or
3003: (Trunc(v_date) > Trunc(nvl(t_dval.end_valid, v_date))))) then
3004: FND_MESSAGE.set_name('FND', 'FLEX-COMBINATION HAS EXPIRED');
3005: return(FND_FLEX_SERVER1.VV_VALUES);
3006: end if;
3007: end if;
3008:
3009: -- Check vrules.
3007: end if;
3008:
3009: -- Check vrules.
3010: --
3011: return(FND_FLEX_SERVER1.check_comb_vrules(v_rules, t_quals,
3012: t_dval.summary_flag));
3013: EXCEPTION
3014: WHEN OTHERS then
3015: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3013: EXCEPTION
3014: WHEN OTHERS then
3015: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
3016: FND_MESSAGE.set_token('MSG','check_table_comb() exception: '||SQLERRM);
3017: return(FND_FLEX_SERVER1.VV_ERROR);
3018:
3019: END check_table_comb;
3020:
3021: /* ----------------------------------------------------------------------- */
3022: /* Determines the segment number of the given column name. */
3023: /* Returns null without erroring if the name is not on the list. */
3024: /* ----------------------------------------------------------------------- */
3025:
3026: FUNCTION find_column_index(column_list IN FND_FLEX_SERVER1.TabColArray,
3027: column_count IN NUMBER,
3028: colname IN VARCHAR2) RETURN NUMBER IS
3029: colnum NUMBER;
3030:
3047: /* Concatenates only displayed values. */
3048: /* ----------------------------------------------------------------------- */
3049:
3050: FUNCTION concatenate_values(nvals IN NUMBER,
3051: vals IN FND_FLEX_SERVER1.ValueArray,
3052: displ FND_FLEX_SERVER1.DisplayedSegs,
3053: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3054: n_displayed NUMBER;
3055: str FND_FLEX_SERVER1.StringArray;
3048: /* ----------------------------------------------------------------------- */
3049:
3050: FUNCTION concatenate_values(nvals IN NUMBER,
3051: vals IN FND_FLEX_SERVER1.ValueArray,
3052: displ FND_FLEX_SERVER1.DisplayedSegs,
3053: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3054: n_displayed NUMBER;
3055: str FND_FLEX_SERVER1.StringArray;
3056: BEGIN
3051: vals IN FND_FLEX_SERVER1.ValueArray,
3052: displ FND_FLEX_SERVER1.DisplayedSegs,
3053: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3054: n_displayed NUMBER;
3055: str FND_FLEX_SERVER1.StringArray;
3056: BEGIN
3057: IF (fnd_flex_server1.g_debug_level > 0) THEN
3058: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_values()');
3059: END IF;
3053: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3054: n_displayed NUMBER;
3055: str FND_FLEX_SERVER1.StringArray;
3056: BEGIN
3057: IF (fnd_flex_server1.g_debug_level > 0) THEN
3058: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_values()');
3059: END IF;
3060: n_displayed := 0;
3061: for i in 1..nvals loop
3054: n_displayed NUMBER;
3055: str FND_FLEX_SERVER1.StringArray;
3056: BEGIN
3057: IF (fnd_flex_server1.g_debug_level > 0) THEN
3058: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_values()');
3059: END IF;
3060: n_displayed := 0;
3061: for i in 1..nvals loop
3062: if((i <= displ.n_segflags) and displ.segflags(i)) then
3065: end if;
3066: end loop;
3067:
3068: IF (n_displayed > 1) THEN
3069: return(FND_FLEX_SERVER1.from_stringarray(n_displayed, str, delimiter));
3070: ELSIF (n_displayed = 1) then
3071: return(str(1));
3072: ELSE
3073: RETURN (NULL);
3080: /* Concatenates all ids whether or not their segments are displayed. */
3081: /* ----------------------------------------------------------------------- */
3082:
3083: FUNCTION concatenate_ids(nids IN NUMBER,
3084: ids IN FND_FLEX_SERVER1.ValueIdArray,
3085: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3086: str FND_FLEX_SERVER1.StringArray;
3087: BEGIN
3088: IF (fnd_flex_server1.g_debug_level > 0) THEN
3082:
3083: FUNCTION concatenate_ids(nids IN NUMBER,
3084: ids IN FND_FLEX_SERVER1.ValueIdArray,
3085: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3086: str FND_FLEX_SERVER1.StringArray;
3087: BEGIN
3088: IF (fnd_flex_server1.g_debug_level > 0) THEN
3089: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_ids()');
3090: END IF;
3084: ids IN FND_FLEX_SERVER1.ValueIdArray,
3085: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3086: str FND_FLEX_SERVER1.StringArray;
3087: BEGIN
3088: IF (fnd_flex_server1.g_debug_level > 0) THEN
3089: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_ids()');
3090: END IF;
3091: if(nids = 1) then
3092: return(ids(1));
3085: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3086: str FND_FLEX_SERVER1.StringArray;
3087: BEGIN
3088: IF (fnd_flex_server1.g_debug_level > 0) THEN
3089: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_ids()');
3090: END IF;
3091: if(nids = 1) then
3092: return(ids(1));
3093: else
3094: for i in 1..nids loop
3095: str(i) := ids(i);
3096: end loop;
3097: IF (nids > 1) THEN
3098: return(FND_FLEX_SERVER1.from_stringarray(nids, str, delimiter));
3099: ELSIF (nids = 1) THEN
3100: RETURN(str(1));
3101: ELSE
3102: RETURN NULL;
3112: /* If only one value displayed does not substitute CR for delimiter. */
3113: /* ----------------------------------------------------------------------- */
3114:
3115: FUNCTION concatenate_descriptions(ndescs IN NUMBER,
3116: descs IN FND_FLEX_SERVER1.ValueDescArray,
3117: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3118: lengths IN FND_FLEX_SERVER1.NumberArray,
3119: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3120: n_displayed NUMBER;
3113: /* ----------------------------------------------------------------------- */
3114:
3115: FUNCTION concatenate_descriptions(ndescs IN NUMBER,
3116: descs IN FND_FLEX_SERVER1.ValueDescArray,
3117: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3118: lengths IN FND_FLEX_SERVER1.NumberArray,
3119: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3120: n_displayed NUMBER;
3121: str FND_FLEX_SERVER1.StringArray;
3114:
3115: FUNCTION concatenate_descriptions(ndescs IN NUMBER,
3116: descs IN FND_FLEX_SERVER1.ValueDescArray,
3117: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3118: lengths IN FND_FLEX_SERVER1.NumberArray,
3119: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3120: n_displayed NUMBER;
3121: str FND_FLEX_SERVER1.StringArray;
3122: BEGIN
3117: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3118: lengths IN FND_FLEX_SERVER1.NumberArray,
3119: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3120: n_displayed NUMBER;
3121: str FND_FLEX_SERVER1.StringArray;
3122: BEGIN
3123: IF (fnd_flex_server1.g_debug_level > 0) THEN
3124: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_descriptions()');
3125: END IF;
3119: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3120: n_displayed NUMBER;
3121: str FND_FLEX_SERVER1.StringArray;
3122: BEGIN
3123: IF (fnd_flex_server1.g_debug_level > 0) THEN
3124: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_descriptions()');
3125: END IF;
3126: n_displayed := 0;
3127: for i in 1..ndescs loop
3120: n_displayed NUMBER;
3121: str FND_FLEX_SERVER1.StringArray;
3122: BEGIN
3123: IF (fnd_flex_server1.g_debug_level > 0) THEN
3124: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_descriptions()');
3125: END IF;
3126: n_displayed := 0;
3127: for i in 1..ndescs loop
3128: if((i <= displ.n_segflags) and displ.segflags(i)) then
3131: end if;
3132: end loop;
3133:
3134: IF (n_displayed > 1) THEN
3135: return(FND_FLEX_SERVER1.from_stringarray(n_displayed, str, delimiter));
3136: ELSIF (n_displayed = 1) then
3137: return(str(1));
3138: ELSE
3139: RETURN (NULL);
3147: /* If only one value displayed does not substitute CR for delimiter. */
3148: /* ----------------------------------------------------------------------- */
3149:
3150: FUNCTION concatenate_fulldescs(ndescs IN NUMBER,
3151: descs IN FND_FLEX_SERVER1.ValueDescArray,
3152: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3153: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3154: n_displayed NUMBER;
3155: str FND_FLEX_SERVER1.StringArray;
3148: /* ----------------------------------------------------------------------- */
3149:
3150: FUNCTION concatenate_fulldescs(ndescs IN NUMBER,
3151: descs IN FND_FLEX_SERVER1.ValueDescArray,
3152: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3153: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3154: n_displayed NUMBER;
3155: str FND_FLEX_SERVER1.StringArray;
3156: BEGIN
3151: descs IN FND_FLEX_SERVER1.ValueDescArray,
3152: displ IN FND_FLEX_SERVER1.DisplayedSegs,
3153: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3154: n_displayed NUMBER;
3155: str FND_FLEX_SERVER1.StringArray;
3156: BEGIN
3157: IF (fnd_flex_server1.g_debug_level > 0) THEN
3158: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_fulldesc()');
3159: END IF;
3153: delimiter IN VARCHAR2) RETURN VARCHAR2 IS
3154: n_displayed NUMBER;
3155: str FND_FLEX_SERVER1.StringArray;
3156: BEGIN
3157: IF (fnd_flex_server1.g_debug_level > 0) THEN
3158: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_fulldesc()');
3159: END IF;
3160: n_displayed := 0;
3161: for i in 1..ndescs loop
3154: n_displayed NUMBER;
3155: str FND_FLEX_SERVER1.StringArray;
3156: BEGIN
3157: IF (fnd_flex_server1.g_debug_level > 0) THEN
3158: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_fulldesc()');
3159: END IF;
3160: n_displayed := 0;
3161: for i in 1..ndescs loop
3162: if((i <= displ.n_segflags) and displ.segflags(i)) then
3165: end if;
3166: end loop;
3167:
3168: IF (n_displayed > 1) THEN
3169: return(FND_FLEX_SERVER1.from_stringarray(n_displayed, str, delimiter));
3170: ELSIF (n_displayed = 1) then
3171: return(str(1));
3172: ELSE
3173: RETURN (NULL);
3177: /* ----------------------------------------------------------------------- */
3178: /* Concatenate segment formats to string for return to the client. */
3179: /* ----------------------------------------------------------------------- */
3180:
3181: FUNCTION concatenate_segment_formats(segfmts IN FND_FLEX_SERVER1.SegFormats)
3182: RETURN VARCHAR2 IS
3183: catfmts VARCHAR2(200);
3184:
3185: BEGIN
3199: /* will result in a NULL being returned in the appropriate place. */
3200: /* Return string has qualifier values separated by TERMINATOR. */
3201: /* ----------------------------------------------------------------------- */
3202:
3203: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
3204: drv IN FND_FLEX_SERVER1.DerivedVals,
3205: d_rqst IN DerivedRqst) RETURN VARCHAR2 IS
3206:
3207: str VARCHAR2(2000);
3200: /* Return string has qualifier values separated by TERMINATOR. */
3201: /* ----------------------------------------------------------------------- */
3202:
3203: FUNCTION ret_derived(d_quals IN FND_FLEX_SERVER1.Qualifiers,
3204: drv IN FND_FLEX_SERVER1.DerivedVals,
3205: d_rqst IN DerivedRqst) RETURN VARCHAR2 IS
3206:
3207: str VARCHAR2(2000);
3208:
3223: exit;
3224: end if;
3225: end loop;
3226: end if;
3227: str := str || FND_FLEX_SERVER1.TERMINATOR;
3228: end loop;
3229: if(str is not null) then
3230: str := SUBSTR(str, 1, LENGTH(str) - LENGTH(FND_FLEX_SERVER1.TERMINATOR));
3231: end if;
3226: end if;
3227: str := str || FND_FLEX_SERVER1.TERMINATOR;
3228: end loop;
3229: if(str is not null) then
3230: str := SUBSTR(str, 1, LENGTH(str) - LENGTH(FND_FLEX_SERVER1.TERMINATOR));
3231: end if;
3232: return(str);
3233:
3234: END ret_derived;
3243: /* Any qualifiers not found in the list of derived qualifiers */
3244: /* will result in a NULL being returned in the appropriate place. */
3245: /* Return string has qualifier values separated by TERMINATOR. */
3246: /* ----------------------------------------------------------------------- */
3247: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
3248: drv IN FND_FLEX_SERVER1.DerivedVals,
3249: v_rqst IN ValattRqst) RETURN VARCHAR2 IS
3250:
3251: str VARCHAR2(2000);
3244: /* will result in a NULL being returned in the appropriate place. */
3245: /* Return string has qualifier values separated by TERMINATOR. */
3246: /* ----------------------------------------------------------------------- */
3247: FUNCTION ret_valatts(d_quals IN FND_FLEX_SERVER1.Qualifiers,
3248: drv IN FND_FLEX_SERVER1.DerivedVals,
3249: v_rqst IN ValattRqst) RETURN VARCHAR2 IS
3250:
3251: str VARCHAR2(2000);
3252:
3270: exit;
3271: end if;
3272: end loop;
3273: end if;
3274: str := str || FND_FLEX_SERVER1.TERMINATOR;
3275: end loop;
3276: if(str is not null) then
3277: str := SUBSTR(str, 1, LENGTH(str) - LENGTH(FND_FLEX_SERVER1.TERMINATOR));
3278: end if;
3273: end if;
3274: str := str || FND_FLEX_SERVER1.TERMINATOR;
3275: end loop;
3276: if(str is not null) then
3277: str := SUBSTR(str, 1, LENGTH(str) - LENGTH(FND_FLEX_SERVER1.TERMINATOR));
3278: end if;
3279: return(str);
3280:
3281: END ret_valatts;
3290: FUNCTION parse_va_rqst(s IN VARCHAR2, var OUT nocopy ValattRqst) RETURN NUMBER IS
3291:
3292: nsegs NUMBER;
3293: fqname_end NUMBER;
3294: fqsq_names FND_FLEX_SERVER1.StringArray;
3295: sq_name VARCHAR2(30);
3296:
3297: BEGIN
3298:
3305: return(-6);
3306: end if;
3307:
3308: IF (s IS NOT NULL) THEN
3309: nsegs := FND_FLEX_SERVER1.to_stringarray2(s, FND_FLEX_SERVER1.TERMINATOR,
3310: fqsq_names);
3311: ELSE
3312: nsegs := 0;
3313: END IF;
3313: END IF;
3314:
3315: for i in 1..nsegs loop
3316: if(fqsq_names(i) is not null) then
3317: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3318: if(fqname_end <= 0) then
3319: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3316: if(fqsq_names(i) is not null) then
3317: fqname_end := INSTR(fqsq_names(i), FND_FLEX_SERVER1.SEPARATOR);
3318: if(fqname_end <= 0) then
3319: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VALATT NOSEP');
3320: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3321: FND_MESSAGE.set_token('NAME', fqsq_names(i));
3322: return(-1);
3323: elsif(fqname_end > 31) then
3324: FND_MESSAGE.set_name('FND', 'FLEX-QUALIFIER TOO LONG');
3327: return(-2);
3328: else
3329: var.fq_names(i) := UPPER(SUBSTR(fqsq_names(i), 1, fqname_end - 1));
3330: sq_name := UPPER(SUBSTR(fqsq_names(i),
3331: fqname_end + LENGTH(FND_FLEX_SERVER1.SEPARATOR), 30));
3332: if(sq_name is null) then
3333: FND_MESSAGE.set_name('FND', 'FLEX-MISSING SQNAME');
3334: FND_MESSAGE.set_token('TOKNAME', 'VALATT');
3335: return(-3);
3361: /* ----------------------------------------------------------------------- */
3362: FUNCTION parse_drv_rqst(s IN VARCHAR2, dr OUT nocopy DerivedRqst) RETURN NUMBER IS
3363:
3364: nsegs NUMBER;
3365: sqnames FND_FLEX_SERVER1.StringArray;
3366:
3367: BEGIN
3368:
3369: -- Make sure it is not too big
3375: return(-6);
3376: end if;
3377:
3378: IF (s IS NOT NULL) THEN
3379: nsegs := FND_FLEX_SERVER1.to_stringarray2(s, FND_FLEX_SERVER1.TERMINATOR,
3380: sqnames);
3381: ELSE
3382: nsegs := 0;
3383: END IF;
3421: /* Eliminates whitespace from around component names. */
3422: /* Limits vrule string length to < MAX_VRULE_LEN bytes. */
3423: /* ----------------------------------------------------------------------- */
3424: FUNCTION parse_vrules(s IN VARCHAR2,
3425: vr OUT nocopy FND_FLEX_SERVER1.Vrules) RETURN NUMBER IS
3426:
3427: n NUMBER;
3428: bgn NUMBER;
3429: endp NUMBER;
3447: return(0);
3448: end if;
3449:
3450: vrulstr_len := LENGTH(s);
3451: seplen := LENGTH(FND_FLEX_SERVER1.SEPARATOR);
3452:
3453: while (bgn <= vrulstr_len) loop
3454: n := n + 1;
3455:
3454: n := n + 1;
3455:
3456: -- Flexfield qualifier name
3457: --
3458: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3459: if(endp <= 0) then
3460: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3461: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3462: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3458: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3459: if(endp <= 0) then
3460: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3461: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3462: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3463: return(-1);
3464: else
3465: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3466: if((tokn is not null) and (LENGTHB(tokn) > 30)) then
3474: end if;
3475:
3476: -- Segment qualifier name
3477: --
3478: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3479: if(endp <= 0) then
3480: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3481: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3482: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3478: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3479: if(endp <= 0) then
3480: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3481: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3482: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3483: return(-1);
3484: else
3485: tokn := UPPER(LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS));
3486: if(tokn is null) then
3500: end if;
3501:
3502: -- Include/Exclude indicator
3503: --
3504: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3505: if(endp <= 0) then
3506: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3507: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3508: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3504: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3505: if(endp <= 0) then
3506: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3507: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3508: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3509: return(-1);
3510: end if;
3511: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3512: if(tokn is null) then
3524: bgn := endp + seplen;
3525:
3526: -- Error Message and Application short name
3527: --
3528: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3529: if(endp <= 0) then
3530: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3531: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3532: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3528: endp := INSTR(s, FND_FLEX_SERVER1.SEPARATOR, bgn);
3529: if(endp <= 0) then
3530: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN VRULE NOSEP');
3531: FND_MESSAGE.set_token('TOKNUM', to_char(n));
3532: FND_MESSAGE.set_token('SEP', FND_FLEX_SERVER1.SEPARATOR);
3533: return(-1);
3534: end if;
3535: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3536: if(tokn is null) then
3575: -- Values to include or exclude.
3576: -- Parsed into format where each value is surrounded by the SEPARATOR.
3577: -- First put everything to the terminator into tokn, then parse tokn.
3578: --
3579: endp := INSTR(s, FND_FLEX_SERVER1.TERMINATOR, bgn);
3580: if(endp <= 0) then
3581: endp := vrulstr_len + 1;
3582: end if;
3583: tokn := LTRIM(RTRIM(SUBSTR(s, bgn, endp-bgn), BLANKS), BLANKS);
3591: FND_MESSAGE.set_token('NAME', sq_name);
3592: return(-1);
3593: end if;
3594: bgn := 1;
3595: ieval := FND_FLEX_SERVER1.SEPARATOR;
3596: tokn_len := LENGTH(tokn);
3597: while(bgn <= tokn_len) loop
3598: endtok := INSTR(tokn, FND_FLEX_SERVER1.SEPARATOR, bgn);
3599: if(endtok <= 0) then
3594: bgn := 1;
3595: ieval := FND_FLEX_SERVER1.SEPARATOR;
3596: tokn_len := LENGTH(tokn);
3597: while(bgn <= tokn_len) loop
3598: endtok := INSTR(tokn, FND_FLEX_SERVER1.SEPARATOR, bgn);
3599: if(endtok <= 0) then
3600: endtok := tokn_len + 1;
3601: end if;
3602: ieval := ieval || LTRIM(RTRIM(SUBSTR(tokn, bgn, endtok-bgn),
3600: endtok := tokn_len + 1;
3601: end if;
3602: ieval := ieval || LTRIM(RTRIM(SUBSTR(tokn, bgn, endtok-bgn),
3603: BLANKS), BLANKS);
3604: ieval := ieval || FND_FLEX_SERVER1.SEPARATOR;
3605: bgn := endtok + seplen;
3606: end loop;
3607: vr.cat_vals(n) := ieval;
3608: bgn := endp + seplen;
3701: /* segments at once. This requires the fewest possible database rows */
3702: /* retrieved and only a single select statement. */
3703: /* ----------------------------------------------------------------------- */
3704:
3705: FUNCTION parse_displayed(fstruct IN FND_FLEX_SERVER1.FlexStructId,
3706: token_str IN VARCHAR2,
3707: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs)
3708: RETURN BOOLEAN IS
3709:
3703: /* ----------------------------------------------------------------------- */
3704:
3705: FUNCTION parse_displayed(fstruct IN FND_FLEX_SERVER1.FlexStructId,
3706: token_str IN VARCHAR2,
3707: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs)
3708: RETURN BOOLEAN IS
3709:
3710: n_segs NUMBER;
3711: fq_table FND_FLEX_SERVER1.FlexQualTable;
3707: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs)
3708: RETURN BOOLEAN IS
3709:
3710: n_segs NUMBER;
3711: fq_table FND_FLEX_SERVER1.FlexQualTable;
3712: seg_disp FND_FLEX_SERVER1.CharArray;
3713: seg_rqd FND_FLEX_SERVER1.CharArray;
3714: tokenmap FND_FLEX_SERVER1.BooleanArray;
3715:
3708: RETURN BOOLEAN IS
3709:
3710: n_segs NUMBER;
3711: fq_table FND_FLEX_SERVER1.FlexQualTable;
3712: seg_disp FND_FLEX_SERVER1.CharArray;
3713: seg_rqd FND_FLEX_SERVER1.CharArray;
3714: tokenmap FND_FLEX_SERVER1.BooleanArray;
3715:
3716: BEGIN
3709:
3710: n_segs NUMBER;
3711: fq_table FND_FLEX_SERVER1.FlexQualTable;
3712: seg_disp FND_FLEX_SERVER1.CharArray;
3713: seg_rqd FND_FLEX_SERVER1.CharArray;
3714: tokenmap FND_FLEX_SERVER1.BooleanArray;
3715:
3716: BEGIN
3717:
3710: n_segs NUMBER;
3711: fq_table FND_FLEX_SERVER1.FlexQualTable;
3712: seg_disp FND_FLEX_SERVER1.CharArray;
3713: seg_rqd FND_FLEX_SERVER1.CharArray;
3714: tokenmap FND_FLEX_SERVER1.BooleanArray;
3715:
3716: BEGIN
3717:
3718: -- Initialize returned segment display map.
3720: dispsegs.n_segflags := 0;
3721:
3722: -- Get flexfield qualifier mapping to segments.
3723: --
3724: if(FND_FLEX_SERVER2.get_qualsegs(fstruct, n_segs, seg_disp,
3725: seg_rqd, fq_table) = FALSE) then
3726: return(FALSE);
3727: end if;
3728:
3734: -- Still need to merge the displayed map obtained from the DISPLAYED token
3735: -- alone (n_tokappl) with the display map from the flex structure and
3736: -- return the completed map.
3737: --
3738: IF (fnd_flex_server1.g_debug_level > 0) THEN
3739: g_debug_text := 'Displayed Map=';
3740: END IF;
3741: for i in 1..n_segs loop
3742: if((seg_disp(i) = 'Y') and tokenmap(i)) then
3740: END IF;
3741: for i in 1..n_segs loop
3742: if((seg_disp(i) = 'Y') and tokenmap(i)) then
3743: dispsegs.segflags(i) := TRUE;
3744: IF (fnd_flex_server1.g_debug_level > 0) THEN
3745: g_debug_text := g_debug_text || 'Y';
3746: END IF;
3747: else
3748: dispsegs.segflags(i) := FALSE;
3745: g_debug_text := g_debug_text || 'Y';
3746: END IF;
3747: else
3748: dispsegs.segflags(i) := FALSE;
3749: IF (fnd_flex_server1.g_debug_level > 0) THEN
3750: g_debug_text := g_debug_text || 'N';
3751: END IF;
3752: end if;
3753: end loop;
3750: g_debug_text := g_debug_text || 'N';
3751: END IF;
3752: end if;
3753: end loop;
3754: IF (fnd_flex_server1.g_debug_level > 0) THEN
3755: FND_FLEX_SERVER1.add_debug(g_debug_text || '.');
3756: END IF;
3757: dispsegs.n_segflags := n_segs;
3758: return(TRUE);
3751: END IF;
3752: end if;
3753: end loop;
3754: IF (fnd_flex_server1.g_debug_level > 0) THEN
3755: FND_FLEX_SERVER1.add_debug(g_debug_text || '.');
3756: END IF;
3757: dispsegs.n_segflags := n_segs;
3758: return(TRUE);
3759:
3776: /* ------------------------------------------------------------------------- */
3777:
3778: FUNCTION evaluate_token(token_str IN VARCHAR2,
3779: n_segs IN NUMBER,
3780: fq_tab IN FND_FLEX_SERVER1.FlexQualTable,
3781: token_map OUT nocopy FND_FLEX_SERVER1.BooleanArray)
3782: RETURN BOOLEAN IS
3783:
3784: n_toks NUMBER;
3777:
3778: FUNCTION evaluate_token(token_str IN VARCHAR2,
3779: n_segs IN NUMBER,
3780: fq_tab IN FND_FLEX_SERVER1.FlexQualTable,
3781: token_map OUT nocopy FND_FLEX_SERVER1.BooleanArray)
3782: RETURN BOOLEAN IS
3783:
3784: n_toks NUMBER;
3785: segindex NUMBER;
3782: RETURN BOOLEAN IS
3783:
3784: n_toks NUMBER;
3785: segindex NUMBER;
3786: toks FND_FLEX_SERVER1.StringArray;
3787: s_ntokappl FND_FLEX_SERVER1.NumberArray;
3788:
3789: BEGIN
3790:
3783:
3784: n_toks NUMBER;
3785: segindex NUMBER;
3786: toks FND_FLEX_SERVER1.StringArray;
3787: s_ntokappl FND_FLEX_SERVER1.NumberArray;
3788:
3789: BEGIN
3790:
3791: -- Break up token into individual components
3790:
3791: -- Break up token into individual components
3792: --
3793: IF (token_str IS NOT NULL) THEN
3794: n_toks := FND_FLEX_SERVER1.to_stringarray2(token_str,
3795: FND_FLEX_SERVER1.TERMINATOR, toks);
3796: ELSE
3797: n_toks := 0;
3798: END IF;
3791: -- Break up token into individual components
3792: --
3793: IF (token_str IS NOT NULL) THEN
3794: n_toks := FND_FLEX_SERVER1.to_stringarray2(token_str,
3795: FND_FLEX_SERVER1.TERMINATOR, toks);
3796: ELSE
3797: n_toks := 0;
3798: END IF;
3799:
3798: END IF;
3799:
3800: -- Save some debug info
3801: --
3802: IF (fnd_flex_server1.g_debug_level > 0) THEN
3803: g_debug_text := 'Tokens:';
3804: for i in 1..n_toks loop
3805: g_debug_text := g_debug_text || toks(i) || ' ';
3806: end loop;
3803: g_debug_text := 'Tokens:';
3804: for i in 1..n_toks loop
3805: g_debug_text := g_debug_text || toks(i) || ' ';
3806: end loop;
3807: FND_FLEX_SERVER1.add_debug(g_debug_text);
3808: END IF;
3809:
3810: -- Initialize number of applicable tokens for each segment to 0.
3811: --
3812: for i in 1..n_segs loop
3813: s_ntokappl(i) := 0;
3814: end loop;
3815:
3816: IF (fnd_flex_server1.g_debug_level > 0) THEN
3817: FND_FLEX_SERVER1.add_debug('Init ' || to_char(n_segs) || ' segs. ');
3818: END IF;
3819:
3820: -- Now interpret each token to create the displayed map.
3813: s_ntokappl(i) := 0;
3814: end loop;
3815:
3816: IF (fnd_flex_server1.g_debug_level > 0) THEN
3817: FND_FLEX_SERVER1.add_debug('Init ' || to_char(n_segs) || ' segs. ');
3818: END IF;
3819:
3820: -- Now interpret each token to create the displayed map.
3821: -- If token is 'ALL' then just toggle the displayed bit for all segments.
3831: if(toks(i) = 'ALL') then
3832: for j in 1..n_segs loop
3833: s_ntokappl(j) := s_ntokappl(j) + 1;
3834: end loop;
3835: elsif(FND_FLEX_SERVER1.isa_number(toks(i), segindex)) then
3836: if((segindex < 1) or (segindex > n_segs)) then
3837: FND_MESSAGE.set_name('FND', 'FLEX-TOKEN DUI BAD SEGNUM');
3838: FND_MESSAGE.set_token('SEGNUM', to_char(segindex));
3839: return(FALSE);
3914: i_industry VARCHAR2(1);
3915:
3916: BEGIN
3917:
3918: IF (fnd_flex_server1.g_debug_level > 0) THEN
3919: FND_FLEX_SERVER1.add_debug('Entering call_fdfgli() ');
3920: END IF;
3921:
3922: if(fdfgli_on) then
3915:
3916: BEGIN
3917:
3918: IF (fnd_flex_server1.g_debug_level > 0) THEN
3919: FND_FLEX_SERVER1.add_debug('Entering call_fdfgli() ');
3920: END IF;
3921:
3922: if(fdfgli_on) then
3923:
3932: end if;
3933:
3934: sqlstr := 'BEGIN if(gl_flex_insert_pkg.fdfgli(:n)) then :r := ''Y'';';
3935: sqlstr := sqlstr || ' else :r := ''N''; end if; END;';
3936: IF (fnd_flex_server1.g_debug_level > 0) THEN
3937: FND_FLEX_SERVER1.add_debug(sqlstr);
3938: END IF;
3939: cursornum := dbms_sql.open_cursor;
3940: dbms_sql.parse(cursornum, sqlstr, dbms_sql.v7);
3933:
3934: sqlstr := 'BEGIN if(gl_flex_insert_pkg.fdfgli(:n)) then :r := ''Y'';';
3935: sqlstr := sqlstr || ' else :r := ''N''; end if; END;';
3936: IF (fnd_flex_server1.g_debug_level > 0) THEN
3937: FND_FLEX_SERVER1.add_debug(sqlstr);
3938: END IF;
3939: cursornum := dbms_sql.open_cursor;
3940: dbms_sql.parse(cursornum, sqlstr, dbms_sql.v7);
3941: dbms_sql.bind_variable(cursornum, ':n', ccid);
3941: dbms_sql.bind_variable(cursornum, ':n', ccid);
3942: dbms_sql.bind_variable(cursornum, ':r', yes_or_no, 1);
3943: nprocessed := dbms_sql.execute(cursornum);
3944: dbms_sql.variable_value(cursornum, ':r', yes_or_no);
3945: IF (fnd_flex_server1.g_debug_level > 0) THEN
3946: FND_FLEX_SERVER1.add_debug('Dynamic SQL called FDFGLI and returned '||
3947: yes_or_no || '. ');
3948: END IF;
3949: dbms_sql.close_cursor(cursornum);
3942: dbms_sql.bind_variable(cursornum, ':r', yes_or_no, 1);
3943: nprocessed := dbms_sql.execute(cursornum);
3944: dbms_sql.variable_value(cursornum, ':r', yes_or_no);
3945: IF (fnd_flex_server1.g_debug_level > 0) THEN
3946: FND_FLEX_SERVER1.add_debug('Dynamic SQL called FDFGLI and returned '||
3947: yes_or_no || '. ');
3948: END IF;
3949: dbms_sql.close_cursor(cursornum);
3950: return(yes_or_no = 'Y');
3978: /* defined validation rules, or FALSE on error or if it does not */
3979: /* pass user-defined validation. */
3980: /* Saves args input to user validation in uvdbg string. */
3981: /* ----------------------------------------------------------------------- */
3982: FUNCTION call_userval(fstruct IN FND_FLEX_SERVER1.FlexStructId,
3983: vdate IN DATE,
3984: nids IN NUMBER,
3985: delim IN VARCHAR2,
3986: segids IN FND_FLEX_SERVER1.ValueIdArray)
3982: FUNCTION call_userval(fstruct IN FND_FLEX_SERVER1.FlexStructId,
3983: vdate IN DATE,
3984: nids IN NUMBER,
3985: delim IN VARCHAR2,
3986: segids IN FND_FLEX_SERVER1.ValueIdArray)
3987: RETURN BOOLEAN IS
3988: errmsg VARCHAR2(2000);
3989: catids VARCHAR2(2000);
3990: ids FND_FLEX_SERVER1.ValueIdArray;
3986: segids IN FND_FLEX_SERVER1.ValueIdArray)
3987: RETURN BOOLEAN IS
3988: errmsg VARCHAR2(2000);
3989: catids VARCHAR2(2000);
3990: ids FND_FLEX_SERVER1.ValueIdArray;
3991:
3992: BEGIN
3993:
3994: -- Only do this for key flexfields
4016: errmsg := ' Calling FND_FLEX_PLSQL.validate(';
4017: errmsg := errmsg || to_char(fstruct.application_id) || ', ';
4018: errmsg := errmsg || fstruct.id_flex_code || ', ';
4019: errmsg := errmsg || to_char(fstruct.id_flex_num) || ', ';
4020: errmsg := errmsg || to_char(vdate, FND_FLEX_SERVER1.DATETIME_FMT) || ', ';
4021: errmsg := errmsg || delim || ', ';
4022:
4023: IF (fnd_flex_server1.g_debug_level > 0) THEN
4024: FND_FLEX_SERVER1.add_debug(errmsg);
4019: errmsg := errmsg || to_char(fstruct.id_flex_num) || ', ';
4020: errmsg := errmsg || to_char(vdate, FND_FLEX_SERVER1.DATETIME_FMT) || ', ';
4021: errmsg := errmsg || delim || ', ';
4022:
4023: IF (fnd_flex_server1.g_debug_level > 0) THEN
4024: FND_FLEX_SERVER1.add_debug(errmsg);
4025: FND_FLEX_SERVER1.add_debug(catids);
4026: FND_FLEX_SERVER1.add_debug(') ');
4027: END IF;
4020: errmsg := errmsg || to_char(vdate, FND_FLEX_SERVER1.DATETIME_FMT) || ', ';
4021: errmsg := errmsg || delim || ', ';
4022:
4023: IF (fnd_flex_server1.g_debug_level > 0) THEN
4024: FND_FLEX_SERVER1.add_debug(errmsg);
4025: FND_FLEX_SERVER1.add_debug(catids);
4026: FND_FLEX_SERVER1.add_debug(') ');
4027: END IF;
4028: errmsg := NULL;
4021: errmsg := errmsg || delim || ', ';
4022:
4023: IF (fnd_flex_server1.g_debug_level > 0) THEN
4024: FND_FLEX_SERVER1.add_debug(errmsg);
4025: FND_FLEX_SERVER1.add_debug(catids);
4026: FND_FLEX_SERVER1.add_debug(') ');
4027: END IF;
4028: errmsg := NULL;
4029:
4022:
4023: IF (fnd_flex_server1.g_debug_level > 0) THEN
4024: FND_FLEX_SERVER1.add_debug(errmsg);
4025: FND_FLEX_SERVER1.add_debug(catids);
4026: FND_FLEX_SERVER1.add_debug(') ');
4027: END IF;
4028: errmsg := NULL;
4029:
4030: -- Now call the function
4055: /* to validate(). Use in conjunction with get_sql(). */
4056: /* ----------------------------------------------------------------------- */
4057: FUNCTION get_nsql RETURN NUMBER IS
4058: BEGIN
4059: return(FND_FLEX_SERVER1.get_nsql_internal);
4060: END get_nsql;
4061:
4062: /* ----------------------------------------------------------------------- */
4063: /* Returns SQL statements created during last call */
4065: /* ----------------------------------------------------------------------- */
4066: FUNCTION get_sql(statement_num IN NUMBER,
4067: statement_piece IN NUMBER DEFAULT 1) RETURN VARCHAR2 IS
4068: BEGIN
4069: return(FND_FLEX_SERVER1.get_sql_internal(statement_num, statement_piece));
4070: EXCEPTION
4071: WHEN OTHERS then
4072: return('get_sql() exception: ' || SQLERRM);
4073: END get_sql;
4076: /* Returns the debug string. */
4077: /* ----------------------------------------------------------------------- */
4078: FUNCTION get_debug(stringnum IN NUMBER) RETURN VARCHAR2 IS
4079: BEGIN
4080: return(FND_FLEX_SERVER1.get_debug_internal(stringnum));
4081: EXCEPTION
4082: WHEN OTHERS then
4083: return('get_debug() exception: ' || SQLERRM);
4084: END get_debug;
4142: IS
4143: PRAGMA AUTONOMOUS_TRANSACTION;
4144:
4145: l_func_name VARCHAR2(100);
4146: l_ff_structure FND_FLEX_SERVER1.flexstructid;
4147: l_bind_count NUMBER;
4148: l_binds fnd_flex_server1.valuearray;
4149: l_newline VARCHAR2(10);
4150: l_ccid NUMBER;
4144:
4145: l_func_name VARCHAR2(100);
4146: l_ff_structure FND_FLEX_SERVER1.flexstructid;
4147: l_bind_count NUMBER;
4148: l_binds fnd_flex_server1.valuearray;
4149: l_newline VARCHAR2(10);
4150: l_ccid NUMBER;
4151: l_cursor NUMBER;
4152: l_hash_value NUMBER;
4149: l_newline VARCHAR2(10);
4150: l_ccid NUMBER;
4151: l_cursor NUMBER;
4152: l_hash_value NUMBER;
4153: l_segment_ids fnd_flex_server1.valueidarray;
4154:
4155: --
4156: -- Temporary number and varchar2 buffers.
4157: --
4618: px_security_status => l_x_security_status,
4619: px_error_message => l_x_error_message);
4620:
4621: IF (l_vsc_code = fnd_plsql_cache.CACHE_FOUND) THEN
4622: IF (fnd_flex_server1.g_debug_level > 0) THEN
4623: fnd_flex_server1.add_debug('Found in SSV.VSC.');
4624: END IF;
4625: GOTO goto_return;
4626: END IF;
4619: px_error_message => l_x_error_message);
4620:
4621: IF (l_vsc_code = fnd_plsql_cache.CACHE_FOUND) THEN
4622: IF (fnd_flex_server1.g_debug_level > 0) THEN
4623: fnd_flex_server1.add_debug('Found in SSV.VSC.');
4624: END IF;
4625: GOTO goto_return;
4626: END IF;
4627:
4863: -- ==================================================
4864: PROCEDURE parse_flex_values(p_concatenated_flex_values IN VARCHAR2,
4865: p_delimiter IN VARCHAR2,
4866: p_numof_flex_values IN NUMBER DEFAULT NULL,
4867: x_flex_values OUT nocopy fnd_flex_server1.stringarray,
4868: x_numof_flex_values OUT nocopy NUMBER)
4869: IS
4870: BEGIN
4871: --
4876: x_numof_flex_values := 1;
4877: x_flex_values(1) := p_concatenated_flex_values;
4878: ELSE
4879: x_numof_flex_values :=
4880: fnd_flex_server1.to_stringarray(p_concatenated_flex_values,
4881: p_delimiter,
4882: x_flex_values);
4883: END IF;
4884: EXCEPTION
4888:
4889: -- ==================================================
4890: -- PROCEDURE : concatenate_flex_values
4891: -- ==================================================
4892: PROCEDURE concatenate_flex_values(p_flex_values IN fnd_flex_server1.stringarray,
4893: p_numof_flex_values IN NUMBER,
4894: p_delimiter IN VARCHAR2,
4895: x_concatenated_flex_values OUT nocopy VARCHAR2)
4896: IS
4894: p_delimiter IN VARCHAR2,
4895: x_concatenated_flex_values OUT nocopy VARCHAR2)
4896: IS
4897: BEGIN
4898: IF (fnd_flex_server1.g_debug_level > 0) THEN
4899: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_flex_values()');
4900: END IF;
4901: IF (p_numof_flex_values > 0) THEN
4902: x_concatenated_flex_values :=
4895: x_concatenated_flex_values OUT nocopy VARCHAR2)
4896: IS
4897: BEGIN
4898: IF (fnd_flex_server1.g_debug_level > 0) THEN
4899: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_flex_values()');
4900: END IF;
4901: IF (p_numof_flex_values > 0) THEN
4902: x_concatenated_flex_values :=
4903: fnd_flex_server1.from_stringarray(p_numof_flex_values,
4899: fnd_flex_server1.add_debug('BEGIN SSV.concatenate_flex_values()');
4900: END IF;
4901: IF (p_numof_flex_values > 0) THEN
4902: x_concatenated_flex_values :=
4903: fnd_flex_server1.from_stringarray(p_numof_flex_values,
4904: p_flex_values,
4905: p_delimiter);
4906: ELSE
4907: x_concatenated_flex_values := '';
4945: p_segment29 IN VARCHAR2 DEFAULT NULL,
4946: p_segment30 IN VARCHAR2 DEFAULT NULL)
4947: RETURN VARCHAR2
4948: IS
4949: l_flex_values fnd_flex_server1.stringarray;
4950: l_concatenated_value VARCHAR2(32000);
4951: BEGIN
4952: l_flex_values(1) := p_segment1;
4953: l_flex_values(2) := p_segment2;
5437: p_id_flex_code,
5438: p_id_flex_num,
5439: l_kfvssc_record);
5440:
5441: IF (p_concat_mode = fnd_flex_server.CONCAT_MODE_PADDED) THEN
5442: l_sql := l_kfvssc_record.padded_sql;
5443: ELSE
5444: l_sql := l_kfvssc_record.compact_sql;
5445: END IF;
5483: p_id_flex_code,
5484: p_id_flex_num,
5485: l_kfvssc_record);
5486:
5487: IF (p_concat_mode = fnd_flex_server.CONCAT_MODE_PADDED) THEN
5488: l_sql := l_kfvssc_record.padded_sql;
5489: ELSE
5490: l_sql := l_kfvssc_record.compact_sql;
5491: END IF;
6448: fnd_plsql_cache.generic_1to1_init('SSV.VSC',
6449: vsc_cache_controller,
6450: vsc_cache_storage);
6451:
6452: END fnd_flex_server;