[Home] [Help]
9:
10: TYPE ValidatedSegmentArray IS RECORD
11: (nvalidated NUMBER,
12: segstats VARCHAR2(31),
13: segfmts FND_FLEX_SERVER1.SegFormats,
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
10: TYPE ValidatedSegmentArray IS RECORD
11: (nvalidated NUMBER,
12: segstats VARCHAR2(31),
13: segfmts FND_FLEX_SERVER1.SegFormats,
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
11: (nvalidated NUMBER,
12: segstats VARCHAR2(31),
13: segfmts FND_FLEX_SERVER1.SegFormats,
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
12: segstats VARCHAR2(31),
13: segfmts FND_FLEX_SERVER1.SegFormats,
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
13: segfmts FND_FLEX_SERVER1.SegFormats,
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
21: dispsegs FND_FLEX_SERVER1.DisplayedSegs);
14: segcols FND_FLEX_SERVER1.TabColArray,
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
21: dispsegs FND_FLEX_SERVER1.DisplayedSegs);
22:
15: segcoltypes FND_FLEX_SERVER1.CharArray,
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
21: dispsegs FND_FLEX_SERVER1.DisplayedSegs);
22:
23: ------------
16: dispvals FND_FLEX_SERVER1.ValueArray,
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
21: dispsegs FND_FLEX_SERVER1.DisplayedSegs);
22:
23: ------------
24: -- PRIVATE CONSTANTS
17: vals FND_FLEX_SERVER1.ValueArray,
18: ids FND_FLEX_SERVER1.ValueIdArray,
19: descs FND_FLEX_SERVER1.ValueDescArray,
20: catdesclens FND_FLEX_SERVER1.NumberArray,
21: dispsegs FND_FLEX_SERVER1.DisplayedSegs);
22:
23: ------------
24: -- PRIVATE CONSTANTS
25: --
54: /* -------------------------------------------------------------------- */
55: /* Private definitions */
56: /* -------------------------------------------------------------------- */
57:
58: FUNCTION find_descsegs(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
59: row_id IN ROWID,
60: alt_table IN VARCHAR2,
61: data_field IN VARCHAR2,
62: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
58: FUNCTION find_descsegs(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
59: row_id IN ROWID,
60: alt_table IN VARCHAR2,
61: data_field IN VARCHAR2,
62: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
63: nsegs_out OUT nocopy NUMBER,
64: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray)
65: RETURN BOOLEAN;
66:
60: alt_table IN VARCHAR2,
61: data_field IN VARCHAR2,
62: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
63: nsegs_out OUT nocopy NUMBER,
64: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray)
65: RETURN BOOLEAN;
66:
67: FUNCTION read_datafield(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
68: row_id IN ROWID,
63: nsegs_out OUT nocopy NUMBER,
64: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray)
65: RETURN BOOLEAN;
66:
67: FUNCTION read_datafield(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
68: row_id IN ROWID,
69: table_name IN VARCHAR2,
70: datafield IN VARCHAR2,
71: nsegs OUT nocopy NUMBER,
68: row_id IN ROWID,
69: table_name IN VARCHAR2,
70: datafield IN VARCHAR2,
71: nsegs OUT nocopy NUMBER,
72: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
73: RETURN BOOLEAN;
74:
75: FUNCTION read_segment_cols(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
76: row_id IN ROWID,
71: nsegs OUT nocopy NUMBER,
72: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
73: RETURN BOOLEAN;
74:
75: FUNCTION read_segment_cols(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
76: row_id IN ROWID,
77: table_name IN VARCHAR2,
78: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
79: nsegs OUT nocopy NUMBER,
74:
75: FUNCTION read_segment_cols(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
76: row_id IN ROWID,
77: table_name IN VARCHAR2,
78: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
79: nsegs OUT nocopy NUMBER,
80: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
81: RETURN BOOLEAN;
82:
76: row_id IN ROWID,
77: table_name IN VARCHAR2,
78: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
79: nsegs OUT nocopy NUMBER,
80: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
81: RETURN BOOLEAN;
82:
83: FUNCTION get_desc_cols(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
84: context IN VARCHAR2,
79: nsegs OUT nocopy NUMBER,
80: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
81: RETURN BOOLEAN;
82:
83: FUNCTION get_desc_cols(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
84: context IN VARCHAR2,
85: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
86: contextn OUT nocopy NUMBER,
87: ncols OUT nocopy NUMBER,
81: RETURN BOOLEAN;
82:
83: FUNCTION get_desc_cols(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
84: context IN VARCHAR2,
85: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
86: contextn OUT nocopy NUMBER,
87: ncols OUT nocopy NUMBER,
88: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
89: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
84: context IN VARCHAR2,
85: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
86: contextn OUT nocopy NUMBER,
87: ncols OUT nocopy NUMBER,
88: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
89: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
90: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
91: RETURN BOOLEAN;
92:
85: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
86: contextn OUT nocopy NUMBER,
87: ncols OUT nocopy NUMBER,
88: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
89: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
90: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
91: RETURN BOOLEAN;
92:
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
86: contextn OUT nocopy NUMBER,
87: ncols OUT nocopy NUMBER,
88: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
89: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
90: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
91: RETURN BOOLEAN;
92:
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
94: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
89: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
90: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
91: RETURN BOOLEAN;
92:
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
94: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
95: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
96: nsegs_out OUT nocopy NUMBER,
97: segs_out OUT nocopy FND_FLEX_SERVER1.stringarray,
90: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
91: RETURN BOOLEAN;
92:
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
94: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
95: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
96: nsegs_out OUT nocopy NUMBER,
97: segs_out OUT nocopy FND_FLEX_SERVER1.stringarray,
98: x_context_segment_included OUT nocopy BOOLEAN)
91: RETURN BOOLEAN;
92:
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
94: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
95: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
96: nsegs_out OUT nocopy NUMBER,
97: segs_out OUT nocopy FND_FLEX_SERVER1.stringarray,
98: x_context_segment_included OUT nocopy BOOLEAN)
99: RETURN BOOLEAN;
93: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
94: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
95: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
96: nsegs_out OUT nocopy NUMBER,
97: segs_out OUT nocopy FND_FLEX_SERVER1.stringarray,
98: x_context_segment_included OUT nocopy BOOLEAN)
99: RETURN BOOLEAN;
100:
101: FUNCTION get_column_value(colvals IN FND_FLEX_SERVER1.ColumnValues,
97: segs_out OUT nocopy FND_FLEX_SERVER1.stringarray,
98: x_context_segment_included OUT nocopy BOOLEAN)
99: RETURN BOOLEAN;
100:
101: FUNCTION get_column_value(colvals IN FND_FLEX_SERVER1.ColumnValues,
102: colname IN VARCHAR2,
103: coltype IN VARCHAR2,
104: seg_fmt IN VARCHAR2,
105: seg_len IN NUMBER,
105: seg_len IN NUMBER,
106: val OUT nocopy VARCHAR2) RETURN BOOLEAN;
107:
108: FUNCTION
109: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
110: nsegs_in IN NUMBER,
111: segs IN FND_FLEX_SERVER1.StringArray,
112: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
113: v_date IN DATE,
107:
108: FUNCTION
109: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
110: nsegs_in IN NUMBER,
111: segs IN FND_FLEX_SERVER1.StringArray,
112: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
113: v_date IN DATE,
114: uappid IN NUMBER,
115: respid IN NUMBER,
108: FUNCTION
109: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
110: nsegs_in IN NUMBER,
111: segs IN FND_FLEX_SERVER1.StringArray,
112: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
113: v_date IN DATE,
114: uappid IN NUMBER,
115: respid IN NUMBER,
116: nsegs_out OUT nocopy NUMBER,
113: v_date IN DATE,
114: uappid IN NUMBER,
115: respid IN NUMBER,
116: nsegs_out OUT nocopy NUMBER,
117: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
118: segstats OUT nocopy VARCHAR2,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
115: respid IN NUMBER,
116: nsegs_out OUT nocopy NUMBER,
117: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
118: segstats OUT nocopy VARCHAR2,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
116: nsegs_out OUT nocopy NUMBER,
117: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
118: segstats OUT nocopy VARCHAR2,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
117: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
118: segstats OUT nocopy VARCHAR2,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
118: segstats OUT nocopy VARCHAR2,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
119: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
127: errsegn OUT nocopy NUMBER) RETURN NUMBER;
120: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
127: errsegn OUT nocopy NUMBER) RETURN NUMBER;
128:
121: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
127: errsegn OUT nocopy NUMBER) RETURN NUMBER;
128:
129: FUNCTION
122: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
123: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
124: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
125: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
127: errsegn OUT nocopy NUMBER) RETURN NUMBER;
128:
129: FUNCTION
130: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
126: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
127: errsegn OUT nocopy NUMBER) RETURN NUMBER;
128:
129: FUNCTION
130: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
131: contxt_name IN VARCHAR2,
132: nsegs IN NUMBER,
133: segs IN FND_FLEX_SERVER1.StringArray,
134: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
129: FUNCTION
130: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
131: contxt_name IN VARCHAR2,
132: nsegs IN NUMBER,
133: segs IN FND_FLEX_SERVER1.StringArray,
134: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
135: vdate IN DATE,
136: uappid IN NUMBER,
137: respid IN NUMBER,
130: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
131: contxt_name IN VARCHAR2,
132: nsegs IN NUMBER,
133: segs IN FND_FLEX_SERVER1.StringArray,
134: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
135: vdate IN DATE,
136: uappid IN NUMBER,
137: respid IN NUMBER,
138: vsa OUT nocopy ValidatedSegmentArray,
138: vsa OUT nocopy ValidatedSegmentArray,
139: errsegnum OUT nocopy NUMBER) RETURN NUMBER;
140:
141: FUNCTION
142: validate_context(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
143: context_sval IN VARCHAR2,
144: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
145: vsa OUT nocopy ValidatedSegmentArray) RETURN NUMBER;
146:
140:
141: FUNCTION
142: validate_context(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
143: context_sval IN VARCHAR2,
144: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
145: vsa OUT nocopy ValidatedSegmentArray) RETURN NUMBER;
146:
147: FUNCTION find_context_value(appl_id IN VARCHAR2,
148: dflex_name IN VARCHAR2,
180: /* were validated before validation stopped. */
181: /* Many error conditions return no array information at all. In */
182: /* this case nvalidated = 0 is returned. */
183: /* */
184: /* NOTE: Make sure to call FND_FLEX_SERVER1.init_globals before */
185: /* calling this function, to initialize debugging and messages. */
186: /* ------------------------------------------------------------------------ */
187:
188: PROCEDURE descval_engine
198: ignore_active IN BOOLEAN,
199: concat_segs IN VARCHAR2,
200: vals_not_ids IN BOOLEAN,
201: use_column_def IN BOOLEAN,
202: column_def IN FND_FLEX_SERVER1.ColumnDefinitions,
203: rowid_in IN ROWID,
204: alt_tbl_name IN VARCHAR2,
205: data_field_name IN VARCHAR2,
206: nvalidated OUT nocopy NUMBER,
203: rowid_in IN ROWID,
204: alt_tbl_name IN VARCHAR2,
205: data_field_name IN VARCHAR2,
206: nvalidated OUT nocopy NUMBER,
207: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
204: alt_tbl_name IN VARCHAR2,
205: data_field_name IN VARCHAR2,
206: nvalidated OUT nocopy NUMBER,
207: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
205: data_field_name IN VARCHAR2,
206: nvalidated OUT nocopy NUMBER,
207: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
206: nvalidated OUT nocopy NUMBER,
207: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
207: displayed_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
215: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
208: stored_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
215: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
216: seg_delimiter OUT nocopy VARCHAR2,
209: segment_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
215: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
216: seg_delimiter OUT nocopy VARCHAR2,
217: v_status OUT nocopy NUMBER,
210: descriptions OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
215: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
216: seg_delimiter OUT nocopy VARCHAR2,
217: v_status OUT nocopy NUMBER,
218: seg_codes OUT nocopy VARCHAR2,
211: desc_lengths OUT nocopy FND_FLEX_SERVER1.NumberArray,
212: seg_colnames OUT nocopy FND_FLEX_SERVER1.TabColArray,
213: seg_coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
214: segment_types OUT nocopy FND_FLEX_SERVER1.SegFormats,
215: displayed_segs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
216: seg_delimiter OUT nocopy VARCHAR2,
217: v_status OUT nocopy NUMBER,
218: seg_codes OUT nocopy VARCHAR2,
219: err_segnum OUT nocopy NUMBER) IS
220:
221: nvals NUMBER;
222: nsegs NUMBER;
223: entered VARCHAR2(1);
224: dff_info FND_FLEX_SERVER1.DescFlexInfo;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
221: nvals NUMBER;
222: nsegs NUMBER;
223: entered VARCHAR2(1);
224: dff_info FND_FLEX_SERVER1.DescFlexInfo;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
222: nsegs NUMBER;
223: entered VARCHAR2(1);
224: dff_info FND_FLEX_SERVER1.DescFlexInfo;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
223: entered VARCHAR2(1);
224: dff_info FND_FLEX_SERVER1.DescFlexInfo;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
224: dff_info FND_FLEX_SERVER1.DescFlexInfo;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
225: dff_id FND_FLEX_SERVER1.FlexStructId;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
226: segs FND_FLEX_SERVER1.StringArray;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
227: value_dvals FND_FLEX_SERVER1.ValueArray;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
228: value_vals FND_FLEX_SERVER1.ValueArray;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
236: segtypes FND_FLEX_SERVER1.SegFormats;
229: value_ids FND_FLEX_SERVER1.ValueIdArray;
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
236: segtypes FND_FLEX_SERVER1.SegFormats;
237: segcodes VARCHAR2(31);
230: value_descs FND_FLEX_SERVER1.ValueDescArray;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
236: segtypes FND_FLEX_SERVER1.SegFormats;
237: segcodes VARCHAR2(31);
238: errcode NUMBER;
231: cc_cols FND_FLEX_SERVER1.TabColArray;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
236: segtypes FND_FLEX_SERVER1.SegFormats;
237: segcodes VARCHAR2(31);
238: errcode NUMBER;
239: errsegnum NUMBER;
232: cc_coltypes FND_FLEX_SERVER1.CharArray;
233: desc_lens FND_FLEX_SERVER1.NumberArray;
234: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
235: vv_flags FND_FLEX_SERVER1.ValueValidationFlags;
236: segtypes FND_FLEX_SERVER1.SegFormats;
237: segcodes VARCHAR2(31);
238: errcode NUMBER;
239: errsegnum NUMBER;
240: catsegs VARCHAR2(32000);
240: catsegs VARCHAR2(32000);
241: l_context_segment_included BOOLEAN;
242:
243: BEGIN
244: IF (fnd_flex_server1.g_debug_level > 0) THEN
245: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
246: 'BEGIN SV4.descval_engine() ');
247: END IF;
248:
241: l_context_segment_included BOOLEAN;
242:
243: BEGIN
244: IF (fnd_flex_server1.g_debug_level > 0) THEN
245: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
246: 'BEGIN SV4.descval_engine() ');
247: END IF;
248:
249: -- Initialize all output variables so that returning from any point
251: --
252: nvalidated := 0;
253: segment_types.nsegs := 0;
254: displayed_segs.n_segflags := 0;
255: v_status := FND_FLEX_SERVER1.VV_ERROR;
256: l_context_segment_included := FALSE;
257:
258: -- Initialize everything which affects returned information. This way we
259: -- can process all returned information before returning when exiting from
263: nvals := 0;
264: nsegs := 0;
265: segtypes.nsegs := 0;
266: disp_segs.n_segflags := 0;
267: errcode := FND_FLEX_SERVER1.VV_ERROR;
268:
269: if((concat_segs is null) and (rowid_in is null)) then
270: entered := 'N';
271: else
321: vv_flags.invoking_mode := invoking_mode;
322:
323: -- Add input parameters to the debug information
324: --
325: IF (fnd_flex_server1.g_debug_level > 0) THEN
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
322:
323: -- Add input parameters to the debug information
324: --
325: IF (fnd_flex_server1.g_debug_level > 0) THEN
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
323: -- Add input parameters to the debug information
324: --
325: IF (fnd_flex_server1.g_debug_level > 0) THEN
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
324: --
325: IF (fnd_flex_server1.g_debug_level > 0) THEN
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
325: IF (fnd_flex_server1.g_debug_level > 0) THEN
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
333: FND_FLEX_SERVER1.add_debug(', Invoke = ' || invoking_mode);
326: FND_FLEX_SERVER1.add_debug('User AppId = ' || to_char(user_apid));
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
333: FND_FLEX_SERVER1.add_debug(', Invoke = ' || invoking_mode);
334: if(ignore_active) then
327: FND_FLEX_SERVER1.add_debug(', User Resp = ' || to_char(user_resp));
328: FND_FLEX_SERVER1.add_debug(', User Id = ' || to_char(userid));
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
333: FND_FLEX_SERVER1.add_debug(', Invoke = ' || invoking_mode);
334: if(ignore_active) then
335: FND_FLEX_SERVER1.add_debug(', Ignore disabled/expired');
329: FND_FLEX_SERVER1.add_debug(', Ap Short Name = ' || flex_app_sname);
330: FND_FLEX_SERVER1.add_debug(', Desc Flex Name = '||desc_flex_name||' ');
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
333: FND_FLEX_SERVER1.add_debug(', Invoke = ' || invoking_mode);
334: if(ignore_active) then
335: FND_FLEX_SERVER1.add_debug(', Ignore disabled/expired');
336: end if;
337: if(allow_nulls) then
331: FND_FLEX_SERVER1.add_debug(', Val Date = ' ||
332: to_char(val_date, 'YYYY/MM/DD HH24:MI:SS'));
333: FND_FLEX_SERVER1.add_debug(', Invoke = ' || invoking_mode);
334: if(ignore_active) then
335: FND_FLEX_SERVER1.add_debug(', Ignore disabled/expired');
336: end if;
337: if(allow_nulls) then
338: FND_FLEX_SERVER1.add_debug(', Allow Nulls');
339: end if;
334: if(ignore_active) then
335: FND_FLEX_SERVER1.add_debug(', Ignore disabled/expired');
336: end if;
337: if(allow_nulls) then
338: FND_FLEX_SERVER1.add_debug(', Allow Nulls');
339: end if;
340: if(update_table) then
341: FND_FLEX_SERVER1.add_debug(', Update Table');
342: end if;
337: if(allow_nulls) then
338: FND_FLEX_SERVER1.add_debug(', Allow Nulls');
339: end if;
340: if(update_table) then
341: FND_FLEX_SERVER1.add_debug(', Update Table');
342: end if;
343: FND_FLEX_SERVER1.add_debug(', Concat Segs = ' || concat_segs);
344: if(vals_not_ids) then
345: FND_FLEX_SERVER1.add_debug(', Vals');
339: end if;
340: if(update_table) then
341: FND_FLEX_SERVER1.add_debug(', Update Table');
342: end if;
343: FND_FLEX_SERVER1.add_debug(', Concat Segs = ' || concat_segs);
344: if(vals_not_ids) then
345: FND_FLEX_SERVER1.add_debug(', Vals');
346: else
347: FND_FLEX_SERVER1.add_debug(', Ids');
341: FND_FLEX_SERVER1.add_debug(', Update Table');
342: end if;
343: FND_FLEX_SERVER1.add_debug(', Concat Segs = ' || concat_segs);
344: if(vals_not_ids) then
345: FND_FLEX_SERVER1.add_debug(', Vals');
346: else
347: FND_FLEX_SERVER1.add_debug(', Ids');
348: end if;
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
343: FND_FLEX_SERVER1.add_debug(', Concat Segs = ' || concat_segs);
344: if(vals_not_ids) then
345: FND_FLEX_SERVER1.add_debug(', Vals');
346: else
347: FND_FLEX_SERVER1.add_debug(', Ids');
348: end if;
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
350: FND_FLEX_SERVER1.add_debug(', Alt Table = ' || alt_tbl_name);
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
345: FND_FLEX_SERVER1.add_debug(', Vals');
346: else
347: FND_FLEX_SERVER1.add_debug(', Ids');
348: end if;
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
350: FND_FLEX_SERVER1.add_debug(', Alt Table = ' || alt_tbl_name);
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
352: if(use_column_def) then
353: FND_FLEX_SERVER1.add_debug(', ColDefs: ');
346: else
347: FND_FLEX_SERVER1.add_debug(', Ids');
348: end if;
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
350: FND_FLEX_SERVER1.add_debug(', Alt Table = ' || alt_tbl_name);
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
352: if(use_column_def) then
353: FND_FLEX_SERVER1.add_debug(', ColDefs: ');
354: if(column_def.context_value_set) then
347: FND_FLEX_SERVER1.add_debug(', Ids');
348: end if;
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
350: FND_FLEX_SERVER1.add_debug(', Alt Table = ' || alt_tbl_name);
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
352: if(use_column_def) then
353: FND_FLEX_SERVER1.add_debug(', ColDefs: ');
354: if(column_def.context_value_set) then
355: FND_FLEX_SERVER1.add_debug('*Context* = ('
349: FND_FLEX_SERVER1.add_debug(', Rowid = ' || ROWIDTOCHAR(rowid_in));
350: FND_FLEX_SERVER1.add_debug(', Alt Table = ' || alt_tbl_name);
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
352: if(use_column_def) then
353: FND_FLEX_SERVER1.add_debug(', ColDefs: ');
354: if(column_def.context_value_set) then
355: FND_FLEX_SERVER1.add_debug('*Context* = ('
356: || column_def.context_value || ') ');
357: end if;
351: FND_FLEX_SERVER1.add_debug(', Data Field = ' || data_field_name||'. ');
352: if(use_column_def) then
353: FND_FLEX_SERVER1.add_debug(', ColDefs: ');
354: if(column_def.context_value_set) then
355: FND_FLEX_SERVER1.add_debug('*Context* = ('
356: || column_def.context_value || ') ');
357: end if;
358: for i in 1..column_def.colvals.ncolumns loop
359: FND_FLEX_SERVER1.add_debug
355: FND_FLEX_SERVER1.add_debug('*Context* = ('
356: || column_def.context_value || ') ');
357: end if;
358: for i in 1..column_def.colvals.ncolumns loop
359: FND_FLEX_SERVER1.add_debug
360: (column_def.colvals.column_names(i) || ':' ||
361: column_def.colvals.column_types(i) || ' = (' ||
362: column_def.colvals.column_values(i) || ') ');
363: end loop;
369: -- then get inputs from the column definitions if use_column_def is TRUE.
370: -- Otherwise break up the concatenated segments.
371: --
372: if((invoking_mode in ('L', 'C')) and (rowid_in is not null)) THEN
373: IF (fnd_flex_server1.g_debug_level > 0) THEN
374: fnd_flex_server1.add_debug('calling find_descsegs()');
375: END IF;
376: if(find_descsegs(dff_info, rowid_in, alt_tbl_name, data_field_name,
377: vv_flags, nsegs, segs) = FALSE) then
370: -- Otherwise break up the concatenated segments.
371: --
372: if((invoking_mode in ('L', 'C')) and (rowid_in is not null)) THEN
373: IF (fnd_flex_server1.g_debug_level > 0) THEN
374: fnd_flex_server1.add_debug('calling find_descsegs()');
375: END IF;
376: if(find_descsegs(dff_info, rowid_in, alt_tbl_name, data_field_name,
377: vv_flags, nsegs, segs) = FALSE) then
378: goto return_error;
377: vv_flags, nsegs, segs) = FALSE) then
378: goto return_error;
379: end if;
380: elsif((invoking_mode in ('L', 'C', 'V', 'D')) and use_column_def) THEN
381: IF (fnd_flex_server1.g_debug_level > 0) THEN
382: fnd_flex_server1.add_debug('calling get_descsegs()');
383: END IF;
384:
385: if(get_descsegs(dff_info, column_def, vv_flags, nsegs, segs, l_context_segment_included)=FALSE) then
378: goto return_error;
379: end if;
380: elsif((invoking_mode in ('L', 'C', 'V', 'D')) and use_column_def) THEN
381: IF (fnd_flex_server1.g_debug_level > 0) THEN
382: fnd_flex_server1.add_debug('calling get_descsegs()');
383: END IF;
384:
385: if(get_descsegs(dff_info, column_def, vv_flags, nsegs, segs, l_context_segment_included)=FALSE) then
386: goto return_error;
385: if(get_descsegs(dff_info, column_def, vv_flags, nsegs, segs, l_context_segment_included)=FALSE) then
386: goto return_error;
387: end if;
388: else
389: IF (fnd_flex_server1.g_debug_level > 0) THEN
390: fnd_flex_server1.add_debug('calling to_stringarray()');
391: END IF;
392: nsegs := FND_FLEX_SERVER1.to_stringarray(concat_segs,
393: dff_info.segment_delimiter, segs);
386: goto return_error;
387: end if;
388: else
389: IF (fnd_flex_server1.g_debug_level > 0) THEN
390: fnd_flex_server1.add_debug('calling to_stringarray()');
391: END IF;
392: nsegs := FND_FLEX_SERVER1.to_stringarray(concat_segs,
393: dff_info.segment_delimiter, segs);
394: end if;
388: else
389: IF (fnd_flex_server1.g_debug_level > 0) THEN
390: fnd_flex_server1.add_debug('calling to_stringarray()');
391: END IF;
392: nsegs := FND_FLEX_SERVER1.to_stringarray(concat_segs,
393: dff_info.segment_delimiter, segs);
394: end if;
395:
396: -- Check to make sure there are not too many segments.
408:
409:
410: if (nsegs = 0) then
411: if (column_def.context_value_set) then
412: errcode := FND_FLEX_SERVER1.VV_VALID;
413: goto return_outvars;
414: end if;
415: end if;
416:
414: end if;
415: end if;
416:
417:
418: IF (fnd_flex_server1.g_debug_level > 0) THEN
419: catsegs := substrb(FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*'), 1, 32000);
420: FND_FLEX_SERVER1.add_debug(catsegs);
421: END IF;
422:
415: end if;
416:
417:
418: IF (fnd_flex_server1.g_debug_level > 0) THEN
419: catsegs := substrb(FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*'), 1, 32000);
420: FND_FLEX_SERVER1.add_debug(catsegs);
421: END IF;
422:
423:
416:
417:
418: IF (fnd_flex_server1.g_debug_level > 0) THEN
419: catsegs := substrb(FND_FLEX_SERVER1.from_stringarray(nsegs, segs, '*'), 1, 32000);
420: FND_FLEX_SERVER1.add_debug(catsegs);
421: END IF;
422:
423:
424: -- Validate segments.
427: user_apid, user_resp, nvals, segtypes, segcodes, cc_cols,
428: cc_coltypes, value_dvals, value_vals, value_ids, value_descs,
429: desc_lens, disp_segs, errsegnum);
430:
431: IF (fnd_flex_server1.g_debug_level > 0) THEN
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
428: cc_coltypes, value_dvals, value_vals, value_ids, value_descs,
429: desc_lens, disp_segs, errsegnum);
430:
431: IF (fnd_flex_server1.g_debug_level > 0) THEN
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
429: desc_lens, disp_segs, errsegnum);
430:
431: IF (fnd_flex_server1.g_debug_level > 0) THEN
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
430:
431: IF (fnd_flex_server1.g_debug_level > 0) THEN
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
431: IF (fnd_flex_server1.g_debug_level > 0) THEN
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
432: FND_FLEX_SERVER1.add_debug(' validate_descsegs() returns errcode ');
433: FND_FLEX_SERVER1.add_debug(to_char(errcode) ||' and '|| to_char(nvals));
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
440: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
434: FND_FLEX_SERVER1.add_debug(' values. SegCodes: ' || segcodes);
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
440: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
441: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ':' ||cc_coltypes(i)||'" ');
442: end loop;
435: FND_FLEX_SERVER1.add_debug(' ErrSeg: ' || to_char(errsegnum));
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
440: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
441: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ':' ||cc_coltypes(i)||'" ');
442: end loop;
443: END IF;
436: FND_FLEX_SERVER1.add_debug(' Returned arrays:');
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
440: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
441: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ':' ||cc_coltypes(i)||'" ');
442: end loop;
443: END IF;
444: <
437: for i in 1..nvals loop
438: FND_FLEX_SERVER1.add_debug('"' || segtypes.vs_format(i));
439: FND_FLEX_SERVER1.add_debug(to_char(segtypes.vs_maxsize(i), 'S099'));
440: FND_FLEX_SERVER1.add_debug('*' || value_dvals(i) || '*');
441: FND_FLEX_SERVER1.add_debug(cc_cols(i) || ':' ||cc_coltypes(i)||'" ');
442: end loop;
443: END IF;
444: <
445: displayed_vals := value_dvals;
458: v_status := errcode;
459: return;
460:
461: <
462: v_status := FND_FLEX_SERVER1.VV_ERROR;
463: return;
464:
465: EXCEPTION
466: WHEN OTHERS then
465: EXCEPTION
466: WHEN OTHERS then
467: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
468: FND_MESSAGE.set_token('MSG','descval_engine() exception: ' || SQLERRM);
469: v_status := FND_FLEX_SERVER1.VV_ERROR;
470: return;
471: END descval_engine;
472:
473: /* ------------------------------------------------------------------------ */
482: /* context. */
483: /* Returns TRUE if all ok, or FALSE and sets FND_MESSAGE on error. */
484: /* ------------------------------------------------------------------------ */
485:
486: FUNCTION find_descsegs(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
487: row_id IN ROWID,
488: alt_table IN VARCHAR2,
489: data_field IN VARCHAR2,
490: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
486: FUNCTION find_descsegs(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
487: row_id IN ROWID,
488: alt_table IN VARCHAR2,
489: data_field IN VARCHAR2,
490: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
491: nsegs_out OUT nocopy NUMBER,
492: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray)
493: RETURN BOOLEAN IS
494: effective_table VARCHAR2(30);
488: alt_table IN VARCHAR2,
489: data_field IN VARCHAR2,
490: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
491: nsegs_out OUT nocopy NUMBER,
492: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray)
493: RETURN BOOLEAN IS
494: effective_table VARCHAR2(30);
495:
496: BEGIN
493: RETURN BOOLEAN IS
494: effective_table VARCHAR2(30);
495:
496: BEGIN
497: IF (fnd_flex_server1.g_debug_level > 0) THEN
498: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
499: 'BEGIN SV4.find_descsegs() ');
500: END IF;
501:
494: effective_table VARCHAR2(30);
495:
496: BEGIN
497: IF (fnd_flex_server1.g_debug_level > 0) THEN
498: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
499: 'BEGIN SV4.find_descsegs() ');
500: END IF;
501:
502: nsegs_out := 0;
530: /* a string array for return. */
531: /* Returns TRUE on success or FALSE and sets FND_MESSAGE on error. */
532: /* ------------------------------------------------------------------------ */
533:
534: FUNCTION read_datafield(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
535: row_id IN ROWID,
536: table_name IN VARCHAR2,
537: datafield IN VARCHAR2,
538: nsegs OUT nocopy NUMBER,
535: row_id IN ROWID,
536: table_name IN VARCHAR2,
537: datafield IN VARCHAR2,
538: nsegs OUT nocopy NUMBER,
539: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
540: RETURN BOOLEAN IS
541: concat_segids VARCHAR2(2000);
542: rstat NUMBER;
543:
541: concat_segids VARCHAR2(2000);
542: rstat NUMBER;
543:
544: BEGIN
545: IF (fnd_flex_server1.g_debug_level > 0) THEN
546: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
547: 'BEGIN SV4.read_datafield() ');
548: END IF;
549:
542: rstat NUMBER;
543:
544: BEGIN
545: IF (fnd_flex_server1.g_debug_level > 0) THEN
546: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
547: 'BEGIN SV4.read_datafield() ');
548: END IF;
549:
550: fnd_dsql.init;
555: fnd_dsql.add_text(')');
556:
557: -- Look up the segment values or ids.
558: --
559: rstat := FND_FLEX_SERVER1.x_dsql_select_one(concat_segids);
560: if(rstat <> 1) then
561: if(rstat = 0) then
562: FND_MESSAGE.set_name('FND', 'FLEX-DFF ROW NOT FOUND');
563: FND_MESSAGE.set_token('TABLE', table_name);
571: end if;
572: return(FALSE);
573: end if;
574:
575: nsegs := FND_FLEX_SERVER1.to_stringarray(concat_segids,
576: dflex_info.segment_delimiter, segs);
577: return(TRUE);
578:
579: EXCEPTION
591: /* segments. Looks up the context value from table. */
592: /* Returns TRUE on success or FALSE and sets FND_MESSAGE on error. */
593: /* ------------------------------------------------------------------------ */
594:
595: FUNCTION read_segment_cols(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
596: row_id IN ROWID,
597: table_name IN VARCHAR2,
598: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
599: nsegs OUT nocopy NUMBER,
594:
595: FUNCTION read_segment_cols(dflex_info IN FND_FLEX_SERVER1.DescFlexInfo,
596: row_id IN ROWID,
597: table_name IN VARCHAR2,
598: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
599: nsegs OUT nocopy NUMBER,
600: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
601: RETURN BOOLEAN IS
602: ncols NUMBER;
596: row_id IN ROWID,
597: table_name IN VARCHAR2,
598: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
599: nsegs OUT nocopy NUMBER,
600: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
601: RETURN BOOLEAN IS
602: ncols NUMBER;
603: cols FND_FLEX_SERVER1.TabColArray;
604: coltypes FND_FLEX_SERVER1.CharArray;
599: nsegs OUT nocopy NUMBER,
600: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
601: RETURN BOOLEAN IS
602: ncols NUMBER;
603: cols FND_FLEX_SERVER1.TabColArray;
604: coltypes FND_FLEX_SERVER1.CharArray;
605: segfmts FND_FLEX_SERVER1.SegFormats;
606: value_component NUMBER;
607: rstat NUMBER;
600: segs OUT nocopy FND_FLEX_SERVER1.StringArray)
601: RETURN BOOLEAN IS
602: ncols NUMBER;
603: cols FND_FLEX_SERVER1.TabColArray;
604: coltypes FND_FLEX_SERVER1.CharArray;
605: segfmts FND_FLEX_SERVER1.SegFormats;
606: value_component NUMBER;
607: rstat NUMBER;
608: context VARCHAR2(80);
601: RETURN BOOLEAN IS
602: ncols NUMBER;
603: cols FND_FLEX_SERVER1.TabColArray;
604: coltypes FND_FLEX_SERVER1.CharArray;
605: segfmts FND_FLEX_SERVER1.SegFormats;
606: value_component NUMBER;
607: rstat NUMBER;
608: context VARCHAR2(80);
609: context_number NUMBER;
608: context VARCHAR2(80);
609: context_number NUMBER;
610:
611: BEGIN
612: IF (fnd_flex_server1.g_debug_level > 0) THEN
613: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
614: 'BEGIN SV4.read_segment_cols() ');
615: END IF;
616:
609: context_number NUMBER;
610:
611: BEGIN
612: IF (fnd_flex_server1.g_debug_level > 0) THEN
613: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
614: 'BEGIN SV4.read_segment_cols() ');
615: END IF;
616:
617: nsegs := 0;
621: -- allow users to input values into the segment columns and have
622: -- us turn them into ids.
623: --
624: if(vflags.values_not_ids) then
625: value_component := FND_FLEX_SERVER1.VC_VALUE;
626: else
627: value_component := FND_FLEX_SERVER1.VC_ID;
628: end if;
629:
623: --
624: if(vflags.values_not_ids) then
625: value_component := FND_FLEX_SERVER1.VC_VALUE;
626: else
627: value_component := FND_FLEX_SERVER1.VC_ID;
628: end if;
629:
630: -- Get context value stored in the table
631: -- Assume context column is CHAR or VARCHAR2
629:
630: -- Get context value stored in the table
631: -- Assume context column is CHAR or VARCHAR2
632: --
633: IF (fnd_flex_server1.g_debug_level > 0) THEN
634: FND_FLEX_SERVER1.add_debug(' Context col: '||dflex_info.context_column);
635: END IF;
636:
637: fnd_dsql.init;
630: -- Get context value stored in the table
631: -- Assume context column is CHAR or VARCHAR2
632: --
633: IF (fnd_flex_server1.g_debug_level > 0) THEN
634: FND_FLEX_SERVER1.add_debug(' Context col: '||dflex_info.context_column);
635: END IF;
636:
637: fnd_dsql.init;
638: fnd_dsql.add_text('select SUBSTRB(' || dflex_info.context_column || ', 1, 80)' ||
640: ' where rowid = CHARTOROWID(');
641: fnd_dsql.add_bind(ROWIDTOCHAR(row_id));
642: fnd_dsql.add_text(')');
643:
644: rstat := FND_FLEX_SERVER1.x_dsql_select_one(context);
645: if(rstat <> 1) then
646: if(rstat = 0) then
647: FND_MESSAGE.set_name('FND', 'FLEX-DFF ROW NOT FOUND');
648: FND_MESSAGE.set_token('TABLE', table_name);
662: ncols, cols, coltypes, segfmts) = FALSE) then
663: return(FALSE);
664: end if;
665:
666: IF (fnd_flex_server1.g_debug_level > 0) THEN
667: FND_FLEX_SERVER1.add_debug('Selecting all columns ');
668: END IF;
669:
670: -- Build SQL statement to select segment columns in order for
663: return(FALSE);
664: end if;
665:
666: IF (fnd_flex_server1.g_debug_level > 0) THEN
667: FND_FLEX_SERVER1.add_debug('Selecting all columns ');
668: END IF;
669:
670: -- Build SQL statement to select segment columns in order for
671: -- global segments, the context segment, and context-sensitive segments.
676: for i in 1..ncols loop
677: if(i > 1) then
678: fnd_dsql.add_text(', ');
679: end if;
680: fnd_dsql.add_text(FND_FLEX_SERVER1.select_clause
681: (cols(i), coltypes(i),
682: value_component, segfmts.vs_format(i), segfmts.vs_maxsize(i)));
683: end loop;
684: fnd_dsql.add_text(' from ' || table_name ||
687: fnd_dsql.add_text(')');
688:
689: -- Look up the segment values or ids.
690: --
691: rstat := FND_FLEX_SERVER1.x_dsql_select(ncols, segs);
692: if(rstat <> 1) then
693: if(rstat = 0) then
694: FND_MESSAGE.set_name('FND', 'FLEX-DFF ROW NOT FOUND');
695: FND_MESSAGE.set_token('TABLE', table_name);
725: /* Also returns a number indicating the context segment number. */
726: /* Returns TRUE if all ok, or FALSE and sets FND_MESSAGE on error. */
727: /* ------------------------------------------------------------------------ */
728:
729: FUNCTION get_desc_cols(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
730: context IN VARCHAR2,
731: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
732: contextn OUT nocopy NUMBER,
733: ncols OUT nocopy NUMBER,
727: /* ------------------------------------------------------------------------ */
728:
729: FUNCTION get_desc_cols(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
730: context IN VARCHAR2,
731: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
732: contextn OUT nocopy NUMBER,
733: ncols OUT nocopy NUMBER,
734: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
735: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
730: context IN VARCHAR2,
731: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
732: contextn OUT nocopy NUMBER,
733: ncols OUT nocopy NUMBER,
734: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
735: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
736: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
737: RETURN BOOLEAN IS
738:
731: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
732: contextn OUT nocopy NUMBER,
733: ncols OUT nocopy NUMBER,
734: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
735: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
736: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
737: RETURN BOOLEAN IS
738:
739: fstruct FND_FLEX_SERVER1.FlexStructId;
732: contextn OUT nocopy NUMBER,
733: ncols OUT nocopy NUMBER,
734: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
735: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
736: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
737: RETURN BOOLEAN IS
738:
739: fstruct FND_FLEX_SERVER1.FlexStructId;
740:
735: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
736: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats)
737: RETURN BOOLEAN IS
738:
739: fstruct FND_FLEX_SERVER1.FlexStructId;
740:
741: n_global NUMBER;
742: global_cols FND_FLEX_SERVER1.TabColArray;
743: global_coltypes FND_FLEX_SERVER1.CharArray;
738:
739: fstruct FND_FLEX_SERVER1.FlexStructId;
740:
741: n_global NUMBER;
742: global_cols FND_FLEX_SERVER1.TabColArray;
743: global_coltypes FND_FLEX_SERVER1.CharArray;
744: global_segfmts FND_FLEX_SERVER1.SegFormats;
745:
746: n_context NUMBER;
739: fstruct FND_FLEX_SERVER1.FlexStructId;
740:
741: n_global NUMBER;
742: global_cols FND_FLEX_SERVER1.TabColArray;
743: global_coltypes FND_FLEX_SERVER1.CharArray;
744: global_segfmts FND_FLEX_SERVER1.SegFormats;
745:
746: n_context NUMBER;
747: context_cols FND_FLEX_SERVER1.TabColArray;
740:
741: n_global NUMBER;
742: global_cols FND_FLEX_SERVER1.TabColArray;
743: global_coltypes FND_FLEX_SERVER1.CharArray;
744: global_segfmts FND_FLEX_SERVER1.SegFormats;
745:
746: n_context NUMBER;
747: context_cols FND_FLEX_SERVER1.TabColArray;
748: context_coltypes FND_FLEX_SERVER1.CharArray;
743: global_coltypes FND_FLEX_SERVER1.CharArray;
744: global_segfmts FND_FLEX_SERVER1.SegFormats;
745:
746: n_context NUMBER;
747: context_cols FND_FLEX_SERVER1.TabColArray;
748: context_coltypes FND_FLEX_SERVER1.CharArray;
749: context_segfmts FND_FLEX_SERVER1.SegFormats;
750:
751: context_vsa ValidatedSegmentArray;
744: global_segfmts FND_FLEX_SERVER1.SegFormats;
745:
746: n_context NUMBER;
747: context_cols FND_FLEX_SERVER1.TabColArray;
748: context_coltypes FND_FLEX_SERVER1.CharArray;
749: context_segfmts FND_FLEX_SERVER1.SegFormats;
750:
751: context_vsa ValidatedSegmentArray;
752: colcount NUMBER;
745:
746: n_context NUMBER;
747: context_cols FND_FLEX_SERVER1.TabColArray;
748: context_coltypes FND_FLEX_SERVER1.CharArray;
749: context_segfmts FND_FLEX_SERVER1.SegFormats;
750:
751: context_vsa ValidatedSegmentArray;
752: colcount NUMBER;
753: rstat NUMBER;
753: rstat NUMBER;
754: vc_return NUMBER;
755:
756: BEGIN
757: IF (fnd_flex_server1.g_debug_level > 0) THEN
758: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
759: 'BEGIN SV4.get_desc_cols() ');
760: END IF;
761:
754: vc_return NUMBER;
755:
756: BEGIN
757: IF (fnd_flex_server1.g_debug_level > 0) THEN
758: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
759: 'BEGIN SV4.get_desc_cols() ');
760: END IF;
761:
762: -- Initialize outputs to return nothing in case of error.
781: dff_info.table_id, n_global, global_cols,
782: global_coltypes, global_segfmts) = FALSE) then
783: return(FALSE);
784: end if;
785: IF (fnd_flex_server1.g_debug_level > 0) THEN
786: FND_FLEX_SERVER1.add_debug(' Found global segment mapping: [');
787: for i in 1..n_global loop
788: FND_FLEX_SERVER1.add_debug(global_cols(i) || ':' ||
789: global_coltypes(i) ||' ');
782: global_coltypes, global_segfmts) = FALSE) then
783: return(FALSE);
784: end if;
785: IF (fnd_flex_server1.g_debug_level > 0) THEN
786: FND_FLEX_SERVER1.add_debug(' Found global segment mapping: [');
787: for i in 1..n_global loop
788: FND_FLEX_SERVER1.add_debug(global_cols(i) || ':' ||
789: global_coltypes(i) ||' ');
790: end loop;
784: end if;
785: IF (fnd_flex_server1.g_debug_level > 0) THEN
786: FND_FLEX_SERVER1.add_debug(' Found global segment mapping: [');
787: for i in 1..n_global loop
788: FND_FLEX_SERVER1.add_debug(global_cols(i) || ':' ||
789: global_coltypes(i) ||' ');
790: end loop;
791: FND_FLEX_SERVER1.add_debug('] ');
792: END IF;
787: for i in 1..n_global loop
788: FND_FLEX_SERVER1.add_debug(global_cols(i) || ':' ||
789: global_coltypes(i) ||' ');
790: end loop;
791: FND_FLEX_SERVER1.add_debug('] ');
792: END IF;
793:
794: -- Validate the context value
795: --
793:
794: -- Validate the context value
795: --
796: vc_return := validate_context(dff_info, context, vflags, context_vsa);
797: IF (vc_return <> FND_FLEX_SERVER1.VV_VALID) then
798: IF (vc_return <> FND_FLEX_SERVER1.VV_CTXTNOSEG) then
799: return(FALSE);
800: END IF;
801: END IF;
794: -- Validate the context value
795: --
796: vc_return := validate_context(dff_info, context, vflags, context_vsa);
797: IF (vc_return <> FND_FLEX_SERVER1.VV_VALID) then
798: IF (vc_return <> FND_FLEX_SERVER1.VV_CTXTNOSEG) then
799: return(FALSE);
800: END IF;
801: END IF;
802: -- return(FALSE);
802: -- return(FALSE);
803: -- end if;
804:
805:
806: IF (fnd_flex_server1.g_debug_level > 0) THEN
807: FND_FLEX_SERVER1.add_debug('Context value (' || context_vsa.ids(1) ||
808: ') valid. ');
809: END IF;
810:
803: -- end if;
804:
805:
806: IF (fnd_flex_server1.g_debug_level > 0) THEN
807: FND_FLEX_SERVER1.add_debug('Context value (' || context_vsa.ids(1) ||
808: ') valid. ');
809: END IF;
810:
811: -- Get segment mapping for context-sensitive segments
811: -- Get segment mapping for context-sensitive segments
812: --
813: fstruct.desc_flex_context := context_vsa.ids(1);
814: IF (fstruct.desc_flex_context IS NOT NULL) AND
815: (vc_return <> FND_FLEX_SERVER1.VV_CTXTNOSEG) THEN
816: if(FND_FLEX_SERVER2.get_struct_cols
817: (fstruct, dff_info.table_appl_id,
818: dff_info.table_id, n_context, context_cols,
819: context_coltypes, context_segfmts) = FALSE) then
819: context_coltypes, context_segfmts) = FALSE) then
820: return(FALSE);
821: end if;
822:
823: IF (fnd_flex_server1.g_debug_level > 0) THEN
824: FND_FLEX_SERVER1.add_debug(' Found context segment mapping: [');
825: for i in 1..n_context loop
826: FND_FLEX_SERVER1.add_debug(context_cols(i) || ':' ||
827: context_coltypes(i) ||' ');
820: return(FALSE);
821: end if;
822:
823: IF (fnd_flex_server1.g_debug_level > 0) THEN
824: FND_FLEX_SERVER1.add_debug(' Found context segment mapping: [');
825: for i in 1..n_context loop
826: FND_FLEX_SERVER1.add_debug(context_cols(i) || ':' ||
827: context_coltypes(i) ||' ');
828: end loop;
822:
823: IF (fnd_flex_server1.g_debug_level > 0) THEN
824: FND_FLEX_SERVER1.add_debug(' Found context segment mapping: [');
825: for i in 1..n_context loop
826: FND_FLEX_SERVER1.add_debug(context_cols(i) || ':' ||
827: context_coltypes(i) ||' ');
828: end loop;
829: FND_FLEX_SERVER1.add_debug('] ');
830: END IF;
825: for i in 1..n_context loop
826: FND_FLEX_SERVER1.add_debug(context_cols(i) || ':' ||
827: context_coltypes(i) ||' ');
828: end loop;
829: FND_FLEX_SERVER1.add_debug('] ');
830: END IF;
831: ELSE
832: n_context := 0;
833: context_segfmts.nsegs := 0;
888: /* context. */
889: /* Returns TRUE if all ok, or FALSE and sets FND_MESSAGE on error. */
890: /* ------------------------------------------------------------------------ */
891:
892: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
893: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
894: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
895: nsegs_out OUT nocopy NUMBER,
896: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray,
889: /* Returns TRUE if all ok, or FALSE and sets FND_MESSAGE on error. */
890: /* ------------------------------------------------------------------------ */
891:
892: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
893: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
894: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
895: nsegs_out OUT nocopy NUMBER,
896: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray,
897: x_context_segment_included OUT nocopy BOOLEAN)
890: /* ------------------------------------------------------------------------ */
891:
892: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
893: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
894: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
895: nsegs_out OUT nocopy NUMBER,
896: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray,
897: x_context_segment_included OUT nocopy BOOLEAN)
898: RETURN BOOLEAN IS
892: FUNCTION get_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
893: coldef IN FND_FLEX_SERVER1.ColumnDefinitions,
894: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
895: nsegs_out OUT nocopy NUMBER,
896: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray,
897: x_context_segment_included OUT nocopy BOOLEAN)
898: RETURN BOOLEAN IS
899: thisval VARCHAR2(1000);
900: fstruct FND_FLEX_SERVER1.FlexStructId;
896: segs_out OUT nocopy FND_FLEX_SERVER1.StringArray,
897: x_context_segment_included OUT nocopy BOOLEAN)
898: RETURN BOOLEAN IS
899: thisval VARCHAR2(1000);
900: fstruct FND_FLEX_SERVER1.FlexStructId;
901:
902: n_segs NUMBER;
903: seg_cols FND_FLEX_SERVER1.TabColArray;
904: seg_coltypes FND_FLEX_SERVER1.CharArray;
899: thisval VARCHAR2(1000);
900: fstruct FND_FLEX_SERVER1.FlexStructId;
901:
902: n_segs NUMBER;
903: seg_cols FND_FLEX_SERVER1.TabColArray;
904: seg_coltypes FND_FLEX_SERVER1.CharArray;
905: seg_fmts FND_FLEX_SERVER1.SegFormats;
906: context_seg NUMBER;
907:
900: fstruct FND_FLEX_SERVER1.FlexStructId;
901:
902: n_segs NUMBER;
903: seg_cols FND_FLEX_SERVER1.TabColArray;
904: seg_coltypes FND_FLEX_SERVER1.CharArray;
905: seg_fmts FND_FLEX_SERVER1.SegFormats;
906: context_seg NUMBER;
907:
908: BEGIN
901:
902: n_segs NUMBER;
903: seg_cols FND_FLEX_SERVER1.TabColArray;
904: seg_coltypes FND_FLEX_SERVER1.CharArray;
905: seg_fmts FND_FLEX_SERVER1.SegFormats;
906: context_seg NUMBER;
907:
908: BEGIN
909: IF (fnd_flex_server1.g_debug_level > 0) THEN
905: seg_fmts FND_FLEX_SERVER1.SegFormats;
906: context_seg NUMBER;
907:
908: BEGIN
909: IF (fnd_flex_server1.g_debug_level > 0) THEN
910: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
911: 'BEGIN SV4.get_descsegs() ');
912: END IF;
913:
906: context_seg NUMBER;
907:
908: BEGIN
909: IF (fnd_flex_server1.g_debug_level > 0) THEN
910: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
911: 'BEGIN SV4.get_descsegs() ');
912: END IF;
913:
914: -- Initialize outputs in case of error.
922: --
923:
924: if(coldef.context_value_set) then
925: thisval := coldef.context_value;
926: IF (fnd_flex_server1.g_debug_level > 0) THEN
927: FND_FLEX_SERVER1.add_debug('*Context* = (' || thisval || ') ');
928: END IF;
929: else
930: if(get_column_value(coldef.colvals, dff_info.context_column,
923:
924: if(coldef.context_value_set) then
925: thisval := coldef.context_value;
926: IF (fnd_flex_server1.g_debug_level > 0) THEN
927: FND_FLEX_SERVER1.add_debug('*Context* = (' || thisval || ') ');
928: END IF;
929: else
930: if(get_column_value(coldef.colvals, dff_info.context_column,
931: 'V', 'C', 30, thisval) = FALSE) then
947: for i in 1..n_segs loop
948: if((i = context_seg) and (coldef.context_value_set)) then
949: segs_out(i) := coldef.context_value;
950: x_context_segment_included := TRUE;
951: IF (fnd_flex_server1.g_debug_level > 0) THEN
952: FND_FLEX_SERVER1.add_debug('*Context* = (' ||
953: coldef.context_value || ') ');
954: END IF;
955: else
948: if((i = context_seg) and (coldef.context_value_set)) then
949: segs_out(i) := coldef.context_value;
950: x_context_segment_included := TRUE;
951: IF (fnd_flex_server1.g_debug_level > 0) THEN
952: FND_FLEX_SERVER1.add_debug('*Context* = (' ||
953: coldef.context_value || ') ');
954: END IF;
955: else
956: if(get_column_value(coldef.colvals, seg_cols(i), seg_coltypes(i),
984: /* Performs case-insensitive column name comparison. */
985: /* Returns TRUE if all ok, or FALSE and sets FND_MESSAGE on error. */
986: /* ----------------------------------------------------------------------- */
987:
988: FUNCTION get_column_value(colvals IN FND_FLEX_SERVER1.ColumnValues,
989: colname IN VARCHAR2,
990: coltype IN VARCHAR2,
991: seg_fmt IN VARCHAR2,
992: seg_len IN NUMBER,
996: valindex NUMBER;
997: niceval VARCHAR2(1000);
998:
999: BEGIN
1000: IF (fnd_flex_server1.g_debug_level > 0) THEN
1001: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1002: 'BEGIN SV4.get_column_value() ');
1003: END IF;
1004:
997: niceval VARCHAR2(1000);
998:
999: BEGIN
1000: IF (fnd_flex_server1.g_debug_level > 0) THEN
1001: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1002: 'BEGIN SV4.get_column_value() ');
1003: END IF;
1004:
1005: -- Find index to value in column value table.
1025: end if;
1026:
1027: -- Convert format of data to that desired for the value set.
1028: -- Assume numbers are already in the default to_char(n) format, and
1029: -- that dates are in the to_char(d, FND_FLEX_SERVER1.DATETIME_FMT) format.
1030: --
1031: -- Flex expects numbers to be in the default to_char(n) format.
1032: -- Flex expects most dates to be in the default to_char(d) format,
1033: -- except translatable dates which are in FND_FLEX_SERVER1.stored_date_format
1029: -- that dates are in the to_char(d, FND_FLEX_SERVER1.DATETIME_FMT) format.
1030: --
1031: -- Flex expects numbers to be in the default to_char(n) format.
1032: -- Flex expects most dates to be in the default to_char(d) format,
1033: -- except translatable dates which are in FND_FLEX_SERVER1.stored_date_format
1034: -- if ids or FND_FLEX_SERVER1.displayed_date_format if values. So we need
1035: -- to convert only if column is of date type.
1036: -- Dates input are the stored not displayed formats.
1037: -- See FND_FLEX_SERVER1.select_clause().
1030: --
1031: -- Flex expects numbers to be in the default to_char(n) format.
1032: -- Flex expects most dates to be in the default to_char(d) format,
1033: -- except translatable dates which are in FND_FLEX_SERVER1.stored_date_format
1034: -- if ids or FND_FLEX_SERVER1.displayed_date_format if values. So we need
1035: -- to convert only if column is of date type.
1036: -- Dates input are the stored not displayed formats.
1037: -- See FND_FLEX_SERVER1.select_clause().
1038: --
1033: -- except translatable dates which are in FND_FLEX_SERVER1.stored_date_format
1034: -- if ids or FND_FLEX_SERVER1.displayed_date_format if values. So we need
1035: -- to convert only if column is of date type.
1036: -- Dates input are the stored not displayed formats.
1037: -- See FND_FLEX_SERVER1.select_clause().
1038: --
1039: if(coltype = 'D') then
1040: d := to_date(colvals.column_values(valindex),
1041: FND_FLEX_SERVER1.DATETIME_FMT);
1037: -- See FND_FLEX_SERVER1.select_clause().
1038: --
1039: if(coltype = 'D') then
1040: d := to_date(colvals.column_values(valindex),
1041: FND_FLEX_SERVER1.DATETIME_FMT);
1042: if(seg_fmt in ('X', 'Y', 'Z')) then
1043: dfmt := FND_FLEX_SERVER1.stored_date_format(seg_fmt, seg_len);
1044: niceval := to_char(d, dfmt);
1045: else
1039: if(coltype = 'D') then
1040: d := to_date(colvals.column_values(valindex),
1041: FND_FLEX_SERVER1.DATETIME_FMT);
1042: if(seg_fmt in ('X', 'Y', 'Z')) then
1043: dfmt := FND_FLEX_SERVER1.stored_date_format(seg_fmt, seg_len);
1044: niceval := to_char(d, dfmt);
1045: else
1046: niceval := to_char(d);
1047: end if;
1048: else
1049: niceval := colvals.column_values(valindex);
1050: end if;
1051:
1052: IF (fnd_flex_server1.g_debug_level > 0) THEN
1053: FND_FLEX_SERVER1.add_debug('Column ' || colname || ':' || coltype ||
1054: ' = (' || niceval || ') ');
1055: END IF;
1056: val := niceval;
1049: niceval := colvals.column_values(valindex);
1050: end if;
1051:
1052: IF (fnd_flex_server1.g_debug_level > 0) THEN
1053: FND_FLEX_SERVER1.add_debug('Column ' || colname || ':' || coltype ||
1054: ' = (' || niceval || ') ');
1055: END IF;
1056: val := niceval;
1057:
1076: /* VV_VALID if all ok. */
1077: /* ----------------------------------------------------------------------- */
1078:
1079: FUNCTION
1080: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1081: nsegs_in IN NUMBER,
1082: segs IN FND_FLEX_SERVER1.StringArray,
1083: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1084: v_date IN DATE,
1078:
1079: FUNCTION
1080: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1081: nsegs_in IN NUMBER,
1082: segs IN FND_FLEX_SERVER1.StringArray,
1083: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1084: v_date IN DATE,
1085: uappid IN NUMBER,
1086: respid IN NUMBER,
1079: FUNCTION
1080: validate_descsegs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1081: nsegs_in IN NUMBER,
1082: segs IN FND_FLEX_SERVER1.StringArray,
1083: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1084: v_date IN DATE,
1085: uappid IN NUMBER,
1086: respid IN NUMBER,
1087: nsegs_out OUT nocopy NUMBER,
1084: v_date IN DATE,
1085: uappid IN NUMBER,
1086: respid IN NUMBER,
1087: nsegs_out OUT nocopy NUMBER,
1088: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
1089: segstats OUT nocopy VARCHAR2,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1086: respid IN NUMBER,
1087: nsegs_out OUT nocopy NUMBER,
1088: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
1089: segstats OUT nocopy VARCHAR2,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1087: nsegs_out OUT nocopy NUMBER,
1088: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
1089: segstats OUT nocopy VARCHAR2,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1088: segfmts OUT nocopy FND_FLEX_SERVER1.SegFormats,
1089: segstats OUT nocopy VARCHAR2,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1089: segstats OUT nocopy VARCHAR2,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1097: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1090: cols OUT nocopy FND_FLEX_SERVER1.TabColArray,
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1097: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1098: errsegn OUT nocopy NUMBER) RETURN NUMBER IS
1091: coltypes OUT nocopy FND_FLEX_SERVER1.CharArray,
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1097: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1098: errsegn OUT nocopy NUMBER) RETURN NUMBER IS
1099:
1092: v_dispvals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1097: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1098: errsegn OUT nocopy NUMBER) RETURN NUMBER IS
1099:
1100: -- Remember to check all sizes!
1093: v_vals OUT nocopy FND_FLEX_SERVER1.ValueArray,
1094: v_ids OUT nocopy FND_FLEX_SERVER1.ValueIdArray,
1095: v_descs OUT nocopy FND_FLEX_SERVER1.ValueDescArray,
1096: desc_lens OUT nocopy FND_FLEX_SERVER1.NumberArray,
1097: dispsegs OUT nocopy FND_FLEX_SERVER1.DisplayedSegs,
1098: errsegn OUT nocopy NUMBER) RETURN NUMBER IS
1099:
1100: -- Remember to check all sizes!
1101: --
1104:
1105: context_segnum NUMBER;
1106: context_seg VARCHAR2(80);
1107:
1108: context_segs_in FND_FLEX_SERVER1.StringArray;
1109: ncontext_segs_in NUMBER;
1110:
1111: global_segs ValidatedSegmentArray;
1112: context_segment ValidatedSegmentArray;
1111: global_segs ValidatedSegmentArray;
1112: context_segment ValidatedSegmentArray;
1113: context_segs ValidatedSegmentArray;
1114:
1115: global_vflags FND_FLEX_SERVER1.ValueValidationFlags;
1116: global_error_segnum NUMBER;
1117: global_error_msg VARCHAR2(2000);
1118: global_return_code NUMBER;
1119: error_segnum NUMBER;
1119: error_segnum NUMBER;
1120: return_code NUMBER;
1121:
1122: BEGIN
1123: IF (fnd_flex_server1.g_debug_level > 0) THEN
1124: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1125: 'BEGIN SV4.validate_descsegs() ');
1126: END IF;
1127:
1120: return_code NUMBER;
1121:
1122: BEGIN
1123: IF (fnd_flex_server1.g_debug_level > 0) THEN
1124: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1125: 'BEGIN SV4.validate_descsegs() ');
1126: END IF;
1127:
1128: -- Initialize all returned values and all derived values with defaults
1140: -- Return name of global context.
1141: --
1142: if(get_global_context(dff_info.application_id, dff_info.name,
1143: global_context_name) = FALSE) then
1144: return_code := FND_FLEX_SERVER1.VV_ERROR;
1145: goto return_values;
1146: end if;
1147:
1148: -- Global context cannot require exact segs because we dont know
1154: global_vflags.exact_nsegs_required := FALSE;
1155:
1156: -- Validate global context segments
1157: --
1158: IF (fnd_flex_server1.g_debug_level > 0) THEN
1159: FND_FLEX_SERVER1.add_debug(' Global segments: ');
1160: END IF;
1161: global_return_code := validate_context_segs(dff_info, global_context_name,
1162: nsegs_in, segs, global_vflags, v_date, uappid,
1155:
1156: -- Validate global context segments
1157: --
1158: IF (fnd_flex_server1.g_debug_level > 0) THEN
1159: FND_FLEX_SERVER1.add_debug(' Global segments: ');
1160: END IF;
1161: global_return_code := validate_context_segs(dff_info, global_context_name,
1162: nsegs_in, segs, global_vflags, v_date, uappid,
1163: respid, global_segs, global_error_segnum);
1165: -- Quit only if invalid and the error requires stopping. If error does
1166: -- not require stopping, save error message so it doesn't get
1167: -- overwritten by context validation.
1168: --
1169: if(global_return_code <> FND_FLEX_SERVER1.VV_VALID) then
1170: if(global_error_segnum is not null) then
1171: global_error_msg := FND_MESSAGE.GET_ENCODED;
1172: end if;
1173: if(not (((global_return_code = FND_FLEX_SERVER1.VV_SECURED) and
1169: if(global_return_code <> FND_FLEX_SERVER1.VV_VALID) then
1170: if(global_error_segnum is not null) then
1171: global_error_msg := FND_MESSAGE.GET_ENCODED;
1172: end if;
1173: if(not (((global_return_code = FND_FLEX_SERVER1.VV_SECURED) and
1174: (not global_vflags.stop_on_security)) OR
1175: ((global_return_code = FND_FLEX_SERVER1.VV_VALUES) and
1176: (not global_vflags.stop_on_value_error)))) then
1177: goto return_values;
1171: global_error_msg := FND_MESSAGE.GET_ENCODED;
1172: end if;
1173: if(not (((global_return_code = FND_FLEX_SERVER1.VV_SECURED) and
1174: (not global_vflags.stop_on_security)) OR
1175: ((global_return_code = FND_FLEX_SERVER1.VV_VALUES) and
1176: (not global_vflags.stop_on_value_error)))) then
1177: goto return_values;
1178: end if;
1179: end if;
1194: AND dff_info.reference_field IS NULL
1195: -- Bug#4220582, to enforce validation checking even when ids are passed and not values.
1196: AND vflags.values_not_ids = TRUE then
1197: context_seg := NULL;
1198: return_code := FND_FLEX_SERVER1.VV_VALID;
1199: ELSE
1200: if(vflags.values_not_ids) then
1201: context_segnum := 1;
1202: for i in 1..global_segs.dispsegs.n_segflags loop
1226: if(vflags.exact_nsegs_required and
1227: not ((nsegs_in = 0) and (context_segnum = 1))) then
1228: FND_MESSAGE.set_name('FND', 'FLEX-MISSING CONCAT VALUES');
1229: error_segnum := global_segs.nvalidated + 1;
1230: return_code := FND_FLEX_SERVER1.VV_ERROR;
1231: goto return_values;
1232: else
1233: context_seg := NULL;
1234: end if;
1234: end if;
1235: else
1236: context_seg := SUBSTRB(segs(context_segnum), 1, 80);
1237: end if;
1238: IF (fnd_flex_server1.g_debug_level > 0) THEN
1239: FND_FLEX_SERVER1.add_debug(' Context seg '||to_char(context_segnum));
1240: FND_FLEX_SERVER1.add_debug(' = (' || context_seg || ') ');
1241: END IF;
1242: --
1235: else
1236: context_seg := SUBSTRB(segs(context_segnum), 1, 80);
1237: end if;
1238: IF (fnd_flex_server1.g_debug_level > 0) THEN
1239: FND_FLEX_SERVER1.add_debug(' Context seg '||to_char(context_segnum));
1240: FND_FLEX_SERVER1.add_debug(' = (' || context_seg || ') ');
1241: END IF;
1242: --
1243: -- add 1. Beginning index for context sens. segs.
1236: context_seg := SUBSTRB(segs(context_segnum), 1, 80);
1237: end if;
1238: IF (fnd_flex_server1.g_debug_level > 0) THEN
1239: FND_FLEX_SERVER1.add_debug(' Context seg '||to_char(context_segnum));
1240: FND_FLEX_SERVER1.add_debug(' = (' || context_seg || ') ');
1241: END IF;
1242: --
1243: -- add 1. Beginning index for context sens. segs.
1244: --
1244: --
1245: context_segnum := context_segnum + 1;
1246: end if;
1247:
1248: IF (fnd_flex_server1.g_debug_level > 0) THEN
1249: FND_FLEX_SERVER1.add_debug('Context SEG#:' || To_char(context_segnum));
1250: END IF;
1251: -- Validate context segment. Default it if it's null and defaults
1252: -- are required.
1245: context_segnum := context_segnum + 1;
1246: end if;
1247:
1248: IF (fnd_flex_server1.g_debug_level > 0) THEN
1249: FND_FLEX_SERVER1.add_debug('Context SEG#:' || To_char(context_segnum));
1250: END IF;
1251: -- Validate context segment. Default it if it's null and defaults
1252: -- are required.
1253: --
1255: context_segment);
1256:
1257: -- If context field is valid, validate context. Pass in only context segs.
1258: --
1259: if((return_code <> FND_FLEX_SERVER1.VV_VALID) and
1260: (return_code <> FND_FLEX_SERVER1.VV_CTXTNOSEG)) then
1261: error_segnum := global_segs.nvalidated + 1;
1262: else
1263: ncontext_segs_in := 0;
1256:
1257: -- If context field is valid, validate context. Pass in only context segs.
1258: --
1259: if((return_code <> FND_FLEX_SERVER1.VV_VALID) and
1260: (return_code <> FND_FLEX_SERVER1.VV_CTXTNOSEG)) then
1261: error_segnum := global_segs.nvalidated + 1;
1262: else
1263: ncontext_segs_in := 0;
1264: for i in context_segnum..nsegs_in loop
1264: for i in context_segnum..nsegs_in loop
1265: ncontext_segs_in := ncontext_segs_in + 1;
1266: context_segs_in(ncontext_segs_in) := segs(i);
1267: end loop;
1268: IF (fnd_flex_server1.g_debug_level > 0) THEN
1269: FND_FLEX_SERVER1.add_debug(' Context-sensitive segments: ');
1270: END IF;
1271: IF (ncontext_segs_in > 0) THEN
1272: return_code := validate_context_segs(dff_info, context_segment.ids(1),
1265: ncontext_segs_in := ncontext_segs_in + 1;
1266: context_segs_in(ncontext_segs_in) := segs(i);
1267: end loop;
1268: IF (fnd_flex_server1.g_debug_level > 0) THEN
1269: FND_FLEX_SERVER1.add_debug(' Context-sensitive segments: ');
1270: END IF;
1271: IF (ncontext_segs_in > 0) THEN
1272: return_code := validate_context_segs(dff_info, context_segment.ids(1),
1273: ncontext_segs_in, context_segs_in, vflags, v_date,
1285: -- for output.
1286: --
1287: if((append_vsegarray(global_segs, context_segment) = FALSE) or
1288: (append_vsegarray(global_segs, context_segs) = FALSE)) then
1289: return(FND_FLEX_SERVER1.VV_ERROR);
1290: end if;
1291:
1292: -- Return all the segment info
1293: --
1311: --
1312: errsegn := error_segnum;
1313:
1314: if(global_return_code is not null) then
1315: if(global_return_code = FND_FLEX_SERVER1.VV_VALID) then
1316: null;
1317: elsif(global_return_code = FND_FLEX_SERVER1.VV_SECURED) then
1318: if((return_code is null) or
1319: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1313:
1314: if(global_return_code is not null) then
1315: if(global_return_code = FND_FLEX_SERVER1.VV_VALID) then
1316: null;
1317: elsif(global_return_code = FND_FLEX_SERVER1.VV_SECURED) then
1318: if((return_code is null) or
1319: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1320: (return_code = FND_FLEX_SERVER1.VV_SECURED)) then
1321: goto return_global_error;
1315: if(global_return_code = FND_FLEX_SERVER1.VV_VALID) then
1316: null;
1317: elsif(global_return_code = FND_FLEX_SERVER1.VV_SECURED) then
1318: if((return_code is null) or
1319: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1320: (return_code = FND_FLEX_SERVER1.VV_SECURED)) then
1321: goto return_global_error;
1322: end if;
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1316: null;
1317: elsif(global_return_code = FND_FLEX_SERVER1.VV_SECURED) then
1318: if((return_code is null) or
1319: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1320: (return_code = FND_FLEX_SERVER1.VV_SECURED)) then
1321: goto return_global_error;
1322: end if;
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1324: if((return_code is null) or
1319: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1320: (return_code = FND_FLEX_SERVER1.VV_SECURED)) then
1321: goto return_global_error;
1322: end if;
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1324: if((return_code is null) or
1325: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1326: (return_code = FND_FLEX_SERVER1.VV_SECURED) or
1327: (return_code = FND_FLEX_SERVER1.VV_VALUES)) then
1321: goto return_global_error;
1322: end if;
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1324: if((return_code is null) or
1325: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1326: (return_code = FND_FLEX_SERVER1.VV_SECURED) or
1327: (return_code = FND_FLEX_SERVER1.VV_VALUES)) then
1328: goto return_global_error;
1329: end if;
1322: end if;
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1324: if((return_code is null) or
1325: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1326: (return_code = FND_FLEX_SERVER1.VV_SECURED) or
1327: (return_code = FND_FLEX_SERVER1.VV_VALUES)) then
1328: goto return_global_error;
1329: end if;
1330: else
1323: elsif(global_return_code = FND_FLEX_SERVER1.VV_VALUES) then
1324: if((return_code is null) or
1325: (return_code = FND_FLEX_SERVER1.VV_VALID) or
1326: (return_code = FND_FLEX_SERVER1.VV_SECURED) or
1327: (return_code = FND_FLEX_SERVER1.VV_VALUES)) then
1328: goto return_global_error;
1329: end if;
1330: else
1331: goto return_global_error;
1332: end if;
1333: end if;
1334:
1335: if(return_code is null) then
1336: return_code := FND_FLEX_SERVER1.VV_ERROR;
1337: end if;
1338: return(return_code);
1339:
1340: <
1345: EXCEPTION
1346: WHEN OTHERS then
1347: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1348: FND_MESSAGE.set_token('MSG','validate_descsegs() exception: '||SQLERRM);
1349: return(FND_FLEX_SERVER1.VV_ERROR);
1350:
1351: END validate_descsegs;
1352:
1353: /* ----------------------------------------------------------------------- */
1355: /* for the context of the given name returning a validated context */
1356: /* structure and error segment number relative to this context */
1357: /* as output. If context name is NULL, returns a valid context with */
1358: /* 0 segments. Returns error code and sets FND_MESSAGE with error */
1359: /* or returns FND_FLEX_SERVER1.VV_VALID if ok. */
1360: /* ----------------------------------------------------------------------- */
1361:
1362: FUNCTION
1363: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1359: /* or returns FND_FLEX_SERVER1.VV_VALID if ok. */
1360: /* ----------------------------------------------------------------------- */
1361:
1362: FUNCTION
1363: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1364: contxt_name IN VARCHAR2,
1365: nsegs IN NUMBER,
1366: segs IN FND_FLEX_SERVER1.StringArray,
1367: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1362: FUNCTION
1363: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1364: contxt_name IN VARCHAR2,
1365: nsegs IN NUMBER,
1366: segs IN FND_FLEX_SERVER1.StringArray,
1367: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1368: vdate IN DATE,
1369: uappid IN NUMBER,
1370: respid IN NUMBER,
1363: validate_context_segs(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1364: contxt_name IN VARCHAR2,
1365: nsegs IN NUMBER,
1366: segs IN FND_FLEX_SERVER1.StringArray,
1367: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1368: vdate IN DATE,
1369: uappid IN NUMBER,
1370: respid IN NUMBER,
1371: vsa OUT nocopy ValidatedSegmentArray,
1370: respid IN NUMBER,
1371: vsa OUT nocopy ValidatedSegmentArray,
1372: errsegnum OUT nocopy NUMBER) RETURN NUMBER IS
1373:
1374: f_struct FND_FLEX_SERVER1.FlexStructId;
1375: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1376: no_vrules FND_FLEX_SERVER1.Vrules;
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1371: vsa OUT nocopy ValidatedSegmentArray,
1372: errsegnum OUT nocopy NUMBER) RETURN NUMBER IS
1373:
1374: f_struct FND_FLEX_SERVER1.FlexStructId;
1375: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1376: no_vrules FND_FLEX_SERVER1.Vrules;
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1379:
1372: errsegnum OUT nocopy NUMBER) RETURN NUMBER IS
1373:
1374: f_struct FND_FLEX_SERVER1.FlexStructId;
1375: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1376: no_vrules FND_FLEX_SERVER1.Vrules;
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1379:
1380: l_nsegs_out NUMBER;
1373:
1374: f_struct FND_FLEX_SERVER1.FlexStructId;
1375: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1376: no_vrules FND_FLEX_SERVER1.Vrules;
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1379:
1380: l_nsegs_out NUMBER;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1374: f_struct FND_FLEX_SERVER1.FlexStructId;
1375: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
1376: no_vrules FND_FLEX_SERVER1.Vrules;
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1379:
1380: l_nsegs_out NUMBER;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1382: l_segstats VARCHAR2(30);
1377: no_dvals FND_FLEX_SERVER1.DerivedVals;
1378: no_dquals FND_FLEX_SERVER1.Qualifiers;
1379:
1380: l_nsegs_out NUMBER;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1382: l_segstats VARCHAR2(30);
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1379:
1380: l_nsegs_out NUMBER;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1382: l_segstats VARCHAR2(30);
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1380: l_nsegs_out NUMBER;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1382: l_segstats VARCHAR2(30);
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1381: l_segfmts FND_FLEX_SERVER1.segformats;
1382: l_segstats VARCHAR2(30);
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1382: l_segstats VARCHAR2(30);
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1390: l_errsegn NUMBER;
1383: l_tabcols FND_FLEX_SERVER1.tabcolarray;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1390: l_errsegn NUMBER;
1391: l_ret_code NUMBER;
1384: l_tabcoltypes FND_FLEX_SERVER1.chararray;
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1390: l_errsegn NUMBER;
1391: l_ret_code NUMBER;
1392: BEGIN
1385: l_v_dispvals FND_FLEX_SERVER1.valuearray;
1386: l_v_vals FND_FLEX_SERVER1.valuearray;
1387: l_v_ids FND_FLEX_SERVER1.valueidarray;
1388: l_v_descs FND_FLEX_SERVER1.valuedescarray;
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1390: l_errsegn NUMBER;
1391: l_ret_code NUMBER;
1392: BEGIN
1393: IF (fnd_flex_server1.g_debug_level > 0) THEN
1389: l_desc_lens FND_FLEX_SERVER1.numberarray;
1390: l_errsegn NUMBER;
1391: l_ret_code NUMBER;
1392: BEGIN
1393: IF (fnd_flex_server1.g_debug_level > 0) THEN
1394: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1395: 'BEGIN SV4.validate_context_segs() ');
1396: END IF;
1397:
1390: l_errsegn NUMBER;
1391: l_ret_code NUMBER;
1392: BEGIN
1393: IF (fnd_flex_server1.g_debug_level > 0) THEN
1394: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1395: 'BEGIN SV4.validate_context_segs() ');
1396: END IF;
1397:
1398:
1402:
1403: -- Return a null ValidatedSegmentArray if no context name.
1404: --
1405: if(contxt_name is null) then
1406: return(FND_FLEX_SERVER1.VV_VALID);
1407: end if;
1408:
1409: -- Set up flex structure
1410: --
1419:
1420: -- Determine displayed segments for this context
1421: --
1422: if(FND_FLEX_SERVER.parse_displayed(f_struct, 'ALL', disp_segs)) then
1423: l_ret_code := FND_FLEX_SERVER1.validate_struct
1424: (f_struct, dff_info.table_appl_id,
1425: dff_info.table_id, nsegs, segs, disp_segs, vflags,
1426: vdate, no_vrules, uappid, respid,
1427: l_nsegs_out, l_segfmts, l_segstats, l_tabcols,
1442: errsegnum := l_errsegn;
1443: vsa.dispsegs := disp_segs;
1444: RETURN(l_ret_code);
1445: end if;
1446: return(FND_FLEX_SERVER1.VV_ERROR);
1447:
1448: EXCEPTION
1449: WHEN OTHERS then
1450: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1449: WHEN OTHERS then
1450: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1451: FND_MESSAGE.set_token('MSG', 'validate_context_segs() exception: '
1452: || SQLERRM);
1453: return(FND_FLEX_SERVER1.VV_ERROR);
1454:
1455: END validate_context_segs;
1456:
1457: /* ----------------------------------------------------------------------- */
1456:
1457: /* ----------------------------------------------------------------------- */
1458: /* Validates the context value for the specified descriptive */
1459: /* flexfield. Returns an error code and sets FND_MESSAGE on error */
1460: /* or returns FND_FLEX_SERVER1.VV_VALID and a ValidatedSegmentArray */
1461: /* with only one segment if valid. */
1462: /* Note: Unlike regular value validation, validation must always */
1463: /* stop if the context segment is invalid because the remaining */
1464: /* segments all depend on it. */
1464: /* segments all depend on it. */
1465: /* ----------------------------------------------------------------------- */
1466:
1467: FUNCTION
1468: validate_context(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1469: context_sval IN VARCHAR2,
1470: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1471: vsa OUT nocopy ValidatedSegmentArray)
1472: RETURN NUMBER IS
1466:
1467: FUNCTION
1468: validate_context(dff_info IN FND_FLEX_SERVER1.DescFlexInfo,
1469: context_sval IN VARCHAR2,
1470: vflags IN FND_FLEX_SERVER1.ValueValidationFlags,
1471: vsa OUT nocopy ValidatedSegmentArray)
1472: RETURN NUMBER IS
1473:
1474: context_segval VARCHAR2(80);
1486: c_row NUMBER;
1487: c_value FND_VSET.value_dr;
1488:
1489: BEGIN
1490: IF (fnd_flex_server1.g_debug_level > 0) THEN
1491: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1492: 'BEGIN SV4.validate_context() ');
1493: END IF;
1494:
1487: c_value FND_VSET.value_dr;
1488:
1489: BEGIN
1490: IF (fnd_flex_server1.g_debug_level > 0) THEN
1491: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1492: 'BEGIN SV4.validate_context() ');
1493: END IF;
1494:
1495:
1497: --
1498: context_displayed := (dff_info.context_override = 'Y');
1499:
1500: vsa.nvalidated := 1;
1501: vsa.segstats := FND_FLEX_SERVER1.FF_VERROR;
1502: vsa.segfmts.nsegs := 1;
1503: vsa.segfmts.vs_format(1) := 'C';
1504: vsa.segfmts.vs_maxsize(1) := 30;
1505: vsa.segcols(1) := dff_info.context_column;
1511: vsa.catdesclens(1) := 240;
1512: vsa.dispsegs.n_segflags := 1;
1513: vsa.dispsegs.segflags(1) := context_displayed;
1514:
1515: IF (fnd_flex_server1.g_debug_level > 0) THEN
1516: FND_FLEX_SERVER1.add_debug('CONTEXT:'||context_sval);
1517: END IF;
1518:
1519: -- Strip whitespace from around context value only if its a value
1512: vsa.dispsegs.n_segflags := 1;
1513: vsa.dispsegs.segflags(1) := context_displayed;
1514:
1515: IF (fnd_flex_server1.g_debug_level > 0) THEN
1516: FND_FLEX_SERVER1.add_debug('CONTEXT:'||context_sval);
1517: END IF;
1518:
1519: -- Strip whitespace from around context value only if its a value
1520: --
1532: (LENGTHB(context_segval) > l_max_lengthb)) then
1533: FND_MESSAGE.set_name('FND', 'FLEX-VALUE TOO LONG');
1534: FND_MESSAGE.set_token('VALUE', context_segval || '...');
1535: FND_MESSAGE.set_token('LENGTH', to_char(l_max_lengthb));
1536: vcode := FND_FLEX_SERVER1.FF_VFORMAT;
1537: goto return_status;
1538: end if;
1539:
1540: -- Default the context if necessary
1544: ((dff_info.context_required = 'Y') and vflags.default_all_required) or
1545: ((dff_info.context_required = 'Y') and (not context_displayed) and
1546: vflags.default_non_displayed))) then
1547: context_segval := dff_info.default_context;
1548: IF (fnd_flex_server1.g_debug_level > 0) THEN
1549: FND_FLEX_SERVER1.add_debug('Defaulted context segment to '
1550: || context_segval);
1551: END IF;
1552: end if;
1545: ((dff_info.context_required = 'Y') and (not context_displayed) and
1546: vflags.default_non_displayed))) then
1547: context_segval := dff_info.default_context;
1548: IF (fnd_flex_server1.g_debug_level > 0) THEN
1549: FND_FLEX_SERVER1.add_debug('Defaulted context segment to '
1550: || context_segval);
1551: END IF;
1552: end if;
1553:
1554: IF (context_segval IS NOT NULL) THEN
1555: vcode := find_context_value(dff_info.application_id, dff_info.name,
1556: l_id_or_value, context_segval, context_id,
1557: context_val, context_description, l_global_flag);
1558: if (vcode = FND_FLEX_SERVER1.FF_CTXTNOSEG) THEN
1559: IF (dff_info.context_override_value_set_id IS NOT NULL) THEN
1560: fnd_vset.get_valueset(dff_info.context_override_value_set_id, vset, fmt);
1561: fnd_vset.get_value_init(vset, TRUE);
1562: fnd_vset.get_value(vset, c_row, c_found, c_value);
1561: fnd_vset.get_value_init(vset, TRUE);
1562: fnd_vset.get_value(vset, c_row, c_found, c_value);
1563: WHILE(c_found) LOOP
1564: IF (context_segval = c_value.value) THEN
1565: vcode := FND_FLEX_SERVER1.FF_VVALID;
1566: EXIT;
1567: END IF;
1568: fnd_vset.get_value(vset, c_row, c_found, c_value);
1569: END LOOP;
1568: fnd_vset.get_value(vset, c_row, c_found, c_value);
1569: END LOOP;
1570: fnd_vset.get_value_end(vset);
1571: IF (c_found = FALSE) THEN
1572: vcode:= FND_FLEX_SERVER1.FF_VNOTFOUND;
1573: END IF;
1574: END IF;
1575:
1576: END IF;
1577: --
1578: -- Some developers set Global as regular context.
1579: --
1580: IF (l_global_flag = 'Y') THEN
1581: IF (fnd_flex_server1.g_debug_level > 0) THEN
1582: FND_FLEX_SERVER1.add_debug('Setting context to NULL, Global Data Elements is not a context.');
1583: END IF;
1584: context_id := NULL;
1585: context_val := NULL;
1578: -- Some developers set Global as regular context.
1579: --
1580: IF (l_global_flag = 'Y') THEN
1581: IF (fnd_flex_server1.g_debug_level > 0) THEN
1582: FND_FLEX_SERVER1.add_debug('Setting context to NULL, Global Data Elements is not a context.');
1583: END IF;
1584: context_id := NULL;
1585: context_val := NULL;
1586: context_description := NULL;
1591: --
1592:
1593: if(context_segval is null) then
1594: if((dff_info.context_required = 'N') or (vflags.allow_nulls)) then
1595: vcode := FND_FLEX_SERVER1.FF_VVALID;
1596: else
1597: vcode := FND_FLEX_SERVER1.FF_VREQUIRED;
1598: if(vflags.message_on_null) then
1599: FND_MESSAGE.set_name('FND', 'FLEX-MISSING CONTEXT VALUE');
1593: if(context_segval is null) then
1594: if((dff_info.context_required = 'N') or (vflags.allow_nulls)) then
1595: vcode := FND_FLEX_SERVER1.FF_VVALID;
1596: else
1597: vcode := FND_FLEX_SERVER1.FF_VREQUIRED;
1598: if(vflags.message_on_null) then
1599: FND_MESSAGE.set_name('FND', 'FLEX-MISSING CONTEXT VALUE');
1600: FND_MESSAGE.set_token('FLEXFIELD', dff_info.name);
1601: -- FND_MESSAGE.set_name('FND', 'FLEX-NULL SEGMENT');
1610:
1611: -- Pretend context field is a non-validated character value set
1612: -- I assume context field must be on a VARCHAR2 type column.
1613: --
1614: if(vcode = FND_FLEX_SERVER1.FF_VVALID) then
1615: vsa.dispvals(1) := context_val;
1616: vsa.vals(1) := context_val;
1617: vsa.ids(1) := context_id;
1618: vsa.descs(1) := context_description;
1615: vsa.dispvals(1) := context_val;
1616: vsa.vals(1) := context_val;
1617: vsa.ids(1) := context_id;
1618: vsa.descs(1) := context_description;
1619: return(FND_FLEX_SERVER1.VV_VALID);
1620: elsif(vcode = FND_FLEX_SERVER1.FF_VERROR) then
1621: return(FND_FLEX_SERVER1.VV_ERROR);
1622: else
1623: FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1616: vsa.vals(1) := context_val;
1617: vsa.ids(1) := context_id;
1618: vsa.descs(1) := context_description;
1619: return(FND_FLEX_SERVER1.VV_VALID);
1620: elsif(vcode = FND_FLEX_SERVER1.FF_VERROR) then
1621: return(FND_FLEX_SERVER1.VV_ERROR);
1622: else
1623: FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1624: FND_MESSAGE.set_token('VALUE', context_segval);
1617: vsa.ids(1) := context_id;
1618: vsa.descs(1) := context_description;
1619: return(FND_FLEX_SERVER1.VV_VALID);
1620: elsif(vcode = FND_FLEX_SERVER1.FF_VERROR) then
1621: return(FND_FLEX_SERVER1.VV_ERROR);
1622: else
1623: FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1624: FND_MESSAGE.set_token('VALUE', context_segval);
1625: FND_MESSAGE.set_token('DFF', dff_info.name);
1622: else
1623: FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1624: FND_MESSAGE.set_token('VALUE', context_segval);
1625: FND_MESSAGE.set_token('DFF', dff_info.name);
1626: return(FND_FLEX_SERVER1.VV_VALUES);
1627: end if;
1628:
1629: return(FND_FLEX_SERVER1.VV_ERROR);
1630:
1625: FND_MESSAGE.set_token('DFF', dff_info.name);
1626: return(FND_FLEX_SERVER1.VV_VALUES);
1627: end if;
1628:
1629: return(FND_FLEX_SERVER1.VV_ERROR);
1630:
1631: EXCEPTION
1632: WHEN OTHERS then
1633: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1631: EXCEPTION
1632: WHEN OTHERS then
1633: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1634: FND_MESSAGE.set_token('MSG', 'validate_context() exception: '||SQLERRM);
1635: return(FND_FLEX_SERVER1.VV_ERROR);
1636:
1637: END validate_context;
1638:
1639: /* ----------------------------------------------------------------------- */
1646: RETURN BOOLEAN IS
1647: n NUMBER;
1648:
1649: BEGIN
1650: IF (fnd_flex_server1.g_debug_level > 0) THEN
1651: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1652: 'BEGIN SV4.append_vsegarray() ');
1653: END IF;
1654:
1647: n NUMBER;
1648:
1649: BEGIN
1650: IF (fnd_flex_server1.g_debug_level > 0) THEN
1651: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1652: 'BEGIN SV4.append_vsegarray() ');
1653: END IF;
1654:
1655: n := destvsa.nvalidated;
1696: /* ----------------------------------------------------------------------- */
1697: /* Initializes ColumnDefinitions. */
1698: /* ----------------------------------------------------------------------- */
1699:
1700: PROCEDURE init_coldef(column_defn OUT nocopy FND_FLEX_SERVER1.ColumnDefinitions) IS
1701: BEGIN
1702: column_defn.context_value_set := FALSE;
1703: column_defn.context_value := NULL;
1704: init_colvals(column_defn.colvals);
1707: /* ----------------------------------------------------------------------- */
1708: /* Initializes ColumnValues. */
1709: /* ----------------------------------------------------------------------- */
1710:
1711: PROCEDURE init_colvals(column_vals OUT nocopy FND_FLEX_SERVER1.ColumnValues) IS
1712: BEGIN
1713: column_vals.ncolumns := 0;
1714: END init_colvals;
1715:
1722: /* input, then a case-insensitive match is done on values that start */
1723: /* with the context segment input. If only one value matches that, */
1724: /* that context is returned. Otherwise the context is not found. */
1725: /* */
1726: /* Returns value validation code FND_FLEX_SERVER1.FF_VALID if ok. */
1727: /* Otherwise sets error message in FND_MESSAGE and returns */
1728: /* FF_VVALUES if not found or FF_VERROR on error. */
1729: /* ----------------------------------------------------------------------- */
1730:
1739:
1740: vcode VARCHAR2(1);
1741:
1742: BEGIN
1743: IF (fnd_flex_server1.g_debug_level > 0) THEN
1744: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1745: 'BEGIN SV4.find_context_value(' ||
1746: p_id_or_value || ',' || seg_in ||') ');
1747: END IF;
1740: vcode VARCHAR2(1);
1741:
1742: BEGIN
1743: IF (fnd_flex_server1.g_debug_level > 0) THEN
1744: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1745: 'BEGIN SV4.find_context_value(' ||
1746: p_id_or_value || ',' || seg_in ||') ');
1747: END IF;
1748:
1785: context_val := g_cache_value.varchar2_2;
1786: context_desc := g_cache_value.varchar2_3;
1787: p_global_flag := g_cache_value.varchar2_4;
1788:
1789: return(FND_FLEX_SERVER1.FF_VVALID);
1790:
1791: EXCEPTION
1792: WHEN NO_DATA_FOUND then
1793: ---- vcode := context_vs_validation();
1794: -- context_id := seg_in;
1795: -- context_val := seg_in;
1796: -- context_desc := 'Dummy';
1797: -- p_global_flag := 'X';
1798: vcode := FND_FLEX_SERVER1.FF_CTXTNOSEG;
1799: -- IF(vcode = FND_FLEX_SERVER1.FF_CTXTNOSEG) THEN
1800: return(FND_FLEX_SERVER1.FF_CTXTNOSEG);
1801: -- ELSE
1802: -- FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1795: -- context_val := seg_in;
1796: -- context_desc := 'Dummy';
1797: -- p_global_flag := 'X';
1798: vcode := FND_FLEX_SERVER1.FF_CTXTNOSEG;
1799: -- IF(vcode = FND_FLEX_SERVER1.FF_CTXTNOSEG) THEN
1800: return(FND_FLEX_SERVER1.FF_CTXTNOSEG);
1801: -- ELSE
1802: -- FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1803: -- FND_MESSAGE.set_token('VALUE', seg_in);
1796: -- context_desc := 'Dummy';
1797: -- p_global_flag := 'X';
1798: vcode := FND_FLEX_SERVER1.FF_CTXTNOSEG;
1799: -- IF(vcode = FND_FLEX_SERVER1.FF_CTXTNOSEG) THEN
1800: return(FND_FLEX_SERVER1.FF_CTXTNOSEG);
1801: -- ELSE
1802: -- FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1803: -- FND_MESSAGE.set_token('VALUE', seg_in);
1804: -- FND_MESSAGE.set_token('DFF', dflex_name);
1801: -- ELSE
1802: -- FND_MESSAGE.set_name('FND', 'FLEX-CONTEXT NOT FOUND');
1803: -- FND_MESSAGE.set_token('VALUE', seg_in);
1804: -- FND_MESSAGE.set_token('DFF', dflex_name);
1805: -- return(FND_FLEX_SERVER1.FF_VNOTFOUND);
1806: -- END IF;
1807: WHEN OTHERS then
1808: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1809: FND_MESSAGE.set_token('MSG','find_context_value() exception: '||SQLERRM);
1806: -- END IF;
1807: WHEN OTHERS then
1808: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
1809: FND_MESSAGE.set_token('MSG','find_context_value() exception: '||SQLERRM);
1810: return(FND_FLEX_SERVER1.FF_VERROR);
1811:
1812: END find_context_value;
1813:
1814: /* ----------------------------------------------------------------------- */
1820: FUNCTION get_global_context(appl_id IN NUMBER,
1821: dflex_name IN VARCHAR2,
1822: glob_context OUT nocopy VARCHAR2) RETURN BOOLEAN IS
1823: BEGIN
1824: IF (fnd_flex_server1.g_debug_level > 0) THEN
1825: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1826: 'BEGIN SV4.get_global_context() ');
1827: END IF;
1828:
1821: dflex_name IN VARCHAR2,
1822: glob_context OUT nocopy VARCHAR2) RETURN BOOLEAN IS
1823: BEGIN
1824: IF (fnd_flex_server1.g_debug_level > 0) THEN
1825: FND_FLEX_SERVER1.add_debug(fnd_global.newline ||
1826: 'BEGIN SV4.get_global_context() ');
1827: END IF;
1828:
1829: g_cache_key := appl_id || '.' || dflex_name;