24: -- PRIVATE GLOBAL VARIABLES
25: --
26:
27: nvalidated NUMBER;
28: value_vals FND_FLEX_SERVER1.ValueArray;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
25: --
26:
27: nvalidated NUMBER;
28: value_vals FND_FLEX_SERVER1.ValueArray;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
26:
27: nvalidated NUMBER;
28: value_vals FND_FLEX_SERVER1.ValueArray;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
27: nvalidated NUMBER;
28: value_vals FND_FLEX_SERVER1.ValueArray;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
28: value_vals FND_FLEX_SERVER1.ValueArray;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
29: value_svals FND_FLEX_SERVER1.ValueArray;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
30: value_ids FND_FLEX_SERVER1.ValueIdArray;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
31: value_descs FND_FLEX_SERVER1.ValueDescArray;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
32: value_desclens FND_FLEX_SERVER1.NumberArray;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
33: cc_cols FND_FLEX_SERVER1.TabColArray;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
41: n_xcol_vals NUMBER;
34: cc_coltypes FND_FLEX_SERVER1.CharArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
41: n_xcol_vals NUMBER;
42: xcol_vals FND_FLEX_SERVER1.StringArray;
35: segtypes FND_FLEX_SERVER1.SegFormats;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
41: n_xcol_vals NUMBER;
42: xcol_vals FND_FLEX_SERVER1.StringArray;
43: ccid NUMBER;
36: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
37: derv FND_FLEX_SERVER1.DerivedVals;
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
41: n_xcol_vals NUMBER;
42: xcol_vals FND_FLEX_SERVER1.StringArray;
43: ccid NUMBER;
44: delim VARCHAR2(1);
38: tbl_derv FND_FLEX_SERVER1.DerivedVals;
39: drv_quals FND_FLEX_SERVER1.Qualifiers;
40: tbl_quals FND_FLEX_SERVER1.Qualifiers;
41: n_xcol_vals NUMBER;
42: xcol_vals FND_FLEX_SERVER1.StringArray;
43: ccid NUMBER;
44: delim VARCHAR2(1);
45: err_segn NUMBER;
46: err_msg VARCHAR2(2000);
174:
175: -- Set status flags. Secured also set if any segment is secured and there
176: -- is some other error.
177: --
178: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
175: -- Set status flags. Secured also set if any segment is secured and there
176: -- is some other error.
177: --
178: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
183: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
176: -- is some other error.
177: --
178: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
183: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
184:
177: --
178: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
183: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
184:
185: -- Get message if not valid.
178: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
183: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
184:
185: -- Get message if not valid.
186: -- Erase only the combination_id, and table columns if just checking
179: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
180: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
181: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
182: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
183: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
184:
185: -- Get message if not valid.
186: -- Erase only the combination_id, and table columns if just checking
187: -- segments, otherwise erase everything but the status and error message.
265:
266: -- Set validation status flags.
267: -- Also valid if secured, but not enforcing it.
268: --
269: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
270: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
266: -- Set validation status flags.
267: -- Also valid if secured, but not enforcing it.
268: --
269: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
270: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
268: --
269: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
270: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
275: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
276: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
269: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
270: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
275: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
276: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
277:
270: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
275: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
276: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
277:
278: -- Get message and erase all but error if not valid
271: (q_security <> 'Y')));
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
275: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
276: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
277:
278: -- Get message and erase all but error if not valid
279: --
272: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
273: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
274: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
275: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
276: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
277:
278: -- Get message and erase all but error if not valid
279: --
280: <
473:
474: FUNCTION segment_valid(segnum IN NUMBER) RETURN BOOLEAN IS
475: BEGIN
476: if((segcodes is not null) and (segnum between 1 and LENGTH(segcodes))) then
477: return(SUBSTR(segcodes, segnum, 1) = FND_FLEX_SERVER1.FF_VVALID);
478: end if;
479: return(FALSE);
480: END segment_valid;
481:
569: BEGIN
570: --
571: -- Initialize messages, debugging, and number of sql strings
572: --
573: if(FND_FLEX_SERVER1.init_globals = FALSE) then
574: return(FALSE);
575: end if;
576:
577: --