Passing function value into another procedure

Question

Hi
From this package the value returned by the function " FIRST " needs to pass into another procedure as parameter in the same package, how could i do that in a better way.Oracle Version 8.1.7.4.0.
CREATE OR REPLACE package body PKG_CUST_CHECK is
FUNCTION FIRST(P_PARMS in varchar2) return varchar2 is
l_parms varchar2(62) := P_PARMS;
BEGIN
SECOND(l_parms);     
     return(l_parms);     
END;
PROCEDURE SECOND(P_PARMS in out varchar2) is
L_CUST Varchar2(30);
BEGIN
SELECT P_CUST INTO L_CUST FROM TABLE_A WHERE ROWNUM=1 ;
THIRD(P_CUST in VARCHAR2,
P_PARMS_VALID out VARCHAR2,
P_OK_FOR_CUST out VARCHAR2,
--Here the output of the above procedure will be concatinate and Return ;     
END CUST_CHECK;
end PKG_CUST_CHECK ;
Thanks

Answer 1

sorry for the confusion, not sure whether it will be clear enough.
the requirement is function "FOURTH" should get the value returned
by the function "FIRST" as in parameter value.
[ code ] CREATE OR REPLACE package body PKG_CUST_CHECK is
FUNCTION FIRST(P_PARMS in varchar2) return varchar2 is
l_parms varchar2(62) := P_PARMS;
BEGIN
SECOND(l_parms);     
return(l_parms); --here the value which is returning is updated one by the THIRD procedure       
END;
PROCEDURE SECOND(P_PARMS in out varchar2) is
l_parms varchar2(62) := P_PARMS;
BEGIN
--the procedure THIRD will get the parameter values after
--extracting the values from l_PARMS by another function EXTRACT
THIRD(P_CUST in VARCHAR2,
P_PARMS_VALID out VARCHAR2,
P_OK_FOR_CUST out VARCHAR2,
return;                    
--Here the output of the above procedure will be concatinate and Return ;     
END CUST_CHECK;
FUNCTION FOURTH(P_PARMS in varchar2) return varchar2 is
l_parms varchar2(62) := P_PARMS;
BEGIN
--the procedure FIFTH will get the parameter values after
--extracting the values from l_PARMS by another function EXTRACT
FIFTH(P_CUST in VARCHAR2,
P_PARMS_VALID out VARCHAR2,
P_OK_FOR_CUST out VARCHAR2,
return;                    
--Here the output of the above procedure will be concatinate and Return ;     
END CUST_CHECK;
end PKG_CUST_CHECK; [ /code ]