1: package body PA_CAPITALIZED_INTEREST as
2: /* $Header: PAXCINTB.pls 120.1 2005/08/09 04:16:24 avajain noship $ */
3:
4: p_pa_debug_mode VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
5:
6: PROCEDURE cint_compile_schedule(errbuf IN OUT NOCOPY varchar2,
7: retcode IN OUT NOCOPY varchar2,
8: p_sch_rev_id IN varchar2)
38: BEGIN
39:
40: status := 0;
41:
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_schedule');
44: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
45: END IF;
46:
39:
40: status := 0;
41:
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_schedule');
44: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
45: END IF;
46:
47: l_ind_rate_sch_rev_id := p_sch_rev_id;
40: status := 0;
41:
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_schedule');
44: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
45: END IF;
46:
47: l_ind_rate_sch_rev_id := p_sch_rev_id;
48: --
91: delete pa_ind_cost_multipliers
92: where ind_rate_sch_revision_id = l_ind_rate_sch_rev_id
93: and ready_to_compile_flag = 'X';
94:
95: IF P_PA_DEBUG_MODE = 'Y' THEN
96: pa_debug.g_err_stage := 'Deleted all the existing compiled multipliers. No. of rows deleted: '||to_char(SQL%ROWCOUNT);
97: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
98: END IF;
99:
92: where ind_rate_sch_revision_id = l_ind_rate_sch_rev_id
93: and ready_to_compile_flag = 'X';
94:
95: IF P_PA_DEBUG_MODE = 'Y' THEN
96: pa_debug.g_err_stage := 'Deleted all the existing compiled multipliers. No. of rows deleted: '||to_char(SQL%ROWCOUNT);
97: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
98: END IF;
99:
100: IF P_PA_DEBUG_MODE = 'Y' THEN
93: and ready_to_compile_flag = 'X';
94:
95: IF P_PA_DEBUG_MODE = 'Y' THEN
96: pa_debug.g_err_stage := 'Deleted all the existing compiled multipliers. No. of rows deleted: '||to_char(SQL%ROWCOUNT);
97: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
98: END IF;
99:
100: IF P_PA_DEBUG_MODE = 'Y' THEN
101: pa_debug.g_err_stage := 'Set the compilation time and compiled_flag = I in the rate schedule revision';
96: pa_debug.g_err_stage := 'Deleted all the existing compiled multipliers. No. of rows deleted: '||to_char(SQL%ROWCOUNT);
97: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
98: END IF;
99:
100: IF P_PA_DEBUG_MODE = 'Y' THEN
101: pa_debug.g_err_stage := 'Set the compilation time and compiled_flag = I in the rate schedule revision';
102: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
103: END IF;
104:
97: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
98: END IF;
99:
100: IF P_PA_DEBUG_MODE = 'Y' THEN
101: pa_debug.g_err_stage := 'Set the compilation time and compiled_flag = I in the rate schedule revision';
102: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
103: END IF;
104:
105: pa_cost_plus.get_hierarchy_from_revision(p_sch_rev_id => l_ind_rate_sch_rev_id,
98: END IF;
99:
100: IF P_PA_DEBUG_MODE = 'Y' THEN
101: pa_debug.g_err_stage := 'Set the compilation time and compiled_flag = I in the rate schedule revision';
102: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
103: END IF;
104:
105: pa_cost_plus.get_hierarchy_from_revision(p_sch_rev_id => l_ind_rate_sch_rev_id,
106: x_org_struc_ver_id => l_org_struc_ver_id,
107: x_start_org => l_start_org,
108: x_status => status,
109: x_stage => stage);
110:
111: IF P_PA_DEBUG_MODE = 'Y' THEN
112: pa_debug.g_err_stage := 'Getting org_struct_ver_id and start_org_id : '||l_org_struc_ver_id||' and '||l_start_org;
113: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
114: END IF;
115:
108: x_status => status,
109: x_stage => stage);
110:
111: IF P_PA_DEBUG_MODE = 'Y' THEN
112: pa_debug.g_err_stage := 'Getting org_struct_ver_id and start_org_id : '||l_org_struc_ver_id||' and '||l_start_org;
113: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
114: END IF;
115:
116: IF status <> 0 THEN
109: x_stage => stage);
110:
111: IF P_PA_DEBUG_MODE = 'Y' THEN
112: pa_debug.g_err_stage := 'Getting org_struct_ver_id and start_org_id : '||l_org_struc_ver_id||' and '||l_start_org;
113: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
114: END IF;
115:
116: IF status <> 0 THEN
117: stage := 50;
139: p_start_org => l_start_org,
140: status => status,
141: stage => stage);
142:
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.g_err_stage := 'Compiled multipliers for the start organization';
145: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
146: END IF;
147:
140: status => status,
141: stage => stage);
142:
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.g_err_stage := 'Compiled multipliers for the start organization';
145: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
146: END IF;
147:
148: --
141: stage => stage);
142:
143: IF P_PA_DEBUG_MODE = 'Y' THEN
144: pa_debug.g_err_stage := 'Compiled multipliers for the start organization';
145: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
146: END IF;
147:
148: --
149: -- Compile all the organizations under the start organization
160: status => status,
161: stage => stage);
162:
163: IF status <> 0 THEN
164: IF P_PA_DEBUG_MODE = 'Y' THEN
165: pa_debug.g_err_stage := 'Error while compiling multipliers for the organization: '||org_row.organization_id_child;
166: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
167: END IF;
168: RETURN;
161: stage => stage);
162:
163: IF status <> 0 THEN
164: IF P_PA_DEBUG_MODE = 'Y' THEN
165: pa_debug.g_err_stage := 'Error while compiling multipliers for the organization: '||org_row.organization_id_child;
166: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
167: END IF;
168: RETURN;
169: END IF;
162:
163: IF status <> 0 THEN
164: IF P_PA_DEBUG_MODE = 'Y' THEN
165: pa_debug.g_err_stage := 'Error while compiling multipliers for the organization: '||org_row.organization_id_child;
166: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
167: END IF;
168: RETURN;
169: END IF;
170:
169: END IF;
170:
171: END LOOP;
172:
173: IF P_PA_DEBUG_MODE = 'Y' THEN
174: pa_debug.g_err_stage := 'Compiled multipliers for all the child orgnizations';
175: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
176: END IF;
177: --
170:
171: END LOOP;
172:
173: IF P_PA_DEBUG_MODE = 'Y' THEN
174: pa_debug.g_err_stage := 'Compiled multipliers for all the child orgnizations';
175: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
176: END IF;
177: --
178: -- Set the compilation time in the rate schedule revision
171: END LOOP;
172:
173: IF P_PA_DEBUG_MODE = 'Y' THEN
174: pa_debug.g_err_stage := 'Compiled multipliers for all the child orgnizations';
175: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
176: END IF;
177: --
178: -- Set the compilation time in the rate schedule revision
179: --
184: compiled_date = SYSDATE
185: WHERE
186: ind_rate_sch_revision_id = l_ind_rate_sch_rev_id;
187:
188: IF P_PA_DEBUG_MODE = 'Y' THEN
189: pa_debug.g_err_stage := 'Updated the compiled_flag to Y ';
190: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
191: END IF;
192:
185: WHERE
186: ind_rate_sch_revision_id = l_ind_rate_sch_rev_id;
187:
188: IF P_PA_DEBUG_MODE = 'Y' THEN
189: pa_debug.g_err_stage := 'Updated the compiled_flag to Y ';
190: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
191: END IF;
192:
193: COMMIT;
186: ind_rate_sch_revision_id = l_ind_rate_sch_rev_id;
187:
188: IF P_PA_DEBUG_MODE = 'Y' THEN
189: pa_debug.g_err_stage := 'Updated the compiled_flag to Y ';
190: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
191: END IF;
192:
193: COMMIT;
194:
191: END IF;
192:
193: COMMIT;
194:
195: IF P_PA_DEBUG_MODE = 'Y' THEN
196: pa_debug.reset_err_stack;
197: END IF;
198:
199: EXCEPTION
192:
193: COMMIT;
194:
195: IF P_PA_DEBUG_MODE = 'Y' THEN
196: pa_debug.reset_err_stack;
197: END IF;
198:
199: EXCEPTION
200: WHEN OTHERS THEN
197: END IF;
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF p_pa_debug_mode = 'Y' THEN
202: pa_debug.g_err_stage:= 'Unexpected Error '||SQLERRM(SQLCODE);
203: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
204: pa_debug.reset_curr_function;
205: END IF;
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF p_pa_debug_mode = 'Y' THEN
202: pa_debug.g_err_stage:= 'Unexpected Error '||SQLERRM(SQLCODE);
203: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
204: pa_debug.reset_curr_function;
205: END IF;
206:
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF p_pa_debug_mode = 'Y' THEN
202: pa_debug.g_err_stage:= 'Unexpected Error '||SQLERRM(SQLCODE);
203: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
204: pa_debug.reset_curr_function;
205: END IF;
206:
207: ROLLBACK;
200: WHEN OTHERS THEN
201: IF p_pa_debug_mode = 'Y' THEN
202: pa_debug.g_err_stage:= 'Unexpected Error '||SQLERRM(SQLCODE);
203: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
204: pa_debug.reset_curr_function;
205: END IF;
206:
207: ROLLBACK;
208: UPDATE pa_ind_rate_sch_revisions
236:
237: status := 0;
238: stage := 100;
239:
240: IF P_PA_DEBUG_MODE = 'Y' THEN
241: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_org_rates');
242: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
243: END IF;
244:
237: status := 0;
238: stage := 100;
239:
240: IF P_PA_DEBUG_MODE = 'Y' THEN
241: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_org_rates');
242: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
243: END IF;
244:
245: --
238: stage := 100;
239:
240: IF P_PA_DEBUG_MODE = 'Y' THEN
241: pa_debug.init_err_stack('PA_CAPITALIZED_INTEREST.cint_compile_org_rates');
242: pa_debug.set_process('PLSQL','LOG', P_PA_DEBUG_MODE);
243: END IF;
244:
245: --
246: -- Get the standard who information
308: and cm1.organization_id = p_current_org_id);
309:
310: EXCEPTION
311: WHEN OTHERS THEN
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM(SQLCODE);
314: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
315: pa_debug.reset_curr_function;
316: END IF;
309:
310: EXCEPTION
311: WHEN OTHERS THEN
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM(SQLCODE);
314: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
315: pa_debug.reset_curr_function;
316: END IF;
317: RAISE;
310: EXCEPTION
311: WHEN OTHERS THEN
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM(SQLCODE);
314: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
315: pa_debug.reset_curr_function;
316: END IF;
317: RAISE;
318:
311: WHEN OTHERS THEN
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM(SQLCODE);
314: pa_debug.write_file(l_module_name, pa_debug.g_err_stage, 3);
315: pa_debug.reset_curr_function;
316: END IF;
317: RAISE;
318:
319: END cint_compile_org_rates;