PACKAGE BODY: APPS.FND_FLEX_DATE

Source

1 PACKAGE BODY FND_FLEX_DATE AS
2   /* $Header: AFFFDTEB.pls 115.0 99/07/16 23:17:53 porting ship $ */
3 
4 
5   /* ---------------------------------------------------------------------- */
6   /* Convert date format.                                                   */
7   /* ---------------------------------------------------------------------- */
8   FUNCTION convert_format(in_date  IN  VARCHAR2,
9                           in_mask  IN  VARCHAR2,
10                           out_date IN OUT VARCHAR2,
11                           out_mask IN  VARCHAR2) RETURN BOOLEAN
12   IS
13   err_num NUMBER;
14   err_msg VARCHAR2(240);
15   BEGIN
16     out_date := TO_CHAR(TO_DATE(in_date, in_mask), out_mask);
17     RETURN (TRUE);
18   EXCEPTION
19     WHEN OTHERS THEN
20       err_num := SQLCODE;
21       err_msg := SUBSTR(SQLERRM, 1, 240);
22       FND_MESSAGE.set_name('FND', 'SQL_PLSQL_ERROR');
23       FND_MESSAGE.set_token('ERRNO', TO_CHAR(err_num));
24       FND_MESSAGE.set_token('REASON', err_msg);
25       FND_MESSAGE.set_token('ROUTINE', 'FND_FLEX_DATE.CONVERT_FORMAT');
26       RETURN (FALSE);
27   END convert_format;
28 
29 END FND_FLEX_DATE;