[Home] [Help]
PACKAGE BODY: APPS.FUN_UTIL
Source
1 PACKAGE BODY FUN_UTIL AS
2 -- $Header: FUNVUTLB.pls 120.1 2005/07/14 10:38:40 bsilveir noship $
3
4
5
6
7 -------------------------------------------------------------------------------
8 --Start of Comments
9 --Function:
10 -- Save the start of procedure log info into conc. program log file
11 --
12 --End of Comments
13 -------------------------------------------------------------------------------
14 PROCEDURE log_conc_start(
15 p_pkg_name IN VARCHAR2
16 , p_proc_name IN VARCHAR2
17 , p_progress IN VARCHAR2 DEFAULT NULL
18 ) IS
19 BEGIN
20 FND_FILE.put_line(
21 FND_FILE.log
22 , p_pkg_name || '.' || p_proc_name || '.' || 'start'
23 );
24 END log_conc_start;
25
26
27
28
29 -------------------------------------------------------------------------------
30 --Start of Comments
31 --Function:
32 -- Save the end of procedure log info into conc. program log file
33 --
34 --End of Comments
35 -------------------------------------------------------------------------------
36 PROCEDURE log_conc_end(
37 p_pkg_name IN VARCHAR2
38 , p_proc_name IN VARCHAR2
39 , p_progress IN VARCHAR2 DEFAULT NULL
40 ) IS
41 BEGIN
42 FND_FILE.put_line(
43 FND_FILE.log
44 , p_pkg_name || '.' || p_proc_name || '.' || 'end'
45 );
46 END log_conc_end;
47
48
49
50
51 -------------------------------------------------------------------------------
52 --Start of Comments
53 --Function:
54 -- Save the variable information within conc. program procedure
55 -- into conc. program log file
56 --
57 --End of Comments
58 -------------------------------------------------------------------------------
59 PROCEDURE log_conc_stmt(
60 p_pkg_name IN VARCHAR2
61 , p_proc_name IN VARCHAR2
62 , p_progress IN VARCHAR2 DEFAULT NULL
63 , p_name IN VARCHAR2 DEFAULT NULL
64 , p_value IN VARCHAR2 DEFAULT NULL
65 ) IS
66 BEGIN
67 FND_FILE.put_line(
68 FND_FILE.log
69 , p_pkg_name || '.' || p_proc_name || '.' || 'progress at ' ||
70 p_progress || '.' || p_name || ' = ' || p_value
71 );
72 END log_conc_stmt;
73
74
75
76
77 -------------------------------------------------------------------------------
78 --Start of Comments
79 --Function:
80 -- Save the unexpected error information within conc. program procedure
81 -- into conc. program log file, it will contain the sqlerr message
82 --
83 --End of Comments
84 -------------------------------------------------------------------------------
85 PROCEDURE log_conc_unexp(
86 p_pkg_name IN VARCHAR2
87 , p_proc_name IN VARCHAR2
88 , p_progress IN VARCHAR2 DEFAULT NULL
89 ) IS
90 BEGIN
91 FND_FILE.put_line(
92 FND_FILE.log
93 , p_pkg_name || '.' || p_proc_name || '.' || 'exception at ' ||
94 p_progress || '.' || SQLERRM(sqlcode)
95 );
96 END log_conc_unexp;
97
98
99
100
101 -------------------------------------------------------------------------------
102 --Start of Comments
103 --Function:
104 -- Save the error information within conc. program procedure
105 -- into conc. program log file, it used for user given error message
106 --
107 --End of Comments
108 -------------------------------------------------------------------------------
109 PROCEDURE log_conc_err(
110 p_pkg_name IN VARCHAR2
111 , p_proc_name IN VARCHAR2
112 , p_progress IN VARCHAR2 DEFAULT NULL
113 , p_msg IN VARCHAR2
114 ) IS
115 BEGIN
116 FND_FILE.put_line(
117 FND_FILE.log
118 , p_pkg_name || '.' || p_proc_name || '.' || 'error at ' ||
119 p_progress || '.' || p_msg
120 );
121 END log_conc_err;
122
123
124 FUNCTION get_account_segment_value (
125 p_ledger_id IN gl_ledgers.ledger_id%TYPE,
126 p_ccid IN gl_code_combinations.code_combination_id%TYPE,
127 p_segment_type IN VARCHAR2 )
128 RETURN VARCHAR2
129
130 IS
131 l_account_value VARCHAR2(30);
132 l_segment VARCHAR2(30);
133 l_cursor_hANDle NUMBER;
134
135 l_sel_stmt VARCHAR2(1024) ;
136 l_sel_cursor NUMBER;
137 l_sel_column VARCHAR2(30);
138 l_sel_rows NUMBER;
139 l_sel_execute VARCHAR2(1024);
140
141 BEGIN
142
143 SELECT application_column_name
144 INTO l_segment
145 FROM fnd_segment_attribute_values ,
146 gl_ledgers sob
147 WHERE id_flex_code = 'GL#'
148 AND attribute_value = 'Y'
149 AND segment_attribute_type = p_segment_type
150 AND application_id = 101
151 AND sob.chart_of_accounts_id = id_flex_num
152 AND sob.ledger_id = p_ledger_id;
153
154 EXECUTE IMMEDIATE ' SELECT '|| l_segment ||
155 ' FROM gl_code_combinations WHERE code_combination_id = :p_ccid '
156 INTO l_sel_column USING IN p_ccid;
157
158 RETURN l_sel_column;
159
160
161 EXCEPTION
162 WHEN OTHERS THEN
163 RETURN NULL ;
164 END get_account_segment_value;
165
166 END FUN_UTIL;
167