[Home] [Help]
1: PACKAGE BODY xla_source_params_f_pkg AS
2: /* $Header: xlathspm.pkb 120.1 2005/04/28 18:45:55 masada ship $ */
3:
4: --=============================================================================
5: -- *********** Local Trace Routine **********
11: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
12: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
13:
14: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_source_params_f_pkg';
16:
17: g_log_level NUMBER;
18: g_log_enabled BOOLEAN;
19:
36: RAISE;
37:
38: WHEN OTHERS THEN
39: xla_exceptions_pkg.raise_message
40: (p_location => 'xla_source_params_f_pkg.trace');
41: END trace;
42:
43:
44: /*======================================================================+
67: IS
68:
69: CURSOR c IS
70: SELECT rowid
71: FROM xla_source_params
72: WHERE source_param_id = x_source_param_id
73: ;
74:
75: l_log_module VARCHAR2(240);
85: p_level => C_LEVEL_PROCEDURE);
86: END IF;
87:
88:
89: INSERT INTO xla_source_params
90: (creation_date
91: ,created_by
92: ,source_param_id
93: ,application_id
165: ,constant_value
166: ,ref_source_application_id
167: ,ref_source_type_code
168: ,ref_source_code
169: FROM xla_source_params
170: WHERE source_param_id = x_source_param_id
171: FOR UPDATE OF application_id NOWAIT;
172:
173: recinfo c%ROWTYPE;
258: p_module => l_log_module,
259: p_level => C_LEVEL_PROCEDURE);
260: END IF;
261:
262: UPDATE xla_source_params
263: SET
264: last_update_date = x_last_update_date
265: ,application_id = x_application_id
266: ,source_type_code = x_source_type_code
307: p_module => l_log_module,
308: p_level => C_LEVEL_PROCEDURE);
309: END IF;
310:
311: DELETE FROM xla_source_params
312: WHERE source_param_id = x_source_param_id;
313:
314: IF (SQL%NOTFOUND) THEN
315: RAISE NO_DATA_FOUND;
386: BEGIN
387:
388: SELECT source_param_id, last_updated_by, last_update_date
389: INTO l_source_param_id, db_luby, db_ludate
390: FROM xla_source_params
391: WHERE application_id = l_application_id
392: AND source_type_code = p_source_type_code
393: AND source_code = p_source_code
394: AND user_sequence = p_user_sequence;
393: AND source_code = p_source_code
394: AND user_sequence = p_user_sequence;
395:
396: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, NULL)) THEN
397: xla_source_params_f_pkg.update_row
398: (x_source_param_id => l_source_param_id
399: ,x_application_id => l_application_id
400: ,x_source_type_code => p_source_type_code
401: ,x_source_code => p_source_code
412: END IF;
413:
414: EXCEPTION
415: WHEN NO_DATA_FOUND THEN
416: SELECT xla_source_params_s.nextval INTO l_source_param_id
417: FROM dual;
418:
419: xla_source_params_f_pkg.insert_row
420: (x_rowid => l_rowid
415: WHEN NO_DATA_FOUND THEN
416: SELECT xla_source_params_s.nextval INTO l_source_param_id
417: FROM dual;
418:
419: xla_source_params_f_pkg.insert_row
420: (x_rowid => l_rowid
421: ,x_source_param_id => l_source_param_id
422: ,x_application_id => l_application_id
423: ,x_source_type_code => p_source_type_code
446: WHEN NO_DATA_FOUND THEN
447: null;
448: WHEN OTHERS THEN
449: xla_exceptions_pkg.raise_message
450: (p_location => 'xla_source_params_f_pkg.load_row');
451:
452: END load_row;
453:
454:
468: g_log_level := C_LEVEL_LOG_DISABLED;
469: END IF;
470:
471:
472: end xla_source_params_f_pkg;