1 PACKAGE BODY IGI_ITR_UTILS_PKG as
2 -- $Header: igiitrvb.pls 120.8.12000000.1 2007/09/12 10:33:11 mbremkum ship $
3 --
4
5 FUNCTION find_originators_segment_value(X_segment_number IN VARCHAR2,
6 X_originator_id IN NUMBER,
7 X_charge_center IN NUMBER,
8 -- Parameter added for Bug 3977858
9 X_segment_value OUT NOCOPY VARCHAR2)
10 RETURN BOOLEAN IS
11
12 l_segment_value VARCHAR2(30);
13
14 BEGIN
15
16 EXECUTE immediate 'SELECT '|| X_segment_number ||' FROM igi_itr_charge_orig WHERE originator_id = :x_orig_id and sysdate>start_date and nvl(end_date,sysdate) >= sysdate and charge_center_id = :x_charge_center'
17 INTO l_segment_value
18 USING IN X_originator_id, X_charge_center; --Bug 3977858
19
20 X_segment_value := l_segment_value;
21 RETURN TRUE;
22
23 EXCEPTION
24 WHEN OTHERS THEN
25 RETURN FALSE;
26
27 END find_originators_segment_value;
28
29
30 FUNCTION find_segment_value(X_segment_number IN VARCHAR2
31 ,X_code_combination_id IN NUMBER
32 ,X_chart_of_accounts_id IN NUMBER
33 ,X_segment_value OUT NOCOPY VARCHAR2)
34 RETURN BOOLEAN IS
35
36 l_segment_value VARCHAR2(30);
37
38 BEGIN
39
40 EXECUTE immediate
41 'SELECT '|| X_segment_number ||' FROM gl_code_combinations_kfv WHERE code_combination_id = :x_code_combination_id '||
42 ' AND chart_of_accounts_id = :x_chart_of_accounts_id '
43 INTO l_segment_value
44 USING IN X_code_combination_id, IN X_chart_of_accounts_id;
45
46 X_segment_value := l_segment_value;
47 RETURN TRUE;
48
49 EXCEPTION
50 WHEN OTHERS THEN
51 RETURN FALSE;
52
53 END find_segment_value;
54
55
56 END IGI_ITR_UTILS_PKG;
[Home] [Help]