164: p_special_instr);
165: END IF;
166:
167: ELSE
168: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_INVAL_FIND_APPROVER_METHOD');
169: p_error_message := FND_MESSAGE.Get;
170: return;
171:
172: /* p_error_message := 'Invalid Find Approver Method';
165: END IF;
166:
167: ELSE
168: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_INVAL_FIND_APPROVER_METHOD');
169: p_error_message := FND_MESSAGE.Get;
170: return;
171:
172: /* p_error_message := 'Invalid Find Approver Method';
173: return; */
176: IF (p_next_approver_id IS NULL AND p_error_message IS NULL) THEN
177: ------------------------------------
178: l_debug_info := 'No approver found';
179: ------------------------------------
180: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_NO_APPROVER_FOUND');
181: p_error_message := FND_MESSAGE.Get;
182: END IF;
183:
184: IF (p_next_approver_id = p_employee_id) THEN
177: ------------------------------------
178: l_debug_info := 'No approver found';
179: ------------------------------------
180: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_NO_APPROVER_FOUND');
181: p_error_message := FND_MESSAGE.Get;
182: END IF;
183:
184: IF (p_next_approver_id = p_employee_id) THEN
185: ---------------------------------------------
184: IF (p_next_approver_id = p_employee_id) THEN
185: ---------------------------------------------
186: l_debug_info := 'Loop in Approval Hierarchy';
187: ---------------------------------------------
188: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_APRVL_HIERARCHY_LOOP');
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
185: ---------------------------------------------
186: l_debug_info := 'Loop in Approval Hierarchy';
187: ---------------------------------------------
188: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_APRVL_HIERARCHY_LOOP');
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
193: p_special_instr := FND_MESSAGE.Get;
186: l_debug_info := 'Loop in Approval Hierarchy';
187: ---------------------------------------------
188: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_APRVL_HIERARCHY_LOOP');
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
193: p_special_instr := FND_MESSAGE.Get;
194: END IF;
187: ---------------------------------------------
188: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_APRVL_HIERARCHY_LOOP');
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
193: p_special_instr := FND_MESSAGE.Get;
194: END IF;
195:
188: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_APRVL_HIERARCHY_LOOP');
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
193: p_special_instr := FND_MESSAGE.Get;
194: END IF;
195:
196: EXCEPTION
189: p_error_message := FND_MESSAGE.Get;
190: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR6');
191: p_instructions := FND_MESSAGE.Get;
192: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_SPL_INSTR');
193: p_special_instr := FND_MESSAGE.Get;
194: END IF;
195:
196: EXCEPTION
197: WHEN OTHERS THEN
391: IF ((l_emp_cost_center <> l_doc_cost_center) AND
392: (l_curr_approver_id IS NULL) AND
393: (nvl(l_ApprReqCC,'N') = 'Y')) THEN
394:
395: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_COST_CTR_DIFF');
396: l_error_message := FND_MESSAGE.Get;
397: raise fixable_exception ;
398:
399:
392: (l_curr_approver_id IS NULL) AND
393: (nvl(l_ApprReqCC,'N') = 'Y')) THEN
394:
395: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_COST_CTR_DIFF');
396: l_error_message := FND_MESSAGE.Get;
397: raise fixable_exception ;
398:
399:
400: /* l_error_message := 'The Expense Report Cost Center is different
417: IF (l_curr_approver_id IS NULL) AND
418: (l_emp_cost_center <> l_doc_cost_center) AND
419: (nvl(l_ApprReqCC,'N') = 'Y') THEN
420:
421: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_COST_CTR_DIFF');
422: l_error_message := FND_MESSAGE.Get;
423: raise fixable_exception ;
424: END IF; --IF (l_emp_cost_center <> l_doc_cost_center)
425:
418: (l_emp_cost_center <> l_doc_cost_center) AND
419: (nvl(l_ApprReqCC,'N') = 'Y') THEN
420:
421: FND_MESSAGE.Set_Name('SQLAP', 'AP_WEB_EXP_COST_CTR_DIFF');
422: l_error_message := FND_MESSAGE.Get;
423: raise fixable_exception ;
424: END IF; --IF (l_emp_cost_center <> l_doc_cost_center)
425:
426: -------------------------------------------
461: transactionTypeIn => p_item_type,
462: nextApproverOut => l_recNextApprover);
463: EXCEPTION
464: when others then
465: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
466: l_error_message := FND_MESSAGE.Get;
467: -- bug 3257576
468: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
469: l_instructions := FND_MESSAGE.Get;
462: nextApproverOut => l_recNextApprover);
463: EXCEPTION
464: when others then
465: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
466: l_error_message := FND_MESSAGE.Get;
467: -- bug 3257576
468: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
469: l_instructions := FND_MESSAGE.Get;
470: raise fixable_exception ;
464: when others then
465: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
466: l_error_message := FND_MESSAGE.Get;
467: -- bug 3257576
468: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
469: l_instructions := FND_MESSAGE.Get;
470: raise fixable_exception ;
471: END;
472:
465: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
466: l_error_message := FND_MESSAGE.Get;
467: -- bug 3257576
468: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
469: l_instructions := FND_MESSAGE.Get;
470: raise fixable_exception ;
471: END;
472:
473: /*
484: transactionTypeIn => p_item_type,
485: adminApproverOut => l_adminApprover);
486: EXCEPTION
487: when others then
488: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
489: l_error_message := FND_MESSAGE.Get;
490: -- bug 3257576
491: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
492: l_instructions := FND_MESSAGE.Get;
485: adminApproverOut => l_adminApprover);
486: EXCEPTION
487: when others then
488: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
489: l_error_message := FND_MESSAGE.Get;
490: -- bug 3257576
491: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
492: l_instructions := FND_MESSAGE.Get;
493: raise fixable_exception ;
487: when others then
488: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
489: l_error_message := FND_MESSAGE.Get;
490: -- bug 3257576
491: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
492: l_instructions := FND_MESSAGE.Get;
493: raise fixable_exception ;
494: END;
495:
488: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
489: l_error_message := FND_MESSAGE.Get;
490: -- bug 3257576
491: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
492: l_instructions := FND_MESSAGE.Get;
493: raise fixable_exception ;
494: END;
495:
496: if l_recNextApprover.person_id = l_adminApprover.person_id then
494: END;
495:
496: if l_recNextApprover.person_id = l_adminApprover.person_id then
497: if l_adminApprover.person_id <> l_dir_manager_id then
498: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
499: l_error_message := FND_MESSAGE.Get;
500: -- bug 3257576
501: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
502: l_instructions := FND_MESSAGE.Get;
495:
496: if l_recNextApprover.person_id = l_adminApprover.person_id then
497: if l_adminApprover.person_id <> l_dir_manager_id then
498: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
499: l_error_message := FND_MESSAGE.Get;
500: -- bug 3257576
501: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
502: l_instructions := FND_MESSAGE.Get;
503: raise fixable_exception ;
497: if l_adminApprover.person_id <> l_dir_manager_id then
498: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
499: l_error_message := FND_MESSAGE.Get;
500: -- bug 3257576
501: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
502: l_instructions := FND_MESSAGE.Get;
503: raise fixable_exception ;
504: else
505: l_next_approver_id := l_recNextApprover.person_id;
498: FND_MESSAGE.Set_Name('SQLAP', 'OIE_GETNEXTAPPROVER_ERROR');
499: l_error_message := FND_MESSAGE.Get;
500: -- bug 3257576
501: FND_MESSAGE.Set_Name('SQLAP', 'OIE_NO_APPROVER_INSTR4');
502: l_instructions := FND_MESSAGE.Get;
503: raise fixable_exception ;
504: else
505: l_next_approver_id := l_recNextApprover.person_id;
506: end if;