Experts, I am running two api's 1.pa_event_pub.create_event for crating event and 2.pa_event_pub.up

MY CODE IS AS SHOWN BELOW:

CREATE or replace PROCEDURE Pa_create_project_event (errbuf    IN VARCHAR2,

                                                       retcode   IN NUMBER)

AS

   l_msg_count       NUMBER;

   l_msg_data        VARCHAR2 (2000);

   l_return_status   VARCHAR2 (10);

   l_event_in_tbl    PA_EVENT_PUB.Event_In_Tbl_Type;

   l_event_out_tbl   PA_EVENT_PUB.Event_out_Tbl_Type;

   ln_line_no        NUMBER;

BEGIN

FND_GLOBAL.APPS_INITIALIZE(1116,20432,275); --(33806,61702,275);--(APPS_INITIALIZE(user_id in number,

       -- resp_id in number,

        --resp_appl_id in number);

DBMS_OUTPUT.put_line ('before initialisation of data');

     l_event_in_tbl (ln_line_no).p_pm_event_reference := 'SRB 5' ; < == THIS LINE GIVES ERROR SAYS EVENT_REFERNCE IS MISSING OR NOT UNIQUE.