1: PACKAGE BODY igs_pr_ou_fnd_pkg AS
2: /* $Header: IGSQI44B.pls 115.3 2003/02/25 09:08:22 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_fnd%ROWTYPE;
1: PACKAGE BODY igs_pr_ou_fnd_pkg AS
2: /* $Header: IGSQI44B.pls 115.3 2003/02/25 09:08:22 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_fnd%ROWTYPE;
6: new_references igs_pr_ou_fnd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI44B.pls 115.3 2003/02/25 09:08:22 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_fnd%ROWTYPE;
6: new_references igs_pr_ou_fnd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_pr_ou_fnd
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
126: || (reverse chronological order - newest change first)
127: */
128: CURSOR cur_rowid IS
129: SELECT rowid
130: FROM igs_pr_ou_fnd
131: WHERE progression_rule_cat = x_progression_rule_cat
132: AND pra_sequence_number = x_pra_sequence_number
133: AND pro_sequence_number = x_pro_sequence_number
134: AND fund_code = x_fund_code
164: || (reverse chronological order - newest change first)
165: */
166: CURSOR cur_rowid IS
167: SELECT rowid
168: FROM igs_pr_ou_fnd
169: WHERE ((pra_sequence_number = x_pra_sequence_number) AND
170: (progression_rule_cat = x_progression_rule_cat) AND
171: (pro_sequence_number = x_sequence_number));
172:
201: || (reverse chronological order - newest change first)
202: */
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igs_pr_ou_fnd
206: WHERE ((fund_code = x_fund_code));
207:
208: lv_rowid cur_rowid%RowType;
209:
405: x_last_updated_by => x_last_updated_by,
406: x_last_update_login => x_last_update_login
407: );
408:
409: INSERT INTO igs_pr_ou_fnd (
410: progression_rule_cat,
411: pra_sequence_number,
412: pro_sequence_number,
413: fund_code,
449: */
450: CURSOR c1 IS
451: SELECT
452: rowid
453: FROM igs_pr_ou_fnd
454: WHERE rowid = x_rowid
455: FOR UPDATE NOWAIT;
456:
457: tlinfo c1%ROWTYPE;
493: p_action => 'DELETE',
494: x_rowid => x_rowid
495: );
496:
497: DELETE FROM igs_pr_ou_fnd
498: WHERE rowid = x_rowid;
499:
500: IF (SQL%NOTFOUND) THEN
501: RAISE NO_DATA_FOUND;
503:
504: END delete_row;
505:
506:
507: END igs_pr_ou_fnd_pkg;