FUNCTION test(
User_Id 	IN NUMBER  DEFAULT NULL,
name 	IN VARCHAR2  DEFAULT NULL,
RC1 	IN OUT Omwb_emulation.globalPkg.RCT1)
RETURN INTEGER
AS
User_Id_ 	NUMBER(10,0) := User_Id;
name_ 	VARCHAR2(64) := name;
StoO_selcnt	INTEGER;
StoO_error 	INTEGER;
StoO_rowcnt	INTEGER;
StoO_crowcnt	INTEGER := 0;
StoO_fetchstatus	INTEGER := 0;
StoO_errmsg	VARCHAR2(255);
StoO_sqlstatus	INTEGER;
CurPrivs 	NUMBER(10,0);
obj_id 	NUMBER(10,0);
tempVar1 	NUMBER :=1;
BEGIN
...
	END test;

Public Function finddocbyname(ByRef rst As ADODB.Recordset, ByVal Name) As Long
    Dim par As ADODB.Parameter
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = db
    cmd.CommandText = "sa.find_package.test "
    cmd.CommandType = adCmdStoredProc
    cmd.Parameters.Append cmd.CreateParameter("User_Id", adInteger, adParamInput, 4, 5)
    'cmd.Parameters.Append par
    cmd.Parameters.Append cmd.CreateParameter("Name", adVarChar, adParamInput, 64, Name)
    'cmd.Parameters.Append par
   'cmd.CommandText = "{call sa.find_package.spcxdb_finddocbyname (?, ?)}"
    Set rst = cmd.Execute
End Function