150: NULL, NULL, NULL, NULL, NULL, NULL, NULL);
151:
152: if (v_req_id <= 0 or v_req_id is null) then
153: x_return_status := fnd_api.g_ret_sts_error;
154: x_msg_data := FND_MESSAGE.get;
155: ELSE
156: COMMIT;
157: end if;
158: END rcv_immediate_transaction;
271: IF (l_debug = 1) THEN
272: print_debug('rcv_online_request 40 finished with error rc = 1 at: '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
273: END IF;
274: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
275: fnd_message.set_name('FND', 'TM-TIMEOUT');
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
272: print_debug('rcv_online_request 40 finished with error rc = 1 at: '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
273: END IF;
274: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
275: fnd_message.set_name('FND', 'TM-TIMEOUT');
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
273: END IF;
274: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
275: fnd_message.set_name('FND', 'TM-TIMEOUT');
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
274: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
275: fnd_message.set_name('FND', 'TM-TIMEOUT');
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
282: --fnd_message.clear;
275: fnd_message.set_name('FND', 'TM-TIMEOUT');
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
282: --fnd_message.clear;
283: fnd_msg_pub.ADD;
276: --x_str := fnd_message.get;
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
282: --fnd_message.clear;
283: fnd_msg_pub.ADD;
284:
277: --fnd_message.clear;
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
282: --fnd_message.clear;
283: fnd_msg_pub.ADD;
284:
285: /* See the commnets below from ATG for timeout */
278: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
279: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
280: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
281: fnd_message.set_token('REASON', x_str);
282: --fnd_message.clear;
283: fnd_msg_pub.ADD;
284:
285: /* See the commnets below from ATG for timeout */
286: --DELETE_ROWS := TRUE;
289:
290: l_progress := '50';
291: x_return_status := fnd_api.g_ret_sts_error;
292:
293: --x_msg_data := FND_MESSAGE.get;
294:
295: -- Since IF TIMEOUT Happens the Return comes back to client
296: -- But server Process (i,e TM) may be still working in the Background and
297: -- eventually commit
324: IF (l_debug = 1) THEN
325: print_debug('rcv_online_request 70 finished with error rc = 2 at: '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
326: END IF;
327: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
328: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
325: print_debug('rcv_online_request 70 finished with error rc = 2 at: '|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 1);
326: END IF;
327: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
328: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
326: END IF;
327: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
328: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
327: IF (check_group_id(inv_rcv_common_apis.g_rcv_global_var.interface_group_id)) THEN
328: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
335: --fnd_message.clear;
328: fnd_message.set_name('FND', 'TM-SVC LOCK HANDLE FAILED');
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
335: --fnd_message.clear;
336: fnd_msg_pub.ADD;
329: --x_str := fnd_message.get;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
335: --fnd_message.clear;
336: fnd_msg_pub.ADD;
337: DELETE_ROWS := TRUE;
330: --fnd_message.clear;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
335: --fnd_message.clear;
336: fnd_msg_pub.ADD;
337: DELETE_ROWS := TRUE;
338: END IF;
331: FND_MESSAGE.set_name('FND','CONC-Error running standalone');
332: fnd_message.set_token('PROGRAM', 'Receiving Transaction Manager - RCVOLTM');
333: fnd_message.set_token('REQUEST', inv_rcv_common_apis.g_rcv_global_var.interface_group_id);
334: fnd_message.set_token('REASON', x_str);
335: --fnd_message.clear;
336: fnd_msg_pub.ADD;
337: DELETE_ROWS := TRUE;
338: END IF;
339:
337: DELETE_ROWS := TRUE;
338: END IF;
339:
340: x_return_status := fnd_api.g_ret_sts_error;
341: --x_msg_data := FND_MESSAGE.get;
342: l_progress := '80';
343:
344: inv_receiving_transaction.txn_complete
345: (p_group_id => inv_rcv_common_apis.g_rcv_global_var.interface_group_id,
373: );
374:
375: l_progress := '100';
376: x_str := r_val1;
377: -- FND_MESSAGE.SET_STRING(x_str);
378: --FND_MESSAGE.CLEAR;
379: IF (r_val2 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val2; END IF;
380: IF (r_val3 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val3; END IF;
381: IF (r_val4 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val4; END IF;
374:
375: l_progress := '100';
376: x_str := r_val1;
377: -- FND_MESSAGE.SET_STRING(x_str);
378: --FND_MESSAGE.CLEAR;
379: IF (r_val2 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val2; END IF;
380: IF (r_val3 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val3; END IF;
381: IF (r_val4 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val4; END IF;
382: IF (r_val5 IS NOT NULL) THEN x_str := x_str || fnd_global.local_chr(10) || r_val5; END IF;
406: DELETE_ROWS := TRUE;
407: END IF;
408:
409: x_return_status := fnd_api.g_ret_sts_error;
410: --x_msg_data := FND_MESSAGE.get;
411:
412: l_progress := '109';
413: inv_receiving_transaction.txn_complete
414: (p_group_id => inv_rcv_common_apis.g_rcv_global_var.interface_group_id,
517: -- x_msg_data );
518: -- l_progress := '10.1';
519:
520: --IF l_return_status = FND_API.g_ret_sts_error THEN
521: -- FND_MESSAGE.SET_NAME('INV', 'INV_RCV_IMMEDIATE_TXN_FAIL');
522: -- FND_MSG_PUB.ADD;
523: -- IF (l_debug = 1) THEN
524: -- print_debug('rcv_process_receive_txn 10.1: rcv_immediate_transaction RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
525: -- END IF;
526: -- RAISE FND_API.G_EXC_ERROR;
527: -- END IF;
528: --
529: -- IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
530: -- FND_MESSAGE.SET_NAME('INV', 'INV_RCV_IMMEDIATE_TXN_FAIL');
531: -- FND_MSG_PUB.ADD;
532: -- IF (l_debug = 1) THEN
533: -- print_debug('rcv_process_receive_txn 10.2: rcv_immediate_transaction RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
534: -- END IF;
542:
543: l_progress := '20';
544:
545: IF l_return_status = FND_API.g_ret_sts_error THEN
546: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_IMMEDIATE_TXN_FAIL');
547: FND_MSG_PUB.ADD;
548: IF (l_debug = 1) THEN
549: print_debug('rcv_process_receive_txn 20.1: rcv_immediate_transaction RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
550: END IF;
552: END IF;
553:
554:
555: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
556: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_IMMEDIATE_TXN_FAIL');
557: FND_MSG_PUB.ADD;
558: IF (l_debug = 1) THEN
559: print_debug('rcv_process_receive_txn 20.2: rcv_immediate_transaction RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
560: END IF;
567: rcv_online_request(x_return_status => l_return_status,
568: x_msg_data => l_msg_data);
569:
570: IF l_return_status = FND_API.g_ret_sts_error THEN
571: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_ONLINE_TXN_FAIL');
572: FND_MSG_PUB.ADD;
573: IF (l_debug = 1) THEN
574: print_debug('rcv_process_receive_txn 30.1: rcv_online_request RAISE FND_API.G_EXC_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
575: END IF;
577: END IF;
578:
579:
580: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
581: FND_MESSAGE.SET_NAME('INV', 'INV_RCV_ONLINE_TXN_FAIL');
582: FND_MSG_PUB.ADD;
583: IF (l_debug = 1) THEN
584: print_debug('rcv_process_receive_txn 30.2: rcv_online_request RAISE FND_API.G_EXC_UNEXPECTED_ERROR;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
585: END IF;