1: PACKAGE BODY igf_ap_appl_status_pkg AS
2: /* $Header: IGFAI77B.pls 120.0 2005/09/09 17:14:26 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_appl_status_all%ROWTYPE;
6: new_references igf_ap_appl_status_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFAI77B.pls 120.0 2005/09/09 17:14:26 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_appl_status_all%ROWTYPE;
6: new_references igf_ap_appl_status_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM igf_ap_appl_status_all
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
147: || (reverse chronological order - newest change first)
148: */
149: CURSOR cur_rowid IS
150: SELECT rowid
151: FROM igf_ap_appl_status_all
152: WHERE base_id = x_base_id
153: AND application_code = x_application_code
154: FOR UPDATE NOWAIT;
155:
226: x_last_updated_by => x_last_updated_by,
227: x_last_update_login => x_last_update_login
228: );
229:
230: INSERT INTO igf_ap_appl_status_all (
231: application_code,
232: base_id,
233: application_status_code,
234: creation_date,
269: SELECT
270: application_code,
271: base_id,
272: application_status_code
273: FROM igf_ap_appl_status_all
274: WHERE rowid = x_rowid
275: FOR UPDATE NOWAIT;
276:
277: tlinfo c1%ROWTYPE;
360: x_last_updated_by => x_last_updated_by,
361: x_last_update_login => x_last_update_login
362: );
363:
364: UPDATE igf_ap_appl_status_all
365: SET
366: application_code = new_references.application_code,
367: base_id = new_references.base_id,
368: application_status_code = new_references.application_status_code,
395: || (reverse chronological order - newest change first)
396: */
397: CURSOR c1 IS
398: SELECT rowid
399: FROM igf_ap_appl_status_all
400: WHERE base_id = x_base_id
401: AND application_code = x_application_code;
402:
403: BEGIN
447: p_action => 'DELETE',
448: x_rowid => x_rowid
449: );
450:
451: DELETE FROM igf_ap_appl_status_all
452: WHERE rowid = x_rowid;
453:
454: IF (SQL%NOTFOUND) THEN
455: RAISE NO_DATA_FOUND;