Delete Otl Timecard Api

How to delete timecard using API? 

I tried hxc_timestore_deposit.DELETE_TIMECARD(p_building_block_id => l_timecard_to_delete); 
as below but after deleting the application user still see deleted data. 



PROCEDURE XX_MOI_DELETE_TIMECARD( P_PERSON_ID VARCHAR2,P_DATE_FROM VARCHAR2, P_DATE_TO VARCHAR2) AS 
l_timecard_to_delete HXC_TIME_BUILDING_BLOCKS.TIME_BUILDING_BLOCK_ID%TYPE; 
l_to_clear HXC_BLOCK_TABLE_TYPE; 
BEGIN 
FOR R1 IN ( 

SELECT A.TIMECARD_ID 
FROM HXC_TIMECARD_SUMMARY A, PER_ALL_PEOPLE_F B 
WHERE 
A.START_TIME BETWEEN TO_DATE(P_DATE_FROM,'DD-MM-YYYY') AND TO_DATE(P_DATE_TO,'DD-MM-YYYY') +1 
AND A.RESOURCE_ID = B.PERSON_ID 
AND A.RESOURCE_ID = P_PERSON_ID 
AND B.EFFECTIVE_END_DATE = '31-DEC-4712' 

) LOOP 
l_timecard_to_delete := R1.TIMECARD_ID; 
hxc_timestore_deposit.DELETE_TIMECARD(p_building_block_id => l_timecard_to_delete); 

commit; 
END LOOP; 
END XX_MOI_DELETE_TIMECARD;