DECLARE

  P_IDREDSOCIAL        NUMBER;
  P_IDTERCERO          NUMBER;
  P_IDREDESSOCIALES    NUMBER;
  P_CUENTA             VARCHAR2(32767);
  P_ACTIVO             VARCHAR2(32767); -- 1=ACTIVO, 0=INACTIVO
  P_EQUIPOMODIFICA     VARCHAR2(32767);
  P_USUARIOMODIFICA    VARCHAR2(32767);
  P_IDOPERACION        VARCHAR2(32767);
  V_RESPUESTA   NUMBER ;


BEGIN

P_IDREDSOCIAL :=1;
P_IDTERCERO :=1;
P_IDREDESSOCIALES :=1;
P_CUENTA := NULL;
P_ACTIVO := 1;
P_EQUIPOMODIFICA :=NULL;
P_USUARIOMODIFICA:= NULL;
P_IDOPERACION :=NULL;
V_RESPUESTA :=NULL;


PERSONAL.SP_HDV_IUD_REDSOCIAL(P_IDREDSOCIAL,P_IDTERCERO,P_IDREDESSOCIALES,P_CUENTA,P_ACTIVO,P_EQUIPOMODIFICA,P_USUARIOMODIFICA,P_IDOPERACION,V_RESPUESTA);


END;