[Home] [Help]
PACKAGE BODY: APPS.XLA_TB_DEFN_JE_SOURCES_PVT
Source
1 PACKAGE BODY XLA_TB_DEFN_JE_SOURCES_PVT AS
2 /* $Header: xlathtbsrc.pkb 120.0 2005/10/07 12:18:41 svjoshi noship $ */
3 /*===========================================================================+
4 | Copyright (c) 2001-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +============================================================================+
8 | PACKAGE NAME |
9 | xla_tb_defn_je_sources_PVT |
10 | |
11 | Description |
12 | This is a XLA package, which contains all the logic required |
13 | to maintain trial balance report definitions |
14 | |
15 | |
16 | HISTORY |
17 | 17-AUG-2005 M.Asada Created |
18 +===========================================================================*/
19
20 C_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'xla_tb_defn_je_sources_PVT';
21
22
23 --
24 --
25 --+==========================================================================+
26 --| |
27 --| PUBLIC PROCEDURE |
28 --| |
29 --| Create trial balance report definitions |
30 --| |
31 --| |
32 --+==========================================================================+
33 --
34 --
35 PROCEDURE Insert_Row
36 (p_rowid IN OUT NOCOPY VARCHAR2
37 ,p_definition_code IN VARCHAR2
38 ,p_object_version_number IN NUMBER
39 ,p_je_source_name IN VARCHAR2
40 ,p_creation_date IN DATE
41 ,p_created_by IN NUMBER
42 ,p_last_update_date IN DATE
43 ,p_last_updated_by IN NUMBER
44 ,p_last_update_login IN NUMBER) IS
45
46 BEGIN
47
48 IF p_definition_code IS NULL THEN
49 RAISE no_data_found;
50 END IF;
51
52
53 INSERT INTO xla_tb_defn_je_sources
54 (
55 definition_code
56 ,object_version_number
57 ,je_source_name
58 ,created_by
59 ,creation_date
60 ,last_updated_by
61 ,last_update_date
62 ,last_update_login
63 )
64 VALUES
65 (
66 p_definition_code
67 ,1 -- Ignore p_object_version_number
68 ,p_je_source_name
69 ,p_created_by
70 ,p_creation_date
71 ,p_last_updated_by
72 ,p_last_update_date
73 ,p_last_update_login
74 )
75 RETURNING rowid INTO p_rowid;
76
77
78 EXCEPTION
79 WHEN xla_exceptions_pkg.application_exception THEN
80 RAISE;
81 WHEN OTHERS THEN
82 xla_exceptions_pkg.raise_message
83 ('XLA' , 'XLA_COMMON_FAILURE'
84 ,'LOCATION' , C_PACKAGE_NAME || '.' || 'insert_row'
85 ,'ERROR' , sqlerrm);
86 END Insert_Row;
87
88 --+==========================================================================+
89 --| |
90 --| PUBLIC PROCEDURE |
91 --| |
92 --| Update trial balance JE source |
93 --| |
94 --| |
95 --+==========================================================================+
96 --
97 --
98 -- No Update API for this table. Delete and recreate rows.
99 --
100
101 --
102 --
103 --+==========================================================================+
104 --| |
105 --| PUBLIC PROCEDURE |
106 --| |
107 --| Delete trial balance JE source |
108 --| |
109 --+==========================================================================+
110 --
111 --
112 PROCEDURE Delete_Row
113 (p_definition_code IN VARCHAR2
114 ,p_je_source_name IN VARCHAR2) IS
115 BEGIN
116
117 DELETE FROM xla_tb_defn_je_sources
118 WHERE definition_code = p_definition_code
119 AND je_source_name = p_je_source_name;
120
121 IF SQL%NOTFOUND then
122 RAISE no_data_found;
123 END IF;
124
125 END Delete_Row;
126
127 --
128 --
129
130 END XLA_TB_DEFN_JE_SOURCES_PVT ; -- end of package spec