38: BEGIN
39:
40:
41: user_id := FND_GLOBAL.USER_ID;
42: FND_FILE.PUT_LINE(FND_FILE.LOG, 'User_Id ='||to_char(user_id));
43:
44: OKS_ARFETCH_PUB.GET_AR_RECORD(l_return_status);
45: --OKS_ARFETCH_PUB.GET_AR_RECORD(l_retcode);
46:
46:
47: --l_retcode := SUCCESS;
48:
49: IF (l_return_status = 'S') THEN
50: FND_FILE.PUT_LINE( FND_FILE.LOG,
51: 'ARFetch_Main IS successfully completed');
52: ELSE
53: FND_FILE.PUT_LINE( FND_FILE.LOG,
54: 'ARFetch_Main is NOT successfully completed' );
49: IF (l_return_status = 'S') THEN
50: FND_FILE.PUT_LINE( FND_FILE.LOG,
51: 'ARFetch_Main IS successfully completed');
52: ELSE
53: FND_FILE.PUT_LINE( FND_FILE.LOG,
54: 'ARFetch_Main is NOT successfully completed' );
55: END IF;
56:
57:
54: 'ARFetch_Main is NOT successfully completed' );
55: END IF;
56:
57:
58: --FND_FILE.PUT_LINE (FND_FILE.LOG,'RETCODE = ' || to_char(l_retcode));
59:
60: COMMIT;
61:
62: IF (conc_ret_code = SUCCESS) THEN
258: ,last_update_date = sysdate
259: where id = l_txn_id(i);
260: Exception
261: When others then
262: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update failed on OKS_BILL_TRANSACTIONS , SQLERRM = '|| SQLERRM);
263: Raise;
264: End;
265:
266: BEGIN
389:
390:
391: EXCEPTION
392: WHEN OTHERS THEN
393: FND_FILE.PUT_LINE(FND_FILE.LOG,'Update failed on OKS_BILL_TXN_LINES , SQLERRM = '|| SQLERRM);
394: Raise;
395: END;
396:
397: Begin
400: ( hdr_id )
401: values ( l_hdr_id(k));
402: Exception
403: When others then
404: FND_FILE.PUT_LINE(FND_FILE.LOG,'Insert failed on OKS_AR_FETCH_TEMP , SQLERRM = '|| SQLERRM);
405: Raise;
406: End ;
407: End If;
408: Exit when get_fetch_records_csr%NOTFOUND;
434: EXCEPTION
435: WHEN OTHERS THEN
436: x_return_status := 'E';
437: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
438: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error'||SQLCODE || '- '||SQLERRM);
439: END Get_AR_RECORD;
440:
441: END OKS_ARFETCH_PUB;