eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_PRB_UPGRADE_PVT dependencies on FND_FILE

Line 9: FND_FILE.PUT_LINE(p_destination, p_msg );

5: p_destination IN NUMBER
6: ,p_msg IN VARCHAR2)
7: IS
8: BEGIN
9: FND_FILE.PUT_LINE(p_destination, p_msg );
10: END;
11:
12: PROCEDURE log_n_print_msg(
13: p_msg IN VARCHAR2)

Line 16: FND_FILE.PUT_LINE(FND_FILE.LOG, p_msg );

12: PROCEDURE log_n_print_msg(
13: p_msg IN VARCHAR2)
14: IS
15: BEGIN
16: FND_FILE.PUT_LINE(FND_FILE.LOG, p_msg );
17: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_msg );
18: END;
19:
20: ------------------------------------------------------------------------------

Line 17: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_msg );

13: p_msg IN VARCHAR2)
14: IS
15: BEGIN
16: FND_FILE.PUT_LINE(FND_FILE.LOG, p_msg );
17: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_msg );
18: END;
19:
20: ------------------------------------------------------------------------------
21: -- Start of comments

Line 39: log_msg(FND_FILE.LOG, 'reamort_upgrade: Begin (+)' );

35: ,p_worker_id IN VARCHAR2
36: )
37: IS
38: BEGIN
39: log_msg(FND_FILE.LOG, 'reamort_upgrade: Begin (+)' );
40: log_msg(FND_FILE.LOG, 'reamort_upgrade: Before Calling API eff_dated_rbk_upgrade' );
41: eff_dated_rbk_upgrade(
42: errbuf => errbuf
43: ,retcode => retcode

Line 40: log_msg(FND_FILE.LOG, 'reamort_upgrade: Before Calling API eff_dated_rbk_upgrade' );

36: )
37: IS
38: BEGIN
39: log_msg(FND_FILE.LOG, 'reamort_upgrade: Begin (+)' );
40: log_msg(FND_FILE.LOG, 'reamort_upgrade: Before Calling API eff_dated_rbk_upgrade' );
41: eff_dated_rbk_upgrade(
42: errbuf => errbuf
43: ,retcode => retcode
44: ,p_worker_id => p_worker_id

Line 46: log_msg(FND_FILE.LOG, 'reamort_upgrade: retcode = ' || retcode );

42: errbuf => errbuf
43: ,retcode => retcode
44: ,p_worker_id => p_worker_id
45: );
46: log_msg(FND_FILE.LOG, 'reamort_upgrade: retcode = ' || retcode );
47: log_msg(FND_FILE.LOG, 'reamort_upgrade: End (-)' );
48: END reamort_upgrade;
49:
50: ------------------------------------------------------------------------------

Line 47: log_msg(FND_FILE.LOG, 'reamort_upgrade: End (-)' );

43: ,retcode => retcode
44: ,p_worker_id => p_worker_id
45: );
46: log_msg(FND_FILE.LOG, 'reamort_upgrade: retcode = ' || retcode );
47: log_msg(FND_FILE.LOG, 'reamort_upgrade: End (-)' );
48: END reamort_upgrade;
49:
50: ------------------------------------------------------------------------------
51: -- Start of comments

Line 93: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Begin (+)' );

89: ,p_no_of_workers IN NUMBER
90: )
91: IS
92: BEGIN
93: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Begin (+)' );
94: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Before Calling API eff_dated_rbk_upgrade_conc' );
95: eff_dated_rbk_upgrade_conc(
96: errbuf => errbuf
97: ,retcode => retcode

Line 94: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Before Calling API eff_dated_rbk_upgrade_conc' );

90: )
91: IS
92: BEGIN
93: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Begin (+)' );
94: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: Before Calling API eff_dated_rbk_upgrade_conc' );
95: eff_dated_rbk_upgrade_conc(
96: errbuf => errbuf
97: ,retcode => retcode
98: ,p_org_id => p_org_id

Line 117: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: retcode = ' || retcode );

113: ,p_mode_of_run => p_mode_of_run
114: ,p_tag_name => p_tag_name
115: ,p_no_of_workers => p_no_of_workers
116: );
117: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: retcode = ' || retcode );
118: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: End (-)' );
119: END;
120:
121: ------------------------------------------------------------------------------

Line 118: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: End (-)' );

114: ,p_tag_name => p_tag_name
115: ,p_no_of_workers => p_no_of_workers
116: );
117: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: retcode = ' || retcode );
118: log_msg(FND_FILE.LOG, 'reamort_upgrade_conc: End (-)' );
119: END;
120:
121: ------------------------------------------------------------------------------
122: -- Start of comments

Line 182: log_msg(FND_FILE.LOG, 'Parameters: ' );

178: l_time_taken NUMBER;
179: l_start_mark DATE;
180: BEGIN
181: -- Assign the input params to the Local Variables
182: log_msg(FND_FILE.LOG, 'Parameters: ' );
183: log_msg(FND_FILE.LOG, ' Worker ID = ' || p_worker_id );
184: -- Initialize the khr_index
185: khr_index := 0;
186: -- Fetch all the OKL Assets for which FA has generated Depreciation Transactions

Line 183: log_msg(FND_FILE.LOG, ' Worker ID = ' || p_worker_id );

179: l_start_mark DATE;
180: BEGIN
181: -- Assign the input params to the Local Variables
182: log_msg(FND_FILE.LOG, 'Parameters: ' );
183: log_msg(FND_FILE.LOG, ' Worker ID = ' || p_worker_id );
184: -- Initialize the khr_index
185: khr_index := 0;
186: -- Fetch all the OKL Assets for which FA has generated Depreciation Transactions
187: -- in the inputted Asset Book and Period

Line 188: log_msg(FND_FILE.LOG, 'Before Executing the Cursor get_esg_upgw_contracts_csr' );

184: -- Initialize the khr_index
185: khr_index := 0;
186: -- Fetch all the OKL Assets for which FA has generated Depreciation Transactions
187: -- in the inputted Asset Book and Period
188: log_msg(FND_FILE.LOG, 'Before Executing the Cursor get_esg_upgw_contracts_csr' );
189: OPEN get_esg_upgw_contracts_csr( p_worker_id => p_worker_id );
190: LOOP
191: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-Start: '
192: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

Line 191: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-Start: '

187: -- in the inputted Asset Book and Period
188: log_msg(FND_FILE.LOG, 'Before Executing the Cursor get_esg_upgw_contracts_csr' );
189: OPEN get_esg_upgw_contracts_csr( p_worker_id => p_worker_id );
190: LOOP
191: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-Start: '
192: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
193: FETCH get_esg_upgw_contracts_csr BULK COLLECT INTO l_esg_upg_cntrcts_tbl
194: LIMIT 10000;
195: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-End : '

Line 195: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-End : '

191: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-Start: '
192: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
193: FETCH get_esg_upgw_contracts_csr BULK COLLECT INTO l_esg_upg_cntrcts_tbl
194: LIMIT 10000;
195: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-End : '
196: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
197: -- Exit when there are no Assets to be Processed
198: EXIT WHEN get_esg_upgw_contracts_csr%ROWCOUNT = 0;
199: log_msg(FND_FILE.LOG, 'Number of Contracts to be Processed: ' || l_esg_upg_cntrcts_tbl.COUNT );

Line 199: log_msg(FND_FILE.LOG, 'Number of Contracts to be Processed: ' || l_esg_upg_cntrcts_tbl.COUNT );

195: log_msg(FND_FILE.LOG, 'After Executing the Cursor get_esg_upgw_contracts_csr-End : '
196: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
197: -- Exit when there are no Assets to be Processed
198: EXIT WHEN get_esg_upgw_contracts_csr%ROWCOUNT = 0;
199: log_msg(FND_FILE.LOG, 'Number of Contracts to be Processed: ' || l_esg_upg_cntrcts_tbl.COUNT );
200: IF l_esg_upg_cntrcts_tbl.COUNT > 0
201: THEN
202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');

Line 202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );

198: EXIT WHEN get_esg_upgw_contracts_csr%ROWCOUNT = 0;
199: log_msg(FND_FILE.LOG, 'Number of Contracts to be Processed: ' || l_esg_upg_cntrcts_tbl.COUNT );
200: IF l_esg_upg_cntrcts_tbl.COUNT > 0
201: THEN
202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');
204: log_msg(FND_FILE.OUTPUT, ' Number Trx Number Trx. Status Trx. Number Trx. Status Taken(Sec) Message ' );
205: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
206: FOR i IN l_esg_upg_cntrcts_tbl.FIRST .. l_esg_upg_cntrcts_tbl.LAST

Line 203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');

199: log_msg(FND_FILE.LOG, 'Number of Contracts to be Processed: ' || l_esg_upg_cntrcts_tbl.COUNT );
200: IF l_esg_upg_cntrcts_tbl.COUNT > 0
201: THEN
202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');
204: log_msg(FND_FILE.OUTPUT, ' Number Trx Number Trx. Status Trx. Number Trx. Status Taken(Sec) Message ' );
205: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
206: FOR i IN l_esg_upg_cntrcts_tbl.FIRST .. l_esg_upg_cntrcts_tbl.LAST
207: LOOP

Line 204: log_msg(FND_FILE.OUTPUT, ' Number Trx Number Trx. Status Trx. Number Trx. Status Taken(Sec) Message ' );

200: IF l_esg_upg_cntrcts_tbl.COUNT > 0
201: THEN
202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');
204: log_msg(FND_FILE.OUTPUT, ' Number Trx Number Trx. Status Trx. Number Trx. Status Taken(Sec) Message ' );
205: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
206: FOR i IN l_esg_upg_cntrcts_tbl.FIRST .. l_esg_upg_cntrcts_tbl.LAST
207: LOOP
208: -- Logic:

Line 205: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );

201: THEN
202: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
203: log_msg(FND_FILE.OUTPUT, 'Contract # Primary Secondary Time Error ');
204: log_msg(FND_FILE.OUTPUT, ' Number Trx Number Trx. Status Trx. Number Trx. Status Taken(Sec) Message ' );
205: log_msg(FND_FILE.OUTPUT, '------------------------------------------------------------------------------------------------------------------------------------' );
206: FOR i IN l_esg_upg_cntrcts_tbl.FIRST .. l_esg_upg_cntrcts_tbl.LAST
207: LOOP
208: -- Logic:
209: -- Frame the appropriate Parameters and call the Granular API

Line 222: log_msg(FND_FILE.LOG, 'ESG for ' || l_esg_upg_cntrcts_tbl(i).contract_number ||

218: l_request_id := NULL;
219: l_trans_status := NULL;
220: l_rep_request_id := NULL;
221: l_rep_trans_status := NULL;
222: log_msg(FND_FILE.LOG, 'ESG for ' || l_esg_upg_cntrcts_tbl(i).contract_number ||
223: ' - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
224: l_start_mark := SYSDATE;
225: l_time_taken := NULL;
226: l_text := NULL;

Line 234: log_msg(FND_FILE.LOG, 'Error: ' || SUBSTR(l_msg_data, 1, 2000) );

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:
237: okl_la_stream_pvt.upgrade_esg_khr_for_prb(
238: p_chr_id => l_esg_upg_cntrcts_tbl(i).khr_id

Line 247: log_msg(FND_FILE.LOG,'Return Status: ' || l_return_status );

243: ,x_trans_status => l_trans_status
244: ,x_rep_request_id => l_rep_request_id
245: ,x_rep_trans_status => l_rep_trans_status );
246: l_time_taken := ( SYSDATE - l_start_mark ) * 86400; -- To convert in seconds
247: log_msg(FND_FILE.LOG,'Return Status: ' || l_return_status );
248: l_text := SUBSTR(
249: RPAD(l_esg_upg_cntrcts_tbl(i).contract_number, 35, ' ' ) ||
250: LPAD(l_request_id, 10, ' ' ) || ' ' ||
251: RPAD(l_trans_status, 30, ' ' ) || ' ' ||

Line 257: log_msg(FND_FILE.OUTPUT, l_text );

253: RPAD(l_rep_trans_status, 30, ' ' ) || ' ' ||
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;

Line 271: log_msg (FND_FILE.LOG,'Error '||to_char(i)||': '||x_msg_data);

267: p_encoded => FND_API.G_FALSE,
268: p_data => x_msg_data,
269: p_msg_index_out => l_msg_index_out
270: );
271: log_msg (FND_FILE.LOG,'Error '||to_char(i)||': '||x_msg_data);
272: END LOOP;
273: fnd_msg_pub.delete_msg();
274: END IF;
275: --end bkatraga for bug 10649684

Line 278: log_msg(FND_FILE.LOG, 'ESG for ' || l_esg_upg_cntrcts_tbl(i).contract_number ||

274: END IF;
275: --end bkatraga for bug 10649684
276: END IF;
277: --Added by bkatraga for bug 10649684
278: log_msg(FND_FILE.LOG, 'ESG for ' || l_esg_upg_cntrcts_tbl(i).contract_number ||
279: ' - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
280: END LOOP; -- FOR i IN l_deprn_assets_tbl.FIRST .. l_deprn_assets_tbl.LAST
281: END IF; -- IF l_esg_upg_cntrcts_tbl.COUNT > 0
282: -- Exit When Cursor Has been Exhausted fetching all the Records

Line 287: log_msg(FND_FILE.LOG, 'Deletion of Processed Records - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

283: EXIT WHEN get_esg_upgw_contracts_csr%NOTFOUND;
284: END LOOP; -- Loop on get_esg_upgw_contracts_csr
285: CLOSE get_esg_upgw_contracts_csr; -- Close the Cursor
286: -- Now Delete all the processed records from parallel process table
287: log_msg(FND_FILE.LOG, 'Deletion of Processed Records - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
288: FORALL khr_index IN l_khr_id_tbl.FIRST .. l_khr_id_tbl.LAST
289: DELETE OKL_PARALLEL_PROCESSES opp
290: WHERE khr_id = l_khr_id_tbl(khr_index)
291: AND opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE -- 'ESG_PRB_UPGRADE_CONTRACT'

Line 293: log_msg(FND_FILE.LOG, 'Deletion of Processed Records - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

289: DELETE OKL_PARALLEL_PROCESSES opp
290: WHERE khr_id = l_khr_id_tbl(khr_index)
291: AND opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE -- 'ESG_PRB_UPGRADE_CONTRACT'
292: AND opp.assigned_process = p_worker_id; -- Fetch only this worker related contracts;
293: log_msg(FND_FILE.LOG, 'Deletion of Processed Records - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
294: -- Return the Proper Return status
295: retcode := 0; -- 0 Indicates 'S'uccess Status
296: EXCEPTION
297: ------------------------------------------------------------

Line 304: log_msg(FND_FILE.OUTPUT,'');

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')
307: ||' '||l_return_status);
308: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);

Line 305: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_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')
307: ||' '||l_return_status);
308: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
309: IF (l_outer_error_msg_tbl.COUNT > 0) THEN

Line 306: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')

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')
307: ||' '||l_return_status);
308: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
309: IF (l_outer_error_msg_tbl.COUNT > 0) THEN
310: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST

Line 312: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));

308: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
309: IF (l_outer_error_msg_tbl.COUNT > 0) THEN
310: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST
311: LOOP
312: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));
313: END LOOP;
314: END IF;
315: retcode := 2;
316:

Line 321: log_msg(FND_FILE.OUTPUT,'');

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')
324: ||' '||l_return_status);
325: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);

Line 322: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_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')
324: ||' '||l_return_status);
325: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
326: IF (l_outer_error_msg_tbl.COUNT > 0)

Line 323: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')

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')
324: ||' '||l_return_status);
325: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
326: IF (l_outer_error_msg_tbl.COUNT > 0)
327: THEN

Line 330: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));

326: IF (l_outer_error_msg_tbl.COUNT > 0)
327: THEN
328: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST
329: LOOP
330: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));
331: END LOOP;
332: END IF;
333: retcode := 2;
334:

Line 339: log_msg(FND_FILE.OUTPUT,'');

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')
342: ||' '||l_return_status);
343: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);

Line 340: log_msg(FND_FILE.OUTPUT,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_ERROR'));

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')
342: ||' '||l_return_status);
343: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
344: IF (l_outer_error_msg_tbl.COUNT > 0)

Line 341: log_msg(FND_FILE.LOG,FND_MESSAGE.GET_STRING('OKL','OKL_AGN_RPT_PROGRAM_STATUS')

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')
342: ||' '||l_return_status);
343: Okl_Accounting_Util.GET_ERROR_MESSAGE(l_outer_error_msg_tbl);
344: IF (l_outer_error_msg_tbl.COUNT > 0)
345: THEN

Line 348: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));

344: IF (l_outer_error_msg_tbl.COUNT > 0)
345: THEN
346: FOR i IN l_outer_error_msg_tbl.FIRST..l_outer_error_msg_tbl.LAST
347: LOOP
348: log_msg(FND_FILE.LOG, l_outer_error_msg_tbl(i));
349: END LOOP;
350: END IF;
351: errbuf := SQLERRM;
352: retcode := 2;

Line 538: log_msg(FND_FILE.LOG, 'Request Data= ' || req_data );

534: l_k_status VARCHAR2(5000);
535:
536: BEGIN
537: req_data := fnd_conc_global.request_data;
538: log_msg(FND_FILE.LOG, 'Request Data= ' || req_data );
539: IF req_data IS NOT NULL
540: THEN
541: --errbuf:='Done';
542: retcode := 0;

Line 543: log_msg(FND_FILE.LOG, 'Returning Out Successfully !' );

539: IF req_data IS NOT NULL
540: THEN
541: --errbuf:='Done';
542: retcode := 0;
543: log_msg(FND_FILE.LOG, 'Returning Out Successfully !' );
544: RETURN;
545: ELSE
546: log_msg(FND_FILE.LOG, 'MOAC Org Context : ' || mo_global.get_current_org_id );
547: l_start_date_low := FND_DATE.CANONICAL_TO_DATE( p_start_date_low );

Line 546: log_msg(FND_FILE.LOG, 'MOAC Org Context : ' || mo_global.get_current_org_id );

542: retcode := 0;
543: log_msg(FND_FILE.LOG, 'Returning Out Successfully !' );
544: RETURN;
545: ELSE
546: log_msg(FND_FILE.LOG, 'MOAC Org Context : ' || mo_global.get_current_org_id );
547: l_start_date_low := FND_DATE.CANONICAL_TO_DATE( p_start_date_low );
548: l_start_date_high := FND_DATE.CANONICAL_TO_DATE( p_start_date_high );
549: l_end_date_low := FND_DATE.CANONICAL_TO_DATE( p_end_date_low );
550: l_end_date_high := FND_DATE.CANONICAL_TO_DATE( p_end_date_high );

Line 614: log_msg(FND_FILE.LOG, FND_MESSAGE.GET_STRING('OKL', 'OKL_PRB_UPG_NOT_VALID'));

610: FROM okl_sys_acct_opts_all
611: WHERE org_id = p_org_id;
612: IF l_prb_enabled = 'N'
613: THEN
614: log_msg(FND_FILE.LOG, FND_MESSAGE.GET_STRING('OKL', 'OKL_PRB_UPG_NOT_VALID'));
615: RETURN;
616: END IF;
617: --
618: END IF; -- IF p_criteria_set = 'CONTRACT'

Line 624: log_msg(FND_FILE.LOG, 'Number of Workers ' || TO_CHAR(l_num_workers) );

620: IF p_mode_of_run = 'SUBMIT'
621: THEN
622: -- Fetch the Number of Workers to be Assigned
623: l_num_workers := p_no_of_workers; -- FND_PROFILE.VALUE(G_OKL_DEPRN_WORKERS);
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;

Line 627: log_msg(FND_FILE.LOG, 'Please specify positive value for the Parameter "Number of Workers".');

623: l_num_workers := p_no_of_workers; -- FND_PROFILE.VALUE(G_OKL_DEPRN_WORKERS);
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'

Line 635: log_msg(FND_FILE.LOG, 'Please select a valid In-Trasit Category.');

631: IF p_criteria_set = 'REVISION'
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

Line 643: log_msg(FND_FILE.LOG, 'Process Sequence ID: ' || l_seq_next );

639: -- Select sequence for marking processes
640: SELECT okl_opp_seq.NEXTVAL
641: INTO l_seq_next
642: FROM DUAL;
643: log_msg(FND_FILE.LOG, 'Process Sequence ID: ' || l_seq_next );
644: -- Fetch all Contracts eligible for Upgrade and Store them in OKL_PARALLEL_PROCESSES
645: log_msg(FND_FILE.LOG, 'Before calling the Bulk Insert into the OKL_PARALLEL_PROCESSES' );
646: l_query_string :=
647: 'INSERT INTO OKL_PARALLEL_PROCESSES(OBJECT_TYPE,OBJECT_VALUE,ASSIGNED_PROCESS' ||

Line 645: log_msg(FND_FILE.LOG, 'Before calling the Bulk Insert into the OKL_PARALLEL_PROCESSES' );

641: INTO l_seq_next
642: FROM DUAL;
643: log_msg(FND_FILE.LOG, 'Process Sequence ID: ' || l_seq_next );
644: -- Fetch all Contracts eligible for Upgrade and Store them in OKL_PARALLEL_PROCESSES
645: log_msg(FND_FILE.LOG, 'Before calling the Bulk Insert into the OKL_PARALLEL_PROCESSES' );
646: l_query_string :=
647: 'INSERT INTO OKL_PARALLEL_PROCESSES(OBJECT_TYPE,OBJECT_VALUE,ASSIGNED_PROCESS' ||
648: ',PROCESS_STATUS,CREATION_DATE,KHR_ID,VOLUME) ' ||
649: 'SELECT ''' || G_ESG_PRB_KHR_UPG_OBJ_TYPE || ''' ' || -- OBJECT_TYPE

Line 695: log_msg(FND_FILE.LOG,'Handling the Date Criteria: Start ');

691: IF p_khr_id IS NOT NULL
692: THEN
693: l_query_string := l_query_string || ' AND chr.id = ' || p_khr_id || ' ';
694: END IF;
695: log_msg(FND_FILE.LOG,'Handling the Date Criteria: Start ');
696: IF p_start_date_low IS NOT NULL THEN
697: l_query_string := l_query_string
698: || ' AND chr.start_date >= FND_DATE.CANONICAL_TO_DATE(''' ||p_start_date_low || ''') ';
699: END IF;

Line 712: log_msg(FND_FILE.LOG,'Handling the Date Criteria: End ');

708: IF p_end_date_high IS NOT NULL THEN
709: l_query_string := l_query_string
710: || ' AND chr.end_date <= FND_DATE.CANONICAL_TO_DATE(''' ||p_end_date_high || ''') ';
711: END IF;
712: log_msg(FND_FILE.LOG,'Handling the Date Criteria: End ');
713: IF p_pdt_id IS NOT NULL
714: THEN
715: l_query_string := l_query_string || ' AND pdt.id = ' || p_pdt_id || ' ';
716: END IF;

Line 776: log_msg(FND_FILE.LOG, 'Query has been formulated: Start' );

772:
773: -- Group By Clause: Addition
774: l_query_string := l_query_string || ' GROUP BY chr.contract_number, chr.id ';
775:
776: log_msg(FND_FILE.LOG, 'Query has been formulated: Start' );
777: log_msg(FND_FILE.LOG, l_query_string );
778: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
779: EXECUTE IMMEDIATE l_query_string;
780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

Line 777: log_msg(FND_FILE.LOG, l_query_string );

773: -- Group By Clause: Addition
774: l_query_string := l_query_string || ' GROUP BY chr.contract_number, chr.id ';
775:
776: log_msg(FND_FILE.LOG, 'Query has been formulated: Start' );
777: log_msg(FND_FILE.LOG, l_query_string );
778: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
779: EXECUTE IMMEDIATE l_query_string;
780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
781: -- Commit the Records

Line 778: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

774: l_query_string := l_query_string || ' GROUP BY chr.contract_number, chr.id ';
775:
776: log_msg(FND_FILE.LOG, 'Query has been formulated: Start' );
777: log_msg(FND_FILE.LOG, l_query_string );
778: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
779: EXECUTE IMMEDIATE l_query_string;
780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
781: -- Commit the Records
782: COMMIT;

Line 780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

776: log_msg(FND_FILE.LOG, 'Query has been formulated: Start' );
777: log_msg(FND_FILE.LOG, l_query_string );
778: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
779: EXECUTE IMMEDIATE l_query_string;
780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
781: -- Commit the Records
782: COMMIT;
783: log_msg(FND_FILE.LOG, 'Committed the Insertion of the OKL_PARALLEL_PROCESSES Records' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
784:

Line 783: log_msg(FND_FILE.LOG, 'Committed the Insertion of the OKL_PARALLEL_PROCESSES Records' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

779: EXECUTE IMMEDIATE l_query_string;
780: log_msg(FND_FILE.LOG, 'Executing the Formulated Query - End: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
781: -- Commit the Records
782: COMMIT;
783: log_msg(FND_FILE.LOG, 'Committed the Insertion of the OKL_PARALLEL_PROCESSES Records' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
784:
785:
786: -- For Reamort Upgrade, perform the following checks
787: IF p_criteria_set IN ( 'REAMORT' )

Line 790: log_msg(FND_FILE.LOG, 'Checking: Contract status should be Booked/Complete/Approved - Start: '

786: -- For Reamort Upgrade, perform the following checks
787: IF p_criteria_set IN ( 'REAMORT' )
788: THEN
789: -- Case 1: Contract status should be Booked/Complete/Approved
790: log_msg(FND_FILE.LOG, 'Checking: Contract status should be Booked/Complete/Approved - Start: '
791: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
792: UPDATE OKL_PARALLEL_PROCESSES opp
793: SET process_status = 'OKL_STATUS_INAPPROPRIATE'
794: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 803: log_msg(FND_FILE.LOG, 'Checking: Contract status should be Booked/Complete/Approved - End: '

799: FROM okc_k_headers_all_b chr
800: WHERE chr.id = opp.khr_id
801: AND chr.sts_code NOT IN ( 'COMPLETE','BOOKED','APPROVED' )
802: );
803: log_msg(FND_FILE.LOG, 'Checking: Contract status should be Booked/Complete/Approved - End: '
804: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
805:
806: -- Case 2: Contract do not have a transaction state (CLOB) already associated to it
807: log_msg(FND_FILE.LOG, 'Checking: Contract do not have a transaction state (CLOB) already associated to it - Start: '

Line 807: log_msg(FND_FILE.LOG, 'Checking: Contract do not have a transaction state (CLOB) already associated to it - Start: '

803: log_msg(FND_FILE.LOG, 'Checking: Contract status should be Booked/Complete/Approved - End: '
804: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
805:
806: -- Case 2: Contract do not have a transaction state (CLOB) already associated to it
807: log_msg(FND_FILE.LOG, 'Checking: Contract do not have a transaction state (CLOB) already associated to it - Start: '
808: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
809: UPDATE OKL_PARALLEL_PROCESSES opp
810: SET process_status = 'OKL_CLOB_EXISTS'
811: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 831: log_msg(FND_FILE.LOG, 'Checking: Contract do not have a transaction state (CLOB) already associated to it - End: '

827: osi.sis_code IN ('PROCESSING_REQUEST', 'RET_DATA_RECEIVED' )
828: )
829: )
830: );
831: log_msg(FND_FILE.LOG, 'Checking: Contract do not have a transaction state (CLOB) already associated to it - End: '
832: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
833:
834:
835: -- Case 3: Online Mass Rebook Not Processed

Line 836: log_msg(FND_FILE.LOG, 'Checking: Online Mass Rebook Not Processed - Start: '

832: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
833:
834:
835: -- Case 3: Online Mass Rebook Not Processed
836: log_msg(FND_FILE.LOG, 'Checking: Online Mass Rebook Not Processed - Start: '
837: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
838: UPDATE OKL_PARALLEL_PROCESSES opp
839: SET process_status = 'OKL_MRBK_NOT_PROCESSED'
840: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 851: log_msg(FND_FILE.LOG, 'Checking: Online Mass Rebook Not Processed - End: '

847: WHERE opp.khr_id = rsc.khr_id
848: AND rsc.transaction_id IS NULL
849: AND rsc.status <> 'PROCESSED'
850: );
851: log_msg(FND_FILE.LOG, 'Checking: Online Mass Rebook Not Processed - End: '
852: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
853:
854: -- Case 4: Online Rebook not Activated
855: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - Start: '

Line 855: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - Start: '

851: log_msg(FND_FILE.LOG, 'Checking: Online Mass Rebook Not Processed - End: '
852: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
853:
854: -- Case 4: Online Rebook not Activated
855: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - Start: '
856: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
857: UPDATE OKL_PARALLEL_PROCESSES opp
858: SET process_status = 'OKL_ONLINE_RBK_NOT_PROCESSED'
859: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 872: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - End: '

868: AND trx.rbr_code IS NOT NULL
869: AND trx.tcn_type = 'TRBK'
870: AND trx.representation_type = 'PRIMARY'
871: );
872: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - End: '
873: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
874:
875: -- Case 5: Residual Value Writedown not Processed
876: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - Start: '

Line 876: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - Start: '

872: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - End: '
873: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
874:
875: -- Case 5: Residual Value Writedown not Processed
876: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - Start: '
877: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
878: UPDATE OKL_PARALLEL_PROCESSES opp
879: SET process_status = 'OKL_RVWD_NOT_PROCESSED'
880: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 892: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - End: '

888: WHERE h.id = l.tas_id
889: AND h.tsu_code IN ('ENTERED','ERROR')
890: AND h.tas_type = 'ARC'
891: );
892: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - End: '
893: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
894:
895: -- Case 6: Termination Quote Not Accepted
896: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - Start: '

Line 896: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - Start: '

892: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - End: '
893: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
894:
895: -- Case 6: Termination Quote Not Accepted
896: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - Start: '
897: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
898: UPDATE OKL_PARALLEL_PROCESSES opp
899: SET process_status = 'OKL_TQ_NOT_ACCEPTED'
900: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 910: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - End: '

906: FROM okl_trx_quotes_b
907: WHERE partial_yn = 'Y'
908: AND qst_code NOT IN ('ACCEPTED','COMPLETE','IN_PROCESS')
909: );
910: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - End: '
911: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
912: END IF;
913:
914: -- Identify the contracts which are ineligible for upgrade. Following fall into that category:

Line 922: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and fails before trx created - Start: '

918:
919: IF p_criteria_set IN ('CONTRACT', 'REAMORT')
920: THEN
921: -- Case 1: TQ accepted and before it raised the termination transaction the quote failed
922: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and fails before trx created - Start: '
923: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
924: UPDATE OKL_PARALLEL_PROCESSES opp
925: SET process_status = 'OKL_REVISION_IN_PROGRESS'
926: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 941: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and fails before trx created - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

937: and q.khr_id = opp.khr_id
938: and q.id not in (select t.qte_id from okl_trx_contracts_all t where q.id = t.qte_id)
939: );
940:
941: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and fails before trx created - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
942:
943: -- Case 2: Termination transaction has been raised but the termination transaction phase has errored out
944: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
945:

Line 944: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

940:
941: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and fails before trx created - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
942:
943: -- Case 2: Termination transaction has been raised but the termination transaction phase has errored out
944: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
945:
946: UPDATE OKL_PARALLEL_PROCESSES opp
947: SET process_status = 'OKL_REVISION_IN_PROGRESS'
948: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 964: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

960: and t.tcn_type = 'ALT'
961: and t.tmt_status_code not in ('PROCESSED')
962: );
963:
964: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
965:
966: -- Case 3: Mass Rebook in progress
967: log_msg(FND_FILE.LOG, 'Checking: Mass Rebook in progress - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
968:

Line 967: log_msg(FND_FILE.LOG, 'Checking: Mass Rebook in progress - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

963:
964: log_msg(FND_FILE.LOG, 'Checking: TQ accepted and termination trx phase fails - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
965:
966: -- Case 3: Mass Rebook in progress
967: log_msg(FND_FILE.LOG, 'Checking: Mass Rebook in progress - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
968:
969: UPDATE OKL_PARALLEL_PROCESSES opp
970: SET process_status = 'OKL_REVISION_IN_PROGRESS'
971: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE

Line 990: log_msg(FND_FILE.LOG, 'Checking: Mass Rebook in progres - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

986: WHERE rbk_khr.khr_id = ktrx.khr_id
987: AND rbk_khr.status <> 'PROCESSED')
988: );
989:
990: log_msg(FND_FILE.LOG, 'Checking: Mass Rebook in progres - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
991: -- Finally Commiting: Marking the Contracts not eligible for the Upgrade
992: COMMIT;
993: END IF; -- IF p_criteria_set IN ('CONTRACT', 'REAMORT')
994:

Line 996: log_msg(FND_FILE.LOG, 'Opening the Cursor get_esg_upg_contracts_csr' );

992: COMMIT;
993: END IF; -- IF p_criteria_set IN ('CONTRACT', 'REAMORT')
994:
995: -- First of all fetch the Total Information into a PL/SQL table
996: log_msg(FND_FILE.LOG, 'Opening the Cursor get_esg_upg_contracts_csr' );
997: OPEN get_esg_upg_contracts_csr( p_process_sequence => TO_CHAR(l_seq_next) );
998: LOOP
999: -- Bulk Collect the Contracts which has Assets depreciated in the inputted
1000: -- Book Type and Period

Line 1001: log_msg(FND_FILE.LOG, 'Before Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

997: OPEN get_esg_upg_contracts_csr( p_process_sequence => TO_CHAR(l_seq_next) );
998: LOOP
999: -- Bulk Collect the Contracts which has Assets depreciated in the inputted
1000: -- Book Type and Period
1001: log_msg(FND_FILE.LOG, 'Before Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1002: FETCH get_esg_upg_contracts_csr BULK COLLECT INTO l_temp_upg_contracts_tbl
1003: LIMIT G_LIMIT_SIZE;
1004: log_msg(FND_FILE.LOG, 'After Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1005: log_msg(FND_FILE.LOG, 'Distinct Contracts fetched in this Loop ' || l_temp_upg_contracts_tbl.COUNT );

Line 1004: log_msg(FND_FILE.LOG, 'After Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1000: -- Book Type and Period
1001: log_msg(FND_FILE.LOG, 'Before Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1002: FETCH get_esg_upg_contracts_csr BULK COLLECT INTO l_temp_upg_contracts_tbl
1003: LIMIT G_LIMIT_SIZE;
1004: log_msg(FND_FILE.LOG, 'After Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1005: log_msg(FND_FILE.LOG, 'Distinct Contracts fetched in this Loop ' || l_temp_upg_contracts_tbl.COUNT );
1006: -- Exit Conditionally ..
1007: EXIT WHEN get_esg_upg_contracts_csr%ROWCOUNT = 0;
1008: -- Loop on the l_temp_upg_contracts_tbl and append the records at the end of the

Line 1005: log_msg(FND_FILE.LOG, 'Distinct Contracts fetched in this Loop ' || l_temp_upg_contracts_tbl.COUNT );

1001: log_msg(FND_FILE.LOG, 'Before Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1002: FETCH get_esg_upg_contracts_csr BULK COLLECT INTO l_temp_upg_contracts_tbl
1003: LIMIT G_LIMIT_SIZE;
1004: log_msg(FND_FILE.LOG, 'After Executing the fetch on the Cursor get_esg_upg_contracts_csr: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1005: log_msg(FND_FILE.LOG, 'Distinct Contracts fetched in this Loop ' || l_temp_upg_contracts_tbl.COUNT );
1006: -- Exit Conditionally ..
1007: EXIT WHEN get_esg_upg_contracts_csr%ROWCOUNT = 0;
1008: -- Loop on the l_temp_upg_contracts_tbl and append the records at the end of the
1009: -- l_upg_contracts_tbl / l_non_upg_contracts_tbl

Line 1010: log_msg(FND_FILE.LOG, 'Copying the Contracts [' || l_temp_upg_contracts_tbl.COUNT

1006: -- Exit Conditionally ..
1007: EXIT WHEN get_esg_upg_contracts_csr%ROWCOUNT = 0;
1008: -- Loop on the l_temp_upg_contracts_tbl and append the records at the end of the
1009: -- l_upg_contracts_tbl / l_non_upg_contracts_tbl
1010: log_msg(FND_FILE.LOG, 'Copying the Contracts [' || l_temp_upg_contracts_tbl.COUNT
1011: || '] fetched in this Loop - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1012: FOR i IN l_temp_upg_contracts_tbl.FIRST .. l_temp_upg_contracts_tbl.LAST
1013: LOOP
1014: IF l_temp_upg_contracts_tbl(i).status = 'PENDING_ASSIGNMENT'

Line 1025: log_msg(FND_FILE.LOG, 'Copying the Contracts [' || l_temp_upg_contracts_tbl.COUNT

1021: -- Increment the non_upg_index
1022: non_upg_index := non_upg_index + 1;
1023: END IF;
1024: END LOOP;
1025: log_msg(FND_FILE.LOG, 'Copying the Contracts [' || l_temp_upg_contracts_tbl.COUNT
1026: || '] fetched in this Loop - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1027: -- Delete the Temporary Table now ..
1028: l_temp_upg_contracts_tbl.DELETE;
1029: -- Exit when there are no Assets to be Processed

Line 1060: log_msg(FND_FILE.OUTPUT, ' ');

1056: END IF;
1057:
1058: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'CONTRACT', 'REVISION' )
1059: THEN
1060: log_msg(FND_FILE.OUTPUT, ' ');
1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');

Line 1061: log_msg(FND_FILE.OUTPUT, ' ');

1057:
1058: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'CONTRACT', 'REVISION' )
1059: THEN
1060: log_msg(FND_FILE.OUTPUT, ' ');
1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');

Line 1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );

1058: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'CONTRACT', 'REVISION' )
1059: THEN
1060: log_msg(FND_FILE.OUTPUT, ' ');
1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');
1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');

Line 1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );

1059: THEN
1060: log_msg(FND_FILE.OUTPUT, ' ');
1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');
1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');
1067: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST

Line 1064: log_msg(FND_FILE.OUTPUT, ' ');

1060: log_msg(FND_FILE.OUTPUT, ' ');
1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');
1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');
1067: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST
1068: LOOP

Line 1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');

1061: log_msg(FND_FILE.OUTPUT, ' ');
1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');
1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');
1067: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST
1068: LOOP
1069: SELECT b.meaning

Line 1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');

1062: log_msg(FND_FILE.OUTPUT, 'The following contracts cannot be upgraded as processing is in progress :' );
1063: log_msg(FND_FILE.OUTPUT, '-------------------------------------------------------------------------' );
1064: log_msg(FND_FILE.OUTPUT, ' ');
1065: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Status ');
1066: log_msg(FND_FILE.OUTPUT, '--------------------------------------------------------------------------------------------------');
1067: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST
1068: LOOP
1069: SELECT b.meaning
1070: INTO l_k_status

Line 1077: log_msg(FND_FILE.OUTPUT,

1073: WHERE a.contract_number = l_non_upg_contracts_tbl(non_upg_index).contract_number
1074: AND a.sts_code = b.code
1075: AND b.language = USERENV('LANG');
1076:
1077: log_msg(FND_FILE.OUTPUT,
1078: LPAD(non_upg_index+1, 8, ' ' ) || ' ' ||
1079: RPAD(l_non_upg_contracts_tbl(non_upg_index).contract_number, 43, ' ' ) ||
1080: ' - ' || l_k_status);
1081: END LOOP;

Line 1082: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');

1078: LPAD(non_upg_index+1, 8, ' ' ) || ' ' ||
1079: RPAD(l_non_upg_contracts_tbl(non_upg_index).contract_number, 43, ' ' ) ||
1080: ' - ' || l_k_status);
1081: END LOOP;
1082: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1083: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1084:
1085: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'REAMORT' )
1086: THEN

Line 1087: log_msg(FND_FILE.OUTPUT, ' ');

1083: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1084:
1085: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'REAMORT' )
1086: THEN
1087: log_msg(FND_FILE.OUTPUT, ' ');
1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );

Line 1088: log_msg(FND_FILE.OUTPUT, ' ');

1084:
1085: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'REAMORT' )
1086: THEN
1087: log_msg(FND_FILE.OUTPUT, ' ');
1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');

Line 1089: log_msg(FND_FILE.OUTPUT, '--------------------' );

1085: IF l_non_upg_contracts_tbl.COUNT > 0 AND p_criteria_set IN ( 'REAMORT' )
1086: THEN
1087: log_msg(FND_FILE.OUTPUT, ' ');
1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');

Line 1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );

1086: THEN
1087: log_msg(FND_FILE.OUTPUT, ' ');
1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');
1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

Line 1091: log_msg(FND_FILE.OUTPUT, '--------------------' );

1087: log_msg(FND_FILE.OUTPUT, ' ');
1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');
1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1095: l_k_status := '';

Line 1092: log_msg(FND_FILE.OUTPUT, ' ');

1088: log_msg(FND_FILE.OUTPUT, ' ');
1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');
1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1095: l_k_status := '';
1096: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST

Line 1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');

1089: log_msg(FND_FILE.OUTPUT, '--------------------' );
1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');
1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1095: l_k_status := '';
1096: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST
1097: LOOP

Line 1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

1090: log_msg(FND_FILE.OUTPUT, 'Excluded Contracts :' );
1091: log_msg(FND_FILE.OUTPUT, '--------------------' );
1092: log_msg(FND_FILE.OUTPUT, ' ');
1093: log_msg(FND_FILE.OUTPUT, 'SL. # Contract Number Exclusion Reason ');
1094: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1095: l_k_status := '';
1096: FOR non_upg_index IN l_non_upg_contracts_tbl.FIRST .. l_non_upg_contracts_tbl.LAST
1097: LOOP
1098: IF l_non_upg_contracts_tbl(non_upg_index).status = 'OKL_STATUS_INAPPROPRIATE'

Line 1121: log_msg(FND_FILE.OUTPUT,

1117: THEN
1118: l_k_status := 'Revision in Progress.';
1119: END IF;
1120:
1121: log_msg(FND_FILE.OUTPUT,
1122: LPAD(non_upg_index+1, 8, ' ' ) || ' ' ||
1123: RPAD(l_non_upg_contracts_tbl(non_upg_index).contract_number, 43, ' ' ) ||
1124: ' - ' || l_k_status);
1125: END LOOP;

Line 1126: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

1122: LPAD(non_upg_index+1, 8, ' ' ) || ' ' ||
1123: RPAD(l_non_upg_contracts_tbl(non_upg_index).contract_number, 43, ' ' ) ||
1124: ' - ' || l_k_status);
1125: END LOOP;
1126: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1127: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1128:
1129: IF l_upg_contracts_tbl.COUNT > 0
1130: THEN

Line 1131: log_msg(FND_FILE.OUTPUT, ' ');

1127: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1128:
1129: IF l_upg_contracts_tbl.COUNT > 0
1130: THEN
1131: log_msg(FND_FILE.OUTPUT, ' ');
1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');

Line 1132: log_msg(FND_FILE.OUTPUT, ' ');

1128:
1129: IF l_upg_contracts_tbl.COUNT > 0
1130: THEN
1131: log_msg(FND_FILE.OUTPUT, ' ');
1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');

Line 1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );

1129: IF l_upg_contracts_tbl.COUNT > 0
1130: THEN
1131: log_msg(FND_FILE.OUTPUT, ' ');
1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');

Line 1134: log_msg(FND_FILE.OUTPUT, '--------------------');

1130: THEN
1131: log_msg(FND_FILE.OUTPUT, ' ');
1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1138: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST

Line 1135: log_msg(FND_FILE.OUTPUT, ' ');

1131: log_msg(FND_FILE.OUTPUT, ' ');
1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1138: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1139: LOOP

Line 1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');

1132: log_msg(FND_FILE.OUTPUT, ' ');
1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1138: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1139: LOOP
1140: log_msg(FND_FILE.OUTPUT,LPAD(upg_index+1, 8, ' ' ) || ' ' ||

Line 1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');

1133: log_msg(FND_FILE.OUTPUT, 'Eligible Contracts :' );
1134: log_msg(FND_FILE.OUTPUT, '--------------------');
1135: log_msg(FND_FILE.OUTPUT, ' ');
1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1138: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1139: LOOP
1140: log_msg(FND_FILE.OUTPUT,LPAD(upg_index+1, 8, ' ' ) || ' ' ||
1141: l_upg_contracts_tbl(upg_index).contract_number);

Line 1140: log_msg(FND_FILE.OUTPUT,LPAD(upg_index+1, 8, ' ' ) || ' ' ||

1136: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number ');
1137: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1138: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1139: LOOP
1140: log_msg(FND_FILE.OUTPUT,LPAD(upg_index+1, 8, ' ' ) || ' ' ||
1141: l_upg_contracts_tbl(upg_index).contract_number);
1142: END LOOP;
1143: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1144: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0

Line 1143: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');

1139: LOOP
1140: log_msg(FND_FILE.OUTPUT,LPAD(upg_index+1, 8, ' ' ) || ' ' ||
1141: l_upg_contracts_tbl(upg_index).contract_number);
1142: END LOOP;
1143: log_msg(FND_FILE.OUTPUT, '----------------------------------------------------------------------------------------');
1144: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1145:
1146: IF p_mode_of_run = 'REVIEW' AND p_criteria_set IN ( 'REAMORT' )
1147: THEN

Line 1148: log_msg(FND_FILE.LOG, 'In REVIEW Mode and REAMORT Upgrade Program ' );

1144: END IF; -- IF l_non_upg_contracts_tbl.COUNT > 0
1145:
1146: IF p_mode_of_run = 'REVIEW' AND p_criteria_set IN ( 'REAMORT' )
1147: THEN
1148: log_msg(FND_FILE.LOG, 'In REVIEW Mode and REAMORT Upgrade Program ' );
1149: log_msg(FND_FILE.LOG, 'Start: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1150: -- Initialize the l_err_upg_index index
1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');

Line 1149: log_msg(FND_FILE.LOG, 'Start: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1145:
1146: IF p_mode_of_run = 'REVIEW' AND p_criteria_set IN ( 'REAMORT' )
1147: THEN
1148: log_msg(FND_FILE.LOG, 'In REVIEW Mode and REAMORT Upgrade Program ' );
1149: log_msg(FND_FILE.LOG, 'Start: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1150: -- Initialize the l_err_upg_index index
1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');

Line 1152: log_msg(FND_FILE.OUTPUT, ' ');

1148: log_msg(FND_FILE.LOG, 'In REVIEW Mode and REAMORT Upgrade Program ' );
1149: log_msg(FND_FILE.LOG, 'Start: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1150: -- Initialize the l_err_upg_index index
1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');

Line 1153: log_msg(FND_FILE.OUTPUT, ' ');

1149: log_msg(FND_FILE.LOG, 'Start: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1150: -- Initialize the l_err_upg_index index
1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');
1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

Line 1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );

1150: -- Initialize the l_err_upg_index index
1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');
1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1158: -- Section to print the contracts that were attempted earlier for Upgrade during earlier runs

Line 1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );

1151: l_err_upg_index := 0;
1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');
1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1158: -- Section to print the contracts that were attempted earlier for Upgrade during earlier runs
1159: FOR t_rec IN get_khr_errored_during_upgrade

Line 1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');

1152: log_msg(FND_FILE.OUTPUT, ' ');
1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');
1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1158: -- Section to print the contracts that were attempted earlier for Upgrade during earlier runs
1159: FOR t_rec IN get_khr_errored_during_upgrade
1160: LOOP

Line 1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

1153: log_msg(FND_FILE.OUTPUT, ' ');
1154: log_msg(FND_FILE.OUTPUT, 'Previously Upgraded Contracts with Pricing Errors :' );
1155: log_msg(FND_FILE.OUTPUT, '---------------------------------------------------' );
1156: log_msg(FND_FILE.OUTPUT, ' SL. # Contract Number Pricing Status');
1157: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1158: -- Section to print the contracts that were attempted earlier for Upgrade during earlier runs
1159: FOR t_rec IN get_khr_errored_during_upgrade
1160: LOOP
1161: l_err_upg_index := l_err_upg_index + 1;

Line 1162: log_msg(FND_FILE.OUTPUT,

1158: -- Section to print the contracts that were attempted earlier for Upgrade during earlier runs
1159: FOR t_rec IN get_khr_errored_during_upgrade
1160: LOOP
1161: l_err_upg_index := l_err_upg_index + 1;
1162: log_msg(FND_FILE.OUTPUT,
1163: LPAD(l_err_upg_index, 8, ' ' ) || ' ' ||
1164: RPAD(t_rec.contract_number, 43, ' ' ) || ' - ' ||
1165: t_rec.pricing_status );
1166: END LOOP;

Line 1167: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');

1163: LPAD(l_err_upg_index, 8, ' ' ) || ' ' ||
1164: RPAD(t_rec.contract_number, 43, ' ' ) || ' - ' ||
1165: t_rec.pricing_status );
1166: END LOOP;
1167: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1168: log_msg(FND_FILE.LOG, 'End: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1169: END IF;
1170:
1171: IF p_mode_of_run = 'SUBMIT'

Line 1168: log_msg(FND_FILE.LOG, 'End: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1164: RPAD(t_rec.contract_number, 43, ' ' ) || ' - ' ||
1165: t_rec.pricing_status );
1166: END LOOP;
1167: log_msg(FND_FILE.OUTPUT, '-----------------------------------------------------------------------------------------------------------------------------------------------------------');
1168: log_msg(FND_FILE.LOG, 'End: Trying to fetch all contracts that were kicked off for Upgrade but havent completed successfully. ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1169: END IF;
1170:
1171: IF p_mode_of_run = 'SUBMIT'
1172: THEN

Line 1175: log_msg(FND_FILE.LOG, 'Total Number of records fetched=' || l_upg_contracts_tbl.COUNT );

1171: IF p_mode_of_run = 'SUBMIT'
1172: THEN
1173: IF l_upg_contracts_tbl.COUNT > 0
1174: THEN
1175: log_msg(FND_FILE.LOG, 'Total Number of records fetched=' || l_upg_contracts_tbl.COUNT );
1176: -- Assign the data from the l_deprn_contracts_tbl to l_pp_deprn_khrs_tbl
1177: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1178: LOOP
1179: l_object_value_tbl(upg_index) := l_upg_contracts_tbl(upg_index).contract_number;

Line 1192: log_msg(FND_FILE.LOG, 'Initialized totally ' || l_num_workers || ' workers ' );

1188: l_worker_load(i).worker_number := i;
1189: l_worker_load(i).worker_load := 0; -- initialize load with zero
1190: l_worker_load(i).used := FALSE; -- Initialize with FALSE as none are assigned to this
1191: END LOOP;
1192: log_msg(FND_FILE.LOG, 'Initialized totally ' || l_num_workers || ' workers ' );
1193: log_msg(FND_FILE.LOG, 'Allocation of Workers for every contract is in Progress .. ' );
1194: l_lightest_worker := 1;
1195:
1196: -- Loop through the Depreciation Contracts and Assign the Workers

Line 1193: log_msg(FND_FILE.LOG, 'Allocation of Workers for every contract is in Progress .. ' );

1189: l_worker_load(i).worker_load := 0; -- initialize load with zero
1190: l_worker_load(i).used := FALSE; -- Initialize with FALSE as none are assigned to this
1191: END LOOP;
1192: log_msg(FND_FILE.LOG, 'Initialized totally ' || l_num_workers || ' workers ' );
1193: log_msg(FND_FILE.LOG, 'Allocation of Workers for every contract is in Progress .. ' );
1194: l_lightest_worker := 1;
1195:
1196: -- Loop through the Depreciation Contracts and Assign the Workers
1197: FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST

Line 1227: log_msg(FND_FILE.LOG, 'Done with allocation of Workers for every contract.' );

1223: END IF;
1224: END LOOP;
1225: END IF;
1226: END LOOP; -- FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1227: log_msg(FND_FILE.LOG, 'Done with allocation of Workers for every contract.' );
1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );
1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );
1230:
1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');

Line 1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );

1224: END LOOP;
1225: END IF;
1226: END LOOP; -- FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1227: log_msg(FND_FILE.LOG, 'Done with allocation of Workers for every contract.' );
1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );
1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );
1230:
1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');
1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');

Line 1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );

1225: END IF;
1226: END LOOP; -- FOR upg_index IN l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1227: log_msg(FND_FILE.LOG, 'Done with allocation of Workers for every contract.' );
1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );
1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );
1230:
1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');
1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');
1233: --

Line 1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');

1227: log_msg(FND_FILE.LOG, 'Done with allocation of Workers for every contract.' );
1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );
1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );
1230:
1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');
1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');
1233: --
1234: -- FOR upg_index in l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1235: -- LOOP

Line 1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');

1228: log_msg(FND_FILE.LOG, 'Process Sequence Number = ' || l_seq_next );
1229: log_msg(FND_FILE.LOG, 'G_ESG_PRB_KHR_UPG_OBJ_TYPE = ' || G_ESG_PRB_KHR_UPG_OBJ_TYPE );
1230:
1231: -- log_msg(FND_FILE.LOG, 'Assigned Process Contract Number KHR_ID Volume ');
1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');
1233: --
1234: -- FOR upg_index in l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1235: -- LOOP
1236: -- log_msg(FND_FILE.LOG, RPAD(l_assigned_process_tbl(upg_index),30, ' ') ||

Line 1236: -- log_msg(FND_FILE.LOG, RPAD(l_assigned_process_tbl(upg_index),30, ' ') ||

1232: -- log_msg(FND_FILE.LOG, '------------------------------------------------------------------------------------------------------------------------');
1233: --
1234: -- FOR upg_index in l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1235: -- LOOP
1236: -- log_msg(FND_FILE.LOG, RPAD(l_assigned_process_tbl(upg_index),30, ' ') ||
1237: -- RPAD(l_object_value_tbl(upg_index),40, ' ') ||
1238: -- RPAD(l_khr_id_tbl(upg_index),32, ' ' ) ||
1239: -- LPAD(l_volume_tbl(upg_index),15, ' ') );
1240: -- END LOOP;

Line 1244: log_msg(FND_FILE.LOG, 'Updated the Records in OKL_PARALLEL_PROCESSES with the Assigned Process - Start: '

1240: -- END LOOP;
1241:
1242: -- Now Bulk Update the Contract Numbers in Parallel Processes with the
1243: -- Assigned Worker Number
1244: log_msg(FND_FILE.LOG, 'Updated the Records in OKL_PARALLEL_PROCESSES with the Assigned Process - Start: '
1245: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1246: FORALL upg_index in l_upg_contracts_tbl.FIRST .. l_upg_contracts_tbl.LAST
1247: UPDATE OKL_PARALLEL_PROCESSES
1248: SET assigned_process = l_seq_next || '-' || l_assigned_process_tbl(upg_index)

Line 1254: log_msg(FND_FILE.LOG, 'Updated the Records in OKL_PARALLEL_PROCESSES with the Assigned Process - End : '

1250: WHERE object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE
1251: AND object_value = l_object_value_tbl(upg_index)
1252: AND process_status = 'PENDING_ASSIGNMENT'
1253: AND khr_id = l_khr_id_tbl(upg_index);
1254: log_msg(FND_FILE.LOG, 'Updated the Records in OKL_PARALLEL_PROCESSES with the Assigned Process - End : '
1255: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1256: -- COMMIT the Updation;
1257: COMMIT;
1258: log_msg(FND_FILE.LOG, 'Committed the Updation Changes: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

Line 1258: log_msg(FND_FILE.LOG, 'Committed the Updation Changes: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1254: log_msg(FND_FILE.LOG, 'Updated the Records in OKL_PARALLEL_PROCESSES with the Assigned Process - End : '
1255: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1256: -- COMMIT the Updation;
1257: COMMIT;
1258: log_msg(FND_FILE.LOG, 'Committed the Updation Changes: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1259:
1260: FOR i in l_worker_load.FIRST .. l_worker_load.LAST
1261: LOOP
1262: -- Request only if the Worker is used and has some load to process ..

Line 1269: log_msg(FND_FILE.LOG, 'CONTRACT: Submitting the Request with worker_id=' || l_worker_id );

1265: l_worker_id := TO_CHAR(l_seq_next)||'-'||TO_CHAR(i);
1266: -- FND_REQUEST.set_org_id(MO_GLOBAL.get_current_org_id); --MOAC- Concurrent request
1267: IF p_criteria_set = 'CONTRACT'
1268: THEN
1269: log_msg(FND_FILE.LOG, 'CONTRACT: Submitting the Request with worker_id=' || l_worker_id );
1270: l_reqid := FND_REQUEST.submit_request(
1271: application => 'OKL'
1272: ,program => 'OKLESGPRBCONCW' -- PRB Upgrade: Parallel Worker Conc. Program
1273: ,sub_request => TRUE

Line 1275: log_msg(FND_FILE.LOG, ' CONTRACT: Returned request_id=' || l_reqid );

1271: application => 'OKL'
1272: ,program => 'OKLESGPRBCONCW' -- PRB Upgrade: Parallel Worker Conc. Program
1273: ,sub_request => TRUE
1274: ,argument1 => l_worker_id);
1275: log_msg(FND_FILE.LOG, ' CONTRACT: Returned request_id=' || l_reqid );
1276: ELSIF p_criteria_set = 'REAMORT'
1277: THEN
1278: log_msg(FND_FILE.LOG, 'REAMORT: Submitting the Request with worker_id=' || l_worker_id );
1279: l_reqid := FND_REQUEST.submit_request(

Line 1278: log_msg(FND_FILE.LOG, 'REAMORT: Submitting the Request with worker_id=' || l_worker_id );

1274: ,argument1 => l_worker_id);
1275: log_msg(FND_FILE.LOG, ' CONTRACT: Returned request_id=' || l_reqid );
1276: ELSIF p_criteria_set = 'REAMORT'
1277: THEN
1278: log_msg(FND_FILE.LOG, 'REAMORT: Submitting the Request with worker_id=' || l_worker_id );
1279: l_reqid := FND_REQUEST.submit_request(
1280: application => 'OKL'
1281: ,program => 'OKLESGREAMORTUPGW' -- Reamort Upgrade: Parallel Worker Conc. Program
1282: ,sub_request => TRUE

Line 1284: log_msg(FND_FILE.LOG, ' REAMORT: Returned request_id=' || l_reqid );

1280: application => 'OKL'
1281: ,program => 'OKLESGREAMORTUPGW' -- Reamort Upgrade: Parallel Worker Conc. Program
1282: ,sub_request => TRUE
1283: ,argument1 => l_worker_id);
1284: log_msg(FND_FILE.LOG, ' REAMORT: Returned request_id=' || l_reqid );
1285: END IF;
1286:
1287: IF l_reqid = 0
1288: THEN

Line 1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Launching Process '||l_worker_id||' with Request ID '||l_reqid);

1292: ELSE
1293: errbuf := 'Sub-Request submitted successfully';
1294: retcode := 0 ;
1295: END IF;
1296: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Launching Process '||l_worker_id||' with Request ID '||l_reqid);
1297: END IF; -- IF l_worker_load(i).used
1298: END LOOP; -- FOR j in 1 .. l_worker_load.LAST
1299: -- Set the Request Data to be used in the re-run of the Master Program ..
1300: FND_CONC_GLOBAL.set_req_globals(

Line 1304: log_msg(FND_FILE.LOG, 'No Workers Assigned. Reason: No Data Found for Processing!');

1300: FND_CONC_GLOBAL.set_req_globals(
1301: conc_status => 'PAUSED'
1302: ,request_data => '2 RUN'); -- Instead of NULL, it was i here ..
1303: ELSE
1304: log_msg(FND_FILE.LOG, 'No Workers Assigned. Reason: No Data Found for Processing!');
1305: END IF; -- IF l_upg_contracts_tbl.COUNT > 0
1306: ELSIF p_mode_of_run = 'REVIEW'
1307: THEN
1308: -- Delete the records populated here finally

Line 1309: log_msg(FND_FILE.LOG, 'Review Mode: Deletion of Records - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1305: END IF; -- IF l_upg_contracts_tbl.COUNT > 0
1306: ELSIF p_mode_of_run = 'REVIEW'
1307: THEN
1308: -- Delete the records populated here finally
1309: log_msg(FND_FILE.LOG, 'Review Mode: Deletion of Records - Start: ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1310:
1311: DELETE OKL_PARALLEL_PROCESSES opp
1312: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE -- 'ESG_PRB_UPGRADE_CONTRACT'
1313: AND opp.assigned_process = TO_CHAR(l_seq_next);

Line 1315: log_msg(FND_FILE.LOG, 'Review Mode: Deletion of Records - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );

1311: DELETE OKL_PARALLEL_PROCESSES opp
1312: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE -- 'ESG_PRB_UPGRADE_CONTRACT'
1313: AND opp.assigned_process = TO_CHAR(l_seq_next);
1314:
1315: log_msg(FND_FILE.LOG, 'Review Mode: Deletion of Records - End : ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
1316: -- End of Review Mode
1317: retcode := 0;
1318: END IF; -- IF p_mode_of_run = 'SUBMIT'
1319: END IF; -- IF req_data IS NOT NULL

Line 1320: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: retcode = ' || retcode );

1316: -- End of Review Mode
1317: retcode := 0;
1318: END IF; -- IF p_mode_of_run = 'SUBMIT'
1319: END IF; -- IF req_data IS NOT NULL
1320: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: retcode = ' || retcode );
1321: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: End (-)' );
1322: END eff_dated_rbk_upgrade_conc;
1323:
1324: END OKL_PRB_UPGRADE_PVT;

Line 1321: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: End (-)' );

1317: retcode := 0;
1318: END IF; -- IF p_mode_of_run = 'SUBMIT'
1319: END IF; -- IF req_data IS NOT NULL
1320: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: retcode = ' || retcode );
1321: log_msg(FND_FILE.LOG, 'eff_dated_rbk_upgrade_conc: End (-)' );
1322: END eff_dated_rbk_upgrade_conc;
1323:
1324: END OKL_PRB_UPGRADE_PVT;