function SetNameLocation(Name,Row,Column)
{
   document.LANSA.elements["_NAME"].value=Name;
   document.LANSA.elements["_ROW"].value=Row;
   document.LANSA.elements["_COLUMN"].value=Column;
   document.LANSA.elements["_CALFLD"].value=Name;
}

function Set(FieldName,Value)
{
  FieldName = FieldName.toUpperCase();
  FieldName = FieldName + '          ';
  FieldName = FieldName.substring(0,10);
  for (i=0; i<document.LANSA.elements.length; i++)
  {
    if (document.LANSA.elements[i].name == FieldName)
    {
      document.LANSA.elements[i].value = Value;
      break;
    }
  }
}

function Call(Function,EntryMode)
{
  var Process = new String('CFLEX');
  Function = Function.toUpperCase();
  for (i = 0; i < document.LANSA.elements.length; i++)
  {
    if (document.LANSA.elements[i].name == 'ASTDRENTRY')
    {
      document.LANSA.elements[i].value = "";
      if (EntryMode != undefined)
      {
        document.LANSA.elements[i].value = EntryMode;
      }
      break;
    }
  }
  document.LANSA._PROCESS.value = Process;
  document.LANSA._FUNCTION.value = Function;
  document.LANSA.submit();
}


function Recall(EntryMode,DoSubmit)
{
  for (i = 0; i < document.LANSA.elements.length; i++)
  {
    if (document.LANSA.elements[i].name == 'ASTDRENTRY')
    {
      document.LANSA.elements[i].value = "";
      if (EntryMode != undefined)
      {
        document.LANSA.elements[i].value = EntryMode;
      }
      break;
    }
  }
  document.LANSA._PROCESS.value = document.LANSA._OPROCESS.value;
  document.LANSA._FUNCTION.value = document.LANSA._OFUNCTION.value;
  if(DoSubmit!='N')
  {
    document.LANSA.submit();
  }
}

function split(s)
{
  var i=0;
  var j=0;
  var k=0;
  arrS= new Array();
  if(s.indexOf(" ")!=-1){
    for (i=0; i<s.length;i++){
      if(s.charAt(i)==" "){
        if(k==0){
          arrS[j]=s.substring(k,i);}
        else{
          arrS[j]=s.substring(k+1,i);
        }
        k=i;
        j++;
      }
    }
    arrS[j]=s.substring(k+1,s.length);}
  else{
    arrS[0]=s;
  }
  return arrS;
}

function ProperCase(s)
{
  var i;
  var returnString = "";
  var tmpS=s.toLowerCase();
  var arrS= new Array();
  arrS=split(tmpS);
  for (i = 0; i < arrS.length; i++){ 
    var thisWord=arrS[i];
    returnString = returnString + thisWord.charAt(0).toUpperCase() + thisWord.substring(1,thisWord.length)+" ";
  }
  returnString = returnString.substring(0,returnString.length-1);
  document.write(returnString);
}

function LowerCase(s)
{
  var returnString = "";
  var returnString = s.toLowerCase();
  document.write(returnString);
}

function Greeting()
{
  var TOD = new Date();
  if (TOD.getHours() < 12){
    document.write('Good morning');}
  if (TOD.getHours() > 11 && TOD.getHours() < 18){
    document.write('Good afternoon');}
  if (TOD.getHours() > 17){
    document.write('Good evening');}
}

function SelectAccount(Account)
{
  document.LANSA.elements["ACURCUST  "].value = Account;
  Call('exaccdt');
}

function SelectCard(Card)
{
  Set('acurcard',Card);
  Call('cfcrddt');
}

function SelectTransaction(Number,Sequence)
{
  document.LANSA.elements["ATRNNUM   "].value = Number;
  document.LANSA.elements["ATRNSEQ   "].value = Sequence;
  Call('extewdt');
}

function SelectReport(Account,Report)
{
  document.LANSA.elements["ASELCUST  "].value = Account;		 
  document.LANSA.elements["ASELRPRT  "].value = Report;
  Recall('2');
}

function SelectReportPeriod(Report)
{
  document.LANSA.elements["PPRIFILRRN"].value = Report;
  Recall('S');
}

function SelectSite(Site)
{
  document.LANSA.elements["AAOADCN   "].value = Site;
  Call('exsdsdt');
}

function SelectAll(ItemCount)
{
  var dIndex;
  var cIndex = new String("");
  var CurrentItem;
  for (var i = 1; i <= ItemCount; i ++)
  {
    dIndex = i + 10000; 
    cIndex = dIndex.toString();       
    cIndex = cIndex.substring(1,5);
    CurrentItem = "CHKVAL_" + cIndex;
    document.LANSA.elements[CurrentItem].checked = true;
    CurrentItem = "__CHKVAL  -" + cIndex + " D";
    document.LANSA.elements[CurrentItem].value = "Y";
  }
}

function InvertSelection(ItemCount)
{
  var dIndex;
  var cIndex = new String("");
  var CurrentItem;
  for (var i = 1; i <= ItemCount; i ++)
  {
    dIndex = i + 10000; 
    cIndex = dIndex.toString();       
    cIndex = cIndex.substring(1,5);
    CurrentItem = "CHKVAL_" + cIndex;
    if (document.LANSA.elements[CurrentItem].checked == true)
    {
      document.LANSA.elements[CurrentItem].checked = false;
      CurrentItem = "__CHKVAL  -" + cIndex + " D";
      document.LANSA.elements[CurrentItem].value = "";
    }
    else
    {
      document.LANSA.elements[CurrentItem].checked = true;
      CurrentItem = "__CHKVAL  -" + cIndex + " D";
      document.LANSA.elements[CurrentItem].value = "Y";
    }
  }
}

function RemoveFromDirectory(Type, SiteNumber)
{
  var Msg = new String("");
  switch(Type){
    case 'A' :
      Msg = "Are you sure that you want to remove all sites from your custom site directory?"; break;
    case 'C' :
      Msg = "Are you sure that you want to remove all closed sites from your custom site directory?"; break;
    case 'S' :
      document.LANSA.elements["AWAOADCN  "].value = SiteNumber;
      Msg = "Are you sure that you want to remove site " + SiteNumber + " from your custom site directory?"; break;
  }
  if (confirm(Msg))
  {
    Recall(Type);
  }
}


function ClearPrompt(What, With){
  if (What.value == With){
    What.value = '';
    What.style.color = '';
  }
}

function SetPrompt(What, With){
  if (What.value == ''){
    What.value = With;
    What.style.color = 'GrayText';
  }
}