37:
38: FUNCTION break_segs(catsegs IN VARCHAR2,
39: sepchar IN VARCHAR2,
40: nexpect IN NUMBER,
41: segs OUT NOCOPY FND_FLEX_SERVER1.StringArray)
42: RETURN BOOLEAN;
43:
44: /* ----------------------------------------------------------------------- */
45: /* The following functions are called only from triggers on */
141: update_login IN NUMBER,
142: catsegs_low IN VARCHAR2,
143: catsegs_high IN VARCHAR2) RETURN BOOLEAN IS
144:
145: lo FND_FLEX_SERVER1.StringArray;
146: hi FND_FLEX_SERVER1.StringArray;
147: sepchar VARCHAR2(1);
148: new_include_lines NUMBER;
149: new_exclude_lines NUMBER;
142: catsegs_low IN VARCHAR2,
143: catsegs_high IN VARCHAR2) RETURN BOOLEAN IS
144:
145: lo FND_FLEX_SERVER1.StringArray;
146: hi FND_FLEX_SERVER1.StringArray;
147: sepchar VARCHAR2(1);
148: new_include_lines NUMBER;
149: new_exclude_lines NUMBER;
150: nsegs NUMBER;
296: update_login IN NUMBER,
297: catsegs_low IN VARCHAR2,
298: catsegs_high IN VARCHAR2) RETURN BOOLEAN IS
299:
300: lo FND_FLEX_SERVER1.StringArray;
301: hi FND_FLEX_SERVER1.StringArray;
302: sepchar VARCHAR2(1);
303: nsegs NUMBER;
304: nlines NUMBER;
297: catsegs_low IN VARCHAR2,
298: catsegs_high IN VARCHAR2) RETURN BOOLEAN IS
299:
300: lo FND_FLEX_SERVER1.StringArray;
301: hi FND_FLEX_SERVER1.StringArray;
302: sepchar VARCHAR2(1);
303: nsegs NUMBER;
304: nlines NUMBER;
305: not_incl_excl VARCHAR2(1);
501: /* ----------------------------------------------------------------------- */
502: FUNCTION break_segs(catsegs IN VARCHAR2,
503: sepchar IN VARCHAR2,
504: nexpect IN NUMBER,
505: segs OUT NOCOPY FND_FLEX_SERVER1.StringArray)
506: RETURN BOOLEAN IS
507: n_segs NUMBER;
508: BEGIN
509: -- Do not call to_stringarray if only one segment input because that
512: if(nexpect = 1) then
513: segs(1) := catsegs;
514: n_segs := 2;
515: else
516: n_segs := FND_FLEX_SERVER1.to_stringarray(catsegs, sepchar, segs) + 1;
517: end if;
518: for i in n_segs..30 loop
519: segs(i) := NULL;
520: end loop;