1: PACKAGE BODY igs_co_s_ltr_pr_arg_pkg AS
2: /* $Header: IGSLI19B.pls 115.5 2002/11/29 01:06:53 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_pr_arg%ROWTYPE;
1: PACKAGE BODY igs_co_s_ltr_pr_arg_pkg AS
2: /* $Header: IGSLI19B.pls 115.5 2002/11/29 01:06:53 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_pr_arg%ROWTYPE;
6: new_references igs_co_s_ltr_pr_arg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI19B.pls 115.5 2002/11/29 01:06:53 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr_pr_arg%ROWTYPE;
6: new_references igs_co_s_ltr_pr_arg%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_CO_S_LTR_PR_ARG
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
141: || (reverse chronological order - newest change first)
142: */
143: CURSOR cur_rowid IS
144: SELECT rowid
145: FROM igs_co_s_ltr_pr_arg
146: WHERE s_letter_parameter_type = x_s_letter_parameter_type
147: AND bind_variable = x_bind_variable
148: FOR UPDATE NOWAIT;
149:
177: || (reverse chronological order - newest change first)
178: */
179: CURSOR cur_rowid IS
180: SELECT rowid
181: FROM igs_co_s_ltr_pr_arg
182: WHERE ((s_letter_parameter_type = x_s_letter_parameter_type));
183:
184: lv_rowid cur_rowid%RowType;
185:
289: || (reverse chronological order - newest change first)
290: */
291: CURSOR c IS
292: SELECT rowid
293: FROM igs_co_s_ltr_pr_arg
294: WHERE s_letter_parameter_type = x_s_letter_parameter_type
295: AND bind_variable = x_bind_variable;
296:
297: x_last_update_date DATE;
331: x_last_updated_by => x_last_updated_by,
332: x_last_update_login => x_last_update_login
333: );
334:
335: INSERT INTO igs_co_s_ltr_pr_arg (
336: s_letter_parameter_type,
337: bind_variable,
338: direction,
339: creation_date,
380: */
381: CURSOR c1 IS
382: SELECT
383: direction
384: FROM igs_co_s_ltr_pr_arg
385: WHERE rowid = x_rowid
386: FOR UPDATE NOWAIT;
387:
388: tlinfo c1%ROWTYPE;
468: x_last_updated_by => x_last_updated_by,
469: x_last_update_login => x_last_update_login
470: );
471:
472: UPDATE igs_co_s_ltr_pr_arg
473: SET
474: direction = new_references.direction,
475: last_update_date = x_last_update_date,
476: last_updated_by = x_last_updated_by,
501: || (reverse chronological order - newest change first)
502: */
503: CURSOR c1 IS
504: SELECT rowid
505: FROM igs_co_s_ltr_pr_arg
506: WHERE s_letter_parameter_type = x_s_letter_parameter_type
507: AND bind_variable = x_bind_variable;
508:
509: BEGIN
553: p_action => 'DELETE',
554: x_rowid => x_rowid
555: );
556:
557: DELETE FROM igs_co_s_ltr_pr_arg
558: WHERE rowid = x_rowid;
559:
560: IF (SQL%NOTFOUND) THEN
561: RAISE NO_DATA_FOUND;
563:
564: END delete_row;
565:
566:
567: END igs_co_s_ltr_pr_arg_pkg;