1: PACKAGE BODY igf_gr_elec_stat_sum_pkg AS
2: /* $Header: IGFGI11B.pls 115.6 2002/11/28 14:17:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_gr_elec_stat_sum_all%ROWTYPE;
6: new_references igf_gr_elec_stat_sum_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFGI11B.pls 115.6 2002/11/28 14:17:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_gr_elec_stat_sum_all%ROWTYPE;
6: new_references igf_gr_elec_stat_sum_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
44: */
45:
46: CURSOR cur_old_ref_values IS
47: SELECT *
48: FROM igf_gr_elec_stat_sum_all
49: WHERE rowid = x_rowid;
50:
51: BEGIN
52:
114: || (reverse chronological order - newest change first)
115: */
116: CURSOR cur_rowid IS
117: SELECT rowid
118: FROM igf_gr_elec_stat_sum_all
119: WHERE ess_id = x_ess_id
120: FOR UPDATE NOWAIT;
121:
122: lv_rowid cur_rowid%RowType;
263: || (reverse chronological order - newest change first)
264: */
265: CURSOR c IS
266: SELECT rowid
267: FROM igf_gr_elec_stat_sum_all
268: WHERE ess_id = x_ess_id;
269:
270: x_last_update_date DATE;
271: x_last_updated_by NUMBER;
273: x_request_id NUMBER;
274: x_program_id NUMBER;
275: x_program_application_id NUMBER;
276: x_program_update_date DATE;
277: l_org_id igf_gr_elec_stat_sum_all.org_id%TYPE;
278:
279: BEGIN
280:
281: l_org_id := igf_aw_gen.get_org_id;
339: x_last_updated_by => x_last_updated_by,
340: x_last_update_login => x_last_update_login
341: );
342:
343: INSERT INTO igf_gr_elec_stat_sum_all (
344: ess_id,
345: rep_pell_id,
346: duns_id,
347: gaps_award_num,
463: ytd_admin_cost_allowance,
464: caps_drwn_dn_pymts,
465: gaps_last_date,
466: last_pymt_number
467: FROM igf_gr_elec_stat_sum_all
468: WHERE rowid = x_rowid
469: FOR UPDATE NOWAIT;
470:
471: tlinfo c1%ROWTYPE;
618: x_program_update_date := SYSDATE;
619: END IF;
620: END IF;
621:
622: UPDATE igf_gr_elec_stat_sum_all
623: SET
624: rep_pell_id = new_references.rep_pell_id,
625: duns_id = new_references.duns_id,
626: gaps_award_num = new_references.gaps_award_num,
688: || (reverse chronological order - newest change first)
689: */
690: CURSOR c1 IS
691: SELECT rowid
692: FROM igf_gr_elec_stat_sum_all
693: WHERE ess_id = x_ess_id;
694:
695: BEGIN
696:
771: p_action => 'DELETE',
772: x_rowid => x_rowid
773: );
774:
775: DELETE FROM igf_gr_elec_stat_sum_all
776: WHERE rowid = x_rowid;
777:
778: IF (SQL%NOTFOUND) THEN
779: RAISE NO_DATA_FOUND;