[Home] [Help]
154: l_esg_upg_cntrcts_tbl esg_upg_cntrcts_tbl_type;
155: l_khr_id NUMBER;
156: -- Common Local Variables
157: l_api_name CONSTANT VARCHAR2(30) := 'EFF_DATED_RBK_UPGRADE';
158: l_init_msg_list VARCHAR2(2000) := OKL_API.G_FALSE;
159: -- Local Variables specific to ESG request
160: l_request_id NUMBER;
161: l_trans_status VARCHAR2(100);
162: l_rep_request_id NUMBER;
160: l_request_id NUMBER;
161: l_trans_status VARCHAR2(100);
162: l_rep_request_id NUMBER;
163: l_rep_trans_status VARCHAR2(100);
164: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
165: l_msg_count NUMBER;
166: l_msg_data VARCHAR2(2000);
167: l_api_version CONSTANT NUMBER := 1.0;
168:
228: -- establish the external_id values for the contracts, if they don't have one.
229: OKL_LLA_UTIL_PVT.update_external_id(p_chr_id => l_esg_upg_cntrcts_tbl(i).khr_id,
230: x_return_status => l_return_status);
231:
232: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
233: THEN
234: log_msg(FND_FILE.LOG, 'Error: ' || SUBSTR(l_msg_data, 1, 2000) );
235: END IF;
236:
254: LPAD(l_time_taken, 10, ' ') || ' ' ||
255: SUBSTR(l_msg_data, 1, 2000)
256: , 1, 4000);
257: log_msg(FND_FILE.OUTPUT, l_text );
258: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
259: THEN
260: --Added by bkatraga for bug 10649684
261: x_msg_count := fnd_msg_pub.count_msg;
262: IF(x_msg_count > 0) THEN
296: EXCEPTION
297: ------------------------------------------------------------
298: -- Exception handling
299: ------------------------------------------------------------
300: WHEN Okl_Api.G_EXCEPTION_ERROR
301: THEN
302: l_return_status := Okl_Api.G_RET_STS_ERROR;
303: -- print the error message in the log file and output files
304: log_msg(FND_FILE.OUTPUT,'');
298: -- Exception handling
299: ------------------------------------------------------------
300: WHEN Okl_Api.G_EXCEPTION_ERROR
301: THEN
302: l_return_status := Okl_Api.G_RET_STS_ERROR;
303: -- print the error message in the log file and output files
304: log_msg(FND_FILE.OUTPUT,'');
305: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
306: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
313: END LOOP;
314: END IF;
315: retcode := 2;
316:
317: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
318: THEN
319: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
320: -- print the error message in the log file
321: log_msg(FND_FILE.OUTPUT,'');
315: retcode := 2;
316:
317: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR
318: THEN
319: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
320: -- print the error message in the log file
321: log_msg(FND_FILE.OUTPUT,'');
322: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
323: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
333: retcode := 2;
334:
335: WHEN OTHERS
336: THEN
337: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
338: -- print the error message in the log file
339: log_msg(FND_FILE.OUTPUT,'');
340: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));
341: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')
624: log_msg(FND_FILE.LOG, 'Number of Workers ' || TO_CHAR(l_num_workers) );
625: IF l_num_workers IS NULL OR l_num_workers <= 0
626: THEN
627: log_msg(FND_FILE.LOG, 'Please specify positive value for the Parameter "Number of Workers".');
628: RAISE OKL_API.G_EXCEPTION_ERROR;
629: END IF;
630: END IF; -- IF p_mode_of_run = 'SUBMIT'
631: IF p_criteria_set = 'REVISION'
632: THEN
632: THEN
633: IF p_in_transit_category IS NULL
634: THEN
635: log_msg(FND_FILE.LOG, 'Please select a valid In-Trasit Category.');
636: RAISE OKL_API.G_EXCEPTION_ERROR;
637: END IF;
638: END IF;
639: -- Select sequence for marking processes
640: SELECT okl_opp_seq.NEXTVAL