1 PACKAGE BODY WIP_EFC_UTILS_PKG AS
2 /* $Header: wipefcub.pls 120.1 2005/07/12 15:53:55 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 := 706;
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
29 l_euro_id := null ;
30
31 END interface_table_validation;
32
33 PROCEDURE delete_mc_tables (p_sob_id IN NUMBER,
34 p_pair_sob_id IN NUMBER,
35 p_commit_size IN NUMBER,
36 p_ncu_id IN NUMBER,
37 p_euro_id IN NUMBER,
38 p_run_id IN NUMBER,
39 p_run_phase_code IN NUMBER) IS
40 l_sob_id NUMBER := p_sob_id ;
41 l_pair_sob_id NUMBER := p_pair_sob_id ;
42 l_commit_size NUMBER := p_commit_size ;
43 l_ncu_id NUMBER := p_ncu_id ;
44 l_euro_id NUMBER := p_euro_id ;
45 l_run_id NUMBER := p_run_id ;
46 l_run_phase_code NUMBER := p_run_phase_code ;
47 l_application_id NUMBER := 706 ;
48 l_high NUMBER ;
49 l_low NUMBER ;
50 l_max NUMBER ;
51
52 BEGIN
53
54 l_high := NULL;
55
56 END delete_mc_tables;
57
58 END WIP_EFC_UTILS_PKG;