[Home] [Help]
1: PACKAGE BODY igs_co_dtl_ole_pkg AS
2: /* $Header: IGSLI06B.pls 115.4 2002/11/29 01:03:36 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_dtl_ole%ROWTYPE;
1: PACKAGE BODY igs_co_dtl_ole_pkg AS
2: /* $Header: IGSLI06B.pls 115.4 2002/11/29 01:03:36 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_dtl_ole%ROWTYPE;
6: new_references igs_co_dtl_ole%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI06B.pls 115.4 2002/11/29 01:03:36 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_dtl_ole%ROWTYPE;
6: new_references igs_co_dtl_ole%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_DTL_OLE
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT rowid
149: FROM igs_co_dtl_ole
150: WHERE correspondence_type = x_correspondence_type
151: AND reference_number = x_reference_number
152: FOR UPDATE NOWAIT;
153:
182: || (reverse chronological order - newest change first)
183: */
184: CURSOR cur_rowid IS
185: SELECT rowid
186: FROM igs_co_dtl_ole
187: WHERE ((correspondence_type = x_correspondence_type) AND
188: (reference_number = x_reference_number));
189:
190: lv_rowid cur_rowid%RowType;
295: || (reverse chronological order - newest change first)
296: */
297: CURSOR c IS
298: SELECT rowid
299: FROM igs_co_dtl_ole
300: WHERE correspondence_type = x_correspondence_type
301: AND reference_number = x_reference_number;
302:
303: x_last_update_date DATE;
353: x_last_updated_by => x_last_updated_by,
354: x_last_update_login => x_last_update_login
355: );
356:
357: INSERT INTO igs_co_dtl_ole (
358: correspondence_type,
359: reference_number,
360: cord_ole,
361: creation_date,
410: */
411: CURSOR c1 IS
412: SELECT
413: cord_ole
414: FROM igs_co_dtl_ole
415: WHERE rowid = x_rowid
416: FOR UPDATE NOWAIT;
417:
418: tlinfo c1%ROWTYPE;
516: x_program_update_date := SYSDATE;
517: END IF;
518: END IF;
519:
520: UPDATE igs_co_dtl_ole
521: SET
522: cord_ole = new_references.cord_ole,
523: last_update_date = x_last_update_date,
524: last_updated_by = x_last_updated_by,
553: || (reverse chronological order - newest change first)
554: */
555: CURSOR c1 IS
556: SELECT rowid
557: FROM igs_co_dtl_ole
558: WHERE correspondence_type = x_correspondence_type
559: AND reference_number = x_reference_number;
560:
561: BEGIN
605: p_action => 'DELETE',
606: x_rowid => x_rowid
607: );
608:
609: DELETE FROM igs_co_dtl_ole
610: WHERE rowid = x_rowid;
611:
612: IF (SQL%NOTFOUND) THEN
613: RAISE NO_DATA_FOUND;
615:
616: END delete_row;
617:
618:
619: END igs_co_dtl_ole_pkg;