$sc{1}="bob";
$sc{'eatit200'}="jane";
$sc{'testCINDY'}="cindy";
($SMONTH,$SDAY,$SYEAR,$SHOUR,$SMINUTE,$EDAY,$EYEAR,$EHOUR,$EMINUTE)=(1,2,3,4,5,6,7,8,9);
foreach my $sc_id (keys %sc) {

  # Oracle wil not let me put in that '0' at the start; all call_id's will start with '7' 
  my $call_id = sprintf "7%02d%02d%02d%02d%02d%07d%02d%02d%02d%02d%02d",$SMONTH,$SDAY,$SYEAR,$SHOUR,$SMINUTE,$sc_id,$EDA

  my $status = "scheduling";

  my $temp_record_statement = qq!
  INSERT INTO SC_APPT
  (CONTACT, CALL_ID, SC_ID, CONT_PHN, AP_START, AP_END, STATUS, COMPANY,
  TRANS_ID, APPT_TYPE, REP_EMAIL, ADD_ST, ADD_STATE, ADD_CITY, ADD_ZIP)
  VALUES
  ('system_reserve', $call_id, $sc_id, 8003069329, '$start_time', '$end_time', '$status', 'Quest Software',
  $trans_id, 'Internal', 'Joanna', 'placeholder', 'NJ', 'Montclair', 999999999) !;

print $temp_record_statement, "\n";
print $sc_id, "\n";

  #$dbh->do("$temp_record_statement") || dienice("320 Couldn't execute statement: $temp_record_statement $sc_id" . $sth-
}