sub add_login{

Line 202 my ($dbhCurrent, $usrname, $first, $last, $passwd, $fncgrp) = @_;
my $full_last = $last . " SHPS";

my $sql = "sp_addlogin \'$usrname\', \'$passwd\', \'APPMASTER\'";

$$dbhCurrent->do($sql)
    or $app->log($WARN,"Can't do SQL statement [ $sql ] :: $DBI::errstr");

$app->use_database($dbhCurrent, "$DB");

$sql = "exec stored_proc USR_ID";

$$dbhCurrent->do($sql)
        or $app->log($WARN,"Can't do SQL statement [ $sql ] :: $DBI::errstr");

$sql = "declare \@usrid int, \@sysusrid int " .
       "select \@sysusrid = suser_id\(\'$usrname\'\) " .
       "select \@usrid = $IDVALUE from $ID " .
       "where $IDNAME = \'USR_ID\' " .
       "insert into APPUSR (APP_CD, USR_ID, USRNAME, USRFNAME, USRLNAME, FNCGRP_CD, SYSUSR_ID) " .
       "values (\'A\', \@usrid, \'$usrname\', \'$first\', \'$full_last\', $fncgrp, \@sysusrid)";

$$dbhCurrent->do($sql)
        or $app->log($FATAL,"Can't do SQL statement [ $sql ] :: $DBI::errstr");
line 227 }