1: PACKAGE BODY igf_se_payment_int_pkg AS
2: /* $Header: IGFSI03B.pls 120.0 2005/06/01 14:53:53 appldev noship $ */
3:
4: /*=======================================================================+
5: | Copyright (c) 1994, 1996 Oracle Corp. Redwood Shores, California, USA|
6: | All rights reserved. |
7: +=======================================================================+
8: | |
9: | DESCRIPTION |
10: | PL/SQL body for package: IGF_SE_PAYMENT_INT_PKG
11: | |
12: | NOTES |
13: | |
14: | This package has a flag on the end of some of the procedures called |
30: | hrs_worked |
31: *=======================================================================*/
32:
33: l_rowid VARCHAR2(25);
34: old_references igf_se_payment_int%ROWTYPE;
35: new_references igf_se_payment_int%ROWTYPE;
36:
37: PROCEDURE set_column_values (
38: p_action IN VARCHAR2,
31: *=======================================================================*/
32:
33: l_rowid VARCHAR2(25);
34: old_references igf_se_payment_int%ROWTYPE;
35: new_references igf_se_payment_int%ROWTYPE;
36:
37: PROCEDURE set_column_values (
38: p_action IN VARCHAR2,
39: x_rowid IN VARCHAR2 DEFAULT NULL,
65: */
66:
67: CURSOR cur_old_ref_values IS
68: SELECT *
69: FROM IGF_SE_PAYMENT_INT
70: WHERE rowid = x_rowid;
71:
72: BEGIN
73:
183: || (reverse chronological order - newest change first)
184: */
185: CURSOR cur_rowid IS
186: SELECT rowid
187: FROM igf_se_payment_int
188: WHERE transaction_id = x_transaction_id
189: FOR UPDATE NOWAIT;
190:
191: lv_rowid cur_rowid%RowType;
219: || (reverse chronological order - newest change first)
220: */
221: CURSOR cur_rowid IS
222: SELECT rowid
223: FROM igf_se_payment_int
224: WHERE payroll_id = x_payroll_id
225: AND auth_id = x_auth_id
226: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
227:
356: || (reverse chronological order - newest change first)
357: */
358: CURSOR c IS
359: SELECT rowid
360: FROM igf_se_payment_int
361: WHERE transaction_id = x_transaction_id;
362:
363: x_last_update_date DATE;
364: x_last_updated_by NUMBER;
384: igs_ge_msg_stack.add;
385: app_exception.raise_exception;
386: END IF;
387:
388: SELECT igf_se_payment_int_s.NEXTVAL
389: INTO x_transaction_id
390: FROM dual;
391:
392: before_dml(
409: x_last_updated_by => x_last_updated_by,
410: x_last_update_login => x_last_update_login
411: );
412:
413: INSERT INTO igf_se_payment_int (
414: transaction_id,
415: batch_id,
416: payroll_id,
417: payroll_date,
491: paid_amount,
492: org_unit_cd,
493: status,
494: error_code
495: FROM igf_se_payment_int
496: WHERE rowid = x_rowid
497: FOR UPDATE NOWAIT;
498:
499: tlinfo c1%ROWTYPE;
604: x_last_updated_by => x_last_updated_by,
605: x_last_update_login => x_last_update_login
606: );
607:
608: UPDATE igf_se_payment_int
609: SET
610: batch_id = new_references.batch_id,
611: payroll_id = new_references.payroll_id,
612: payroll_date = new_references.payroll_date,
654: || (reverse chronological order - newest change first)
655: */
656: CURSOR c1 IS
657: SELECT rowid
658: FROM igf_se_payment_int
659: WHERE transaction_id = x_transaction_id;
660:
661: BEGIN
662:
721: p_action => 'DELETE',
722: x_rowid => x_rowid
723: );
724:
725: DELETE FROM igf_se_payment_int
726: WHERE rowid = x_rowid;
727:
728: IF (SQL%NOTFOUND) THEN
729: RAISE NO_DATA_FOUND;
731:
732: END delete_row;
733:
734:
735: END igf_se_payment_int_pkg;