1: PACKAGE BODY igf_aw_awd_frml_det_pkg AS
2: /* $Header: IGFWI13B.pls 120.0 2005/06/02 15:46:43 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_awd_frml_det_all%ROWTYPE;
6: new_references igf_aw_awd_frml_det_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFWI13B.pls 120.0 2005/06/02 15:46:43 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_aw_awd_frml_det_all%ROWTYPE;
6: new_references igf_aw_awd_frml_det_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_AWD_FRML_DET_ALL
43: WHERE rowid = x_rowid;
44:
45: BEGIN
46:
148: || (reverse chronological order - newest change first)
149: */
150: CURSOR cur_rowid IS
151: SELECT rowid
152: FROM igf_aw_awd_frml_det_all
153: WHERE formula_code = x_formula_code
154: AND ci_cal_type = x_ci_cal_type
155: AND ci_sequence_number = x_ci_sequence_number
156: AND seq_no = x_seq_no
186: || (reverse chronological order - newest change first)
187: */
188: CURSOR cur_rowid IS
189: SELECT rowid
190: FROM igf_aw_awd_frml_det_all
191: WHERE ((fund_id = x_fund_id));
192:
193: lv_rowid cur_rowid%RowType;
194:
224: -------------------------------------------------------------------
225:
226: CURSOR cur_rowid IS
227: SELECT rowid
228: FROM igf_aw_awd_frml_det_all
229: WHERE ((adplans_id = x_adplans_id));
230:
231: lv_rowid cur_rowid%ROWTYPE;
232:
260: || (reverse chronological order - newest change first)
261: */
262: CURSOR cur_rowid IS
263: SELECT rowid
264: FROM igf_aw_awd_frml_det_all
265: WHERE (formula_code = x_formula_code and
266: ci_cal_type = x_ci_cal_type and
267: ci_sequence_number = x_ci_sequence_number);
268:
401: || Added new column adplans_id
402: */
403: CURSOR c IS
404: SELECT rowid
405: FROM igf_aw_awd_frml_det_all
406: WHERE formula_code = x_formula_code
407: AND ci_cal_type = x_ci_cal_type
408: AND ci_sequence_number = x_ci_sequence_number
409: AND seq_no = x_seq_no;
410:
411: x_last_update_date DATE;
412: x_last_updated_by NUMBER;
413: x_last_update_login NUMBER;
414: l_org_id igf_aw_awd_frml_det_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
415:
416: BEGIN
417:
418: x_last_update_date := SYSDATE;
454: x_last_updated_by => x_last_updated_by,
455: x_last_update_login => x_last_update_login
456: );
457:
458: INSERT INTO igf_aw_awd_frml_det_all (
459: formula_code,
460: ci_cal_type,
461: ci_sequence_number,
462: seq_no,
536: max_award_amt,
537: replace_fc,
538: adplans_id,
539: lock_award_flag
540: FROM igf_aw_awd_frml_det_all
541: WHERE rowid = x_rowid
542: FOR UPDATE NOWAIT;
543:
544: tlinfo c1%ROWTYPE;
646: x_last_updated_by => x_last_updated_by,
647: x_last_update_login => x_last_update_login
648: );
649:
650: UPDATE igf_aw_awd_frml_det_all
651: SET
652: seq_no = new_references.seq_no,
653: fund_id = new_references.fund_id,
654: min_award_amt = new_references.min_award_amt,
696: || Added new column adplans_id
697: */
698: CURSOR c1 IS
699: SELECT rowid
700: FROM igf_aw_awd_frml_det_all
701: WHERE formula_code = x_formula_code
702: AND ci_cal_type = x_ci_cal_type
703: AND ci_sequence_number = x_ci_sequence_number
704: AND seq_no = x_seq_no;
766: p_action => 'DELETE',
767: x_rowid => x_rowid
768: );
769:
770: DELETE FROM igf_aw_awd_frml_det_all
771: WHERE rowid = x_rowid;
772:
773: IF (SQL%NOTFOUND) THEN
774: RAISE NO_DATA_FOUND;