1: PACKAGE BODY igs_uc_ref_apr_pkg AS
2: /* $Header: IGSXI24B.pls 115.6 2003/02/28 07:48:32 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_apr%ROWTYPE;
1: PACKAGE BODY igs_uc_ref_apr_pkg AS
2: /* $Header: IGSXI24B.pls 115.6 2003/02/28 07:48:32 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_apr%ROWTYPE;
6: new_references igs_uc_ref_apr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI24B.pls 115.6 2003/02/28 07:48:32 bayadav noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_ref_apr%ROWTYPE;
6: new_references igs_uc_ref_apr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_UC_REF_APR
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
81: || (reverse chronological order - newest change first)
82: */
83: BEGIN
84:
85: igs_uc_com_sch_pkg.get_fk_igs_uc_ref_apr (
86: old_references.dom
87: );
88:
89: END check_child_existance;
101: || (reverse chronological order - newest change first)
102: */
103: CURSOR cur_rowid IS
104: SELECT rowid
105: FROM igs_uc_ref_apr
106: WHERE dom = x_dom ;
107:
108: lv_rowid cur_rowid%RowType;
109:
209: || (reverse chronological order - newest change first)
210: */
211: CURSOR c IS
212: SELECT rowid
213: FROM igs_uc_ref_apr
214: WHERE dom = x_dom;
215:
216: x_last_update_date DATE;
217: x_last_updated_by NUMBER;
237: igs_ge_msg_stack.add;
238: app_exception.raise_exception;
239: END IF;
240:
241: /* SELECT igs_uc_ref_apr_s.NEXTVAL
242: INTO x_dom
243: FROM dual;
244: */
245:
256: x_last_updated_by => x_last_updated_by,
257: x_last_update_login => x_last_update_login
258: );
259:
260: INSERT INTO igs_uc_ref_apr (
261: dom,
262: dom_text,
263: lea_flag,
264: imported,
310: SELECT
311: dom_text,
312: lea_flag,
313: imported
314: FROM igs_uc_ref_apr
315: WHERE rowid = x_rowid
316: FOR UPDATE NOWAIT;
317:
318: tlinfo c1%ROWTYPE;
402: x_last_updated_by => x_last_updated_by,
403: x_last_update_login => x_last_update_login
404: );
405:
406: UPDATE igs_uc_ref_apr
407: SET
408: dom_text = new_references.dom_text,
409: lea_flag = new_references.lea_flag,
410: imported = new_references.imported,
438: || (reverse chronological order - newest change first)
439: */
440: CURSOR c1 IS
441: SELECT rowid
442: FROM igs_uc_ref_apr
443: WHERE dom = x_dom;
444:
445: BEGIN
446:
491: p_action => 'DELETE',
492: x_rowid => x_rowid
493: );
494:
495: DELETE FROM igs_uc_ref_apr
496: WHERE rowid = x_rowid;
497:
498: IF (SQL%NOTFOUND) THEN
499: RAISE NO_DATA_FOUND;
501:
502: END delete_row;
503:
504:
505: END igs_uc_ref_apr_pkg;