1: PACKAGE BODY igf_aw_coa_itm_terms_pkg AS
2: /* $Header: IGFWI58B.pls 120.0 2005/06/01 14:23:56 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_itm_terms%ROWTYPE;
1: PACKAGE BODY igf_aw_coa_itm_terms_pkg AS
2: /* $Header: IGFWI58B.pls 120.0 2005/06/01 14:23:56 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_itm_terms%ROWTYPE;
6: new_references igf_aw_coa_itm_terms%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI58B.pls 120.0 2005/06/01 14:23:56 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_itm_terms%ROWTYPE;
6: new_references igf_aw_coa_itm_terms%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igf_aw_coa_itm_terms
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
134: || (reverse chronological order - newest change first)
135: */
136: CURSOR cur_rowid IS
137: SELECT rowid
138: FROM igf_aw_coa_itm_terms
139: WHERE base_id = x_base_id
140: AND ld_cal_type = x_ld_cal_type
141: AND ld_sequence_number = x_ld_sequence_number
142: AND item_code = x_item_code
173: || (reverse chronological order - newest change first)
174: */
175: CURSOR cur_rowid IS
176: SELECT rowid
177: FROM igf_aw_coa_itm_terms
178: WHERE ((base_id = x_base_id) AND
179: (item_code = x_item_code));
180:
181: lv_rowid cur_rowid%RowType;
210: || (reverse chronological order - newest change first)
211: */
212: CURSOR cur_rowid IS
213: SELECT rowid
214: FROM igf_aw_coa_itm_terms
215: WHERE ((ld_cal_type = x_cal_type) AND
216: (ld_sequence_number = x_sequence_number));
217:
218: lv_rowid cur_rowid%RowType;
544: x_last_update_login => x_last_update_login,
545: x_lock_flag => x_lock_flag
546: );
547:
548: INSERT INTO igf_aw_coa_itm_terms (
549: base_id,
550: item_code,
551: amount,
552: ld_cal_type,
607: CURSOR c1 IS
608: SELECT
609: amount,
610: lock_flag
611: FROM igf_aw_coa_itm_terms
612: WHERE rowid = x_rowid
613: FOR UPDATE NOWAIT;
614:
615: tlinfo c1%ROWTYPE;
720: x_program_update_date := SYSDATE;
721: END IF;
722: END IF;
723:
724: UPDATE igf_aw_coa_itm_terms
725: SET
726: amount = new_references.amount,
727: last_update_date = x_last_update_date,
728: last_updated_by = x_last_updated_by,
765: || (reverse chronological order - newest change first)
766: */
767: CURSOR c1 IS
768: SELECT rowid
769: FROM igf_aw_coa_itm_terms
770: WHERE base_id = x_base_id
771: AND ld_cal_type = x_ld_cal_type
772: AND ld_sequence_number = x_ld_sequence_number
773: AND item_code = x_item_code;
825: p_action => 'DELETE',
826: x_rowid => x_rowid
827: );
828:
829: DELETE FROM igf_aw_coa_itm_terms
830: WHERE rowid = x_rowid;
831:
832: IF (SQL%NOTFOUND) THEN
833: RAISE NO_DATA_FOUND;
840:
841: END delete_row;
842:
843:
844: END igf_aw_coa_itm_terms_pkg;