140: validate_mode := 'PARTIAL';
141: end if;
142: dins_flag := 'N';
143: else
144: FND_MESSAGE.set_name('FND', 'FLEX-BAD OPERATION');
145: FND_MESSAGE.set_token('FUNCTNAME', operation);
146: goto cleanup_and_return;
147: end if;
148:
141: end if;
142: dins_flag := 'N';
143: else
144: FND_MESSAGE.set_name('FND', 'FLEX-BAD OPERATION');
145: FND_MESSAGE.set_token('FUNCTNAME', operation);
146: goto cleanup_and_return;
147: end if;
148:
149: FND_FLEX_SERVER.validation_engine(resp_apid, uresp_id, userid,
174: -- segments, otherwise erase everything but the status and error message.
175: --
176: <
177: if(not sta_valid) then
178: err_msg := FND_MESSAGE.get_encoded;
179: if(sta_unsupported_err or sta_serious_err or
180: (operation not in ('DEFAULT_SEGMENTS', 'CHECK_SEGMENTS'))) then
181: clear_all_but_error;
182: end if;
184: return(sta_valid);
185:
186: EXCEPTION
187: WHEN OTHERS then
188: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
189: FND_MESSAGE.set_token('MSG','validate_segs() exception: '||SQLERRM);
190: err_msg := FND_MESSAGE.get_encoded;
191: return(FALSE);
192:
185:
186: EXCEPTION
187: WHEN OTHERS then
188: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
189: FND_MESSAGE.set_token('MSG','validate_segs() exception: '||SQLERRM);
190: err_msg := FND_MESSAGE.get_encoded;
191: return(FALSE);
192:
193: END validate_segs;
186: EXCEPTION
187: WHEN OTHERS then
188: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
189: FND_MESSAGE.set_token('MSG','validate_segs() exception: '||SQLERRM);
190: err_msg := FND_MESSAGE.get_encoded;
191: return(FALSE);
192:
193: END validate_segs;
194:
234: q_security := 'X';
235: elsif (security = 'ENFORCE') then
236: q_security := 'Y';
237: else
238: FND_MESSAGE.set_name('FND', 'FLEX-BAD SECURITY');
239: goto cleanup_and_return;
240: end if;
241:
242: FND_FLEX_SERVER.validation_engine(resp_apid, uresp_id, userid,
265: -- Get message and erase all but error if not valid
266: --
267: <
268: if(not sta_valid) then
269: err_msg := FND_MESSAGE.get_encoded;
270: clear_all_but_error;
271: end if;
272: return(sta_valid);
273:
272: return(sta_valid);
273:
274: EXCEPTION
275: WHEN OTHERS then
276: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
277: FND_MESSAGE.set_token('MSG', 'validate_ccid() exception: ' || SQLERRM);
278: err_msg := FND_MESSAGE.get_encoded;
279: return(FALSE);
280:
273:
274: EXCEPTION
275: WHEN OTHERS then
276: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
277: FND_MESSAGE.set_token('MSG', 'validate_ccid() exception: ' || SQLERRM);
278: err_msg := FND_MESSAGE.get_encoded;
279: return(FALSE);
280:
281: END validate_ccid;
274: EXCEPTION
275: WHEN OTHERS then
276: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
277: FND_MESSAGE.set_token('MSG', 'validate_ccid() exception: ' || SQLERRM);
278: err_msg := FND_MESSAGE.get_encoded;
279: return(FALSE);
280:
281: END validate_ccid;
282:
319:
320: FUNCTION error_message RETURN VARCHAR2 IS
321: BEGIN
322: if((err_text is null) and (err_msg is not null)) then
323: FND_MESSAGE.set_encoded(err_msg);
324: err_text := FND_MESSAGE.get;
325: end if;
326: return(err_text);
327: END error_message;
320: FUNCTION error_message RETURN VARCHAR2 IS
321: BEGIN
322: if((err_text is null) and (err_msg is not null)) then
323: FND_MESSAGE.set_encoded(err_msg);
324: err_text := FND_MESSAGE.get;
325: end if;
326: return(err_text);
327: END error_message;
328:
589: return(TRUE);
590:
591: EXCEPTION
592: WHEN OTHERS then
593: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
594: FND_MESSAGE.set_token('MSG','init_all() exception: ' || SQLERRM);
595: return(FALSE);
596:
597: END init_all;
590:
591: EXCEPTION
592: WHEN OTHERS then
593: FND_MESSAGE.set_name('FND', 'FLEX-SSV EXCEPTION');
594: FND_MESSAGE.set_token('MSG','init_all() exception: ' || SQLERRM);
595: return(FALSE);
596:
597: END init_all;
598: