1: PACKAGE BODY igs_en_nom_cmpl_prd_pkg AS
2: /* $Header: IGSEI61B.pls 115.7 2003/02/20 08:43:09 prraj noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_nom_cmpl_prd%ROWTYPE;
1: PACKAGE BODY igs_en_nom_cmpl_prd_pkg AS
2: /* $Header: IGSEI61B.pls 115.7 2003/02/20 08:43:09 prraj noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_nom_cmpl_prd%ROWTYPE;
6: new_references igs_en_nom_cmpl_prd%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI61B.pls 115.7 2003/02/20 08:43:09 prraj noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_nom_cmpl_prd%ROWTYPE;
6: new_references igs_en_nom_cmpl_prd%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_EN_NOM_CMPL_PRD
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
82: || (reverse chronological order - newest change first)
83: */
84: CURSOR cur_rowid IS
85: SELECT rowid
86: FROM igs_en_nom_cmpl_prd
87: WHERE completion_perd = x_completion_perd;
88:
89: lv_rowid cur_rowid%RowType;
90:
187: || (reverse chronological order - newest change first)
188: */
189: CURSOR c IS
190: SELECT rowid
191: FROM igs_en_nom_cmpl_prd
192: WHERE completion_perd = x_completion_perd;
193:
194: x_last_update_date DATE;
195: x_last_updated_by NUMBER;
228: x_last_updated_by => x_last_updated_by,
229: x_last_update_login => x_last_update_login
230: );
231:
232: INSERT INTO igs_en_nom_cmpl_prd (
233: completion_perd,
234: description,
235: closed_ind,
236: creation_date,
278: CURSOR c1 IS
279: SELECT
280: description,
281: closed_ind
282: FROM igs_en_nom_cmpl_prd
283: WHERE rowid = x_rowid
284: FOR UPDATE NOWAIT;
285:
286: tlinfo c1%ROWTYPE;
367: x_last_updated_by => x_last_updated_by,
368: x_last_update_login => x_last_update_login
369: );
370:
371: UPDATE igs_en_nom_cmpl_prd
372: SET
373: description = new_references.description,
374: closed_ind = new_references.closed_ind,
375: last_update_date = x_last_update_date,
401: || (reverse chronological order - newest change first)
402: */
403: CURSOR c1 IS
404: SELECT rowid
405: FROM igs_en_nom_cmpl_prd
406: WHERE completion_perd = x_completion_perd;
407:
408: BEGIN
409:
433:
434: END add_row;
435:
436:
437: END igs_en_nom_cmpl_prd_pkg;