[Home] [Help]
PACKAGE BODY: APPS.CE_SYSTEM_PARAMETERS_PKG
Source
1 PACKAGE BODY CE_SYSTEM_PARAMETERS_PKG as
2 /* $Header: cesyspab.pls 120.6 2006/01/12 18:49:28 eliu ship $ */
3 FUNCTION body_revision RETURN VARCHAR2 IS
4 BEGIN
5
6 RETURN '$Revision: 120.6 $';
7
8 END body_revision;
9
10 FUNCTION spec_revision RETURN VARCHAR2 IS
11 BEGIN
12
13 RETURN G_spec_revision;
14
15 END spec_revision;
16
17 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
18 X_Legal_Entity_Id NUMBER,
19 X_Set_Of_Books_Id NUMBER,
20 X_Cashbook_Begin_Date DATE,
21 X_Show_Cleared_Flag VARCHAR2,
22 X_Show_Void_Payment_Flag VARCHAR2,
23 X_line_autocreation_flag VARCHAR2,
24 X_interface_purge_flag VARCHAR2,
25 X_interface_archive_flag VARCHAR2,
26 X_Lines_Per_Commit NUMBER,
27 X_Signing_Authority_Approval VARCHAR2,
28 X_CASHFLOW_EXCHANGE_RATE_TYPE VARCHAR2,
29 X_AUTHORIZATION_BAT VARCHAR2,
30 X_BSC_EXCHANGE_DATE_TYPE VARCHAR2,
31 X_BAT_EXCHANGE_DATE_TYPE VARCHAR2,
32 X_Created_By NUMBER,
33 X_Creation_Date DATE,
34 X_Last_Updated_By NUMBER,
35 X_Last_Update_Date DATE,
36 X_Last_Update_Login NUMBER,
37 X_Attribute_Category VARCHAR2,
38 X_Attribute1 VARCHAR2,
39 X_Attribute2 VARCHAR2,
40 X_Attribute3 VARCHAR2,
41 X_Attribute4 VARCHAR2,
42 X_Attribute5 VARCHAR2,
43 X_Attribute6 VARCHAR2,
44 X_Attribute7 VARCHAR2,
45 X_Attribute8 VARCHAR2,
46 X_Attribute9 VARCHAR2,
47 X_Attribute10 VARCHAR2,
48 X_Attribute11 VARCHAR2,
49 X_Attribute12 VARCHAR2,
50 X_Attribute13 VARCHAR2,
51 X_Attribute14 VARCHAR2,
52 X_Attribute15 VARCHAR2
53 ) IS
54 CURSOR C IS SELECT rowid FROM CE_SYSTEM_PARAMETERS
55 WHERE set_of_books_id = X_Set_Of_Books_Id;
56 BEGIN
57
58
59 INSERT INTO CE_SYSTEM_PARAMETERS(
60 legal_entity_id,
61 set_of_books_id,
62 cashbook_begin_date,
63 show_cleared_flag,
64 show_void_payment_flag,
65 line_autocreation_flag,
66 interface_purge_flag,
67 interface_archive_flag,
68 lines_per_commit,
69 SIGNING_AUTHORITY_APPR_FLAG,
70 CASHFLOW_EXCHANGE_RATE_TYPE,
71 AUTHORIZATION_BAT,
72 BSC_EXCHANGE_DATE_TYPE,
73 BAT_EXCHANGE_DATE_TYPE,
74 created_by,
75 creation_date,
76 last_updated_by,
77 last_update_date,
78 last_update_login,
79 attribute_category,
80 attribute1,
81 attribute2,
82 attribute3,
83 attribute4,
84 attribute5,
85 attribute6,
86 attribute7,
87 attribute8,
88 attribute9,
89 attribute10,
90 attribute11,
91 attribute12,
92 attribute13,
93 attribute14,
94 attribute15
95 ) VALUES (
96 X_Legal_Entity_Id,
97 X_Set_Of_Books_Id,
98 X_Cashbook_Begin_Date,
99 X_Show_Cleared_Flag,
100 X_Show_Void_Payment_Flag,
101 X_line_autocreation_flag,
102 X_interface_purge_flag,
103 X_interface_archive_flag,
104 X_Lines_Per_Commit,
105 X_Signing_Authority_Approval,
106 X_CASHFLOW_EXCHANGE_RATE_TYPE,
107 X_AUTHORIZATION_BAT,
108 X_BSC_EXCHANGE_DATE_TYPE,
109 X_BAT_EXCHANGE_DATE_TYPE,
110 X_Created_By,
111 X_Creation_Date,
112 X_Last_Updated_By,
113 X_Last_Update_Date,
114 X_Last_Update_Login,
115 X_Attribute_Category,
116 X_Attribute1,
117 X_Attribute2,
118 X_Attribute3,
119 X_Attribute4,
120 X_Attribute5,
121 X_Attribute6,
122 X_Attribute7,
123 X_Attribute8,
124 X_Attribute9,
125 X_Attribute10,
126 X_Attribute11,
127 X_Attribute12,
128 X_Attribute13,
129 X_Attribute14,
130 X_Attribute15
131 );
132
133 OPEN C;
134 FETCH C INTO X_Rowid;
135 if (C%NOTFOUND) then
136 CLOSE C;
137 Raise NO_DATA_FOUND;
138 end if;
139 CLOSE C;
140 END Insert_Row;
141
142
143 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
144 X_Legal_Entity_Id NUMBER,
145 X_Set_Of_Books_Id NUMBER,
146 X_Cashbook_Begin_Date DATE,
147 X_Show_Cleared_Flag VARCHAR2,
148 X_Show_Void_Payment_Flag VARCHAR2,
149 X_line_autocreation_flag VARCHAR2,
150 X_interface_purge_flag VARCHAR2,
151 X_interface_archive_flag VARCHAR2,
152 X_Lines_Per_Commit NUMBER,
153 X_Signing_Authority_Approval VARCHAR2,
154 X_CASHFLOW_EXCHANGE_RATE_TYPE VARCHAR2,
155 X_AUTHORIZATION_BAT VARCHAR2,
156 X_BSC_EXCHANGE_DATE_TYPE VARCHAR2,
157 X_BAT_EXCHANGE_DATE_TYPE VARCHAR2,
158 X_Attribute_Category VARCHAR2,
159 X_Attribute1 VARCHAR2,
160 X_Attribute2 VARCHAR2,
161 X_Attribute3 VARCHAR2,
162 X_Attribute4 VARCHAR2,
163 X_Attribute5 VARCHAR2,
164 X_Attribute6 VARCHAR2,
165 X_Attribute7 VARCHAR2,
166 X_Attribute8 VARCHAR2,
167 X_Attribute9 VARCHAR2,
168 X_Attribute10 VARCHAR2,
169 X_Attribute11 VARCHAR2,
170 X_Attribute12 VARCHAR2,
171 X_Attribute13 VARCHAR2,
172 X_Attribute14 VARCHAR2,
173 X_Attribute15 VARCHAR2
174 ) IS
175 CURSOR C IS
176 SELECT *
177 FROM CE_SYSTEM_PARAMETERS
178 WHERE rowid = X_Rowid
179 FOR UPDATE of Set_Of_Books_Id NOWAIT;
180 Recinfo C%ROWTYPE;
181
182
183 BEGIN
184 OPEN C;
185 FETCH C INTO Recinfo;
186 if (C%NOTFOUND) then
187 CLOSE C;
188 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
189 APP_EXCEPTION.Raise_Exception;
190 end if;
191 CLOSE C;
192 if (
193 ( (Recinfo.legal_entity_id = X_Legal_Entity_Id)
194 OR ( (Recinfo.legal_entity_id IS NULL)
195 AND (X_Legal_Entity_Id IS NULL)))
196 AND (Recinfo.set_of_books_id = X_Set_Of_Books_Id)
197 AND (Recinfo.cashbook_begin_date = X_Cashbook_Begin_Date)
198 AND (Recinfo.show_cleared_flag = X_Show_Cleared_Flag)
199 AND ( (Recinfo.show_void_payment_flag = X_Show_Void_Payment_Flag)
200 OR ( (Recinfo.show_void_payment_flag IS NULL)
201 AND (X_Show_Void_Payment_Flag IS NULL)))
202 AND ( (Recinfo.lines_per_commit = X_Lines_Per_Commit)
203 OR ( (Recinfo.lines_per_commit IS NULL)
204 AND (X_Lines_Per_Commit IS NULL)))
205 AND ( (Recinfo.SIGNING_AUTHORITY_APPR_FLAG = X_Signing_Authority_Approval)
206 OR ( (Recinfo.SIGNING_AUTHORITY_APPR_FLAG IS NULL)
207 AND (X_Signing_Authority_approval IS NULL)))
208 AND ( (Recinfo.CASHFLOW_EXCHANGE_RATE_TYPE = X_CASHFLOW_EXCHANGE_RATE_TYPE)
209 OR ( (Recinfo.CASHFLOW_EXCHANGE_RATE_TYPE IS NULL)
210 AND (X_CASHFLOW_EXCHANGE_RATE_TYPE IS NULL)))
211 AND ( (Recinfo.AUTHORIZATION_BAT = X_AUTHORIZATION_BAT)
212 OR ( (Recinfo.AUTHORIZATION_BAT IS NULL)
213 AND (X_AUTHORIZATION_BAT IS NULL)))
214 AND ( (Recinfo.BSC_EXCHANGE_DATE_TYPE = X_BSC_EXCHANGE_DATE_TYPE)
215 OR ( (Recinfo.BSC_EXCHANGE_DATE_TYPE IS NULL)
216 AND (X_BSC_EXCHANGE_DATE_TYPE IS NULL)))
217 AND ( (Recinfo.BAT_EXCHANGE_DATE_TYPE = X_BAT_EXCHANGE_DATE_TYPE)
218 OR ( (Recinfo.BAT_EXCHANGE_DATE_TYPE IS NULL)
219 AND (X_BAT_EXCHANGE_DATE_TYPE IS NULL)))
220 AND ( (Recinfo.attribute_category = X_Attribute_Category)
221 OR ( (Recinfo.attribute_category IS NULL)
222 AND (X_Attribute_Category IS NULL)))
223 AND ( (Recinfo.attribute1 = X_Attribute1)
224 OR ( (Recinfo.attribute1 IS NULL)
225 AND (X_Attribute1 IS NULL)))
226 AND ( (Recinfo.attribute2 = X_Attribute2)
227 OR ( (Recinfo.attribute2 IS NULL)
228 AND (X_Attribute2 IS NULL)))
229 AND ( (Recinfo.attribute3 = X_Attribute3)
230 OR ( (Recinfo.attribute3 IS NULL)
231 AND (X_Attribute3 IS NULL)))
232 AND ( (Recinfo.attribute4 = X_Attribute4)
233 OR ( (Recinfo.attribute4 IS NULL)
234 AND (X_Attribute4 IS NULL)))
235 AND ( (Recinfo.attribute5 = X_Attribute5)
236 OR ( (Recinfo.attribute5 IS NULL)
237 AND (X_Attribute5 IS NULL)))
238 AND ( (Recinfo.attribute6 = X_Attribute6)
239 OR ( (Recinfo.attribute6 IS NULL)
240 AND (X_Attribute6 IS NULL)))
241 AND ( (Recinfo.attribute7 = X_Attribute7)
242 OR ( (Recinfo.attribute7 IS NULL)
243 AND (X_Attribute7 IS NULL)))
244 AND ( (Recinfo.attribute8 = X_Attribute8)
245 OR ( (Recinfo.attribute8 IS NULL)
246 AND (X_Attribute8 IS NULL)))
247 AND ( (Recinfo.attribute9 = X_Attribute9)
248 OR ( (Recinfo.attribute9 IS NULL)
249 AND (X_Attribute9 IS NULL)))
250 AND ( (Recinfo.attribute10 = X_Attribute10)
251 OR ( (Recinfo.attribute10 IS NULL)
252 AND (X_Attribute10 IS NULL)))
253 AND ( (Recinfo.attribute11 = X_Attribute11)
254 OR ( (Recinfo.attribute11 IS NULL)
255 AND (X_Attribute11 IS NULL)))
256 AND ( (Recinfo.attribute12 = X_Attribute12)
257 OR ( (Recinfo.attribute12 IS NULL)
258 AND (X_Attribute12 IS NULL)))
259 AND ( (Recinfo.attribute13 = X_Attribute13)
260 OR ( (Recinfo.attribute13 IS NULL)
261 AND (X_Attribute13 IS NULL)))
262 AND ( (Recinfo.attribute14 = X_Attribute14)
263 OR ( (Recinfo.attribute14 IS NULL)
264 AND (X_Attribute14 IS NULL)))
265 AND ( (Recinfo.attribute15 = X_Attribute15)
266 OR ( (Recinfo.attribute15 IS NULL)
267 AND (X_Attribute15 IS NULL)))
268 AND ( (Recinfo.line_autocreation_flag = X_line_autocreation_flag)
269 OR ( (Recinfo.line_autocreation_flag IS NULL)
270 AND (X_line_autocreation_flag IS NULL)))
271 AND ( (Recinfo.interface_purge_flag = X_interface_purge_flag)
272 OR ( (Recinfo.interface_purge_flag IS NULL)
273 AND (X_interface_purge_flag IS NULL)))
274 AND ( (Recinfo.interface_archive_flag = X_interface_archive_flag)
275 OR ( (Recinfo.interface_archive_flag IS NULL)
276 AND (X_interface_archive_flag IS NULL)))
277 ) then
278 return;
279 else
280 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
281 APP_EXCEPTION.Raise_Exception;
282 end if;
283 END Lock_Row;
284
285 PROCEDURE Update_Row(X_Rowid VARCHAR2,
286 X_Legal_Entity_Id NUMBER,
287 X_Set_Of_Books_Id NUMBER,
288 X_Cashbook_Begin_Date DATE,
289 X_Show_Cleared_Flag VARCHAR2,
290 X_Show_Void_Payment_Flag VARCHAR2,
291 X_line_autocreation_flag VARCHAR2,
292 X_interface_purge_flag VARCHAR2,
293 X_interface_archive_flag VARCHAR2,
294 X_Lines_Per_Commit NUMBER,
295 X_Signing_Authority_Approval VARCHAR2,
296 X_CASHFLOW_EXCHANGE_RATE_TYPE VARCHAR2,
297 X_AUTHORIZATION_BAT VARCHAR2,
298 X_BSC_EXCHANGE_DATE_TYPE VARCHAR2,
299 X_BAT_EXCHANGE_DATE_TYPE VARCHAR2,
300 X_Last_Updated_By NUMBER,
301 X_Last_Update_Date DATE,
302 X_Last_Update_Login NUMBER,
303 X_Attribute_Category VARCHAR2,
304 X_Attribute1 VARCHAR2,
305 X_Attribute2 VARCHAR2,
306 X_Attribute3 VARCHAR2,
307 X_Attribute4 VARCHAR2,
308 X_Attribute5 VARCHAR2,
309 X_Attribute6 VARCHAR2,
310 X_Attribute7 VARCHAR2,
311 X_Attribute8 VARCHAR2,
312 X_Attribute9 VARCHAR2,
313 X_Attribute10 VARCHAR2,
314 X_Attribute11 VARCHAR2,
315 X_Attribute12 VARCHAR2,
316 X_Attribute13 VARCHAR2,
317 X_Attribute14 VARCHAR2,
318 X_Attribute15 VARCHAR2
319
320 ) IS
321 BEGIN
322 UPDATE CE_SYSTEM_PARAMETERS
323 SET
324 set_of_books_id = X_Set_Of_Books_Id,
325 cashbook_begin_date = X_Cashbook_Begin_Date,
326 show_cleared_flag = X_Show_Cleared_Flag,
327 show_void_payment_flag = X_Show_Void_Payment_Flag,
328 line_autocreation_flag = X_line_autocreation_flag,
329 interface_purge_flag = X_interface_purge_flag,
330 interface_archive_flag = X_interface_archive_flag,
331 lines_per_commit = X_Lines_Per_Commit,
332 SIGNING_AUTHORITY_APPR_FLAG = X_Signing_Authority_Approval,
333 CASHFLOW_EXCHANGE_RATE_TYPE = X_CASHFLOW_EXCHANGE_RATE_TYPE,
334 AUTHORIZATION_BAT = X_AUTHORIZATION_BAT,
335 BSC_EXCHANGE_DATE_TYPE = X_BSC_EXCHANGE_DATE_TYPE,
336 BAT_EXCHANGE_DATE_TYPE = X_BAT_EXCHANGE_DATE_TYPE,
337 last_updated_by = X_Last_Updated_By,
338 last_update_date = X_Last_Update_Date,
339 last_update_login = X_Last_Update_Login,
340 attribute_category = X_Attribute_Category,
341 attribute1 = X_Attribute1,
342 attribute2 = X_Attribute2,
343 attribute3 = X_Attribute3,
344 attribute4 = X_Attribute4,
345 attribute5 = X_Attribute5,
346 attribute6 = X_Attribute6,
347 attribute7 = X_Attribute7,
348 attribute8 = X_Attribute8,
349 attribute9 = X_Attribute9,
350 attribute10 = X_Attribute10,
351 attribute11 = X_Attribute11,
352 attribute12 = X_Attribute12,
353 attribute13 = X_Attribute13,
354 attribute14 = X_Attribute14,
355 attribute15 = X_Attribute15
356 WHERE rowid = X_Rowid;
357
358 if (SQL%NOTFOUND) then
359 Raise NO_DATA_FOUND;
360 end if;
361 END Update_Row;
362
363 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
364 BEGIN
365 DELETE FROM CE_SYSTEM_PARAMETERS
366 WHERE rowid = X_Rowid;
367
368 if (SQL%NOTFOUND) then
369 Raise NO_DATA_FOUND;
370 end if;
371 END Delete_Row;
372
373
374 END CE_SYSTEM_PARAMETERS_PKG;