1: PACKAGE BODY igs_co_s_per_ltr_pkg AS
2: /* $Header: IGSLI25B.pls 115.3 2002/11/29 01:07:57 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_per_ltr_all%ROWTYPE;
6: new_references igs_co_s_per_ltr_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI25B.pls 115.3 2002/11/29 01:07:57 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_per_ltr_all%ROWTYPE;
6: new_references igs_co_s_per_ltr_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_CO_S_PER_LTR_ALL
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igs_co_s_per_ltr_all
156: WHERE person_id = x_person_id
157: AND correspondence_type = x_correspondence_type
158: AND letter_reference_number = x_letter_reference_number
159: AND sequence_number = x_sequence_number
279: || (reverse chronological order - newest change first)
280: */
281: CURSOR c IS
282: SELECT rowid
283: FROM igs_co_s_per_ltr_all
284: WHERE person_id = x_person_id
285: AND correspondence_type = x_correspondence_type
286: AND letter_reference_number = x_letter_reference_number
287: AND sequence_number = x_sequence_number;
341: x_last_updated_by => x_last_updated_by,
342: x_last_update_login => x_last_update_login
343: );
344:
345: INSERT INTO igs_co_s_per_ltr_all (
346: org_id,
347: person_id,
348: correspondence_type,
349: letter_reference_number,
403: || (reverse chronological order - newest change first)
404: */
405: CURSOR c1 IS
406: SELECT rowid
407: FROM igs_co_s_per_ltr_all
408: WHERE person_id = x_person_id
409: AND correspondence_type = x_correspondence_type
410: AND letter_reference_number = x_letter_reference_number
411: AND sequence_number = x_sequence_number;
452: p_action => 'DELETE',
453: x_rowid => x_rowid
454: );
455:
456: DELETE FROM igs_co_s_per_ltr_all
457: WHERE rowid = x_rowid;
458:
459: IF (SQL%NOTFOUND) THEN
460: RAISE NO_DATA_FOUND;