1: PACKAGE BODY igf_aw_coa_grp_item_pkg AS
2: /* $Header: IGFWI06B.pls 120.0 2005/06/01 13:27:12 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_grp_item_all%ROWTYPE;
6: new_references igf_aw_coa_grp_item_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI06B.pls 120.0 2005/06/01 13:27:12 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_coa_grp_item_all%ROWTYPE;
6: new_references igf_aw_coa_grp_item_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
38: */
39:
40: CURSOR cur_old_ref_values IS
41: SELECT *
42: FROM IGF_AW_COA_GRP_ITEM_ALL
43: WHERE rowid = x_rowid;
44:
45: BEGIN
46:
169: || (reverse chronological order - newest change first)
170: */
171: CURSOR cur_rowid IS
172: SELECT rowid
173: FROM igf_aw_coa_grp_item_all
174: WHERE coa_code = x_coa_code
175: AND ci_cal_type = x_ci_cal_type
176: AND ci_sequence_number = x_ci_sequence_number
177: AND item_code = x_item_code
209: || (reverse chronological order - newest change first)
210: */
211: CURSOR cur_rowid IS
212: SELECT rowid
213: FROM igf_aw_coa_grp_item_all
214: WHERE ((coa_code = x_coa_code) AND
215: (ci_cal_type = x_ci_cal_type) AND
216: (ci_sequence_number = x_ci_sequence_number));
217:
246: || (reverse chronological order - newest change first)
247: */
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igf_aw_coa_grp_item_all
251: WHERE ((item_code = x_item_code));
252:
253: lv_rowid cur_rowid%RowType;
254:
386: || (reverse chronological order - newest change first)
387: */
388: CURSOR c IS
389: SELECT rowid
390: FROM igf_aw_coa_grp_item_all
391: WHERE coa_code = x_coa_code
392: AND ci_cal_type = x_ci_cal_type
393: AND ci_sequence_number = x_ci_sequence_number
394: AND item_code = x_item_code;
395:
396: x_last_update_date DATE;
397: x_last_updated_by NUMBER;
398: x_last_update_login NUMBER;
399: l_org_id igf_aw_coa_grp_item_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
400: BEGIN
401:
402: x_last_update_date := SYSDATE;
403: IF (x_mode = 'I') THEN
439: x_item_dist => x_item_dist,
440: x_lock_flag => x_lock_flag
441: );
442:
443: INSERT INTO igf_aw_coa_grp_item_all (
444: coa_code,
445: ci_cal_type,
446: ci_sequence_number,
447: item_code,
521: pell_amount,
522: pell_alternate_amt,
523: item_dist,
524: lock_flag
525: FROM igf_aw_coa_grp_item_all
526: WHERE rowid = x_rowid
527: FOR UPDATE NOWAIT;
528:
529: tlinfo c1%ROWTYPE;
639: x_item_dist => x_item_dist,
640: x_lock_flag => x_lock_flag
641: );
642:
643: UPDATE igf_aw_coa_grp_item_all
644: SET
645: default_value = new_references.default_value,
646: fixed_cost = new_references.fixed_cost,
647: active = new_references.active,
687: || (reverse chronological order - newest change first)
688: */
689: CURSOR c1 IS
690: SELECT rowid
691: FROM igf_aw_coa_grp_item_all
692: WHERE coa_code = x_coa_code
693: AND ci_cal_type = x_ci_cal_type
694: AND ci_sequence_number = x_ci_sequence_number
695: AND item_code = x_item_code
760: p_action => 'DELETE',
761: x_rowid => x_rowid
762: );
763:
764: DELETE FROM igf_aw_coa_grp_item_all
765: WHERE rowid = x_rowid;
766:
767: IF (SQL%NOTFOUND) THEN
768: RAISE NO_DATA_FOUND;