1: PACKAGE BODY igs_ps_unit_subtitle_pkg AS
2: /* $Header: IGSPI1ZB.pls 115.4 2003/03/21 08:06:26 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_subtitle%ROWTYPE;
1: PACKAGE BODY igs_ps_unit_subtitle_pkg AS
2: /* $Header: IGSPI1ZB.pls 115.4 2003/03/21 08:06:26 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_subtitle%ROWTYPE;
6: new_references igs_ps_unit_subtitle%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI1ZB.pls 115.4 2003/03/21 08:06:26 sarakshi ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_unit_subtitle%ROWTYPE;
6: new_references igs_ps_unit_subtitle%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_PS_UNIT_SUBTITLE
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
141: || (reverse chronological order - newest change first)
142: */
143: BEGIN
144:
145: igs_ps_unit_ver_pkg.get_fk_igs_ps_unit_subtitle (
146: old_references.subtitle_id
147: );
148:
149: END check_child_existance;
162: || (reverse chronological order - newest change first)
163: */
164: CURSOR cur_rowid IS
165: SELECT rowid
166: FROM igs_ps_unit_subtitle
167: WHERE subtitle_id = x_subtitle_id
168: FOR UPDATE NOWAIT;
169:
170: lv_rowid cur_rowid%RowType;
199: || (reverse chronological order - newest change first)
200: */
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igs_ps_unit_subtitle
204: WHERE unit_cd = x_unit_cd
205: AND version_number = x_version_number
206: AND subtitle = x_subtitle
207: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
237: || (reverse chronological order - newest change first)
238: */
239: CURSOR cur_rowid IS
240: SELECT rowid
241: FROM igs_ps_unit_subtitle
242: WHERE ((unit_cd = x_unit_cd) AND
243: (version_number = x_version_number));
244:
245: lv_rowid cur_rowid%RowType;
364: || (reverse chronological order - newest change first)
365: */
366: CURSOR c IS
367: SELECT rowid
368: FROM igs_ps_unit_subtitle
369: WHERE subtitle_id = x_subtitle_id;
370:
371: x_last_update_date DATE;
372: x_last_updated_by NUMBER;
392: igs_ge_msg_stack.add;
393: app_exception.raise_exception;
394: END IF;
395:
396: SELECT igs_ps_unit_subtitle_s.NEXTVAL
397: INTO x_subtitle_id
398: FROM dual;
399:
400: before_dml(
412: x_last_updated_by => x_last_updated_by,
413: x_last_update_login => x_last_update_login
414: );
415:
416: INSERT INTO igs_ps_unit_subtitle (
417: subtitle_id,
418: unit_cd,
419: version_number,
420: subtitle,
474: version_number,
475: subtitle,
476: approved_ind,
477: closed_ind
478: FROM igs_ps_unit_subtitle
479: WHERE rowid = x_rowid
480: FOR UPDATE NOWAIT;
481:
482: tlinfo c1%ROWTYPE;
572: x_last_updated_by => x_last_updated_by,
573: x_last_update_login => x_last_update_login
574: );
575:
576: UPDATE igs_ps_unit_subtitle
577: SET
578: unit_cd = new_references.unit_cd,
579: version_number = new_references.version_number,
580: subtitle = new_references.subtitle,
612: || (reverse chronological order - newest change first)
613: */
614: CURSOR c1 IS
615: SELECT rowid
616: FROM igs_ps_unit_subtitle
617: WHERE subtitle_id = x_subtitle_id;
618:
619: BEGIN
620:
669: p_action => 'DELETE',
670: x_rowid => x_rowid
671: );
672:
673: DELETE FROM igs_ps_unit_subtitle
674: WHERE rowid = x_rowid;
675:
676: IF (SQL%NOTFOUND) THEN
677: RAISE NO_DATA_FOUND;
679:
680: END delete_row;
681:
682:
683: END igs_ps_unit_subtitle_pkg;