6: ------------------------------------------------------------------------------
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_XPRT_QA_PVT';
8: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
9:
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
214:
215: BEGIN
216:
217: -- start debug log
218: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
220: G_MODULE||l_api_name,
221: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
222: END IF;
215: BEGIN
216:
217: -- start debug log
218: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
220: G_MODULE||l_api_name,
221: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
222: END IF;
223:
278: p_qa_errors_t_rec.RULE_ID
279: );
280:
281: -- end debug log
282: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
284: G_MODULE||l_api_name,
285: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
286: END IF;
279: );
280:
281: -- end debug log
282: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
283: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
284: G_MODULE||l_api_name,
285: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
286: END IF;
287:
286: END IF;
287:
288: EXCEPTION
289: WHEN OTHERS THEN
290: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
292: G_MODULE||l_api_name,
293: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
294: END IF;
287:
288: EXCEPTION
289: WHEN OTHERS THEN
290: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
292: G_MODULE||l_api_name,
293: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
294: END IF;
295:
382:
383: BEGIN
384:
385: -- start debug log
386: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
387: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
388: g_Module || l_Api_Name,
389: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
390: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
383: BEGIN
384:
385: -- start debug log
386: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
387: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
388: g_Module || l_Api_Name,
389: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
390: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
391: g_Module || l_Api_Name,
386: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
387: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
388: g_Module || l_Api_Name,
389: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
390: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
391: g_Module || l_Api_Name,
392: '100: Parameters passed: -----------------------');
393: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
394: g_Module || l_Api_Name,
389: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
390: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
391: g_Module || l_Api_Name,
392: '100: Parameters passed: -----------------------');
393: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
394: g_Module || l_Api_Name,
395: '200: p_rule_Id:' || p_rule_id);
396: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
397: g_Module || l_Api_Name,
392: '100: Parameters passed: -----------------------');
393: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
394: g_Module || l_Api_Name,
395: '200: p_rule_Id:' || p_rule_id);
396: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
397: g_Module || l_Api_Name,
398: '200: p_sequence_Id:' || p_sequence_id);
399: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
400: g_Module || l_Api_Name,
395: '200: p_rule_Id:' || p_rule_id);
396: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
397: g_Module || l_Api_Name,
398: '200: p_sequence_Id:' || p_sequence_id);
399: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
400: g_Module || l_Api_Name,
401: '100: Parameters passed: -----------------------');
402: END IF;
403:
421: l_Template_Id := Template_Rec.Template_Id;
422: l_Org_Id := Template_Rec.Org_Id;
423: l_Intent := Template_Rec.Intent;
424:
425: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
427: g_Module || l_Api_Name,
428: '200: Checking for l_Template_Id:' || l_Template_Id);
429: END IF;
422: l_Org_Id := Template_Rec.Org_Id;
423: l_Intent := Template_Rec.Intent;
424:
425: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
427: g_Module || l_Api_Name,
428: '200: Checking for l_Template_Id:' || l_Template_Id);
429: END IF;
430:
504: ' and rules.rule_id in ' ||l_request_rule_ids||
505:
506: ' )';
507:
508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
509: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
510: g_Module || l_Api_Name,
511: '205a: Stored the SQL on l_sql_string');
512: END IF;
505:
506: ' )';
507:
508: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
509: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
510: g_Module || l_Api_Name,
511: '205a: Stored the SQL on l_sql_string');
512: END IF;
513:
512: END IF;
513:
514: OPEN insert_cursor FOR l_sql_string;
515:
516: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
518: g_Module || l_Api_Name,
519: '205b: l_sql_string :' || l_sql_string);
520: END IF;
513:
514: OPEN insert_cursor FOR l_sql_string;
515:
516: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
518: g_Module || l_Api_Name,
519: '205b: l_sql_string :' || l_sql_string);
520: END IF;
521:
523: LOOP
524:
525: FETCH insert_cursor INTO condition_question_id, outcome_question_id;
526:
527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
529: g_Module || l_Api_Name,
530: '210: condition_question_id:' || condition_question_id);
531: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
524:
525: FETCH insert_cursor INTO condition_question_id, outcome_question_id;
526:
527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
529: g_Module || l_Api_Name,
530: '210: condition_question_id:' || condition_question_id);
531: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
532: g_Module || l_Api_Name,
527: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
529: g_Module || l_Api_Name,
530: '210: condition_question_id:' || condition_question_id);
531: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
532: g_Module || l_Api_Name,
533: '220: outcome_question_id:' || outcome_question_id);
534: END IF;
535:
559: exception
560:
561: WHEN Circular_Ref_Exception THEN
562:
563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
565: g_Module || l_Api_Name,
566: '300: Failed for l_Template_Id:' || l_Template_Id);
567: END IF;
560:
561: WHEN Circular_Ref_Exception THEN
562:
563: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
565: g_Module || l_Api_Name,
566: '300: Failed for l_Template_Id:' || l_Template_Id);
567: END IF;
568:
612:
613: -- handle the QA error
614: WHEN OTHERS THEN
615:
616: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.g_Current_Runtime_Level) THEN
617: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
618: g_Module || l_Api_Name,
619: '4000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
620: END IF;
613: -- handle the QA error
614: WHEN OTHERS THEN
615:
616: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.g_Current_Runtime_Level) THEN
617: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
618: g_Module || l_Api_Name,
619: '4000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
620: END IF;
621:
711:
712: BEGIN
713:
714: -- start debug log
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
717: G_MODULE||l_api_name,
718: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
719: END IF;
712: BEGIN
713:
714: -- start debug log
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
716: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
717: G_MODULE||l_api_name,
718: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
719: END IF;
720:
831:
832: END LOOP; -- all clauses in rule
833:
834: -- end debug log
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
837: G_MODULE||l_api_name,
838: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
839: END IF;
832: END LOOP; -- all clauses in rule
833:
834: -- end debug log
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
837: G_MODULE||l_api_name,
838: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
839: END IF;
840:
839: END IF;
840:
841: EXCEPTION
842: WHEN FND_API.G_EXC_ERROR THEN
843: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
844: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
845: G_MODULE||l_api_name,
846: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
847: END IF;
840:
841: EXCEPTION
842: WHEN FND_API.G_EXC_ERROR THEN
843: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
844: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
845: G_MODULE||l_api_name,
846: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
847: END IF;
848:
849: x_return_status := G_RET_STS_ERROR ;
850: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
851:
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
854: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
855: G_MODULE||l_api_name,
856: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
857: END IF;
850: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
851:
852: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
853: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
854: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
855: G_MODULE||l_api_name,
856: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
857: END IF;
858:
859: x_return_status := G_RET_STS_UNEXP_ERROR ;
860: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
861:
862: WHEN OTHERS THEN
863: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
865: G_MODULE||l_api_name,
866: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
867: END IF;
860: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
861:
862: WHEN OTHERS THEN
863: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
864: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
865: G_MODULE||l_api_name,
866: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
867: END IF;
868:
954:
955: BEGIN
956:
957: -- start debug log
958: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
959: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
960: G_MODULE||l_api_name,
961: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
962: END IF;
955: BEGIN
956:
957: -- start debug log
958: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
959: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
960: G_MODULE||l_api_name,
961: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
962: END IF;
963:
1024:
1025: END LOOP; -- all clauses in rule
1026:
1027: -- end debug log
1028: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1030: G_MODULE||l_api_name,
1031: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1032: END IF;
1025: END LOOP; -- all clauses in rule
1026:
1027: -- end debug log
1028: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1029: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1030: G_MODULE||l_api_name,
1031: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1032: END IF;
1033:
1032: END IF;
1033:
1034: EXCEPTION
1035: WHEN FND_API.G_EXC_ERROR THEN
1036: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1037: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1038: G_MODULE||l_api_name,
1039: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1040: END IF;
1033:
1034: EXCEPTION
1035: WHEN FND_API.G_EXC_ERROR THEN
1036: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1037: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1038: G_MODULE||l_api_name,
1039: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1040: END IF;
1041:
1042: x_return_status := G_RET_STS_ERROR ;
1043: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1044:
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1048: G_MODULE||l_api_name,
1049: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1050: END IF;
1043: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1044:
1045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1046: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1047: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1048: G_MODULE||l_api_name,
1049: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1050: END IF;
1051:
1052: x_return_status := G_RET_STS_UNEXP_ERROR ;
1053: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1054:
1055: WHEN OTHERS THEN
1056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1058: G_MODULE||l_api_name,
1059: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1060: END IF;
1053: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1054:
1055: WHEN OTHERS THEN
1056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1058: G_MODULE||l_api_name,
1059: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1060: END IF;
1061:
1178:
1179: BEGIN
1180:
1181: -- start debug log
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1184: G_MODULE||l_api_name,
1185: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1186: END IF;
1179: BEGIN
1180:
1181: -- start debug log
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1184: G_MODULE||l_api_name,
1185: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1186: END IF;
1187:
1249: l_sql_stmt := 'SELECT '||l_name_col||' , '||l_id_col||
1250: ' FROM '||l_table_name||' '||
1251: l_additional_where_clause ;
1252:
1253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1254: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1255: G_MODULE||l_api_name,
1256: '150: l_table_name '||l_table_name);
1257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1250: ' FROM '||l_table_name||' '||
1251: l_additional_where_clause ;
1252:
1253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1254: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1255: G_MODULE||l_api_name,
1256: '150: l_table_name '||l_table_name);
1257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1258: G_MODULE||l_api_name,
1253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1254: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1255: G_MODULE||l_api_name,
1256: '150: l_table_name '||l_table_name);
1257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1258: G_MODULE||l_api_name,
1259: '150: l_name_col '||l_name_col);
1260: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1261: G_MODULE||l_api_name,
1256: '150: l_table_name '||l_table_name);
1257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1258: G_MODULE||l_api_name,
1259: '150: l_name_col '||l_name_col);
1260: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1261: G_MODULE||l_api_name,
1262: '150: l_id_col '||l_id_col);
1263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1264: G_MODULE||l_api_name,
1259: '150: l_name_col '||l_name_col);
1260: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1261: G_MODULE||l_api_name,
1262: '150: l_id_col '||l_id_col);
1263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1264: G_MODULE||l_api_name,
1265: '150: l_additional_where_clause '||l_additional_where_clause);
1266: END IF;
1267: -- execute the dynamic sql
1440:
1441: END LOOP; -- all questions in rule
1442:
1443: -- end debug log
1444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1446: G_MODULE||l_api_name,
1447: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1448: END IF;
1441: END LOOP; -- all questions in rule
1442:
1443: -- end debug log
1444: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1445: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1446: G_MODULE||l_api_name,
1447: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1448: END IF;
1449:
1448: END IF;
1449:
1450: EXCEPTION
1451: WHEN FND_API.G_EXC_ERROR THEN
1452: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1454: G_MODULE||l_api_name,
1455: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1456: END IF;
1449:
1450: EXCEPTION
1451: WHEN FND_API.G_EXC_ERROR THEN
1452: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1453: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1454: G_MODULE||l_api_name,
1455: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1456: END IF;
1457:
1458: x_return_status := G_RET_STS_ERROR ;
1459: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1460:
1461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1464: G_MODULE||l_api_name,
1465: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1466: END IF;
1459: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1460:
1461: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1464: G_MODULE||l_api_name,
1465: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1466: END IF;
1467:
1468: x_return_status := G_RET_STS_UNEXP_ERROR ;
1469: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1470:
1471: WHEN OTHERS THEN
1472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1474: G_MODULE||l_api_name,
1475: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1476: END IF;
1469: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1470:
1471: WHEN OTHERS THEN
1472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1474: G_MODULE||l_api_name,
1475: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1476: END IF;
1477:
1594:
1595: BEGIN
1596:
1597: -- start debug log
1598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1600: G_MODULE||l_api_name,
1601: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1602: END IF;
1595: BEGIN
1596:
1597: -- start debug log
1598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1600: G_MODULE||l_api_name,
1601: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1602: END IF;
1603:
1724: l_sql_stmt := 'SELECT '||l_name_col||' , '||l_id_col||
1725: ' FROM '||l_table_name||' '||
1726: l_additional_where_clause ;
1727:
1728: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1729: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1730: G_MODULE||l_api_name,
1731: '150: l_table_name '||l_table_name);
1732: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1725: ' FROM '||l_table_name||' '||
1726: l_additional_where_clause ;
1727:
1728: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1729: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1730: G_MODULE||l_api_name,
1731: '150: l_table_name '||l_table_name);
1732: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1733: G_MODULE||l_api_name,
1728: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1729: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1730: G_MODULE||l_api_name,
1731: '150: l_table_name '||l_table_name);
1732: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1733: G_MODULE||l_api_name,
1734: '150: l_name_col '||l_name_col);
1735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1736: G_MODULE||l_api_name,
1731: '150: l_table_name '||l_table_name);
1732: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1733: G_MODULE||l_api_name,
1734: '150: l_name_col '||l_name_col);
1735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1736: G_MODULE||l_api_name,
1737: '150: l_id_col '||l_id_col);
1738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1739: G_MODULE||l_api_name,
1734: '150: l_name_col '||l_name_col);
1735: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1736: G_MODULE||l_api_name,
1737: '150: l_id_col '||l_id_col);
1738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1739: G_MODULE||l_api_name,
1740: '150: l_additional_where_clause '||l_additional_where_clause);
1741: END IF;
1742:
1924:
1925: END LOOP; -- all variables in rule
1926:
1927: -- end debug log
1928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1930: G_MODULE||l_api_name,
1931: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1932: END IF;
1925: END LOOP; -- all variables in rule
1926:
1927: -- end debug log
1928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1930: G_MODULE||l_api_name,
1931: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1932: END IF;
1933:
1932: END IF;
1933:
1934: EXCEPTION
1935: WHEN FND_API.G_EXC_ERROR THEN
1936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1938: G_MODULE||l_api_name,
1939: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1940: END IF;
1933:
1934: EXCEPTION
1935: WHEN FND_API.G_EXC_ERROR THEN
1936: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1937: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1938: G_MODULE||l_api_name,
1939: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1940: END IF;
1941:
1942: x_return_status := G_RET_STS_ERROR ;
1943: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1944:
1945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1946: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1947: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1948: G_MODULE||l_api_name,
1949: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1950: END IF;
1943: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1944:
1945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1946: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1947: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1948: G_MODULE||l_api_name,
1949: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1950: END IF;
1951:
1952: x_return_status := G_RET_STS_UNEXP_ERROR ;
1953: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1954:
1955: WHEN OTHERS THEN
1956: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1958: G_MODULE||l_api_name,
1959: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1960: END IF;
1953: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1954:
1955: WHEN OTHERS THEN
1956: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1957: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1958: G_MODULE||l_api_name,
1959: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1960: END IF;
1961:
2023:
2024: BEGIN
2025:
2026: -- start debug log
2027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2028: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2029: G_MODULE||l_api_name,
2030: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2031: END IF;
2024: BEGIN
2025:
2026: -- start debug log
2027: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2028: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2029: G_MODULE||l_api_name,
2030: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2031: END IF;
2032:
2074: x_qa_status := 'E';
2075: END LOOP; -- all questions that were disabled
2076:
2077: -- end debug log
2078: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2080: G_MODULE||l_api_name,
2081: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2082: END IF;
2075: END LOOP; -- all questions that were disabled
2076:
2077: -- end debug log
2078: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2079: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2080: G_MODULE||l_api_name,
2081: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2082: END IF;
2083:
2082: END IF;
2083:
2084: EXCEPTION
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2087: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2088: G_MODULE||l_api_name,
2089: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2090: END IF;
2083:
2084: EXCEPTION
2085: WHEN FND_API.G_EXC_ERROR THEN
2086: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2087: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2088: G_MODULE||l_api_name,
2089: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2090: END IF;
2091:
2092: x_return_status := G_RET_STS_ERROR ;
2093: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2094:
2095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2096: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2097: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2098: G_MODULE||l_api_name,
2099: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2100: END IF;
2093: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2094:
2095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2096: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2097: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2098: G_MODULE||l_api_name,
2099: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2100: END IF;
2101:
2102: x_return_status := G_RET_STS_UNEXP_ERROR ;
2103: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2104:
2105: WHEN OTHERS THEN
2106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2108: G_MODULE||l_api_name,
2109: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2110: END IF;
2103: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2104:
2105: WHEN OTHERS THEN
2106: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2108: G_MODULE||l_api_name,
2109: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2110: END IF;
2111:
2152:
2153: BEGIN
2154:
2155: -- start debug log
2156: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2157: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2158: G_MODULE||l_api_name,
2159: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2160: END IF;
2153: BEGIN
2154:
2155: -- start debug log
2156: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2157: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2158: G_MODULE||l_api_name,
2159: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2160: END IF;
2161:
2212:
2213:
2214:
2215: -- end debug log
2216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2218: G_MODULE||l_api_name,
2219: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2220: END IF;
2213:
2214:
2215: -- end debug log
2216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2218: G_MODULE||l_api_name,
2219: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2220: END IF;
2221:
2220: END IF;
2221:
2222: EXCEPTION
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2226: G_MODULE||l_api_name,
2227: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2228: END IF;
2221:
2222: EXCEPTION
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2225: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2226: G_MODULE||l_api_name,
2227: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2228: END IF;
2229:
2230: x_return_status := G_RET_STS_ERROR ;
2231: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2232:
2233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2236: G_MODULE||l_api_name,
2237: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2238: END IF;
2231: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2232:
2233: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2236: G_MODULE||l_api_name,
2237: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2238: END IF;
2239:
2240: x_return_status := G_RET_STS_UNEXP_ERROR ;
2241: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2242:
2243: WHEN OTHERS THEN
2244: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2245: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2246: G_MODULE||l_api_name,
2247: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2248: END IF;
2241: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2242:
2243: WHEN OTHERS THEN
2244: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2245: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2246: G_MODULE||l_api_name,
2247: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2248: END IF;
2249:
2349:
2350: BEGIN
2351:
2352: -- start debug log
2353: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2354: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2355: G_MODULE||l_api_name,
2356: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2357: END IF;
2350: BEGIN
2351:
2352: -- start debug log
2353: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2354: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2355: G_MODULE||l_api_name,
2356: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2357: END IF;
2358:
2372: OPEN csr_check_proc_exists(p_procedure_name => rec_rule_variables_w_proc.procedure_name);
2373: FETCH csr_check_proc_exists INTO l_dummy;
2374:
2375: -- Debug log
2376: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2377: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2378: G_MODULE||l_api_name,
2379: '120: Checking Procedure spec/body ' || rec_rule_variables_w_proc.procedure_name ||
2380: 'validity for variable'||rec_rule_variables_w_proc.variable_name);
2373: FETCH csr_check_proc_exists INTO l_dummy;
2374:
2375: -- Debug log
2376: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2377: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2378: G_MODULE||l_api_name,
2379: '120: Checking Procedure spec/body ' || rec_rule_variables_w_proc.procedure_name ||
2380: 'validity for variable'||rec_rule_variables_w_proc.variable_name);
2381: END IF;
2422: RETURN;
2423: END IF; -- Procedure Spec is invalid
2424:
2425: -- Debug log
2426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2428: G_MODULE||l_api_name,
2429: '110: Checking Procedure spec/body ' || rec_rule_variables_w_proc.procedure_name ||
2430: 'existence for variable'||rec_rule_variables_w_proc.variable_name);
2423: END IF; -- Procedure Spec is invalid
2424:
2425: -- Debug log
2426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2428: G_MODULE||l_api_name,
2429: '110: Checking Procedure spec/body ' || rec_rule_variables_w_proc.procedure_name ||
2430: 'existence for variable'||rec_rule_variables_w_proc.variable_name);
2431: END IF;
2478:
2479: END LOOP; -- all Vairables with procedures in rule
2480:
2481: -- end debug log
2482: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2484: G_MODULE||l_api_name,
2485: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2486: END IF;
2479: END LOOP; -- all Vairables with procedures in rule
2480:
2481: -- end debug log
2482: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2483: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2484: G_MODULE||l_api_name,
2485: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2486: END IF;
2487:
2486: END IF;
2487:
2488: EXCEPTION
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2491: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2492: G_MODULE||l_api_name,
2493: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2494: END IF;
2487:
2488: EXCEPTION
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2491: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2492: G_MODULE||l_api_name,
2493: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2494: END IF;
2495:
2496: x_return_status := G_RET_STS_ERROR ;
2497: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2498:
2499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2500: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2501: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2502: G_MODULE||l_api_name,
2503: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2504: END IF;
2497: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2498:
2499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2500: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2501: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2502: G_MODULE||l_api_name,
2503: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2504: END IF;
2505:
2506: x_return_status := G_RET_STS_UNEXP_ERROR ;
2507: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2508:
2509: WHEN OTHERS THEN
2510: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2512: G_MODULE||l_api_name,
2513: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2514: END IF;
2507: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2508:
2509: WHEN OTHERS THEN
2510: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2512: G_MODULE||l_api_name,
2513: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2514: END IF;
2515:
2563:
2564: BEGIN
2565:
2566: -- start debug log
2567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2569: G_MODULE||l_api_name,
2570: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2564: BEGIN
2565:
2566: -- start debug log
2567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2569: G_MODULE||l_api_name,
2570: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2572: G_MODULE||l_api_name,
2567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2569: G_MODULE||l_api_name,
2570: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2572: G_MODULE||l_api_name,
2573: 'Parameter : '||p_qa_mode);
2574: END IF;
2575:
2583:
2584: x_sequence_id := l_sequence_id;
2585:
2586: -- debug
2587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2588: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2589: G_MODULE||l_api_name,
2590: '110: Sequence Id : '||l_sequence_id);
2591: END IF;
2584: x_sequence_id := l_sequence_id;
2585:
2586: -- debug
2587: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2588: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2589: G_MODULE||l_api_name,
2590: '110: Sequence Id : '||l_sequence_id);
2591: END IF;
2592:
2633: l_rule_qa_status := 'E';
2634: END IF;
2635:
2636: -- debug
2637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2639: G_MODULE||l_api_name,
2640: '120: After Calling check_expired_clauses x_qa_status : '||x_qa_status);
2641: END IF;
2634: END IF;
2635:
2636: -- debug
2637: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2638: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2639: G_MODULE||l_api_name,
2640: '120: After Calling check_expired_clauses x_qa_status : '||x_qa_status);
2641: END IF;
2642:
2663: l_rule_qa_status := 'E';
2664: END IF;
2665:
2666: -- debug
2667: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2668: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2669: G_MODULE||l_api_name,
2670: '120: After Calling check_draft_clauses x_qa_status : '||x_qa_status);
2671: END IF;
2664: END IF;
2665:
2666: -- debug
2667: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2668: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2669: G_MODULE||l_api_name,
2670: '120: After Calling check_draft_clauses x_qa_status : '||x_qa_status);
2671: END IF;
2672:
2699: l_rule_qa_status := 'E';
2700: END IF;
2701:
2702: -- debug
2703: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2704: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2705: G_MODULE||l_api_name,
2706: '120: After Calling check_circular_dependency x_qa_status : '||x_qa_status);
2707: END IF;
2700: END IF;
2701:
2702: -- debug
2703: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2704: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2705: G_MODULE||l_api_name,
2706: '120: After Calling check_circular_dependency x_qa_status : '||x_qa_status);
2707: END IF;
2708:
2729: l_rule_qa_status := 'E';
2730: END IF;
2731:
2732: -- debug
2733: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2734: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2735: G_MODULE||l_api_name,
2736: '120: After Calling check_invalid_questions x_qa_status : '||x_qa_status);
2737: END IF;
2730: END IF;
2731:
2732: -- debug
2733: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2734: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2735: G_MODULE||l_api_name,
2736: '120: After Calling check_invalid_questions x_qa_status : '||x_qa_status);
2737: END IF;
2738:
2758: l_rule_qa_status := 'E';
2759: END IF;
2760:
2761: -- debug
2762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2764: G_MODULE||l_api_name,
2765: '120: After Calling check_rule_templates x_qa_status : '||x_qa_status);
2766: END IF;
2759: END IF;
2760:
2761: -- debug
2762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2764: G_MODULE||l_api_name,
2765: '120: After Calling check_rule_templates x_qa_status : '||x_qa_status);
2766: END IF;
2767:
2787: l_rule_qa_status := 'E';
2788: END IF;
2789:
2790: -- debug
2791: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2792: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2793: G_MODULE||l_api_name,
2794: '120: After Calling check_invalid_vset_var x_qa_status : '||x_qa_status);
2795: END IF;
2788: END IF;
2789:
2790: -- debug
2791: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2792: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2793: G_MODULE||l_api_name,
2794: '120: After Calling check_invalid_vset_var x_qa_status : '||x_qa_status);
2795: END IF;
2796:
2825: l_rule_qa_status := 'E';
2826: END IF;
2827:
2828: -- debug
2829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2831: G_MODULE||l_api_name,
2832: '120: After Calling check_invalid_vset_qst x_qa_status : '||x_qa_status);
2833: END IF;
2826: END IF;
2827:
2828: -- debug
2829: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2830: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2831: G_MODULE||l_api_name,
2832: '120: After Calling check_invalid_vset_qst x_qa_status : '||x_qa_status);
2833: END IF;
2834:
2855: l_rule_qa_status := 'E';
2856: END IF;
2857:
2858: -- debug
2859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2861: G_MODULE||l_api_name,
2862: '125: After Calling check_invalid_udv_procedure x_qa_status : '||x_qa_status);
2863: END IF;
2856: END IF;
2857:
2858: -- debug
2859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2860: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2861: G_MODULE||l_api_name,
2862: '125: After Calling check_invalid_udv_procedure x_qa_status : '||x_qa_status);
2863: END IF;
2864:
2903:
2904:
2905:
2906: -- end debug log
2907: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2909: G_MODULE||l_api_name,
2910: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2911: END IF;
2904:
2905:
2906: -- end debug log
2907: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2908: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2909: G_MODULE||l_api_name,
2910: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2911: END IF;
2912:
2911: END IF;
2912:
2913: EXCEPTION
2914: WHEN FND_API.G_EXC_ERROR THEN
2915: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2916: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2917: G_MODULE||l_api_name,
2918: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2919: END IF;
2912:
2913: EXCEPTION
2914: WHEN FND_API.G_EXC_ERROR THEN
2915: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2916: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2917: G_MODULE||l_api_name,
2918: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2919: END IF;
2920:
2921: x_return_status := G_RET_STS_ERROR ;
2922: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2923:
2924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2925: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2927: G_MODULE||l_api_name,
2928: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2929: END IF;
2922: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2923:
2924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2925: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2927: G_MODULE||l_api_name,
2928: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2929: END IF;
2930:
2931: x_return_status := G_RET_STS_UNEXP_ERROR ;
2932: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2933:
2934: WHEN OTHERS THEN
2935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2936: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2937: G_MODULE||l_api_name,
2938: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2939: END IF;
2932: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2933:
2934: WHEN OTHERS THEN
2935: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2936: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2937: G_MODULE||l_api_name,
2938: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2939: END IF;
2940:
2983:
2984: BEGIN
2985:
2986: -- start debug log
2987: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2988: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2989: G_MODULE||l_api_name,
2990: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2984: BEGIN
2985:
2986: -- start debug log
2987: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2988: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2989: G_MODULE||l_api_name,
2990: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2992: G_MODULE||l_api_name,
2987: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2988: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2989: G_MODULE||l_api_name,
2990: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2992: G_MODULE||l_api_name,
2993: 'Parameter p_sync_mode : '||p_sync_mode);
2994: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2995: G_MODULE||l_api_name,
2990: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2992: G_MODULE||l_api_name,
2993: 'Parameter p_sync_mode : '||p_sync_mode);
2994: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2995: G_MODULE||l_api_name,
2996: 'p_org_id '||p_org_id);
2997: END IF;
2998:
3072: END IF; -- x_request_id is 0
3073:
3074:
3075: -- end debug log
3076: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3077: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3078: G_MODULE||l_api_name,
3079: 'x_request_id : '||x_request_id);
3080: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3073:
3074:
3075: -- end debug log
3076: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3077: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3078: G_MODULE||l_api_name,
3079: 'x_request_id : '||x_request_id);
3080: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3081: G_MODULE||l_api_name,
3076: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3077: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3078: G_MODULE||l_api_name,
3079: 'x_request_id : '||x_request_id);
3080: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3081: G_MODULE||l_api_name,
3082: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3083: END IF;
3084:
3083: END IF;
3084:
3085: EXCEPTION
3086: WHEN FND_API.G_EXC_ERROR THEN
3087: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3089: G_MODULE||l_api_name,
3090: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3091: END IF;
3084:
3085: EXCEPTION
3086: WHEN FND_API.G_EXC_ERROR THEN
3087: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3089: G_MODULE||l_api_name,
3090: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3091: END IF;
3092:
3093: x_return_status := G_RET_STS_ERROR ;
3094: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3095:
3096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3099: G_MODULE||l_api_name,
3100: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3101: END IF;
3094: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3095:
3096: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3097: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3098: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3099: G_MODULE||l_api_name,
3100: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3101: END IF;
3102:
3103: x_return_status := G_RET_STS_UNEXP_ERROR ;
3104: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3105:
3106: WHEN OTHERS THEN
3107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3109: G_MODULE||l_api_name,
3110: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3111: END IF;
3104: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3105:
3106: WHEN OTHERS THEN
3107: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3108: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3109: G_MODULE||l_api_name,
3110: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3111: END IF;
3112: