1: PACKAGE BODY igs_co_s_ltr_param_pkg AS
2: /* $Header: IGSLI18B.pls 115.5 2002/11/29 01:06:38 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_param%ROWTYPE;
1: PACKAGE BODY igs_co_s_ltr_param_pkg AS
2: /* $Header: IGSLI18B.pls 115.5 2002/11/29 01:06:38 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_param%ROWTYPE;
6: new_references igs_co_s_ltr_param%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI18B.pls 115.5 2002/11/29 01:06:38 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_param%ROWTYPE;
6: new_references igs_co_s_ltr_param%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_CO_S_LTR_PARAM
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
114: || (reverse chronological order - newest change first)
115: */
116: BEGIN
117:
118: igs_co_ltr_parm_type_pkg.get_fk_igs_co_s_ltr_param (
119: old_references.s_letter_parameter_type
120: );
121:
122: igs_co_s_ltr_pr_arg_pkg.get_fk_igs_co_s_ltr_param (
118: igs_co_ltr_parm_type_pkg.get_fk_igs_co_s_ltr_param (
119: old_references.s_letter_parameter_type
120: );
121:
122: igs_co_s_ltr_pr_arg_pkg.get_fk_igs_co_s_ltr_param (
123: old_references.s_letter_parameter_type
124: );
125:
126: igs_co_s_ltr_pr_rstn_pkg.get_fk_igs_co_s_ltr_param (
122: igs_co_s_ltr_pr_arg_pkg.get_fk_igs_co_s_ltr_param (
123: old_references.s_letter_parameter_type
124: );
125:
126: igs_co_s_ltr_pr_rstn_pkg.get_fk_igs_co_s_ltr_param (
127: old_references.s_letter_parameter_type
128: );
129:
130: END check_child_existance;
143: || (reverse chronological order - newest change first)
144: */
145: CURSOR cur_rowid IS
146: SELECT rowid
147: FROM igs_co_s_ltr_param
148: WHERE s_letter_parameter_type = x_s_letter_parameter_type
149: FOR UPDATE NOWAIT;
150:
151: lv_rowid cur_rowid%RowType;
259: || (reverse chronological order - newest change first)
260: */
261: CURSOR c IS
262: SELECT rowid
263: FROM igs_co_s_ltr_param
264: WHERE s_letter_parameter_type = x_s_letter_parameter_type;
265:
266: x_last_update_date DATE;
267: x_last_updated_by NUMBER;
301: x_last_updated_by => x_last_updated_by,
302: x_last_update_login => x_last_update_login
303: );
304:
305: INSERT INTO igs_co_s_ltr_param (
306: s_letter_parameter_type,
307: description,
308: closed_ind,
309: code_block,
355: SELECT
356: description,
357: closed_ind,
358: code_block
359: FROM igs_co_s_ltr_param
360: WHERE rowid = x_rowid
361: FOR UPDATE NOWAIT;
362:
363: tlinfo c1%ROWTYPE;
447: x_last_updated_by => x_last_updated_by,
448: x_last_update_login => x_last_update_login
449: );
450:
451: UPDATE igs_co_s_ltr_param
452: SET
453: description = new_references.description,
454: closed_ind = new_references.closed_ind,
455: code_block = new_references.code_block,
483: || (reverse chronological order - newest change first)
484: */
485: CURSOR c1 IS
486: SELECT rowid
487: FROM igs_co_s_ltr_param
488: WHERE s_letter_parameter_type = x_s_letter_parameter_type;
489:
490: BEGIN
491:
536: p_action => 'DELETE',
537: x_rowid => x_rowid
538: );
539:
540: DELETE FROM igs_co_s_ltr_param
541: WHERE rowid = x_rowid;
542:
543: IF (SQL%NOTFOUND) THEN
544: RAISE NO_DATA_FOUND;
546:
547: END delete_row;
548:
549:
550: END igs_co_s_ltr_param_pkg;