PACKAGE BODY: APPS.GME_TEXT_DBL

Source

1 PACKAGE BODY gme_text_dbl AS
2 /* $Header: GMEVTXTB.pls 120.1 2005/06/03 11:01:38 appldev  $ */
3    g_pkg_name   CONSTANT VARCHAR2 (30) := 'gme_text_dbl';
4 
5    FUNCTION insert_header_row (
6       p_header   IN              gme_text_header%ROWTYPE
7      ,x_header   IN OUT NOCOPY   gme_text_header%ROWTYPE)
8       RETURN BOOLEAN
9    IS
10       l_api_name   CONSTANT VARCHAR2 (30) := 'GET_ITEM_NO';
11    BEGIN
12       INSERT INTO gme_text_header
13                   (text_code, created_by
14                   ,creation_date, last_updated_by
15                   ,last_update_date)
16            VALUES (gem5_text_code_s.NEXTVAL, gme_common_pvt.g_user_ident
17                   ,gme_common_pvt.g_timestamp, gme_common_pvt.g_user_ident
18                   ,gme_common_pvt.g_timestamp)
19         RETURNING text_code
20              INTO x_header.text_code;
21 
22       RETURN TRUE;
23    EXCEPTION
24       WHEN OTHERS THEN
25          --Bug2804440
26          fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
27          RETURN FALSE;
28    END insert_header_row;
29 
30    FUNCTION insert_text_row (
31       p_text_row   IN              gme_text_table%ROWTYPE
32      ,x_text_row   IN OUT NOCOPY   gme_text_table%ROWTYPE)
33       RETURN BOOLEAN
34    IS
35       l_rowid               VARCHAR2 (40);
36       l_api_name   CONSTANT VARCHAR2 (30) := 'insert_text_row';
37    BEGIN
38       gma_gme_text_tbl_pkg.insert_row
39                            (x_rowid                  => l_rowid
40                            ,x_text_code              => p_text_row.text_code
41                            ,x_lang_code              => p_text_row.lang_code
42                            ,x_paragraph_code         => p_text_row.paragraph_code
43                            ,x_sub_paracode           => p_text_row.sub_paracode
44                            ,x_line_no                => p_text_row.line_no
45                            ,x_text                   => p_text_row.text
46                            ,x_creation_date          => gme_common_pvt.g_timestamp
47                            ,x_created_by             => gme_common_pvt.g_user_ident
48                            ,x_last_updated_by        => gme_common_pvt.g_user_ident
49                            ,x_last_update_date       => gme_common_pvt.g_timestamp
50                            ,x_last_update_login      => gme_common_pvt.g_login_id);
51       RETURN TRUE;
52    EXCEPTION
53       WHEN OTHERS THEN
54          --Bug2804440
55          fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
56          --End Bug2804440
57          RETURN FALSE;
58    END insert_text_row;
59 END gme_text_dbl;