[Home] [Help]
PACKAGE BODY: APPS.CN_PAY_APPROVAL_FLOW_PKG
Source
1 PACKAGE BODY CN_PAY_APPROVAL_FLOW_PKG AS
2 /* $Header: cntpflwb.pls 120.1 2005/08/29 15:41:17 fmburu noship $*/
3
4
5 -- * -------------------------------------------------------------------------*
6 -- Procedure Name
7 -- Insert_row
8 -- Purpose
9 -- Main insert procedure
10 -- Note
11 -- 1. Primary key should be populated from sequence before call
12 -- this procedure. No refernece to sequence in this procedure.
13 -- 2. All paramaters are IN parameter.
14 -- * -------------------------------------------------------------------------*
15 PROCEDURE insert_row
16 ( p_pay_approval_flow_rec IN PAY_APPROVAL_FLOW_REC_TYPE) IS
17
18 BEGIN
19
20 INSERT into CN_PAY_APPROVAL_FLOW
21 ( PAY_APPROVAL_FLOW_ID,
22 PAYRUN_ID,
23 PAYMENT_WORKSHEET_ID,
24 SUBMIT_BY_RESOURCE_ID,
25 SUBMIT_BY_USER_ID,
26 SUBMIT_BY_EMAIL,
27 SUBMIT_TO_RESOURCE_ID,
28 SUBMIT_TO_USER_ID,
29 SUBMIT_TO_EMAIL,
30 APPROVAL_STATUS,
31 UPDATED_BY_RESOURCE_ID,
32 ATTRIBUTE_CATEGORY,
33 ATTRIBUTE1,
34 ATTRIBUTE2,
35 ATTRIBUTE3,
36 ATTRIBUTE4,
37 ATTRIBUTE5,
38 ATTRIBUTE6,
39 ATTRIBUTE7,
40 ATTRIBUTE8,
41 ATTRIBUTE9,
42 ATTRIBUTE10,
43 ATTRIBUTE11,
44 ATTRIBUTE12,
45 ATTRIBUTE13,
46 ATTRIBUTE14,
47 ATTRIBUTE15,
48 CREATION_DATE,
49 CREATED_BY,
50 LAST_UPDATE_DATE,
51 LAST_UPDATED_BY,
52 LAST_UPDATE_LOGIN,
53 OBJECT_VERSION_NUMBER,
54 ORG_ID)
55 select
56 DECODE(p_pay_approval_flow_rec.PAY_APPROVAL_FLOW_ID, FND_API.G_MISS_NUM, NULL,
57 p_pay_approval_flow_rec.PAY_APPROVAL_FLOW_ID),
58 DECODE(p_pay_approval_flow_rec.PAYRUN_ID, FND_API.G_MISS_NUM, NULL,
59 p_pay_approval_flow_rec.PAYRUN_ID),
60 DECODE(p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID, FND_API.G_MISS_NUM, NULL,
61 p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID),
62 DECODE(p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID, FND_API.G_MISS_NUM, NULL,
63 p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID),
64 DECODE(p_pay_approval_flow_rec.SUBMIT_BY_USER_ID, FND_API.G_MISS_NUM, NULL,
65 p_pay_approval_flow_rec.SUBMIT_BY_USER_ID),
66 DECODE(p_pay_approval_flow_rec.SUBMIT_BY_EMAIL, FND_API.G_MISS_CHAR, NULL,
67 p_pay_approval_flow_rec.SUBMIT_BY_EMAIL),
68 DECODE(p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID, FND_API.G_MISS_NUM, NULL,
69 p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID),
70 DECODE(p_pay_approval_flow_rec.SUBMIT_TO_USER_ID, FND_API.G_MISS_NUM, NULL,
71 p_pay_approval_flow_rec.SUBMIT_TO_USER_ID),
72 DECODE(p_pay_approval_flow_rec.SUBMIT_TO_EMAIL, FND_API.G_MISS_CHAR, NULL,
73 p_pay_approval_flow_rec.SUBMIT_TO_EMAIL),
74 DECODE(p_pay_approval_flow_rec.APPROVAL_STATUS, FND_API.G_MISS_CHAR, NULL,
75 p_pay_approval_flow_rec.APPROVAL_STATUS),
76 DECODE(p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID, FND_API.G_MISS_NUM, NULL,
77 p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID),
78 DECODE(p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL,
79 p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY),
80 DECODE(p_pay_approval_flow_rec.ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL,
81 p_pay_approval_flow_rec.ATTRIBUTE1),
82 DECODE(p_pay_approval_flow_rec.ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL,
83 p_pay_approval_flow_rec.ATTRIBUTE2),
84 DECODE(p_pay_approval_flow_rec.ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL,
85 p_pay_approval_flow_rec.ATTRIBUTE3),
86 DECODE(p_pay_approval_flow_rec.ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL,
87 p_pay_approval_flow_rec.ATTRIBUTE4),
88 DECODE(p_pay_approval_flow_rec.ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL,
89 p_pay_approval_flow_rec.ATTRIBUTE5),
90 DECODE(p_pay_approval_flow_rec.ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL,
91 p_pay_approval_flow_rec.ATTRIBUTE6),
92 DECODE(p_pay_approval_flow_rec.ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL,
93 p_pay_approval_flow_rec.ATTRIBUTE7),
94 DECODE(p_pay_approval_flow_rec.ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL,
95 p_pay_approval_flow_rec.ATTRIBUTE8),
96 DECODE(p_pay_approval_flow_rec.ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL,
97 p_pay_approval_flow_rec.ATTRIBUTE9),
98 DECODE(p_pay_approval_flow_rec.ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL,
99 p_pay_approval_flow_rec.ATTRIBUTE10),
100 DECODE(p_pay_approval_flow_rec.ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL,
101 p_pay_approval_flow_rec.ATTRIBUTE11),
102 DECODE(p_pay_approval_flow_rec.ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL,
103 p_pay_approval_flow_rec.ATTRIBUTE12),
104 DECODE(p_pay_approval_flow_rec.ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL,
105 p_pay_approval_flow_rec.ATTRIBUTE13),
106 DECODE(p_pay_approval_flow_rec.ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL,
107 p_pay_approval_flow_rec.ATTRIBUTE14),
108 DECODE(p_pay_approval_flow_rec.ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL,
109 p_pay_approval_flow_rec.ATTRIBUTE15),
110 Sysdate,
111 fnd_global.user_id,
112 Sysdate,
113 fnd_global.user_id,
114 fnd_global.login_id,
115 1,
116 p_pay_approval_flow_rec.org_id
117 from dual;
118
119 END insert_row;
120
121
122 -- * -------------------------------------------------------------------------*
123 -- Procedure Name
124 -- update_row
125 -- Purpose
126 -- Main update procedure
127 -- Note
128 -- 1. No object version checking, overwrite may happen
129 -- 2. Calling lock_update for object version checking
130 -- 3. All paramaters are IN parameter.
131 -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
132 -- * -------------------------------------------------------------------------*
133 PROCEDURE update_row
134 ( p_pay_approval_flow_rec IN PAY_APPROVAL_FLOW_REC_TYPE) IS
135
136 BEGIN
137
138 UPDATE CN_PAY_APPROVAL_FLOW oldrec
139 SET
140 PAYRUN_ID = DECODE(p_pay_approval_flow_rec.PAYRUN_ID,
141 FND_API.G_MISS_NUM,
142 NULL,
143 NULL,
144 oldrec.PAYRUN_ID,
145 p_pay_approval_flow_rec.PAYRUN_ID),
146 PAYMENT_WORKSHEET_ID = DECODE(p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID,
147 FND_API.G_MISS_NUM,
148 NULL,
149 NULL,
150 oldrec.PAYMENT_WORKSHEET_ID,
151 p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID),
152 SUBMIT_BY_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID,
153 FND_API.G_MISS_NUM,
154 NULL,
155 NULL,
156 oldrec.SUBMIT_BY_RESOURCE_ID,
157 p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID),
158 SUBMIT_BY_USER_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_USER_ID,
159 FND_API.G_MISS_NUM,
160 NULL,
161 NULL,
162 oldrec.SUBMIT_BY_USER_ID,
163 p_pay_approval_flow_rec.SUBMIT_BY_USER_ID),
164 SUBMIT_BY_EMAIL = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_EMAIL,
165 FND_API.G_MISS_CHAR,
166 NULL,
167 NULL,
168 oldrec.SUBMIT_BY_EMAIL,
169 p_pay_approval_flow_rec.SUBMIT_BY_EMAIL),
170 SUBMIT_TO_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID,
171 FND_API.G_MISS_NUM,
172 NULL,
173 NULL,
174 oldrec.SUBMIT_TO_RESOURCE_ID,
175 p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID),
176 SUBMIT_TO_USER_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_USER_ID,
177 FND_API.G_MISS_NUM,
178 NULL,
179 NULL,
180 oldrec.SUBMIT_TO_USER_ID,
181 p_pay_approval_flow_rec.SUBMIT_TO_USER_ID),
182 SUBMIT_TO_EMAIL = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_EMAIL,
183 FND_API.G_MISS_CHAR,
184 NULL,
185 NULL,
186 oldrec.SUBMIT_TO_EMAIL,
187 p_pay_approval_flow_rec.SUBMIT_TO_EMAIL),
188 APPROVAL_STATUS = DECODE(p_pay_approval_flow_rec.APPROVAL_STATUS,
189 FND_API.G_MISS_CHAR,
190 NULL,
191 NULL,
192 oldrec.APPROVAL_STATUS,
193 p_pay_approval_flow_rec.APPROVAL_STATUS),
194 UPDATED_BY_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID,
195 FND_API.G_MISS_NUM,
196 NULL,
197 NULL,
198 oldrec.UPDATED_BY_RESOURCE_ID,
199 p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID),
200 ATTRIBUTE_CATEGORY = DECODE(p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY,
201 FND_API.G_MISS_CHAR,
202 NULL,
203 NULL,
204 oldrec.ATTRIBUTE_CATEGORY,
205 p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY),
206 ATTRIBUTE1 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE1,
207 FND_API.G_MISS_CHAR,
208 NULL,
209 NULL,
210 oldrec.ATTRIBUTE1,
211 p_pay_approval_flow_rec.ATTRIBUTE1),
212 ATTRIBUTE2 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE2,
213 FND_API.G_MISS_CHAR,
214 NULL,
215 NULL,
216 oldrec.ATTRIBUTE2,
217 p_pay_approval_flow_rec.ATTRIBUTE2),
218 ATTRIBUTE3 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE3,
219 FND_API.G_MISS_CHAR,
220 NULL,
221 NULL,
222 oldrec.ATTRIBUTE3,
223 p_pay_approval_flow_rec.ATTRIBUTE3),
224 ATTRIBUTE4 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE4,
225 FND_API.G_MISS_CHAR,
226 NULL,
227 NULL,
228 oldrec.ATTRIBUTE4,
229 p_pay_approval_flow_rec.ATTRIBUTE4),
230 ATTRIBUTE5 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE5,
231 FND_API.G_MISS_CHAR,
232 NULL,
233 NULL,
234 oldrec.ATTRIBUTE5,
235 p_pay_approval_flow_rec.ATTRIBUTE5),
236 ATTRIBUTE6 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE6,
237 FND_API.G_MISS_CHAR,
238 NULL,
239 NULL,
240 oldrec.ATTRIBUTE6,
241 p_pay_approval_flow_rec.ATTRIBUTE6),
242 ATTRIBUTE7 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE7,
243 FND_API.G_MISS_CHAR,
244 NULL,
245 NULL,
246 oldrec.ATTRIBUTE7,
247 p_pay_approval_flow_rec.ATTRIBUTE7),
248 ATTRIBUTE8 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE8,
249 FND_API.G_MISS_CHAR,
250 NULL,
251 NULL,
252 oldrec.ATTRIBUTE8,
253 p_pay_approval_flow_rec.ATTRIBUTE8),
254 ATTRIBUTE9 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE9,
255 FND_API.G_MISS_CHAR,
256 NULL,
257 NULL,
258 oldrec.ATTRIBUTE9,
259 p_pay_approval_flow_rec.ATTRIBUTE9),
260 ATTRIBUTE10 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE10,
261 FND_API.G_MISS_CHAR,
262 NULL,
263 NULL,
264 oldrec.ATTRIBUTE10,
265 p_pay_approval_flow_rec.ATTRIBUTE10),
266 ATTRIBUTE11 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE11,
267 FND_API.G_MISS_CHAR,
268 NULL,
269 NULL,
270 oldrec.ATTRIBUTE11,
271 p_pay_approval_flow_rec.ATTRIBUTE11),
272 ATTRIBUTE12 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE12,
273 FND_API.G_MISS_CHAR,
274 NULL,
275 NULL,
276 oldrec.ATTRIBUTE12,
277 p_pay_approval_flow_rec.ATTRIBUTE12),
278 ATTRIBUTE13 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE13,
279 FND_API.G_MISS_CHAR,
280 NULL,
281 NULL,
282 oldrec.ATTRIBUTE13,
283 p_pay_approval_flow_rec.ATTRIBUTE13),
284 ATTRIBUTE14 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE14,
285 FND_API.G_MISS_CHAR,
286 NULL,
287 NULL,
288 oldrec.ATTRIBUTE14,
289 p_pay_approval_flow_rec.ATTRIBUTE14),
290 ATTRIBUTE15 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE15,
291 FND_API.G_MISS_CHAR,
292 NULL,
293 NULL,
294 oldrec.ATTRIBUTE15,
295 p_pay_approval_flow_rec.ATTRIBUTE15),
296 LAST_UPDATE_DATE = Sysdate,
297 LAST_UPDATED_BY = fnd_global.user_id,
298 LAST_UPDATE_LOGIN = fnd_global.login_id,
299 OBJECT_VERSION_NUMBER = oldrec.OBJECT_VERSION_NUMBER + 1
300 WHERE pay_approval_flow_id = p_pay_approval_flow_rec.pay_approval_flow_id;
301
302 IF (SQL%ROWCOUNT=0) THEN
303 RAISE NO_DATA_FOUND;
304 END IF;
305
306 END update_row;
307
308
312 -- Purpose
309 -- * -------------------------------------------------------------------------*
310 -- Procedure Name
311 -- lock_update_row
313 -- Main lcok and update procedure
314 -- Note
315 -- 1. Object version checking is performed before checking
316 -- 2. Calling update_row if you don not want object version checking
317 -- 3. All paramaters are IN parameter.
318 -- 4. Raise NO_DATA_FOUND exception if no reocrd updated (??)
319 -- * -------------------------------------------------------------------------*
320 PROCEDURE lock_update_row
321 ( p_pay_approval_flow_rec IN PAY_APPROVAL_FLOW_REC_TYPE) IS
322
323 CURSOR c IS
324 SELECT object_version_number
325 FROM CN_PAY_APPROVAL_FLOW
326 WHERE pay_approval_flow_id = p_pay_approval_flow_rec.pay_approval_flow_id;
327
328 tlinfo c%ROWTYPE ;
329 BEGIN
330
331 open c;
332 fetch c into tlinfo;
333 if (c%notfound) then
334 close c;
335 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
336 fnd_msg_pub.add;
337 raise fnd_api.g_exc_unexpected_error;
338 end if;
339 close c;
340
341 if (tlinfo.object_version_number <> p_pay_approval_flow_rec.object_version_number) then
342 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
343 fnd_msg_pub.add;
344 raise fnd_api.g_exc_unexpected_error;
345 end if;
346 UPDATE CN_PAY_APPROVAL_FLOW oldrec
347 SET
348 PAYRUN_ID = DECODE(p_pay_approval_flow_rec.PAYRUN_ID,
349 FND_API.G_MISS_NUM,
350 NULL,
351 NULL,
352 oldrec.PAYRUN_ID,
353 p_pay_approval_flow_rec.PAYRUN_ID),
354 PAYMENT_WORKSHEET_ID = DECODE(p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID,
355 FND_API.G_MISS_NUM,
356 NULL,
357 NULL,
358 oldrec.PAYMENT_WORKSHEET_ID,
359 p_pay_approval_flow_rec.PAYMENT_WORKSHEET_ID),
360 SUBMIT_BY_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID,
361 FND_API.G_MISS_NUM,
362 NULL,
363 NULL,
364 oldrec.SUBMIT_BY_RESOURCE_ID,
365 p_pay_approval_flow_rec.SUBMIT_BY_RESOURCE_ID),
366 SUBMIT_BY_USER_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_USER_ID,
367 FND_API.G_MISS_NUM,
368 NULL,
369 NULL,
370 oldrec.SUBMIT_BY_USER_ID,
371 p_pay_approval_flow_rec.SUBMIT_BY_USER_ID),
372 SUBMIT_BY_EMAIL = DECODE(p_pay_approval_flow_rec.SUBMIT_BY_EMAIL,
373 FND_API.G_MISS_CHAR,
374 NULL,
375 NULL,
376 oldrec.SUBMIT_BY_EMAIL,
377 p_pay_approval_flow_rec.SUBMIT_BY_EMAIL),
378 SUBMIT_TO_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID,
379 FND_API.G_MISS_NUM,
380 NULL,
381 NULL,
382 oldrec.SUBMIT_TO_RESOURCE_ID,
383 p_pay_approval_flow_rec.SUBMIT_TO_RESOURCE_ID),
384 SUBMIT_TO_USER_ID = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_USER_ID,
385 FND_API.G_MISS_NUM,
386 NULL,
387 NULL,
388 oldrec.SUBMIT_TO_USER_ID,
389 p_pay_approval_flow_rec.SUBMIT_TO_USER_ID),
390 SUBMIT_TO_EMAIL = DECODE(p_pay_approval_flow_rec.SUBMIT_TO_EMAIL,
391 FND_API.G_MISS_CHAR,
392 NULL,
393 NULL,
394 oldrec.SUBMIT_TO_EMAIL,
395 p_pay_approval_flow_rec.SUBMIT_TO_EMAIL),
396 APPROVAL_STATUS = DECODE(p_pay_approval_flow_rec.APPROVAL_STATUS,
397 FND_API.G_MISS_CHAR,
398 NULL,
399 NULL,
400 oldrec.APPROVAL_STATUS,
401 p_pay_approval_flow_rec.APPROVAL_STATUS),
402 UPDATED_BY_RESOURCE_ID = DECODE(p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID,
403 FND_API.G_MISS_NUM,
404 NULL,
405 NULL,
406 oldrec.UPDATED_BY_RESOURCE_ID,
407 p_pay_approval_flow_rec.UPDATED_BY_RESOURCE_ID),
408 ATTRIBUTE_CATEGORY = DECODE(p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY,
409 FND_API.G_MISS_CHAR,
410 NULL,
411 NULL,
412 oldrec.ATTRIBUTE_CATEGORY,
416 NULL,
413 p_pay_approval_flow_rec.ATTRIBUTE_CATEGORY),
414 ATTRIBUTE1 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE1,
415 FND_API.G_MISS_CHAR,
417 NULL,
418 oldrec.ATTRIBUTE1,
419 p_pay_approval_flow_rec.ATTRIBUTE1),
420 ATTRIBUTE2 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE2,
421 FND_API.G_MISS_CHAR,
422 NULL,
423 NULL,
424 oldrec.ATTRIBUTE2,
425 p_pay_approval_flow_rec.ATTRIBUTE2),
426 ATTRIBUTE3 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE3,
427 FND_API.G_MISS_CHAR,
428 NULL,
429 NULL,
430 oldrec.ATTRIBUTE3,
431 p_pay_approval_flow_rec.ATTRIBUTE3),
432 ATTRIBUTE4 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE4,
433 FND_API.G_MISS_CHAR,
434 NULL,
435 NULL,
436 oldrec.ATTRIBUTE4,
437 p_pay_approval_flow_rec.ATTRIBUTE4),
438 ATTRIBUTE5 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE5,
439 FND_API.G_MISS_CHAR,
440 NULL,
441 NULL,
442 oldrec.ATTRIBUTE5,
443 p_pay_approval_flow_rec.ATTRIBUTE5),
444 ATTRIBUTE6 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE6,
445 FND_API.G_MISS_CHAR,
446 NULL,
447 NULL,
448 oldrec.ATTRIBUTE6,
449 p_pay_approval_flow_rec.ATTRIBUTE6),
450 ATTRIBUTE7 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE7,
451 FND_API.G_MISS_CHAR,
452 NULL,
453 NULL,
454 oldrec.ATTRIBUTE7,
455 p_pay_approval_flow_rec.ATTRIBUTE7),
456 ATTRIBUTE8 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE8,
457 FND_API.G_MISS_CHAR,
458 NULL,
459 NULL,
460 oldrec.ATTRIBUTE8,
461 p_pay_approval_flow_rec.ATTRIBUTE8),
462 ATTRIBUTE9 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE9,
463 FND_API.G_MISS_CHAR,
464 NULL,
465 NULL,
466 oldrec.ATTRIBUTE9,
467 p_pay_approval_flow_rec.ATTRIBUTE9),
468 ATTRIBUTE10 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE10,
469 FND_API.G_MISS_CHAR,
470 NULL,
471 NULL,
472 oldrec.ATTRIBUTE10,
473 p_pay_approval_flow_rec.ATTRIBUTE10),
474 ATTRIBUTE11 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE11,
475 FND_API.G_MISS_CHAR,
476 NULL,
477 NULL,
478 oldrec.ATTRIBUTE11,
479 p_pay_approval_flow_rec.ATTRIBUTE11),
480 ATTRIBUTE12 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE12,
481 FND_API.G_MISS_CHAR,
482 NULL,
483 NULL,
484 oldrec.ATTRIBUTE12,
485 p_pay_approval_flow_rec.ATTRIBUTE12),
486 ATTRIBUTE13 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE13,
487 FND_API.G_MISS_CHAR,
488 NULL,
489 NULL,
490 oldrec.ATTRIBUTE13,
491 p_pay_approval_flow_rec.ATTRIBUTE13),
492 ATTRIBUTE14 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE14,
493 FND_API.G_MISS_CHAR,
494 NULL,
495 NULL,
496 oldrec.ATTRIBUTE14,
497 p_pay_approval_flow_rec.ATTRIBUTE14),
498 ATTRIBUTE15 = DECODE(p_pay_approval_flow_rec.ATTRIBUTE15,
499 FND_API.G_MISS_CHAR,
500 NULL,
501 NULL,
502 oldrec.ATTRIBUTE15,
503 p_pay_approval_flow_rec.ATTRIBUTE15),
504 LAST_UPDATE_DATE = Sysdate,
505 LAST_UPDATED_BY = fnd_global.user_id,
506 LAST_UPDATE_LOGIN = fnd_global.login_id,
507 OBJECT_VERSION_NUMBER = oldrec.OBJECT_VERSION_NUMBER + 1
508 WHERE pay_approval_flow_id = p_pay_approval_flow_rec.pay_approval_flow_id;
509
510 IF (SQL%ROWCOUNT=0) THEN
511 RAISE NO_DATA_FOUND;
512 END IF;
513
514 END lock_update_row;
515
516
517 -- * -------------------------------------------------------------------------*
518 -- Procedure Name
519 -- delete_row
520 -- Purpose
521 -- Main lcok and update procedure
522 -- Note
523 -- 1. All paramaters are IN parameter.
524 -- 2. Raise NO_DATA_FOUND exception if no reocrd deleted (??)
525 -- * -------------------------------------------------------------------------*
526 PROCEDURE delete_row
527 (
528 p_pay_approval_flow_id NUMBER
529 ) IS
530
531 BEGIN
532
533 DELETE FROM CN_PAY_APPROVAL_FLOW
534 WHERE pay_approval_flow_id = p_pay_approval_flow_id;
535
536 IF (SQL%ROWCOUNT=0) THEN
537 RAISE NO_DATA_FOUND;
538 END IF;
539
540 END Delete_row;
541
542
543 END CN_PAY_APPROVAL_FLOW_PKG;