[Home] [Help]
1: PACKAGE BODY igs_co_ltr_pr_rstcn_pkg AS
2: /* $Header: IGSLI12B.pls 115.9 2002/11/29 01:05:15 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_ltr_pr_rstcn_all%ROWTYPE;
6: new_references igs_co_ltr_pr_rstcn_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI12B.pls 115.9 2002/11/29 01:05:15 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_ltr_pr_rstcn_all%ROWTYPE;
6: new_references igs_co_ltr_pr_rstcn_all%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_LTR_PR_RSTCN_ALL
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
203: || (reverse chronological order - newest change first)
204: */
205: CURSOR cur_rowid IS
206: SELECT rowid
207: FROM igs_co_ltr_pr_rstcn_all
208: WHERE letter_parameter_type = x_letter_parameter_type
209: AND correspondence_type = x_correspondence_type
210: FOR UPDATE NOWAIT;
211:
239: || (reverse chronological order - newest change first)
240: */
241: CURSOR cur_rowid IS
242: SELECT rowid
243: FROM igs_co_ltr_pr_rstcn_all
244: WHERE ((correspondence_type = x_correspondence_type));
245:
246: lv_rowid cur_rowid%RowType;
247:
274: || (reverse chronological order - newest change first)
275: */
276: CURSOR cur_rowid IS
277: SELECT rowid
278: FROM igs_co_ltr_pr_rstcn_all
279: WHERE ((letter_parameter_type = x_letter_parameter_type));
280:
281: lv_rowid cur_rowid%RowType;
282:
386: || (reverse chronological order - newest change first)
387: */
388: CURSOR c IS
389: SELECT rowid
390: FROM igs_co_ltr_pr_rstcn_all
391: WHERE letter_parameter_type = x_letter_parameter_type
392: AND correspondence_type = x_correspondence_type;
393:
394: x_last_update_date DATE;
428: x_last_updated_by => x_last_updated_by,
429: x_last_update_login => x_last_update_login
430: );
431:
432: INSERT INTO igs_co_ltr_pr_rstcn_all (
433: org_id,
434: letter_parameter_type,
435: correspondence_type,
436: creation_date,
476: || (reverse chronological order - newest change first)
477: */
478: CURSOR c1 IS
479: SELECT rowid
480: FROM igs_co_ltr_pr_rstcn_all
481: WHERE letter_parameter_type = x_letter_parameter_type
482: AND correspondence_type = x_correspondence_type;
483:
484: BEGIN
520: p_action => 'DELETE',
521: x_rowid => x_rowid
522: );
523:
524: DELETE FROM igs_co_ltr_pr_rstcn_all
525: WHERE rowid = x_rowid;
526:
527: IF (SQL%NOTFOUND) THEN
528: RAISE NO_DATA_FOUND;