142: -- PRIVATE GLOBAL VARIABLES
143: --
144:
145: nvalidated NUMBER;
146: value_vals FND_FLEX_SERVER1.ValueArray;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
143: --
144:
145: nvalidated NUMBER;
146: value_vals FND_FLEX_SERVER1.ValueArray;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
144:
145: nvalidated NUMBER;
146: value_vals FND_FLEX_SERVER1.ValueArray;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
145: nvalidated NUMBER;
146: value_vals FND_FLEX_SERVER1.ValueArray;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
146: value_vals FND_FLEX_SERVER1.ValueArray;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
154: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
147: value_svals FND_FLEX_SERVER1.ValueArray;
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
154: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
155: delim VARCHAR2(1);
148: value_ids FND_FLEX_SERVER1.ValueIdArray;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
154: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
155: delim VARCHAR2(1);
156: err_segn NUMBER;
149: value_descs FND_FLEX_SERVER1.ValueDescArray;
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
154: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
155: delim VARCHAR2(1);
156: err_segn NUMBER;
157: err_msg VARCHAR2(2000);
150: value_desclens FND_FLEX_SERVER1.NumberArray;
151: seg_cols FND_FLEX_SERVER1.TabColArray;
152: seg_coltypes FND_FLEX_SERVER1.CharArray;
153: segtypes FND_FLEX_SERVER1.SegFormats;
154: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
155: delim VARCHAR2(1);
156: err_segn NUMBER;
157: err_msg VARCHAR2(2000);
158: err_text VARCHAR2(2000);
167: sta_serious_err BOOLEAN;
168:
169: -- Segment column names and values input
170: --
171: g_coldef FND_FLEX_SERVER1.ColumnDefinitions;
172:
173: /* ----------------------------------------------------------------------- */
174: /* THIS PACKAGE IS STILL UNDER DEVELOPMENT */
175: /* The functions herein are not be supported in any way and will */
190: uresp_id NUMBER;
191: userid NUMBER;
192: valid_stat NUMBER;
193:
194: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
195:
196: BEGIN
197:
198: -- Initialize everything including all global variables and set user
259: uresp_id NUMBER;
260: userid NUMBER;
261: valid_stat NUMBER;
262:
263: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
264:
265: BEGIN
266:
267: -- Initialize everything including all global variables and set user
330: valid_stat NUMBER;
331:
332: api_mode VARCHAR2(1);
333:
334: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
335:
336: BEGIN
337:
338: api_mode := check_api_mode(values_or_ids);
509: PROCEDURE set_column_value(column_name IN VARCHAR2,
510: column_value IN DATE) IS
511: BEGIN
512: add_column_value(column_name,
513: to_char(column_value, FND_FLEX_SERVER1.DATETIME_FMT), 'D');
514: END set_column_value;
515:
516: /* ------------------------------------------------------------------------ */
517: /* Clears all defined column values. Column values are also cleared */
672:
673: FUNCTION segment_valid(segnum IN NUMBER) RETURN BOOLEAN IS
674: BEGIN
675: if((segcodes is not null) and (segnum between 1 and LENGTH(segcodes))) then
676: return(SUBSTR(segcodes, segnum, 1) = FND_FLEX_SERVER1.FF_VVALID);
677: end if;
678: return(FALSE);
679: END segment_valid;
680:
729: BEGIN
730: --
731: -- Initialize messages, debugging, and number of sql strings
732: --
733: if(FND_FLEX_SERVER1.init_globals = FALSE) then
734: return(FALSE);
735: end if;
736:
737: --
793: /* ------------------------------------------------------------------------ */
794:
795: PROCEDURE set_stati(v_stat IN NUMBER) IS
796: BEGIN
797: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
794:
795: PROCEDURE set_stati(v_stat IN NUMBER) IS
796: BEGIN
797: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
802: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
795: PROCEDURE set_stati(v_stat IN NUMBER) IS
796: BEGIN
797: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
802: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
803:
796: BEGIN
797: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
802: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
803:
804: -- Clear column definitions
797: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
802: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
803:
804: -- Clear column definitions
805: --
798: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
799: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
800: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
801: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
802: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
803:
804: -- Clear column definitions
805: --
806: FND_FLEX_SERVER4.init_coldef(g_coldef);