Workflow 中做拒绝操作时强制输入拒绝信息

在做AP发票审批驳回时，客户要求必须强制输入拒绝原因，代码如下：

PROCEDURE Validate_Response
(
  Itemtype  IN VARCHAR2,
  Itemkey   IN VARCHAR2,
  Actid     IN NUMBER,
  Funcmode  IN VARCHAR2,
  Resultout IN OUT VARCHAR2
) IS

  l_Nid                  NUMBER;
  l_Approval_Comments    VARCHAR2(2000);
  l_Next_Appr_Level      NUMBER;
  l_Activity_Result_Code VARCHAR2(200);
  l_Activity_Result      VARCHAR2(200);
  l_Activity             VARCHAR2(100);
  v_Response_Reason      VARCHAR2(50);
  l_Display_Name         VARCHAR2(100);
  l_Role                 VARCHAR2(100);

BEGIN

  l_Activity := Wf_Engine.Getactivitylabel(Actid => Actid);

  IF (Funcmode IN ('RESPOND')) THEN
 
    l_Nid                  := Wf_Engine.Context_Nid;
    l_Activity_Result_Code := Wf_Notification.Getattrtext(l_Nid, 'RESULT');
    v_Response_Reason      := Wf_Notification.Getattrtext(l_Nid, 'WF_NOTE');
 
    IF l_Activity_Result_Code = 'REJECTED' AND v_Response_Reason IS NULL THEN
      Resultout := 'ERROR: You must enter a rejection note.';
      Raise_Application_Error(-20000, 'ERROR: You must enter a rejection note.');
      --RETURN;
    ELSIF l_Activity_Result_Code = 'REJECTED' AND v_Response_Reason IS NOT NULL THEN
      --Do something if the notification is rejected and the rejection reason is entered by the approver
      NULL;
    END IF;
 
    Wf_Engine.Setitemattrtext(Itemtype => Itemtype,
                              Itemkey  => Itemkey,
                              Aname    => 'APPROVAL_RESULT',
                              Avalue   => l_Activity_Result_Code);
    Wf_Engine.Setitemattrtext(Itemtype => Itemtype,
                              Itemkey  => Itemkey,
                              Aname    => 'APPROVAL_COMMENTS',
                              Avalue   => v_Response_Reason);
    Resultout := 'COMPLETE:Reject';
  ELSE
    NULL;
  END IF;

EXCEPTION
  WHEN OTHERS THEN
    Resultout := SQLERRM;
 
END Validate_Response;