1 PACKAGE BODY FUN_NET_UTIL AS
2 /* $Header: funntutb.pls 120.1 2005/12/23 14:10:24 asrivats noship $ */
3
4 PROCEDURE Log_Unexpected_Msg(p_full_path IN VARCHAR2) IS
5 BEGIN
6 FND_MESSAGE.SET_NAME('FUN','FUN_LOGGING_USER_ERROR');
7 FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
8
9 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10 FND_MESSAGE.SET_NAME('FUN','FUN_LOGGING_UNEXP_ERROR');
11 FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
12 FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
13 FND_LOG.MESSAGE (FND_LOG.LEVEL_UNEXPECTED,p_full_path, TRUE);
14 END IF;
15 END Log_Unexpected_Msg;
16
17
18 PROCEDURE Log_Msg(p_level IN NUMBER,
19 p_full_path IN VARCHAR2,
20 p_remove_from_stack IN BOOLEAN) IS
21 BEGIN
22 IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
23 fnd_log.message(p_level,p_full_path,p_remove_from_stack);
24 END IF;
25 END Log_Msg;
26
27
28 PROCEDURE Log_String(p_level IN NUMBER,
29 p_full_path IN VARCHAR2,
30 p_string IN VARCHAR2) IS
31 BEGIN
32 IF (p_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
33 fnd_log.string(p_level,p_full_path,p_string);
34 END IF;
35 END Log_String;
36
37 -- ============================FND LOG END ==================================
38 FUNCTION ROUND_CURRENCY
39 (P_Amount IN NUMBER
40 ,P_Currency_Code IN VARCHAR2)
41 RETURN NUMBER
42 IS
43 l_rounded_amount number;
44 BEGIN
45
46 SELECT decode(FC.minimum_accountable_unit,
47 null, round(P_Amount, FC.precision),
48 round(P_Amount/FC.minimum_accountable_unit) *
49 FC.minimum_accountable_unit)
50 INTO l_rounded_amount
51 FROM fnd_currencies FC
52 WHERE FC.currency_code = P_Currency_Code;
53
54 RETURN(l_rounded_amount);
55
56 EXCEPTION
57
58 WHEN NO_DATA_FOUND THEN
59
60 RETURN(null);
61
62 END ROUND_CURRENCY;
63 END FUN_NET_UTIL;