67: BEGIN
68: FND_MSG_PUB.Reset;
69:
70: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
71: l_msg_data := l_msg_data || FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE );
72: END LOOP;
73: IF (SQLERRM IS NOT NULL) THEN
74: l_msg_data := l_msg_data || SQLERRM;
75: END IF;
641: outandlog( message =>' Starting at ' || to_char(SYSDATE, 'HH24:MI:SS') );
642: outandlog( message =>' l_script_name :'||l_script_name);
643: outandlog( message =>' l_batch_size :'||l_batch_size );
644:
645: x_return_status := FND_API.G_RET_STS_SUCCESS;
646:
647: IF l_table_name IN ('JL_BR_AR_OCCURRENCE_DOCS_ALL','JL_BR_AR_MC_OCC_DOCS') THEN
648:
649: IF fnd_installation.get_app_info('JL',l_status,l_industry,l_schema) THEN
864: l_action_flag => 'R');
865:
866: END IF;
867:
868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
870: END IF;
871:
872:
865:
866: END IF;
867:
868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
870: END IF;
871:
872:
873: -- Updating record as successfull
885: errbuf := errbuf || logerror;
886: outandlog('Aborting concurrent program execution');
887: -- FND_FILE.close;
888:
889: WHEN FND_API.G_EXC_ERROR THEN
890: ROLLBACK TO upgrade_by_request;
891: outandlog('Error: ' || FND_MESSAGE.GET);
892: retcode := 1;
893: errbuf := errbuf || logerror;
894: outandlog('Aborting concurrent program execution');
895: -- FND_FILE.close;
896:
897:
898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
899: --JL raises FND api error
900: ROLLBACK TO upgrade_by_request;
901: outandlog('Error: ' || FND_MESSAGE.GET);
902: retcode := 1;
895: -- FND_FILE.close;
896:
897:
898: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
899: --JL raises FND api error
900: ROLLBACK TO upgrade_by_request;
901: outandlog('Error: ' || FND_MESSAGE.GET);
902: retcode := 1;
903: errbuf := errbuf || logerror;
1910:
1911: IF x_return_status = 'N' THEN
1912: RAISE nothing_to_run;
1913: ELSIF x_return_status = 'E' THEN
1914: RAISE fnd_api.G_EXC_ERROR;
1915: END IF;
1916:
1917:
1918: --------------------------