Costing Creation/Allocation API in HRMS

DECLARE
l_combination_name VARCHAR2(100);

l_cost_allocation_id
NUMBER; l_effective_start_date
DATE; l_effective_end_date
DATE; l_cost_allocation_keyflex_id
NUMBER;l_cc_object_version_number NUMBER; BEGIN
pay_cost_allocation_api.create_cost_allocation
(p_validate => FALSE,
 p_effective_date => SYSDATE,
 p_assignment_id => 11972,
 p_proportion => 1,
 p_business_group_id => 81,
 p_segment1 => '600',
 p_segment2 => '310000',
 p_segment3 => 'AFA',
 p_combination_name => l_combination_name
 p_cost_allocation_id => l_cost_allocation_id
 p_effective_start_date => l_effective_start_date
 p_effective_end_date => l_effective_end_date
 p_cost_allocation_keyflex_id => l_cost_allocation_keyflex_id
 p_object_version_number => l_object_version_number
);
EXCEPTIONWHEN OTHERSTHENapi_msg := SUBSTR(SQLERRM,1,2400);
Fnd_File.put_line(Fnd_File.log,'Error - '||api_msg);
END;