341: funcmode in varchar2,
342: resultout out NOCOPY varchar2) IS
343: E_FAILURE EXCEPTION;
344: l_transaction_id number;
345: l_next_approver ame_util.approverRecord2;
346: l_next_approvers ame_util.approversTable2;
347: l_next_approvers_count number;
348: l_approver_index number;
349: l_is_approval_complete VARCHAR2(1);
342: resultout out NOCOPY varchar2) IS
343: E_FAILURE EXCEPTION;
344: l_transaction_id number;
345: l_next_approver ame_util.approverRecord2;
346: l_next_approvers ame_util.approversTable2;
347: l_next_approvers_count number;
348: l_approver_index number;
349: l_is_approval_complete VARCHAR2(1);
350: l_transaction_type VARCHAR2(200);
371:
372: ame_api2.getNextApprovers4(applicationIdIn=>426,
373: transactionTypeIn=>l_transaction_type,
374: transactionIdIn=>l_transaction_id,
375: flagApproversAsNotifiedIn => ame_util.booleanTrue,
376: approvalProcessCompleteYNOut => l_is_approval_complete,
377: nextApproversOut=>l_next_approvers);
378:
379: if (l_is_approval_complete = ame_util.booleanTrue) then
375: flagApproversAsNotifiedIn => ame_util.booleanTrue,
376: approvalProcessCompleteYNOut => l_is_approval_complete,
377: nextApproversOut=>l_next_approvers);
378:
379: if (l_is_approval_complete = ame_util.booleanTrue) then
380: resultout:='COMPLETE:'||'APPROVAL_COMPLETE';
381: return;
382:
383: elsif (l_next_approvers.Count = 0) then
479: l_approver_name varchar2(240);
480: l_result varchar2(100);
481: l_ame_status varchar2(20);
482: l_original_approver_name varchar2(240);
483: l_forwardeeIn ame_util.approverRecord2;
484:
485:
486: BEGIN
487: IF (funcmode = 'RUN') THEN
499:
500:
501: if (l_result = 'APPROVED') then -- this may vary based on lookup type used for approval
502:
503: l_ame_status := ame_util.approvedStatus;
504: elsif (l_result = 'REJECTED') then
505: l_ame_status := ame_util.rejectStatus;
506: else -- reject for lack of information, conservative approach
507: l_ame_status := ame_util.rejectStatus;
501: if (l_result = 'APPROVED') then -- this may vary based on lookup type used for approval
502:
503: l_ame_status := ame_util.approvedStatus;
504: elsif (l_result = 'REJECTED') then
505: l_ame_status := ame_util.rejectStatus;
506: else -- reject for lack of information, conservative approach
507: l_ame_status := ame_util.rejectStatus;
508: end if;
509: --Set approver as approved or rejected based on approver response
503: l_ame_status := ame_util.approvedStatus;
504: elsif (l_result = 'REJECTED') then
505: l_ame_status := ame_util.rejectStatus;
506: else -- reject for lack of information, conservative approach
507: l_ame_status := ame_util.rejectStatus;
508: end if;
509: --Set approver as approved or rejected based on approver response
510: ame_api2.updateApprovalStatus2(applicationIdIn=>426,
511: transactionTypeIn=>'oracle.apps.eam.isolation.release.approval',