1 PACKAGE BODY INV_EFC_UTILS_PKG AS
2 /* $Header: invefcub.pls 120.2 2005/08/26 15:06:44 rajkrish noship $ */
3
4 --
5 -- Checks if the interface tables are empty for the set of books
6 -- marked for convertion to euro currency.
7 --
8 --
9 PROCEDURE interface_table_validation (p_phase_code IN VARCHAR2) IS
10
11 l_ncu_id NUMBER;
12 l_euro_id NUMBER;
13 l_run_id NUMBER := NULL;
14
15 l_application_id NUMBER := 401;
16
17 TYPE TableNameType IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
18 TYPE RecordCountType IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
19
20 l_cnt_table TableNameType;
21 l_cnt_num RecordCountType;
22
23 l_flag BOOLEAN := FALSE;
24 l_phase_code VARCHAR2(10) := p_phase_code;
25
26 BEGIN
27
28 null ;
29 END interface_table_validation;
30
31 PROCEDURE delete_mc_tables (p_sob_id IN NUMBER,
32 p_pair_sob_id IN NUMBER,
33 p_commit_size IN NUMBER,
34 p_ncu_id IN NUMBER,
35 p_euro_id IN NUMBER,
36 p_run_id IN NUMBER,
37 p_run_phase_code IN NUMBER) IS
38 l_sob_id NUMBER := p_sob_id ;
39 l_pair_sob_id NUMBER := p_pair_sob_id ;
40 l_commit_size NUMBER := p_commit_size ;
41 l_ncu_id NUMBER := p_ncu_id ;
42 l_euro_id NUMBER := p_euro_id ;
43 l_run_id NUMBER := p_run_id ;
44 l_run_phase_code NUMBER := p_run_phase_code ;
45 l_application_id NUMBER := 401 ;
46 l_high NUMBER ;
47 l_low NUMBER ;
48 l_max NUMBER ;
49
50 BEGIN
51 -- Delete rows from MC tables
52 -- Using Commit Size to eliminate problem with rollbacks
53 null ;
54 END delete_mc_tables ;
55
56 END INV_EFC_UTILS_PKG;