8: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
9:
10: g_concat_art_no VARCHAR2(1) := NVL(FND_PROFILE.VALUE('OKC_CONCAT_ART_NO'),'N');
11:
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
14: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
15:
16: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
165:
166: BEGIN
167:
168: -- start debug log
169: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
171: G_MODULE||l_api_name,
172: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
173: END IF;
166: BEGIN
167:
168: -- start debug log
169: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
170: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
171: G_MODULE||l_api_name,
172: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
173: END IF;
174:
191: fnd_file.put_line(FND_FILE.LOG,' ');
192:
193:
194: -- write to debug log file
195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
197: G_MODULE||l_api_name,
198: '110:Import Status ');
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
192:
193:
194: -- write to debug log file
195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
197: G_MODULE||l_api_name,
198: '110:Import Status ');
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
200: G_MODULE||l_api_name,
195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
197: G_MODULE||l_api_name,
198: '110:Import Status ');
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
200: G_MODULE||l_api_name,
201: '110:Imported : '||l_model);
202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
203: G_MODULE||l_api_name,
198: '110:Import Status ');
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
200: G_MODULE||l_api_name,
201: '110:Imported : '||l_model);
202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
203: G_MODULE||l_api_name,
204: '110: Run Id : '||p_run_id);
205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
206: G_MODULE||l_api_name,
201: '110:Imported : '||l_model);
202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
203: G_MODULE||l_api_name,
204: '110: Run Id : '||p_run_id);
205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
206: G_MODULE||l_api_name,
207: '110:---------- CZ_DB_LOGS ----------------------------- ');
208: fnd_file.put_line(FND_FILE.LOG,'---------- CZ_DB_LOGS ----------------------------- ');
209:
218: fnd_file.put_line(FND_FILE.LOG,' ');
219: fnd_file.put_line(FND_FILE.LOG,' ');
220:
221: -- write to debug log file
222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
224: G_MODULE||l_api_name,
225: '110: Logtime : '||csr_db_logs_rec.logtime);
226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
219: fnd_file.put_line(FND_FILE.LOG,' ');
220:
221: -- write to debug log file
222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
224: G_MODULE||l_api_name,
225: '110: Logtime : '||csr_db_logs_rec.logtime);
226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
227: G_MODULE||l_api_name,
222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
224: G_MODULE||l_api_name,
225: '110: Logtime : '||csr_db_logs_rec.logtime);
226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
227: G_MODULE||l_api_name,
228: '110: Caller : '||csr_db_logs_rec.caller);
229: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
230: G_MODULE||l_api_name,
225: '110: Logtime : '||csr_db_logs_rec.logtime);
226: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
227: G_MODULE||l_api_name,
228: '110: Caller : '||csr_db_logs_rec.caller);
229: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
230: G_MODULE||l_api_name,
231: '110: Message : '||csr_db_logs_rec.message);
232: END IF;
233:
258: );
259: fnd_file.put_line(FND_FILE.LOG,'----------------------------------------------------------------');
260:
261: -- write to debug log file
262: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
264: G_MODULE||l_api_name,
265: '120:********** CZ_XFR_RUN_RESULTS ***************************** ');
266: END IF;
259: fnd_file.put_line(FND_FILE.LOG,'----------------------------------------------------------------');
260:
261: -- write to debug log file
262: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
263: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
264: G_MODULE||l_api_name,
265: '120:********** CZ_XFR_RUN_RESULTS ***************************** ');
266: END IF;
267:
289: */
290:
291:
292: -- write to debug log file
293: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
295: G_MODULE||l_api_name,
296: '120: *************** Record : '||l_rec_number||' **************');
297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
290:
291:
292: -- write to debug log file
293: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
295: G_MODULE||l_api_name,
296: '120: *************** Record : '||l_rec_number||' **************');
297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
298: G_MODULE||l_api_name,
293: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
294: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
295: G_MODULE||l_api_name,
296: '120: *************** Record : '||l_rec_number||' **************');
297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
298: G_MODULE||l_api_name,
299: '120: Import Table : '||csr_xfr_run_results_rec.imp_table);
300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
301: G_MODULE||l_api_name,
296: '120: *************** Record : '||l_rec_number||' **************');
297: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
298: G_MODULE||l_api_name,
299: '120: Import Table : '||csr_xfr_run_results_rec.imp_table);
300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
301: G_MODULE||l_api_name,
302: '120: Disposition : '||csr_xfr_run_results_rec.disposition);
303: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
304: G_MODULE||l_api_name,
299: '120: Import Table : '||csr_xfr_run_results_rec.imp_table);
300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
301: G_MODULE||l_api_name,
302: '120: Disposition : '||csr_xfr_run_results_rec.disposition);
303: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
304: G_MODULE||l_api_name,
305: '120: Record Status : '||csr_xfr_run_results_rec.rec_status);
306: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
307: G_MODULE||l_api_name,
302: '120: Disposition : '||csr_xfr_run_results_rec.disposition);
303: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
304: G_MODULE||l_api_name,
305: '120: Record Status : '||csr_xfr_run_results_rec.rec_status);
306: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
307: G_MODULE||l_api_name,
308: '120: Total Records : '||csr_xfr_run_results_rec.records);
309: END IF;
310:
350:
351: END IF; -- for Rule Import only
352:
353: -- end debug log
354: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
356: G_MODULE||l_api_name,
357: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
358: END IF;
351: END IF; -- for Rule Import only
352:
353: -- end debug log
354: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
355: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
356: G_MODULE||l_api_name,
357: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
358: END IF;
359:
358: END IF;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_ERROR THEN
362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
364: G_MODULE||l_api_name,
365: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
366: END IF;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_ERROR THEN
362: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
364: G_MODULE||l_api_name,
365: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
366: END IF;
367:
368: x_return_status := G_RET_STS_ERROR ;
369: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
374: G_MODULE||l_api_name,
375: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
376: END IF;
369: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
370:
371: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
372: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
374: G_MODULE||l_api_name,
375: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
376: END IF;
377:
378: x_return_status := G_RET_STS_UNEXP_ERROR ;
379: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
380:
381: WHEN OTHERS THEN
382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
383: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
384: G_MODULE||l_api_name,
385: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
386: END IF;
379: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
380:
381: WHEN OTHERS THEN
382: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
383: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
384: G_MODULE||l_api_name,
385: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
386: END IF;
387:
585:
586: BEGIN
587:
588: -- start debug log
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
591: G_MODULE||l_api_name,
592: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
593: END IF;
586: BEGIN
587:
588: -- start debug log
589: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
591: G_MODULE||l_api_name,
592: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
593: END IF;
594:
617: END LOOP; -- all test publications
618:
619:
620: -- end debug log
621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
623: G_MODULE||l_api_name,
624: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
625: END IF;
618:
619:
620: -- end debug log
621: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
623: G_MODULE||l_api_name,
624: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
625: END IF;
626:
626:
627:
628: EXCEPTION
629: WHEN FND_API.G_EXC_ERROR THEN
630: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
632: G_MODULE||l_api_name,
633: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
634: END IF;
627:
628: EXCEPTION
629: WHEN FND_API.G_EXC_ERROR THEN
630: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
631: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
632: G_MODULE||l_api_name,
633: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
634: END IF;
635:
636: x_return_status := G_RET_STS_ERROR ;
637: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
638:
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
641: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
642: G_MODULE||l_api_name,
643: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
644: END IF;
637: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
638:
639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
640: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
641: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
642: G_MODULE||l_api_name,
643: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
644: END IF;
645:
646: x_return_status := G_RET_STS_UNEXP_ERROR ;
647: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
648:
649: WHEN OTHERS THEN
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
652: G_MODULE||l_api_name,
653: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
654: END IF;
647: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
648:
649: WHEN OTHERS THEN
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
652: G_MODULE||l_api_name,
653: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
654: END IF;
655:
732:
733: BEGIN
734:
735: -- start debug log
736: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
737: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
738: G_MODULE||l_api_name,
739: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
740: END IF;
733: BEGIN
734:
735: -- start debug log
736: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
737: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
738: G_MODULE||l_api_name,
739: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
740: END IF;
741:
877: CLOSE csr_templates;
878:
879:
880: -- end debug log
881: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
883: G_MODULE||l_api_name,
884: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
885: END IF;
878:
879:
880: -- end debug log
881: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
882: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
883: G_MODULE||l_api_name,
884: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
885: END IF;
886:
886:
887:
888: EXCEPTION
889: WHEN FND_API.G_EXC_ERROR THEN
890: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
892: G_MODULE||l_api_name,
893: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
894: END IF;
887:
888: EXCEPTION
889: WHEN FND_API.G_EXC_ERROR THEN
890: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
892: G_MODULE||l_api_name,
893: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
894: END IF;
895:
896: x_return_status := G_RET_STS_ERROR ;
897: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
901: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
902: G_MODULE||l_api_name,
903: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
904: END IF;
897: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
901: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
902: G_MODULE||l_api_name,
903: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
904: END IF;
905:
906: x_return_status := G_RET_STS_UNEXP_ERROR ;
907: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
908:
909: WHEN OTHERS THEN
910: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
912: G_MODULE||l_api_name,
913: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
914: END IF;
907: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
908:
909: WHEN OTHERS THEN
910: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
912: G_MODULE||l_api_name,
913: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
914: END IF;
915:
973: */
974: BEGIN
975:
976: -- start debug log
977: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
978: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
979: g_Module || l_Api_Name,
980: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
981: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
974: BEGIN
975:
976: -- start debug log
977: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
978: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
979: g_Module || l_Api_Name,
980: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
981: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
982: g_Module || l_Api_Name,
977: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
978: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
979: g_Module || l_Api_Name,
980: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
981: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
982: g_Module || l_Api_Name,
983: '100: Parameters passed: -----------------------');
984: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
985: g_Module || l_Api_Name,
980: '100: Entered ' || g_Pkg_Name || '.' || l_Api_Name);
981: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
982: g_Module || l_Api_Name,
983: '100: Parameters passed: -----------------------');
984: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
985: g_Module || l_Api_Name,
986: '100: p_Template_Id:' || p_Template_Id);
987: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
988: g_Module || l_Api_Name,
983: '100: Parameters passed: -----------------------');
984: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
985: g_Module || l_Api_Name,
986: '100: p_Template_Id:' || p_Template_Id);
987: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
988: g_Module || l_Api_Name,
989: '100: p_Commit_Flag:' || p_Commit_Flag);
990: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
991: g_Module || l_Api_Name,
986: '100: p_Template_Id:' || p_Template_Id);
987: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
988: g_Module || l_Api_Name,
989: '100: p_Commit_Flag:' || p_Commit_Flag);
990: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
991: g_Module || l_Api_Name,
992: '100: p_Mode:' || p_Mode);
993: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
994: g_Module || l_Api_Name,
989: '100: p_Commit_Flag:' || p_Commit_Flag);
990: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
991: g_Module || l_Api_Name,
992: '100: p_Mode:' || p_Mode);
993: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
994: g_Module || l_Api_Name,
995: '100: Parameters passed: -----------------------');
996: END IF;
997:
1009: with ORG_WIDE_FLAG='Y' and status in ('ACTIVE', 'DRAFT', 'REVISION', 'PENDINGPUB')
1010: */
1011:
1012: -- write to debug log file
1013: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1014: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1015: g_Module || l_Api_Name,
1016: '110: Deleting invalid questions from the table Okc_Xprt_Question_Orders');
1017: END IF;
1010: */
1011:
1012: -- write to debug log file
1013: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1014: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1015: g_Module || l_Api_Name,
1016: '110: Deleting invalid questions from the table Okc_Xprt_Question_Orders');
1017: END IF;
1018:
1079: AND Rules.Status_Code IN ('ACTIVE', 'DRAFT', 'REVISION', 'PENDINGDISABLE','PENDINGPUB')
1080: );
1081:
1082: -- write to debug log file
1083: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1084: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1085: g_Module || l_Api_Name,
1086: '120: Deleted invalid questions from the table Okc_Xprt_Question_Orders');
1087: END IF;
1080: );
1081:
1082: -- write to debug log file
1083: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1084: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1085: g_Module || l_Api_Name,
1086: '120: Deleted invalid questions from the table Okc_Xprt_Question_Orders');
1087: END IF;
1088: /*
1091:
1092:
1093:
1094: -- write to debug log file
1095: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1096: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1097: g_Module || l_Api_Name,
1098: '130: Initialize the status for the questions for the template.');
1099: END IF;
1092:
1093:
1094: -- write to debug log file
1095: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1096: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1097: g_Module || l_Api_Name,
1098: '130: Initialize the status for the questions for the template.');
1099: END IF;
1100: UPDATE Okc_Xprt_Question_Orders
1112: the left and right hand side of OKC_XPRT_RULE_CONDITIONS or in OKC_XPRT_RULE_OUTCOMES
1113: for all rules associated to the template in table OKC_XPRT_TEMPLATE_RULES or rules with ORG_WIDE_FLAG='Y' and status = 'ACTIVE'
1114: */
1115:
1116: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1117: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1118: g_Module || l_Api_Name,
1119: '140: Start inserting/updating the Active rule questions.');
1120: END IF;
1113: for all rules associated to the template in table OKC_XPRT_TEMPLATE_RULES or rules with ORG_WIDE_FLAG='Y' and status = 'ACTIVE'
1114: */
1115:
1116: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1117: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1118: g_Module || l_Api_Name,
1119: '140: Start inserting/updating the Active rule questions.');
1120: END IF;
1121:
1238: /*
1239: 4. Do similar processing for rules in Pending Publication status
1240: */
1241:
1242: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1243: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1244: g_Module || l_Api_Name,
1245: '150: End inserting/updating the Active rule questions.');
1246:
1239: 4. Do similar processing for rules in Pending Publication status
1240: */
1241:
1242: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1243: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1244: g_Module || l_Api_Name,
1245: '150: End inserting/updating the Active rule questions.');
1246:
1247: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1243: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1244: g_Module || l_Api_Name,
1245: '150: End inserting/updating the Active rule questions.');
1246:
1247: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1248: g_Module || l_Api_Name,
1249: '160: Start inserting/updating the Pending Publication rule questions.');
1250: END IF;
1251:
1384: WHERE Template_Id = p_Template_Id;
1385:
1386: IF p_Mode = 'U' THEN
1387:
1388: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1389: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1390: g_Module || l_Api_Name,
1391: '210: Process the "U" mode.');
1392: END IF;
1385:
1386: IF p_Mode = 'U' THEN
1387:
1388: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1389: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1390: g_Module || l_Api_Name,
1391: '210: Process the "U" mode.');
1392: END IF;
1393:
1479: AND Outs.Object_Type = 'QUESTION'
1480: );
1481: ELSE --IF p_Mode = 'U'
1482:
1483: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1484: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1485: g_Module || l_Api_Name,
1486: '210: Process modes other than "U".');
1487: END IF;
1480: );
1481: ELSE --IF p_Mode = 'U'
1482:
1483: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1484: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1485: g_Module || l_Api_Name,
1486: '210: Process modes other than "U".');
1487: END IF;
1488: --Fix for perf Bug#5030086.Breaking big Update stmt into 4 small Update stmts
1644: select a cursor for new records and
1645: set sequence_no with sequence_no+1 for each new record,
1646: where the intial sequence_no is max of existing sequence_no for the template .
1647: */
1648: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1649: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1650: g_Module || l_Api_Name,
1651: '220: End setting the mandatory flag.');
1652: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1645: set sequence_no with sequence_no+1 for each new record,
1646: where the intial sequence_no is max of existing sequence_no for the template .
1647: */
1648: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1649: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1650: g_Module || l_Api_Name,
1651: '220: End setting the mandatory flag.');
1652: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1653: g_Module || l_Api_Name,
1648: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1649: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1650: g_Module || l_Api_Name,
1651: '220: End setting the mandatory flag.');
1652: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1653: g_Module || l_Api_Name,
1654: '230: Start populating sequence for newly inserted questions.');
1655:
1656: END IF;
1688: AND Question_Id = l_Question_Id;
1689:
1690: END LOOP;
1691: END;
1692: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1693: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1694: g_Module || l_Api_Name,
1695: '240: End populating sequence for newly inserted questions.');
1696:
1689:
1690: END LOOP;
1691: END;
1692: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1693: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1694: g_Module || l_Api_Name,
1695: '240: End populating sequence for newly inserted questions.');
1696:
1697: END IF;
1698:
1699: IF p_Commit_Flag = 'Y' THEN
1700:
1701:
1702: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1703: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1704: g_Module || l_Api_Name,
1705: '250: Commiting the transaction');
1706:
1699: IF p_Commit_Flag = 'Y' THEN
1700:
1701:
1702: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1703: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1704: g_Module || l_Api_Name,
1705: '250: Commiting the transaction');
1706:
1707: END IF;
1707: END IF;
1708: COMMIT;
1709: END IF;
1710:
1711: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1712: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1713: g_Module || l_Api_Name,
1714: '1000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
1715: END IF;
1708: COMMIT;
1709: END IF;
1710:
1711: IF (Fnd_Log.Level_Procedure >= Fnd_Log.g_Current_Runtime_Level) THEN
1712: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1713: g_Module || l_Api_Name,
1714: '1000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
1715: END IF;
1716:
1717:
1718: EXCEPTION
1719:
1720: WHEN OTHERS THEN
1721: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.g_Current_Runtime_Level) THEN
1722: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1723: g_Module || l_Api_Name,
1724: '4000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
1725: END IF;
1718: EXCEPTION
1719:
1720: WHEN OTHERS THEN
1721: IF (Fnd_Log.LEVEL_PROCEDURE >= Fnd_Log.g_Current_Runtime_Level) THEN
1722: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
1723: g_Module || l_Api_Name,
1724: '4000: Leaving ' || g_Pkg_Name || '.' || l_Api_Name);
1725: END IF;
1726:
1845:
1846: BEGIN
1847:
1848: -- start debug log
1849: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1850: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1851: G_MODULE||l_api_name,
1852: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1853: END IF;
1846: BEGIN
1847:
1848: -- start debug log
1849: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1850: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1851: G_MODULE||l_api_name,
1852: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1853: END IF;
1854:
1871: FROM okc_terms_templates_all
1872: WHERE xprt_request_id = DECODE('''||p_calling_mode||''',
1873: ''TEMPLATE_APPROVAL'',xprt_request_id,'||FND_GLOBAL.CONC_REQUEST_ID||')';
1874: END IF;
1875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1877: G_MODULE||l_api_name,
1878: 'l_sql_stmt = '||l_sql_stmt );
1879: END IF;
1872: WHERE xprt_request_id = DECODE('''||p_calling_mode||''',
1873: ''TEMPLATE_APPROVAL'',xprt_request_id,'||FND_GLOBAL.CONC_REQUEST_ID||')';
1874: END IF;
1875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1876: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1877: G_MODULE||l_api_name,
1878: 'l_sql_stmt = '||l_sql_stmt );
1879: END IF;
1880: --END:Bug 5032199
1889: LOOP
1890: FETCH csr_get_publication_id INTO l_publication_id,l_ui_def_id;
1891: EXIT WHEN csr_get_publication_id%NOTFOUND;
1892: -- debug log
1893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1895: G_MODULE||l_api_name,
1896: ' ********************************************************');
1897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1890: FETCH csr_get_publication_id INTO l_publication_id,l_ui_def_id;
1891: EXIT WHEN csr_get_publication_id%NOTFOUND;
1892: -- debug log
1893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1895: G_MODULE||l_api_name,
1896: ' ********************************************************');
1897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1898: G_MODULE||l_api_name,
1893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1895: G_MODULE||l_api_name,
1896: ' ********************************************************');
1897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1898: G_MODULE||l_api_name,
1899: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1901: G_MODULE||l_api_name,
1896: ' ********************************************************');
1897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1898: G_MODULE||l_api_name,
1899: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1901: G_MODULE||l_api_name,
1902: 'p_api_version : '||l_api_version);
1903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1904: G_MODULE||l_api_name,
1899: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1901: G_MODULE||l_api_name,
1902: 'p_api_version : '||l_api_version);
1903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1904: G_MODULE||l_api_name,
1905: 'p_publication_id : '||l_publication_id);
1906: END IF;
1907:
1918: ) ;
1919:
1920:
1921: -- debug log
1922: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1923: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1924: G_MODULE||l_api_name,
1925: ' ********************************************************');
1926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1919:
1920:
1921: -- debug log
1922: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1923: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1924: G_MODULE||l_api_name,
1925: ' ********************************************************');
1926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1927: G_MODULE||l_api_name,
1922: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1923: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1924: G_MODULE||l_api_name,
1925: ' ********************************************************');
1926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1927: G_MODULE||l_api_name,
1928: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
1929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1930: G_MODULE||l_api_name,
1925: ' ********************************************************');
1926: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1927: G_MODULE||l_api_name,
1928: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
1929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1930: G_MODULE||l_api_name,
1931: 'x_return_status : '||x_return_status);
1932: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1933: G_MODULE||l_api_name,
1928: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
1929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1930: G_MODULE||l_api_name,
1931: 'x_return_status : '||x_return_status);
1932: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1933: G_MODULE||l_api_name,
1934: ' ********************************************************');
1935: END IF;
1936:
1970: FETCH csr_get_publication_id INTO l_publication_id,l_ui_def_id;
1971: EXIT WHEN csr_get_publication_id%NOTFOUND;
1972:
1973: -- debug log
1974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1975: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1976: G_MODULE||l_api_name,
1977: ' ********************************************************');
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1971: EXIT WHEN csr_get_publication_id%NOTFOUND;
1972:
1973: -- debug log
1974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1975: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1976: G_MODULE||l_api_name,
1977: ' ********************************************************');
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1979: G_MODULE||l_api_name,
1974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1975: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1976: G_MODULE||l_api_name,
1977: ' ********************************************************');
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1979: G_MODULE||l_api_name,
1980: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1981: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1982: G_MODULE||l_api_name,
1977: ' ********************************************************');
1978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1979: G_MODULE||l_api_name,
1980: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1981: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1982: G_MODULE||l_api_name,
1983: 'p_api_version : '||l_api_version);
1984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1985: G_MODULE||l_api_name,
1980: 'Calling OKC_XPRT_CZ_INT_PVT.delete_publication with parameters');
1981: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1982: G_MODULE||l_api_name,
1983: 'p_api_version : '||l_api_version);
1984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1985: G_MODULE||l_api_name,
1986: 'p_publication_id : '||l_publication_id);
1987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1988: G_MODULE||l_api_name,
1983: 'p_api_version : '||l_api_version);
1984: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1985: G_MODULE||l_api_name,
1986: 'p_publication_id : '||l_publication_id);
1987: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1988: G_MODULE||l_api_name,
1989: 'p_publication_mode : '||G_TEST_MODE);
1990: END IF;
1991:
2001: x_msg_count => x_msg_count
2002: ) ;
2003:
2004: -- debug log
2005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2006: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2007: G_MODULE||l_api_name,
2008: ' ********************************************************');
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2002: ) ;
2003:
2004: -- debug log
2005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2006: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2007: G_MODULE||l_api_name,
2008: ' ********************************************************');
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2010: G_MODULE||l_api_name,
2005: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2006: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2007: G_MODULE||l_api_name,
2008: ' ********************************************************');
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2010: G_MODULE||l_api_name,
2011: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
2012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2013: G_MODULE||l_api_name,
2008: ' ********************************************************');
2009: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2010: G_MODULE||l_api_name,
2011: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
2012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2013: G_MODULE||l_api_name,
2014: 'x_return_status : '||x_return_status);
2015: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2016: G_MODULE||l_api_name,
2011: 'After Calling OKC_XPRT_CZ_INT_PVT.delete_publication');
2012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2013: G_MODULE||l_api_name,
2014: 'x_return_status : '||x_return_status);
2015: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2016: G_MODULE||l_api_name,
2017: ' ********************************************************');
2018: END IF;
2019:
2124: COMMIT WORK;
2125: END IF;
2126:
2127: -- end debug log
2128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2129: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2130: G_MODULE||l_api_name,
2131: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2132: END IF;
2125: END IF;
2126:
2127: -- end debug log
2128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2129: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2130: G_MODULE||l_api_name,
2131: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2132: END IF;
2133:
2133:
2134:
2135: EXCEPTION
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2139: G_MODULE||l_api_name,
2140: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2141: END IF;
2134:
2135: EXCEPTION
2136: WHEN FND_API.G_EXC_ERROR THEN
2137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2139: G_MODULE||l_api_name,
2140: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2141: END IF;
2142:
2147: x_return_status := G_RET_STS_ERROR ;
2148: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2149:
2150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2153: G_MODULE||l_api_name,
2154: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2155: END IF;
2148: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2149:
2150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2151: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2153: G_MODULE||l_api_name,
2154: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2155: END IF;
2156:
2161: x_return_status := G_RET_STS_UNEXP_ERROR ;
2162: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2163:
2164: WHEN OTHERS THEN
2165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2167: G_MODULE||l_api_name,
2168: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2169: END IF;
2162: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2163:
2164: WHEN OTHERS THEN
2165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2166: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2167: G_MODULE||l_api_name,
2168: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2169: END IF;
2170:
2282: BEGIN
2283:
2284:
2285: -- start debug log
2286: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2288: G_MODULE||l_api_name,
2289: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2290: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2283:
2284:
2285: -- start debug log
2286: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2288: G_MODULE||l_api_name,
2289: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2290: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2291: G_MODULE||l_api_name,
2286: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2287: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2288: G_MODULE||l_api_name,
2289: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2290: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2291: G_MODULE||l_api_name,
2292: 'p_template_id : '||p_template_id);
2293: END IF;
2294:
2478:
2479: END IF; -- l_perf_template_no_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 IF; -- l_perf_template_no_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:
2598: BEGIN
2599:
2600:
2601: -- start debug log
2602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2604: G_MODULE||l_api_name,
2605: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2599:
2600:
2601: -- start debug log
2602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2604: G_MODULE||l_api_name,
2605: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2607: G_MODULE||l_api_name,
2602: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2603: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2604: G_MODULE||l_api_name,
2605: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2607: G_MODULE||l_api_name,
2608: 'Parameters : ');
2609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2610: G_MODULE||l_api_name,
2605: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2606: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2607: G_MODULE||l_api_name,
2608: 'Parameters : ');
2609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2610: G_MODULE||l_api_name,
2611: 'p_document_id : '||p_document_id);
2612: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2613: G_MODULE||l_api_name,
2608: 'Parameters : ');
2609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2610: G_MODULE||l_api_name,
2611: 'p_document_id : '||p_document_id);
2612: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2613: G_MODULE||l_api_name,
2614: 'p_document_type : '||p_document_type);
2615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2616: G_MODULE||l_api_name,
2611: 'p_document_id : '||p_document_id);
2612: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2613: G_MODULE||l_api_name,
2614: 'p_document_type : '||p_document_type);
2615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2616: G_MODULE||l_api_name,
2617: 'p_config_header_id : '||p_config_header_id);
2618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2619: G_MODULE||l_api_name,
2614: 'p_document_type : '||p_document_type);
2615: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2616: G_MODULE||l_api_name,
2617: 'p_config_header_id : '||p_config_header_id);
2618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2619: G_MODULE||l_api_name,
2620: 'p_config_rev_nbr : '||p_config_rev_nbr);
2621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2622: G_MODULE||l_api_name,
2617: 'p_config_header_id : '||p_config_header_id);
2618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2619: G_MODULE||l_api_name,
2620: 'p_config_rev_nbr : '||p_config_rev_nbr);
2621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2622: G_MODULE||l_api_name,
2623: 'p_template_id : '||p_template_id);
2624: END IF;
2625:
2738: '';
2739: l_xml_init_msg := l_xml_init_msg || l_dummy;
2740:
2741: -- debug log
2742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2744: G_MODULE||l_api_name,
2745: l_rec_index||' : '||l_dummy);
2746: END IF; -- debug log
2739: l_xml_init_msg := l_xml_init_msg || l_dummy;
2740:
2741: -- debug log
2742: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2743: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2744: G_MODULE||l_api_name,
2745: l_rec_index||' : '||l_dummy);
2746: END IF; -- debug log
2747:
2758:
2759: x_cz_xml_init_msg := l_xml_init_msg;
2760:
2761: -- end debug log
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: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2766: END IF;
2759: x_cz_xml_init_msg := l_xml_init_msg;
2760:
2761: -- end debug log
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: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
2766: END IF;
2767:
2875: BEGIN
2876:
2877:
2878: -- start debug log
2879: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2880: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2881: G_MODULE||l_api_name,
2882: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2883: END IF;
2876:
2877:
2878: -- start debug log
2879: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2880: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2881: G_MODULE||l_api_name,
2882: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2883: END IF;
2884:
2903: l_exit := SUBSTR (p_cz_xml_terminate_msg, l_exit_start_pos,
2904: l_exit_end_pos - l_exit_start_pos + 1);
2905:
2906: -- 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: 'l_exit_start_pos : '||l_exit_start_pos);
2911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2904: l_exit_end_pos - l_exit_start_pos + 1);
2905:
2906: -- 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: 'l_exit_start_pos : '||l_exit_start_pos);
2911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2912: G_MODULE||l_api_name,
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: 'l_exit_start_pos : '||l_exit_start_pos);
2911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2912: G_MODULE||l_api_name,
2913: 'l_exit_end_pos : '||l_exit_end_pos);
2914: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2915: G_MODULE||l_api_name,
2910: 'l_exit_start_pos : '||l_exit_start_pos);
2911: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2912: G_MODULE||l_api_name,
2913: 'l_exit_end_pos : '||l_exit_end_pos);
2914: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2915: G_MODULE||l_api_name,
2916: 'l_exit : '||l_exit);
2917: END IF;
2918:
2947: l_complete_config_end_pos -
2948: l_complete_config_start_pos + 1);
2949:
2950: -- debug log
2951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2952: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2953: G_MODULE||l_api_name,
2954: 'l_valid_config_start_pos : '||l_valid_config_start_pos);
2955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2948: l_complete_config_start_pos + 1);
2949:
2950: -- debug log
2951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2952: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2953: G_MODULE||l_api_name,
2954: 'l_valid_config_start_pos : '||l_valid_config_start_pos);
2955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2956: G_MODULE||l_api_name,
2951: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2952: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2953: G_MODULE||l_api_name,
2954: 'l_valid_config_start_pos : '||l_valid_config_start_pos);
2955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2956: G_MODULE||l_api_name,
2957: 'l_valid_config_end_pos : '||l_valid_config_end_pos);
2958: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2959: G_MODULE||l_api_name,
2954: 'l_valid_config_start_pos : '||l_valid_config_start_pos);
2955: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2956: G_MODULE||l_api_name,
2957: 'l_valid_config_end_pos : '||l_valid_config_end_pos);
2958: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2959: G_MODULE||l_api_name,
2960: 'l_valid_config : '||l_valid_config);
2961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2962: G_MODULE||l_api_name,
2957: 'l_valid_config_end_pos : '||l_valid_config_end_pos);
2958: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2959: G_MODULE||l_api_name,
2960: 'l_valid_config : '||l_valid_config);
2961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2962: G_MODULE||l_api_name,
2963: 'l_complete_config_start_pos : '||l_complete_config_start_pos);
2964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2965: G_MODULE||l_api_name,
2960: 'l_valid_config : '||l_valid_config);
2961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2962: G_MODULE||l_api_name,
2963: 'l_complete_config_start_pos : '||l_complete_config_start_pos);
2964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2965: G_MODULE||l_api_name,
2966: 'l_complete_config_end_pos : '||l_complete_config_end_pos);
2967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2968: G_MODULE||l_api_name,
2963: 'l_complete_config_start_pos : '||l_complete_config_start_pos);
2964: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2965: G_MODULE||l_api_name,
2966: 'l_complete_config_end_pos : '||l_complete_config_end_pos);
2967: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2968: G_MODULE||l_api_name,
2969: 'l_complete_config : '||l_complete_config);
2970: END IF;
2971:
3076: l_config_rev_nbr_end_pos -
3077: l_config_rev_nbr_start_pos + 1));
3078:
3079: -- debug log
3080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3082: G_MODULE||l_api_name,
3083: 'l_config_header_id_start_pos : '||l_config_header_id_start_pos);
3084: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3077: l_config_rev_nbr_start_pos + 1));
3078:
3079: -- debug log
3080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3082: G_MODULE||l_api_name,
3083: 'l_config_header_id_start_pos : '||l_config_header_id_start_pos);
3084: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3085: G_MODULE||l_api_name,
3080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3082: G_MODULE||l_api_name,
3083: 'l_config_header_id_start_pos : '||l_config_header_id_start_pos);
3084: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3085: G_MODULE||l_api_name,
3086: 'l_config_header_id_end_pos : '||l_config_header_id_end_pos);
3087: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3088: G_MODULE||l_api_name,
3083: 'l_config_header_id_start_pos : '||l_config_header_id_start_pos);
3084: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3085: G_MODULE||l_api_name,
3086: 'l_config_header_id_end_pos : '||l_config_header_id_end_pos);
3087: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3088: G_MODULE||l_api_name,
3089: 'l_config_header_id : '||l_config_header_id);
3090: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3091: G_MODULE||l_api_name,
3086: 'l_config_header_id_end_pos : '||l_config_header_id_end_pos);
3087: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3088: G_MODULE||l_api_name,
3089: 'l_config_header_id : '||l_config_header_id);
3090: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3091: G_MODULE||l_api_name,
3092: 'l_config_rev_nbr_start_pos : '||l_config_rev_nbr_start_pos);
3093: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3094: G_MODULE||l_api_name,
3089: 'l_config_header_id : '||l_config_header_id);
3090: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3091: G_MODULE||l_api_name,
3092: 'l_config_rev_nbr_start_pos : '||l_config_rev_nbr_start_pos);
3093: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3094: G_MODULE||l_api_name,
3095: 'l_config_rev_nbr_end_pos : '||l_config_rev_nbr_end_pos);
3096: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3097: G_MODULE||l_api_name,
3092: 'l_config_rev_nbr_start_pos : '||l_config_rev_nbr_start_pos);
3093: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3094: G_MODULE||l_api_name,
3095: 'l_config_rev_nbr_end_pos : '||l_config_rev_nbr_end_pos);
3096: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3097: G_MODULE||l_api_name,
3098: 'l_config_rev_nbr : '||l_config_rev_nbr);
3099: END IF;
3100:
3104: x_complete_config := NVL(l_complete_config, 'FALSE');
3105: x_valid_config := NVL(l_valid_config, 'FALSE');
3106:
3107: -- end debug log
3108: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3110: G_MODULE||l_api_name,
3111: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3112: END IF;
3105: x_valid_config := NVL(l_valid_config, 'FALSE');
3106:
3107: -- end debug log
3108: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3110: G_MODULE||l_api_name,
3111: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3112: END IF;
3113:
3325: BEGIN
3326:
3327:
3328: -- start debug log
3329: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3331: G_MODULE||l_api_name,
3332: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3333: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3326:
3327:
3328: -- start debug log
3329: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3331: G_MODULE||l_api_name,
3332: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3333: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3334: G_MODULE||l_api_name,
3329: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3330: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3331: G_MODULE||l_api_name,
3332: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3333: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3334: G_MODULE||l_api_name,
3335: 'Parameters : ');
3336: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3337: G_MODULE||l_api_name,
3332: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3333: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3334: G_MODULE||l_api_name,
3335: 'Parameters : ');
3336: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3337: G_MODULE||l_api_name,
3338: 'p_document_id : '||p_document_id);
3339: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3340: G_MODULE||l_api_name,
3335: 'Parameters : ');
3336: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3337: G_MODULE||l_api_name,
3338: 'p_document_id : '||p_document_id);
3339: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3340: G_MODULE||l_api_name,
3341: 'p_document_type : '||p_document_type);
3342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3343: G_MODULE||l_api_name,
3338: 'p_document_id : '||p_document_id);
3339: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3340: G_MODULE||l_api_name,
3341: 'p_document_type : '||p_document_type);
3342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3343: G_MODULE||l_api_name,
3344: 'p_config_header_id : '||p_config_header_id);
3345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3346: G_MODULE||l_api_name,
3341: 'p_document_type : '||p_document_type);
3342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3343: G_MODULE||l_api_name,
3344: 'p_config_header_id : '||p_config_header_id);
3345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3346: G_MODULE||l_api_name,
3347: 'p_config_rev_nbr : '||p_config_rev_nbr);
3348:
3349: END IF;
3487: IF (l_article_in_doc%NOTFOUND)
3488: THEN
3489:
3490: -- debug log
3491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3492: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3493: G_MODULE||l_api_name,
3494: 'Article id not in document : '||l_expert_articles_tbl(l_article_tbl_index));
3495: END IF;
3488: THEN
3489:
3490: -- debug log
3491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3492: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3493: G_MODULE||l_api_name,
3494: 'Article id not in document : '||l_expert_articles_tbl(l_article_tbl_index));
3495: END IF;
3496:
3528:
3529: END IF; -- l_article_version_id
3530:
3531: -- debug log
3532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3533: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3534: G_MODULE||l_api_name,
3535: 'l_article_version_id : '||l_article_version_id);
3536: END IF;
3529: END IF; -- l_article_version_id
3530:
3531: -- debug log
3532: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3533: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3534: G_MODULE||l_api_name,
3535: 'l_article_version_id : '||l_article_version_id);
3536: END IF;
3537:
3588:
3589: ELSE -- %NOTFOUND
3590:
3591: -- debug log
3592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3594: G_MODULE||l_api_name,
3595: ' Article id is in the document: '||l_article_id);
3596: END IF;
3589: ELSE -- %NOTFOUND
3590:
3591: -- debug log
3592: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3593: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3594: G_MODULE||l_api_name,
3595: ' Article id is in the document: '||l_article_id);
3596: END IF;
3597:
3672: END LOOP;
3673: END IF;
3674:
3675: -- end debug log
3676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3677: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3678: G_MODULE||l_api_name,
3679: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3680: END IF;
3673: END IF;
3674:
3675: -- end debug log
3676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3677: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3678: G_MODULE||l_api_name,
3679: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
3680: END IF;
3681:
3876: BEGIN
3877:
3878:
3879: -- start debug log
3880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3881: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3882: G_MODULE||l_api_name,
3883: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3884: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3877:
3878:
3879: -- start debug log
3880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3881: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3882: G_MODULE||l_api_name,
3883: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3884: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3885: G_MODULE||l_api_name,
3880: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3881: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3882: G_MODULE||l_api_name,
3883: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3884: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3885: G_MODULE||l_api_name,
3886: 'Parameters : ');
3887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3888: G_MODULE||l_api_name,
3883: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
3884: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3885: G_MODULE||l_api_name,
3886: 'Parameters : ');
3887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3888: G_MODULE||l_api_name,
3889: 'p_config_header_id : '||p_config_header_id);
3890: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3891: G_MODULE||l_api_name,
3886: 'Parameters : ');
3887: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3888: G_MODULE||l_api_name,
3889: 'p_config_header_id : '||p_config_header_id);
3890: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
3891: G_MODULE||l_api_name,
3892: 'p_config_rev_nbr : '||p_config_rev_nbr);
3893:
3894: END IF;
3998:
3999: END IF;
4000:
4001: -- end debug log
4002: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
4004: G_MODULE||l_api_name,
4005: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4006: END IF;
3999: END IF;
4000:
4001: -- end debug log
4002: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4003: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
4004: G_MODULE||l_api_name,
4005: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
4006: END IF;
4007:
5252: l_variable_value varchar2(1000) := null;
5253: l_variable_translated_value varchar2(1000) := null;
5254:
5255: BEGIN
5256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5257: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5258: G_MODULE||l_api_name,
5259: '960: Entered '||G_PKG_NAME ||'.'||l_api_name);
5260: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5253: l_variable_translated_value varchar2(1000) := null;
5254:
5255: BEGIN
5256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5257: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5258: G_MODULE||l_api_name,
5259: '960: Entered '||G_PKG_NAME ||'.'||l_api_name);
5260: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5261: g_Module || l_Api_Name,
5256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5257: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5258: G_MODULE||l_api_name,
5259: '960: Entered '||G_PKG_NAME ||'.'||l_api_name);
5260: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5261: g_Module || l_Api_Name,
5262: '960: Parameters passed: -----------------------');
5263: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5264: G_MODULE||l_api_name,
5259: '960: Entered '||G_PKG_NAME ||'.'||l_api_name);
5260: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5261: g_Module || l_Api_Name,
5262: '960: Parameters passed: -----------------------');
5263: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5264: G_MODULE||l_api_name,
5265: '960:Object Type = '||p_object_code);
5266: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5267: G_MODULE||l_api_name,
5262: '960: Parameters passed: -----------------------');
5263: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5264: G_MODULE||l_api_name,
5265: '960:Object Type = '||p_object_code);
5266: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5267: G_MODULE||l_api_name,
5268: '960:sequence id = '||p_sequence_id );
5269: END IF;
5270: FOR rec_variable_value in csr_variable_value
5287: l_final_document_value := l_final_document_value || ','||l_variable_value;
5288: END IF;
5289: END IF;
5290:
5291: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5292: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5293: G_MODULE||l_api_name,
5294: '961: l_variable_value = ' || l_variable_value);
5295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5288: END IF;
5289: END IF;
5290:
5291: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5292: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5293: G_MODULE||l_api_name,
5294: '961: l_variable_value = ' || l_variable_value);
5295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5296: G_MODULE||l_api_name,
5291: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5292: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5293: G_MODULE||l_api_name,
5294: '961: l_variable_value = ' || l_variable_value);
5295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5296: G_MODULE||l_api_name,
5297: '961: l_variable_translated_value = ' || l_variable_translated_value);
5298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5299: G_MODULE||l_api_name,
5294: '961: l_variable_value = ' || l_variable_value);
5295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5296: G_MODULE||l_api_name,
5297: '961: l_variable_translated_value = ' || l_variable_translated_value);
5298: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5299: G_MODULE||l_api_name,
5300: '961: l_final_document_value = ' || l_final_document_value);
5301: END IF;
5302: END LOOP;
5308: END IF;
5309: IF csr_translated_value%ISOPEN THEN
5310: CLOSE csr_translated_value;
5311: END IF;
5312: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5313: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5314: G_MODULE||l_api_name,
5315: '990: Leaving From Exception Block'||G_PKG_NAME ||'.'||l_api_name);
5316: END IF;
5309: IF csr_translated_value%ISOPEN THEN
5310: CLOSE csr_translated_value;
5311: END IF;
5312: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5313: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5314: G_MODULE||l_api_name,
5315: '990: Leaving From Exception Block'||G_PKG_NAME ||'.'||l_api_name);
5316: END IF;
5317: RETURN null;
5415: c_cursor cur_typ;
5416:
5417: BEGIN
5418: -- start debug log
5419: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5420: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5421: G_MODULE||l_api_name,
5422: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
5423: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5416:
5417: BEGIN
5418: -- start debug log
5419: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5420: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5421: G_MODULE||l_api_name,
5422: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
5423: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5424: g_Module || l_Api_Name,
5419: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5420: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5421: G_MODULE||l_api_name,
5422: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
5423: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5424: g_Module || l_Api_Name,
5425: '910: Parameters passed: -----------------------');
5426: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5427: G_MODULE||l_api_name,
5422: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
5423: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5424: g_Module || l_Api_Name,
5425: '910: Parameters passed: -----------------------');
5426: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5427: G_MODULE||l_api_name,
5428: '910:p_rule_id = '||p_rule_id);
5429: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5430: G_MODULE||l_api_name,
5425: '910: Parameters passed: -----------------------');
5426: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5427: G_MODULE||l_api_name,
5428: '910:p_rule_id = '||p_rule_id);
5429: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5430: G_MODULE||l_api_name,
5431: '910:Object Type = '||p_object_type);
5432: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5433: g_Module || l_Api_Name,
5428: '910:p_rule_id = '||p_rule_id);
5429: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5430: G_MODULE||l_api_name,
5431: '910:Object Type = '||p_object_type);
5432: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5433: g_Module || l_Api_Name,
5434: '910:Object Code = '||p_object_code);
5435: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5436: g_Module || l_Api_Name,
5431: '910:Object Type = '||p_object_type);
5432: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5433: g_Module || l_Api_Name,
5434: '910:Object Code = '||p_object_code);
5435: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5436: g_Module || l_Api_Name,
5437: '910:Sequence Id = '||p_sequence_id);
5438: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5439: g_Module || l_Api_Name,
5434: '910:Object Code = '||p_object_code);
5435: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5436: g_Module || l_Api_Name,
5437: '910:Sequence Id = '||p_sequence_id);
5438: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5439: g_Module || l_Api_Name,
5440: '910:p_value_set_id = '||p_value_set_id);
5441: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5442: g_Module || l_Api_Name,
5437: '910:Sequence Id = '||p_sequence_id);
5438: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5439: g_Module || l_Api_Name,
5440: '910:p_value_set_id = '||p_value_set_id);
5441: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5442: g_Module || l_Api_Name,
5443: '910:p_object_value_type = '||p_object_value_type);
5444: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5445: g_Module || l_Api_Name,
5440: '910:p_value_set_id = '||p_value_set_id);
5441: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5442: g_Module || l_Api_Name,
5443: '910:p_object_value_type = '||p_object_value_type);
5444: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5445: g_Module || l_Api_Name,
5446: '910:p_object_value_code = '||p_object_value_code);
5447: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5448: g_Module || l_Api_Name,
5443: '910:p_object_value_type = '||p_object_value_type);
5444: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5445: g_Module || l_Api_Name,
5446: '910:p_object_value_code = '||p_object_value_code);
5447: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5448: g_Module || l_Api_Name,
5449: '910:p_line_number = '||p_line_number);
5450:
5451: END IF;
5471: CLOSE csr_get_rule_qst_values;
5472: l_final_document_value := l_question_value;
5473: end if;
5474:
5475: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5476: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5477: G_MODULE||l_api_name,
5478: '920:l_config_header_id = '||l_config_header_id);
5479: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5472: l_final_document_value := l_question_value;
5473: end if;
5474:
5475: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5476: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5477: G_MODULE||l_api_name,
5478: '920:l_config_header_id = '||l_config_header_id);
5479: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5480: g_Module || l_Api_Name,
5475: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5476: Fnd_Log.STRING(FND_LOG.LEVEL_PROCEDURE ,
5477: G_MODULE||l_api_name,
5478: '920:l_config_header_id = '||l_config_header_id);
5479: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5480: g_Module || l_Api_Name,
5481: '920:l_config_rev_nbr = '||l_config_rev_nbr);
5482: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5483: g_Module || l_Api_Name,
5478: '920:l_config_header_id = '||l_config_header_id);
5479: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5480: g_Module || l_Api_Name,
5481: '920:l_config_rev_nbr = '||l_config_rev_nbr);
5482: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5483: g_Module || l_Api_Name,
5484: '920:Question DataType = '||l_question_datatype);
5485: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5486: g_Module || l_Api_Name,
5481: '920:l_config_rev_nbr = '||l_config_rev_nbr);
5482: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5483: g_Module || l_Api_Name,
5484: '920:Question DataType = '||l_question_datatype);
5485: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
5486: g_Module || l_Api_Name,
5487: '920:l_final_document_value = '||l_final_document_value);
5488: END IF;
5489:
5491: Elsif (p_object_type = 'VARIABLE') THEN
5492: --get the document value from OKC_XPRT_DEVIATIONS_T
5493: --Find whether rule is at Header level or Line Level
5494: l_is_rule_line_level := is_rule_line_level(p_rule_id);
5495: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5496: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5497: G_MODULE||l_api_name,
5498: '920: l_is_rule_line_level = '||l_is_rule_line_level);
5499: END IF;
5492: --get the document value from OKC_XPRT_DEVIATIONS_T
5493: --Find whether rule is at Header level or Line Level
5494: l_is_rule_line_level := is_rule_line_level(p_rule_id);
5495: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5496: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5497: G_MODULE||l_api_name,
5498: '920: l_is_rule_line_level = '||l_is_rule_line_level);
5499: END IF;
5500: --If rule is at header level and variable code is Item or Item Category then get
5506: ELSE
5507: OPEN csr_variable_value(p_object_code);
5508: FETCH csr_variable_value INTO l_variable_value;
5509: CLOSE csr_variable_value;
5510: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5512: G_MODULE||l_api_name,
5513: '920: Varialbe Value from xprt_deviations_T table = '||l_variable_value);
5514: END IF;
5507: OPEN csr_variable_value(p_object_code);
5508: FETCH csr_variable_value INTO l_variable_value;
5509: CLOSE csr_variable_value;
5510: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5511: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5512: G_MODULE||l_api_name,
5513: '920: Varialbe Value from xprt_deviations_T table = '||l_variable_value);
5514: END IF;
5515: --Bug#5148503 If l_variable_value is null then check whether we can find variable_value
5520: IF(l_variable_value is NUll) THEN
5521: OPEN csr_variable_value('USER$'||p_object_code);
5522: FETCH csr_variable_value INTO l_variable_value;
5523: CLOSE csr_variable_value;
5524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5526: '922: Varialbe Value for USER$'||p_object_code||'='||l_variable_value);
5527: END IF;
5528: if(l_variable_value is not null) then
5521: OPEN csr_variable_value('USER$'||p_object_code);
5522: FETCH csr_variable_value INTO l_variable_value;
5523: CLOSE csr_variable_value;
5524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5526: '922: Varialbe Value for USER$'||p_object_code||'='||l_variable_value);
5527: END IF;
5528: if(l_variable_value is not null) then
5529: l_user_defined_var := 'Y';
5544: CLOSE csr_translated_value;
5545: END IF;
5546: l_final_document_value := l_variable_translated_value;
5547: END IF; --IF(l_is_rule_line_level
5548: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5550: G_MODULE||l_api_name,
5551: '920: Translated Document Value = '||l_variable_translated_value);
5552: END IF;
5545: END IF;
5546: l_final_document_value := l_variable_translated_value;
5547: END IF; --IF(l_is_rule_line_level
5548: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5550: G_MODULE||l_api_name,
5551: '920: Translated Document Value = '||l_variable_translated_value);
5552: END IF;
5553:
5563: l_sql_stmt := 'SELECT '||l_name_col||' , '||l_id_col||
5564: ' FROM '||l_table_name||' '||
5565: l_additional_where_clause ;
5566:
5567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5569: G_MODULE||l_api_name,
5570: '930: l_table_name '||l_table_name);
5571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5564: ' FROM '||l_table_name||' '||
5565: l_additional_where_clause ;
5566:
5567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5569: G_MODULE||l_api_name,
5570: '930: l_table_name '||l_table_name);
5571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5572: G_MODULE||l_api_name,
5567: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5568: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5569: G_MODULE||l_api_name,
5570: '930: l_table_name '||l_table_name);
5571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5572: G_MODULE||l_api_name,
5573: '930: l_name_col '||l_name_col);
5574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5575: G_MODULE||l_api_name,
5570: '930: l_table_name '||l_table_name);
5571: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5572: G_MODULE||l_api_name,
5573: '930: l_name_col '||l_name_col);
5574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5575: G_MODULE||l_api_name,
5576: '930: l_id_col '||l_id_col);
5577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5578: G_MODULE||l_api_name,
5573: '930: l_name_col '||l_name_col);
5574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5575: G_MODULE||l_api_name,
5576: '930: l_id_col '||l_id_col);
5577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5578: G_MODULE||l_api_name,
5579: '930: l_additional_where_clause '||l_additional_where_clause);
5580: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5581: G_MODULE||l_api_name,
5576: '930: l_id_col '||l_id_col);
5577: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5578: G_MODULE||l_api_name,
5579: '930: l_additional_where_clause '||l_additional_where_clause);
5580: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5581: G_MODULE||l_api_name,
5582: '930: SQL STMT '||l_sql_stmt);
5583: END IF;
5584:
5587: OPEN c_cursor FOR l_sql_stmt;
5588: LOOP
5589: FETCH c_cursor INTO tempName, tempId;
5590: EXIT WHEN c_cursor%NOTFOUND;
5591: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5592: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5593: G_MODULE||l_api_name,
5594: '931: tempName = '||tempName || ',tempId = '||tempId);
5595: END IF;
5588: LOOP
5589: FETCH c_cursor INTO tempName, tempId;
5590: EXIT WHEN c_cursor%NOTFOUND;
5591: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5592: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5593: G_MODULE||l_api_name,
5594: '931: tempName = '||tempName || ',tempId = '||tempId);
5595: END IF;
5596: if(tempId = l_variable_value) then
5599: end if;
5600: END LOOP;
5601: CLOSE c_cursor;
5602: ELSE --Bug 5255911 added else block
5603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5604: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5605: G_MODULE||l_api_name,
5606: '932: l_table_name is null');
5607: END IF;
5600: END LOOP;
5601: CLOSE c_cursor;
5602: ELSE --Bug 5255911 added else block
5603: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5604: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5605: G_MODULE||l_api_name,
5606: '932: l_table_name is null');
5607: END IF;
5608: --could not find translated value.So make final value as is as variable value
5613: END IF; --end IF(l_variable_value is not
5614: END IF; --IF(p_object_type = 'QUESTION'
5615:
5616: -- end debug log
5617: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5619: G_MODULE||l_api_name,
5620: '940: final document Value = '||l_final_document_value);
5621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5614: END IF; --IF(p_object_type = 'QUESTION'
5615:
5616: -- end debug log
5617: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5619: G_MODULE||l_api_name,
5620: '940: final document Value = '||l_final_document_value);
5621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5622: G_MODULE||l_api_name,
5617: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5619: G_MODULE||l_api_name,
5620: '940: final document Value = '||l_final_document_value);
5621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5622: G_MODULE||l_api_name,
5623: '940: Leaving '||G_PKG_NAME ||'.'||l_api_name);
5624: END IF;
5625:
5650: END IF;
5651: IF c_cursor%ISOPEN THEN
5652: CLOSE c_cursor;
5653: END IF;
5654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5656: G_MODULE||l_api_name,
5657: '950: Leaving '||G_PKG_NAME ||'.'||l_api_name);
5658: END IF;
5651: IF c_cursor%ISOPEN THEN
5652: CLOSE c_cursor;
5653: END IF;
5654: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5655: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
5656: G_MODULE||l_api_name,
5657: '950: Leaving '||G_PKG_NAME ||'.'||l_api_name);
5658: END IF;
5659: RETURN NULL;
6083:
6084:
6085: BEGIN
6086: -- start debug log
6087: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6089: G_MODULE||l_api_name,
6090: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6091: END IF;
6084:
6085: BEGIN
6086: -- start debug log
6087: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6088: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6089: G_MODULE||l_api_name,
6090: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6091: END IF;
6092:
6105: -- commit work
6106: commit work;
6107:
6108: -- end debug log
6109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6111: G_MODULE||l_api_name,
6112: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6113: END IF;
6106: commit work;
6107:
6108: -- end debug log
6109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6111: G_MODULE||l_api_name,
6112: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6113: END IF;
6114:
6113: END IF;
6114:
6115: EXCEPTION
6116: WHEN FND_API.G_EXC_ERROR THEN
6117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6118: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6119: G_MODULE||l_api_name,
6120: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6121: END IF;
6114:
6115: EXCEPTION
6116: WHEN FND_API.G_EXC_ERROR THEN
6117: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6118: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6119: G_MODULE||l_api_name,
6120: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6121: END IF;
6122:
6124: x_msg_data := SQLERRM;
6125: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6126:
6127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6129: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6130: G_MODULE||l_api_name,
6131: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6132: END IF;
6125: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6126:
6127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6128: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6129: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6130: G_MODULE||l_api_name,
6131: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6132: END IF;
6133:
6135: x_msg_data := SQLERRM;
6136: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6137:
6138: WHEN OTHERS THEN
6139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6141: G_MODULE||l_api_name,
6142: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6143: END IF;
6136: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6137:
6138: WHEN OTHERS THEN
6139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6141: G_MODULE||l_api_name,
6142: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6143: END IF;
6144:
6212:
6213: BEGIN
6214:
6215: -- start debug log
6216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6218: G_MODULE||l_api_name,
6219: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6213: BEGIN
6214:
6215: -- start debug log
6216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6218: G_MODULE||l_api_name,
6219: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6221: G_MODULE||l_api_name,
6216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6218: G_MODULE||l_api_name,
6219: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6221: G_MODULE||l_api_name,
6222: 'Parameter : '||p_qa_mode);
6223: END IF;
6224:
6288: END IF; -- qa had errors
6289:
6290:
6291: -- end debug log
6292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6293: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6294: G_MODULE||l_api_name,
6295: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6296: END IF;
6289:
6290:
6291: -- end debug log
6292: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6293: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6294: G_MODULE||l_api_name,
6295: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6296: END IF;
6297:
6296: END IF;
6297:
6298: EXCEPTION
6299: WHEN FND_API.G_EXC_ERROR THEN
6300: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6301: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6302: G_MODULE||l_api_name,
6303: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6304: END IF;
6297:
6298: EXCEPTION
6299: WHEN FND_API.G_EXC_ERROR THEN
6300: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6301: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6302: G_MODULE||l_api_name,
6303: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6304: END IF;
6305:
6306: x_return_status := G_RET_STS_ERROR ;
6307: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6308:
6309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6312: G_MODULE||l_api_name,
6313: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6314: END IF;
6307: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6308:
6309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6310: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6312: G_MODULE||l_api_name,
6313: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6314: END IF;
6315:
6316: x_return_status := G_RET_STS_UNEXP_ERROR ;
6317: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6318:
6319: WHEN OTHERS THEN
6320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6321: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6322: G_MODULE||l_api_name,
6323: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6324: END IF;
6317: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6318:
6319: WHEN OTHERS THEN
6320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6321: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6322: G_MODULE||l_api_name,
6323: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6324: END IF;
6325:
6416: l_ret_value VARCHAR2(1) := 'N';
6417: l_api_name CONSTANT VARCHAR2(30) := 'is_value_set_changed';
6418: BEGIN
6419: -- start debug log
6420: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6421: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6422: G_MODULE||l_api_name,
6423: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
6424: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6417: l_api_name CONSTANT VARCHAR2(30) := 'is_value_set_changed';
6418: BEGIN
6419: -- start debug log
6420: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6421: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6422: G_MODULE||l_api_name,
6423: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
6424: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6425: g_Module || l_Api_Name,
6420: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6421: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6422: G_MODULE||l_api_name,
6423: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
6424: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6425: g_Module || l_Api_Name,
6426: '910: Parameters passed: -----------------------');
6427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6428: G_MODULE||l_api_name,
6423: '900: Entered '||G_PKG_NAME ||'.'||l_api_name);
6424: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6425: g_Module || l_Api_Name,
6426: '910: Parameters passed: -----------------------');
6427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6428: G_MODULE||l_api_name,
6429: '910:p_object_code = '||p_object_code);
6430: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6431: g_Module || l_Api_Name,
6426: '910: Parameters passed: -----------------------');
6427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6428: G_MODULE||l_api_name,
6429: '910:p_object_code = '||p_object_code);
6430: Fnd_Log.STRING(Fnd_Log.Level_Procedure,
6431: g_Module || l_Api_Name,
6432: '910:p_object_value_set_id = '||p_object_value_set_id);
6433: END IF;
6434: --end log
6433: END IF;
6434: --end log
6435: OPEN c1;
6436: FETCH c1 INTO l_value_set_id;
6437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6439: G_MODULE||l_api_name,
6440: '920: l_value_set_id '||l_value_set_id);
6441: END IF;
6434: --end log
6435: OPEN c1;
6436: FETCH c1 INTO l_value_set_id;
6437: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6438: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6439: G_MODULE||l_api_name,
6440: '920: l_value_set_id '||l_value_set_id);
6441: END IF;
6442: IF l_value_set_id <> p_object_value_set_id THEN
6442: IF l_value_set_id <> p_object_value_set_id THEN
6443: l_ret_value := 'Y';
6444: END IF;
6445: CLOSE c1;
6446: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6448: G_MODULE||l_api_name,
6449: '930: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6450: END IF;
6443: l_ret_value := 'Y';
6444: END IF;
6445: CLOSE c1;
6446: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6447: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6448: G_MODULE||l_api_name,
6449: '930: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6450: END IF;
6451: RETURN l_ret_value;
6454: WHEN OTHERS THEN
6455: IF c1%ISOPEN THEN
6456: CLOSE c1;
6457: END IF;
6458: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6459: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6460: G_MODULE||l_api_name,
6461: '940: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6462: END IF;
6455: IF c1%ISOPEN THEN
6456: CLOSE c1;
6457: END IF;
6458: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6459: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6460: G_MODULE||l_api_name,
6461: '940: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6462: END IF;
6463: RETURN 'N';
6558:
6559: BEGIN
6560:
6561: -- start debug log
6562: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6564: G_MODULE||l_api_name,
6565: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6566: END IF;
6559: BEGIN
6560:
6561: -- start debug log
6562: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6563: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6564: G_MODULE||l_api_name,
6565: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6566: END IF;
6567:
6618: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6619:
6620:
6621: -- end debug log
6622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6624: G_MODULE||l_api_name,
6625: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6626: END IF;
6619:
6620:
6621: -- end debug log
6622: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6623: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6624: G_MODULE||l_api_name,
6625: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6626: END IF;
6627:
6627:
6628:
6629: EXCEPTION
6630: WHEN OTHERS THEN
6631: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6633: G_MODULE||l_api_name,
6634: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6635: END IF;
6628:
6629: EXCEPTION
6630: WHEN OTHERS THEN
6631: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6633: G_MODULE||l_api_name,
6634: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6635: END IF;
6636: x_return_status := G_RET_STS_UNEXP_ERROR ;
6714: l_api_name CONSTANT VARCHAR2(30) := 'get_qa_code_detail';
6715:
6716: BEGIN
6717: -- start debug log
6718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6720: G_MODULE||l_api_name,
6721: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6722: END IF;
6715:
6716: BEGIN
6717: -- start debug log
6718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6720: G_MODULE||l_api_name,
6721: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6722: END IF;
6723:
6739: END IF;
6740: CLOSE l_get_qa_detail_csr;
6741:
6742: -- end debug log
6743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6745: G_MODULE||l_api_name,
6746: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6747: END IF;
6740: CLOSE l_get_qa_detail_csr;
6741:
6742: -- end debug log
6743: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6744: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6745: G_MODULE||l_api_name,
6746: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6747: END IF;
6748:
6748:
6749:
6750: EXCEPTION
6751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6752: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6753: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6754: G_MODULE||l_api_name,
6755: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6756: END IF;
6749:
6750: EXCEPTION
6751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6752: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6753: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6754: G_MODULE||l_api_name,
6755: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6756: END IF;
6757:
6761: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
6762: END IF;
6763:
6764: WHEN OTHERS THEN
6765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6767: G_MODULE||l_api_name,
6768: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6769: END IF;
6762: END IF;
6763:
6764: WHEN OTHERS THEN
6765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6767: G_MODULE||l_api_name,
6768: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6769: END IF;
6770: x_return_status := G_RET_STS_UNEXP_ERROR ;
6832:
6833: BEGIN
6834:
6835: -- start debug log
6836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6838: G_MODULE||l_api_name,
6839: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6840: END IF;
6833: BEGIN
6834:
6835: -- start debug log
6836: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6838: G_MODULE||l_api_name,
6839: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
6840: END IF;
6841:
6956: END IF; -- l_config_header_id is not null
6957: END IF;
6958:
6959: -- end debug log
6960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6962: G_MODULE||l_api_name,
6963: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6964: END IF;
6957: END IF;
6958:
6959: -- end debug log
6960: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6961: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6962: G_MODULE||l_api_name,
6963: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6964: END IF;
6965:
6965:
6966: EXCEPTION
6967:
6968: WHEN FND_API.G_EXC_ERROR THEN
6969: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6971: G_MODULE||l_api_name,
6972: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6973: END IF;
6966: EXCEPTION
6967:
6968: WHEN FND_API.G_EXC_ERROR THEN
6969: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6971: G_MODULE||l_api_name,
6972: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6973: END IF;
6974:
6978: p_data => x_msg_data
6979: );
6980:
6981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6982: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6983: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6984: G_MODULE||l_api_name,
6985: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6986: END IF;
6979: );
6980:
6981: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6982: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6983: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6984: G_MODULE||l_api_name,
6985: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6986: END IF;
6987:
6991: p_data => x_msg_data
6992: );
6993:
6994: WHEN OTHERS THEN
6995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6997: G_MODULE||l_api_name,
6998: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6999: END IF;
6992: );
6993:
6994: WHEN OTHERS THEN
6995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
6997: G_MODULE||l_api_name,
6998: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
6999: END IF;
7000:
7133: BEGIN
7134:
7135:
7136: -- start debug log
7137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7139: G_MODULE||l_api_name,
7140: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7134:
7135:
7136: -- start debug log
7137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7139: G_MODULE||l_api_name,
7140: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7142: G_MODULE||l_api_name,
7137: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7138: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7139: G_MODULE||l_api_name,
7140: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7142: G_MODULE||l_api_name,
7143: 'Parameters : ');
7144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7145: G_MODULE||l_api_name,
7140: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7141: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7142: G_MODULE||l_api_name,
7143: 'Parameters : ');
7144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7145: G_MODULE||l_api_name,
7146: 'p_document_id : '||p_document_id);
7147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7148: G_MODULE||l_api_name,
7143: 'Parameters : ');
7144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7145: G_MODULE||l_api_name,
7146: 'p_document_id : '||p_document_id);
7147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7148: G_MODULE||l_api_name,
7149: 'p_document_type : '||p_document_type);
7150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7151: G_MODULE||l_api_name,
7146: 'p_document_id : '||p_document_id);
7147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7148: G_MODULE||l_api_name,
7149: 'p_document_type : '||p_document_type);
7150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7151: G_MODULE||l_api_name,
7152: 'p_config_header_id : '||p_config_header_id);
7153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7154: G_MODULE||l_api_name,
7149: 'p_document_type : '||p_document_type);
7150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7151: G_MODULE||l_api_name,
7152: 'p_config_header_id : '||p_config_header_id);
7153: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7154: G_MODULE||l_api_name,
7155: 'p_config_rev_nbr : '||p_config_rev_nbr);
7156:
7157: END IF;
7261: END LOOP;
7262: END IF;
7263:
7264: -- end debug log
7265: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7266: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7267: G_MODULE||l_api_name,
7268: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7269: END IF;
7262: END IF;
7263:
7264: -- end debug log
7265: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7266: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7267: G_MODULE||l_api_name,
7268: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7269: END IF;
7270:
7345: BEGIN
7346:
7347:
7348: -- start debug log
7349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7351: G_MODULE||l_api_name,
7352: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7346:
7347:
7348: -- start debug log
7349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7351: G_MODULE||l_api_name,
7352: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7354: G_MODULE||l_api_name,
7349: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7350: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7351: G_MODULE||l_api_name,
7352: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7353: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7354: G_MODULE||l_api_name,
7355: 'Parameters : ');
7356: -- Add Logs for printing deviations rule tbl
7357: IF p_dev_rule_tbl IS NOT NULL THEN
7356: -- Add Logs for printing deviations rule tbl
7357: IF p_dev_rule_tbl IS NOT NULL THEN
7358: IF p_dev_rule_tbl.count > 0 THEN
7359: FOR i IN p_dev_rule_tbl.first..p_dev_rule_tbl.last LOOP
7360: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7361: G_MODULE||l_api_name,
7362: 'p_dev_rule_tbl.(' || i || ').line_number : ' || to_char(p_dev_rule_tbl(i).line_number));
7363: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7364: G_MODULE||l_api_name,
7359: FOR i IN p_dev_rule_tbl.first..p_dev_rule_tbl.last LOOP
7360: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7361: G_MODULE||l_api_name,
7362: 'p_dev_rule_tbl.(' || i || ').line_number : ' || to_char(p_dev_rule_tbl(i).line_number));
7363: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7364: G_MODULE||l_api_name,
7365: 'p_dev_rule_tbl.(' || i || ').rule_id : ' || to_char(p_dev_rule_tbl(i).rule_id));
7366: END LOOP;
7367: END IF;
7412: END LOOP;
7413: END LOOP;
7414:
7415: -- end debug log
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7418: G_MODULE||l_api_name,
7419: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7420: END IF;
7413: END LOOP;
7414:
7415: -- end debug log
7416: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7417: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7418: G_MODULE||l_api_name,
7419: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7420: END IF;
7421:
7494: BEGIN
7495:
7496:
7497: -- start debug log
7498: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7499: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7500: G_MODULE||l_api_name,
7501: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7495:
7496:
7497: -- start debug log
7498: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7499: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7500: G_MODULE||l_api_name,
7501: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7503: G_MODULE||l_api_name,
7498: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7499: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7500: G_MODULE||l_api_name,
7501: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7503: G_MODULE||l_api_name,
7504: 'Parameters : ');
7505: -- Add Logs for printing deviations rule variables tbl
7506: IF p_dev_rule_variables_tbl IS NOT NULL THEN
7506: IF p_dev_rule_variables_tbl IS NOT NULL THEN
7507: IF p_dev_rule_variables_tbl.count > 0 THEN
7508: FOR i IN p_dev_rule_variables_tbl.first..p_dev_rule_variables_tbl.last LOOP
7509: IF p_dev_rule_variables_tbl.EXISTS(i) THEN
7510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7511: G_MODULE||l_api_name,
7512: 'p_dev_rule_variables_tbl.(' || i || ').line_number : ' || to_char(p_dev_rule_variables_tbl(i).line_number));
7513: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7514: G_MODULE||l_api_name,
7509: IF p_dev_rule_variables_tbl.EXISTS(i) THEN
7510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7511: G_MODULE||l_api_name,
7512: 'p_dev_rule_variables_tbl.(' || i || ').line_number : ' || to_char(p_dev_rule_variables_tbl(i).line_number));
7513: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7514: G_MODULE||l_api_name,
7515: 'p_dev_rule_variables_tbl.(' || i || ').rule_id : ' || to_char(p_dev_rule_variables_tbl(i).rule_id));
7516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7517: G_MODULE||l_api_name,
7512: 'p_dev_rule_variables_tbl.(' || i || ').line_number : ' || to_char(p_dev_rule_variables_tbl(i).line_number));
7513: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7514: G_MODULE||l_api_name,
7515: 'p_dev_rule_variables_tbl.(' || i || ').rule_id : ' || to_char(p_dev_rule_variables_tbl(i).rule_id));
7516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7517: G_MODULE||l_api_name,
7518: 'p_dev_rule_variables_tbl.(' || i || ').variable_id : ' || to_char(p_dev_rule_variables_tbl(i).variable_id));
7519: END IF;
7520: END LOOP;
7579: END LOOP;
7580:
7581:
7582: -- end debug log
7583: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7584: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7585: G_MODULE||l_api_name,
7586: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7587: END IF;
7580:
7581:
7582: -- end debug log
7583: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7584: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7585: G_MODULE||l_api_name,
7586: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7587: END IF;
7588:
7671: BEGIN
7672:
7673:
7674: -- start debug log
7675: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7676: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7677: G_MODULE||l_api_name,
7678: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7672:
7673:
7674: -- start debug log
7675: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7676: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7677: G_MODULE||l_api_name,
7678: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7680: G_MODULE||l_api_name,
7675: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7676: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7677: G_MODULE||l_api_name,
7678: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7680: G_MODULE||l_api_name,
7681: 'Parameters : ');
7682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7683: G_MODULE||l_api_name,
7678: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7679: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7680: G_MODULE||l_api_name,
7681: 'Parameters : ');
7682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7683: G_MODULE||l_api_name,
7684: '101: p_config_header_id : '||p_config_header_id);
7685: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7686: G_MODULE||l_api_name,
7681: 'Parameters : ');
7682: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7683: G_MODULE||l_api_name,
7684: '101: p_config_header_id : '||p_config_header_id);
7685: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7686: G_MODULE||l_api_name,
7687: '101: p_config_rev_nbr : '||p_config_rev_nbr);
7688: -- Add Logs for printing deviations rule tbl
7689: IF p_dev_rule_questions_tbl IS NOT NULL THEN
7689: IF p_dev_rule_questions_tbl IS NOT NULL THEN
7690: IF p_dev_rule_questions_tbl.count > 0 THEN
7691: FOR i IN p_dev_rule_questions_tbl.first..p_dev_rule_questions_tbl.last LOOP
7692: IF p_dev_rule_questions_tbl.EXISTS(i) THEN
7693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7694: G_MODULE||l_api_name,
7695: 'p_dev_rule_questions_tbl.(' || i || ').rule_id : ' || to_char(p_dev_rule_questions_tbl(i).rule_id));
7696: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7697: G_MODULE||l_api_name,
7692: IF p_dev_rule_questions_tbl.EXISTS(i) THEN
7693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7694: G_MODULE||l_api_name,
7695: 'p_dev_rule_questions_tbl.(' || i || ').rule_id : ' || to_char(p_dev_rule_questions_tbl(i).rule_id));
7696: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7697: G_MODULE||l_api_name,
7698: 'p_dev_rule_questions_tbl.(' || i || ').question_id : ' || to_char(p_dev_rule_questions_tbl(i).question_id));
7699: END IF;
7700: END LOOP;
7755: END LOOP;
7756:
7757:
7758: -- end debug log
7759: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7760: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7761: G_MODULE||l_api_name,
7762: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7763: END IF;
7756:
7757:
7758: -- end debug log
7759: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7760: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7761: G_MODULE||l_api_name,
7762: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
7763: END IF;
7764:
7889:
7890: BEGIN
7891:
7892: -- start debug log
7893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7895: G_MODULE||l_api_name,
7896: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7890: BEGIN
7891:
7892: -- start debug log
7893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7895: G_MODULE||l_api_name,
7896: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7898: G_MODULE||l_api_name,
7893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7895: G_MODULE||l_api_name,
7896: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7898: G_MODULE||l_api_name,
7899: 'Parameters : ');
7900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7901: G_MODULE||l_api_name,
7896: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
7897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7898: G_MODULE||l_api_name,
7899: 'Parameters : ');
7900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7901: G_MODULE||l_api_name,
7902: '101: p_document_id : '||p_document_id);
7903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7904: G_MODULE||l_api_name,
7899: 'Parameters : ');
7900: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7901: G_MODULE||l_api_name,
7902: '101: p_document_id : '||p_document_id);
7903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7904: G_MODULE||l_api_name,
7905: '101: p_document_type : '||p_document_type);
7906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7907: G_MODULE||l_api_name,
7902: '101: p_document_id : '||p_document_id);
7903: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7904: G_MODULE||l_api_name,
7905: '101: p_document_type : '||p_document_type);
7906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7907: G_MODULE||l_api_name,
7908: '101: p_article_id : '||p_article_id);
7909: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7910: G_MODULE||l_api_name,
7905: '101: p_document_type : '||p_document_type);
7906: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7907: G_MODULE||l_api_name,
7908: '101: p_article_id : '||p_article_id);
7909: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
7910: G_MODULE||l_api_name,
7911: '101: p_effectivity_date : '||to_char(p_effectivity_date));
7912: END IF;
7913:
7964: OPEN csr_clause_details(p_article_id,l_article_version_id);
7965: FETCH csr_clause_details into x_article_title,x_article_description,l_article_number;
7966: CLOSE csr_clause_details;
7967:
7968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7969:
7970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7971: '102: x_article_id : '||l_article_id);
7972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7966: CLOSE csr_clause_details;
7967:
7968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7969:
7970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7971: '102: x_article_id : '||l_article_id);
7972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7973: '102: x_article_version_id : '||l_article_version_id);
7974: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7969:
7970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7971: '102: x_article_id : '||l_article_id);
7972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7973: '102: x_article_version_id : '||l_article_version_id);
7974: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7975: '102: x_doc_lib : '||l_doc_lib );
7976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7970: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7971: '102: x_article_id : '||l_article_id);
7972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7973: '102: x_article_version_id : '||l_article_version_id);
7974: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7975: '102: x_doc_lib : '||l_doc_lib );
7976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7977: '102: x_article_title : '||x_article_title);
7978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7972: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7973: '102: x_article_version_id : '||l_article_version_id);
7974: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7975: '102: x_doc_lib : '||l_doc_lib );
7976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7977: '102: x_article_title : '||x_article_title);
7978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7979: '102: x_article_description : '||x_article_description );
7980: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7974: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7975: '102: x_doc_lib : '||l_doc_lib );
7976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7977: '102: x_article_title : '||x_article_title);
7978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7979: '102: x_article_description : '||x_article_description );
7980: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7981: '102: l_article_number : '||l_article_number );
7982:
7976: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7977: '102: x_article_title : '||x_article_title);
7978: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7979: '102: x_article_description : '||x_article_description );
7980: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7981: '102: l_article_number : '||l_article_number );
7982:
7983: END IF;
7984:
7991: OPEN csr_clause_details(l_article_id,l_article_version_id);
7992: FETCH csr_clause_details into x_article_title,x_article_description,l_article_number;
7993: CLOSE csr_clause_details;
7994:
7995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7997: '103: l_article_id : '||l_article_id);
7998: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7999: '103: l_article_version_id : '||l_article_version_id);
7992: FETCH csr_clause_details into x_article_title,x_article_description,l_article_number;
7993: CLOSE csr_clause_details;
7994:
7995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7997: '103: l_article_id : '||l_article_id);
7998: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7999: '103: l_article_version_id : '||l_article_version_id);
8000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7994:
7995: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7997: '103: l_article_id : '||l_article_id);
7998: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7999: '103: l_article_version_id : '||l_article_version_id);
8000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8001: '103: x_article_title : '||x_article_title);
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7996: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7997: '103: l_article_id : '||l_article_id);
7998: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7999: '103: l_article_version_id : '||l_article_version_id);
8000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8001: '103: x_article_title : '||x_article_title);
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8003: '103: x_article_description : '||x_article_description );
8004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7998: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
7999: '103: l_article_version_id : '||l_article_version_id);
8000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8001: '103: x_article_title : '||x_article_title);
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8003: '103: x_article_description : '||x_article_description );
8004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8005: '103: l_article_number : '||l_article_number );
8006:
8000: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8001: '103: x_article_title : '||x_article_title);
8002: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8003: '103: x_article_description : '||x_article_description );
8004: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8005: '103: l_article_number : '||l_article_number );
8006:
8007:
8008: END IF;
8052: l_scn_code := l_xprt_scn_code;
8053: END IF;
8054: END IF; --end if for CLM
8055:
8056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8058: '104: l_def_scn_code : '||l_def_scn_code);
8059: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8060: '104: l_xprt_scn_code : '||l_xprt_scn_code);
8053: END IF;
8054: END IF; --end if for CLM
8055:
8056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8058: '104: l_def_scn_code : '||l_def_scn_code);
8059: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8060: '104: l_xprt_scn_code : '||l_xprt_scn_code);
8061: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8055:
8056: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8058: '104: l_def_scn_code : '||l_def_scn_code);
8059: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8060: '104: l_xprt_scn_code : '||l_xprt_scn_code);
8061: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8062: '104: l_scn_code : '|| l_scn_code);
8063: END IF;
8057: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8058: '104: l_def_scn_code : '||l_def_scn_code);
8059: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8060: '104: l_xprt_scn_code : '||l_xprt_scn_code);
8061: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
8062: '104: l_scn_code : '|| l_scn_code);
8063: END IF;
8064:
8065: --Bug#4865126 Need to pass l_scn_code.Not l_xprt_scn_code
8076: END IF;
8077:
8078:
8079: -- end debug log
8080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8082: G_MODULE||l_api_name,
8083: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8084: END IF;
8077:
8078:
8079: -- end debug log
8080: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8081: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8082: G_MODULE||l_api_name,
8083: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8084: END IF;
8085:
8190: BEGIN
8191:
8192:
8193: -- start debug log
8194: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8195: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8196: G_MODULE||l_api_name,
8197: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8198: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8191:
8192:
8193: -- start debug log
8194: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8195: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8196: G_MODULE||l_api_name,
8197: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8198: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8199: G_MODULE||l_api_name,
8194: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8195: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8196: G_MODULE||l_api_name,
8197: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8198: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8199: G_MODULE||l_api_name,
8200: 'Parameters : ');
8201: -- Add Logs for printing deviations rule tbl
8202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8198: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8199: G_MODULE||l_api_name,
8200: 'Parameters : ');
8201: -- Add Logs for printing deviations rule tbl
8202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8203: G_MODULE||l_api_name,
8204: '101: p_document_id : '||p_document_id);
8205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8206: G_MODULE||l_api_name,
8201: -- Add Logs for printing deviations rule tbl
8202: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8203: G_MODULE||l_api_name,
8204: '101: p_document_id : '||p_document_id);
8205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8206: G_MODULE||l_api_name,
8207: '101: p_document_type : '||p_document_type);
8208: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8209: G_MODULE||l_api_name,
8204: '101: p_document_id : '||p_document_id);
8205: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8206: G_MODULE||l_api_name,
8207: '101: p_document_type : '||p_document_type);
8208: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8209: G_MODULE||l_api_name,
8210: '101: p_sequence_id : '||p_sequence_id);
8211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8212: G_MODULE||l_api_name,
8207: '101: p_document_type : '||p_document_type);
8208: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8209: G_MODULE||l_api_name,
8210: '101: p_sequence_id : '||p_sequence_id);
8211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8212: G_MODULE||l_api_name,
8213: '101: p_config_header_id : '||p_config_header_id);
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8215: G_MODULE||l_api_name,
8210: '101: p_sequence_id : '||p_sequence_id);
8211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8212: G_MODULE||l_api_name,
8213: '101: p_config_header_id : '||p_config_header_id);
8214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8215: G_MODULE||l_api_name,
8216: '101: p_config_rev_nbr : '||p_config_rev_nbr);
8217: IF p_rule_qst_values_tbl IS NOT NULL THEN
8218: IF p_rule_qst_values_tbl.count > 0 THEN
8217: IF p_rule_qst_values_tbl IS NOT NULL THEN
8218: IF p_rule_qst_values_tbl.count > 0 THEN
8219: FOR i IN p_rule_qst_values_tbl.first..p_rule_qst_values_tbl.last LOOP
8220: IF p_rule_qst_values_tbl.EXISTS(i) THEN
8221: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8222: G_MODULE||l_api_name,
8223: 'p_rule_qst_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_qst_values_tbl(i).rule_id));
8224: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8225: G_MODULE||l_api_name,
8220: IF p_rule_qst_values_tbl.EXISTS(i) THEN
8221: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8222: G_MODULE||l_api_name,
8223: 'p_rule_qst_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_qst_values_tbl(i).rule_id));
8224: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8225: G_MODULE||l_api_name,
8226: 'p_rule_qst_values_tbl.(' || i || ').question_id : ' || to_char(p_rule_qst_values_tbl(i).question_id));
8227: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8228: G_MODULE||l_api_name,
8223: 'p_rule_qst_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_qst_values_tbl(i).rule_id));
8224: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8225: G_MODULE||l_api_name,
8226: 'p_rule_qst_values_tbl.(' || i || ').question_id : ' || to_char(p_rule_qst_values_tbl(i).question_id));
8227: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8228: G_MODULE||l_api_name,
8229: 'p_rule_qst_values_tbl.(' || i || ').question_value : ' || to_char(p_rule_qst_values_tbl(i).question_value));
8230: END IF;
8231: END LOOP;
8234: IF p_rule_var_values_tbl IS NOT NULL THEN
8235: IF p_rule_var_values_tbl.count > 0 THEN
8236: FOR i IN p_rule_var_values_tbl.first..p_rule_var_values_tbl.last LOOP
8237: IF p_rule_var_values_tbl.EXISTS(i) THEN
8238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8239: G_MODULE||l_api_name,
8240: 'p_rule_var_values_tbl.(' || i || ').line_number : ' || to_char(p_rule_var_values_tbl(i).line_number));
8241: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8242: G_MODULE||l_api_name,
8237: IF p_rule_var_values_tbl.EXISTS(i) THEN
8238: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8239: G_MODULE||l_api_name,
8240: 'p_rule_var_values_tbl.(' || i || ').line_number : ' || to_char(p_rule_var_values_tbl(i).line_number));
8241: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8242: G_MODULE||l_api_name,
8243: 'p_rule_var_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_var_values_tbl(i).rule_id));
8244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8245: G_MODULE||l_api_name,
8240: 'p_rule_var_values_tbl.(' || i || ').line_number : ' || to_char(p_rule_var_values_tbl(i).line_number));
8241: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8242: G_MODULE||l_api_name,
8243: 'p_rule_var_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_var_values_tbl(i).rule_id));
8244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8245: G_MODULE||l_api_name,
8246: 'p_rule_var_values_tbl.(' || i || ').variable_id : ' || to_char(p_rule_var_values_tbl(i).variable_id));
8247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8248: G_MODULE||l_api_name,
8243: 'p_rule_var_values_tbl.(' || i || ').rule_id : ' || to_char(p_rule_var_values_tbl(i).rule_id));
8244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8245: G_MODULE||l_api_name,
8246: 'p_rule_var_values_tbl.(' || i || ').variable_id : ' || to_char(p_rule_var_values_tbl(i).variable_id));
8247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8248: G_MODULE||l_api_name,
8249: 'p_rule_var_values_tbl.(' || i || ').variable_value : ' || p_rule_var_values_tbl(i).variable_value);
8250: END IF;
8251: END LOOP;
8254: IF p_clause_tbl IS NOT NULL THEN
8255: IF p_clause_tbl.count > 0 THEN
8256: FOR i IN p_clause_tbl.first..p_clause_tbl.last LOOP
8257: IF p_clause_tbl.EXISTS(i) THEN
8258: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8259: G_MODULE||l_api_name,
8260: 'p_clause_tbl.(' || i || ') : ' || to_char(p_clause_tbl(i)));
8261: END IF;
8262: END LOOP;
8526: END LOOP;
8527: END IF;
8528:
8529: -- end debug log
8530: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8531: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8532: G_MODULE||l_api_name,
8533: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8534: END IF;
8527: END IF;
8528:
8529: -- end debug log
8530: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8531: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8532: G_MODULE||l_api_name,
8533: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8534: END IF;
8535:
8606: BEGIN
8607:
8608:
8609: -- start debug log
8610: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8611: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8612: G_MODULE||l_api_name,
8613: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8607:
8608:
8609: -- start debug log
8610: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8611: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8612: G_MODULE||l_api_name,
8613: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8615: G_MODULE||l_api_name,
8610: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8611: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8612: G_MODULE||l_api_name,
8613: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
8614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8615: G_MODULE||l_api_name,
8616: 'Parameters : ');
8617: -- Add Logs for printing deviations rule tbl
8618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8614: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8615: G_MODULE||l_api_name,
8616: 'Parameters : ');
8617: -- Add Logs for printing deviations rule tbl
8618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8619: G_MODULE||l_api_name,
8620: '101: p_document_id : '||p_document_id);
8621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8622: G_MODULE||l_api_name,
8617: -- Add Logs for printing deviations rule tbl
8618: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8619: G_MODULE||l_api_name,
8620: '101: p_document_id : '||p_document_id);
8621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8622: G_MODULE||l_api_name,
8623: '101: p_document_type : '||p_document_type);
8624: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8625: G_MODULE||l_api_name,
8620: '101: p_document_id : '||p_document_id);
8621: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8622: G_MODULE||l_api_name,
8623: '101: p_document_type : '||p_document_type);
8624: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8625: G_MODULE||l_api_name,
8626: '101: p_config_header_id : '||p_config_header_id);
8627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8628: G_MODULE||l_api_name,
8623: '101: p_document_type : '||p_document_type);
8624: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8625: G_MODULE||l_api_name,
8626: '101: p_config_header_id : '||p_config_header_id);
8627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8628: G_MODULE||l_api_name,
8629: '101: p_config_rev_nbr : '||p_config_rev_nbr);
8630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8631: G_MODULE||l_api_name,
8626: '101: p_config_header_id : '||p_config_header_id);
8627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8628: G_MODULE||l_api_name,
8629: '101: p_config_rev_nbr : '||p_config_rev_nbr);
8630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8631: G_MODULE||l_api_name,
8632: '101: p_mode : '||p_mode);
8633: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8634: G_MODULE||l_api_name,
8629: '101: p_config_rev_nbr : '||p_config_rev_nbr);
8630: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8631: G_MODULE||l_api_name,
8632: '101: p_mode : '||p_mode);
8633: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8634: G_MODULE||l_api_name,
8635: '101: p_sequence_id : '||p_sequence_id);
8636:
8637: END IF;
8669: x_return_status := FND_API.G_RET_STS_SUCCESS;
8670:
8671: -- Step 1: Get Document values from the Extension rule api
8672:
8673: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8674: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8675: G_MODULE||l_api_name,
8676: '110: Step 1: Get Document values from the Extension rule api');
8677: END IF;
8670:
8671: -- Step 1: Get Document values from the Extension rule api
8672:
8673: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8674: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8675: G_MODULE||l_api_name,
8676: '110: Step 1: Get Document values from the Extension rule api');
8677: END IF;
8678:
8698:
8699:
8700: -- Step 2: Insert values into okc_xprt_deviations_gt
8701:
8702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8704: G_MODULE||l_api_name,
8705: '120: Step 2: Insert values into okc_xprt_deviations_gt');
8706: END IF;
8699:
8700: -- Step 2: Insert values into okc_xprt_deviations_gt
8701:
8702: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8703: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8704: G_MODULE||l_api_name,
8705: '120: Step 2: Insert values into okc_xprt_deviations_gt');
8706: END IF;
8707:
8704: G_MODULE||l_api_name,
8705: '120: Step 2: Insert values into okc_xprt_deviations_gt');
8706: END IF;
8707:
8708: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8710: G_MODULE||l_api_name,
8711: '121: l_hdr_var_value_tbl.COUNT :' || TO_CHAR(l_hdr_var_value_tbl.COUNT));
8712: END IF;
8705: '120: Step 2: Insert values into okc_xprt_deviations_gt');
8706: END IF;
8707:
8708: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8709: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8710: G_MODULE||l_api_name,
8711: '121: l_hdr_var_value_tbl.COUNT :' || TO_CHAR(l_hdr_var_value_tbl.COUNT));
8712: END IF;
8713:
8714: IF l_hdr_var_value_tbl.COUNT > 0 THEN
8715:
8716: FOR i IN l_hdr_var_value_tbl.FIRST..l_hdr_var_value_tbl.LAST
8717: LOOP
8718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8720: G_MODULE||l_api_name,
8721: '122: l_hdr_var_value_tbl( '|| i || ').variable_code :' || l_hdr_var_value_tbl(i).variable_code);
8722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8715:
8716: FOR i IN l_hdr_var_value_tbl.FIRST..l_hdr_var_value_tbl.LAST
8717: LOOP
8718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8720: G_MODULE||l_api_name,
8721: '122: l_hdr_var_value_tbl( '|| i || ').variable_code :' || l_hdr_var_value_tbl(i).variable_code);
8722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8723: G_MODULE||l_api_name,
8718: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8719: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8720: G_MODULE||l_api_name,
8721: '122: l_hdr_var_value_tbl( '|| i || ').variable_code :' || l_hdr_var_value_tbl(i).variable_code);
8722: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8723: G_MODULE||l_api_name,
8724: '123: l_hdr_var_value_tbl( '|| i || ').variable_value_id :' || l_hdr_var_value_tbl(i).variable_value_id);
8725: END IF;
8726:
8750: END LOOP;
8751: END IF;
8752:
8753:
8754: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8755: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8756: G_MODULE||l_api_name,
8757: '124: l_line_sysvar_value_tbl.COUNT :' || TO_CHAR(l_line_sysvar_value_tbl.COUNT));
8758: END IF;
8751: END IF;
8752:
8753:
8754: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8755: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8756: G_MODULE||l_api_name,
8757: '124: l_line_sysvar_value_tbl.COUNT :' || TO_CHAR(l_line_sysvar_value_tbl.COUNT));
8758: END IF;
8759:
8761:
8762: FOR i IN l_line_sysvar_value_tbl.FIRST..l_line_sysvar_value_tbl.LAST
8763: LOOP
8764:
8765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8767: G_MODULE||l_api_name,
8768: '125: l_line_sysvar_value_tbl( '|| i || ').line_number :' || l_line_sysvar_value_tbl(i).line_number);
8769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8762: FOR i IN l_line_sysvar_value_tbl.FIRST..l_line_sysvar_value_tbl.LAST
8763: LOOP
8764:
8765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8767: G_MODULE||l_api_name,
8768: '125: l_line_sysvar_value_tbl( '|| i || ').line_number :' || l_line_sysvar_value_tbl(i).line_number);
8769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8770: G_MODULE||l_api_name,
8765: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8767: G_MODULE||l_api_name,
8768: '125: l_line_sysvar_value_tbl( '|| i || ').line_number :' || l_line_sysvar_value_tbl(i).line_number);
8769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8770: G_MODULE||l_api_name,
8771: '126: l_line_sysvar_value_tbl( '|| i || ').variable_code :' || l_line_sysvar_value_tbl(i).variable_code);
8772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8773: G_MODULE||l_api_name,
8768: '125: l_line_sysvar_value_tbl( '|| i || ').line_number :' || l_line_sysvar_value_tbl(i).line_number);
8769: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8770: G_MODULE||l_api_name,
8771: '126: l_line_sysvar_value_tbl( '|| i || ').variable_code :' || l_line_sysvar_value_tbl(i).variable_code);
8772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8773: G_MODULE||l_api_name,
8774: '127: l_line_sysvar_value_tbl( '|| i || ').variable_value :' || l_line_sysvar_value_tbl(i).variable_value);
8775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8776: G_MODULE||l_api_name,
8771: '126: l_line_sysvar_value_tbl( '|| i || ').variable_code :' || l_line_sysvar_value_tbl(i).variable_code);
8772: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8773: G_MODULE||l_api_name,
8774: '127: l_line_sysvar_value_tbl( '|| i || ').variable_value :' || l_line_sysvar_value_tbl(i).variable_value);
8775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8776: G_MODULE||l_api_name,
8777: '128: l_line_sysvar_value_tbl( '|| i || ').item_id :' || l_line_sysvar_value_tbl(i).item_id);
8778: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8779: G_MODULE||l_api_name,
8774: '127: l_line_sysvar_value_tbl( '|| i || ').variable_value :' || l_line_sysvar_value_tbl(i).variable_value);
8775: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8776: G_MODULE||l_api_name,
8777: '128: l_line_sysvar_value_tbl( '|| i || ').item_id :' || l_line_sysvar_value_tbl(i).item_id);
8778: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8779: G_MODULE||l_api_name,
8780: '129: l_line_sysvar_value_tbl( '|| i || ').org_id :' || l_line_sysvar_value_tbl(i).org_id);
8781: END IF;
8782:
8807:
8808:
8809: -- Step 3: Get Clauses and Deviations from cz_config_items_v
8810:
8811: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8812: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8813: G_MODULE||l_api_name,
8814: '130: Step 3: Get Clauses and Deviations from cz_config_items_v');
8815: END IF;
8808:
8809: -- Step 3: Get Clauses and Deviations from cz_config_items_v
8810:
8811: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8812: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8813: G_MODULE||l_api_name,
8814: '130: Step 3: Get Clauses and Deviations from cz_config_items_v');
8815: END IF;
8816:
8835:
8836:
8837: -- Step 4: For each Deviation rule get unique list of variables and Questions
8838:
8839: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8840: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8841: G_MODULE||l_api_name,
8842: '140: Step 4: For each Deviation rule get unique list of variables and Questions');
8843: END IF;
8836:
8837: -- Step 4: For each Deviation rule get unique list of variables and Questions
8838:
8839: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8840: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8841: G_MODULE||l_api_name,
8842: '140: Step 4: For each Deviation rule get unique list of variables and Questions');
8843: END IF;
8844:
8862:
8863: -- Step 5: For variables in rule get value from okc_xprt_deviations_gt
8864:
8865: IF l_rule_variables_tbl.COUNT > 0 THEN
8866: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8867: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8868: G_MODULE||l_api_name,
8869: '150: Step 5: For variables in rule get value from okc_xprt_deviations_gt');
8870: END IF;
8863: -- Step 5: For variables in rule get value from okc_xprt_deviations_gt
8864:
8865: IF l_rule_variables_tbl.COUNT > 0 THEN
8866: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8867: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8868: G_MODULE||l_api_name,
8869: '150: Step 5: For variables in rule get value from okc_xprt_deviations_gt');
8870: END IF;
8871:
8888:
8889: -- Step 6: For questions in rule get value from cz_config_items_v
8890:
8891: IF l_rule_questions_tbl.COUNT > 0 THEN
8892: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8893: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8894: G_MODULE||l_api_name,
8895: '160: Step 6: For questions in rule get value from cz_config_items_v');
8896: END IF;
8889: -- Step 6: For questions in rule get value from cz_config_items_v
8890:
8891: IF l_rule_questions_tbl.COUNT > 0 THEN
8892: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8893: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8894: G_MODULE||l_api_name,
8895: '160: Step 6: For questions in rule get value from cz_config_items_v');
8896: END IF;
8897:
8916: END IF;
8917:
8918: -- Step 7: Insert Clauses and Terms deviations into okc_terms_deviations_t
8919:
8920: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8922: G_MODULE||l_api_name,
8923: '170: Step 7: Insert Clauses and Terms deviations into okc_terms_deviations_t');
8924: END IF;
8917:
8918: -- Step 7: Insert Clauses and Terms deviations into okc_terms_deviations_t
8919:
8920: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8921: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8922: G_MODULE||l_api_name,
8923: '170: Step 7: Insert Clauses and Terms deviations into okc_terms_deviations_t');
8924: END IF;
8925:
8946: END IF;
8947:
8948:
8949: -- end debug log
8950: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8952: G_MODULE||l_api_name,
8953: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8954: END IF;
8947:
8948:
8949: -- end debug log
8950: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8951: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
8952: G_MODULE||l_api_name,
8953: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
8954: END IF;
8955:
9138: l_expert_not_applied_sev_e := 'E';
9139: l_expert_not_applied_sev_w := 'W';
9140:
9141: -- start debug log
9142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9144: G_MODULE||l_api_name,
9145: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
9146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9139: l_expert_not_applied_sev_w := 'W';
9140:
9141: -- start debug log
9142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9144: G_MODULE||l_api_name,
9145: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
9146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9147: G_MODULE||l_api_name,
9142: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9143: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9144: G_MODULE||l_api_name,
9145: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
9146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9147: G_MODULE||l_api_name,
9148: 'Parameters : ');
9149: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9150: G_MODULE||l_api_name,
9145: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
9146: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9147: G_MODULE||l_api_name,
9148: 'Parameters : ');
9149: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9150: G_MODULE||l_api_name,
9151: 'p_document_id : '||p_document_id);
9152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9153: G_MODULE||l_api_name,
9148: 'Parameters : ');
9149: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9150: G_MODULE||l_api_name,
9151: 'p_document_id : '||p_document_id);
9152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9153: G_MODULE||l_api_name,
9154: 'p_document_type : '||p_document_type);
9155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9156: G_MODULE||l_api_name,
9151: 'p_document_id : '||p_document_id);
9152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9153: G_MODULE||l_api_name,
9154: 'p_document_type : '||p_document_type);
9155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9156: G_MODULE||l_api_name,
9157: 'p_bv_mode : '||p_bv_mode);
9158: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9159: G_MODULE||l_api_name,
9154: 'p_document_type : '||p_document_type);
9155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9156: G_MODULE||l_api_name,
9157: 'p_bv_mode : '||p_bv_mode);
9158: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9159: G_MODULE||l_api_name,
9160: 'p_sequence_id : '||p_sequence_id);
9161:
9162: END IF;
9364: l_template_id,l_template_ce_enabled;
9365: CLOSE l_get_template_info_csr;
9366:
9367: -- debug log
9368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9370: G_MODULE||l_api_name,
9371: 'l_config_header_id : '||l_config_header_id);
9372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9365: CLOSE l_get_template_info_csr;
9366:
9367: -- debug log
9368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9370: G_MODULE||l_api_name,
9371: 'l_config_header_id : '||l_config_header_id);
9372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9373: G_MODULE||l_api_name,
9368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9370: G_MODULE||l_api_name,
9371: 'l_config_header_id : '||l_config_header_id);
9372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9373: G_MODULE||l_api_name,
9374: 'l_config_rev_nbr : '||l_config_rev_nbr);
9375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9376: G_MODULE||l_api_name,
9371: 'l_config_header_id : '||l_config_header_id);
9372: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9373: G_MODULE||l_api_name,
9374: 'l_config_rev_nbr : '||l_config_rev_nbr);
9375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9376: G_MODULE||l_api_name,
9377: 'l_ce_finish_flag : '||l_ce_finish_flag);
9378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9379: G_MODULE||l_api_name,
9374: 'l_config_rev_nbr : '||l_config_rev_nbr);
9375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9376: G_MODULE||l_api_name,
9377: 'l_ce_finish_flag : '||l_ce_finish_flag);
9378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9379: G_MODULE||l_api_name,
9380: 'l_template_id : '||l_template_id);
9381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9382: G_MODULE||l_api_name,
9377: 'l_ce_finish_flag : '||l_ce_finish_flag);
9378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9379: G_MODULE||l_api_name,
9380: 'l_template_id : '||l_template_id);
9381: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
9382: G_MODULE||l_api_name,
9383: 'l_template_ce_enabled : '||l_template_ce_enabled);
9384: END IF;
9385:
10239: p_data => x_msg_data
10240: );
10241:
10242: -- end debug log
10243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10245: G_MODULE||l_api_name,
10246: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10247: END IF;
10240: );
10241:
10242: -- end debug log
10243: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10244: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10245: G_MODULE||l_api_name,
10246: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10247: END IF;
10248:
10321: AND template_id = p_template_id;
10322:
10323: BEGIN
10324: -- start debug log
10325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10327: G_MODULE||l_api_name,
10328: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
10329: END IF;
10322:
10323: BEGIN
10324: -- start debug log
10325: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10326: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10327: G_MODULE||l_api_name,
10328: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
10329: END IF;
10330:
10364: END IF;
10365: CLOSE csr_tmpl_applied_yn;
10366:
10367: -- end debug log
10368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10370: G_MODULE||l_api_name,
10371: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10372: END IF;
10365: CLOSE csr_tmpl_applied_yn;
10366:
10367: -- end debug log
10368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10370: G_MODULE||l_api_name,
10371: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10372: END IF;
10373:
10373:
10374: EXCEPTION
10375:
10376: WHEN FND_API.G_EXC_ERROR THEN
10377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10379: G_MODULE||l_api_name,
10380: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10381: END IF;
10374: EXCEPTION
10375:
10376: WHEN FND_API.G_EXC_ERROR THEN
10377: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10378: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10379: G_MODULE||l_api_name,
10380: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10381: END IF;
10382:
10386: p_data => x_msg_data
10387: );
10388:
10389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10391: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10392: G_MODULE||l_api_name,
10393: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10394: END IF;
10387: );
10388:
10389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10390: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10391: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10392: G_MODULE||l_api_name,
10393: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10394: END IF;
10395:
10399: p_data => x_msg_data
10400: );
10401:
10402: WHEN OTHERS THEN
10403: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10404: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10405: G_MODULE||l_api_name,
10406: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10407: END IF;
10400: );
10401:
10402: WHEN OTHERS THEN
10403: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10404: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10405: G_MODULE||l_api_name,
10406: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10407: END IF;
10408:
10468: AND t.template_id = p_template_id;
10469:
10470: BEGIN
10471: -- start debug log
10472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10474: G_MODULE||l_api_name,
10475: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
10476: END IF;
10469:
10470: BEGIN
10471: -- start debug log
10472: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10474: G_MODULE||l_api_name,
10475: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
10476: END IF;
10477:
10502: FETCH l_get_template_info_csr INTO x_config_header_id, x_config_rev_nbr, l_template_id, x_expert_enabled_yn;
10503: CLOSE l_get_template_info_csr;
10504:
10505: -- end debug log
10506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10507: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10508: G_MODULE||l_api_name,
10509: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10510: END IF;
10503: CLOSE l_get_template_info_csr;
10504:
10505: -- end debug log
10506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10507: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10508: G_MODULE||l_api_name,
10509: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10510: END IF;
10511:
10511:
10512: EXCEPTION
10513:
10514: WHEN FND_API.G_EXC_ERROR THEN
10515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10517: G_MODULE||l_api_name,
10518: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10519: END IF;
10512: EXCEPTION
10513:
10514: WHEN FND_API.G_EXC_ERROR THEN
10515: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10516: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10517: G_MODULE||l_api_name,
10518: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10519: END IF;
10520:
10524: p_data => x_msg_data
10525: );
10526:
10527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10528: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10529: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10530: G_MODULE||l_api_name,
10531: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10532: END IF;
10525: );
10526:
10527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10528: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10529: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10530: G_MODULE||l_api_name,
10531: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10532: END IF;
10533:
10537: p_data => x_msg_data
10538: );
10539:
10540: WHEN OTHERS THEN
10541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10543: G_MODULE||l_api_name,
10544: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10545: END IF;
10538: );
10539:
10540: WHEN OTHERS THEN
10541: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10542: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
10543: G_MODULE||l_api_name,
10544: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
10545: END IF;
10546:
10718:
10719: BEGIN
10720: l_result := 0;
10721:
10722: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10723: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entering is_config_complete ');
10724: END IF;
10725:
10726: OPEN doc_config_details_csr ;
10719: BEGIN
10720: l_result := 0;
10721:
10722: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10723: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entering is_config_complete ');
10724: END IF;
10725:
10726: OPEN doc_config_details_csr ;
10727: FETCH doc_config_details_csr into l_result;
10729: l_result := 0;
10730: END IF;
10731: CLOSE doc_config_details_csr ;
10732:
10733: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result is_config_complete : ['||l_result||']');
10735: END IF;
10736:
10737: IF l_result = 2 THEN
10730: END IF;
10731: CLOSE doc_config_details_csr ;
10732:
10733: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10734: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result is_config_complete : ['||l_result||']');
10735: END IF;
10736:
10737: IF l_result = 2 THEN
10738: RETURN 'Y';
10741: END IF;
10742:
10743: EXCEPTION
10744: WHEN OTHERS THEN
10745: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10746: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_config_complete of EXCEPTION: '||sqlerrm);
10747: END IF;
10748: RETURN 'E';
10749: END is_config_complete;
10742:
10743: EXCEPTION
10744: WHEN OTHERS THEN
10745: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10746: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving is_config_complete of EXCEPTION: '||sqlerrm);
10747: END IF;
10748: RETURN 'E';
10749: END is_config_complete;
10750:
10773:
10774: BEGIN
10775: l_return_val := 'N';
10776:
10777: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10778: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entering has_unanswered_questions ');
10779: END IF;
10780:
10781: OPEN doc_template_dtls_csr ;
10774: BEGIN
10775: l_return_val := 'N';
10776:
10777: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10778: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entering has_unanswered_questions ');
10779: END IF;
10780:
10781: OPEN doc_template_dtls_csr ;
10782: FETCH doc_template_dtls_csr into l_template_id, l_expert_enabled, l_contract_source, l_ce_finish_flag;
10821:
10822: END IF;
10823: END IF;
10824:
10825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result has_unanswered_questions : ['||l_return_val||']');
10827: END IF;
10828:
10829: RETURN l_return_val;
10822: END IF;
10823: END IF;
10824:
10825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: Result has_unanswered_questions : ['||l_return_val||']');
10827: END IF;
10828:
10829: RETURN l_return_val;
10830:
10829: RETURN l_return_val;
10830:
10831: EXCEPTION
10832: WHEN OTHERS THEN
10833: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10834: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving has_unanswered_questions of EXCEPTION: '||sqlerrm);
10835: END IF;
10836: RETURN 'E';
10837: END has_unanswered_questions;
10830:
10831: EXCEPTION
10832: WHEN OTHERS THEN
10833: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10834: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving has_unanswered_questions of EXCEPTION: '||sqlerrm);
10835: END IF;
10836: RETURN 'E';
10837: END has_unanswered_questions;
10838: