1: PACKAGE BODY igs_pe_typ_rsp_dflt_pkg AS
2: /* $Header: IGSNI97B.pls 115.1 2002/11/29 01:37:24 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_typ_rsp_dflt%ROWTYPE;
1: PACKAGE BODY igs_pe_typ_rsp_dflt_pkg AS
2: /* $Header: IGSNI97B.pls 115.1 2002/11/29 01:37:24 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_typ_rsp_dflt%ROWTYPE;
6: new_references igs_pe_typ_rsp_dflt%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI97B.pls 115.1 2002/11/29 01:37:24 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_typ_rsp_dflt%ROWTYPE;
6: new_references igs_pe_typ_rsp_dflt%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_pe_typ_rsp_dflt
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
84: || (reverse chronological order - newest change first)
85: */
86: CURSOR cur_rowid IS
87: SELECT rowid
88: FROM igs_pe_typ_rsp_dflt
89: WHERE s_person_type = x_s_person_type
90: AND responsibility_key = x_responsibility_key
91: AND application_short_name = x_application_short_name
92: FOR UPDATE NOWAIT;
191: || (reverse chronological order - newest change first)
192: */
193: CURSOR c IS
194: SELECT rowid
195: FROM igs_pe_typ_rsp_dflt
196: WHERE s_person_type = x_s_person_type
197: AND responsibility_key = x_responsibility_key
198: AND application_short_name = x_application_short_name;
199:
234: x_last_updated_by => x_last_updated_by,
235: x_last_update_login => x_last_update_login
236: );
237:
238: INSERT INTO igs_pe_typ_rsp_dflt (
239: s_person_type,
240: responsibility_key,
241: application_short_name,
242: creation_date,
283: */
284: CURSOR c1 IS
285: SELECT
286: rowid
287: FROM igs_pe_typ_rsp_dflt
288: WHERE rowid = x_rowid
289: FOR UPDATE NOWAIT;
290:
291: tlinfo c1%ROWTYPE;
327: p_action => 'DELETE',
328: x_rowid => x_rowid
329: );
330:
331: DELETE FROM igs_pe_typ_rsp_dflt
332: WHERE rowid = x_rowid;
333:
334: IF (SQL%NOTFOUND) THEN
335: RAISE NO_DATA_FOUND;
337:
338: END delete_row;
339:
340:
341: END igs_pe_typ_rsp_dflt_pkg;