62: ---------------------------------------------------------------------------
63:
64: PROCEDURE print_line (p_message IN VARCHAR2) IS
65: BEGIN
66: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, p_message);
67: EXCEPTION
68: WHEN OTHERS THEN
69: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '** EXCEPTION IN print_line: '||SQLERRM);
70: END print_line;
65: BEGIN
66: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, p_message);
67: EXCEPTION
68: WHEN OTHERS THEN
69: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '** EXCEPTION IN print_line: '||SQLERRM);
70: END print_line;
71:
72: ---------------------------------------------------------------------------
73:
355: END IF;
356:
357: EXCEPTION
358: WHEN OTHERS THEN
359: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '** EXCEPTION IN print_output: '||SQLERRM);
360: END print_output;
361:
362:
363: ------------------------------------------------------------------------------
371:
372: PROCEDURE print_debug (p_message IN VARCHAR2) IS
373: BEGIN
374: -- IF ( G_DEBUG = 'Y' ) THEN
375: FND_FILE.PUT_LINE (FND_FILE.LOG, p_message);
376: OKL_DEBUG_PUB.logmessage(p_message, 25);
377: --dbms_output.put_line (p_message);
378: -- END IF;
379: EXCEPTION
377: --dbms_output.put_line (p_message);
378: -- END IF;
379: EXCEPTION
380: WHEN OTHERS THEN
381: FND_FILE.PUT_LINE (FND_FILE.LOG, '** EXCEPTION IN print_line: '||SQLERRM);
382: END print_debug;
383:
384: ------------------------------------------------------------------------------
385:
1608: errbuf := SQLERRM;
1609: IF check_contract_csr%ISOPEN THEN
1610: CLOSE check_contract_csr;
1611: END IF;
1612: FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||SQLCODE||': '||SQLERRM);
1613: END calculate_daily_interest;
1614:
1615: END OKL_DAILY_INTEREST_CALC_PVT;