Oracle R12 - API to update PO Requisition: Requestor / Preparer / Approver

Following PL/SQL Block can be used to Update Purchase Requisition

DECLARE

     l_progress          VARCHAR2(4);
     l_msg_data          VARCHAR2(2000);
     l_msg_count         NUMBER;
     l_return_status     VARCHAR2(1);
     l_update_person     VARCHAR2(200);
     l_old_personid      NUMBER;
     l_new_personid      NUMBER;
     l_document_type     VARCHAR2(200);
     l_document_no_from  VARCHAR2(200);
     l_document_no_to    VARCHAR2(200);
     l_date_from         VARCHAR2(200);
     l_date_to           VARCHAR2(200);
     l_commit_interval   NUMBER;
     x_date_from         DATE;
     x_date_to           DATE;

BEGIN
        --Set your OU of Respective Requisition
        mo_global.set_policy_context('S', 204);

        l_update_person      :='REQUESTOR'; -- You can also Pass 'PREPARER' or 'APPROVER' or 'ALL'
        l_old_personid       :=1234; -- Pass Old Person Id
        l_new_personid       := 4576; -- Pass New Person Id
        l_document_type      := 'ALL'; -- You can Document Type of Requisition
        l_document_no_from   := '12345'; -- You can pass Requisition Number
        l_document_no_to     := '12345'; --If you want to update Range, you can Requistion Number To as Different
        l_commit_interval    := 100;
        x_date_from := to_date(NULL);
        x_date_to   := to_date(NULL);


        PO_Mass_Update_Req_GRP.Update_Persons
                                             (p_update_person    => l_update_person,
                                              p_old_personid     => l_old_personid,
                                              p_new_personid     => l_new_personid,
                                              p_document_type    => l_document_type,
                                              p_document_no_from => l_document_no_from,
                                              p_document_no_to   => l_document_no_to,
                                              p_date_from        => x_date_from,
                                              p_date_to          => x_date_to,
                                              p_commit_interval  => l_commit_interval,
                                              p_msg_data         => l_msg_data,
                                              p_msg_count        => l_msg_count,
                                              p_return_status    => l_return_status);

                dbms_output.put_line('l_msg_count '||l_msg_count);
                dbms_output.put_line('l_return_status '||l_return_status);
                IF nvl(l_msg_count,0) > 0 THEN
                   FOR i IN 1..l_msg_count LOOP

                       l_msg_data := FND_MSG_PUB.get
                                                      ( p_msg_index => i,
                                                                p_encoded => 'F');
                                dbms_output.put_line('l_msg_data '||l_msg_data);
                   END LOOP;
                END IF;

COMMIT;
END;