#!/usr/bin/perl
use Mail::Sendmail;
require "cgi-lib.pl";
#variables que recibira de su forma
#los nombres dentro de $in (results, subject, etc) deben coincidir
&ReadParse;
$results = $in{'results'}; delete $in{'results'};
$subject = $in{'subject'}; delete $in{'subject'};
$sendto = $in{'sendto'}; delete $in{'sendto'};
$form = $in{'form'}; delete $in{'form'};
$website = $in{'website'}; delete $in{'website'};
delete $in{'submit'};
delete $in{'Submit'};
delete $in{'Reset'};
$url = $ENV{'HTTP_REFERER'};
$fecha = time();
&PrintError("No se especifico un email.") if ($sendto eq '');
&PrintError("No se especifico un subject.") if ($subject eq '');
&PrintError("No se especifico pagina de resultados.") if ($results eq '');
&send_an_email;
&send_a_redirect;
sub send_an_email
{
$date = &getDate;
$info = "Alguien ha llenado información en el formulario de $form:\n $url\ncon la siguiente información:\n";
$info .= "Date: $date\n";
$info .= "\n";
$info .= "\n";
foreach $key (keys(%in)) {
$info .= " $in{$key}\n";
}
$info .= "\n---Fin del mensaje---";
%mail = ( To => $sendto,
From => 'Foro La Prensa ',
Subject => $subject,
Message => $info
);
&sendmail(%mail) or die $Mail::Sendmail::error;
}
sub send_a_redirect
{
print "Location: http://$website/$results\n\n";
}
sub getDate{
@RealDay = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@RealMonth = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime (time);
$year += ($year < 90) ? 2000 : 1900;
$mins = (sprintf ("%02d",$min));
$daweek = $RealDay[$wday];
$month = $RealMonth[$mon];
#if ($TZ eq "") {
# offset in hours
#my $offset = sprintf "%.1f", (timegm(localtime) - time) / 3600;
#my $minutes = sprintf "%02d", ( $offset - int($offset) ) * 60;
#$TZ = sprintf("%+03d", int($offset)) . $minutes;
#}
$am = "AM";
$am = "PM" if($hour>12);
$hour -= 12 if($hour>12);
return "$daweek, $mday $month $year $hour:$mins $am -0600";
}
|
|
|
Vocación y sacrificio en el Día de la Enfermera
 |
|
 | Las enfermeras atienden de 20
a 30 pacientes diario en los hospitales |
|
En el Día Internacional de la Enfermera, Marcia de Jesús Úbeda aseguró que ellas realizan una labor de “apostolado”, al dar lo mejor. LA PRENSA/LARIOS. |
| |
Valeria González
valeria.gonzalez@laprensa.com.ni
Ejercer la enfermería es una profesión de “apostolado” porque actualmente la remuneración económica es poca, en relación a la labor que se realiza, comentó en la celebración del Día Internacional de la Enfermera, Marcia de Jesús Úbeda, jefa de la Unidad de Cuidados Intensivos del Hospital Lenín Fonseca.
Dijo que actualmente el salario de una enfermera, que oscila entre los 1,300 a 2,000 córdobas, no compensa las necesidades básicas de sus familias, la enfermería es una profesión de “sacrificio” porque se deja todo a cambio de poco.
Aunque la remuneración económica “no es buena” su mayor satisfacción es servirle a los más necesitados, al igual que Jesús, procurando ser una mano amiga para atender el dolor humano de otras personas.
Úbeda, con 19 años de experiencia, comentó que las enfermeras se ven obligadas a abandonar a sus familias. El apoyo de sus seres queridos representa un pilar fundamental para ellas. En su caso, su mamá le ayudó a educar a sus dos hijas para sobresalir en su profesión.
Muchas veces, las enfermeras se ven “frustradas” porque en las unidades de salud laboran con equipos obsoletos, que les impide dar una buena atención al paciente, aseguró Nidia Orozco, jefa de Enfermería del Hospital Alemán-Nicaragüense.
MENOS ENFERMERAS
En los hospitales una enfermera atiende de 20 a 30 pacientes, ese indicador está malo, ya que se han preparado más médicos que enfermeras, comentó Ernestina Figueroa, jefa de Enfermería del Minsa.
“La cantidad de enfermeras nunca puede estar acorde con las necesidades reales de la población, porque ésta crece día a día. En esta profesión la vocación es lo más importante, no cualquier calzonudo hace esta carrera”, dijo Stanley Atha, Viceministro de Salud. 
|
|
|
|
|
