Procedure calling by function
------------------------------------
Internet Example,,
------------------------------------
DECLARE
P_ASSIGNMENT_ID NUMBER := 1;
P_PLAN_ID NUMBER := 1;
P_BG_ID NUMBER := 80;
P_PAYROLL_ID NUMBER := 000;
ret NUMBER;
l_Start_Date DATE;
l_End_Date DATE;
l_Accrual_End_Date DATE;
l_effective_date DATE;
l_Accrual NUMBER;
BEGIN
PER_ACCRUAL_CALC_FUNCTIONS.Get_Accrual
(
P_ASSIGNMENT_ID
,trunc(sysdate) --Effective Date
,P_PLAN_ID
,P_BG_ID
,P_PAYROLL_ID
,null --P_Assignment_Action_ID
,null --P_Accrual_Start_Date
,null --P_Accrual_Latest_Balance
,l_Start_Date
,l_End_Date
,l_Accrual_End_Date
,l_Accrual
);
DBMS_OUTPUT.put_line('l_Accrual = ' ||l_Accrual );
END;
------ This Function need modifcation------
function Get_Accrual
return number
is
Accrual number;
begin
PER_ACCRUAL_CALC_FUNCTIONS.Get_Accrual(P_ASSIGNMENT_ID,trunc(sysdate),P_PLAN_ID,P_BG_ID,P_PAYROLL_ID,null ,null ,null,l_Start_Date,,l_End_Date,l_Accrual_End_Date,l_Accrual );
return Accrual ;
end Get_Accrual;
/