[Home] [Help]
PACKAGE BODY: APPS.FTP_BR_CASHFLOW_PVT
Source
1 PACKAGE BODY FTP_BR_CASHFLOW_PVT AS
2 /* $Header: ftpcflob.pls 120.0 2005/06/06 18:58:54 appldev noship $ */
3
4 G_PKG_NAME constant varchar2(30) := 'FTP_BR_CASHFLOW_PVT';
5
6 ------------------------------------------------------------
7 -- PRIVATE SPECS
8 ------------------------------------------------------------
9
10 PROCEDURE DeleteCorrectionProcRuleRecs(
11 p_obj_def_id in number
12 );
13
14 PROCEDURE DeleteCorrectionProcTblsRecs(
15 p_obj_def_id in number
16 );
17
18 PROCEDURE CopyCorrectionProcRuleRecs(
19 p_source_obj_def_id in number
20 ,p_target_obj_def_id in number
21 ,p_created_by in number
22 ,p_creation_date in date
23 );
24 PROCEDURE CopyCorrectionProcTblsRecs(
25 p_source_obj_def_id in number
26 ,p_target_obj_def_id in number
27 ,p_created_by in number
28 ,p_creation_date in date
29 );
30
31 ----------------------------------------
32 -- PUBLIC BODIES ------
33 ----------------------------------------
34
35 ---------------------------------------------------------------------
36 -- Deletes all the details records of a Cash Flow Table Definition.
37 ---------------------------------------------------------------------
38
39 PROCEDURE DeleteObjectDefinition(
40 p_obj_def_id in number
41 )
42 IS
43
44 g_api_name constant varchar2(30) := 'DeleteObjectDefinition';
45
46 BEGIN
47 DeleteCorrectionProcRuleRecs(
48 p_obj_def_id => p_obj_def_id
49 );
50
51 DeleteCorrectionProcTblsRecs(
52 p_obj_def_id => p_obj_def_id
53 );
54
55 EXCEPTION
56
57 when others then
58 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
59 raise FND_API.G_EXC_UNEXPECTED_ERROR;
60
61 END DeleteObjectDefinition;
62
63
64
65 ----------------------------------------------------------------------------
66 -- Creates all the detail records of a new Cash Flow Table Rule Definition (target)
67 -- by copying the detail records of another Cash Flow Table Rule Definition (source).
68 --
69 -- IN Parameters
70 -- p_source_obj_def_id - Source Object Definition ID.
71 -- p_target_obj_def_id - Target Object Definition ID.
72 -- p_created_by - FND User ID (optional).
73 -- p_creation_date - System Date (optional).
74 ----------------------------------------------------------------------------
75 PROCEDURE CopyObjectDefinition(
76 p_source_obj_def_id in number
77 ,p_target_obj_def_id in number
78 ,p_created_by in number
79 ,p_creation_date in date
80 )
81 IS
82
83 g_api_name constant varchar2(30) := 'CopyObjectDefinition';
84
85 BEGIN
86
87 CopyCorrectionProcRuleRecs(
88 p_source_obj_def_id => p_source_obj_def_id
89 ,p_target_obj_def_id => p_target_obj_def_id
90 ,p_created_by => p_created_by
91 ,p_creation_date => p_creation_date
92 );
93
94 CopyCorrectionProcTblsRecs(
95 p_source_obj_def_id => p_source_obj_def_id
96 ,p_target_obj_def_id => p_target_obj_def_id
97 ,p_created_by => p_created_by
98 ,p_creation_date => p_creation_date
99 );
100
101 EXCEPTION
102
103 when others then
104 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, g_api_name);
105 raise FND_API.G_EXC_UNEXPECTED_ERROR;
106
107 END CopyObjectDefinition;
108
109
110
111 ----------------------------------------
112 -- PRIVATE BODIES ----------------------
113 ----------------------------------------
114
115 --------------------------------------------------------------------------------
116 PROCEDURE DeleteCorrectionProcRuleRecs(
117 p_obj_def_id in number
118 )
119 --------------------------------------------------------------------------------
120 IS
121 BEGIN
122
123 delete from ftp_correction_proc_rule
124 where object_definition_id = p_obj_def_id;
125
126 END DeleteCorrectionProcRuleRecs;
127
128
129
130 --------------------------------------------------------------------------------
131 PROCEDURE DeleteCorrectionProcTblsRecs(
132 p_obj_def_id in number
133 )
134 --------------------------------------------------------------------------------
135 IS
136 BEGIN
137
138 delete from ftp_correction_proc_tbls
139 where object_definition_id = p_obj_def_id;
140
141 END DeleteCorrectionProcTblsRecs;
142
143
144
145
146
147 --------------------------------------------------------------------------------
148 PROCEDURE CopyCorrectionProcRuleRecs(
149 p_source_obj_def_id in number
150 ,p_target_obj_def_id in number
151 ,p_created_by in number
152 ,p_creation_date in date
153 )
154 --------------------------------------------------------------------------------
155 IS
156 BEGIN
157 insert into ftp_correction_proc_rule (
158 OBJECT_DEFINITION_ID
159 ,FILTER_OBJECT_ID
160 ,CREATION_DATE
161 ,CREATED_BY
162 ,LAST_UPDATED_BY
163 ,LAST_UPDATE_DATE
164 ,LAST_UPDATE_LOGIN
165 ,PREVIEW_FLAG
166 ) select
167 p_target_obj_def_id
168 ,FILTER_OBJECT_ID
169 ,nvl(p_creation_date,creation_date)
170 ,nvl(p_created_by,created_by)
171 ,FND_GLOBAL.user_id
172 ,sysdate
173 ,FND_GLOBAL.user_id
174 ,PREVIEW_FLAG
175 from ftp_correction_proc_rule
176 where object_definition_id = p_source_obj_def_id;
177
178 END CopyCorrectionProcRuleRecs;
179
180
181 --
182 -- PROCEDURE
183 -- CopyCorrectionProcTblsRecs
184 --
185 -- DESCRIPTION
186 -- Creates a new Cash Flow Edits Definition records by copying records in the
187 -- ftp_correction_proc_tbls table.
188 --
189 -- IN
190 -- p_source_obj_def_id - Source Object Definition ID.
191 -- p_target_obj_def_id - Target Object Definition ID.
192 -- p_created_by - FND User ID (optional).
193 -- p_creation_date - System Date (optional).
194 --
195 --------------------------------------------------------------------------------
196 PROCEDURE CopyCorrectionProcTblsRecs(
197 p_source_obj_def_id in number
198 ,p_target_obj_def_id in number
199 ,p_created_by in number
200 ,p_creation_date in date
201 )
202 --------------------------------------------------------------------------------
203 IS
204 BEGIN
205
206 insert into ftp_correction_proc_tbls (
207 OBJECT_DEFINITION_ID
208 ,TABLE_NAME
209 ,CREATION_DATE
210 ,CREATED_BY
211 ,LAST_UPDATED_BY
212 ,LAST_UPDATE_DATE
213 ,LAST_UPDATE_LOGIN
214 ) select
215 p_target_obj_def_id
216 ,TABLE_NAME
217 ,nvl(p_creation_date,creation_date)
218 ,nvl(p_created_by,created_by)
219 ,FND_GLOBAL.user_id
220 ,sysdate
221 ,FND_GLOBAL.user_id
222 from ftp_correction_proc_tbls
223 where OBJECT_DEFINITION_ID = p_source_obj_def_id;
224
225 END CopyCorrectionProcTblsRecs;
226
227
228 END FTP_BR_CASHFLOW_PVT;