[Home] [Help]
1: PACKAGE BODY IGS_AS_DUP_DOCS_PKG AS
2: /* $Header: IGSDI76B.pls 115.2 2002/11/28 23:30:49 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_dup_docs%ROWTYPE;
1: PACKAGE BODY IGS_AS_DUP_DOCS_PKG AS
2: /* $Header: IGSDI76B.pls 115.2 2002/11/28 23:30:49 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_dup_docs%ROWTYPE;
6: new_references igs_as_dup_docs%ROWTYPE;
7:
8: PROCEDURE process_duplicate_documents
9: (
2: /* $Header: IGSDI76B.pls 115.2 2002/11/28 23:30:49 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_dup_docs%ROWTYPE;
6: new_references igs_as_dup_docs%ROWTYPE;
7:
8: PROCEDURE process_duplicate_documents
9: (
10: x_order_number IN NUMBER,
98: */
99:
100: CURSOR cur_old_ref_values IS
101: SELECT *
102: FROM igs_as_dup_docs
103: WHERE rowid = x_rowid;
104:
105: BEGIN
106:
249: x_last_updated_by => x_last_updated_by,
250: x_last_update_login => x_last_update_login
251: );
252:
253: INSERT INTO igs_as_dup_docs (
254: order_number,
255: item_number,
256: requested_by,
257: requested_date,
359: requested_by,
360: requested_date,
361: fulfilled_by,
362: fulfilled_date
363: FROM igs_as_dup_docs
364: WHERE rowid = x_rowid
365: FOR UPDATE NOWAIT;
366:
367: tlinfo c1%ROWTYPE;
496: x_last_updated_by => x_last_updated_by,
497: x_last_update_login => x_last_update_login
498: );
499:
500: UPDATE igs_as_dup_docs
501: SET
502: order_number = new_references.order_number,
503: item_number = new_references.item_number,
504: requested_by = new_references.requested_by,
534: p_action => 'DELETE',
535: x_rowid => x_rowid
536: );
537:
538: DELETE FROM igs_as_dup_docs
539: WHERE rowid = x_rowid;
540:
541: IF (SQL%NOTFOUND) THEN
542: RAISE NO_DATA_FOUND;
543: END IF;
544:
545: END delete_row;
546:
547: END igs_as_dup_docs_pkg;