[Home] [Help]
PACKAGE BODY: APPS.PA_CINT_RATE_PKG
Source
1 package body PA_CINT_RATE_PKG AS
2 --$Header: PACINTRB.pls 115.2 2003/06/03 01:34:11 riyengar noship $
3
4 procedure print_msg(p_msg varchar2) IS
5
6 Begin
7 --r_debug.r_msg('Log:'||p_msg);
8 --dbms_output.put_line('Log:'||p_msg);
9 Null;
10
11 End print_msg;
12
13 PROCEDURE insert_row_exp_excl (
14 x_rowid in out NOCOPY VARCHAR2
15 ,p_exp_type IN VARCHAR2
16 ,p_org_id IN NUMBER
17 ,p_ind_cost_code IN VARCHAR2
18 ,p_CREATED_BY IN NUMBER
19 ,p_CREATION_DATE IN DATE
20 ,p_LAST_UPDATED_BY IN NUMBER
21 ,p_LAST_UPDATE_DATE IN DATE
22 ,p_LAST_UPDATE_LOGIN IN NUMBER
23 ,x_return_status OUT NOCOPY VARCHAR2
24 ,x_error_msg_code OUT NOCOPY VARCHAR2
25 ) IS
26
27 BEGIN
28 x_return_status := 'S';
29 x_error_msg_code := Null;
30
31 print_msg('inserting row into pa_cint_exp_type_excl_all ');
32 INSERT INTO pa_cint_exp_type_excl_all
33 ( IND_COST_CODE
34 ,EXPENDITURE_TYPE
35 ,ORG_ID
36 ,CREATION_DATE
37 ,CREATED_BY
38 ,LAST_UPDATE_DATE
39 ,LAST_UPDATED_BY
40 ,LAST_UPDATE_LOGIN
41 ) VALUES
42 (p_ind_cost_code
43 ,p_exp_type
44 ,p_org_id
45 ,p_CREATION_DATE
46 ,p_CREATED_BY
47 ,p_LAST_UPDATE_DATE
48 ,p_LAST_UPDATED_BY
49 ,p_LAST_UPDATE_LOGIN
50 );
51
52 /* Retrive the rowid and pass it to Forms */
53 Select rowid
54 INTO x_rowid
55 FROM pa_cint_exp_type_excl_all
56 WHERE IND_COST_CODE = p_ind_cost_code
57 AND EXPENDITURE_TYPE = p_exp_type
58 AND ORG_ID = p_org_id;
59
60 print_msg('Num of rows inserted['||sql%rowcount);
61 EXCEPTION
62 WHEN OTHERS THEN
63 x_return_status := 'E';
64 x_error_msg_code := SQLCODE||SQLERRM;
65 RAISE;
66 END insert_row_exp_excl;
67
68 PROCEDURE update_row_exp_excl
69 (p_rowid IN VARCHAR2
70 ,p_exp_type IN VARCHAR2
71 ,p_org_id IN NUMBER
72 ,p_ind_cost_code IN VARCHAR2
73 ,p_LAST_UPDATED_BY IN NUMBER
74 ,p_LAST_UPDATE_DATE IN DATE
75 ,p_LAST_UPDATE_LOGIN IN NUMBER
76 ,x_return_status OUT NOCOPY VARCHAR2
77 ,x_error_msg_code OUT NOCOPY VARCHAR2
78 )IS
79
80
81 BEGIN
82
83 x_return_status := 'S';
84 x_error_msg_code := Null;
85
86 UPDATE pa_cint_exp_type_excl_all
87 SET expenditure_type = p_exp_type
88 ,LAST_UPDATED_BY =p_LAST_UPDATED_BY
89 ,LAST_UPDATE_DATE = p_LAST_UPDATE_DATE
90 ,LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
91 WHERE rowid = p_rowid;
92
93 EXCEPTION
94 WHEN OTHERS THEN
95 x_return_status := 'E';
96 x_error_msg_code := SQLCODE||SQLERRM;
97 RAISE;
98
99 END update_row_exp_excl;
100
101
102 PROCEDURE delete_row_exp_excl (p_ind_cost_code in VARCHAR2
103 ,p_exp_type IN varchar2
104 ,p_org_id IN NUMBER ) IS
105
106 BEGIN
107 DELETE from pa_cint_exp_type_excl_all
108 WHERE ind_cost_code = p_ind_cost_code
109 AND expenditure_type = p_exp_type
110 AND org_id = p_org_id ;
111
112 EXCEPTION
113
114 when others then
115 Raise;
116 END delete_row_exp_excl;
117
118 PROCEDURE delete_row_exp_excl (x_rowid in VARCHAR2) IS
119
120 BEGIN
121 NULL;
122 END delete_row_exp_excl;
123
124 PROCEDURE insert_row_rate_info (
125 x_rowid in out NOCOPY VARCHAR2
126 ,p_org_id IN NUMBER
127 ,p_ind_cost_code IN VARCHAR2
128 ,p_EXP_ORG_SOURCE IN VARCHAR2
129 ,p_PROJ_AMT_THRESHOLD IN NUMBER
130 ,p_TASK_AMT_THRESHOLD IN NUMBER
131 ,p_PROJ_DURATION_THRESHOLD IN NUMBER
132 ,p_TASK_DURATION_THRESHOLD IN NUMBER
133 ,p_CURR_PERIOD_CONVENTION IN VARCHAR2
134 ,p_INTEREST_CALCULATION_METHOD IN VARCHAR2
135 ,p_THRESHOLD_AMT_TYPE IN VARCHAR2
136 ,p_BUDGET_TYPE_CODE IN VARCHAR2
137 ,p_PERIOD_RATE_CODE IN VARCHAR2
138 ,p_CREATED_BY IN NUMBER
139 ,p_CREATION_DATE IN DATE
140 ,p_LAST_UPDATED_BY IN NUMBER
141 ,p_LAST_UPDATE_DATE IN DATE
142 ,p_LAST_UPDATE_LOGIN IN NUMBER
143 ,x_return_status OUT NOCOPY VARCHAR2
144 ,x_error_msg_code OUT NOCOPY VARCHAR2
145 ) IS
146
147 BEGIN
148 x_return_status := 'S';
149 x_error_msg_code := Null;
150
151 print_msg('inserting row into pa_cint_rate_info_all ');
152 INSERT INTO pa_cint_rate_info_all
153 ( IND_COST_CODE
154 ,ORG_ID
155 ,EXP_ORG_SOURCE
156 ,PROJ_AMT_THRESHOLD
157 ,TASK_AMT_THRESHOLD
158 ,PROJ_DURATION_THRESHOLD
159 ,TASK_DURATION_THRESHOLD
160 ,CURR_PERIOD_CONVENTION
161 ,INTEREST_CALCULATION_METHOD
162 ,THRESHOLD_AMT_TYPE
163 ,BUDGET_TYPE_CODE
164 ,PERIOD_RATE_CODE
165 ,CREATION_DATE
166 ,CREATED_BY
167 ,LAST_UPDATE_DATE
168 ,LAST_UPDATED_BY
169 ,LAST_UPDATE_LOGIN
170 ) VALUES
171 (p_ind_cost_code
172 ,p_org_id
173 ,p_EXP_ORG_SOURCE
174 ,p_PROJ_AMT_THRESHOLD
175 ,p_TASK_AMT_THRESHOLD
176 ,p_PROJ_DURATION_THRESHOLD
177 ,p_TASK_DURATION_THRESHOLD
178 ,p_CURR_PERIOD_CONVENTION
179 ,p_INTEREST_CALCULATION_METHOD
180 ,p_THRESHOLD_AMT_TYPE
181 ,p_BUDGET_TYPE_CODE
182 ,p_PERIOD_RATE_CODE
183 ,p_CREATION_DATE
184 ,p_CREATED_BY
185 ,p_LAST_UPDATE_DATE
186 ,p_LAST_UPDATED_BY
187 ,p_LAST_UPDATE_LOGIN
188 );
189
190 /* Retrive the rowid and pass it to Forms */
191 Select rowid
192 INTO x_rowid
193 FROM pa_cint_rate_info_all
194 WHERE IND_COST_CODE = p_ind_cost_code
195 AND EXP_ORG_SOURCE = p_EXP_ORG_SOURCE
196 AND ORG_ID = p_org_id;
197
198 EXCEPTION
199 WHEN OTHERS THEN
200 x_return_status := 'E';
201 x_error_msg_code := SQLCODE||SQLERRM;
202 RAISE;
203
204 END insert_row_rate_info;
205
206 PROCEDURE update_row_rate_info
207 (p_rowid IN VARCHAR2
208 ,p_org_id IN NUMBER
209 ,p_ind_cost_code IN VARCHAR2
210 ,p_EXP_ORG_SOURCE IN VARCHAR2
211 ,p_PROJ_AMT_THRESHOLD IN NUMBER
212 ,p_TASK_AMT_THRESHOLD IN NUMBER
213 ,p_PROJ_DURATION_THRESHOLD IN NUMBER
214 ,p_TASK_DURATION_THRESHOLD IN NUMBER
215 ,p_CURR_PERIOD_CONVENTION IN VARCHAR2
216 ,p_INTEREST_CALCULATION_METHOD IN VARCHAR2
217 ,p_THRESHOLD_AMT_TYPE IN VARCHAR2
218 ,p_BUDGET_TYPE_CODE IN VARCHAR2
219 ,p_PERIOD_RATE_CODE IN VARCHAR2
220 ,p_LAST_UPDATED_BY IN NUMBER
221 ,p_LAST_UPDATE_DATE IN DATE
222 ,p_LAST_UPDATE_LOGIN IN NUMBER
223 ,x_return_status OUT NOCOPY VARCHAR2
224 ,x_error_msg_code OUT NOCOPY VARCHAR2
225 )IS
226
227 BEGIN
228 x_return_status := 'S';
229 x_error_msg_code := Null;
230
231 UPDATE pa_cint_rate_info_all
232 SET EXP_ORG_SOURCE = p_EXP_ORG_SOURCE
233 ,PROJ_AMT_THRESHOLD = p_PROJ_AMT_THRESHOLD
234 ,TASK_AMT_THRESHOLD = p_TASK_AMT_THRESHOLD
235 ,PROJ_DURATION_THRESHOLD = p_PROJ_DURATION_THRESHOLD
236 ,TASK_DURATION_THRESHOLD = p_TASK_DURATION_THRESHOLD
237 ,CURR_PERIOD_CONVENTION = p_CURR_PERIOD_CONVENTION
238 ,INTEREST_CALCULATION_METHOD = p_INTEREST_CALCULATION_METHOD
239 ,THRESHOLD_AMT_TYPE = p_THRESHOLD_AMT_TYPE
240 ,BUDGET_TYPE_CODE = p_BUDGET_TYPE_CODE
241 ,PERIOD_RATE_CODE = p_PERIOD_RATE_CODE
242 ,LAST_UPDATED_BY =p_LAST_UPDATED_BY
243 ,LAST_UPDATE_DATE = p_LAST_UPDATE_DATE
244 ,LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN
245 WHERE ind_cost_code = p_ind_cost_code
246 AND org_id = p_org_id;
247
248 EXCEPTION
249 WHEN OTHERS THEN
250 x_return_status := 'E';
251 x_error_msg_code := SQLCODE||SQLERRM;
252 RAISE;
253
254 END update_row_rate_info;
255
256 PROCEDURE delete_row_rate_info (p_ind_cost_code in VARCHAR2
257 ,p_org_id IN NUMBER
258 )IS
259
260 x_return_status VARCHAR2(1000):= 'S';
261 x_error_msg_code VARCHAR2(1000) := Null;
262
263 BEGIN
264 DELETE from pa_cint_rate_info_all
265 WHERE ind_cost_code = p_ind_cost_code
266 AND org_id = p_org_id ;
267
268 EXCEPTION
269 WHEN OTHERS THEN
270 x_return_status := 'E';
271 x_error_msg_code := SQLCODE||SQLERRM;
272 RAISE;
273
274 END delete_row_rate_info;
275
276
277 END PA_CINT_RATE_PKG;