1: PACKAGE BODY igs_ca_da_configs_pkg AS
2: /* $Header: IGSCI18B.pls 120.1 2005/08/11 05:47:10 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ca_da_configs%ROWTYPE;
1: PACKAGE BODY igs_ca_da_configs_pkg AS
2: /* $Header: IGSCI18B.pls 120.1 2005/08/11 05:47:10 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ca_da_configs%ROWTYPE;
6: new_references igs_ca_da_configs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSCI18B.pls 120.1 2005/08/11 05:47:10 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ca_da_configs%ROWTYPE;
6: new_references igs_ca_da_configs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_ca_da_configs
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
90: || (reverse chronological order - newest change first)
91: */
92: BEGIN
93:
94: igs_ca_da_ovd_vals_pkg.get_fk_igs_ca_da_configs (
95: old_references.sys_date_type
96: );
97:
98: igs_ca_da_ovd_rules_pkg.get_fk_igs_ca_da_configs (
94: igs_ca_da_ovd_vals_pkg.get_fk_igs_ca_da_configs (
95: old_references.sys_date_type
96: );
97:
98: igs_ca_da_ovd_rules_pkg.get_fk_igs_ca_da_configs (
99: old_references.sys_date_type
100: );
101:
102: END check_child_existance;
115: || (reverse chronological order - newest change first)
116: */
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM igs_ca_da_configs
120: WHERE sys_date_type = x_sys_date_type
121: FOR UPDATE NOWAIT;
122:
123: lv_rowid cur_rowid%RowType;
256: x_last_update_login := -1;
257: END IF;
258: ELSE
259: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
260: fnd_message.set_token ('ROUTINE', 'IGS_CA_DA_CONFIGS_PKG.INSERT_ROW');
261: igs_ge_msg_stack.add;
262: app_exception.raise_exception;
263: END IF;
264:
280: x_last_updated_by => x_last_updated_by,
281: x_last_update_login => x_last_update_login
282: );
283:
284: INSERT INTO igs_ca_da_configs (
285: sys_date_type,
286: description,
287: owner_module_code,
288: validation_proc,
342: one_per_cal_flag,
343: res_cal_cat1,
344: res_cal_cat2,
345: date_alias
346: FROM igs_ca_da_configs
347: WHERE rowid = x_rowid
348: FOR UPDATE NOWAIT;
349:
350: tlinfo c1%ROWTYPE;
424: x_last_update_login := -1;
425: END IF;
426: ELSE
427: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
428: fnd_message.set_token ('ROUTINE', 'IGS_CA_DA_CONFIGS_PKG.UPDATE_ROW');
429: igs_ge_msg_stack.add;
430: app_exception.raise_exception;
431: END IF;
432:
447: x_last_updated_by => x_last_updated_by,
448: x_last_update_login => x_last_update_login
449: );
450:
451: UPDATE igs_ca_da_configs
452: SET
453: description = new_references.description,
454: owner_module_code = new_references.owner_module_code,
455: validation_proc = new_references.validation_proc,
491: || (reverse chronological order - newest change first)
492: */
493: CURSOR c1 IS
494: SELECT rowid
495: FROM igs_ca_da_configs
496: WHERE sys_date_type = x_sys_date_type;
497:
498: BEGIN
499:
533:
534: END add_row;
535:
536:
537: END igs_ca_da_configs_pkg;