1: PACKAGE BODY igf_sl_pe_citi_map_pkg AS
2: /* $Header: IGFLI43B.pls 120.0 2006/04/19 07:11:02 bvisvana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pe_citi_map%ROWTYPE;
1: PACKAGE BODY igf_sl_pe_citi_map_pkg AS
2: /* $Header: IGFLI43B.pls 120.0 2006/04/19 07:11:02 bvisvana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pe_citi_map%ROWTYPE;
6: new_references igf_sl_pe_citi_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI43B.pls 120.0 2006/04/19 07:11:02 bvisvana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_pe_citi_map%ROWTYPE;
6: new_references igf_sl_pe_citi_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igf_sl_pe_citi_map
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
115: || (reverse chronological order - newest change first)
116: */
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM igf_sl_pe_citi_map
120: WHERE ci_cal_type = x_ci_cal_type
121: AND ci_sequence_number = x_ci_sequence_number
122: AND pe_citi_stat_code = x_pe_citi_stat_code
123: FOR UPDATE NOWAIT;
153: || (reverse chronological order - newest change first)
154: */
155: CURSOR cur_rowid IS
156: SELECT rowid
157: FROM igf_sl_pe_citi_map
158: WHERE ((ci_cal_type = x_cal_type) AND
159: (ci_sequence_number = x_sequence_number));
160:
161: lv_rowid cur_rowid%RowType;
286: x_last_update_login := -1;
287: END IF;
288: ELSE
289: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
290: fnd_message.set_token ('ROUTINE', 'IGF_SL_PE_CITI_MAP_PKG.INSERT_ROW');
291: igs_ge_msg_stack.add;
292: app_exception.raise_exception;
293: END IF;
294:
305: x_last_updated_by => x_last_updated_by,
306: x_last_update_login => x_last_update_login
307: );
308:
309: INSERT INTO igf_sl_pe_citi_map (
310: ci_cal_type,
311: ci_sequence_number,
312: pe_citi_stat_code,
313: fa_citi_stat_code,
349: */
350: CURSOR c1 IS
351: SELECT
352: fa_citi_stat_code
353: FROM igf_sl_pe_citi_map
354: WHERE rowid = x_rowid
355: FOR UPDATE NOWAIT;
356:
357: tlinfo c1%ROWTYPE;
421: x_last_update_login := -1;
422: END IF;
423: ELSE
424: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
425: fnd_message.set_token ('ROUTINE', 'IGF_SL_PE_CITI_MAP_PKG.UPDATE_ROW');
426: igs_ge_msg_stack.add;
427: app_exception.raise_exception;
428: END IF;
429:
440: x_last_updated_by => x_last_updated_by,
441: x_last_update_login => x_last_update_login
442: );
443:
444: UPDATE igf_sl_pe_citi_map
445: SET
446: pe_citi_stat_code = new_references.pe_citi_stat_code,
447: fa_citi_stat_code = new_references.fa_citi_stat_code,
448: last_update_date = x_last_update_date,
475: || (reverse chronological order - newest change first)
476: */
477: CURSOR c1 IS
478: SELECT rowid
479: FROM igf_sl_pe_citi_map
480: WHERE ci_cal_type = x_ci_cal_type
481: AND ci_sequence_number = x_ci_sequence_number
482: AND pe_citi_stat_code = x_pe_citi_stat_code;
483:
530: p_action => 'DELETE',
531: x_rowid => x_rowid
532: );
533:
534: DELETE FROM igf_sl_pe_citi_map
535: WHERE rowid = x_rowid;
536:
537: IF (SQL%NOTFOUND) THEN
538: RAISE NO_DATA_FOUND;
540:
541: END delete_row;
542:
543:
544: END igf_sl_pe_citi_map_pkg;