Work incident API problem

Question

Hello All,
I have a procedure to load work incident data through the work incident api. I get error regarding the p_incident_reference which I don't know what should be the value of it. Please help me on that.
Here is my procedure:
create or replace
PROCEDURE RTA_OLM_WORK_INCIDENT
AUTHID CURRENT_USER AS
l_incident_id Number;
l_object_version_number Number;
l_PERSON_ID Number;
l_EFFECTIVE_DATE Date;
l_INCIDENT_TYPE Varchar2(100);
l_INCIDENT_DATE Date;
l_INCIDENT_TIME Varchar2(100);
l_HAZARD_TYPE Varchar2(100);
l_ACTIVITY_WORK Varchar2(100);
l_incident_reference Varchar2(100);
CURSOR C1 IS
SELECT OLM_W_EFFECTIVE_DATE,
OLM_W_PERSON_ID,
OLM_W_INCIDENT_TYPE,
OLM_W_INCIDENT_DATE,
OLM_W_INCIDENT_TIME,
OLM_W_HAZARD_TYPE,
OLM_W_ACTIVITY_WORK
FROM OLM_WORK_INCIDENT;
Begin
FOR C1_REC IN C1
LOOP
select PAF.PERSON_ID INTO l_PERSON_ID
from PER.PER_ALL_PEOPLE_F PAF
where PAF.EMPLOYEE_NUMBER= C1_REC.OLM_W_PERSON_ID
and to_date (C1_REC.OLM_W_INCIDENT_DATE, 'DD-Mon-YY HH24:MI:SS ')
between to_date(paf.effective_start_date, 'DD-Mon-YY HH24:MI:SS')
and to_date (paf.effective_end_date, 'DD-Mon-YY HH24:MI:SS');
l_EFFECTIVE_DATE:= C1_REC.OLM_W_EFFECTIVE_DATE;
l_INCIDENT_TYPE:= C1_REC.OLM_W_INCIDENT_TYPE;
l_INCIDENT_DATE:= C1_REC.OLM_W_INCIDENT_DATE;
l_INCIDENT_TIME:= '08:00';
l_HAZARD_TYPE:= C1_REC.OLM_W_HAZARD_TYPE;
l_ACTIVITY_WORK:= C1_REC.OLM_W_ACTIVITY_WORK;
dbms_output.put_line('Person id:'||l_person_id);
dbms_output.put_line('Effective date:'||l_effective_date);
dbms_output.put_line('Incident type:'||l_incident_type);
dbms_output.put_line('Incident date:'||l_incident_date);
dbms_output.put_line('Incident time:'||l_incident_time);
dbms_output.put_line('Hazard type'||l_hazard_type);
dbms_output.put_line('Activity work:'||l_activity_work);
dbms_output.put_line('incident id:'||l_incident_id);
dbms_output.put_line('Object version number:'||l_object_version_number);
Begin
APPS_APPLMGR.PER_WORK_INCIDENT_API.CREATE_WORK_INCIDENT ( p_validate => False,
p_effective_date => l_EFFECTIVE_DATE,
p_person_id => l_PERSON_ID ,
p_incident_reference => l_incident_reference,
p_incident_type => l_INCIDENT_TYPE ,
p_at_work_flag => NULL,
p_incident_date => l_INCIDENT_DATE ,
p_incident_time => l_INCIDENT_TIME ,
p_description => NULL,
p_hazard_type => l_HAZARD_TYPE ,
p_activity_at_time_of_work => l_ACTIVITY_WORK,
p_incident_id => l_incident_id,
p_object_version_number => l_object_version_number
END;
END LOOP;
--COMMIT;
--rollback;
END;

Answer 1

Ok I am getting this error, after trying your code:
Person id:15170
Effective date:18-JUL-11 00:00:00
Incident type:Other
Incident date:18-JUL-11 00:00:00
Incident time:08:00
Hazard type:Other
Activity work:Operator Refresher RTW
incident id:
Object version number:
Entering:per_work_incident_apicreate_work_incident 10
Entering: PER_WORK_INCIDENT_BK1.CREATE_WORK_INCIDENT_B 10
Entering: per_per_bus.return_legislation_code 10
Leaving:per_work_incident_apicreate_work_incident 90
Process exited.
Disconnecting from the database or01.
Which I believe is about incident_reference. But I have no value for it. Where should I look for the value for this field?