EBS in-background AP invoice Approval script

Declare
L_hold_count number;
L_funds_code Varchar2 (30);

L_approve_status Varchar2 (120);

Begin
Ap_approval_pkg.approve (p_run_option = Null,
p_invoice_batch_id = Null,
P_begin_invoice_date = Null,
P_end_invoice_date = Null,
p_vendor_id = Null,
P_pay_group = Null,
p_invoice_id = 99014,
p_entered_by = Null,
p_set_of_books_id = Null,
P_trace_option = Null,
P_conc_flag = ' N ',
P_holds_count = L_hold_count,
P_approval_status = L_approve_status,
P_calling_mode = Null,
p_calling_sequence = ' cux_3_ar_inter_pkg ',
P_funds_return_code = L_funds_code,
P_debug_switch = Null,
P_budget_control = Null,
P_commit = ' N ');

If l_hold_count > 0 Then
--x_success_flag: = Fnd_api.g_ret_sts_error;
X_msg_message: = ' ap invoice: ' Approval not passed, presence pending: ' | |
X_msg_message;
--Raise Fnd_api.g_exc_error;
X_return_status: = Fnd_api.g_ret_sts_error;
Goto Continue;
End If;
End;

EBS in-background AP invoice Approval script