[Home] [Help]
1: PACKAGE BODY igs_fi_bill_dpsts_pkg AS
2: /* $Header: IGSSIC5B.pls 115.0 2002/12/05 07:22:11 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_dpsts%ROWTYPE;
1: PACKAGE BODY igs_fi_bill_dpsts_pkg AS
2: /* $Header: IGSSIC5B.pls 115.0 2002/12/05 07:22:11 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_dpsts%ROWTYPE;
6: new_references igs_fi_bill_dpsts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIC5B.pls 115.0 2002/12/05 07:22:11 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_bill_dpsts%ROWTYPE;
6: new_references igs_fi_bill_dpsts%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
27: */
28:
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM igs_fi_bill_dpsts
32: WHERE rowid = x_rowid;
33:
34: BEGIN
35:
118: || (reverse chronological order - newest change first)
119: */
120: CURSOR cur_rowid IS
121: SELECT rowid
122: FROM igs_fi_bill_dpsts
123: WHERE bill_id = x_bill_id
124: AND credit_activity_id = x_credit_activity_id
125: FOR UPDATE NOWAIT;
126:
154: || (reverse chronological order - newest change first)
155: */
156: CURSOR cur_rowid IS
157: SELECT rowid
158: FROM igs_fi_bill_dpsts
159: WHERE ((bill_id = x_bill_id));
160:
161: lv_rowid cur_rowid%RowType;
162:
189: || (reverse chronological order - newest change first)
190: */
191: CURSOR cur_rowid IS
192: SELECT rowid
193: FROM igs_fi_bill_dpsts
194: WHERE ((credit_activity_id = x_credit_activity_id));
195:
196: lv_rowid cur_rowid%RowType;
197:
329: x_program_update_date := SYSDATE;
330: END IF;
331: ELSE
332: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
333: fnd_message.set_token ('ROUTINE', 'IGS_FI_BILL_DPSTS_PKG.INSERT_ROW');
334: igs_ge_msg_stack.add;
335: app_exception.raise_exception;
336: END IF;
337:
346: x_last_updated_by => x_last_updated_by,
347: x_last_update_login => x_last_update_login
348: );
349:
350: INSERT INTO igs_fi_bill_dpsts (
351: bill_id,
352: credit_activity_id,
353: creation_date,
354: created_by,
392: */
393: CURSOR c1 IS
394: SELECT
395: rowid
396: FROM igs_fi_bill_dpsts
397: WHERE rowid = x_rowid
398: FOR UPDATE NOWAIT;
399:
400: tlinfo c1%ROWTYPE;
436: p_action => 'DELETE',
437: x_rowid => x_rowid
438: );
439:
440: DELETE FROM igs_fi_bill_dpsts
441: WHERE rowid = x_rowid;
442:
443: IF (SQL%NOTFOUND) THEN
444: RAISE NO_DATA_FOUND;
446:
447: END delete_row;
448:
449:
450: END igs_fi_bill_dpsts_pkg;