[Home] [Help]
139:
140:
141: -- initialize the return status to success
142: x_return_status := FND_API.G_RET_STS_SUCCESS;
143: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
144: if l_debug_mode = 'Y' then
145: pa_debug.set_curr_function(p_function =>l_module_name,p_debug_mode => l_debug_mode);
146: end if;
147:
141: -- initialize the return status to success
142: x_return_status := FND_API.G_RET_STS_SUCCESS;
143: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
144: if l_debug_mode = 'Y' then
145: pa_debug.set_curr_function(p_function =>l_module_name,p_debug_mode => l_debug_mode);
146: end if;
147:
148:
149: if l_debug_mode = 'Y' then
146: end if;
147:
148:
149: if l_debug_mode = 'Y' then
150: pa_debug.g_err_stage:= 'Start of Update Impacts PVT method.';
151: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
152: end if;
153:
154: l_ci_id := p_ci_id;
147:
148:
149: if l_debug_mode = 'Y' then
150: pa_debug.g_err_stage:= 'Start of Update Impacts PVT method.';
151: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
152: end if;
153:
154: l_ci_id := p_ci_id;
155: /*Get the control item details- this also checks for Ci_id is Valid or not*/
158: if Get_CI_Data%notfound then
159: PA_UTILS.Add_Message( p_app_short_name => 'PA'
160: ,p_msg_name => 'PA_CI_INV_CI_ID');
161: if l_debug_mode = 'Y' then
162: pa_debug.g_err_stage:= 'The ci_id is invalid';
163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
164: end if;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: close Get_CI_Data;
159: PA_UTILS.Add_Message( p_app_short_name => 'PA'
160: ,p_msg_name => 'PA_CI_INV_CI_ID');
161: if l_debug_mode = 'Y' then
162: pa_debug.g_err_stage:= 'The ci_id is invalid';
163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
164: end if;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: close Get_CI_Data;
167: raise FND_API.G_EXC_ERROR;
169: close Get_CI_Data;
170: end if;
171:
172: if l_debug_mode = 'Y' then
173: pa_debug.g_err_stage:= 'After checking whether the CI_ID is valid or not.';
174: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
175: end if;
176:
177: /* If the control items is ISSUE, then it doesnot have the impact*/
170: end if;
171:
172: if l_debug_mode = 'Y' then
173: pa_debug.g_err_stage:= 'After checking whether the CI_ID is valid or not.';
174: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
175: end if;
176:
177: /* If the control items is ISSUE, then it doesnot have the impact*/
178: if l_ci_type_class_code = 'ISSUE' then
178: if l_ci_type_class_code = 'ISSUE' then
179: PA_UTILS.add_Message( p_app_short_name => 'PA'
180: ,p_msg_name => 'PA_CI_INV_CI_ID');
181: if l_debug_mode = 'Y' then
182: pa_debug.g_err_stage:= 'The given CI_ID is an ISSUE, does not contain any impact';
183: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
184: end if;
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: raise FND_API.G_EXC_ERROR ;
179: PA_UTILS.add_Message( p_app_short_name => 'PA'
180: ,p_msg_name => 'PA_CI_INV_CI_ID');
181: if l_debug_mode = 'Y' then
182: pa_debug.g_err_stage:= 'The given CI_ID is an ISSUE, does not contain any impact';
183: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
184: end if;
185: x_return_status := FND_API.G_RET_STS_ERROR;
186: raise FND_API.G_EXC_ERROR ;
187: end if;
193: if c_impact_types%notfound then
194: PA_UTILS.add_Message( p_app_short_name => 'PA'
195: ,p_msg_name => 'PA_CI_IMPACT_CODE_INVALID');
196: if l_debug_mode = 'Y' then
197: pa_debug.g_err_stage:= 'the ci_imapct_type_code is invalid, This is impact is not enabled for the control item type.';
198: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
199: end if;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: close c_impact_types;
194: PA_UTILS.add_Message( p_app_short_name => 'PA'
195: ,p_msg_name => 'PA_CI_IMPACT_CODE_INVALID');
196: if l_debug_mode = 'Y' then
197: pa_debug.g_err_stage:= 'the ci_imapct_type_code is invalid, This is impact is not enabled for the control item type.';
198: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
199: end if;
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: close c_impact_types;
202: raise FND_API.G_EXC_ERROR ;
204: close c_impact_types;
205: end if;
206:
207: if l_debug_mode = 'Y' then
208: pa_debug.g_err_stage:= 'After checking the possible impact type codes for the given ci_id.';
209: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
210: end if;
211:
212: /*Check whether the impact exists are or not,if it already exists and the mode is 'INSERT'
205: end if;
206:
207: if l_debug_mode = 'Y' then
208: pa_debug.g_err_stage:= 'After checking the possible impact type codes for the given ci_id.';
209: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
210: end if;
211:
212: /*Check whether the impact exists are or not,if it already exists and the mode is 'INSERT'
213: then it is an error and do the same for update for does not exist case*/
220: PA_UTILS.add_Message( p_app_short_name => 'PA'
221: ,p_msg_name => 'PA_CI_IMPACT_EXIST');
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: if l_debug_mode = 'Y' then
224: pa_debug.g_err_stage:= 'Cannot be inserted as the record already exists for the given impact type code';
225: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
226: end if;
227: close c_check_impact_exists;
228: raise FND_API.G_EXC_ERROR;
221: ,p_msg_name => 'PA_CI_IMPACT_EXIST');
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: if l_debug_mode = 'Y' then
224: pa_debug.g_err_stage:= 'Cannot be inserted as the record already exists for the given impact type code';
225: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
226: end if;
227: close c_check_impact_exists;
228: raise FND_API.G_EXC_ERROR;
229: else
234: PA_UTILS.add_Message( p_app_short_name => 'PA'
235: ,p_msg_name => 'PA_NO_CI_IMPACT');
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: if l_debug_mode = 'Y' then
238: pa_debug.g_err_stage:= 'Cannot update the impact, as there is no record exists';
239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
240: end if;
241: close c_check_impact_exists;
242: raise FND_API.G_EXC_ERROR;
235: ,p_msg_name => 'PA_NO_CI_IMPACT');
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: if l_debug_mode = 'Y' then
238: pa_debug.g_err_stage:= 'Cannot update the impact, as there is no record exists';
239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
240: end if;
241: close c_check_impact_exists;
242: raise FND_API.G_EXC_ERROR;
243: else
246: end if; --end for if c_check_impact_exists
247:
248:
249: if l_debug_mode = 'Y' then
250: pa_debug.g_err_stage:= 'Security Checking starts.....';
251: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
252: end if;
253:
254: /*Security check for the CI_ID UpdateAccess*/
247:
248:
249: if l_debug_mode = 'Y' then
250: pa_debug.g_err_stage:= 'Security Checking starts.....';
251: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
252: end if;
253:
254: /*Security check for the CI_ID UpdateAccess*/
255: if 'T' <> Pa_ci_security_pkg.check_update_access (p_ci_id) then
256: PA_UTILS.add_Message( p_app_short_name => 'PA'
257: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: if l_debug_mode = 'Y' then
260: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
261: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
262: end if;
263: raise FND_API.G_EXC_ERROR ;
264: end if;
257: ,p_msg_name => 'PA_CI_NO_UPDATE_ACCESS');
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: if l_debug_mode = 'Y' then
260: pa_debug.g_err_stage:= 'the CI_ID does not have the update access';
261: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
262: end if;
263: raise FND_API.G_EXC_ERROR ;
264: end if;
265: if l_debug_mode = 'Y' then
262: end if;
263: raise FND_API.G_EXC_ERROR ;
264: end if;
265: if l_debug_mode = 'Y' then
266: pa_debug.g_err_stage:= 'After call to pa_ci_security_pkg.check_update_acces';
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
268: end if;
269:
270:
263: raise FND_API.G_EXC_ERROR ;
264: end if;
265: if l_debug_mode = 'Y' then
266: pa_debug.g_err_stage:= 'After call to pa_ci_security_pkg.check_update_acces';
267: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
268: end if;
269:
270:
271: /*Check for the impact security -- coded as in the UI impact_icon is enabled and disabled based on ControlitemListVO query */
273: PA_UTILS.add_Message( p_app_short_name => 'PA'
274: ,p_msg_name => 'PA_CI_NO_IMPACT_UPDATE_ACCESS');
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: if l_debug_mode = 'Y' then
277: pa_debug.g_err_stage:= 'the CI_ID does not have the update Impact access';
278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
279: end if;
280: raise FND_API.G_EXC_ERROR ;
281: end if;
274: ,p_msg_name => 'PA_CI_NO_IMPACT_UPDATE_ACCESS');
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: if l_debug_mode = 'Y' then
277: pa_debug.g_err_stage:= 'the CI_ID does not have the update Impact access';
278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
279: end if;
280: raise FND_API.G_EXC_ERROR ;
281: end if;
282:
280: raise FND_API.G_EXC_ERROR ;
281: end if;
282:
283: if l_debug_mode = 'Y' then
284: pa_debug.g_err_stage:= 'After call to pa_ci_impacts_util.get_update_impact_mode, to check for the update access';
285: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
286: end if;
287:
288:
281: end if;
282:
283: if l_debug_mode = 'Y' then
284: pa_debug.g_err_stage:= 'After call to pa_ci_impacts_util.get_update_impact_mode, to check for the update access';
285: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
286: end if;
287:
288:
289: /*The control item will not be updatable if the current status has approval workflow attached. */
293: --IF (l_enable_wf_flag = 'Y' AND l_wf_success_status_code IS NOT NULL AND l_wf_failure_status_code IS NOT NULL) THEN
294: PA_UTILS.ADD_MESSAGE(p_app_short_name =>'PA'
295: ,p_msg_name =>'PA_CI_APPROVAL_WORKFLOW');
296: if l_debug_mode = 'Y' then
297: pa_debug.g_err_stage:= 'Approval workflow is attached';
298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
299: end if;
300: close Check_Workflow_On_CI;
301: raise FND_API.G_EXC_ERROR ;
294: PA_UTILS.ADD_MESSAGE(p_app_short_name =>'PA'
295: ,p_msg_name =>'PA_CI_APPROVAL_WORKFLOW');
296: if l_debug_mode = 'Y' then
297: pa_debug.g_err_stage:= 'Approval workflow is attached';
298: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
299: end if;
300: close Check_Workflow_On_CI;
301: raise FND_API.G_EXC_ERROR ;
302: else
303: close Check_Workflow_On_CI;
304: end if;
305:
306: if l_debug_mode = 'Y' then
307: pa_debug.g_err_stage:= 'After checking for Approval Workflow security check';
308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
309: end if;
310:
311: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE
304: end if;
305:
306: if l_debug_mode = 'Y' then
307: pa_debug.g_err_stage:= 'After checking for Approval Workflow security check';
308: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
309: end if;
310:
311: /* Check for the status control: check whether the action CONTROL_ITEM_ALLOW_UPDATE
312: is allowed on the current status of the issue. */
315: PA_UTILS.add_Message( p_app_short_name => 'PA'
316: ,p_msg_name => 'PA_CI_NO_ALLOW_UPDATE');
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: if l_debug_mode = 'Y' then
319: pa_debug.g_err_stage:= 'the CI_ID does not have the update access for the current status';
320: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
321: end if;
322: raise FND_API.G_EXC_ERROR ;
323: end if;
316: ,p_msg_name => 'PA_CI_NO_ALLOW_UPDATE');
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: if l_debug_mode = 'Y' then
319: pa_debug.g_err_stage:= 'the CI_ID does not have the update access for the current status';
320: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
321: end if;
322: raise FND_API.G_EXC_ERROR ;
323: end if;
324: if l_debug_mode = 'Y' then
321: end if;
322: raise FND_API.G_EXC_ERROR ;
323: end if;
324: if l_debug_mode = 'Y' then
325: pa_debug.g_err_stage:= 'After checking for CONTROL_ITEM_ALLOW_UPDATE for the current status';
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
327: end if;
328:
329:
322: raise FND_API.G_EXC_ERROR ;
323: end if;
324: if l_debug_mode = 'Y' then
325: pa_debug.g_err_stage:= 'After checking for CONTROL_ITEM_ALLOW_UPDATE for the current status';
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
327: end if;
328:
329:
330: l_status_code := 'CI_IMPACT_PENDING'; --always be pending as we are not implementing the impact.
329:
330: l_status_code := 'CI_IMPACT_PENDING'; --always be pending as we are not implementing the impact.
331:
332: if l_debug_mode = 'Y' then
333: pa_debug.g_err_stage:= 'Calling the '||p_mode||' API for impacts';
334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
335: end if;
336:
337: if p_mode = 'INSERT' and x_return_status = FND_API.G_RET_STS_SUCCESS then
330: l_status_code := 'CI_IMPACT_PENDING'; --always be pending as we are not implementing the impact.
331:
332: if l_debug_mode = 'Y' then
333: pa_debug.g_err_stage:= 'Calling the '||p_mode||' API for impacts';
334: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
335: end if;
336:
337: if p_mode = 'INSERT' and x_return_status = FND_API.G_RET_STS_SUCCESS then
338:
405: end if;
406:
407: --Reset the stack
408: if l_debug_mode = 'Y' then
409: pa_debug.reset_curr_function;
410: end if;
411:
412: exception
413:
429: x_msg_count := l_msg_count;
430: end if;
431: --Reset the stack
432: if l_debug_mode = 'Y' then
433: pa_debug.reset_curr_function;
434: end if;
435:
436:
437: --raise the exception
446: fnd_msg_pub.count_and_get(p_count => x_msg_count,
447: p_data => x_msg_data);
448: --Reset the stack
449: if l_debug_mode = 'Y' then
450: pa_debug.reset_curr_function;
451: end if;
452:
453: --raise the exception
454: raise;
649:
650: -- initialize the return status to success
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652:
653: l_debug_mode :=NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.resp_id, 275, null, null), 'N');
654: if l_debug_mode = 'Y' then
655: pa_debug.set_curr_function(p_function=>l_module_name,p_debug_mode => l_debug_mode);
656: end if;
657:
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652:
653: l_debug_mode :=NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.resp_id, 275, null, null), 'N');
654: if l_debug_mode = 'Y' then
655: pa_debug.set_curr_function(p_function=>l_module_name,p_debug_mode => l_debug_mode);
656: end if;
657:
658:
659: if l_debug_mode = 'Y' then
656: end if;
657:
658:
659: if l_debug_mode = 'Y' then
660: pa_debug.g_err_stage:= ' Starting the PA_CONTROL_API_PVT.add_supplier_details ';
661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
662: end if;
663:
664: l_org_id := FND_GLOBAL.org_id;
657:
658:
659: if l_debug_mode = 'Y' then
660: pa_debug.g_err_stage:= ' Starting the PA_CONTROL_API_PVT.add_supplier_details ';
661: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
662: end if;
663:
664: l_org_id := FND_GLOBAL.org_id;
665:
676: p_currency := p_supplier_det_tbl(i).currency;
677: p_change_amount := p_supplier_det_tbl(i).change_amount;
678:
679: if l_debug_mode = 'Y' then
680: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
682: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
683: 'p_change_description['||i||']='||p_change_description||
684: 'p_vendor_id['||i||']='||p_vendor_id||
677: p_change_amount := p_supplier_det_tbl(i).change_amount;
678:
679: if l_debug_mode = 'Y' then
680: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
682: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
683: 'p_change_description['||i||']='||p_change_description||
684: 'p_vendor_id['||i||']='||p_vendor_id||
685: 'p_po_header_id['||i||']='||p_po_header_id||
678:
679: if l_debug_mode = 'Y' then
680: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
682: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
683: 'p_change_description['||i||']='||p_change_description||
684: 'p_vendor_id['||i||']='||p_vendor_id||
685: 'p_po_header_id['||i||']='||p_po_header_id||
686: 'p_po_number['||i||']='||p_po_number||
687: 'p_po_line_id['||i||']='||p_po_line_id||
688: 'p_po_line_num['||i||']='||p_po_line_num||
689: 'p_currency['||i||']='||p_currency||
690: 'p_change_amount['||i||']='||p_change_amount;
691: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
692: end if;
693:
694: /*assigning local variables to default value null*/
695: l_vendor_id :=null;
719: p_msg_name => 'PA_CI_ID_CHANGE_TYPE_NULL',
720: p_token1 => 'NUMBER',
721: p_value1 => i);
722: if l_debug_mode = 'Y' then
723: pa_debug.g_err_stage:= ' The ci_id is null or Change Type is null';
724: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
725: end if;
726: x_return_status := FND_API.G_RET_STS_ERROR;
727: elsif p_change_type is not null and (p_change_type <> 'CREATE' and p_change_type <> 'UPDATE') then
720: p_token1 => 'NUMBER',
721: p_value1 => i);
722: if l_debug_mode = 'Y' then
723: pa_debug.g_err_stage:= ' The ci_id is null or Change Type is null';
724: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
725: end if;
726: x_return_status := FND_API.G_RET_STS_ERROR;
727: elsif p_change_type is not null and (p_change_type <> 'CREATE' and p_change_type <> 'UPDATE') then
728: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
729: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
730: p_token1 => 'NUMBER',
731: p_value1 => i);
732: if l_debug_mode = 'Y' then
733: pa_debug.g_err_stage:= ':The Change Type is invalid';
734: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
735: end if;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: end if; --end for if p_ci_id is null or p_change_type is null
730: p_token1 => 'NUMBER',
731: p_value1 => i);
732: if l_debug_mode = 'Y' then
733: pa_debug.g_err_stage:= ':The Change Type is invalid';
734: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
735: end if;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: end if; --end for if p_ci_id is null or p_change_type is null
738:
747: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
748: p_token1 => 'NUMBER',
749: p_value1 => i);
750: if l_debug_mode = 'Y' then
751: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
752: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
753: end if;
754: x_return_status := FND_API.G_RET_STS_ERROR;
755: /*if change_type is UPDATE then user must pass PO details*/
748: p_token1 => 'NUMBER',
749: p_value1 => i);
750: if l_debug_mode = 'Y' then
751: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
752: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
753: end if;
754: x_return_status := FND_API.G_RET_STS_ERROR;
755: /*if change_type is UPDATE then user must pass PO details*/
756: elsif p_change_type is NOT NULL and p_change_type = 'UPDATE'
763: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
764: p_token1 => 'NUMBER',
765: p_value1 => i);
766: if l_debug_mode = 'Y' then
767: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
768: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
769: end if;
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: end if;
764: p_token1 => 'NUMBER',
765: p_value1 => i);
766: if l_debug_mode = 'Y' then
767: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
768: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
769: end if;
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: end if;
772:
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: end if;
772:
773: if l_debug_mode = 'Y' then
774: pa_debug.g_err_stage:= 'After validating the Change Type and ci_id.'||
775: 'Change Type is :'||p_change_type|| ' ; Ci_id is :'||p_ci_id;
776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
777: end if;
778: /*get the ci_type_id and project_id, this should not raise an exception becoz ci_id is already validated in public method.*/
772:
773: if l_debug_mode = 'Y' then
774: pa_debug.g_err_stage:= 'After validating the Change Type and ci_id.'||
775: 'Change Type is :'||p_change_type|| ' ; Ci_id is :'||p_ci_id;
776: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
777: end if;
778: /*get the ci_type_id and project_id, this should not raise an exception becoz ci_id is already validated in public method.*/
779: if p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM then
780: open c_get_project_id(p_ci_id);
784: p_msg_name => 'PA_CI_INVALID_CI_ID',
785: p_token1 => 'NUMBER',
786: p_value1 => i);
787: if l_debug_mode = 'Y' then
788: pa_debug.g_err_stage:= 'Invalid Control Item id.' ;
789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
790: end if;
791: x_return_status := FND_API.G_RET_STS_ERROR;
792: end if;
785: p_token1 => 'NUMBER',
786: p_value1 => i);
787: if l_debug_mode = 'Y' then
788: pa_debug.g_err_stage:= 'Invalid Control Item id.' ;
789: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
790: end if;
791: x_return_status := FND_API.G_RET_STS_ERROR;
792: end if;
793: close c_get_project_id;
793: close c_get_project_id;
794: end if;
795:
796: if l_debug_mode = 'Y' then
797: pa_debug.g_err_stage:= 'The project id is :'||l_project_id;
798: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
799: end if;
800:
801:
794: end if;
795:
796: if l_debug_mode = 'Y' then
797: pa_debug.g_err_stage:= 'The project id is :'||l_project_id;
798: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
799: end if;
800:
801:
802:
811: ' where v.vendor_id = '''||p_vendor_id ||'''';
812: end if;
813:
814: if l_debug_mode = 'Y' then
815: pa_debug.g_err_stage:= 'The l_check_vendor_query is ['||p_change_type||'] : '||l_check_vendor_query;
816: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
817: end if;
818:
819: open c_cur_vendor_id for l_check_vendor_query;
812: end if;
813:
814: if l_debug_mode = 'Y' then
815: pa_debug.g_err_stage:= 'The l_check_vendor_query is ['||p_change_type||'] : '||l_check_vendor_query;
816: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
817: end if;
818:
819: open c_cur_vendor_id for l_check_vendor_query;
820: fetch c_cur_vendor_id into l_vendor_id , l_supplier_name;
823: p_msg_name => 'PA_VENDOR_ID_INVALID',
824: p_token1 => 'NUMBER',
825: p_value1 => i);
826: if l_debug_mode = 'Y' then
827: pa_debug.g_err_stage:= 'Invalid Vedor ID';
828: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
829: end if;
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: close c_cur_vendor_id;
824: p_token1 => 'NUMBER',
825: p_value1 => i);
826: if l_debug_mode = 'Y' then
827: pa_debug.g_err_stage:= 'Invalid Vedor ID';
828: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
829: end if;
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: close c_cur_vendor_id;
832:
841: p_msg_name => 'PA_VENDOR_ID_NULL',
842: p_token1 => 'NUMBER',
843: p_value1 => i);
844: if l_debug_mode = 'Y' then
845: pa_debug.g_err_stage:= 'Vedor ID is null';
846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
847: end if;
848: x_return_status := FND_API.G_RET_STS_ERROR;
849: end if;
842: p_token1 => 'NUMBER',
843: p_value1 => i);
844: if l_debug_mode = 'Y' then
845: pa_debug.g_err_stage:= 'Vedor ID is null';
846: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
847: end if;
848: x_return_status := FND_API.G_RET_STS_ERROR;
849: end if;
850:
860: p_msg_name => 'PA_PO_HEADER_ID_INVALID',
861: p_token1 => 'NUMBER',
862: p_value1 => i);
863: if l_debug_mode = 'Y' then
864: pa_debug.g_err_stage:= 'The header id is not valid';
865: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
866: end if;
867: x_return_status := FND_API.G_RET_STS_ERROR;
868: close c_check_po_header_id;
861: p_token1 => 'NUMBER',
862: p_value1 => i);
863: if l_debug_mode = 'Y' then
864: pa_debug.g_err_stage:= 'The header id is not valid';
865: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
866: end if;
867: x_return_status := FND_API.G_RET_STS_ERROR;
868: close c_check_po_header_id;
869:
873: l_vendor_id := c_check_po_header_id_rec.PoVendorId;
874: l_currency_code := c_check_po_header_id_rec.PoCurrency;
875: l_header_id := p_po_header_id;
876: if l_debug_mode = 'Y' then
877: pa_debug.g_err_stage:= 'The values after validating p_po_header_id are'||
878: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
879: l_vendor_id||'],l_currency_code['||l_currency_code||']';
880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
881: end if;
876: if l_debug_mode = 'Y' then
877: pa_debug.g_err_stage:= 'The values after validating p_po_header_id are'||
878: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
879: l_vendor_id||'],l_currency_code['||l_currency_code||']';
880: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
881: end if;
882: close c_check_po_header_id;
883: if p_vendor_id is not null and p_vendor_id <> G_PA_MISS_NUM then
884: if l_vendor_id <> p_vendor_id then
886: p_msg_name => 'PA_VENDOR_ID_INVALID',
887: p_token1 => 'NUMBER',
888: p_value1 => i);
889: if l_debug_mode = 'Y' then
890: pa_debug.g_err_stage:= 'The Vendor id is not valid';
891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
892: end if;
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: end if;
887: p_token1 => 'NUMBER',
888: p_value1 => i);
889: if l_debug_mode = 'Y' then
890: pa_debug.g_err_stage:= 'The Vendor id is not valid';
891: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
892: end if;
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: end if;
895: end if;
903: p_msg_name => 'PA_PO_NUMBER_INVALID',
904: p_token1 => 'NUMBER',
905: p_value1 => i);
906: if l_debug_mode = 'Y' then
907: pa_debug.g_err_stage:= 'The po_number is not valid';
908: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
909: end if;
910: x_return_status := FND_API.G_RET_STS_ERROR;
911: close c_check_po_number;
904: p_token1 => 'NUMBER',
905: p_value1 => i);
906: if l_debug_mode = 'Y' then
907: pa_debug.g_err_stage:= 'The po_number is not valid';
908: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
909: end if;
910: x_return_status := FND_API.G_RET_STS_ERROR;
911: close c_check_po_number;
912:
916: l_vendor_id := c_check_po_number_rec.PoVendorId;
917: l_currency_code := c_check_po_number_rec.PoCurrency;
918: l_header_id := c_check_po_number_rec.PoHeaderId;
919: if l_debug_mode = 'Y' then
920: pa_debug.g_err_stage:= 'The values after validating p_po_number are'||
921: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
922: l_vendor_id||'],l_currency_code['||l_currency_code||']';
923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
924: end if;
919: if l_debug_mode = 'Y' then
920: pa_debug.g_err_stage:= 'The values after validating p_po_number are'||
921: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
922: l_vendor_id||'],l_currency_code['||l_currency_code||']';
923: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
924: end if;
925: close c_check_po_number;
926: if p_vendor_id is not null then
927: if l_vendor_id <> p_vendor_id then
929: p_msg_name => 'PA_VENDOR_ID_INVALID',
930: p_token1 => 'NUMBER',
931: p_value1 => i);
932: if l_debug_mode = 'Y' then
933: pa_debug.g_err_stage:= 'The Vendor ID is not valid';
934: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
935: end if;
936: x_return_status := FND_API.G_RET_STS_ERROR;
937:
930: p_token1 => 'NUMBER',
931: p_value1 => i);
932: if l_debug_mode = 'Y' then
933: pa_debug.g_err_stage:= 'The Vendor ID is not valid';
934: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
935: end if;
936: x_return_status := FND_API.G_RET_STS_ERROR;
937:
938: end if;
945: p_msg_name => 'PA_HEAD_ID_PO_NUM_IS_NULL',
946: p_token1 => 'NUMBER',
947: p_value1 => i);
948: if l_debug_mode = 'Y' then
949: pa_debug.g_err_stage:= 'The PO header id or Po Number is null';
950: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
951: end if;
952: x_return_status := FND_API.G_RET_STS_ERROR;
953:
946: p_token1 => 'NUMBER',
947: p_value1 => i);
948: if l_debug_mode = 'Y' then
949: pa_debug.g_err_stage:= 'The PO header id or Po Number is null';
950: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
951: end if;
952: x_return_status := FND_API.G_RET_STS_ERROR;
953:
954: end if;
968: p_msg_name => 'PA_PO_LINE_ID_INVALID',
969: p_token1 => 'NUMBER',
970: p_value1 => i);
971: if l_debug_mode = 'Y' then
972: pa_debug.g_err_stage:= 'Po Line id is invalid';
973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
974: end if;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: close c_check_po_line_id;
969: p_token1 => 'NUMBER',
970: p_value1 => i);
971: if l_debug_mode = 'Y' then
972: pa_debug.g_err_stage:= 'Po Line id is invalid';
973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
974: end if;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: close c_check_po_line_id;
977:
990: p_msg_name => 'PA_PO_LINE_NUMBER_INVALID',
991: p_token1 => 'NUMBER',
992: p_value1 => i);
993: if l_debug_mode = 'Y' then
994: pa_debug.g_err_stage:= 'Po Line number is invalid';
995: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
996: end if;
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: close c_check_Doc_number;
991: p_token1 => 'NUMBER',
992: p_value1 => i);
993: if l_debug_mode = 'Y' then
994: pa_debug.g_err_stage:= 'Po Line number is invalid';
995: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
996: end if;
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: close c_check_Doc_number;
999:
1011: p_msg_name => 'PA_PO_LINE_ID_LINE_NUM_NULL',
1012: p_token1 => 'NUMBER',
1013: p_value1 => i);
1014: if l_debug_mode = 'Y' then
1015: pa_debug.g_err_stage:= 'Po Line number is invalid';
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1017: end if;
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: end if;
1012: p_token1 => 'NUMBER',
1013: p_value1 => i);
1014: if l_debug_mode = 'Y' then
1015: pa_debug.g_err_stage:= 'Po Line number is invalid';
1016: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1017: end if;
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019: end if;
1020:
1019: end if;
1020:
1021:
1022: if l_debug_mode = 'Y' then
1023: pa_debug.g_err_stage:= 'Validated the po_line_id or doc number and the values are :'||
1024: 'l_line_num['||l_line_num||'],l_po_number['||l_po_number||'],l_po_line_Amount['||
1025: l_po_line_Amount||']';
1026: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1027: end if;
1022: if l_debug_mode = 'Y' then
1023: pa_debug.g_err_stage:= 'Validated the po_line_id or doc number and the values are :'||
1024: 'l_line_num['||l_line_num||'],l_po_number['||l_po_number||'],l_po_line_Amount['||
1025: l_po_line_Amount||']';
1026: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1027: end if;
1028:
1029:
1030:
1043: p_msg_name => 'PA_CURRENCY_CODE_INVALID',
1044: p_token1 => 'NUMBER',
1045: p_value1 => i);
1046: if l_debug_mode = 'Y' then
1047: pa_debug.g_err_stage:= 'Currency Code is invalid';
1048: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1049: end if;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: close c_check_currency_code;
1044: p_token1 => 'NUMBER',
1045: p_value1 => i);
1046: if l_debug_mode = 'Y' then
1047: pa_debug.g_err_stage:= 'Currency Code is invalid';
1048: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1049: end if;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: close c_check_currency_code;
1052:
1058: p_msg_name => 'PA_CURRENCY_CODE_INVALID',
1059: p_token1 => 'NUMBER',
1060: p_value1 => i);
1061: if l_debug_mode = 'Y' then
1062: pa_debug.g_err_stage:= 'Currency Code is invalid';
1063: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1064: end if;
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: close c_check_currency_code;
1059: p_token1 => 'NUMBER',
1060: p_value1 => i);
1061: if l_debug_mode = 'Y' then
1062: pa_debug.g_err_stage:= 'Currency Code is invalid';
1063: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1064: end if;
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: close c_check_currency_code;
1067: end if;
1072: p_msg_name => 'PA_CURRENCY_CODE_NULL',
1073: p_token1 => 'NUMBER',
1074: p_value1 => i);
1075: if l_debug_mode = 'Y' then
1076: pa_debug.g_err_stage:= ' Currency Code is invalid';
1077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1078: end if;
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: end if;
1073: p_token1 => 'NUMBER',
1074: p_value1 => i);
1075: if l_debug_mode = 'Y' then
1076: pa_debug.g_err_stage:= ' Currency Code is invalid';
1077: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1078: end if;
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: end if;
1081:
1080: end if;
1081:
1082:
1083: if l_debug_mode = 'Y' then
1084: pa_debug.g_err_stage:= ' Currency Code is Validated';
1085: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1086: end if;
1087:
1088: if (p_change_amount is null or p_change_amount = G_PA_MISS_NUM ) and l_po_line_Amount is null then
1081:
1082:
1083: if l_debug_mode = 'Y' then
1084: pa_debug.g_err_stage:= ' Currency Code is Validated';
1085: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1086: end if;
1087:
1088: if (p_change_amount is null or p_change_amount = G_PA_MISS_NUM ) and l_po_line_Amount is null then
1089: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1090: p_msg_name => 'PA_SUPP_AMOUNT_NULL',
1091: p_token1 => 'NUMBER',
1092: p_value1 => i);
1093: if l_debug_mode = 'Y' then
1094: pa_debug.g_err_stage:= 'Change amount cannot be null';
1095: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1096: end if;
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098:
1091: p_token1 => 'NUMBER',
1092: p_value1 => i);
1093: if l_debug_mode = 'Y' then
1094: pa_debug.g_err_stage:= 'Change amount cannot be null';
1095: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1096: end if;
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098:
1099: elsif p_change_amount is not null and p_change_amount <> G_PA_MISS_NUM then
1108: end if;
1109:
1110:
1111: if l_debug_mode = 'Y' then
1112: pa_debug.g_err_stage:= 'Before calling the PA_CI_SUPPLIER_UTILS.validateSI to validate and insert';
1113: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1114: end if;
1115: /*Call the procedure to insert the details*/
1116: if x_return_status = FND_API.G_RET_STS_SUCCESS then
1109:
1110:
1111: if l_debug_mode = 'Y' then
1112: pa_debug.g_err_stage:= 'Before calling the PA_CI_SUPPLIER_UTILS.validateSI to validate and insert';
1113: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1114: end if;
1115: /*Call the procedure to insert the details*/
1116: if x_return_status = FND_API.G_RET_STS_SUCCESS then
1117: /* PA_CI_SUPPLIER_UTILS.validateSI(
1166: raise FND_API.G_EXC_ERROR;
1167: end if;
1168: --Reset the stack
1169: if l_debug_mode = 'Y' then
1170: pa_debug.reset_curr_function;
1171: end if;
1172:
1173: Exception
1174:
1191: x_msg_count := l_msg_count;
1192: end if;
1193: --Reset the stack
1194: if l_debug_mode = 'Y' then
1195: pa_debug.reset_curr_function;
1196: end if;
1197:
1198: raise;
1199:
1207: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1208: p_data => x_msg_data);
1209: --Reset the stack
1210: if l_debug_mode = 'Y' then
1211: pa_debug.reset_curr_function;
1212: end if;
1213:
1214: raise;
1215:
1287: -- initialize the return status to success
1288: x_return_status := fnd_api.g_ret_sts_success;
1289: x_msg_count := 0;
1290:
1291: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1292: l_module_name := 'check_create_ci_allowed' || g_module_name;
1293:
1294: if l_debug_mode = 'Y' then
1295: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1291: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1292: l_module_name := 'check_create_ci_allowed' || g_module_name;
1293:
1294: if l_debug_mode = 'Y' then
1295: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1296: end if;
1297:
1298: if l_debug_mode = 'Y' then
1299: pa_debug.write(l_module_name, 'start of check_create_ci_allowed', l_debug_level3);
1295: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1296: end if;
1297:
1298: if l_debug_mode = 'Y' then
1299: pa_debug.write(l_module_name, 'start of check_create_ci_allowed', l_debug_level3);
1300: end if;
1301:
1302: --Store the initial values of the in out parameteres so that these can be restored back if some exception occurs.
1303: l_ini_proj_id := p_project_id;
1310: PA_UTILS.ADD_MESSAGE
1311: (p_app_short_name => 'PA',
1312: p_msg_name => 'PA_CI_TYPE_ID_MISSING');
1313: if l_debug_mode = 'Y' then
1314: pa_debug.g_err_stage:= 'ci_type_id is null';
1315: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1316: end if;
1317: l_any_err_occured_flg := 'Y';
1318: end if;
1311: (p_app_short_name => 'PA',
1312: p_msg_name => 'PA_CI_TYPE_ID_MISSING');
1313: if l_debug_mode = 'Y' then
1314: pa_debug.g_err_stage:= 'ci_type_id is null';
1315: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1316: end if;
1317: l_any_err_occured_flg := 'Y';
1318: end if;
1319:
1321: PA_UTILS.ADD_MESSAGE
1322: (p_app_short_name => 'PA',
1323: p_msg_name => 'PA_CI_PROJECT_MISSING');
1324: if l_debug_mode = 'Y' then
1325: pa_debug.g_err_stage:= 'project id, project number, project name, all three cannot be null';
1326: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1327: end if;
1328: l_any_err_occured_flg := 'Y';
1329: end if;
1322: (p_app_short_name => 'PA',
1323: p_msg_name => 'PA_CI_PROJECT_MISSING');
1324: if l_debug_mode = 'Y' then
1325: pa_debug.g_err_stage:= 'project id, project number, project name, all three cannot be null';
1326: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1327: end if;
1328: l_any_err_occured_flg := 'Y';
1329: end if;
1330:
1336: PA_UTILS.ADD_MESSAGE
1337: (p_app_short_name => 'PA',
1338: p_msg_name => 'PA_CI_INVALID_TYPE_ID'); --existing msg.
1339: if l_debug_mode = 'Y' then
1340: pa_debug.g_err_stage:= 'Invalid ci_type_id passed';
1341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1342: end if;
1343: close get_ci_type_attrs;
1344: l_any_err_occured_flg := 'Y';
1337: (p_app_short_name => 'PA',
1338: p_msg_name => 'PA_CI_INVALID_TYPE_ID'); --existing msg.
1339: if l_debug_mode = 'Y' then
1340: pa_debug.g_err_stage:= 'Invalid ci_type_id passed';
1341: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1342: end if;
1343: close get_ci_type_attrs;
1344: l_any_err_occured_flg := 'Y';
1345: else
1354: PA_UTILS.ADD_MESSAGE
1355: (p_app_short_name => 'PA',
1356: p_msg_name => 'PA_CI_INV_API_USE'); --existing msg.
1357: if l_debug_mode = 'Y' then
1358: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1360: end if;
1361: l_any_err_occured_flg := 'Y';
1362: end if;--if(p_ci_type_class_code <> l_ci_type_attrs_rec.ci_type_class_code) then
1355: (p_app_short_name => 'PA',
1356: p_msg_name => 'PA_CI_INV_API_USE'); --existing msg.
1357: if l_debug_mode = 'Y' then
1358: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
1359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1360: end if;
1361: l_any_err_occured_flg := 'Y';
1362: end if;--if(p_ci_type_class_code <> l_ci_type_attrs_rec.ci_type_class_code) then
1363: end if;
1373: PA_UTILS.ADD_MESSAGE
1374: (p_app_short_name => 'PA',
1375: p_msg_name => 'PA_CI_NO_PROJECT_ID'); --exisitng message
1376: if l_debug_mode = 'Y' then
1377: pa_debug.g_err_stage:= 'Invalid project id passed';
1378: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1379: end if;
1380: close validate_prj_id;
1381: l_any_err_occured_flg := 'Y';
1374: (p_app_short_name => 'PA',
1375: p_msg_name => 'PA_CI_NO_PROJECT_ID'); --exisitng message
1376: if l_debug_mode = 'Y' then
1377: pa_debug.g_err_stage:= 'Invalid project id passed';
1378: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1379: end if;
1380: close validate_prj_id;
1381: l_any_err_occured_flg := 'Y';
1382: else
1391: PA_UTILS.ADD_MESSAGE
1392: (p_app_short_name => 'PA',
1393: p_msg_name => 'PA_CI_INV_PROJ_NUM');
1394: if l_debug_mode = 'Y' then
1395: pa_debug.g_err_stage:= 'Invalid project number passed';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1397: end if;
1398: close get_project_id_frm_num;
1399: l_any_err_occured_flg := 'Y';
1392: (p_app_short_name => 'PA',
1393: p_msg_name => 'PA_CI_INV_PROJ_NUM');
1394: if l_debug_mode = 'Y' then
1395: pa_debug.g_err_stage:= 'Invalid project number passed';
1396: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1397: end if;
1398: close get_project_id_frm_num;
1399: l_any_err_occured_flg := 'Y';
1400: else
1409: PA_UTILS.ADD_MESSAGE
1410: (p_app_short_name => 'PA',
1411: p_msg_name => 'PA_CI_INV_PROJ_NAME');
1412: if l_debug_mode = 'Y' then
1413: pa_debug.g_err_stage:= 'Invalid project name passed';
1414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1415: end if;
1416: close get_project_id_frm_name;
1417: l_any_err_occured_flg := 'Y';
1410: (p_app_short_name => 'PA',
1411: p_msg_name => 'PA_CI_INV_PROJ_NAME');
1412: if l_debug_mode = 'Y' then
1413: pa_debug.g_err_stage:= 'Invalid project name passed';
1414: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1415: end if;
1416: close get_project_id_frm_name;
1417: l_any_err_occured_flg := 'Y';
1418: else
1435: PA_UTILS.ADD_MESSAGE
1436: (p_app_short_name => 'PA',
1437: p_msg_name => 'PA_CI_NO_SECURITY');
1438: if l_debug_mode = 'Y' then
1439: pa_debug.g_err_stage:= 'Either the project type or role selected by you doesnt have privilge to create the control item';
1440: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1441: end if;
1442: close check_create_ci_priv;
1443: l_any_err_occured_flg := 'Y';
1436: (p_app_short_name => 'PA',
1437: p_msg_name => 'PA_CI_NO_SECURITY');
1438: if l_debug_mode = 'Y' then
1439: pa_debug.g_err_stage:= 'Either the project type or role selected by you doesnt have privilge to create the control item';
1440: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1441: end if;
1442: close check_create_ci_priv;
1443: l_any_err_occured_flg := 'Y';
1444: else
1450: raise fnd_api.g_exc_error;
1451: end if;
1452:
1453: if l_debug_mode = 'Y' then
1454: pa_debug.reset_curr_function;
1455: end if;
1456:
1457: exception
1458: when fnd_api.g_exc_error then
1480: p_project_id := l_ini_proj_id;
1481: p_ci_type_id := l_ini_ci_type_id;
1482: --Reset the stack
1483: if l_debug_mode = 'Y' then
1484: pa_debug.reset_curr_function;
1485: end if;
1486: --raise the exception
1487: raise;
1488: when others then
1500: p_project_id := l_ini_proj_id;
1501: p_ci_type_id := l_ini_ci_type_id;
1502: --Reset the stack
1503: if l_debug_mode = 'Y' then
1504: pa_debug.reset_curr_function;
1505: end if;
1506: --raise the exception
1507: raise;
1508: end check_create_ci_allowed;
1785: -- initialize the return status to success
1786: x_return_status := fnd_api.g_ret_sts_success;
1787: x_msg_count := 0;
1788:
1789: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1790: l_module_name := 'validate_param_and_create' || g_module_name;
1791:
1792: if l_debug_mode = 'Y' then
1793: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1789: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1790: l_module_name := 'validate_param_and_create' || g_module_name;
1791:
1792: if l_debug_mode = 'Y' then
1793: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1794: end if;
1795:
1796: if l_debug_mode = 'Y' then
1797: pa_debug.write(l_module_name, 'start of validate_param_and_create', l_debug_level3);
1793: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1794: end if;
1795:
1796: if l_debug_mode = 'Y' then
1797: pa_debug.write(l_module_name, 'start of validate_param_and_create', l_debug_level3);
1798: end if;
1799:
1800: --setting the err occured flag to N initially.
1801: l_any_err_occured_flg := 'N';
1809: PA_UTILS.ADD_MESSAGE
1810: (p_app_short_name => 'PA',
1811: p_msg_name => 'PA_CI_NO_SUMMARY'); --existing msg
1812: if l_debug_mode = 'Y' then
1813: pa_debug.g_err_stage:= 'Summary passed is null';
1814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1815: end if;
1816: l_any_err_occured_flg := 'Y';
1817: end if;
1810: (p_app_short_name => 'PA',
1811: p_msg_name => 'PA_CI_NO_SUMMARY'); --existing msg
1812: if l_debug_mode = 'Y' then
1813: pa_debug.g_err_stage:= 'Summary passed is null';
1814: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1815: end if;
1816: l_any_err_occured_flg := 'Y';
1817: end if;
1818:
1839: if (get_strtng_sts_frm_sts_nme%notfound) then
1840: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1841: ,p_msg_name => 'PA_CI_INV_STATUS');
1842: if l_debug_mode = 'Y' then
1843: pa_debug.g_err_stage:= 'Invalid status passed';
1844: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1845: end if;
1846: l_any_err_occured_flg := 'Y';
1847: close get_strtng_sts_frm_sts_nme;
1840: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1841: ,p_msg_name => 'PA_CI_INV_STATUS');
1842: if l_debug_mode = 'Y' then
1843: pa_debug.g_err_stage:= 'Invalid status passed';
1844: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1845: end if;
1846: l_any_err_occured_flg := 'Y';
1847: close get_strtng_sts_frm_sts_nme;
1848: else
1860: if (get_strtng_sts_frm_sts_cde%notfound) then
1861: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1862: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE'); --this msg is already there
1863: if l_debug_mode = 'Y' then
1864: pa_debug.g_err_stage:= 'Invalid status code passed';
1865: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1866: end if;
1867: l_any_err_occured_flg := 'Y';
1868: close get_strtng_sts_frm_sts_cde;
1861: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1862: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE'); --this msg is already there
1863: if l_debug_mode = 'Y' then
1864: pa_debug.g_err_stage:= 'Invalid status code passed';
1865: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1866: end if;
1867: l_any_err_occured_flg := 'Y';
1868: close get_strtng_sts_frm_sts_cde;
1869: else
1881: if (get_prj_mgr_id%notfound) then
1882: pa_utils.add_message( p_app_short_name => 'PA'
1883: ,p_msg_name => 'PA_CI_NO_MGR_ID'); --Need to check what this msg context shd be.
1884: if l_debug_mode = 'Y' then
1885: pa_debug.g_err_stage:= 'Could not find project manager';
1886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1887: end if;
1888: close get_prj_mgr_id;
1889: l_any_err_occured_flg := 'Y';
1882: pa_utils.add_message( p_app_short_name => 'PA'
1883: ,p_msg_name => 'PA_CI_NO_MGR_ID'); --Need to check what this msg context shd be.
1884: if l_debug_mode = 'Y' then
1885: pa_debug.g_err_stage:= 'Could not find project manager';
1886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1887: end if;
1888: close get_prj_mgr_id;
1889: l_any_err_occured_flg := 'Y';
1890: else
1900: if(validate_owner_id%notfound) then
1901: pa_utils.add_message( p_app_short_name => 'PA'
1902: ,p_msg_name => 'PA_CI_NO_OWNER'); --existing msg
1903: if l_debug_mode = 'Y' then
1904: pa_debug.g_err_stage:= 'Invalid owner id passed';
1905: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1906: end if;
1907: l_any_err_occured_flg := 'Y';
1908: close validate_owner_id;
1901: pa_utils.add_message( p_app_short_name => 'PA'
1902: ,p_msg_name => 'PA_CI_NO_OWNER'); --existing msg
1903: if l_debug_mode = 'Y' then
1904: pa_debug.g_err_stage:= 'Invalid owner id passed';
1905: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1906: end if;
1907: l_any_err_occured_flg := 'Y';
1908: close validate_owner_id;
1909: else
1920: if (validate_progress_sts_code%notfound) then
1921: pa_utils.add_message( p_app_short_name => 'PA'
1922: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
1923: if l_debug_mode = 'Y' then
1924: pa_debug.g_err_stage:= 'Invalid progress status code passed';
1925: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1926: end if;
1927: l_any_err_occured_flg := 'Y';
1928: close validate_progress_sts_code;
1921: pa_utils.add_message( p_app_short_name => 'PA'
1922: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
1923: if l_debug_mode = 'Y' then
1924: pa_debug.g_err_stage:= 'Invalid progress status code passed';
1925: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1926: end if;
1927: l_any_err_occured_flg := 'Y';
1928: close validate_progress_sts_code;
1929: else --if (validate_progress_sts_code%notfound) then
1941: if (p_classification_code is null) then
1942: pa_utils.add_message( p_app_short_name => 'PA'
1943: ,p_msg_name => 'PA_CI_MIS_CLASSIFICATION_COD'); --msg is already there
1944: if l_debug_mode = 'Y' then
1945: pa_debug.g_err_stage:= 'classification_code is null';
1946: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1947: end if;
1948: l_any_err_occured_flg := 'Y';
1949: end if;
1942: pa_utils.add_message( p_app_short_name => 'PA'
1943: ,p_msg_name => 'PA_CI_MIS_CLASSIFICATION_COD'); --msg is already there
1944: if l_debug_mode = 'Y' then
1945: pa_debug.g_err_stage:= 'classification_code is null';
1946: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1947: end if;
1948: l_any_err_occured_flg := 'Y';
1949: end if;
1950: if (p_reason_code is null) then
1950: if (p_reason_code is null) then
1951: pa_utils.add_message( p_app_short_name => 'PA'
1952: ,p_msg_name => 'PA_CI_MISS_REASON_CODE'); --msg is already there
1953: if l_debug_mode = 'Y' then
1954: pa_debug.g_err_stage:= 'reason_code is null';
1955: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1956: end if;
1957: l_any_err_occured_flg := 'Y';
1958: end if;
1951: pa_utils.add_message( p_app_short_name => 'PA'
1952: ,p_msg_name => 'PA_CI_MISS_REASON_CODE'); --msg is already there
1953: if l_debug_mode = 'Y' then
1954: pa_debug.g_err_stage:= 'reason_code is null';
1955: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1956: end if;
1957: l_any_err_occured_flg := 'Y';
1958: end if;
1959: end if;
1965: if (validate_clsfcation_code%notfound) then
1966: pa_utils.add_message( p_app_short_name => 'PA'
1967: ,p_msg_name => 'PA_CI_CLASSIFICATION_INV');
1968: if l_debug_mode = 'Y' then
1969: pa_debug.g_err_stage:= 'Invalid classification code passed';
1970: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1971: end if;
1972: l_any_err_occured_flg := 'Y';
1973: close validate_clsfcation_code;
1966: pa_utils.add_message( p_app_short_name => 'PA'
1967: ,p_msg_name => 'PA_CI_CLASSIFICATION_INV');
1968: if l_debug_mode = 'Y' then
1969: pa_debug.g_err_stage:= 'Invalid classification code passed';
1970: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1971: end if;
1972: l_any_err_occured_flg := 'Y';
1973: close validate_clsfcation_code;
1974: else
1983: if (validate_reason_code%notfound) then
1984: pa_utils.add_message( p_app_short_name => 'PA'
1985: ,p_msg_name => 'PA_CI_INV_REA_CODE');
1986: if l_debug_mode = 'Y' then
1987: pa_debug.g_err_stage:= 'Invalid reason code passed';
1988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1989: end if;
1990: l_any_err_occured_flg := 'Y';
1991: close validate_reason_code;
1984: pa_utils.add_message( p_app_short_name => 'PA'
1985: ,p_msg_name => 'PA_CI_INV_REA_CODE');
1986: if l_debug_mode = 'Y' then
1987: pa_debug.g_err_stage:= 'Invalid reason code passed';
1988: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1989: end if;
1990: l_any_err_occured_flg := 'Y';
1991: close validate_reason_code;
1992: else
1998: if(p_object_type is not null and p_object_type <> 'PA_TASKS') then
1999: pa_utils.add_message( p_app_short_name => 'PA'
2000: ,p_msg_name => 'PA_CI_INV_OBJ_TYPE');
2001: if l_debug_mode = 'Y' then
2002: pa_debug.g_err_stage:= 'Invalid object type passed';
2003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2004: end if;
2005: l_any_err_occured_flg := 'Y';
2006: end if;
1999: pa_utils.add_message( p_app_short_name => 'PA'
2000: ,p_msg_name => 'PA_CI_INV_OBJ_TYPE');
2001: if l_debug_mode = 'Y' then
2002: pa_debug.g_err_stage:= 'Invalid object type passed';
2003: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2004: end if;
2005: l_any_err_occured_flg := 'Y';
2006: end if;
2007:
2012: if (validate_obj_id%notfound) then
2013: pa_utils.add_message( p_app_short_name => 'PA'
2014: ,p_msg_name => 'PA_CI_INV_OBJ_ID');
2015: if l_debug_mode = 'Y' then
2016: pa_debug.g_err_stage:= 'Invalid Object Id passed';
2017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2018: end if;
2019: l_any_err_occured_flg := 'Y';
2020: close validate_obj_id;
2013: pa_utils.add_message( p_app_short_name => 'PA'
2014: ,p_msg_name => 'PA_CI_INV_OBJ_ID');
2015: if l_debug_mode = 'Y' then
2016: pa_debug.g_err_stage:= 'Invalid Object Id passed';
2017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2018: end if;
2019: l_any_err_occured_flg := 'Y';
2020: close validate_obj_id;
2021: end if;
2029: if(p_date_closed is null) then
2030: pa_utils.add_message( p_app_short_name => 'PA'
2031: ,p_msg_name => 'PA_CI_CLS_DATE_MISS');
2032: if l_debug_mode = 'Y' then
2033: pa_debug.g_err_stage:= 'For a control item in closed status, closed_date is missing';
2034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2035: end if;
2036: l_any_err_occured_flg := 'Y';
2037: else
2030: pa_utils.add_message( p_app_short_name => 'PA'
2031: ,p_msg_name => 'PA_CI_CLS_DATE_MISS');
2032: if l_debug_mode = 'Y' then
2033: pa_debug.g_err_stage:= 'For a control item in closed status, closed_date is missing';
2034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2035: end if;
2036: l_any_err_occured_flg := 'Y';
2037: else
2038: l_date_closed := p_date_closed;
2050: if(p_closed_by_id is null) then
2051: pa_utils.add_message( p_app_short_name => 'PA'
2052: ,p_msg_name => 'PA_CI_CLS_BYID_MISS');
2053: if l_debug_mode = 'Y' then
2054: pa_debug.g_err_stage:= 'For a control item in closed status, closed_by_id is missing';
2055: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2056: end if;
2057: l_any_err_occured_flg := 'Y';
2058: else--if(p_closed_by_id is null) then
2051: pa_utils.add_message( p_app_short_name => 'PA'
2052: ,p_msg_name => 'PA_CI_CLS_BYID_MISS');
2053: if l_debug_mode = 'Y' then
2054: pa_debug.g_err_stage:= 'For a control item in closed status, closed_by_id is missing';
2055: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2056: end if;
2057: l_any_err_occured_flg := 'Y';
2058: else--if(p_closed_by_id is null) then
2059: /*validate the p_closed_by_id. Also the persons with the project authority can close the item*/
2062: if(validate_cls_by_id%notfound) then
2063: pa_utils.add_message( p_app_short_name => 'PA'
2064: ,p_msg_name => 'PA_CI_INV_CLS_BYID');
2065: if l_debug_mode = 'Y' then
2066: pa_debug.g_err_stage:= 'inavlid closed_by_id is passed or user doesnt have project authority';
2067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2068: end if;
2069: l_any_err_occured_flg := 'Y';
2070: close validate_cls_by_id;
2063: pa_utils.add_message( p_app_short_name => 'PA'
2064: ,p_msg_name => 'PA_CI_INV_CLS_BYID');
2065: if l_debug_mode = 'Y' then
2066: pa_debug.g_err_stage:= 'inavlid closed_by_id is passed or user doesnt have project authority';
2067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2068: end if;
2069: l_any_err_occured_flg := 'Y';
2070: close validate_cls_by_id;
2071: else
2093: if (validate_resolution_code%notfound) then
2094: pa_utils.add_message( p_app_short_name => 'PA'
2095: ,p_msg_name => 'PA_CI_INV_RES_CODE');
2096: if l_debug_mode = 'Y' then
2097: pa_debug.g_err_stage:= 'Invalid resolution code passed';
2098: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2099: end if;
2100: l_any_err_occured_flg := 'Y';
2101: close validate_resolution_code;
2094: pa_utils.add_message( p_app_short_name => 'PA'
2095: ,p_msg_name => 'PA_CI_INV_RES_CODE');
2096: if l_debug_mode = 'Y' then
2097: pa_debug.g_err_stage:= 'Invalid resolution code passed';
2098: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2099: end if;
2100: l_any_err_occured_flg := 'Y';
2101: close validate_resolution_code;
2102: end if;
2112: if (validate_priority_code%notfound) then
2113: pa_utils.add_message( p_app_short_name => 'PA'
2114: ,p_msg_name => 'PA_CI_INV_PRIO_CODE');
2115: if l_debug_mode = 'Y' then
2116: pa_debug.g_err_stage:= 'Invalid priority code passed';
2117: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2118: end if;
2119: l_any_err_occured_flg := 'Y';
2120: close validate_priority_code;
2113: pa_utils.add_message( p_app_short_name => 'PA'
2114: ,p_msg_name => 'PA_CI_INV_PRIO_CODE');
2115: if l_debug_mode = 'Y' then
2116: pa_debug.g_err_stage:= 'Invalid priority code passed';
2117: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2118: end if;
2119: l_any_err_occured_flg := 'Y';
2120: close validate_priority_code;
2121: end if;
2129: if (validate_eff_lvl_code%notfound) then
2130: pa_utils.add_message( p_app_short_name => 'PA'
2131: ,p_msg_name => 'PA_CI_INV_EFFR_CODE');
2132: if l_debug_mode = 'Y' then
2133: pa_debug.g_err_stage:= 'Invalid effort code passed';
2134: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2135: end if;
2136: l_any_err_occured_flg := 'Y';
2137: close validate_eff_lvl_code;
2130: pa_utils.add_message( p_app_short_name => 'PA'
2131: ,p_msg_name => 'PA_CI_INV_EFFR_CODE');
2132: if l_debug_mode = 'Y' then
2133: pa_debug.g_err_stage:= 'Invalid effort code passed';
2134: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2135: end if;
2136: l_any_err_occured_flg := 'Y';
2137: close validate_eff_lvl_code;
2138: end if;
2151: if (validate_prj_currency%notfound) then
2152: pa_utils.add_message( p_app_short_name => 'PA'
2153: ,p_msg_name => 'PA_CI_INV_CURR_CODE');
2154: if l_debug_mode = 'Y' then
2155: pa_debug.g_err_stage:= 'Invalid currency code passed';
2156: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2157: end if;
2158: l_any_err_occured_flg := 'Y';
2159: close validate_prj_currency;
2152: pa_utils.add_message( p_app_short_name => 'PA'
2153: ,p_msg_name => 'PA_CI_INV_CURR_CODE');
2154: if l_debug_mode = 'Y' then
2155: pa_debug.g_err_stage:= 'Invalid currency code passed';
2156: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2157: end if;
2158: l_any_err_occured_flg := 'Y';
2159: close validate_prj_currency;
2160: end if;
2217: ,x_msg_data => x_msg_data);
2218:
2219: if x_return_status <> FND_API.g_ret_sts_success then
2220: if l_debug_mode = 'Y' then
2221: pa_debug.g_err_stage:= 'Failed in pa_system_numbers_pkg.get_next_number';
2222: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2223: end if;
2224: raise api_error;
2225: end if;
2218:
2219: if x_return_status <> FND_API.g_ret_sts_success then
2220: if l_debug_mode = 'Y' then
2221: pa_debug.g_err_stage:= 'Failed in pa_system_numbers_pkg.get_next_number';
2222: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2223: end if;
2224: raise api_error;
2225: end if;
2226: l_ci_number_char := TO_CHAR(l_ci_number_num);
2245: if pa_control_items_pvt.ci_number_exists(p_project_id, l_ci_number_char ,p_ci_type_id) = TRUE then
2246: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2247: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');--msg already there
2248: if l_debug_mode = 'Y' then
2249: pa_debug.g_err_stage:= 'Duplicate ci_number passed.';
2250: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2251: end if;
2252: l_any_err_occured_flg := 'Y';
2253: end if;
2246: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2247: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');--msg already there
2248: if l_debug_mode = 'Y' then
2249: pa_debug.g_err_stage:= 'Duplicate ci_number passed.';
2250: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2251: end if;
2252: l_any_err_occured_flg := 'Y';
2253: end if;
2254: end if;--p_auto_number_flag = 'Y' and l_system_status_code <> 'CI_DRAFT'
2258: if l_ci_number_char is null and l_system_status_code <> 'CI_DRAFT' then
2259: pa_utils.add_message( p_app_short_name => 'PA'
2260: ,p_msg_name => 'PA_CI_NO_CI_NUMBER'); --msg already there
2261: if l_debug_mode = 'Y' then
2262: pa_debug.g_err_stage:= 'Missing ci_number';
2263: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2264: end if;
2265: l_any_err_occured_flg := 'Y';
2266: end if;
2259: pa_utils.add_message( p_app_short_name => 'PA'
2260: ,p_msg_name => 'PA_CI_NO_CI_NUMBER'); --msg already there
2261: if l_debug_mode = 'Y' then
2262: pa_debug.g_err_stage:= 'Missing ci_number';
2263: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2264: end if;
2265: l_any_err_occured_flg := 'Y';
2266: end if;
2267: exception
2273: end; --for begin
2274: end if;--l_status_code is not null
2275:
2276: if l_debug_mode = 'Y' then
2277: pa_debug.g_err_stage:= 'about to call the table handler';
2278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2279: end if;
2280:
2281: if (l_any_err_occured_flg is not null and l_any_err_occured_flg <> 'Y') then
2274: end if;--l_status_code is not null
2275:
2276: if l_debug_mode = 'Y' then
2277: pa_debug.g_err_stage:= 'about to call the table handler';
2278: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2279: end if;
2280:
2281: if (l_any_err_occured_flg is not null and l_any_err_occured_flg <> 'Y') then
2282: pa_control_items_pkg.insert_row (
2337: end if;
2338:
2339: if (x_return_status <> fnd_api.g_ret_sts_success) then
2340: if l_debug_mode = 'Y' then
2341: pa_debug.g_err_stage:= 'Missing ci_number';
2342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2343: end if;
2344: raise fnd_api.g_exc_unexpected_error;
2345: end if;
2338:
2339: if (x_return_status <> fnd_api.g_ret_sts_success) then
2340: if l_debug_mode = 'Y' then
2341: pa_debug.g_err_stage:= 'Missing ci_number';
2342: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2343: end if;
2344: raise fnd_api.g_exc_unexpected_error;
2345: end if;
2346:
2355: x_ci_number := l_ci_number_char;
2356:
2357: --rest the stack;
2358: if l_debug_mode = 'Y' then
2359: pa_debug.reset_curr_function;
2360: end if;
2361:
2362: exception
2363: when fnd_api.g_exc_unexpected_error then
2369: x_ci_id := null;
2370: x_ci_number := null;
2371: --rest the stack;
2372: if l_debug_mode = 'Y' then
2373: pa_debug.reset_curr_function;
2374: end if;
2375: --raise the exception
2376: raise;
2377: when fnd_api.g_exc_error then
2396: x_ci_number := null;
2397:
2398: --rest the stack;
2399: if l_debug_mode = 'Y' then
2400: pa_debug.reset_curr_function;
2401: end if;
2402: --raise the exception
2403: raise;
2404: when others then
2415:
2416:
2417: --Reset the stack
2418: if l_debug_mode = 'Y' then
2419: pa_debug.reset_curr_function;
2420: end if;
2421: --raise the exception
2422: raise;
2423: end validate_param_and_create;
2450: -- initialize the return status to success
2451: x_return_status := fnd_api.g_ret_sts_success;
2452: x_msg_count := 0;
2453:
2454: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2455: l_module_name := 'check_create_action_allow' || g_module_name;
2456:
2457: if l_debug_mode = 'Y' then
2458: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2454: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2455: l_module_name := 'check_create_action_allow' || g_module_name;
2456:
2457: if l_debug_mode = 'Y' then
2458: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2459: end if;
2460:
2461: if l_debug_mode = 'Y' then
2462: pa_debug.write(l_module_name, 'start of check_create_action_allow', l_debug_level3);
2458: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2459: end if;
2460:
2461: if l_debug_mode = 'Y' then
2462: pa_debug.write(l_module_name, 'start of check_create_action_allow', l_debug_level3);
2463: end if;
2464:
2465: --Setting this flag to N initially.
2466: l_any_err_occured_flg := 'N';
2470: pa_utils.add_message
2471: (p_app_short_name => 'PA',
2472: p_msg_name => 'PA_CI_MISS_CI_ID');
2473: if l_debug_mode = 'Y' then
2474: pa_debug.g_err_stage:= 'ci_id is missing';
2475: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2476: end if;
2477: l_any_err_occured_flg := 'Y';
2478: end if;-- if(p_ci_id is null) then
2471: (p_app_short_name => 'PA',
2472: p_msg_name => 'PA_CI_MISS_CI_ID');
2473: if l_debug_mode = 'Y' then
2474: pa_debug.g_err_stage:= 'ci_id is missing';
2475: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2476: end if;
2477: l_any_err_occured_flg := 'Y';
2478: end if;-- if(p_ci_id is null) then
2479:
2486: pa_utils.add_message
2487: (p_app_short_name => 'PA',
2488: p_msg_name => 'PA_CI_INV_CI_ID');
2489: if l_debug_mode = 'Y' then
2490: pa_debug.g_err_stage:= 'ci_id is invalid';
2491: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2492: end if;
2493: close check_valid_ci_id;
2494: l_any_err_occured_flg := 'Y';
2487: (p_app_short_name => 'PA',
2488: p_msg_name => 'PA_CI_INV_CI_ID');
2489: if l_debug_mode = 'Y' then
2490: pa_debug.g_err_stage:= 'ci_id is invalid';
2491: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2492: end if;
2493: close check_valid_ci_id;
2494: l_any_err_occured_flg := 'Y';
2495: else
2512: pa_utils.add_message
2513: (p_app_short_name => 'PA',
2514: p_msg_name => 'PA_CI_ACT_FLS_SEC');
2515: if l_debug_mode = 'Y' then
2516: pa_debug.g_err_stage:= 'user doesnt have security to create the action';
2517: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2518: end if;
2519: l_any_err_occured_flg := 'Y';
2520: end if;
2513: (p_app_short_name => 'PA',
2514: p_msg_name => 'PA_CI_ACT_FLS_SEC');
2515: if l_debug_mode = 'Y' then
2516: pa_debug.g_err_stage:= 'user doesnt have security to create the action';
2517: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2518: end if;
2519: l_any_err_occured_flg := 'Y';
2520: end if;
2521:
2524: end if;
2525:
2526: --rest the stack;
2527: if l_debug_mode = 'Y' then
2528: pa_debug.reset_curr_function;
2529: end if;
2530:
2531: Exception
2532: when fnd_api.g_exc_error then
2549: x_project_id := null;
2550: /* no in/out paramters to be set to their initial values here*/
2551: --rest the stack;
2552: if l_debug_mode = 'Y' then
2553: pa_debug.reset_curr_function;
2554: end if;
2555: --raise the exception
2556: raise;
2557: when others then
2565: x_project_id := null;
2566: /* no in/out paramters to be set to their initial values here*/
2567: --rest the stack;
2568: if l_debug_mode = 'Y' then
2569: pa_debug.reset_curr_function;
2570: end if;
2571: --raise the exception
2572: raise;
2573: END check_create_action_allow;
2616: -- initialize the return status to success
2617: x_return_status := fnd_api.g_ret_sts_success;
2618: x_msg_count := 0;
2619:
2620: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2621: l_module_name := 'validate_assignee_id' || g_module_name;
2622:
2623: if l_debug_mode = 'Y' then
2624: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2620: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2621: l_module_name := 'validate_assignee_id' || g_module_name;
2622:
2623: if l_debug_mode = 'Y' then
2624: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2625: end if;
2626:
2627: if l_debug_mode = 'Y' then
2628: pa_debug.write(l_module_name, 'start of validate_assignee_id', l_debug_level3);
2624: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2625: end if;
2626:
2627: if l_debug_mode = 'Y' then
2628: pa_debug.write(l_module_name, 'start of validate_assignee_id', l_debug_level3);
2629: end if;
2630:
2631: if(p_assignee_id is not null) then
2632: /*Validate the passed action assinee id exists in the system*/
2648: p_msg_name => 'PA_CI_INV_ACT_ASSGN_CODE_NT');
2649: end if;--if(p_msg_token_num is not null) then
2650:
2651: if (l_debug_mode = 'Y') then
2652: pa_debug.g_err_stage:= 'Invalid action assingee code passed';
2653: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2654: end if;
2655: close chk_act_assgn_id;
2656: raise fnd_api.g_exc_error;
2649: end if;--if(p_msg_token_num is not null) then
2650:
2651: if (l_debug_mode = 'Y') then
2652: pa_debug.g_err_stage:= 'Invalid action assingee code passed';
2653: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2654: end if;
2655: close chk_act_assgn_id;
2656: raise fnd_api.g_exc_error;
2657: else--(chk_act_assgn_id%notfound) then
2672: p_msg_name => 'PA_CI_MISS_ASSGN_ID_NT');
2673: end if;--if(p_msg_token_num is not null)
2674:
2675: if l_debug_mode = 'Y' then
2676: pa_debug.g_err_stage:= 'Action Assignee Id is missing';
2677: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2678: end if;
2679: raise fnd_api.g_exc_error;
2680: end if;--if(p_assignee_id is not null) then
2673: end if;--if(p_msg_token_num is not null)
2674:
2675: if l_debug_mode = 'Y' then
2676: pa_debug.g_err_stage:= 'Action Assignee Id is missing';
2677: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2678: end if;
2679: raise fnd_api.g_exc_error;
2680: end if;--if(p_assignee_id is not null) then
2681: --rest the stack;
2679: raise fnd_api.g_exc_error;
2680: end if;--if(p_assignee_id is not null) then
2681: --rest the stack;
2682: if l_debug_mode = 'Y' then
2683: pa_debug.reset_curr_function;
2684: end if;
2685:
2686: Exception
2687: when fnd_api.g_exc_error then
2704: x_assignee_id := null;
2705: /* no in/out paramters to be set to their initial values here*/
2706: --reset the err stack
2707: if l_debug_mode = 'Y' then
2708: pa_debug.reset_curr_function;
2709: end if;
2710:
2711: when others then
2712: x_return_status := fnd_api.g_ret_sts_unexp_error;
2719: x_assignee_id := null;
2720: /* no in/out paramters to be set to their initial values here*/
2721: --reset the err stack
2722: if l_debug_mode = 'Y' then
2723: pa_debug.reset_curr_function;
2724: end if;
2725: /*dont raise this exception*/
2726: END validate_assignee_id;
2727:
2787: -- initialize the return status to success
2788: x_return_status := fnd_api.g_ret_sts_success;
2789: x_msg_count := 0;
2790:
2791: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2792: l_module_name := 'validate_action_attributes' || g_module_name;
2793:
2794: if l_debug_mode = 'Y' then
2795: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2791: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2792: l_module_name := 'validate_action_attributes' || g_module_name;
2793:
2794: if l_debug_mode = 'Y' then
2795: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2796: end if;
2797:
2798: if l_debug_mode = 'Y' then
2799: pa_debug.write(l_module_name, 'start of validate_action_attributes', l_debug_level3);
2795: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2796: end if;
2797:
2798: if l_debug_mode = 'Y' then
2799: pa_debug.write(l_module_name, 'start of validate_action_attributes', l_debug_level3);
2800: end if;
2801:
2802: --Setting this flag to N initially outside the loop.
2803: l_any_err_occured_flg := 'N';
2827: p_msg_name => 'PA_CI_INV_ACT_CODE',
2828: p_token1 => 'NUMBER',
2829: p_value1 => i);
2830: if l_debug_mode = 'Y' then
2831: pa_debug.g_err_stage:= 'Invalid action code';
2832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2833: end if;
2834: close chk_act_typ_code;
2835: l_any_err_occured_flg := 'Y';
2828: p_token1 => 'NUMBER',
2829: p_value1 => i);
2830: if l_debug_mode = 'Y' then
2831: pa_debug.g_err_stage:= 'Invalid action code';
2832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2833: end if;
2834: close chk_act_typ_code;
2835: l_any_err_occured_flg := 'Y';
2836: else--(chk_act_typ_code%notfound) then
2882: p_msg_name => 'PA_CI_INV_ACT_STS_CODE',
2883: p_token1 => 'NUMBER',
2884: p_value1 => i);
2885: if (l_debug_mode = 'Y') then
2886: pa_debug.g_err_stage:= 'Status code for the action is invalid';
2887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2888: end if;
2889: close chk_action_status_code;
2890: l_any_err_occured_flg := 'Y';
2883: p_token1 => 'NUMBER',
2884: p_value1 => i);
2885: if (l_debug_mode = 'Y') then
2886: pa_debug.g_err_stage:= 'Status code for the action is invalid';
2887: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2888: end if;
2889: close chk_action_status_code;
2890: l_any_err_occured_flg := 'Y';
2891: else--if(chk_action_status_code%notfound) then
2899: /* the cursor shd always return a record here as ci_id is valid at this place in code unless the status types
2900: heve not been set up in the system for control items*/
2901: if(act_sts_allw_for_ci_sts%notfound) then
2902: if (l_debug_mode = 'Y') then
2903: pa_debug.g_err_stage:= 'Either the ci_id is invalid or statuses for control item have not been set up';
2904: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2905: end if;
2906: close act_sts_allw_for_ci_sts;
2907: else
2900: heve not been set up in the system for control items*/
2901: if(act_sts_allw_for_ci_sts%notfound) then
2902: if (l_debug_mode = 'Y') then
2903: pa_debug.g_err_stage:= 'Either the ci_id is invalid or statuses for control item have not been set up';
2904: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2905: end if;
2906: close act_sts_allw_for_ci_sts;
2907: else
2908: if( (l_ci_status_code = 'CI_APPROVED' or l_ci_status_code = 'CI_CANCELED' or l_ci_status_code = 'CI_CLOSED'
2914: p_msg_name => 'PA_CI_MISMATCH_ACT_CI_STS',
2915: p_token1 => 'NUMBER',
2916: p_value1 => i);
2917: if (l_debug_mode = 'Y') then
2918: pa_debug.g_err_stage := 'Action status is not valid for the control item status.';
2919: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2920: end if;
2921: l_any_err_occured_flg := 'Y';
2922: else
2915: p_token1 => 'NUMBER',
2916: p_value1 => i);
2917: if (l_debug_mode = 'Y') then
2918: pa_debug.g_err_stage := 'Action status is not valid for the control item status.';
2919: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2920: end if;
2921: l_any_err_occured_flg := 'Y';
2922: else
2923: x_action_tbl(i).action_status := l_action_status_code;
2934: p_msg_name => 'PA_CI_MISS_ACT_CI_STS',
2935: p_token1 => 'NUMBER',
2936: p_value1 => i);
2937: if (l_debug_mode = 'Y') then
2938: pa_debug.g_err_stage := 'Action status code is missing.';
2939: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2940: end if;
2941: l_any_err_occured_flg := 'Y';
2942: end if;--if(l_action_tbl(i).action_status is not null) then
2935: p_token1 => 'NUMBER',
2936: p_value1 => i);
2937: if (l_debug_mode = 'Y') then
2938: pa_debug.g_err_stage := 'Action status code is missing.';
2939: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2940: end if;
2941: l_any_err_occured_flg := 'Y';
2942: end if;--if(l_action_tbl(i).action_status is not null) then
2943:
2968: p_msg_name => 'PA_CI_INV_SRC_CI_ID',
2969: p_token1 => 'NUMBER',
2970: p_value1 => i);
2971: if (l_debug_mode = 'Y') then
2972: pa_debug.g_err_stage := 'source_ci_action_id is invalid';
2973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2974: end if;
2975: l_any_err_occured_flg := 'Y';
2976: close check_valid_src_ci_action_id;
2969: p_token1 => 'NUMBER',
2970: p_value1 => i);
2971: if (l_debug_mode = 'Y') then
2972: pa_debug.g_err_stage := 'source_ci_action_id is invalid';
2973: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2974: end if;
2975: l_any_err_occured_flg := 'Y';
2976: close check_valid_src_ci_action_id;
2977: else
2986: p_msg_name => 'PA_CI_INV_SRC_CI_ID_STS',
2987: p_token1 => 'NUMBER',
2988: p_value1 => i);
2989: if (l_debug_mode = 'Y') then
2990: pa_debug.g_err_stage := 'source_ci_action_id can only be a closed action';
2991: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2992: end if;
2993: l_any_err_occured_flg := 'Y';
2994: close check_valid_src_ci_action_id;
2987: p_token1 => 'NUMBER',
2988: p_value1 => i);
2989: if (l_debug_mode = 'Y') then
2990: pa_debug.g_err_stage := 'source_ci_action_id can only be a closed action';
2991: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2992: end if;
2993: l_any_err_occured_flg := 'Y';
2994: close check_valid_src_ci_action_id;
2995: end if;
3006: p_msg_name => 'PA_CI_MISS_DATE_FOR_ACT_CODE',
3007: p_token1 => 'NUMBER',
3008: p_value1 => i);
3009: if (l_debug_mode = 'Y') then
3010: pa_debug.g_err_stage := 'closed_date is missing for a closed/canceled action';
3011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3012: end if;
3013: l_any_err_occured_flg := 'Y';
3014: else --(l_action_tbl(i).closed_date is null) then
3007: p_token1 => 'NUMBER',
3008: p_value1 => i);
3009: if (l_debug_mode = 'Y') then
3010: pa_debug.g_err_stage := 'closed_date is missing for a closed/canceled action';
3011: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3012: end if;
3013: l_any_err_occured_flg := 'Y';
3014: else --(l_action_tbl(i).closed_date is null) then
3015: x_action_tbl(i).closed_date := l_action_tbl(i).closed_date;
3027: raise fnd_api.g_exc_error;
3028: end if;
3029: --reset the err stack
3030: if l_debug_mode = 'Y' then
3031: pa_debug.reset_curr_function;
3032: end if;
3033:
3034: Exception
3035: when fnd_api.g_exc_error then
3051: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3052: /* no in/out paramters to be set to their initial values here*/
3053: --reset the err stack
3054: if l_debug_mode = 'Y' then
3055: pa_debug.reset_curr_function;
3056: end if;
3057: --raise the exception
3058: raise;
3059: when others then
3066: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3067: /* no in/out paramters to be set to their initial values here*/
3068: --reset the err stack
3069: if l_debug_mode = 'Y' then
3070: pa_debug.reset_curr_function;
3071: end if;
3072: --raise the exception
3073: raise;
3074: END validate_action_attributes;
3109: -- initialize the return status to success
3110: x_return_status := fnd_api.g_ret_sts_success;
3111: x_msg_count := 0;
3112:
3113: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3114: l_module_name := 'create_action' || g_module_name;
3115:
3116: if l_debug_mode = 'Y' then
3117: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3113: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3114: l_module_name := 'create_action' || g_module_name;
3115:
3116: if l_debug_mode = 'Y' then
3117: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3118: end if;
3119:
3120: if l_debug_mode = 'Y' then
3121: pa_debug.write(l_module_name, 'start of create_action', l_debug_level3);
3117: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3118: end if;
3119:
3120: if l_debug_mode = 'Y' then
3121: pa_debug.write(l_module_name, 'start of create_action', l_debug_level3);
3122: end if;
3123:
3124:
3125: --Setting this flag to N initially.
3141: l_action_number := PA_CI_ACTIONS_UTIL.get_next_ci_action_number(p_ci_id);
3142: end if;
3143:
3144: if l_debug_mode = 'Y' then
3145: pa_debug.g_err_stage := 'calling insert row to create the action';
3146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3147: end if;
3148:
3149: /*insert row in pa_ci_actions*/
3142: end if;
3143:
3144: if l_debug_mode = 'Y' then
3145: pa_debug.g_err_stage := 'calling insert row to create the action';
3146: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3147: end if;
3148:
3149: /*insert row in pa_ci_actions*/
3150: pa_ci_actions_pkg.insert_row(
3177: l_type_code := 'REQUESTOR';
3178: end if;
3179:
3180: if l_debug_mode = 'Y' then
3181: pa_debug.g_err_stage := 'Inserting the comment for the action.';
3182: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3183: end if;
3184:
3185: /*now call the add comment api*/
3178: end if;
3179:
3180: if l_debug_mode = 'Y' then
3181: pa_debug.g_err_stage := 'Inserting the comment for the action.';
3182: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3183: end if;
3184:
3185: /*now call the add comment api*/
3186: pa_ci_comments_pkg.insert_row(
3196: p_ci_action_id => l_ci_action_id);
3197:
3198:
3199: if l_debug_mode = 'Y' then
3200: pa_debug.g_err_stage := 'Updating number of actions for a control item';
3201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3202: end if;
3203: /*now update the number of actions in pa_control_items_table */
3204: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3197:
3198:
3199: if l_debug_mode = 'Y' then
3200: pa_debug.g_err_stage := 'Updating number of actions for a control item';
3201: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3202: end if;
3203: /*now update the number of actions in pa_control_items_table */
3204: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3205: l_num_open_action := l_num_open_action + 1;
3218: l_any_err_occured_flg := 'Y';
3219: end if;
3220:
3221: if l_debug_mode = 'Y' then
3222: pa_debug.g_err_stage := 'calling insert row to create the action';
3223: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3224: end if;
3225: /*start the workflow notification only if start_wf flag is Y*/
3226: if(p_action_tbl(i).start_wf = 'Y') then
3219: end if;
3220:
3221: if l_debug_mode = 'Y' then
3222: pa_debug.g_err_stage := 'calling insert row to create the action';
3223: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3224: end if;
3225: /*start the workflow notification only if start_wf flag is Y*/
3226: if(p_action_tbl(i).start_wf = 'Y') then
3227: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3284: end if;
3285:
3286: --reset the err stack
3287: if l_debug_mode = 'Y' then
3288: pa_debug.reset_curr_function;
3289: end if;
3290:
3291: Exception
3292: When fnd_api.g_exc_unexpected_error then
3300: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3301: /* no in/out paramters to be set to their initial values here*/
3302: --reset the err stack
3303: if l_debug_mode = 'Y' then
3304: pa_debug.reset_curr_function;
3305: end if;
3306: --raise the exception;
3307: raise;
3308: when others then
3315: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3316: /* no in/out paramters to be set to their initial values here*/
3317: --reset the err stack
3318: if l_debug_mode = 'Y' then
3319: pa_debug.reset_curr_function;
3320: end if;
3321: --raise the exception
3322: raise;
3323:
3368: -- initialize the return status to success
3369: x_return_status := fnd_api.g_ret_sts_success;
3370: x_msg_count := 0;
3371:
3372: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3373: l_module_name := 'validate_priv_and_action' || g_module_name;
3374:
3375: if l_debug_mode = 'Y' then
3376: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3372: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3373: l_module_name := 'validate_priv_and_action' || g_module_name;
3374:
3375: if l_debug_mode = 'Y' then
3376: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3377: end if;
3378:
3379: if l_debug_mode = 'Y' then
3380: pa_debug.write(l_module_name, 'start of validate_priv_and_action', l_debug_level3);
3376: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3377: end if;
3378:
3379: if l_debug_mode = 'Y' then
3380: pa_debug.write(l_module_name, 'start of validate_priv_and_action', l_debug_level3);
3381: end if;
3382:
3383: --Setting this flag to N initially.
3384: l_any_err_occured_flg := 'N';
3390: ) then
3391: pa_utils.add_message(p_app_short_name => 'PA',
3392: p_msg_name => 'PA_CI_MISS_CIID_ACTID_ACTNUM');
3393: if (l_debug_mode = 'Y') then
3394: pa_debug.g_err_stage := 'all three action_id, ci_id, action_number cannot be missing';
3395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3396: end if;
3397: /*raise the exception*/
3398: raise fnd_api.g_exc_error;
3391: pa_utils.add_message(p_app_short_name => 'PA',
3392: p_msg_name => 'PA_CI_MISS_CIID_ACTID_ACTNUM');
3393: if (l_debug_mode = 'Y') then
3394: pa_debug.g_err_stage := 'all three action_id, ci_id, action_number cannot be missing';
3395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3396: end if;
3397: /*raise the exception*/
3398: raise fnd_api.g_exc_error;
3399: end if;-- if( (p_ci_id is null or p_ci_id is = G_PA_MISS_NUM) AND
3411: /*ci_id and action_number combination is invalid.raise the error message.*/
3412: pa_utils.add_message(p_app_short_name => 'PA',
3413: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3414: if (l_debug_mode = 'Y') then
3415: pa_debug.g_err_stage := 'there is no action for passed action_number and ci_id';
3416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3417: end if;
3418: close get_ci_action_id;
3419: raise fnd_api.g_exc_error;
3412: pa_utils.add_message(p_app_short_name => 'PA',
3413: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3414: if (l_debug_mode = 'Y') then
3415: pa_debug.g_err_stage := 'there is no action for passed action_number and ci_id';
3416: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3417: end if;
3418: close get_ci_action_id;
3419: raise fnd_api.g_exc_error;
3420: else--if(get_ci_action_id%notfound) then
3427: /*one or both p_ci_id, p_action_number is missing here.*/
3428: pa_utils.add_message(p_app_short_name => 'PA',
3429: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3430: if (l_debug_mode = 'Y') then
3431: pa_debug.g_err_stage := 'one or both ci_id or action_number is missing';
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3433: end if;
3434: raise fnd_api.g_exc_error;
3435: end if;--if( (p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM) AND
3428: pa_utils.add_message(p_app_short_name => 'PA',
3429: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3430: if (l_debug_mode = 'Y') then
3431: pa_debug.g_err_stage := 'one or both ci_id or action_number is missing';
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3433: end if;
3434: raise fnd_api.g_exc_error;
3435: end if;--if( (p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM) AND
3436:
3442: /*incorrect p_action_id is passed. there is no record for this action id*/
3443: pa_utils.add_message(p_app_short_name => 'PA',
3444: p_msg_name => 'PA_CI_INV_ACT_ID');
3445: if (l_debug_mode = 'Y') then
3446: pa_debug.g_err_stage := 'invalid action_id passed';
3447: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3448: end if;
3449: close validate_ci_action_id;
3450: raise fnd_api.g_exc_error;
3443: pa_utils.add_message(p_app_short_name => 'PA',
3444: p_msg_name => 'PA_CI_INV_ACT_ID');
3445: if (l_debug_mode = 'Y') then
3446: pa_debug.g_err_stage := 'invalid action_id passed';
3447: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3448: end if;
3449: close validate_ci_action_id;
3450: raise fnd_api.g_exc_error;
3451: else--if(validate_ci_action_id%notfound) then
3458: end if; -- if (p_action_id is null or p_action_id is G_PA_MISS_NUM)
3459:
3460: --reset the error stack;
3461: if l_debug_mode = 'Y' then
3462: pa_debug.reset_curr_function;
3463: end if;
3464:
3465: --do the exception handling;
3466: exception
3488: --no in out parameters to set to their initial values.
3489:
3490: --reset the error stack;
3491: if l_debug_mode = 'Y' then
3492: pa_debug.reset_curr_function;
3493: end if;
3494: --raise the exception
3495: raise;
3496: when others then
3508: --no inout parameters to set to their initial values.
3509:
3510: --reset the error stack;
3511: if l_debug_mode = 'Y' then
3512: pa_debug.reset_curr_function;
3513: end if;
3514: --raise the exception
3515: raise;
3516:
3544: l_Msg_Index_Out NUMBER;
3545: l_CiId PA_CONTROL_ITEMS.Ci_Id%TYPE;
3546: -- End: Local Variables.
3547: BEGIN
3548: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3549: l_module_name := 'Delete_CI' || g_module_name;
3550:
3551: if l_debug_mode = 'Y' then
3552: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3548: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3549: l_module_name := 'Delete_CI' || g_module_name;
3550:
3551: if l_debug_mode = 'Y' then
3552: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3553: end if;
3554:
3555: if l_debug_mode = 'Y' then
3556: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3552: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3553: end if;
3554:
3555: if l_debug_mode = 'Y' then
3556: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3557: end if;
3558: -- Initialize the Error Stack.
3559: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PVT.Delete_CI');
3560:
3555: if l_debug_mode = 'Y' then
3556: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3557: end if;
3558: -- Initialize the Error Stack.
3559: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PVT.Delete_CI');
3560:
3561: -- Initialize the Return Status to Success.
3562: x_Return_Status := FND_API.g_Ret_Sts_Success;
3563: x_Msg_Count := 0;
3575: p_App_Short_Name => 'PA'
3576: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
3577: );
3578: if (l_debug_mode = 'Y') then
3579: pa_debug.g_err_stage := 'CI_ID is not passed';
3580: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3581: end if;
3582: -- Raise the Invalid Argument exception.
3583: RAISE FND_API.G_EXC_ERROR;
3576: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
3577: );
3578: if (l_debug_mode = 'Y') then
3579: pa_debug.g_err_stage := 'CI_ID is not passed';
3580: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3581: end if;
3582: -- Raise the Invalid Argument exception.
3583: RAISE FND_API.G_EXC_ERROR;
3584: END IF;
3596: p_App_Short_Name => 'PA'
3597: , p_Msg_Name => 'PA_CI_INV_CI_ID'
3598: );
3599: if (l_debug_mode = 'Y') then
3600: pa_debug.g_err_stage := 'invalid ci_id passed';
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3602: end if;
3603: -- Raise the Invalid Argument exception.
3604: RAISE FND_API.G_EXC_ERROR;
3597: , p_Msg_Name => 'PA_CI_INV_CI_ID'
3598: );
3599: if (l_debug_mode = 'Y') then
3600: pa_debug.g_err_stage := 'invalid ci_id passed';
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3602: end if;
3603: -- Raise the Invalid Argument exception.
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3613: IF (Get_CI_Data%NOTFOUND) THEN
3614: -- Code to Report Error.
3615: CLOSE Get_CI_Data;
3616: if (l_debug_mode = 'Y') then
3617: pa_debug.g_err_stage := 'No data found in Get_CI_Data';
3618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3619: end if;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3614: -- Code to Report Error.
3615: CLOSE Get_CI_Data;
3616: if (l_debug_mode = 'Y') then
3617: pa_debug.g_err_stage := 'No data found in Get_CI_Data';
3618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3619: end if;
3620: RAISE FND_API.G_EXC_ERROR;
3621: END IF;
3622: CLOSE Get_CI_Data;
3635: l_ViewAccess := PA_CI_SECURITY_PKG.Check_View_Access (p_Ci_Id, l_ProjectId, l_StatusCode, l_CiTypeClassCode);
3636: l_DeleteAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_DELETE', p_Ci_Id);
3637: IF (l_ViewAccess = 'T' AND l_DeleteAllowed = 'Y') THEN
3638: if (l_debug_mode = 'Y') then
3639: pa_debug.g_err_stage := 'Before Calling PA_CONTROL_ITEMS_PUB.Delete_Control_Item';
3640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3641: end if;
3642: PA_CONTROL_ITEMS_PUB.Delete_Control_Item (
3643: p_Api_Version => p_Api_Version_Number
3636: l_DeleteAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_DELETE', p_Ci_Id);
3637: IF (l_ViewAccess = 'T' AND l_DeleteAllowed = 'Y') THEN
3638: if (l_debug_mode = 'Y') then
3639: pa_debug.g_err_stage := 'Before Calling PA_CONTROL_ITEMS_PUB.Delete_Control_Item';
3640: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3641: end if;
3642: PA_CONTROL_ITEMS_PUB.Delete_Control_Item (
3643: p_Api_Version => p_Api_Version_Number
3644: , p_Init_Msg_List => 'F'
3659: p_App_Short_Name => 'PA'
3660: , p_Msg_Name => 'PA_CI_NO_ALLOW_DELETE'
3661: );
3662: if (l_debug_mode = 'Y') then
3663: pa_debug.g_err_stage := 'User does not have the privilege to delete this Control Item';
3664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3665: end if;
3666: END IF;
3667:
3660: , p_Msg_Name => 'PA_CI_NO_ALLOW_DELETE'
3661: );
3662: if (l_debug_mode = 'Y') then
3663: pa_debug.g_err_stage := 'User does not have the privilege to delete this Control Item';
3664: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3665: end if;
3666: END IF;
3667:
3668: -- Check if delete was denied by Status Control or not.
3673: p_App_Short_Name => 'PA'
3674: , p_Msg_Name => 'PA_CI_DELETE_NOT_ALLOWED'
3675: );
3676: if (l_debug_mode = 'Y') then
3677: pa_debug.g_err_stage := 'This control item cannot be deleted in its present status';
3678: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3679: end if;
3680: END IF;
3681:
3674: , p_Msg_Name => 'PA_CI_DELETE_NOT_ALLOWED'
3675: );
3676: if (l_debug_mode = 'Y') then
3677: pa_debug.g_err_stage := 'This control item cannot be deleted in its present status';
3678: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3679: end if;
3680: END IF;
3681:
3682: -- Raise the Invalid Argument exception.
3692: p_App_Short_Name => 'PA'
3693: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
3694: );
3695: if (l_debug_mode = 'Y') then
3696: pa_debug.g_err_stage := 'CI_ID has workflow Attached';
3697: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3698: end if;
3699: -- Raise the Invalid Argument exception.
3700: RAISE FND_API.G_EXC_ERROR;
3693: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
3694: );
3695: if (l_debug_mode = 'Y') then
3696: pa_debug.g_err_stage := 'CI_ID has workflow Attached';
3697: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3698: end if;
3699: -- Raise the Invalid Argument exception.
3700: RAISE FND_API.G_EXC_ERROR;
3701: END IF;
3701: END IF;
3702:
3703: --reset the error stack;
3704: if l_debug_mode = 'Y' then
3705: pa_debug.reset_curr_function;
3706: end if;
3707: -- If any exception then catch it.
3708: EXCEPTION
3709: WHEN FND_API.G_EXC_ERROR THEN
3728: END IF;
3729:
3730: --reset the error stack;
3731: if l_debug_mode = 'Y' then
3732: pa_debug.reset_curr_function;
3733: end if;
3734:
3735: -- Raise the Exception.
3736: RAISE;
3752: );
3753:
3754: --reset the error stack;
3755: if l_debug_mode = 'Y' then
3756: pa_debug.reset_curr_function;
3757: end if;
3758:
3759: -- Raise the Exception.
3760: RAISE;