138: -- PRIVATE GLOBAL VARIABLES
139: --
140:
141: nvalidated NUMBER;
142: value_vals FND_FLEX_SERVER1.ValueArray;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
139: --
140:
141: nvalidated NUMBER;
142: value_vals FND_FLEX_SERVER1.ValueArray;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
140:
141: nvalidated NUMBER;
142: value_vals FND_FLEX_SERVER1.ValueArray;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
141: nvalidated NUMBER;
142: value_vals FND_FLEX_SERVER1.ValueArray;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
142: value_vals FND_FLEX_SERVER1.ValueArray;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
150: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
143: value_svals FND_FLEX_SERVER1.ValueArray;
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
150: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
151: delim VARCHAR2(1);
144: value_ids FND_FLEX_SERVER1.ValueIdArray;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
150: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
151: delim VARCHAR2(1);
152: err_segn NUMBER;
145: value_descs FND_FLEX_SERVER1.ValueDescArray;
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
150: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
151: delim VARCHAR2(1);
152: err_segn NUMBER;
153: err_msg VARCHAR2(2000);
146: value_desclens FND_FLEX_SERVER1.NumberArray;
147: seg_cols FND_FLEX_SERVER1.TabColArray;
148: seg_coltypes FND_FLEX_SERVER1.CharArray;
149: segtypes FND_FLEX_SERVER1.SegFormats;
150: disp_segs FND_FLEX_SERVER1.DisplayedSegs;
151: delim VARCHAR2(1);
152: err_segn NUMBER;
153: err_msg VARCHAR2(2000);
154: err_text VARCHAR2(2000);
163: sta_serious_err BOOLEAN;
164:
165: -- Segment column names and values input
166: --
167: g_coldef FND_FLEX_SERVER1.ColumnDefinitions;
168:
169: /* ----------------------------------------------------------------------- */
170: /* THIS PACKAGE IS STILL UNDER DEVELOPMENT */
171: /* The functions herein are not be supported in any way and will */
186: uresp_id NUMBER;
187: userid NUMBER;
188: valid_stat NUMBER;
189:
190: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
191:
192: BEGIN
193:
194: -- Initialize everything including all global variables and set user
255: uresp_id NUMBER;
256: userid NUMBER;
257: valid_stat NUMBER;
258:
259: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
260:
261: BEGIN
262:
263: -- Initialize everything including all global variables and set user
326: valid_stat NUMBER;
327:
328: api_mode VARCHAR2(1);
329:
330: dummy_coldef FND_FLEX_SERVER1.ColumnDefinitions;
331:
332: BEGIN
333:
334: api_mode := check_api_mode(values_or_ids);
498: PROCEDURE set_column_value(column_name IN VARCHAR2,
499: column_value IN DATE) IS
500: BEGIN
501: add_column_value(column_name,
502: to_char(column_value, FND_FLEX_SERVER1.DATETIME_FMT), 'D');
503: END set_column_value;
504:
505: /* ------------------------------------------------------------------------ */
506: /* Clears all defined column values. Column values are also cleared */
661:
662: FUNCTION segment_valid(segnum IN NUMBER) RETURN BOOLEAN IS
663: BEGIN
664: if((segcodes is not null) and (segnum between 1 and LENGTH(segcodes))) then
665: return(SUBSTR(segcodes, segnum, 1) = FND_FLEX_SERVER1.FF_VVALID);
666: end if;
667: return(FALSE);
668: END segment_valid;
669:
718: BEGIN
719: --
720: -- Initialize messages, debugging, and number of sql strings
721: --
722: if(FND_FLEX_SERVER1.init_globals = FALSE) then
723: return(FALSE);
724: end if;
725:
726: --
782: /* ------------------------------------------------------------------------ */
783:
784: PROCEDURE set_stati(v_stat IN NUMBER) IS
785: BEGIN
786: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
783:
784: PROCEDURE set_stati(v_stat IN NUMBER) IS
785: BEGIN
786: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
791: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
784: PROCEDURE set_stati(v_stat IN NUMBER) IS
785: BEGIN
786: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
791: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
792:
785: BEGIN
786: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
791: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
792:
793: -- Clear column definitions
786: sta_valid := (v_stat = FND_FLEX_SERVER1.VV_VALID);
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
791: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
792:
793: -- Clear column definitions
794: --
787: sta_secured := ((v_stat = FND_FLEX_SERVER1.VV_SECURED) or
788: (INSTR(segcodes, FND_FLEX_SERVER1.FF_VSECURED) > 0));
789: sta_value_err := (v_stat = FND_FLEX_SERVER1.VV_VALUES);
790: sta_unsupported_err := (v_stat = FND_FLEX_SERVER1.VV_UNSUPPORTED);
791: sta_serious_err := (v_stat = FND_FLEX_SERVER1.VV_ERROR);
792:
793: -- Clear column definitions
794: --
795: FND_FLEX_SERVER4.init_coldef(g_coldef);