336: l_msg_ctr BINARY_INTEGER := 1;
337:
338: BEGIN
339:
340: fnd_file.put_line(FND_FILE.LOG,' ');
341: fnd_file.put_line(FND_FILE.LOG,'Entering OKS_K_ACTIONS_PVT.execute_qa_check_list');
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
337:
338: BEGIN
339:
340: fnd_file.put_line(FND_FILE.LOG,' ');
341: fnd_file.put_line(FND_FILE.LOG,'Entering OKS_K_ACTIONS_PVT.execute_qa_check_list');
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
338: BEGIN
339:
340: fnd_file.put_line(FND_FILE.LOG,' ');
341: fnd_file.put_line(FND_FILE.LOG,'Entering OKS_K_ACTIONS_PVT.execute_qa_check_list');
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
340: fnd_file.put_line(FND_FILE.LOG,' ');
341: fnd_file.put_line(FND_FILE.LOG,'Entering OKS_K_ACTIONS_PVT.execute_qa_check_list');
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
341: fnd_file.put_line(FND_FILE.LOG,'Entering OKS_K_ACTIONS_PVT.execute_qa_check_list');
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
342: fnd_file.put_line(FND_FILE.LOG,' ');
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
343:
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
344: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
345: fnd_file.put_line(FND_FILE.LOG,'Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
346: fnd_file.put_line(FND_FILE.LOG,'Start Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
354: fnd_file.put_line(FND_FILE.LOG,' ');
347: fnd_file.put_line(FND_FILE.LOG,'Parameters ');
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
354: fnd_file.put_line(FND_FILE.LOG,' ');
355:
348: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
354: fnd_file.put_line(FND_FILE.LOG,' ');
355:
356: OKC_QA_CHECK_PUB.execute_qa_check_list
349: fnd_file.put_line(FND_FILE.LOG,'p_api_version : '||p_api_version);
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
354: fnd_file.put_line(FND_FILE.LOG,' ');
355:
356: OKC_QA_CHECK_PUB.execute_qa_check_list
357: (
350: fnd_file.put_line(FND_FILE.LOG,'p_init_msg_list : '||p_init_msg_list);
351: fnd_file.put_line(FND_FILE.LOG,'p_chr_id : '||p_chr_id);
352: fnd_file.put_line(FND_FILE.LOG,'p_qcl_id : '||p_qcl_id);
353: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
354: fnd_file.put_line(FND_FILE.LOG,' ');
355:
356: OKC_QA_CHECK_PUB.execute_qa_check_list
357: (
358: p_api_version => p_api_version,
364: p_chr_id => p_chr_id,
365: x_msg_tbl => l_msg_tbl
366: );
367:
368: fnd_file.put_line(FND_FILE.LOG,' ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
365: x_msg_tbl => l_msg_tbl
366: );
367:
368: fnd_file.put_line(FND_FILE.LOG,' ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
366: );
367:
368: fnd_file.put_line(FND_FILE.LOG,' ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
367:
368: fnd_file.put_line(FND_FILE.LOG,' ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
368: fnd_file.put_line(FND_FILE.LOG,' ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
369: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
377: fnd_file.put_line(FND_FILE.LOG,' ');
370: fnd_file.put_line(FND_FILE.LOG,'AFTER Calling OKC_QA_CHECK_PUB.execute_qa_check_list');
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
377: fnd_file.put_line(FND_FILE.LOG,' ');
378:
371: fnd_file.put_line(FND_FILE.LOG,'End Time : '||to_char(sysdate,'DD-MON-YYYY HH24:MI:SSSS'));
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
377: fnd_file.put_line(FND_FILE.LOG,' ');
378:
379:
372: fnd_file.put_line(FND_FILE.LOG,'OUT Parameters ');
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
377: fnd_file.put_line(FND_FILE.LOG,' ');
378:
379:
380: -- bug 5329334
373: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
374: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||l_return_status);
375: fnd_file.put_line(FND_FILE.LOG,'x_msg_tbl.count : '||l_msg_tbl.count);
376: fnd_file.put_line(FND_FILE.LOG,'---------------------------------------------------------- ');
377: fnd_file.put_line(FND_FILE.LOG,' ');
378:
379:
380: -- bug 5329334
381: -- should loop thru l_msg_tbl(l_count).error_status to check if there are any qa errors
391:
392: -- Check if any of the QA checks have failed. If so write to log file
393: IF l_msg_tbl.count >0 THEN
394:
395: fnd_file.put_line(FND_FILE.LOG,'******** Following QA Errors occured ******** ');
396: fnd_file.put_line(FND_FILE.LOG,' ');
397:
398: l_count := l_msg_tbl.first;
399: LOOP
392: -- Check if any of the QA checks have failed. If so write to log file
393: IF l_msg_tbl.count >0 THEN
394:
395: fnd_file.put_line(FND_FILE.LOG,'******** Following QA Errors occured ******** ');
396: fnd_file.put_line(FND_FILE.LOG,' ');
397:
398: l_count := l_msg_tbl.first;
399: LOOP
400: IF l_msg_tbl(l_count).error_status='E' THEN
398: l_count := l_msg_tbl.first;
399: LOOP
400: IF l_msg_tbl(l_count).error_status='E' THEN
401: -- write to fnd_log file
402: fnd_file.put_line(FND_FILE.LOG,l_msg_ctr||' : '||l_msg_tbl(l_count).data);
403:
404: -- reset the out parameter to Error
405: x_return_status := 'E';
406:
412: l_count:=l_msg_tbl.next(l_count);
413: END LOOP;
414: END IF; -- l_msg_tbl.count >0
415:
416: fnd_file.put_line(FND_FILE.LOG,' ');
417: fnd_file.put_line(FND_FILE.LOG,'Leaving OKS_K_ACTIONS_PVT.execute_qa_check_list');
418: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||x_return_status);
419: fnd_file.put_line(FND_FILE.LOG,' ');
420:
413: END LOOP;
414: END IF; -- l_msg_tbl.count >0
415:
416: fnd_file.put_line(FND_FILE.LOG,' ');
417: fnd_file.put_line(FND_FILE.LOG,'Leaving OKS_K_ACTIONS_PVT.execute_qa_check_list');
418: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||x_return_status);
419: fnd_file.put_line(FND_FILE.LOG,' ');
420:
421: EXCEPTION
414: END IF; -- l_msg_tbl.count >0
415:
416: fnd_file.put_line(FND_FILE.LOG,' ');
417: fnd_file.put_line(FND_FILE.LOG,'Leaving OKS_K_ACTIONS_PVT.execute_qa_check_list');
418: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||x_return_status);
419: fnd_file.put_line(FND_FILE.LOG,' ');
420:
421: EXCEPTION
422: WHEN FND_API.G_EXC_ERROR THEN
415:
416: fnd_file.put_line(FND_FILE.LOG,' ');
417: fnd_file.put_line(FND_FILE.LOG,'Leaving OKS_K_ACTIONS_PVT.execute_qa_check_list');
418: fnd_file.put_line(FND_FILE.LOG,'x_return_status : '||x_return_status);
419: fnd_file.put_line(FND_FILE.LOG,' ');
420:
421: EXCEPTION
422: WHEN FND_API.G_EXC_ERROR THEN
423: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN