[Home] [Help]
1: PACKAGE BODY igs_co_type_jo_pkg AS
2: /* $Header: IGSLI24B.pls 115.2 2002/11/29 01:07:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_type_jo%ROWTYPE;
1: PACKAGE BODY igs_co_type_jo_pkg AS
2: /* $Header: IGSLI24B.pls 115.2 2002/11/29 01:07:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_type_jo%ROWTYPE;
6: new_references igs_co_type_jo%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI24B.pls 115.2 2002/11/29 01:07:41 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_type_jo%ROWTYPE;
6: new_references igs_co_type_jo%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_TYPE_JO
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_co_type_jo
89: WHERE correspondence_type = x_correspondence_type
90: AND s_job_name = x_s_job_name
91: AND output_num = x_output_num
92: FOR UPDATE NOWAIT;
191: || (reverse chronological order - newest change first)
192: */
193: CURSOR c IS
194: SELECT rowid
195: FROM igs_co_type_jo
196: WHERE correspondence_type = x_correspondence_type
197: AND s_job_name = x_s_job_name
198: AND output_num = x_output_num;
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_co_type_jo (
239: correspondence_type,
240: s_job_name,
241: output_num,
242: creation_date,
283: */
284: CURSOR c1 IS
285: SELECT
286: rowid
287: FROM igs_co_type_jo
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_co_type_jo
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_co_type_jo_pkg;