[Home] [Help]
1: PACKAGE BODY igs_pe_hold_rel_ovr_pkg AS
2: /* $Header: IGSNI85B.pls 115.5 2003/02/19 05:46:34 adhawan ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_hold_rel_ovr%ROWTYPE;
1: PACKAGE BODY igs_pe_hold_rel_ovr_pkg AS
2: /* $Header: IGSNI85B.pls 115.5 2003/02/19 05:46:34 adhawan ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_hold_rel_ovr%ROWTYPE;
6: new_references igs_pe_hold_rel_ovr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI85B.pls 115.5 2003/02/19 05:46:34 adhawan ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_hold_rel_ovr%ROWTYPE;
6: new_references igs_pe_hold_rel_ovr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGS_PE_HOLD_REL_OVR
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igs_pe_hold_rel_ovr
158: WHERE hold_rel_ovr_id = x_hold_rel_ovr_id
159: FOR UPDATE NOWAIT;
160:
161: lv_rowid cur_rowid%RowType;
187: || (reverse chronological order - newest change first)
188: */
189: CURSOR cur_rowid IS
190: SELECT rowid
191: FROM igs_pe_hold_rel_ovr
192: WHERE ((hold_type = x_encumbrance_type));
193:
194: lv_rowid cur_rowid%RowType;
195:
225: || (reverse chronological order - newest change first)
226: */
227: CURSOR cur_rowid IS
228: SELECT rowid
229: FROM igs_pe_hold_rel_ovr
230: WHERE elgb_override_id = x_elgb_override_id
231: AND hold_type = x_hold_type
232: AND start_date = x_start_date
233: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
262: || (reverse chronological order - newest change first)
263: */
264: CURSOR cur_rowid IS
265: SELECT rowid
266: FROM igs_pe_hold_rel_ovr
267: WHERE ((elgb_override_id = x_elgb_override_id));
268:
269: lv_rowid cur_rowid%RowType;
270:
398: || (reverse chronological order - newest change first)
399: */
400: CURSOR c IS
401: SELECT rowid
402: FROM igs_pe_hold_rel_ovr
403: WHERE hold_rel_ovr_id = x_hold_rel_ovr_id;
404:
405: x_last_update_date DATE;
406: x_last_updated_by NUMBER;
426: igs_ge_msg_stack.add;
427: app_exception.raise_exception;
428: END IF;
429:
430: SELECT igs_pe_hold_rel_ovr_s.NEXTVAL
431: INTO x_hold_rel_ovr_id
432: FROM dual;
433:
434: before_dml(
447: x_last_updated_by => x_last_updated_by,
448: x_last_update_login => x_last_update_login
449: );
450:
451: INSERT INTO igs_pe_hold_rel_ovr (
452: hold_rel_ovr_id,
453: elgb_override_id,
454: hold_type,
455: hold_rel_or_ovr,
513: hold_rel_or_ovr,
514: hold_old_end_dt,
515: action_dt,
516: start_date
517: FROM igs_pe_hold_rel_ovr
518: WHERE rowid = x_rowid
519: FOR UPDATE NOWAIT;
520:
521: tlinfo c1%ROWTYPE;
614: x_last_updated_by => x_last_updated_by,
615: x_last_update_login => x_last_update_login
616: );
617:
618: UPDATE igs_pe_hold_rel_ovr
619: SET
620: elgb_override_id = new_references.elgb_override_id,
621: hold_type = new_references.hold_type,
622: hold_rel_or_ovr = new_references.hold_rel_or_ovr,
656: || (reverse chronological order - newest change first)
657: */
658: CURSOR c1 IS
659: SELECT rowid
660: FROM igs_pe_hold_rel_ovr
661: WHERE hold_rel_ovr_id = x_hold_rel_ovr_id;
662:
663: BEGIN
664:
715: p_action => 'DELETE',
716: x_rowid => x_rowid
717: );
718:
719: DELETE FROM igs_pe_hold_rel_ovr
720: WHERE rowid = x_rowid;
721:
722: IF (SQL%NOTFOUND) THEN
723: RAISE NO_DATA_FOUND;
725:
726: END delete_row;
727:
728:
729: END igs_pe_hold_rel_ovr_pkg;