[Home] [Help]
1: PACKAGE BODY PA_PLANNING_TRANSACTION_UTILS AS
2: /* $Header: PAFPPTUB.pls 120.5.12010000.2 2008/08/21 22:04:59 skkoppul ship $ */
3:
4: -----------------------------------------------
5: -- Declaring global datatypes and variables
3:
4: -----------------------------------------------
5: -- Declaring global datatypes and variables
6: -----------------------------------------------
7: g_module_name VARCHAR2(100) := 'pa.plsql.PA_PLANNING_TRANSACTION_UTILS';
8:
9: --This record type will contain key and a value. A pl/sql tbl of this record type can be declared and it can be
10: --used for different purposes. One such case is : if its required to get the start date for a task id at many
11: --places in the code then instead of firing a select each time we can fetch it and store in this record. The key
136: ---------------------------------------------------------------
137:
138: IF l_debug_mode = 'Y' THEN
139: pa_debug.g_err_stage:='Validating input parameters';
140: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids: ' || g_module_name,pa_debug.g_err_stage,3);
141: END IF;
142:
143: IF (p_resource_list_id IS NULL) THEN
144:
143: IF (p_resource_list_id IS NULL) THEN
144:
145: IF l_debug_mode = 'Y' THEN
146: pa_debug.g_err_stage:='p_resource_list_id is null';
147: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Id: ' || g_module_name,pa_debug.g_err_stage,5);
148: END IF;
149: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
150: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
151:
166:
167:
168: IF l_debug_mode = 'Y' THEN
169: pa_debug.g_err_stage:='Fetching rlm ids';
170: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids: ' || g_module_name,pa_debug.g_err_stage,3);
171: END IF;
172:
173: FOR c1 IN c_rlm_ids LOOP -- LoopA starts
174:
210: x_return_status := FND_API.G_RET_STS_ERROR;
211:
212: IF l_debug_mode = 'Y' THEN
213: pa_debug.g_err_stage:='Invalid Arguments Passed';
214: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_Res_Class_Rlm_Ids : ' || g_module_name,pa_debug.g_err_stage,5);
215: pa_debug.reset_curr_function;
216: END IF;
217: WHEN Others THEN
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: WHEN Others THEN
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: x_msg_count := 1;
220: x_msg_data := SQLERRM;
221: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PLANNING_TRANSACTION_UTILS'
222: ,p_procedure_name => 'PA_PLANNING_TRANSACTION_UTILS.Get_res_class_rlm_ids');
223:
224: IF l_debug_mode = 'Y' THEN
225: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
219: x_msg_count := 1;
220: x_msg_data := SQLERRM;
221: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PLANNING_TRANSACTION_UTILS'
222: ,p_procedure_name => 'PA_PLANNING_TRANSACTION_UTILS.Get_res_class_rlm_ids');
223:
224: IF l_debug_mode = 'Y' THEN
225: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
226: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_res_class_rlm_ids: ' || g_module_name,pa_debug.g_err_stage,5);
222: ,p_procedure_name => 'PA_PLANNING_TRANSACTION_UTILS.Get_res_class_rlm_ids');
223:
224: IF l_debug_mode = 'Y' THEN
225: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
226: pa_debug.write('PA_PLANNING_TRANSACTION_UTILS.Get_res_class_rlm_ids: ' || g_module_name,pa_debug.g_err_stage,5);
227: pa_debug.reset_curr_function;
228: END IF;
229: RAISE;
230:
1122: RAISE;
1123:
1124: END call_update_rep_lines_api;
1125:
1126: END PA_PLANNING_TRANSACTION_UTILS;