DBA Data[Home] [Help]

PACKAGE BODY: APPS.HRI_OLTP_VIEW_CURRENCY

Source


1 PACKAGE BODY hri_oltp_view_currency AS
2 /* $Header: hriovcrn.pkb 120.1 2006/10/09 15:24:14 jtitmas noship $ */
3 
4 /******************************************************************************/
5 /* Function to convert an amount from one currency to another, given a        */
6 /* specified conversion rate type                                             */
7 /******************************************************************************/
8 FUNCTION convert_currency_amount(p_from_currency    IN VARCHAR2
9                                 ,p_to_currency      IN VARCHAR2
10                                 ,p_conversion_date  IN DATE
11                                 ,p_amount           IN NUMBER
12                                 ,p_rate_type        IN VARCHAR2)
13             RETURN NUMBER IS
14 
15 BEGIN
16 
17   RETURN hri_bpl_currency.convert_currency_amount
18            (p_from_currency => p_from_currency,
19             p_to_currency => p_to_currency,
20             p_conversion_date => p_conversion_date,
21             p_amount => p_amount,
22             p_rate_type => p_rate_type);
23 
24 EXCEPTION WHEN OTHERS THEN
25   RETURN to_number(null);
26 
27 END convert_currency_amount;
28 
29 FUNCTION convert_to_primary_crnc(p_from_currency     IN VARCHAR2
30                                 ,p_amount            IN NUMBER)
31             RETURN NUMBER IS
32 
33 BEGIN
34 
35   RETURN hri_bpl_currency.convert_to_primary_crnc
36           (p_from_currency => p_from_currency,
37            p_amount => p_amount);
38 
39 EXCEPTION WHEN OTHERS THEN
40 
41   RETURN 0;
42 
43 END convert_to_primary_crnc;
44 
45 FUNCTION convert_to_secondary_crnc(p_from_currency     IN VARCHAR2
46                                   ,p_amount            IN NUMBER)
47             RETURN NUMBER IS
48 
49 BEGIN
50 
51   RETURN hri_bpl_currency.convert_to_secondary_crnc
52           (p_from_currency => p_from_currency,
53            p_amount => p_amount);
54 
55 EXCEPTION WHEN OTHERS THEN
56 
57   RETURN 0;
58 
59 END convert_to_secondary_crnc;
60 
61 END hri_oltp_view_currency;