1: PACKAGE BODY igf_aw_coa_items_pkg AS
2: /* $Header: IGFWI57B.pls 120.0 2005/06/01 13:39:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_items%ROWTYPE;
1: PACKAGE BODY igf_aw_coa_items_pkg AS
2: /* $Header: IGFWI57B.pls 120.0 2005/06/01 13:39:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_items%ROWTYPE;
6: new_references igf_aw_coa_items%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI57B.pls 120.0 2005/06/01 13:39:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_items%ROWTYPE;
6: new_references igf_aw_coa_items%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igf_aw_coa_items
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
127: || (reverse chronological order - newest change first)
128: */
129: BEGIN
130:
131: igf_aw_coa_itm_terms_pkg.get_fk_igf_aw_coa_items (
132: old_references.base_id,
133: old_references.item_code
134: );
135:
150: || (reverse chronological order - newest change first)
151: */
152: CURSOR cur_rowid IS
153: SELECT rowid
154: FROM igf_aw_coa_items
155: WHERE base_id = x_base_id
156: AND item_code = x_item_code
157: FOR UPDATE NOWAIT;
158:
186: || (reverse chronological order - newest change first)
187: */
188: CURSOR cur_rowid IS
189: SELECT rowid
190: FROM igf_aw_coa_items
191: WHERE ((base_id = x_base_id));
192:
193: lv_rowid cur_rowid%RowType;
194:
221: || (reverse chronological order - newest change first)
222: */
223: CURSOR cur_rowid IS
224: SELECT rowid
225: FROM igf_aw_coa_items
226: WHERE ((item_code = x_item_code));
227:
228: lv_rowid cur_rowid%RowType;
229:
406: x_last_update_login => x_last_update_login,
407: x_lock_flag => x_lock_flag
408: );
409:
410: INSERT INTO igf_aw_coa_items (
411: base_id,
412: item_code,
413: amount,
414: pell_coa_amount,
475: alt_pell_amount,
476: fixed_cost,
477: legacy_record_flag,
478: lock_flag
479: FROM igf_aw_coa_items
480: WHERE rowid = x_rowid
481: FOR UPDATE NOWAIT;
482:
483: tlinfo c1%ROWTYPE;
597: x_program_update_date := SYSDATE;
598: END IF;
599: END IF;
600:
601: UPDATE igf_aw_coa_items
602: SET
603: amount = new_references.amount,
604: pell_coa_amount = new_references.pell_coa_amount,
605: alt_pell_amount = new_references.alt_pell_amount,
644: || (reverse chronological order - newest change first)
645: */
646: CURSOR c1 IS
647: SELECT rowid
648: FROM igf_aw_coa_items
649: WHERE base_id = x_base_id
650: AND item_code = x_item_code;
651:
652: BEGIN
706: p_action => 'DELETE',
707: x_rowid => x_rowid
708: );
709:
710: DELETE FROM igf_aw_coa_items
711: WHERE rowid = x_rowid;
712:
713: IF (SQL%NOTFOUND) THEN
714: RAISE NO_DATA_FOUND;
716:
717: END delete_row;
718:
719:
720: END igf_aw_coa_items_pkg;