1: PACKAGE BODY igf_ap_td_inst_reqrs_pkg AS
2: /* $Header: IGFAI14B.pls 115.9 2002/11/28 13:55:55 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_td_inst_reqrs_all%ROWTYPE;
6: new_references igf_ap_td_inst_reqrs_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFAI14B.pls 115.9 2002/11/28 13:55:55 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_ap_td_inst_reqrs_all%ROWTYPE;
6: new_references igf_ap_td_inst_reqrs_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGF_AP_TD_INST_REQRS_ALL
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
93: || (reverse chronological order - newest change first)
94: */
95: CURSOR cur_rowid IS
96: SELECT rowid
97: FROM igf_ap_td_inst_reqrs_all
98: WHERE base_id = x_base_id
99: AND item_sequence_number = x_item_sequence_number
100: AND tdirr_req_reason_code = x_tdirr_req_reason_code
101: AND tdirr_req_reason_flag = x_tdirr_req_reason_flag
132: || (reverse chronological order - newest change first)
133: */
134: CURSOR cur_rowid IS
135: SELECT rowid
136: FROM igf_ap_td_inst_reqrs_all
137: WHERE ((base_id = x_base_id) AND
138: (item_sequence_number = x_item_sequence_number));
139:
140: lv_rowid cur_rowid%RowType;
252: || (reverse chronological order - newest change first)
253: */
254: CURSOR c IS
255: SELECT rowid
256: FROM igf_ap_td_inst_reqrs_all
257: WHERE base_id = x_base_id
258: AND item_sequence_number = x_item_sequence_number
259: AND tdirr_req_reason_code = x_tdirr_req_reason_code
260: AND tdirr_req_reason_flag = x_tdirr_req_reason_flag;
262: x_last_update_date DATE;
263: x_last_updated_by NUMBER;
264: x_last_update_login NUMBER;
265:
266: l_org_id igf_ap_td_inst_reqrs_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
267:
268: BEGIN
269:
270: x_last_update_date := SYSDATE;
302: x_last_updated_by => x_last_updated_by,
303: x_last_update_login => x_last_update_login
304: );
305:
306: INSERT INTO igf_ap_td_inst_reqrs_all (
307: base_id,
308: item_sequence_number,
309: tdirr_req_reason_flag,
310: tdirr_req_reason_code,
368: override_flag,
369: override_by,
370: override_date,
371: org_id
372: FROM igf_ap_td_inst_reqrs_all
373: WHERE rowid = x_rowid
374: FOR UPDATE NOWAIT;
375:
376: tlinfo c1%ROWTYPE;
468: x_last_updated_by => x_last_updated_by,
469: x_last_update_login => x_last_update_login
470: );
471:
472: UPDATE igf_ap_td_inst_reqrs_all
473: SET
474: override_flag = new_references.override_flag,
475: override_by = new_references.override_by,
476: override_date = new_references.override_date,
507: || (reverse chronological order - newest change first)
508: */
509: CURSOR c1 IS
510: SELECT rowid
511: FROM igf_ap_td_inst_reqrs_all
512: WHERE base_id = x_base_id
513: AND item_sequence_number = x_item_sequence_number
514: AND tdirr_req_reason_code = x_tdirr_req_reason_code
515: AND tdirr_req_reason_flag = x_tdirr_req_reason_flag;
569: p_action => 'DELETE',
570: x_rowid => x_rowid
571: );
572:
573: DELETE FROM igf_ap_td_inst_reqrs_all
574: WHERE rowid = x_rowid;
575:
576: IF (SQL%NOTFOUND) THEN
577: RAISE NO_DATA_FOUND;