1 PACKAGE BODY AR_AGG_VAT_STMT_PKG
2 -- $Header: araggvatstmtpb.pls 120.0 2007/12/13 10:03:40 sgudupat noship $
3 -- ****************************************************************************
4 -- Copyright (c) 2000 Oracle Solution Services (India) Product Development
5 -- All rights reserved
6 -- ****************************************************************************
7 --
8 -- PROGRAM NAME
9 -- araggvatstmtpb.pls
10 --
11 -- DESCRIPTION
12 -- This script creates the package Body of ar_agg_vat_stmt_pkg.
13 -- This package is used to generate Aggregate VAT Statement.
14 --
15 -- USAGE
16 --
17 --
18 -- DEPENDENCIES
19 -- None.
20 --
21 -- CALLED BY
22 -- DataTemplate Extract in Aggregate VAT Statement.
23 --
24 --
25 -- LAST UPDATE DATE 10-JAN-2007
26 -- Date the program has been modified for the last time
27 --
28 -- HISTORY
29 -- =======
30 --
31 -- VERSION DATE AUTHOR(S) DESCRIPTION
32 -- ------- ----------- -------------- ---------------------------------
33 -- 1.00 10-JAN-2007 Sandeep Creation
34 --
35 -- ****************************************************************************
36 AS
37 FUNCTION get_rate(p_invoice_currency_code IN VARCHAR2
38 ,p_ship_date_actual IN DATE
39 ,p_exchange_rate_type IN VARCHAR2)
40 RETURN NUMBER
41 IS
42 l_rate NUMBER;
43 BEGIN
44 IF p_exchange_rate_type IS NULL OR p_ship_date_actual IS NULL THEN
45 l_rate := 1;
46 ELSE
47 l_rate := GL_CURRENCY_API.GET_RATE(P_LEDGER_ID
48 ,p_invoice_currency_code
49 ,p_ship_date_actual
50 ,p_exchange_rate_type);
51 END IF;
52 RETURN(l_rate);
53 END get_rate;
54
55 END AR_AGG_VAT_STMT_PKG;