[Home] [Help]
1: PACKAGE BODY igf_aw_target_grp_pkg AS
2: /* $Header: IGFWI07B.pls 120.1 2005/09/01 00:10:29 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_target_grp_all%ROWTYPE;
6: new_references igf_aw_target_grp_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI07B.pls 120.1 2005/09/01 00:10:29 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_target_grp_all%ROWTYPE;
6: new_references igf_aw_target_grp_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
60: */
61:
62: CURSOR cur_old_ref_values IS
63: SELECT *
64: FROM IGF_AW_TARGET_GRP_ALL
65: WHERE rowid = x_rowid;
66:
67: BEGIN
68:
216: || (reverse chronological order - newest change first)
217: */
218: CURSOR cur_rowid IS
219: SELECT rowid
220: FROM igf_aw_target_grp_all
221: WHERE tgrp_id = x_tgrp_id
222: FOR UPDATE NOWAIT;
223:
224: lv_rowid cur_rowid%RowType;
512: || Added new column adplans_id
513: */
514: CURSOR c IS
515: SELECT rowid
516: FROM igf_aw_target_grp_all
517: WHERE tgrp_id = x_tgrp_id;
518:
519: x_last_update_date DATE;
520: x_last_updated_by NUMBER;
540: igs_ge_msg_stack.add;
541: app_exception.raise_exception;
542: END IF;
543:
544: SELECT igf_aw_target_grp_all_s.NEXTVAL
545: INTO x_tgrp_id
546: FROM dual;
547:
548: new_references.org_id := igs_ge_gen_003.get_org_id;
589: x_last_updated_by => x_last_updated_by,
590: x_last_update_login => x_last_update_login
591: );
592:
593: INSERT INTO igf_aw_target_grp_all (
594: group_cd,
595: description,
596: max_grant_amt,
597: max_grant_perct,
763: s_rule_call_cd,
764: rul_sequence_number,
765: active,
766: adplans_id
767: FROM igf_aw_target_grp_all
768: WHERE rowid = x_rowid
769: FOR UPDATE NOWAIT;
770:
771: tlinfo c1%ROWTYPE;
942: x_last_updated_by => x_last_updated_by,
943: x_last_update_login => x_last_update_login
944: );
945:
946: UPDATE igf_aw_target_grp_all
947: SET
948: group_cd = new_references.group_cd,
949: description = new_references.description,
950: max_grant_amt = new_references.max_grant_amt,
1038: || Added new column adplans_id
1039: */
1040: CURSOR c1 IS
1041: SELECT rowid
1042: FROM igf_aw_target_grp_all
1043: WHERE tgrp_id = x_tgrp_id;
1044:
1045: BEGIN
1046:
1149: p_action => 'DELETE',
1150: x_rowid => x_rowid
1151: );
1152:
1153: DELETE FROM igf_aw_target_grp_all
1154: WHERE rowid = x_rowid;
1155:
1156: IF (SQL%NOTFOUND) THEN
1157: RAISE NO_DATA_FOUND;