1: PACKAGE BODY igs_pr_ou_awd_pkg AS
2: /* $Header: IGSQI40B.pls 115.6 2003/02/25 09:38:23 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_awd%ROWTYPE;
1: PACKAGE BODY igs_pr_ou_awd_pkg AS
2: /* $Header: IGSQI40B.pls 115.6 2003/02/25 09:38:23 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_awd%ROWTYPE;
6: new_references igs_pr_ou_awd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSQI40B.pls 115.6 2003/02/25 09:38:23 anilk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pr_ou_awd%ROWTYPE;
6: new_references igs_pr_ou_awd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_pr_ou_awd
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
130: || (reverse chronological order - newest change first)
131: */
132: CURSOR cur_rowid IS
133: SELECT rowid
134: FROM igs_pr_ou_awd
135: WHERE progression_rule_cat = x_progression_rule_cat
136: AND pra_sequence_number = x_pra_sequence_number
137: AND pro_sequence_number = x_pro_sequence_number
138: AND award_cd = x_award_cd
170: || (reverse chronological order - newest change first)
171: */
172: CURSOR cur_rowid IS
173: SELECT rowid
174: FROM igs_pr_ou_awd
175: WHERE ((pra_sequence_number = x_pra_sequence_number) AND
176: (progression_rule_cat = x_progression_rule_cat) AND
177: (pro_sequence_number = x_sequence_number));
178:
340: || (reverse chronological order - newest change first)
341: */
342: CURSOR c IS
343: SELECT rowid
344: FROM igs_pr_ou_awd
345: WHERE progression_rule_cat = x_progression_rule_cat
346: AND pra_sequence_number = x_pra_sequence_number
347: AND pro_sequence_number = x_pro_sequence_number
348: AND award_cd = x_award_cd;
385: x_last_updated_by => x_last_updated_by,
386: x_last_update_login => x_last_update_login
387: );
388:
389: INSERT INTO igs_pr_ou_awd (
390: progression_rule_cat,
391: pra_sequence_number,
392: pro_sequence_number,
393: award_cd,
473: x_last_updated_by => x_last_updated_by,
474: x_last_update_login => x_last_update_login
475: );
476:
477: UPDATE igs_pr_ou_awd
478: SET
479: progression_rule_cat = new_references.progression_rule_cat,
480: pra_sequence_number = new_references.pra_sequence_number,
481: pro_sequence_number = new_references.pro_sequence_number,
510: || (reverse chronological order - newest change first)
511: */
512: CURSOR c1 IS
513: SELECT rowid
514: FROM igs_pr_ou_awd
515: WHERE progression_rule_cat = x_progression_rule_cat
516: AND pra_sequence_number = x_pra_sequence_number
517: AND pro_sequence_number = x_pro_sequence_number
518: AND award_cd = x_award_cd;
567: */
568: CURSOR c1 IS
569: SELECT
570: rowid
571: FROM igs_pr_ou_awd
572: WHERE rowid = x_rowid
573: FOR UPDATE NOWAIT;
574:
575: tlinfo c1%ROWTYPE;
611: p_action => 'DELETE',
612: x_rowid => x_rowid
613: );
614:
615: DELETE FROM igs_pr_ou_awd
616: WHERE rowid = x_rowid;
617:
618: IF (SQL%NOTFOUND) THEN
619: RAISE NO_DATA_FOUND;
621:
622: END delete_row;
623:
624:
625: END igs_pr_ou_awd_pkg;