{
================================================================
 FUNCION          : ENVIACORREO
 OBJETIVO         : Reutilizacion de codigos para ejecuar Store
                    Procedures relacionado al envio de correo
 PROGRAMADOR      : ING. JUAN SOTO
 FECHA            : 28 DE ABRIL 2011
================================================================
}

FUNCTION envia_correo(emailTO,emailCC,emailBody,emailSubject,Procedimiento)
  DEFINE emailTO,emailCC,emailSubject,Procedimiento CHAR(150),
  emailBody VARCHAR(1000)
   
   PREPARE smt FROM procedimiento #"{ call cc_avisadespacho(?,?,?) }"
   EXECUTE smt USING emailTo IN,emailCC IN,emailSubject IN,emailBody IN
END FUNCTION