[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;
653:
654: -- initialize the return status to success
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
656:
657: l_debug_mode :=NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.resp_id, 275, null, null), 'N');
658: if l_debug_mode = 'Y' then
659: pa_debug.set_curr_function(p_function=>l_module_name,p_debug_mode => l_debug_mode);
660: end if;
661:
655: x_return_status := FND_API.G_RET_STS_SUCCESS;
656:
657: l_debug_mode :=NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE',fnd_global.user_id,fnd_global.resp_id, 275, null, null), 'N');
658: if l_debug_mode = 'Y' then
659: pa_debug.set_curr_function(p_function=>l_module_name,p_debug_mode => l_debug_mode);
660: end if;
661:
662:
663: if l_debug_mode = 'Y' then
660: end if;
661:
662:
663: if l_debug_mode = 'Y' then
664: pa_debug.g_err_stage:= ' Starting the PA_CONTROL_API_PVT.add_supplier_details ';
665: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
666: end if;
667:
668: l_org_id := FND_GLOBAL.org_id;
661:
662:
663: if l_debug_mode = 'Y' then
664: pa_debug.g_err_stage:= ' Starting the PA_CONTROL_API_PVT.add_supplier_details ';
665: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
666: end if;
667:
668: l_org_id := FND_GLOBAL.org_id;
669:
680: p_currency := p_supplier_det_tbl(i).currency;
681: p_change_amount := p_supplier_det_tbl(i).change_amount;
682:
683: if l_debug_mode = 'Y' then
684: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
686: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
687: 'p_change_description['||i||']='||p_change_description||
688: 'p_vendor_id['||i||']='||p_vendor_id||
681: p_change_amount := p_supplier_det_tbl(i).change_amount;
682:
683: if l_debug_mode = 'Y' then
684: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
686: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
687: 'p_change_description['||i||']='||p_change_description||
688: 'p_vendor_id['||i||']='||p_vendor_id||
689: 'p_po_header_id['||i||']='||p_po_header_id||
682:
683: if l_debug_mode = 'Y' then
684: pa_debug.g_err_stage:= 'In Loop Record number '|| i ||' Values are :';
685: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
686: pa_debug.g_err_stage:= 'p_change_type['||i||']='||p_change_type||
687: 'p_change_description['||i||']='||p_change_description||
688: 'p_vendor_id['||i||']='||p_vendor_id||
689: 'p_po_header_id['||i||']='||p_po_header_id||
690: 'p_po_number['||i||']='||p_po_number||
691: 'p_po_line_id['||i||']='||p_po_line_id||
692: 'p_po_line_num['||i||']='||p_po_line_num||
693: 'p_currency['||i||']='||p_currency||
694: 'p_change_amount['||i||']='||p_change_amount;
695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
696: end if;
697:
698: /*assigning local variables to default value null*/
699: l_vendor_id :=null;
723: p_msg_name => 'PA_CI_ID_CHANGE_TYPE_NULL',
724: p_token1 => 'NUMBER',
725: p_value1 => i);
726: if l_debug_mode = 'Y' then
727: pa_debug.g_err_stage:= ' The ci_id is null or Change Type is null';
728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
729: end if;
730: x_return_status := FND_API.G_RET_STS_ERROR;
731: elsif p_change_type is not null and (p_change_type <> 'CREATE' and p_change_type <> 'UPDATE') then
724: p_token1 => 'NUMBER',
725: p_value1 => i);
726: if l_debug_mode = 'Y' then
727: pa_debug.g_err_stage:= ' The ci_id is null or Change Type is null';
728: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
729: end if;
730: x_return_status := FND_API.G_RET_STS_ERROR;
731: elsif p_change_type is not null and (p_change_type <> 'CREATE' and p_change_type <> 'UPDATE') then
732: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
733: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
734: p_token1 => 'NUMBER',
735: p_value1 => i);
736: if l_debug_mode = 'Y' then
737: pa_debug.g_err_stage:= ':The Change Type is invalid';
738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
739: end if;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: end if; --end for if p_ci_id is null or p_change_type is null
734: p_token1 => 'NUMBER',
735: p_value1 => i);
736: if l_debug_mode = 'Y' then
737: pa_debug.g_err_stage:= ':The Change Type is invalid';
738: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
739: end if;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: end if; --end for if p_ci_id is null or p_change_type is null
742:
751: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
752: p_token1 => 'NUMBER',
753: p_value1 => i);
754: if l_debug_mode = 'Y' then
755: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
756: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
757: end if;
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: /*if change_type is UPDATE then user must pass PO details*/
752: p_token1 => 'NUMBER',
753: p_value1 => i);
754: if l_debug_mode = 'Y' then
755: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
756: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
757: end if;
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: /*if change_type is UPDATE then user must pass PO details*/
760: elsif p_change_type is NOT NULL and p_change_type = 'UPDATE'
767: p_msg_name => 'PA_CHANGE_TYPE_INVALID',
768: p_token1 => 'NUMBER',
769: p_value1 => i);
770: if l_debug_mode = 'Y' then
771: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
772: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
773: end if;
774: x_return_status := FND_API.G_RET_STS_ERROR;
775: end if;
768: p_token1 => 'NUMBER',
769: p_value1 => i);
770: if l_debug_mode = 'Y' then
771: pa_debug.g_err_stage:= 'Invalid Change Type (CREATE)- po number should be null';
772: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
773: end if;
774: x_return_status := FND_API.G_RET_STS_ERROR;
775: end if;
776:
774: x_return_status := FND_API.G_RET_STS_ERROR;
775: end if;
776:
777: if l_debug_mode = 'Y' then
778: pa_debug.g_err_stage:= 'After validating the Change Type and ci_id.'||
779: 'Change Type is :'||p_change_type|| ' ; Ci_id is :'||p_ci_id;
780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
781: end if;
782: /*get the ci_type_id and project_id, this should not raise an exception becoz ci_id is already validated in public method.*/
776:
777: if l_debug_mode = 'Y' then
778: pa_debug.g_err_stage:= 'After validating the Change Type and ci_id.'||
779: 'Change Type is :'||p_change_type|| ' ; Ci_id is :'||p_ci_id;
780: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
781: end if;
782: /*get the ci_type_id and project_id, this should not raise an exception becoz ci_id is already validated in public method.*/
783: if p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM then
784: open c_get_project_id(p_ci_id);
788: p_msg_name => 'PA_CI_INVALID_CI_ID',
789: p_token1 => 'NUMBER',
790: p_value1 => i);
791: if l_debug_mode = 'Y' then
792: pa_debug.g_err_stage:= 'Invalid Control Item id.' ;
793: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
794: end if;
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: end if;
789: p_token1 => 'NUMBER',
790: p_value1 => i);
791: if l_debug_mode = 'Y' then
792: pa_debug.g_err_stage:= 'Invalid Control Item id.' ;
793: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
794: end if;
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: end if;
797: close c_get_project_id;
797: close c_get_project_id;
798: end if;
799:
800: if l_debug_mode = 'Y' then
801: pa_debug.g_err_stage:= 'The project id is :'||l_project_id;
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: end if;
804:
805:
798: end if;
799:
800: if l_debug_mode = 'Y' then
801: pa_debug.g_err_stage:= 'The project id is :'||l_project_id;
802: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
803: end if;
804:
805:
806:
815: ' where v.vendor_id = '''||p_vendor_id ||'''';
816: end if;
817:
818: if l_debug_mode = 'Y' then
819: pa_debug.g_err_stage:= 'The l_check_vendor_query is ['||p_change_type||'] : '||l_check_vendor_query;
820: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
821: end if;
822:
823: open c_cur_vendor_id for l_check_vendor_query;
816: end if;
817:
818: if l_debug_mode = 'Y' then
819: pa_debug.g_err_stage:= 'The l_check_vendor_query is ['||p_change_type||'] : '||l_check_vendor_query;
820: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
821: end if;
822:
823: open c_cur_vendor_id for l_check_vendor_query;
824: fetch c_cur_vendor_id into l_vendor_id , l_supplier_name;
827: p_msg_name => 'PA_VENDOR_ID_INVALID',
828: p_token1 => 'NUMBER',
829: p_value1 => i);
830: if l_debug_mode = 'Y' then
831: pa_debug.g_err_stage:= 'Invalid Vedor ID';
832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
833: end if;
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: close c_cur_vendor_id;
828: p_token1 => 'NUMBER',
829: p_value1 => i);
830: if l_debug_mode = 'Y' then
831: pa_debug.g_err_stage:= 'Invalid Vedor ID';
832: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
833: end if;
834: x_return_status := FND_API.G_RET_STS_ERROR;
835: close c_cur_vendor_id;
836:
845: p_msg_name => 'PA_VENDOR_ID_NULL',
846: p_token1 => 'NUMBER',
847: p_value1 => i);
848: if l_debug_mode = 'Y' then
849: pa_debug.g_err_stage:= 'Vedor ID is null';
850: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
851: end if;
852: x_return_status := FND_API.G_RET_STS_ERROR;
853: end if;
846: p_token1 => 'NUMBER',
847: p_value1 => i);
848: if l_debug_mode = 'Y' then
849: pa_debug.g_err_stage:= 'Vedor ID is null';
850: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
851: end if;
852: x_return_status := FND_API.G_RET_STS_ERROR;
853: end if;
854:
864: p_msg_name => 'PA_PO_HEADER_ID_INVALID',
865: p_token1 => 'NUMBER',
866: p_value1 => i);
867: if l_debug_mode = 'Y' then
868: pa_debug.g_err_stage:= 'The header id is not valid';
869: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
870: end if;
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: close c_check_po_header_id;
865: p_token1 => 'NUMBER',
866: p_value1 => i);
867: if l_debug_mode = 'Y' then
868: pa_debug.g_err_stage:= 'The header id is not valid';
869: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
870: end if;
871: x_return_status := FND_API.G_RET_STS_ERROR;
872: close c_check_po_header_id;
873:
877: l_vendor_id := c_check_po_header_id_rec.PoVendorId;
878: l_currency_code := c_check_po_header_id_rec.PoCurrency;
879: l_header_id := p_po_header_id;
880: if l_debug_mode = 'Y' then
881: pa_debug.g_err_stage:= 'The values after validating p_po_header_id are'||
882: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
883: l_vendor_id||'],l_currency_code['||l_currency_code||']';
884: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
885: end if;
880: if l_debug_mode = 'Y' then
881: pa_debug.g_err_stage:= 'The values after validating p_po_header_id are'||
882: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
883: l_vendor_id||'],l_currency_code['||l_currency_code||']';
884: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
885: end if;
886: close c_check_po_header_id;
887: if p_vendor_id is not null and p_vendor_id <> G_PA_MISS_NUM then
888: if l_vendor_id <> p_vendor_id then
890: p_msg_name => 'PA_VENDOR_ID_INVALID',
891: p_token1 => 'NUMBER',
892: p_value1 => i);
893: if l_debug_mode = 'Y' then
894: pa_debug.g_err_stage:= 'The Vendor id is not valid';
895: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
896: end if;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: end if;
891: p_token1 => 'NUMBER',
892: p_value1 => i);
893: if l_debug_mode = 'Y' then
894: pa_debug.g_err_stage:= 'The Vendor id is not valid';
895: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
896: end if;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: end if;
899: end if;
907: p_msg_name => 'PA_PO_NUMBER_INVALID',
908: p_token1 => 'NUMBER',
909: p_value1 => i);
910: if l_debug_mode = 'Y' then
911: pa_debug.g_err_stage:= 'The po_number is not valid';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: end if;
914: x_return_status := FND_API.G_RET_STS_ERROR;
915: close c_check_po_number;
908: p_token1 => 'NUMBER',
909: p_value1 => i);
910: if l_debug_mode = 'Y' then
911: pa_debug.g_err_stage:= 'The po_number is not valid';
912: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
913: end if;
914: x_return_status := FND_API.G_RET_STS_ERROR;
915: close c_check_po_number;
916:
920: l_vendor_id := c_check_po_number_rec.PoVendorId;
921: l_currency_code := c_check_po_number_rec.PoCurrency;
922: l_header_id := c_check_po_number_rec.PoHeaderId;
923: if l_debug_mode = 'Y' then
924: pa_debug.g_err_stage:= 'The values after validating p_po_number are'||
925: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
926: l_vendor_id||'],l_currency_code['||l_currency_code||']';
927: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
928: end if;
923: if l_debug_mode = 'Y' then
924: pa_debug.g_err_stage:= 'The values after validating p_po_number are'||
925: 'l_po_number['||l_po_number||'],l_supplier_name['||l_supplier_name||'],l_vendor_id['||
926: l_vendor_id||'],l_currency_code['||l_currency_code||']';
927: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
928: end if;
929: close c_check_po_number;
930: if p_vendor_id is not null then
931: if l_vendor_id <> p_vendor_id then
933: p_msg_name => 'PA_VENDOR_ID_INVALID',
934: p_token1 => 'NUMBER',
935: p_value1 => i);
936: if l_debug_mode = 'Y' then
937: pa_debug.g_err_stage:= 'The Vendor ID is not valid';
938: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
939: end if;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941:
934: p_token1 => 'NUMBER',
935: p_value1 => i);
936: if l_debug_mode = 'Y' then
937: pa_debug.g_err_stage:= 'The Vendor ID is not valid';
938: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
939: end if;
940: x_return_status := FND_API.G_RET_STS_ERROR;
941:
942: end if;
949: p_msg_name => 'PA_HEAD_ID_PO_NUM_IS_NULL',
950: p_token1 => 'NUMBER',
951: p_value1 => i);
952: if l_debug_mode = 'Y' then
953: pa_debug.g_err_stage:= 'The PO header id or Po Number is null';
954: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
955: end if;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957:
950: p_token1 => 'NUMBER',
951: p_value1 => i);
952: if l_debug_mode = 'Y' then
953: pa_debug.g_err_stage:= 'The PO header id or Po Number is null';
954: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
955: end if;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957:
958: end if;
972: p_msg_name => 'PA_PO_LINE_ID_INVALID',
973: p_token1 => 'NUMBER',
974: p_value1 => i);
975: if l_debug_mode = 'Y' then
976: pa_debug.g_err_stage:= 'Po Line id is invalid';
977: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
978: end if;
979: x_return_status := FND_API.G_RET_STS_ERROR;
980: close c_check_po_line_id;
973: p_token1 => 'NUMBER',
974: p_value1 => i);
975: if l_debug_mode = 'Y' then
976: pa_debug.g_err_stage:= 'Po Line id is invalid';
977: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
978: end if;
979: x_return_status := FND_API.G_RET_STS_ERROR;
980: close c_check_po_line_id;
981:
994: p_msg_name => 'PA_PO_LINE_NUMBER_INVALID',
995: p_token1 => 'NUMBER',
996: p_value1 => i);
997: if l_debug_mode = 'Y' then
998: pa_debug.g_err_stage:= 'Po Line number is invalid';
999: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1000: end if;
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002: close c_check_Doc_number;
995: p_token1 => 'NUMBER',
996: p_value1 => i);
997: if l_debug_mode = 'Y' then
998: pa_debug.g_err_stage:= 'Po Line number is invalid';
999: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1000: end if;
1001: x_return_status := FND_API.G_RET_STS_ERROR;
1002: close c_check_Doc_number;
1003:
1015: p_msg_name => 'PA_PO_LINE_ID_LINE_NUM_NULL',
1016: p_token1 => 'NUMBER',
1017: p_value1 => i);
1018: if l_debug_mode = 'Y' then
1019: pa_debug.g_err_stage:= 'Po Line number is invalid';
1020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1021: end if;
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: end if;
1016: p_token1 => 'NUMBER',
1017: p_value1 => i);
1018: if l_debug_mode = 'Y' then
1019: pa_debug.g_err_stage:= 'Po Line number is invalid';
1020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1021: end if;
1022: x_return_status := FND_API.G_RET_STS_ERROR;
1023: end if;
1024:
1023: end if;
1024:
1025:
1026: if l_debug_mode = 'Y' then
1027: pa_debug.g_err_stage:= 'Validated the po_line_id or doc number and the values are :'||
1028: 'l_line_num['||l_line_num||'],l_po_number['||l_po_number||'],l_po_line_Amount['||
1029: l_po_line_Amount||']';
1030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1031: end if;
1026: if l_debug_mode = 'Y' then
1027: pa_debug.g_err_stage:= 'Validated the po_line_id or doc number and the values are :'||
1028: 'l_line_num['||l_line_num||'],l_po_number['||l_po_number||'],l_po_line_Amount['||
1029: l_po_line_Amount||']';
1030: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1031: end if;
1032:
1033:
1034:
1047: p_msg_name => 'PA_CURRENCY_CODE_INVALID',
1048: p_token1 => 'NUMBER',
1049: p_value1 => i);
1050: if l_debug_mode = 'Y' then
1051: pa_debug.g_err_stage:= 'Currency Code is invalid';
1052: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1053: end if;
1054: x_return_status := FND_API.G_RET_STS_ERROR;
1055: close c_check_currency_code;
1048: p_token1 => 'NUMBER',
1049: p_value1 => i);
1050: if l_debug_mode = 'Y' then
1051: pa_debug.g_err_stage:= 'Currency Code is invalid';
1052: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1053: end if;
1054: x_return_status := FND_API.G_RET_STS_ERROR;
1055: close c_check_currency_code;
1056:
1062: p_msg_name => 'PA_CURRENCY_CODE_INVALID',
1063: p_token1 => 'NUMBER',
1064: p_value1 => i);
1065: if l_debug_mode = 'Y' then
1066: pa_debug.g_err_stage:= 'Currency Code is invalid';
1067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1068: end if;
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1070: close c_check_currency_code;
1063: p_token1 => 'NUMBER',
1064: p_value1 => i);
1065: if l_debug_mode = 'Y' then
1066: pa_debug.g_err_stage:= 'Currency Code is invalid';
1067: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1068: end if;
1069: x_return_status := FND_API.G_RET_STS_ERROR;
1070: close c_check_currency_code;
1071: end if;
1076: p_msg_name => 'PA_CURRENCY_CODE_NULL',
1077: p_token1 => 'NUMBER',
1078: p_value1 => i);
1079: if l_debug_mode = 'Y' then
1080: pa_debug.g_err_stage:= ' Currency Code is invalid';
1081: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1082: end if;
1083: x_return_status := FND_API.G_RET_STS_ERROR;
1084: end if;
1077: p_token1 => 'NUMBER',
1078: p_value1 => i);
1079: if l_debug_mode = 'Y' then
1080: pa_debug.g_err_stage:= ' Currency Code is invalid';
1081: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1082: end if;
1083: x_return_status := FND_API.G_RET_STS_ERROR;
1084: end if;
1085:
1084: end if;
1085:
1086:
1087: if l_debug_mode = 'Y' then
1088: pa_debug.g_err_stage:= ' Currency Code is Validated';
1089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1090: end if;
1091:
1092: if (p_change_amount is null or p_change_amount = G_PA_MISS_NUM ) and l_po_line_Amount is null then
1085:
1086:
1087: if l_debug_mode = 'Y' then
1088: pa_debug.g_err_stage:= ' Currency Code is Validated';
1089: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1090: end if;
1091:
1092: if (p_change_amount is null or p_change_amount = G_PA_MISS_NUM ) and l_po_line_Amount is null then
1093: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1094: p_msg_name => 'PA_SUPP_AMOUNT_NULL',
1095: p_token1 => 'NUMBER',
1096: p_value1 => i);
1097: if l_debug_mode = 'Y' then
1098: pa_debug.g_err_stage:= 'Change amount cannot be null';
1099: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1100: end if;
1101: x_return_status := FND_API.G_RET_STS_ERROR;
1102:
1095: p_token1 => 'NUMBER',
1096: p_value1 => i);
1097: if l_debug_mode = 'Y' then
1098: pa_debug.g_err_stage:= 'Change amount cannot be null';
1099: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1100: end if;
1101: x_return_status := FND_API.G_RET_STS_ERROR;
1102:
1103: elsif p_change_amount is not null and p_change_amount <> G_PA_MISS_NUM then
1112: end if;
1113:
1114:
1115: if l_debug_mode = 'Y' then
1116: pa_debug.g_err_stage:= 'Before calling the PA_CI_SUPPLIER_UTILS.validateSI to validate and insert';
1117: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1118: end if;
1119: /*Call the procedure to insert the details*/
1120: if x_return_status = FND_API.G_RET_STS_SUCCESS then
1113:
1114:
1115: if l_debug_mode = 'Y' then
1116: pa_debug.g_err_stage:= 'Before calling the PA_CI_SUPPLIER_UTILS.validateSI to validate and insert';
1117: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1118: end if;
1119: /*Call the procedure to insert the details*/
1120: if x_return_status = FND_API.G_RET_STS_SUCCESS then
1121: /* PA_CI_SUPPLIER_UTILS.validateSI(
1183: raise FND_API.G_EXC_ERROR;
1184: end if;
1185: --Reset the stack
1186: if l_debug_mode = 'Y' then
1187: pa_debug.reset_curr_function;
1188: end if;
1189:
1190: Exception
1191:
1208: x_msg_count := l_msg_count;
1209: end if;
1210: --Reset the stack
1211: if l_debug_mode = 'Y' then
1212: pa_debug.reset_curr_function;
1213: end if;
1214:
1215: raise;
1216:
1224: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1225: p_data => x_msg_data);
1226: --Reset the stack
1227: if l_debug_mode = 'Y' then
1228: pa_debug.reset_curr_function;
1229: end if;
1230:
1231: raise;
1232:
1304: -- initialize the return status to success
1305: x_return_status := fnd_api.g_ret_sts_success;
1306: x_msg_count := 0;
1307:
1308: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1309: l_module_name := 'check_create_ci_allowed' || g_module_name;
1310:
1311: if l_debug_mode = 'Y' then
1312: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1308: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1309: l_module_name := 'check_create_ci_allowed' || g_module_name;
1310:
1311: if l_debug_mode = 'Y' then
1312: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1313: end if;
1314:
1315: if l_debug_mode = 'Y' then
1316: pa_debug.write(l_module_name, 'start of check_create_ci_allowed', l_debug_level3);
1312: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_ci_allowed', p_debug_mode => l_debug_mode);
1313: end if;
1314:
1315: if l_debug_mode = 'Y' then
1316: pa_debug.write(l_module_name, 'start of check_create_ci_allowed', l_debug_level3);
1317: end if;
1318:
1319: --Store the initial values of the in out parameteres so that these can be restored back if some exception occurs.
1320: l_ini_proj_id := p_project_id;
1327: PA_UTILS.ADD_MESSAGE
1328: (p_app_short_name => 'PA',
1329: p_msg_name => 'PA_CI_TYPE_ID_MISSING');
1330: if l_debug_mode = 'Y' then
1331: pa_debug.g_err_stage:= 'ci_type_id is null';
1332: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1333: end if;
1334: l_any_err_occured_flg := 'Y';
1335: end if;
1328: (p_app_short_name => 'PA',
1329: p_msg_name => 'PA_CI_TYPE_ID_MISSING');
1330: if l_debug_mode = 'Y' then
1331: pa_debug.g_err_stage:= 'ci_type_id is null';
1332: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1333: end if;
1334: l_any_err_occured_flg := 'Y';
1335: end if;
1336:
1338: PA_UTILS.ADD_MESSAGE
1339: (p_app_short_name => 'PA',
1340: p_msg_name => 'PA_CI_PROJECT_MISSING');
1341: if l_debug_mode = 'Y' then
1342: pa_debug.g_err_stage:= 'project id, project number, project name, all three cannot be null';
1343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1344: end if;
1345: l_any_err_occured_flg := 'Y';
1346: end if;
1339: (p_app_short_name => 'PA',
1340: p_msg_name => 'PA_CI_PROJECT_MISSING');
1341: if l_debug_mode = 'Y' then
1342: pa_debug.g_err_stage:= 'project id, project number, project name, all three cannot be null';
1343: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1344: end if;
1345: l_any_err_occured_flg := 'Y';
1346: end if;
1347:
1353: PA_UTILS.ADD_MESSAGE
1354: (p_app_short_name => 'PA',
1355: p_msg_name => 'PA_CI_INVALID_TYPE_ID'); --existing msg.
1356: if l_debug_mode = 'Y' then
1357: pa_debug.g_err_stage:= 'Invalid ci_type_id passed';
1358: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1359: end if;
1360: close get_ci_type_attrs;
1361: l_any_err_occured_flg := 'Y';
1354: (p_app_short_name => 'PA',
1355: p_msg_name => 'PA_CI_INVALID_TYPE_ID'); --existing msg.
1356: if l_debug_mode = 'Y' then
1357: pa_debug.g_err_stage:= 'Invalid ci_type_id passed';
1358: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1359: end if;
1360: close get_ci_type_attrs;
1361: l_any_err_occured_flg := 'Y';
1362: else
1371: PA_UTILS.ADD_MESSAGE
1372: (p_app_short_name => 'PA',
1373: p_msg_name => 'PA_CI_INV_API_USE'); --existing msg.
1374: if l_debug_mode = 'Y' then
1375: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
1376: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1377: end if;
1378: l_any_err_occured_flg := 'Y';
1379: end if;--if(p_ci_type_class_code <> l_ci_type_attrs_rec.ci_type_class_code) then
1372: (p_app_short_name => 'PA',
1373: p_msg_name => 'PA_CI_INV_API_USE'); --existing msg.
1374: if l_debug_mode = 'Y' then
1375: pa_debug.g_err_stage:= 'wrong usage of the api for the control item type';
1376: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1377: end if;
1378: l_any_err_occured_flg := 'Y';
1379: end if;--if(p_ci_type_class_code <> l_ci_type_attrs_rec.ci_type_class_code) then
1380: end if;
1390: PA_UTILS.ADD_MESSAGE
1391: (p_app_short_name => 'PA',
1392: p_msg_name => 'PA_CI_NO_PROJECT_ID'); --exisitng message
1393: if l_debug_mode = 'Y' then
1394: pa_debug.g_err_stage:= 'Invalid project id passed';
1395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1396: end if;
1397: close validate_prj_id;
1398: l_any_err_occured_flg := 'Y';
1391: (p_app_short_name => 'PA',
1392: p_msg_name => 'PA_CI_NO_PROJECT_ID'); --exisitng message
1393: if l_debug_mode = 'Y' then
1394: pa_debug.g_err_stage:= 'Invalid project id passed';
1395: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1396: end if;
1397: close validate_prj_id;
1398: l_any_err_occured_flg := 'Y';
1399: else
1408: PA_UTILS.ADD_MESSAGE
1409: (p_app_short_name => 'PA',
1410: p_msg_name => 'PA_CI_INV_PROJ_NUM');
1411: if l_debug_mode = 'Y' then
1412: pa_debug.g_err_stage:= 'Invalid project number passed';
1413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1414: end if;
1415: close get_project_id_frm_num;
1416: l_any_err_occured_flg := 'Y';
1409: (p_app_short_name => 'PA',
1410: p_msg_name => 'PA_CI_INV_PROJ_NUM');
1411: if l_debug_mode = 'Y' then
1412: pa_debug.g_err_stage:= 'Invalid project number passed';
1413: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1414: end if;
1415: close get_project_id_frm_num;
1416: l_any_err_occured_flg := 'Y';
1417: else
1426: PA_UTILS.ADD_MESSAGE
1427: (p_app_short_name => 'PA',
1428: p_msg_name => 'PA_CI_INV_PROJ_NAME');
1429: if l_debug_mode = 'Y' then
1430: pa_debug.g_err_stage:= 'Invalid project name passed';
1431: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1432: end if;
1433: close get_project_id_frm_name;
1434: l_any_err_occured_flg := 'Y';
1427: (p_app_short_name => 'PA',
1428: p_msg_name => 'PA_CI_INV_PROJ_NAME');
1429: if l_debug_mode = 'Y' then
1430: pa_debug.g_err_stage:= 'Invalid project name passed';
1431: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1432: end if;
1433: close get_project_id_frm_name;
1434: l_any_err_occured_flg := 'Y';
1435: else
1452: PA_UTILS.ADD_MESSAGE
1453: (p_app_short_name => 'PA',
1454: p_msg_name => 'PA_CI_NO_SECURITY');
1455: if l_debug_mode = 'Y' then
1456: pa_debug.g_err_stage:= 'Either the project type or role selected by you doesnt have privilge to create the control item';
1457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1458: end if;
1459: close check_create_ci_priv;
1460: l_any_err_occured_flg := 'Y';
1453: (p_app_short_name => 'PA',
1454: p_msg_name => 'PA_CI_NO_SECURITY');
1455: if l_debug_mode = 'Y' then
1456: pa_debug.g_err_stage:= 'Either the project type or role selected by you doesnt have privilge to create the control item';
1457: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1458: end if;
1459: close check_create_ci_priv;
1460: l_any_err_occured_flg := 'Y';
1461: else
1467: raise fnd_api.g_exc_error;
1468: end if;
1469:
1470: if l_debug_mode = 'Y' then
1471: pa_debug.reset_curr_function;
1472: end if;
1473:
1474: exception
1475: when fnd_api.g_exc_error then
1497: p_project_id := l_ini_proj_id;
1498: p_ci_type_id := l_ini_ci_type_id;
1499: --Reset the stack
1500: if l_debug_mode = 'Y' then
1501: pa_debug.reset_curr_function;
1502: end if;
1503: --raise the exception
1504: raise;
1505: when others then
1517: p_project_id := l_ini_proj_id;
1518: p_ci_type_id := l_ini_ci_type_id;
1519: --Reset the stack
1520: if l_debug_mode = 'Y' then
1521: pa_debug.reset_curr_function;
1522: end if;
1523: --raise the exception
1524: raise;
1525: end check_create_ci_allowed;
1802: -- initialize the return status to success
1803: x_return_status := fnd_api.g_ret_sts_success;
1804: x_msg_count := 0;
1805:
1806: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1807: l_module_name := 'validate_param_and_create' || g_module_name;
1808:
1809: if l_debug_mode = 'Y' then
1810: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1806: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
1807: l_module_name := 'validate_param_and_create' || g_module_name;
1808:
1809: if l_debug_mode = 'Y' then
1810: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1811: end if;
1812:
1813: if l_debug_mode = 'Y' then
1814: pa_debug.write(l_module_name, 'start of validate_param_and_create', l_debug_level3);
1810: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_param_and_create', p_debug_mode => l_debug_mode);
1811: end if;
1812:
1813: if l_debug_mode = 'Y' then
1814: pa_debug.write(l_module_name, 'start of validate_param_and_create', l_debug_level3);
1815: end if;
1816:
1817: --setting the err occured flag to N initially.
1818: l_any_err_occured_flg := 'N';
1826: PA_UTILS.ADD_MESSAGE
1827: (p_app_short_name => 'PA',
1828: p_msg_name => 'PA_CI_NO_SUMMARY'); --existing msg
1829: if l_debug_mode = 'Y' then
1830: pa_debug.g_err_stage:= 'Summary passed is null';
1831: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1832: end if;
1833: l_any_err_occured_flg := 'Y';
1834: end if;
1827: (p_app_short_name => 'PA',
1828: p_msg_name => 'PA_CI_NO_SUMMARY'); --existing msg
1829: if l_debug_mode = 'Y' then
1830: pa_debug.g_err_stage:= 'Summary passed is null';
1831: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1832: end if;
1833: l_any_err_occured_flg := 'Y';
1834: end if;
1835:
1856: if (get_strtng_sts_frm_sts_nme%notfound) then
1857: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1858: ,p_msg_name => 'PA_CI_INV_STATUS');
1859: if l_debug_mode = 'Y' then
1860: pa_debug.g_err_stage:= 'Invalid status passed';
1861: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1862: end if;
1863: l_any_err_occured_flg := 'Y';
1864: close get_strtng_sts_frm_sts_nme;
1857: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1858: ,p_msg_name => 'PA_CI_INV_STATUS');
1859: if l_debug_mode = 'Y' then
1860: pa_debug.g_err_stage:= 'Invalid status passed';
1861: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1862: end if;
1863: l_any_err_occured_flg := 'Y';
1864: close get_strtng_sts_frm_sts_nme;
1865: else
1877: if (get_strtng_sts_frm_sts_cde%notfound) then
1878: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1879: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE'); --this msg is already there
1880: if l_debug_mode = 'Y' then
1881: pa_debug.g_err_stage:= 'Invalid status code passed';
1882: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1883: end if;
1884: l_any_err_occured_flg := 'Y';
1885: close get_strtng_sts_frm_sts_cde;
1878: PA_UTILS.Add_message ( p_app_short_name => 'PA'
1879: ,p_msg_name => 'PA_CI_INVALID_STATUS_CODE'); --this msg is already there
1880: if l_debug_mode = 'Y' then
1881: pa_debug.g_err_stage:= 'Invalid status code passed';
1882: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1883: end if;
1884: l_any_err_occured_flg := 'Y';
1885: close get_strtng_sts_frm_sts_cde;
1886: else
1898: if (get_prj_mgr_id%notfound) then
1899: pa_utils.add_message( p_app_short_name => 'PA'
1900: ,p_msg_name => 'PA_CI_NO_MGR_ID'); --Need to check what this msg context shd be.
1901: if l_debug_mode = 'Y' then
1902: pa_debug.g_err_stage:= 'Could not find project manager';
1903: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1904: end if;
1905: close get_prj_mgr_id;
1906: l_any_err_occured_flg := 'Y';
1899: pa_utils.add_message( p_app_short_name => 'PA'
1900: ,p_msg_name => 'PA_CI_NO_MGR_ID'); --Need to check what this msg context shd be.
1901: if l_debug_mode = 'Y' then
1902: pa_debug.g_err_stage:= 'Could not find project manager';
1903: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1904: end if;
1905: close get_prj_mgr_id;
1906: l_any_err_occured_flg := 'Y';
1907: else
1917: if(validate_owner_id%notfound) then
1918: pa_utils.add_message( p_app_short_name => 'PA'
1919: ,p_msg_name => 'PA_CI_NO_OWNER'); --existing msg
1920: if l_debug_mode = 'Y' then
1921: pa_debug.g_err_stage:= 'Invalid owner id passed';
1922: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1923: end if;
1924: l_any_err_occured_flg := 'Y';
1925: close validate_owner_id;
1918: pa_utils.add_message( p_app_short_name => 'PA'
1919: ,p_msg_name => 'PA_CI_NO_OWNER'); --existing msg
1920: if l_debug_mode = 'Y' then
1921: pa_debug.g_err_stage:= 'Invalid owner id passed';
1922: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1923: end if;
1924: l_any_err_occured_flg := 'Y';
1925: close validate_owner_id;
1926: else
1937: if (validate_progress_sts_code%notfound) then
1938: pa_utils.add_message( p_app_short_name => 'PA'
1939: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
1940: if l_debug_mode = 'Y' then
1941: pa_debug.g_err_stage:= 'Invalid progress status code passed';
1942: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1943: end if;
1944: l_any_err_occured_flg := 'Y';
1945: close validate_progress_sts_code;
1938: pa_utils.add_message( p_app_short_name => 'PA'
1939: ,p_msg_name => 'PA_CI_INV_PRG_CODE');
1940: if l_debug_mode = 'Y' then
1941: pa_debug.g_err_stage:= 'Invalid progress status code passed';
1942: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1943: end if;
1944: l_any_err_occured_flg := 'Y';
1945: close validate_progress_sts_code;
1946: else --if (validate_progress_sts_code%notfound) then
1958: if (p_classification_code is null) then
1959: pa_utils.add_message( p_app_short_name => 'PA'
1960: ,p_msg_name => 'PA_CI_MIS_CLASSIFICATION_COD'); --msg is already there
1961: if l_debug_mode = 'Y' then
1962: pa_debug.g_err_stage:= 'classification_code is null';
1963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1964: end if;
1965: l_any_err_occured_flg := 'Y';
1966: end if;
1959: pa_utils.add_message( p_app_short_name => 'PA'
1960: ,p_msg_name => 'PA_CI_MIS_CLASSIFICATION_COD'); --msg is already there
1961: if l_debug_mode = 'Y' then
1962: pa_debug.g_err_stage:= 'classification_code is null';
1963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1964: end if;
1965: l_any_err_occured_flg := 'Y';
1966: end if;
1967: if (p_reason_code is null) then
1967: if (p_reason_code is null) then
1968: pa_utils.add_message( p_app_short_name => 'PA'
1969: ,p_msg_name => 'PA_CI_MISS_REASON_CODE'); --msg is already there
1970: if l_debug_mode = 'Y' then
1971: pa_debug.g_err_stage:= 'reason_code is null';
1972: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1973: end if;
1974: l_any_err_occured_flg := 'Y';
1975: end if;
1968: pa_utils.add_message( p_app_short_name => 'PA'
1969: ,p_msg_name => 'PA_CI_MISS_REASON_CODE'); --msg is already there
1970: if l_debug_mode = 'Y' then
1971: pa_debug.g_err_stage:= 'reason_code is null';
1972: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1973: end if;
1974: l_any_err_occured_flg := 'Y';
1975: end if;
1976: end if;
1982: if (validate_clsfcation_code%notfound) then
1983: pa_utils.add_message( p_app_short_name => 'PA'
1984: ,p_msg_name => 'PA_CI_CLASSIFICATION_INV');
1985: if l_debug_mode = 'Y' then
1986: pa_debug.g_err_stage:= 'Invalid classification code passed';
1987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1988: end if;
1989: l_any_err_occured_flg := 'Y';
1990: close validate_clsfcation_code;
1983: pa_utils.add_message( p_app_short_name => 'PA'
1984: ,p_msg_name => 'PA_CI_CLASSIFICATION_INV');
1985: if l_debug_mode = 'Y' then
1986: pa_debug.g_err_stage:= 'Invalid classification code passed';
1987: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
1988: end if;
1989: l_any_err_occured_flg := 'Y';
1990: close validate_clsfcation_code;
1991: else
2000: if (validate_reason_code%notfound) then
2001: pa_utils.add_message( p_app_short_name => 'PA'
2002: ,p_msg_name => 'PA_CI_INV_REA_CODE');
2003: if l_debug_mode = 'Y' then
2004: pa_debug.g_err_stage:= 'Invalid reason code passed';
2005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2006: end if;
2007: l_any_err_occured_flg := 'Y';
2008: close validate_reason_code;
2001: pa_utils.add_message( p_app_short_name => 'PA'
2002: ,p_msg_name => 'PA_CI_INV_REA_CODE');
2003: if l_debug_mode = 'Y' then
2004: pa_debug.g_err_stage:= 'Invalid reason code passed';
2005: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2006: end if;
2007: l_any_err_occured_flg := 'Y';
2008: close validate_reason_code;
2009: else
2015: if(p_object_type is not null and p_object_type <> 'PA_TASKS') then
2016: pa_utils.add_message( p_app_short_name => 'PA'
2017: ,p_msg_name => 'PA_CI_INV_OBJ_TYPE');
2018: if l_debug_mode = 'Y' then
2019: pa_debug.g_err_stage:= 'Invalid object type passed';
2020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2021: end if;
2022: l_any_err_occured_flg := 'Y';
2023: end if;
2016: pa_utils.add_message( p_app_short_name => 'PA'
2017: ,p_msg_name => 'PA_CI_INV_OBJ_TYPE');
2018: if l_debug_mode = 'Y' then
2019: pa_debug.g_err_stage:= 'Invalid object type passed';
2020: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2021: end if;
2022: l_any_err_occured_flg := 'Y';
2023: end if;
2024:
2029: if (validate_obj_id%notfound) then
2030: pa_utils.add_message( p_app_short_name => 'PA'
2031: ,p_msg_name => 'PA_CI_INV_OBJ_ID');
2032: if l_debug_mode = 'Y' then
2033: pa_debug.g_err_stage:= 'Invalid Object Id passed';
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: close validate_obj_id;
2030: pa_utils.add_message( p_app_short_name => 'PA'
2031: ,p_msg_name => 'PA_CI_INV_OBJ_ID');
2032: if l_debug_mode = 'Y' then
2033: pa_debug.g_err_stage:= 'Invalid Object Id passed';
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: close validate_obj_id;
2038: end if;
2046: if(p_date_closed is null) then
2047: pa_utils.add_message( p_app_short_name => 'PA'
2048: ,p_msg_name => 'PA_CI_CLS_DATE_MISS');
2049: if l_debug_mode = 'Y' then
2050: pa_debug.g_err_stage:= 'For a control item in closed status, closed_date is missing';
2051: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2052: end if;
2053: l_any_err_occured_flg := 'Y';
2054: else
2047: pa_utils.add_message( p_app_short_name => 'PA'
2048: ,p_msg_name => 'PA_CI_CLS_DATE_MISS');
2049: if l_debug_mode = 'Y' then
2050: pa_debug.g_err_stage:= 'For a control item in closed status, closed_date is missing';
2051: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2052: end if;
2053: l_any_err_occured_flg := 'Y';
2054: else
2055: l_date_closed := p_date_closed;
2067: if(p_closed_by_id is null) then
2068: pa_utils.add_message( p_app_short_name => 'PA'
2069: ,p_msg_name => 'PA_CI_CLS_BYID_MISS');
2070: if l_debug_mode = 'Y' then
2071: pa_debug.g_err_stage:= 'For a control item in closed status, closed_by_id is missing';
2072: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2073: end if;
2074: l_any_err_occured_flg := 'Y';
2075: else--if(p_closed_by_id is null) then
2068: pa_utils.add_message( p_app_short_name => 'PA'
2069: ,p_msg_name => 'PA_CI_CLS_BYID_MISS');
2070: if l_debug_mode = 'Y' then
2071: pa_debug.g_err_stage:= 'For a control item in closed status, closed_by_id is missing';
2072: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2073: end if;
2074: l_any_err_occured_flg := 'Y';
2075: else--if(p_closed_by_id is null) then
2076: /*validate the p_closed_by_id. Also the persons with the project authority can close the item*/
2079: if(validate_cls_by_id%notfound) then
2080: pa_utils.add_message( p_app_short_name => 'PA'
2081: ,p_msg_name => 'PA_CI_INV_CLS_BYID');
2082: if l_debug_mode = 'Y' then
2083: pa_debug.g_err_stage:= 'inavlid closed_by_id is passed or user doesnt have project authority';
2084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2085: end if;
2086: l_any_err_occured_flg := 'Y';
2087: close validate_cls_by_id;
2080: pa_utils.add_message( p_app_short_name => 'PA'
2081: ,p_msg_name => 'PA_CI_INV_CLS_BYID');
2082: if l_debug_mode = 'Y' then
2083: pa_debug.g_err_stage:= 'inavlid closed_by_id is passed or user doesnt have project authority';
2084: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2085: end if;
2086: l_any_err_occured_flg := 'Y';
2087: close validate_cls_by_id;
2088: else
2110: if (validate_resolution_code%notfound) then
2111: pa_utils.add_message( p_app_short_name => 'PA'
2112: ,p_msg_name => 'PA_CI_INV_RES_CODE');
2113: if l_debug_mode = 'Y' then
2114: pa_debug.g_err_stage:= 'Invalid resolution code passed';
2115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2116: end if;
2117: l_any_err_occured_flg := 'Y';
2118: close validate_resolution_code;
2111: pa_utils.add_message( p_app_short_name => 'PA'
2112: ,p_msg_name => 'PA_CI_INV_RES_CODE');
2113: if l_debug_mode = 'Y' then
2114: pa_debug.g_err_stage:= 'Invalid resolution code passed';
2115: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2116: end if;
2117: l_any_err_occured_flg := 'Y';
2118: close validate_resolution_code;
2119: end if;
2129: if (validate_priority_code%notfound) then
2130: pa_utils.add_message( p_app_short_name => 'PA'
2131: ,p_msg_name => 'PA_CI_INV_PRIO_CODE');
2132: if l_debug_mode = 'Y' then
2133: pa_debug.g_err_stage:= 'Invalid priority 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_priority_code;
2130: pa_utils.add_message( p_app_short_name => 'PA'
2131: ,p_msg_name => 'PA_CI_INV_PRIO_CODE');
2132: if l_debug_mode = 'Y' then
2133: pa_debug.g_err_stage:= 'Invalid priority 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_priority_code;
2138: end if;
2146: if (validate_eff_lvl_code%notfound) then
2147: pa_utils.add_message( p_app_short_name => 'PA'
2148: ,p_msg_name => 'PA_CI_INV_EFFR_CODE');
2149: if l_debug_mode = 'Y' then
2150: pa_debug.g_err_stage:= 'Invalid effort code passed';
2151: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2152: end if;
2153: l_any_err_occured_flg := 'Y';
2154: close validate_eff_lvl_code;
2147: pa_utils.add_message( p_app_short_name => 'PA'
2148: ,p_msg_name => 'PA_CI_INV_EFFR_CODE');
2149: if l_debug_mode = 'Y' then
2150: pa_debug.g_err_stage:= 'Invalid effort code passed';
2151: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2152: end if;
2153: l_any_err_occured_flg := 'Y';
2154: close validate_eff_lvl_code;
2155: end if;
2168: if (validate_prj_currency%notfound) then
2169: pa_utils.add_message( p_app_short_name => 'PA'
2170: ,p_msg_name => 'PA_CI_INV_CURR_CODE');
2171: if l_debug_mode = 'Y' then
2172: pa_debug.g_err_stage:= 'Invalid currency code passed';
2173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2174: end if;
2175: l_any_err_occured_flg := 'Y';
2176: close validate_prj_currency;
2169: pa_utils.add_message( p_app_short_name => 'PA'
2170: ,p_msg_name => 'PA_CI_INV_CURR_CODE');
2171: if l_debug_mode = 'Y' then
2172: pa_debug.g_err_stage:= 'Invalid currency code passed';
2173: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2174: end if;
2175: l_any_err_occured_flg := 'Y';
2176: close validate_prj_currency;
2177: end if;
2234: ,x_msg_data => x_msg_data);
2235:
2236: if x_return_status <> FND_API.g_ret_sts_success then
2237: if l_debug_mode = 'Y' then
2238: pa_debug.g_err_stage:= 'Failed in pa_system_numbers_pkg.get_next_number';
2239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2240: end if;
2241: raise api_error;
2242: end if;
2235:
2236: if x_return_status <> FND_API.g_ret_sts_success then
2237: if l_debug_mode = 'Y' then
2238: pa_debug.g_err_stage:= 'Failed in pa_system_numbers_pkg.get_next_number';
2239: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2240: end if;
2241: raise api_error;
2242: end if;
2243: l_ci_number_char := TO_CHAR(l_ci_number_num);
2262: if pa_control_items_pvt.ci_number_exists(p_project_id, l_ci_number_char ,p_ci_type_id) = TRUE then
2263: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2264: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');--msg already there
2265: if l_debug_mode = 'Y' then
2266: pa_debug.g_err_stage:= 'Duplicate ci_number passed.';
2267: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2268: end if;
2269: l_any_err_occured_flg := 'Y';
2270: end if;
2263: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2264: ,p_msg_name => 'PA_CI_DUPLICATE_CI_NUMBER');--msg already there
2265: if l_debug_mode = 'Y' then
2266: pa_debug.g_err_stage:= 'Duplicate ci_number passed.';
2267: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2268: end if;
2269: l_any_err_occured_flg := 'Y';
2270: end if;
2271: end if;--p_auto_number_flag = 'Y' and l_system_status_code <> 'CI_DRAFT'
2275: if l_ci_number_char is null and l_system_status_code <> 'CI_DRAFT' then
2276: pa_utils.add_message( p_app_short_name => 'PA'
2277: ,p_msg_name => 'PA_CI_NO_CI_NUMBER'); --msg already there
2278: if l_debug_mode = 'Y' then
2279: pa_debug.g_err_stage:= 'Missing ci_number';
2280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2281: end if;
2282: l_any_err_occured_flg := 'Y';
2283: end if;
2276: pa_utils.add_message( p_app_short_name => 'PA'
2277: ,p_msg_name => 'PA_CI_NO_CI_NUMBER'); --msg already there
2278: if l_debug_mode = 'Y' then
2279: pa_debug.g_err_stage:= 'Missing ci_number';
2280: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2281: end if;
2282: l_any_err_occured_flg := 'Y';
2283: end if;
2284: exception
2290: end; --for begin
2291: end if;--l_status_code is not null
2292:
2293: if l_debug_mode = 'Y' then
2294: pa_debug.g_err_stage:= 'about to call the table handler';
2295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2296: end if;
2297:
2298: if (l_any_err_occured_flg is not null and l_any_err_occured_flg <> 'Y') then
2291: end if;--l_status_code is not null
2292:
2293: if l_debug_mode = 'Y' then
2294: pa_debug.g_err_stage:= 'about to call the table handler';
2295: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2296: end if;
2297:
2298: if (l_any_err_occured_flg is not null and l_any_err_occured_flg <> 'Y') then
2299: pa_control_items_pkg.insert_row (
2354: end if;
2355:
2356: if (x_return_status <> fnd_api.g_ret_sts_success) then
2357: if l_debug_mode = 'Y' then
2358: pa_debug.g_err_stage:= 'Missing ci_number';
2359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2360: end if;
2361: raise fnd_api.g_exc_unexpected_error;
2362: end if;
2355:
2356: if (x_return_status <> fnd_api.g_ret_sts_success) then
2357: if l_debug_mode = 'Y' then
2358: pa_debug.g_err_stage:= 'Missing ci_number';
2359: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2360: end if;
2361: raise fnd_api.g_exc_unexpected_error;
2362: end if;
2363:
2372: x_ci_number := l_ci_number_char;
2373:
2374: --rest the stack;
2375: if l_debug_mode = 'Y' then
2376: pa_debug.reset_curr_function;
2377: end if;
2378:
2379: exception
2380: when fnd_api.g_exc_unexpected_error then
2386: x_ci_id := null;
2387: x_ci_number := null;
2388: --rest the stack;
2389: if l_debug_mode = 'Y' then
2390: pa_debug.reset_curr_function;
2391: end if;
2392: --raise the exception
2393: raise;
2394: when fnd_api.g_exc_error then
2413: x_ci_number := null;
2414:
2415: --rest the stack;
2416: if l_debug_mode = 'Y' then
2417: pa_debug.reset_curr_function;
2418: end if;
2419: --raise the exception
2420: raise;
2421: when others then
2432:
2433:
2434: --Reset the stack
2435: if l_debug_mode = 'Y' then
2436: pa_debug.reset_curr_function;
2437: end if;
2438: --raise the exception
2439: raise;
2440: end validate_param_and_create;
2467: -- initialize the return status to success
2468: x_return_status := fnd_api.g_ret_sts_success;
2469: x_msg_count := 0;
2470:
2471: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2472: l_module_name := 'check_create_action_allow' || g_module_name;
2473:
2474: if l_debug_mode = 'Y' then
2475: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2471: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2472: l_module_name := 'check_create_action_allow' || g_module_name;
2473:
2474: if l_debug_mode = 'Y' then
2475: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2476: end if;
2477:
2478: if l_debug_mode = 'Y' then
2479: pa_debug.write(l_module_name, 'start of check_create_action_allow', l_debug_level3);
2475: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.check_create_action_allow', p_debug_mode => l_debug_mode);
2476: end if;
2477:
2478: if l_debug_mode = 'Y' then
2479: pa_debug.write(l_module_name, 'start of check_create_action_allow', l_debug_level3);
2480: end if;
2481:
2482: --Setting this flag to N initially.
2483: l_any_err_occured_flg := 'N';
2487: pa_utils.add_message
2488: (p_app_short_name => 'PA',
2489: p_msg_name => 'PA_CI_MISS_CI_ID');
2490: if l_debug_mode = 'Y' then
2491: pa_debug.g_err_stage:= 'ci_id is missing';
2492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2493: end if;
2494: l_any_err_occured_flg := 'Y';
2495: end if;-- if(p_ci_id is null) then
2488: (p_app_short_name => 'PA',
2489: p_msg_name => 'PA_CI_MISS_CI_ID');
2490: if l_debug_mode = 'Y' then
2491: pa_debug.g_err_stage:= 'ci_id is missing';
2492: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2493: end if;
2494: l_any_err_occured_flg := 'Y';
2495: end if;-- if(p_ci_id is null) then
2496:
2503: pa_utils.add_message
2504: (p_app_short_name => 'PA',
2505: p_msg_name => 'PA_CI_INV_CI_ID');
2506: if l_debug_mode = 'Y' then
2507: pa_debug.g_err_stage:= 'ci_id is invalid';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2509: end if;
2510: close check_valid_ci_id;
2511: l_any_err_occured_flg := 'Y';
2504: (p_app_short_name => 'PA',
2505: p_msg_name => 'PA_CI_INV_CI_ID');
2506: if l_debug_mode = 'Y' then
2507: pa_debug.g_err_stage:= 'ci_id is invalid';
2508: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2509: end if;
2510: close check_valid_ci_id;
2511: l_any_err_occured_flg := 'Y';
2512: else
2529: pa_utils.add_message
2530: (p_app_short_name => 'PA',
2531: p_msg_name => 'PA_CI_ACT_FLS_SEC');
2532: if l_debug_mode = 'Y' then
2533: pa_debug.g_err_stage:= 'user doesnt have security to create the action';
2534: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2535: end if;
2536: l_any_err_occured_flg := 'Y';
2537: end if;
2530: (p_app_short_name => 'PA',
2531: p_msg_name => 'PA_CI_ACT_FLS_SEC');
2532: if l_debug_mode = 'Y' then
2533: pa_debug.g_err_stage:= 'user doesnt have security to create the action';
2534: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2535: end if;
2536: l_any_err_occured_flg := 'Y';
2537: end if;
2538:
2541: end if;
2542:
2543: --rest the stack;
2544: if l_debug_mode = 'Y' then
2545: pa_debug.reset_curr_function;
2546: end if;
2547:
2548: Exception
2549: when fnd_api.g_exc_error then
2566: x_project_id := null;
2567: /* no in/out paramters to be set to their initial values here*/
2568: --rest the stack;
2569: if l_debug_mode = 'Y' then
2570: pa_debug.reset_curr_function;
2571: end if;
2572: --raise the exception
2573: raise;
2574: when others then
2582: x_project_id := null;
2583: /* no in/out paramters to be set to their initial values here*/
2584: --rest the stack;
2585: if l_debug_mode = 'Y' then
2586: pa_debug.reset_curr_function;
2587: end if;
2588: --raise the exception
2589: raise;
2590: END check_create_action_allow;
2633: -- initialize the return status to success
2634: x_return_status := fnd_api.g_ret_sts_success;
2635: x_msg_count := 0;
2636:
2637: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2638: l_module_name := 'validate_assignee_id' || g_module_name;
2639:
2640: if l_debug_mode = 'Y' then
2641: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2637: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2638: l_module_name := 'validate_assignee_id' || g_module_name;
2639:
2640: if l_debug_mode = 'Y' then
2641: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2642: end if;
2643:
2644: if l_debug_mode = 'Y' then
2645: pa_debug.write(l_module_name, 'start of validate_assignee_id', l_debug_level3);
2641: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_assignee_id', p_debug_mode => l_debug_mode);
2642: end if;
2643:
2644: if l_debug_mode = 'Y' then
2645: pa_debug.write(l_module_name, 'start of validate_assignee_id', l_debug_level3);
2646: end if;
2647:
2648: if(p_assignee_id is not null) then
2649: /*Validate the passed action assinee id exists in the system*/
2665: p_msg_name => 'PA_CI_INV_ACT_ASSGN_CODE_NT');
2666: end if;--if(p_msg_token_num is not null) then
2667:
2668: if (l_debug_mode = 'Y') then
2669: pa_debug.g_err_stage:= 'Invalid action assingee code passed';
2670: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2671: end if;
2672: close chk_act_assgn_id;
2673: raise fnd_api.g_exc_error;
2666: end if;--if(p_msg_token_num is not null) then
2667:
2668: if (l_debug_mode = 'Y') then
2669: pa_debug.g_err_stage:= 'Invalid action assingee code passed';
2670: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2671: end if;
2672: close chk_act_assgn_id;
2673: raise fnd_api.g_exc_error;
2674: else--(chk_act_assgn_id%notfound) then
2689: p_msg_name => 'PA_CI_MISS_ASSGN_ID_NT');
2690: end if;--if(p_msg_token_num is not null)
2691:
2692: if l_debug_mode = 'Y' then
2693: pa_debug.g_err_stage:= 'Action Assignee Id is missing';
2694: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2695: end if;
2696: raise fnd_api.g_exc_error;
2697: end if;--if(p_assignee_id is not null) then
2690: end if;--if(p_msg_token_num is not null)
2691:
2692: if l_debug_mode = 'Y' then
2693: pa_debug.g_err_stage:= 'Action Assignee Id is missing';
2694: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2695: end if;
2696: raise fnd_api.g_exc_error;
2697: end if;--if(p_assignee_id is not null) then
2698: --rest the stack;
2696: raise fnd_api.g_exc_error;
2697: end if;--if(p_assignee_id is not null) then
2698: --rest the stack;
2699: if l_debug_mode = 'Y' then
2700: pa_debug.reset_curr_function;
2701: end if;
2702:
2703: Exception
2704: when fnd_api.g_exc_error then
2721: x_assignee_id := null;
2722: /* no in/out paramters to be set to their initial values here*/
2723: --reset the err stack
2724: if l_debug_mode = 'Y' then
2725: pa_debug.reset_curr_function;
2726: end if;
2727:
2728: when others then
2729: x_return_status := fnd_api.g_ret_sts_unexp_error;
2736: x_assignee_id := null;
2737: /* no in/out paramters to be set to their initial values here*/
2738: --reset the err stack
2739: if l_debug_mode = 'Y' then
2740: pa_debug.reset_curr_function;
2741: end if;
2742: /*dont raise this exception*/
2743: END validate_assignee_id;
2744:
2804: -- initialize the return status to success
2805: x_return_status := fnd_api.g_ret_sts_success;
2806: x_msg_count := 0;
2807:
2808: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2809: l_module_name := 'validate_action_attributes' || g_module_name;
2810:
2811: if l_debug_mode = 'Y' then
2812: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2808: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
2809: l_module_name := 'validate_action_attributes' || g_module_name;
2810:
2811: if l_debug_mode = 'Y' then
2812: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2813: end if;
2814:
2815: if l_debug_mode = 'Y' then
2816: pa_debug.write(l_module_name, 'start of validate_action_attributes', l_debug_level3);
2812: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.validate_action_attributes', p_debug_mode => l_debug_mode);
2813: end if;
2814:
2815: if l_debug_mode = 'Y' then
2816: pa_debug.write(l_module_name, 'start of validate_action_attributes', l_debug_level3);
2817: end if;
2818:
2819: --Setting this flag to N initially outside the loop.
2820: l_any_err_occured_flg := 'N';
2844: p_msg_name => 'PA_CI_INV_ACT_CODE',
2845: p_token1 => 'NUMBER',
2846: p_value1 => i);
2847: if l_debug_mode = 'Y' then
2848: pa_debug.g_err_stage:= 'Invalid action code';
2849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2850: end if;
2851: close chk_act_typ_code;
2852: l_any_err_occured_flg := 'Y';
2845: p_token1 => 'NUMBER',
2846: p_value1 => i);
2847: if l_debug_mode = 'Y' then
2848: pa_debug.g_err_stage:= 'Invalid action code';
2849: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2850: end if;
2851: close chk_act_typ_code;
2852: l_any_err_occured_flg := 'Y';
2853: else--(chk_act_typ_code%notfound) then
2899: p_msg_name => 'PA_CI_INV_ACT_STS_CODE',
2900: p_token1 => 'NUMBER',
2901: p_value1 => i);
2902: if (l_debug_mode = 'Y') then
2903: pa_debug.g_err_stage:= 'Status code for the action is invalid';
2904: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2905: end if;
2906: close chk_action_status_code;
2907: l_any_err_occured_flg := 'Y';
2900: p_token1 => 'NUMBER',
2901: p_value1 => i);
2902: if (l_debug_mode = 'Y') then
2903: pa_debug.g_err_stage:= 'Status code for the action is invalid';
2904: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2905: end if;
2906: close chk_action_status_code;
2907: l_any_err_occured_flg := 'Y';
2908: else--if(chk_action_status_code%notfound) then
2916: /* the cursor shd always return a record here as ci_id is valid at this place in code unless the status types
2917: heve not been set up in the system for control items*/
2918: if(act_sts_allw_for_ci_sts%notfound) then
2919: if (l_debug_mode = 'Y') then
2920: pa_debug.g_err_stage:= 'Either the ci_id is invalid or statuses for control item have not been set up';
2921: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2922: end if;
2923: close act_sts_allw_for_ci_sts;
2924: else
2917: heve not been set up in the system for control items*/
2918: if(act_sts_allw_for_ci_sts%notfound) then
2919: if (l_debug_mode = 'Y') then
2920: pa_debug.g_err_stage:= 'Either the ci_id is invalid or statuses for control item have not been set up';
2921: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2922: end if;
2923: close act_sts_allw_for_ci_sts;
2924: else
2925: if( (l_ci_status_code = 'CI_APPROVED' or l_ci_status_code = 'CI_CANCELED' or l_ci_status_code = 'CI_CLOSED'
2931: p_msg_name => 'PA_CI_MISMATCH_ACT_CI_STS',
2932: p_token1 => 'NUMBER',
2933: p_value1 => i);
2934: if (l_debug_mode = 'Y') then
2935: pa_debug.g_err_stage := 'Action status is not valid for the control item status.';
2936: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2937: end if;
2938: l_any_err_occured_flg := 'Y';
2939: else
2932: p_token1 => 'NUMBER',
2933: p_value1 => i);
2934: if (l_debug_mode = 'Y') then
2935: pa_debug.g_err_stage := 'Action status is not valid for the control item status.';
2936: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2937: end if;
2938: l_any_err_occured_flg := 'Y';
2939: else
2940: x_action_tbl(i).action_status := l_action_status_code;
2951: p_msg_name => 'PA_CI_MISS_ACT_CI_STS',
2952: p_token1 => 'NUMBER',
2953: p_value1 => i);
2954: if (l_debug_mode = 'Y') then
2955: pa_debug.g_err_stage := 'Action status code is missing.';
2956: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2957: end if;
2958: l_any_err_occured_flg := 'Y';
2959: end if;--if(l_action_tbl(i).action_status is not null) then
2952: p_token1 => 'NUMBER',
2953: p_value1 => i);
2954: if (l_debug_mode = 'Y') then
2955: pa_debug.g_err_stage := 'Action status code is missing.';
2956: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2957: end if;
2958: l_any_err_occured_flg := 'Y';
2959: end if;--if(l_action_tbl(i).action_status is not null) then
2960:
2985: p_msg_name => 'PA_CI_INV_SRC_CI_ID',
2986: p_token1 => 'NUMBER',
2987: p_value1 => i);
2988: if (l_debug_mode = 'Y') then
2989: pa_debug.g_err_stage := 'source_ci_action_id is invalid';
2990: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2991: end if;
2992: l_any_err_occured_flg := 'Y';
2993: close check_valid_src_ci_action_id;
2986: p_token1 => 'NUMBER',
2987: p_value1 => i);
2988: if (l_debug_mode = 'Y') then
2989: pa_debug.g_err_stage := 'source_ci_action_id is invalid';
2990: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
2991: end if;
2992: l_any_err_occured_flg := 'Y';
2993: close check_valid_src_ci_action_id;
2994: else
3003: p_msg_name => 'PA_CI_INV_SRC_CI_ID_STS',
3004: p_token1 => 'NUMBER',
3005: p_value1 => i);
3006: if (l_debug_mode = 'Y') then
3007: pa_debug.g_err_stage := 'source_ci_action_id can only be a closed action';
3008: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3009: end if;
3010: l_any_err_occured_flg := 'Y';
3011: close check_valid_src_ci_action_id;
3004: p_token1 => 'NUMBER',
3005: p_value1 => i);
3006: if (l_debug_mode = 'Y') then
3007: pa_debug.g_err_stage := 'source_ci_action_id can only be a closed action';
3008: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3009: end if;
3010: l_any_err_occured_flg := 'Y';
3011: close check_valid_src_ci_action_id;
3012: end if;
3023: p_msg_name => 'PA_CI_MISS_DATE_FOR_ACT_CODE',
3024: p_token1 => 'NUMBER',
3025: p_value1 => i);
3026: if (l_debug_mode = 'Y') then
3027: pa_debug.g_err_stage := 'closed_date is missing for a closed/canceled action';
3028: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3029: end if;
3030: l_any_err_occured_flg := 'Y';
3031: else --(l_action_tbl(i).closed_date is null) then
3024: p_token1 => 'NUMBER',
3025: p_value1 => i);
3026: if (l_debug_mode = 'Y') then
3027: pa_debug.g_err_stage := 'closed_date is missing for a closed/canceled action';
3028: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3029: end if;
3030: l_any_err_occured_flg := 'Y';
3031: else --(l_action_tbl(i).closed_date is null) then
3032: x_action_tbl(i).closed_date := l_action_tbl(i).closed_date;
3044: raise fnd_api.g_exc_error;
3045: end if;
3046: --reset the err stack
3047: if l_debug_mode = 'Y' then
3048: pa_debug.reset_curr_function;
3049: end if;
3050:
3051: Exception
3052: when fnd_api.g_exc_error then
3068: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3069: /* no in/out paramters to be set to their initial values here*/
3070: --reset the err stack
3071: if l_debug_mode = 'Y' then
3072: pa_debug.reset_curr_function;
3073: end if;
3074: --raise the exception
3075: raise;
3076: when others then
3083: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3084: /* no in/out paramters to be set to their initial values here*/
3085: --reset the err stack
3086: if l_debug_mode = 'Y' then
3087: pa_debug.reset_curr_function;
3088: end if;
3089: --raise the exception
3090: raise;
3091: END validate_action_attributes;
3126: -- initialize the return status to success
3127: x_return_status := fnd_api.g_ret_sts_success;
3128: x_msg_count := 0;
3129:
3130: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3131: l_module_name := 'create_action' || g_module_name;
3132:
3133: if l_debug_mode = 'Y' then
3134: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3130: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3131: l_module_name := 'create_action' || g_module_name;
3132:
3133: if l_debug_mode = 'Y' then
3134: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3135: end if;
3136:
3137: if l_debug_mode = 'Y' then
3138: pa_debug.write(l_module_name, 'start of create_action', l_debug_level3);
3134: pa_debug.set_curr_function(p_function => 'pa_control_api_pvt.create_action', p_debug_mode => l_debug_mode);
3135: end if;
3136:
3137: if l_debug_mode = 'Y' then
3138: pa_debug.write(l_module_name, 'start of create_action', l_debug_level3);
3139: end if;
3140:
3141:
3142: --Setting this flag to N initially.
3158: l_action_number := PA_CI_ACTIONS_UTIL.get_next_ci_action_number(p_ci_id);
3159: end if;
3160:
3161: if l_debug_mode = 'Y' then
3162: pa_debug.g_err_stage := 'calling insert row to create the action';
3163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3164: end if;
3165:
3166: /*insert row in pa_ci_actions*/
3159: end if;
3160:
3161: if l_debug_mode = 'Y' then
3162: pa_debug.g_err_stage := 'calling insert row to create the action';
3163: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3164: end if;
3165:
3166: /*insert row in pa_ci_actions*/
3167: pa_ci_actions_pkg.insert_row(
3194: l_type_code := 'REQUESTOR';
3195: end if;
3196:
3197: if l_debug_mode = 'Y' then
3198: pa_debug.g_err_stage := 'Inserting the comment for the action.';
3199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3200: end if;
3201:
3202: /*now call the add comment api*/
3195: end if;
3196:
3197: if l_debug_mode = 'Y' then
3198: pa_debug.g_err_stage := 'Inserting the comment for the action.';
3199: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3200: end if;
3201:
3202: /*now call the add comment api*/
3203: pa_ci_comments_pkg.insert_row(
3213: p_ci_action_id => l_ci_action_id);
3214:
3215:
3216: if l_debug_mode = 'Y' then
3217: pa_debug.g_err_stage := 'Updating number of actions for a control item';
3218: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3219: end if;
3220: /*now update the number of actions in pa_control_items_table */
3221: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3214:
3215:
3216: if l_debug_mode = 'Y' then
3217: pa_debug.g_err_stage := 'Updating number of actions for a control item';
3218: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3219: end if;
3220: /*now update the number of actions in pa_control_items_table */
3221: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3222: l_num_open_action := l_num_open_action + 1;
3235: l_any_err_occured_flg := 'Y';
3236: end if;
3237:
3238: if l_debug_mode = 'Y' then
3239: pa_debug.g_err_stage := 'calling insert row to create the action';
3240: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3241: end if;
3242: /*start the workflow notification only if start_wf flag is Y*/
3243: if(p_action_tbl(i).start_wf = 'Y') then
3236: end if;
3237:
3238: if l_debug_mode = 'Y' then
3239: pa_debug.g_err_stage := 'calling insert row to create the action';
3240: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3241: end if;
3242: /*start the workflow notification only if start_wf flag is Y*/
3243: if(p_action_tbl(i).start_wf = 'Y') then
3244: if(p_action_tbl(i).action_status = 'CI_ACTION_OPEN') then
3301: end if;
3302:
3303: --reset the err stack
3304: if l_debug_mode = 'Y' then
3305: pa_debug.reset_curr_function;
3306: end if;
3307:
3308: Exception
3309: When fnd_api.g_exc_unexpected_error then
3317: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3318: /* no in/out paramters to be set to their initial values here*/
3319: --reset the err stack
3320: if l_debug_mode = 'Y' then
3321: pa_debug.reset_curr_function;
3322: end if;
3323: --raise the exception;
3324: raise;
3325: when others then
3332: /*Not initializing the out table of records to null as it wont be used in the calling API if exception occurs*/
3333: /* no in/out paramters to be set to their initial values here*/
3334: --reset the err stack
3335: if l_debug_mode = 'Y' then
3336: pa_debug.reset_curr_function;
3337: end if;
3338: --raise the exception
3339: raise;
3340:
3385: -- initialize the return status to success
3386: x_return_status := fnd_api.g_ret_sts_success;
3387: x_msg_count := 0;
3388:
3389: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3390: l_module_name := 'validate_priv_and_action' || g_module_name;
3391:
3392: if l_debug_mode = 'Y' then
3393: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3389: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3390: l_module_name := 'validate_priv_and_action' || g_module_name;
3391:
3392: if l_debug_mode = 'Y' then
3393: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3394: end if;
3395:
3396: if l_debug_mode = 'Y' then
3397: pa_debug.write(l_module_name, 'start of validate_priv_and_action', l_debug_level3);
3393: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.validate_priv_and_action', p_debug_mode => l_debug_mode);
3394: end if;
3395:
3396: if l_debug_mode = 'Y' then
3397: pa_debug.write(l_module_name, 'start of validate_priv_and_action', l_debug_level3);
3398: end if;
3399:
3400: --Setting this flag to N initially.
3401: l_any_err_occured_flg := 'N';
3407: ) then
3408: pa_utils.add_message(p_app_short_name => 'PA',
3409: p_msg_name => 'PA_CI_MISS_CIID_ACTID_ACTNUM');
3410: if (l_debug_mode = 'Y') then
3411: pa_debug.g_err_stage := 'all three action_id, ci_id, action_number cannot be missing';
3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3413: end if;
3414: /*raise the exception*/
3415: raise fnd_api.g_exc_error;
3408: pa_utils.add_message(p_app_short_name => 'PA',
3409: p_msg_name => 'PA_CI_MISS_CIID_ACTID_ACTNUM');
3410: if (l_debug_mode = 'Y') then
3411: pa_debug.g_err_stage := 'all three action_id, ci_id, action_number cannot be missing';
3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3413: end if;
3414: /*raise the exception*/
3415: raise fnd_api.g_exc_error;
3416: end if;-- if( (p_ci_id is null or p_ci_id is = G_PA_MISS_NUM) AND
3428: /*ci_id and action_number combination is invalid.raise the error message.*/
3429: pa_utils.add_message(p_app_short_name => 'PA',
3430: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3431: if (l_debug_mode = 'Y') then
3432: pa_debug.g_err_stage := 'there is no action for passed action_number and ci_id';
3433: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3434: end if;
3435: close get_ci_action_id;
3436: raise fnd_api.g_exc_error;
3429: pa_utils.add_message(p_app_short_name => 'PA',
3430: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3431: if (l_debug_mode = 'Y') then
3432: pa_debug.g_err_stage := 'there is no action for passed action_number and ci_id';
3433: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3434: end if;
3435: close get_ci_action_id;
3436: raise fnd_api.g_exc_error;
3437: else--if(get_ci_action_id%notfound) then
3444: /*one or both p_ci_id, p_action_number is missing here.*/
3445: pa_utils.add_message(p_app_short_name => 'PA',
3446: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3447: if (l_debug_mode = 'Y') then
3448: pa_debug.g_err_stage := 'one or both ci_id or action_number is missing';
3449: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: end if;
3451: raise fnd_api.g_exc_error;
3452: end if;--if( (p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM) AND
3445: pa_utils.add_message(p_app_short_name => 'PA',
3446: p_msg_name => 'PA_CI_INV_CIID_ACTNUM');
3447: if (l_debug_mode = 'Y') then
3448: pa_debug.g_err_stage := 'one or both ci_id or action_number is missing';
3449: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: end if;
3451: raise fnd_api.g_exc_error;
3452: end if;--if( (p_ci_id is not null and p_ci_id <> G_PA_MISS_NUM) AND
3453:
3459: /*incorrect p_action_id is passed. there is no record for this action id*/
3460: pa_utils.add_message(p_app_short_name => 'PA',
3461: p_msg_name => 'PA_CI_INV_ACT_ID');
3462: if (l_debug_mode = 'Y') then
3463: pa_debug.g_err_stage := 'invalid action_id passed';
3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3465: end if;
3466: close validate_ci_action_id;
3467: raise fnd_api.g_exc_error;
3460: pa_utils.add_message(p_app_short_name => 'PA',
3461: p_msg_name => 'PA_CI_INV_ACT_ID');
3462: if (l_debug_mode = 'Y') then
3463: pa_debug.g_err_stage := 'invalid action_id passed';
3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3465: end if;
3466: close validate_ci_action_id;
3467: raise fnd_api.g_exc_error;
3468: else--if(validate_ci_action_id%notfound) then
3475: end if; -- if (p_action_id is null or p_action_id is G_PA_MISS_NUM)
3476:
3477: --reset the error stack;
3478: if l_debug_mode = 'Y' then
3479: pa_debug.reset_curr_function;
3480: end if;
3481:
3482: --do the exception handling;
3483: exception
3505: --no in out parameters to set to their initial values.
3506:
3507: --reset the error stack;
3508: if l_debug_mode = 'Y' then
3509: pa_debug.reset_curr_function;
3510: end if;
3511: --raise the exception
3512: raise;
3513: when others then
3525: --no inout parameters to set to their initial values.
3526:
3527: --reset the error stack;
3528: if l_debug_mode = 'Y' then
3529: pa_debug.reset_curr_function;
3530: end if;
3531: --raise the exception
3532: raise;
3533:
3561: l_Msg_Index_Out NUMBER;
3562: l_CiId PA_CONTROL_ITEMS.Ci_Id%TYPE;
3563: -- End: Local Variables.
3564: BEGIN
3565: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3566: l_module_name := 'Delete_CI' || g_module_name;
3567:
3568: if l_debug_mode = 'Y' then
3569: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3565: l_debug_mode := NVL(FND_PROFILE.VALUE_SPECIFIC('PA_DEBUG_MODE', fnd_global.user_id, fnd_global.resp_id, 275, null, null), 'N');
3566: l_module_name := 'Delete_CI' || g_module_name;
3567:
3568: if l_debug_mode = 'Y' then
3569: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3570: end if;
3571:
3572: if l_debug_mode = 'Y' then
3573: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3569: pa_debug.set_curr_function(p_function => 'pa_control_api_pub.Delete_CI', p_debug_mode => l_debug_mode);
3570: end if;
3571:
3572: if l_debug_mode = 'Y' then
3573: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3574: end if;
3575: -- Initialize the Error Stack.
3576: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PVT.Delete_CI');
3577:
3572: if l_debug_mode = 'Y' then
3573: pa_debug.write(l_module_name, 'start of Delete_CI', l_debug_level3);
3574: end if;
3575: -- Initialize the Error Stack.
3576: --PA_DEBUG.Init_Err_Stack ('PA_CONTROL_API_PVT.Delete_CI');
3577:
3578: -- Initialize the Return Status to Success.
3579: x_Return_Status := FND_API.g_Ret_Sts_Success;
3580: x_Msg_Count := 0;
3592: p_App_Short_Name => 'PA'
3593: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
3594: );
3595: if (l_debug_mode = 'Y') then
3596: pa_debug.g_err_stage := 'CI_ID is not passed';
3597: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3598: end if;
3599: -- Raise the Invalid Argument exception.
3600: RAISE FND_API.G_EXC_ERROR;
3593: , p_Msg_Name => 'PA_CI_MISS_CI_ID'
3594: );
3595: if (l_debug_mode = 'Y') then
3596: pa_debug.g_err_stage := 'CI_ID is not passed';
3597: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3598: end if;
3599: -- Raise the Invalid Argument exception.
3600: RAISE FND_API.G_EXC_ERROR;
3601: END IF;
3613: p_App_Short_Name => 'PA'
3614: , p_Msg_Name => 'PA_CI_INV_CI_ID'
3615: );
3616: if (l_debug_mode = 'Y') then
3617: pa_debug.g_err_stage := 'invalid ci_id passed';
3618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3619: end if;
3620: -- Raise the Invalid Argument exception.
3621: RAISE FND_API.G_EXC_ERROR;
3614: , p_Msg_Name => 'PA_CI_INV_CI_ID'
3615: );
3616: if (l_debug_mode = 'Y') then
3617: pa_debug.g_err_stage := 'invalid ci_id passed';
3618: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3619: end if;
3620: -- Raise the Invalid Argument exception.
3621: RAISE FND_API.G_EXC_ERROR;
3622: END IF;
3630: IF (Get_CI_Data%NOTFOUND) THEN
3631: -- Code to Report Error.
3632: CLOSE Get_CI_Data;
3633: if (l_debug_mode = 'Y') then
3634: pa_debug.g_err_stage := 'No data found in Get_CI_Data';
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3636: end if;
3637: RAISE FND_API.G_EXC_ERROR;
3638: END IF;
3631: -- Code to Report Error.
3632: CLOSE Get_CI_Data;
3633: if (l_debug_mode = 'Y') then
3634: pa_debug.g_err_stage := 'No data found in Get_CI_Data';
3635: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3636: end if;
3637: RAISE FND_API.G_EXC_ERROR;
3638: END IF;
3639: CLOSE Get_CI_Data;
3652: l_ViewAccess := PA_CI_SECURITY_PKG.Check_View_Access (p_Ci_Id, l_ProjectId, l_StatusCode, l_CiTypeClassCode);
3653: l_DeleteAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_DELETE', p_Ci_Id);
3654: IF (l_ViewAccess = 'T' AND l_DeleteAllowed = 'Y') THEN
3655: if (l_debug_mode = 'Y') then
3656: pa_debug.g_err_stage := 'Before Calling PA_CONTROL_ITEMS_PUB.Delete_Control_Item';
3657: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3658: end if;
3659: PA_CONTROL_ITEMS_PUB.Delete_Control_Item (
3660: p_Api_Version => p_Api_Version_Number
3653: l_DeleteAllowed := PA_CONTROL_ITEMS_UTILS.CheckCIActionAllowed ('CONTROL_ITEM', l_StatusCode, 'CONTROL_ITEM_ALLOW_DELETE', p_Ci_Id);
3654: IF (l_ViewAccess = 'T' AND l_DeleteAllowed = 'Y') THEN
3655: if (l_debug_mode = 'Y') then
3656: pa_debug.g_err_stage := 'Before Calling PA_CONTROL_ITEMS_PUB.Delete_Control_Item';
3657: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3658: end if;
3659: PA_CONTROL_ITEMS_PUB.Delete_Control_Item (
3660: p_Api_Version => p_Api_Version_Number
3661: , p_Init_Msg_List => 'F'
3676: p_App_Short_Name => 'PA'
3677: , p_Msg_Name => 'PA_CI_NO_ALLOW_DELETE'
3678: );
3679: if (l_debug_mode = 'Y') then
3680: pa_debug.g_err_stage := 'User does not have the privilege to delete this Control Item';
3681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3682: end if;
3683: END IF;
3684:
3677: , p_Msg_Name => 'PA_CI_NO_ALLOW_DELETE'
3678: );
3679: if (l_debug_mode = 'Y') then
3680: pa_debug.g_err_stage := 'User does not have the privilege to delete this Control Item';
3681: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3682: end if;
3683: END IF;
3684:
3685: -- Check if delete was denied by Status Control or not.
3690: p_App_Short_Name => 'PA'
3691: , p_Msg_Name => 'PA_CI_DELETE_NOT_ALLOWED'
3692: );
3693: if (l_debug_mode = 'Y') then
3694: pa_debug.g_err_stage := 'This control item cannot be deleted in its present status';
3695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3696: end if;
3697: END IF;
3698:
3691: , p_Msg_Name => 'PA_CI_DELETE_NOT_ALLOWED'
3692: );
3693: if (l_debug_mode = 'Y') then
3694: pa_debug.g_err_stage := 'This control item cannot be deleted in its present status';
3695: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3696: end if;
3697: END IF;
3698:
3699: -- Raise the Invalid Argument exception.
3709: p_App_Short_Name => 'PA'
3710: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
3711: );
3712: if (l_debug_mode = 'Y') then
3713: pa_debug.g_err_stage := 'CI_ID has workflow Attached';
3714: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3715: end if;
3716: -- Raise the Invalid Argument exception.
3717: RAISE FND_API.G_EXC_ERROR;
3710: , p_Msg_Name => 'PA_CI_APPROVAL_WORKFLOW'
3711: );
3712: if (l_debug_mode = 'Y') then
3713: pa_debug.g_err_stage := 'CI_ID has workflow Attached';
3714: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3715: end if;
3716: -- Raise the Invalid Argument exception.
3717: RAISE FND_API.G_EXC_ERROR;
3718: END IF;
3718: END IF;
3719:
3720: --reset the error stack;
3721: if l_debug_mode = 'Y' then
3722: pa_debug.reset_curr_function;
3723: end if;
3724: -- If any exception then catch it.
3725: EXCEPTION
3726: WHEN FND_API.G_EXC_ERROR THEN
3745: END IF;
3746:
3747: --reset the error stack;
3748: if l_debug_mode = 'Y' then
3749: pa_debug.reset_curr_function;
3750: end if;
3751:
3752: -- Raise the Exception.
3753: RAISE;
3769: );
3770:
3771: --reset the error stack;
3772: if l_debug_mode = 'Y' then
3773: pa_debug.reset_curr_function;
3774: end if;
3775:
3776: -- Raise the Exception.
3777: RAISE;