[Home] [Help]
1: PACKAGE BODY igs_co_s_ltr_pkg AS
2: /* $Header: IGSLI16B.pls 115.8 2002/11/29 01:06:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr%ROWTYPE;
1: PACKAGE BODY igs_co_s_ltr_pkg AS
2: /* $Header: IGSLI16B.pls 115.8 2002/11/29 01:06:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr%ROWTYPE;
6: new_references igs_co_s_ltr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI16B.pls 115.8 2002/11/29 01:06:22 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_s_ltr%ROWTYPE;
6: new_references igs_co_s_ltr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM IGS_CO_S_LTR
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
115: ) AS
116:
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM IGS_CO_S_LTR
120: WHERE s_letter_object = x_s_letter_object ;
121:
122: lv_rowid cur_rowid%RowType;
123:
141: ) AS
142:
143: CURSOR cur_rowid IS
144: SELECT rowid
145: FROM IGS_CO_S_LTR
146: WHERE s_letter_reference_type = x_s_letter_reference_type ;
147:
148: lv_rowid cur_rowid%RowType;
149:
164:
165: -- Trigger description :-
166: -- "OSS_TST".trg_slet_br_iu
167: -- BEFORE INSERT OR UPDATE
168: -- ON IGS_CO_S_LTR
169: -- FOR EACH ROW
170:
171: PROCEDURE BeforeRowInsertUpdate1(
172: p_inserting IN BOOLEAN DEFAULT FALSE,
248: || (reverse chronological order - newest change first)
249: */
250: BEGIN
251:
252: igs_co_ltr_param_pkg.get_fk_igs_co_s_ltr (
253: old_references.correspondence_type,
254: old_references.letter_reference_number
255: );
256:
253: old_references.correspondence_type,
254: old_references.letter_reference_number
255: );
256:
257: igs_co_ltr_rpt_grp_pkg.get_fk_igs_co_s_ltr (
258: old_references.correspondence_type,
259: old_references.letter_reference_number
260: );
261:
276: || (reverse chronological order - newest change first)
277: */
278: CURSOR cur_rowid IS
279: SELECT rowid
280: FROM igs_co_s_ltr
281: WHERE correspondence_type = x_correspondence_type
282: AND letter_reference_number = x_letter_reference_number
283: FOR UPDATE NOWAIT;
284:
312: || (reverse chronological order - newest change first)
313: */
314: CURSOR cur_rowid IS
315: SELECT rowid
316: FROM igs_co_s_ltr
317: WHERE ((correspondence_type = x_correspondence_type));
318:
319: lv_rowid cur_rowid%RowType;
320:
447: || (reverse chronological order - newest change first)
448: */
449: CURSOR c IS
450: SELECT rowid
451: FROM igs_co_s_ltr
452: WHERE correspondence_type = x_correspondence_type
453: AND letter_reference_number = x_letter_reference_number;
454:
455: x_last_update_date DATE;
494: x_last_updated_by => x_last_updated_by,
495: x_last_update_login => x_last_update_login
496: );
497:
498: INSERT INTO igs_co_s_ltr (
499: correspondence_type,
500: letter_reference_number,
501: description,
502: s_letter_reference_type,
563: s_letter_object,
564: template_filename,
565: letter_title,
566: closed_ind
567: FROM igs_co_s_ltr
568: WHERE rowid = x_rowid
569: FOR UPDATE NOWAIT;
570:
571: tlinfo c1%ROWTYPE;
666: x_last_updated_by => x_last_updated_by,
667: x_last_update_login => x_last_update_login
668: );
669:
670: UPDATE igs_co_s_ltr
671: SET
672: description = new_references.description,
673: s_letter_reference_type = new_references.s_letter_reference_type,
674: s_letter_object = new_references.s_letter_object,
709: || (reverse chronological order - newest change first)
710: */
711: CURSOR c1 IS
712: SELECT rowid
713: FROM igs_co_s_ltr
714: WHERE correspondence_type = x_correspondence_type
715: AND letter_reference_number = x_letter_reference_number;
716:
717: BEGIN
771: p_action => 'DELETE',
772: x_rowid => x_rowid
773: );
774:
775: DELETE FROM igs_co_s_ltr
776: WHERE rowid = x_rowid;
777:
778: IF (SQL%NOTFOUND) THEN
779: RAISE NO_DATA_FOUND;
781:
782: END delete_row;
783:
784:
785: END igs_co_s_ltr_pkg;