Code to Delete Element Entry in Oracle HRMS

DECLARE
p_element_name VARCHAR2(80) :='Ticket Reimbursement';
p_bg_id number :=103;
p_object_version_number NUMBER;
P_EFFECTIVE_START_DATE DATE ;
P_EFFECTIVE_END_DATE DATE;
P_DELETE_WARNING BOOLEAN;
ln_num number :=0;
CURSOR c1 IS
SELECT ent.element_entry_id,ent.object_version_number,ent.effective_start_date
FROM pay_element_entries_f ENT, pay_element_types_f ELE
WhERE ELE.business_group_id=p_bg_id
AND ELE.element_type_id=ENT.element_type_id
AND ELE.element_name=p_element_name
AND trunc(sysdate) between ele.effective_start_date AND ele.effective_end_date
;

BEGIN

FOR cur IN c1 LOOP
ln_num:=ln_num+1;
p_object_version_number:=cur.object_version_number;

pay_element_entry_api.DELETE_ELEMENT_ENTRY (
P_DATETRACK_DELETE_MODE => 'ZAP'
,P_EFFECTIVE_DATE => cur.effective_start_date
,P_ELEMENT_ENTRY_ID => cur.ELEMENT_ENTRY_ID
,P_OBJECT_VERSION_NUMBER => p_object_version_number
,P_EFFECTIVE_START_DATE => P_EFFECTIVE_START_DATE
,P_EFFECTIVE_END_DATE => P_EFFECTIVE_END_DATE
,P_DELETE_WARNING => P_DELETE_WARNING
);

END LOOP;
dbms_output.put_line('Deleted '||ln_num||' number of element entries.');
END;