39: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_HELPER_RULE_UTIL_PKG';
40:
41: f_set_status BOOLEAN;
42:
43: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
40:
41: f_set_status BOOLEAN;
42:
43: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
48: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
41: f_set_status BOOLEAN;
42:
43: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
48: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
49:
42:
43: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
48: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
49:
50: -----------------------
43: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
48: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
49:
50: -----------------------
51: -- Package Variables --
44: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
45: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
46: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
47: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
48: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
49:
50: -----------------------
51: -- Package Variables --
52: -----------------------
95: x_msg_count OUT NOCOPY NUMBER,
96: x_msg_data OUT NOCOPY VARCHAR2)
97: IS
98:
99: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
100: 'fem.plsql.fem_helper_rule_util_pkg.register_helper_rule';
101: C_API_NAME CONSTANT VARCHAR2(30) := 'Register_helper_rule';
102:
103: v_rule_object_id NUMBER;
111: -- Standard Start of API savepoint
112: SAVEPOINT register_helper_rule_pub;
113:
114:
115: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
116: FEM_ENGINES_PKG.TECH_MESSAGE(
117: p_severity => FND_LOG.level_procedure,
118: p_module => C_MODULE,
119: p_msg_text => 'Begin Procedure');
113:
114:
115: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
116: FEM_ENGINES_PKG.TECH_MESSAGE(
117: p_severity => FND_LOG.level_procedure,
118: p_module => C_MODULE,
119: p_msg_text => 'Begin Procedure');
120: END IF;
121:
128: p_api_version,
129: C_API_NAME,
130: G_PKG_NAME)
131: THEN
132: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
133: FEM_ENGINES_PKG.TECH_MESSAGE(
134: p_severity => FND_LOG.level_statement,
135: p_module => C_MODULE,
136: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
130: G_PKG_NAME)
131: THEN
132: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
133: FEM_ENGINES_PKG.TECH_MESSAGE(
134: p_severity => FND_LOG.level_statement,
135: p_module => C_MODULE,
136: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
137: ||'passed in version ('||p_api_version||')');
138: END IF;
160: WHERE object_definition_id = p_rule_obj_def_id;
161:
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
165: FEM_ENGINES_PKG.TECH_MESSAGE(
166: p_severity => FND_LOG.level_statement,
167: p_module => C_MODULE,
168: p_msg_text => 'p_rule_obj_def_id does not exist');
162: EXCEPTION
163: WHEN NO_DATA_FOUND THEN
164: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
165: FEM_ENGINES_PKG.TECH_MESSAGE(
166: p_severity => FND_LOG.level_statement,
167: p_module => C_MODULE,
168: p_msg_text => 'p_rule_obj_def_id does not exist');
169: END IF;
170: RAISE e_unexp;
179: WHERE object_definition_id = p_helper_obj_def_id;
180:
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
184: FEM_ENGINES_PKG.TECH_MESSAGE(
185: p_severity => FND_LOG.level_statement,
186: p_module => C_MODULE,
187: p_msg_text => 'p_helper_obj_def_id does not exist');
181: EXCEPTION
182: WHEN NO_DATA_FOUND THEN
183: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
184: FEM_ENGINES_PKG.TECH_MESSAGE(
185: p_severity => FND_LOG.level_statement,
186: p_module => C_MODULE,
187: p_msg_text => 'p_helper_obj_def_id does not exist');
188: END IF;
189: RAISE e_unexp;
199: WHERE object_type_code = p_helper_object_type_code;
200:
201: EXCEPTION
202: WHEN NO_DATA_FOUND THEN
203: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
204: FEM_ENGINES_PKG.TECH_MESSAGE(
205: p_severity => FND_LOG.level_statement,
206: p_module => C_MODULE,
207: p_msg_text => 'p_object_type_code does not exist');
201: EXCEPTION
202: WHEN NO_DATA_FOUND THEN
203: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
204: FEM_ENGINES_PKG.TECH_MESSAGE(
205: p_severity => FND_LOG.level_statement,
206: p_module => C_MODULE,
207: p_msg_text => 'p_object_type_code does not exist');
208: END IF;
209: RAISE e_unexp;
234: ,sysdate
235: ,c_login_id);
236:
237:
238: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FEM_ENGINES_PKG.TECH_MESSAGE(
240: p_severity => FND_LOG.level_procedure,
241: p_module => C_MODULE,
242: p_msg_text => 'End Procedure');
236:
237:
238: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
239: FEM_ENGINES_PKG.TECH_MESSAGE(
240: p_severity => FND_LOG.level_procedure,
241: p_module => C_MODULE,
242: p_msg_text => 'End Procedure');
243: END IF;
244:
250:
251: EXCEPTION
252:
253: WHEN e_unexp THEN
254: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
255: FEM_ENGINES_PKG.TECH_MESSAGE(
256: p_severity => FND_LOG.level_statement,
257: p_module => C_MODULE,
258: p_msg_text => 'Unexpected error.');
252:
253: WHEN e_unexp THEN
254: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
255: FEM_ENGINES_PKG.TECH_MESSAGE(
256: p_severity => FND_LOG.level_statement,
257: p_module => C_MODULE,
258: p_msg_text => 'Unexpected error.');
259: END IF;
260: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
264: x_return_status := c_unexp;
265:
266:
267: WHEN others THEN
268: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
269: FEM_ENGINES_PKG.TECH_MESSAGE(
270: p_severity => FND_LOG.level_statement,
271: p_module => C_MODULE,
272: p_msg_text => 'Unexpected error.');
266:
267: WHEN others THEN
268: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
269: FEM_ENGINES_PKG.TECH_MESSAGE(
270: p_severity => FND_LOG.level_statement,
271: p_module => C_MODULE,
272: p_msg_text => 'Unexpected error.');
273: FEM_ENGINES_PKG.TECH_MESSAGE(
274: p_severity => FND_LOG.level_statement,
270: p_severity => FND_LOG.level_statement,
271: p_module => C_MODULE,
272: p_msg_text => 'Unexpected error.');
273: FEM_ENGINES_PKG.TECH_MESSAGE(
274: p_severity => FND_LOG.level_statement,
275: p_module => C_MODULE,
276: p_msg_text => SQLERRM);
277: END IF;
278: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
306: x_msg_data OUT NOCOPY VARCHAR2,
307: x_helper_obj_def_id OUT NOCOPY NUMBER )
308: IS
309:
310: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
311: 'fem.plsql.fem_helper_rule_util_pkg.get_helper_rule';
312: C_API_NAME CONSTANT VARCHAR2(30) := 'get_helper_rule';
313:
314: v_rule_object_id NUMBER;
326: -- Standard Start of API savepoint
327: SAVEPOINT get_helper_rule_pub; */
328:
329:
330: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
331: FEM_ENGINES_PKG.TECH_MESSAGE(
332: p_severity => FND_LOG.level_procedure,
333: p_module => C_MODULE,
334: p_msg_text => 'Begin Procedure');
328:
329:
330: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
331: FEM_ENGINES_PKG.TECH_MESSAGE(
332: p_severity => FND_LOG.level_procedure,
333: p_module => C_MODULE,
334: p_msg_text => 'Begin Procedure');
335: END IF;
336:
343: p_api_version,
344: C_API_NAME,
345: G_PKG_NAME)
346: THEN
347: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
348: FEM_ENGINES_PKG.TECH_MESSAGE(
349: p_severity => FND_LOG.level_statement,
350: p_module => C_MODULE,
351: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
345: G_PKG_NAME)
346: THEN
347: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
348: FEM_ENGINES_PKG.TECH_MESSAGE(
349: p_severity => FND_LOG.level_statement,
350: p_module => C_MODULE,
351: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
352: ||'passed in version ('||p_api_version||')');
353: END IF;
376: WHERE object_definition_id = p_rule_obj_def_id;
377:
378: EXCEPTION
379: WHEN NO_DATA_FOUND THEN
380: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FEM_ENGINES_PKG.TECH_MESSAGE(
382: p_severity => FND_LOG.level_statement,
383: p_module => C_MODULE,
384: p_msg_text => 'p_rule_obj_def_id ='||p_rule_obj_def_id||' does not exist');
378: EXCEPTION
379: WHEN NO_DATA_FOUND THEN
380: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
381: FEM_ENGINES_PKG.TECH_MESSAGE(
382: p_severity => FND_LOG.level_statement,
383: p_module => C_MODULE,
384: p_msg_text => 'p_rule_obj_def_id ='||p_rule_obj_def_id||' does not exist');
385: END IF;
386: RAISE e_unexp;
397: WHERE object_type_code = p_helper_object_type_code;
398:
399: EXCEPTION
400: WHEN NO_DATA_FOUND THEN
401: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
402: FEM_ENGINES_PKG.TECH_MESSAGE(
403: p_severity => FND_LOG.level_statement,
404: p_module => C_MODULE,
405: p_msg_text => 'p_object_type_code ='||p_helper_object_type_code||'does not exist');
399: EXCEPTION
400: WHEN NO_DATA_FOUND THEN
401: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
402: FEM_ENGINES_PKG.TECH_MESSAGE(
403: p_severity => FND_LOG.level_statement,
404: p_module => C_MODULE,
405: p_msg_text => 'p_object_type_code ='||p_helper_object_type_code||'does not exist');
406: END IF;
407: RAISE e_unexp;
429: AND D.object_definition_id = p_rule_obj_def_id
430: AND helper_object_type_code = p_helper_object_type_code;
431:
432: IF x_helper_obj_def_id IS NULL THEN
433: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
434: FEM_ENGINES_PKG.TECH_MESSAGE(
435: p_severity => FND_LOG.level_statement,
436: p_module => C_MODULE,
437: p_msg_text => ' no helper rule for rule_obj_def_id ='||p_rule_obj_def_id||' and object_type_code = '||p_helper_object_type_code);
431:
432: IF x_helper_obj_def_id IS NULL THEN
433: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
434: FEM_ENGINES_PKG.TECH_MESSAGE(
435: p_severity => FND_LOG.level_statement,
436: p_module => C_MODULE,
437: p_msg_text => ' no helper rule for rule_obj_def_id ='||p_rule_obj_def_id||' and object_type_code = '||p_helper_object_type_code);
438: END IF;
439: RAISE e_unexp;
454:
455: END;
456:
457:
458: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
459: FEM_ENGINES_PKG.TECH_MESSAGE(
460: p_severity => FND_LOG.level_procedure,
461: p_module => C_MODULE,
462: p_msg_text => 'End Procedure');
456:
457:
458: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
459: FEM_ENGINES_PKG.TECH_MESSAGE(
460: p_severity => FND_LOG.level_procedure,
461: p_module => C_MODULE,
462: p_msg_text => 'End Procedure');
463: END IF;
464:
467:
468: EXCEPTION
469:
470: WHEN e_unexp THEN
471: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
472: FEM_ENGINES_PKG.TECH_MESSAGE(
473: p_severity => FND_LOG.level_statement,
474: p_module => C_MODULE,
475: p_msg_text => 'Unexpected error.');
469:
470: WHEN e_unexp THEN
471: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
472: FEM_ENGINES_PKG.TECH_MESSAGE(
473: p_severity => FND_LOG.level_statement,
474: p_module => C_MODULE,
475: p_msg_text => 'Unexpected error.');
476: END IF;
477: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
482: x_helper_obj_def_id := -1;
483:
484:
485: WHEN others THEN
486: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
487: FEM_ENGINES_PKG.TECH_MESSAGE(
488: p_severity => FND_LOG.level_statement,
489: p_module => C_MODULE,
490: p_msg_text => 'Unexpected error.');
484:
485: WHEN others THEN
486: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
487: FEM_ENGINES_PKG.TECH_MESSAGE(
488: p_severity => FND_LOG.level_statement,
489: p_module => C_MODULE,
490: p_msg_text => 'Unexpected error.');
491: FEM_ENGINES_PKG.TECH_MESSAGE(
492: p_severity => FND_LOG.level_statement,
488: p_severity => FND_LOG.level_statement,
489: p_module => C_MODULE,
490: p_msg_text => 'Unexpected error.');
491: FEM_ENGINES_PKG.TECH_MESSAGE(
492: p_severity => FND_LOG.level_statement,
493: p_module => C_MODULE,
494: p_msg_text => SQLERRM);
495: END IF;
496: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
553: END CASE;
554:
555: EXCEPTION
556: WHEN e_bad_p_api_ver THEN
557: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
558: FEM_ENGINES_PKG.Put_Message(
559: p_app_name => 'FEM',
560: p_msg_name => 'FEM_BAD_P_API_VER_ERR',
561: p_token1 => 'VALUE',
564: x_return_status := c_error;
565:
566:
567: WHEN e_bad_p_init_msg_list THEN
568: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
569: FEM_ENGINES_PKG.Put_Message(
570: p_app_name => 'FEM',
571: p_msg_name => 'FEM_BAD_P_INIT_MSG_LIST_ERR');
572: END IF;
573: x_return_status := c_error;
574:
575:
576: WHEN e_bad_p_encoded THEN
577: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
578: FEM_ENGINES_PKG.Put_Message(
579: p_app_name => 'FEM',
580: p_msg_name => 'FEM_BAD_P_ENCODED_ERR');
581: END IF;
581: END IF;
582: x_return_status := c_error;
583:
584: WHEN e_bad_p_commit THEN
585: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
586: FEM_ENGINES_PKG.Put_Message(
587: p_app_name => 'FEM',
588: p_msg_name => 'FEM_BAD_P_COMMIT_ERR');
589: END IF;