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);
161:
162: -- Set status flags. Secured also set if any segment is secured and there
163: -- is some other error.
164: --
165: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
162: -- Set status flags. Secured also set if any segment is secured and there
163: -- is some other error.
164: --
165: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
170: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
163: -- is some other error.
164: --
165: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
170: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
171:
164: --
165: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
170: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
171:
172: -- Get message if not valid.
165: sta_valid := (valid_stat = FND_FLEX_SERVER1.VV_VALID);
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
170: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
171:
172: -- Get message if not valid.
173: -- Erase only the combination_id, and table columns if just checking
166: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
167: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
168: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
169: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
170: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
171:
172: -- Get message if not valid.
173: -- Erase only the combination_id, and table columns if just checking
174: -- segments, otherwise erase everything but the status and error message.
252:
253: -- Set validation status flags.
254: -- Also valid if secured, but not enforcing it.
255: --
256: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
257: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
253: -- Set validation status flags.
254: -- Also valid if secured, but not enforcing it.
255: --
256: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
257: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
255: --
256: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
257: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
262: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
263: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
256: sta_valid := ((valid_stat = FND_FLEX_SERVER1.VV_VALID) or
257: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
262: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
263: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
264:
257: ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) and
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
262: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
263: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
264:
265: -- Get message and erase all but error if not valid
258: (q_security <> 'Y')));
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
262: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
263: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
264:
265: -- Get message and erase all but error if not valid
266: --
259: sta_secured := ((valid_stat = FND_FLEX_SERVER1.VV_SECURED) or
260: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
261: sta_value_err := (valid_stat = FND_FLEX_SERVER1.VV_VALUES);
262: sta_unsupported_err := (valid_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
263: sta_serious_err := (valid_stat = FND_FLEX_SERVER1.VV_ERROR);
264:
265: -- Get message and erase all but error if not valid
266: --
267: <
460:
461: FUNCTION segment_valid(segnum IN NUMBER) RETURN BOOLEAN IS
462: BEGIN
463: if((segcodes is not null) and (segnum between 1 and LENGTH(segcodes))) then
464: return(SUBSTR(segcodes, segnum, 1) = FND_FLEX_SERVER1.FF_VVALID);
465: end if;
466: return(FALSE);
467: END segment_valid;
468:
556: BEGIN
557: --
558: -- Initialize messages, debugging, and number of sql strings
559: --
560: if(FND_FLEX_SERVER1.init_globals = FALSE) then
561: return(FALSE);
562: end if;
563:
564: --