[Home] [Help]
1: PACKAGE BODY igs_uc_sys_calndrs_pkg AS
2: /* $Header: IGSXI54B.pls 120.0 2005/06/01 13:36:51 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_sys_calndrs%ROWTYPE;
1: PACKAGE BODY igs_uc_sys_calndrs_pkg AS
2: /* $Header: IGSXI54B.pls 120.0 2005/06/01 13:36:51 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_sys_calndrs%ROWTYPE;
6: new_references igs_uc_sys_calndrs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI54B.pls 120.0 2005/06/01 13:36:51 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_sys_calndrs%ROWTYPE;
6: new_references igs_uc_sys_calndrs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
32: */
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM igs_uc_sys_calndrs
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
92: || (reverse chronological order - newest change first)
93: */
94: CURSOR cur_rowid IS
95: SELECT rowid
96: FROM igs_uc_sys_calndrs
97: WHERE system_code = x_system_code
98: AND entry_year = x_entry_year
99: AND entry_month = x_entry_month
100: FOR UPDATE NOWAIT;
231: x_last_update_login := -1;
232: END IF;
233: ELSE
234: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
235: fnd_message.set_token ('ROUTINE', 'IGS_UC_SYS_CALNDRS_PKG.INSERT_ROW');
236: igs_ge_msg_stack.add;
237: app_exception.raise_exception;
238: END IF;
239:
253: x_last_updated_by => x_last_updated_by,
254: x_last_update_login => x_last_update_login
255: );
256:
257: INSERT INTO igs_uc_sys_calndrs (
258: system_code,
259: entry_year,
260: entry_month,
261: aca_cal_type,
309: aca_cal_type,
310: aca_cal_seq_no,
311: adm_cal_type,
312: adm_cal_seq_no
313: FROM igs_uc_sys_calndrs
314: WHERE rowid = x_rowid
315: FOR UPDATE NOWAIT;
316:
317: tlinfo c1%ROWTYPE;
387: x_last_update_login := -1;
388: END IF;
389: ELSE
390: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
391: fnd_message.set_token ('ROUTINE', 'IGS_UC_SYS_CALNDRS_PKG.UPDATE_ROW');
392: igs_ge_msg_stack.add;
393: app_exception.raise_exception;
394: END IF;
395:
409: x_last_updated_by => x_last_updated_by,
410: x_last_update_login => x_last_update_login
411: );
412:
413: UPDATE igs_uc_sys_calndrs
414: SET
415: aca_cal_type = new_references.aca_cal_type,
416: aca_cal_seq_no = new_references.aca_cal_seq_no,
417: adm_cal_type = new_references.adm_cal_type,
449: || (reverse chronological order - newest change first)
450: */
451: CURSOR c1 IS
452: SELECT rowid
453: FROM igs_uc_sys_calndrs
454: WHERE system_code = x_system_code
455: AND entry_year = x_entry_year
456: AND entry_month = x_entry_month;
457:
510: p_action => 'DELETE',
511: x_rowid => x_rowid
512: );
513:
514: DELETE FROM igs_uc_sys_calndrs
515: WHERE rowid = x_rowid;
516:
517: IF (SQL%NOTFOUND) THEN
518: RAISE NO_DATA_FOUND;
520:
521: END delete_row;
522:
523:
524: END igs_uc_sys_calndrs_pkg;