[Home] [Help]
1: PACKAGE BODY igf_gr_ytd_disb_pkg AS
2: /* $Header: IGFGI14B.pls 120.1 2006/04/06 06:09:01 veramach noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_gr_ytd_disb_all%ROWTYPE;
6: new_references igf_gr_ytd_disb_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFGI14B.pls 120.1 2006/04/06 06:09:01 veramach noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_gr_ytd_disb_all%ROWTYPE;
6: new_references igf_gr_ytd_disb_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
47: */
48:
49: CURSOR cur_old_ref_values IS
50: SELECT *
51: FROM igf_gr_ytd_disb_all
52: WHERE rowid = x_rowid;
53:
54: BEGIN
55:
120: || (reverse chronological order - newest change first)
121: */
122: CURSOR cur_rowid IS
123: SELECT rowid
124: FROM igf_gr_ytd_disb_all
125: WHERE ytdds_id = x_ytdds_id
126: FOR UPDATE NOWAIT;
127:
128: lv_rowid cur_rowid%RowType;
279: || (reverse chronological order - newest change first)
280: */
281: CURSOR c IS
282: SELECT rowid
283: FROM igf_gr_ytd_disb_all
284: WHERE ytdds_id = x_ytdds_id;
285:
286: x_last_update_date DATE;
287: x_last_updated_by NUMBER;
289: x_request_id NUMBER;
290: x_program_id NUMBER;
291: x_program_application_id NUMBER;
292: x_program_update_date DATE;
293: l_org_id igf_gr_ytd_disb_all.org_id%TYPE DEFAULT igf_aw_gen.get_org_id;
294:
295: BEGIN
296:
297: x_last_update_date := SYSDATE;
358: x_disb_rel_ind => x_disb_rel_ind,
359: x_prev_disb_seq_num => x_prev_disb_seq_num
360: );
361:
362: INSERT INTO igf_gr_ytd_disb_all (
363: ytdds_id,
364: origination_id,
365: inst_cross_ref_code,
366: action_code,
494: attend_entity_id_txt,
495: disb_seq_num,
496: disb_rel_ind,
497: prev_disb_seq_num
498: FROM igf_gr_ytd_disb_all
499: WHERE rowid = x_rowid
500: FOR UPDATE NOWAIT;
501:
502: tlinfo c1%ROWTYPE;
658: x_program_update_date := SYSDATE;
659: END IF;
660: END IF;
661:
662: UPDATE igf_gr_ytd_disb_all
663: SET
664: origination_id = new_references.origination_id,
665: inst_cross_ref_code = new_references.inst_cross_ref_code,
666: action_code = new_references.action_code,
734: || (reverse chronological order - newest change first)
735: */
736: CURSOR c1 IS
737: SELECT rowid
738: FROM igf_gr_ytd_disb_all
739: WHERE ytdds_id = x_ytdds_id;
740:
741: BEGIN
742:
823: p_action => 'DELETE',
824: x_rowid => x_rowid
825: );
826:
827: DELETE FROM igf_gr_ytd_disb_all
828: WHERE rowid = x_rowid;
829:
830: IF (SQL%NOTFOUND) THEN
831: RAISE NO_DATA_FOUND;