PO Order approval Rejection API

DECLARE l_return_status VARCHAR2 (1);  L_return_code VARCHAR2 (1000);  L_EXCEPTION_MSG VARCHAR2 (4000); L_ONLINE_REPORT_ID number; BEGIN--init mo_global.set_policy_context (p_access_mode = ' S ', p_org_id = 81)  ;                             Fnd_global.apps_initialize (user_id = 1150, resp_id = 50717,  resp_appl_id = 20005);                                   --Call the procedure po_document_action_pvt.do_reject (p_document_id = 126003,                                   P_document_type = ' PO ', P_document_subtype = ' standard ',                                   P_note = ' Lalala ', p_approval_path_id = 2, X_return_status = L_return_status, X_return_code =&G T L_return_code, x_exception_msg = l_exception_msg, x_online_report_id = l_online_report_id);    IF l_return_status = ' S ' then Dbms_output.put_line (' successful! ');    Dbms_output.put_line (' L_return_code = ' | | l_return_code);    Dbms_output.put_line (' l_online_report_id = ' | | l_online_report_id);    --dbms_output.put_line (' l_exception_msg = ' | | l_exception_msg);    ELSE dbms_output.put_line (' Error Status = ' | | l_return_status);    Dbms_output.put_line (' L_return_code = ' | | l_return_code);    Dbms_output.put_line (' l_online_report_id = ' | | l_online_report_id);  Dbms_output.put_line (' l_exception_msg: ' | | l_exception_msg); END IF; END;

PO Order approval Rejection API