广东省移动审批回退

--所处存储过程  WFR_RULESENGINE_NEW_PKG

/*
 *单据审批
 */
PROCEDURE approve(
      P_boe_header_id   IN NUMBER,--单据头ID
      approver    IN VARCHAR2, --审批人工号
      approve_command   IN VARCHAR2, --审批动作
      approve_comment   IN VARCHAR2, --备注
      result    OUT VARCHAR2 --处理结果
) IS
employeeId NUMBER := 0;
BEGIN

     IF approve_command = 'APPROVE' THEN
        approve_approve(P_boe_header_id,approver,approve_comment,result);
     ELSIF approve_command = 'REJECT' THEN
       --判断单据是否已被审批(审批人是否存在于单据当前处理人视图(单据-当前处理人(WFR_BOE_OPERATOR_V))中).
       BEGIN
            SELECT bov.employee_id INTO employeeId FROM WFR_BOE_OPERATOR_V bov WHERE bov.authorized_employee_number=approver AND bov.boe_header_id=P_boe_header_id;
            EXCEPTION WHEN NO_DATA_FOUND THEN
               result := 'HAS_APPROVED';
               RETURN;
       END;

        approve_reject(P_boe_header_id,approver,approve_comment,result);
     END IF;

     EXCEPTION WHEN OTHERS THEN
        ROLLBACK;
        result := 'EXCEPTION';
        RETURN;
END;

/*
 *审批拒绝
 */
PROCEDURE approve_reject()

/*
 *审批同意
 */

approve_approve