1: PACKAGE BODY igs_en_elgb_ovr_step_pkg AS
2: /* $Header: IGSEI52B.pls 115.27 2003/06/03 12:58:28 savenkat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_elgb_ovr_step%ROWTYPE;
1: PACKAGE BODY igs_en_elgb_ovr_step_pkg AS
2: /* $Header: IGSEI52B.pls 115.27 2003/06/03 12:58:28 savenkat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_elgb_ovr_step%ROWTYPE;
6: new_references igs_en_elgb_ovr_step%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI52B.pls 115.27 2003/06/03 12:58:28 savenkat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_elgb_ovr_step%ROWTYPE;
6: new_references igs_en_elgb_ovr_step%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_EN_ELGB_OVR_STEP
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
125:
126: PROCEDURE Check_Child_Existance AS
127: BEGIN
128:
129: IGS_EN_ELGB_OVR_UOO_PKG.GET_FK_IGS_EN_ELGB_OVR_STEP(
130: old_references.elgb_ovr_step_id );
131:
132: END Check_Child_Existance;
133:
144: || (reverse chronological order - newest change first)
145: */
146: CURSOR cur_rowid IS
147: SELECT rowid
148: FROM igs_en_elgb_ovr_step
149: WHERE elgb_ovr_step_id = x_elgb_ovr_step_id
150: FOR UPDATE NOWAIT;
151:
152: lv_rowid cur_rowid%RowType;
181: || (reverse chronological order - newest change first)
182: */
183: CURSOR cur_rowid IS
184: SELECT rowid
185: FROM igs_en_elgb_ovr_step
186: WHERE step_override_type = x_step_override_type
187: AND elgb_override_id = x_elgb_override_id
188: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
189:
217: || (reverse chronological order - newest change first)
218: */
219: CURSOR cur_rowid IS
220: SELECT rowid
221: FROM igs_en_elgb_ovr_step
222: WHERE ((elgb_override_id = x_elgb_override_id));
223:
224: lv_rowid cur_rowid%RowType;
225:
339: || (reverse chronological order - newest change first)
340: */
341: CURSOR c IS
342: SELECT rowid
343: FROM igs_en_elgb_ovr_step
344: WHERE elgb_ovr_step_id = x_elgb_ovr_step_id;
345:
346: x_last_update_date DATE;
347: x_last_updated_by NUMBER;
383: igs_ge_msg_stack.add;
384: app_exception.raise_exception;
385: END IF;
386:
387: SELECT igs_en_elgb_ovr_step_s.NEXTVAL
388: INTO x_elgb_ovr_step_id
389: FROM dual;
390:
391: before_dml(
402: x_last_updated_by => x_last_updated_by,
403: x_last_update_login => x_last_update_login
404: );
405:
406: INSERT INTO igs_en_elgb_ovr_step (
407: elgb_ovr_step_id,
408: elgb_override_id,
409: step_override_type,
410: step_override_dt,
468: elgb_override_id,
469: step_override_type,
470: step_override_dt,
471: step_override_limit
472: FROM igs_en_elgb_ovr_step
473: WHERE rowid = x_rowid
474: FOR UPDATE NOWAIT;
475:
476: tlinfo c1%ROWTYPE;
582: x_program_update_date := SYSDATE;
583: END IF;
584: END IF;
585:
586: UPDATE igs_en_elgb_ovr_step
587: SET
588: elgb_override_id = new_references.elgb_override_id,
589: step_override_type = new_references.step_override_type,
590: step_override_dt = new_references.step_override_dt,
623: || (reverse chronological order - newest change first)
624: */
625: CURSOR c1 IS
626: SELECT rowid
627: FROM igs_en_elgb_ovr_step
628: WHERE elgb_ovr_step_id = x_elgb_ovr_step_id;
629:
630: BEGIN
631:
678: p_action => 'DELETE',
679: x_rowid => x_rowid
680: );
681:
682: DELETE FROM igs_en_elgb_ovr_step
683: WHERE rowid = x_rowid;
684:
685: IF (SQL%NOTFOUND) THEN
686: RAISE NO_DATA_FOUND;
688:
689: END delete_row;
690:
691:
692: END igs_en_elgb_ovr_step_pkg;