37:
38:
39: /* ------------------------------------------------------------------------ */
40: /* The following functions use ROWID and so were not released. The */
41: /* FND_FLEX_SERVER4.descval_engine() supports this functionality and was */
42: /* tested, but these cover functions were not. */
43: /* ------------------------------------------------------------------------ */
44:
45: /* ------------------------------------------------------------------------ */
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
194: -- Initialize everything including all global variables and set user
195: -- Isvalid is initialized to FALSE, serious_error initialized to TRUE.
196: --
197: if(init_all(NULL, NULL, NULL, resp_apid, uresp_id, userid)) then
198: FND_FLEX_SERVER4.descval_engine(user_apid => resp_apid,
199: user_resp => uresp_id,
200: userid => userid,
201: flex_app_sname => appl_short_name,
202: desc_flex_name => desc_flex_name,
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
264: -- Isvalid is initialized to FALSE, serious_error initialized to TRUE.
265: --
266: if(init_all(resp_appl_id, resp_id, NULL,
267: resp_apid, uresp_id, userid)) then
268: FND_FLEX_SERVER4.descval_engine(user_apid => resp_apid,
269: user_resp => uresp_id,
270: userid => userid,
271: flex_app_sname => appl_short_name,
272: desc_flex_name => desc_flex_name,
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);
338: --
339:
340: if(init_all(resp_appl_id, resp_id, NULL,
341: resp_apid, uresp_id, userid)) then
342: FND_FLEX_SERVER4.descval_engine(user_apid => resp_apid,
343: user_resp => uresp_id,
344: userid => userid,
345: flex_app_sname => appl_short_name,
346: desc_flex_name => desc_flex_name,
417: --
418: if(init_all(resp_appl_id, resp_id, NULL,
419: resp_apid, uresp_id, userid)) then
420:
421: FND_FLEX_SERVER4.descval_engine(user_apid => resp_apid,
422: user_resp => uresp_id,
423: userid => userid,
424: flex_app_sname => appl_short_name,
425: desc_flex_name => desc_flex_name,
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 */
508: /* ------------------------------------------------------------------------ */
509:
510: PROCEDURE clear_column_values IS
511: BEGIN
512: FND_FLEX_SERVER4.init_coldef(g_coldef);
513: END clear_column_values;
514:
515: /* ------------------------------------------------------------------------ */
516: /* Functions for getting more details about the most recently */
572:
573: FUNCTION concatenated_values RETURN VARCHAR2 IS
574: BEGIN
575: IF (sta_valid) THEN
576: return(FND_FLEX_SERVER.concatenate_values(nvalidated, value_vals,
577: disp_segs, delim));
578: ELSE
579: raise_application_error
580: (-20001, ('Developer Error: DVL.concatenated_values should not ' ||
585:
586: FUNCTION concatenated_ids RETURN VARCHAR2 IS
587: BEGIN
588: IF (sta_valid) THEN
589: return(FND_FLEX_SERVER.concatenate_ids(nvalidated, value_ids, delim));
590: ELSE
591: raise_application_error
592: (-20001, ('Developer Error: DVL.concatenated_ids should not ' ||
593: 'be called if validation fails.'));
597:
598: FUNCTION concatenated_descriptions RETURN VARCHAR2 IS
599: BEGIN
600: IF (sta_valid) THEN
601: return(FND_FLEX_SERVER.concatenate_descriptions(nvalidated,
602: value_descs, disp_segs, value_desclens, delim));
603: ELSE
604: raise_application_error
605: (-20001, ('Developer Error: DVL.concatenated_descriptions should not '||
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);
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);
796:
797: END set_stati;
798:
799: /* ------------------------------------------------------------------------ */