RNA: Return on Net Assests = Operating Profit/Net Assets
PM: Profit Margin = Operating Profit/Sales Revenue
AT: Asset Turnover = Sales/Net Assets
SPE: Sales per Employee = Sales/Number of Employees
OPPE: Operating Profit per Employee = Operating Profit/Number of Employees
NUKSR: Non UK Sales = Non UK Sales/Total Sales
CR: Current Ratio = Current Assets/Current Liabilites$Calc{'ATR'}="&ATR()"; #

ATR: AAA?= (Current Assets - Stocks) /Current Liabilities
DD: Debtor Days = Debtors/Sales/365
SD: Stock Days = Stocks/Cost of Sales/365
G: Gearing = Long term Liabilities/Shareholders Funds
IC: Interest Cover = Operating Profit / Interest
DC: Dividend Cover = Profit Attributable / Dividends Paid
CA: Current Assets 

SOURCE: Company Name
YEAR: Year of report
CAS: ???
CAD
CAC
CL
NWC
LTL
NA
SF
SR
COS
OP
INT
PAT
DP
RP
NE
NUKS
SFO
RNA
PM
AT
SPE
OPPE
NUKST
SPSF
CR
ATR
DD
SD
G
IC
EPS
DPS
DC


sub RNA
{             
    return("RNA") if($inHeader);
    return("*") if ($elements[$Index{'NA'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'OPOA'}]/$elements[$Index{'NA'}]*100));
}

sub PM
{ 
    return("PM") if($inHeader);
    return("*") if ($elements[$Index{'SR'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'OPOA'}]/$elements[$Index{'SR'}]*100));
}

sub AT
{ 
    return("AT") if($inHeader);
    return("*") if ($elements[$Index{'NA'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'SR'}]/$elements[$Index{'NA'}]));
}

sub SPE
{ 
    return("SPE") if($inHeader);
    return("*") if ($elements[$Index{'NOE'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'SR'}]/$elements[$Index{'NOE'}]*1000000));
}

sub OPPE
{ 
    return("OPPE") if($inHeader);
    return("*") if ($elements[$Index{'NOE'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'OPOA'}]/$elements[$Index{'NOE'}]*1000000));
}

sub NUKSR
{ 
    return("NUKSR") if($inHeader);
    return("*") if ($elements[$Index{'SR'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'NUKSV'}]/$elements[$Index{'SR'}]*100));
}

sub CR
{ 
    return("CR") if($inHeader);
    return("*") if ($elements[$Index{'CL'}]==0); # NULL trap
    return(sprintf("%.2f",&CA()/$elements[$Index{'CL'}]));
}

sub ATR
{ 
    return("ATR") if($inHeader);
    return("*") if ($elements[$Index{'SR'}]==0); # NULL trap
    return(sprintf("%.2f",($elements[$Index{'CAD'}]+$elements[$Index{'CAC'}])/$elements[$Index{'CL'}]));
}

sub CA
{ 
    return("CA") if($inHeader);
    return(sprintf("%.2f",$elements[$Index{'CAS'}]+$elements[$Index{'CAD'}]+$elements[$Index{'CAC'}]));
}

sub DD 
{
    return("DD") if($inHeader);
    return("*") if ($elements[$Index{'SR'}]==0); # NULL trap
    return(sprintf("%.2f",($elements[$Index{'CAD'}]*100000/$elements[$Index{'SR'}])/365));
}

sub SD 
{
    return("SD") if($inHeader);
    return("*") if ($elements[$Index{'SR'}]==0); # NULL trap
    return(sprintf("%.2f",($elements[$Index{'CAS'}]*100000/$elements[$Index{'COS'}])/365));
}

sub G
{
    return("G") if ($inHeader);
    return("*") if ($elements[$Index{'SF'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'LTL'}]/$elements[$Index{'SF'}]*100));
}


sub IC
{
    return("IC") if ($inHeader);
    return("*") if ($elements[$Index{'I'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'OPOA'}]/$elements[$Index{'I'}]));
}

sub DC
{
    return("DC") if ($inHeader);
    return("*") if ($elements[$Index{'DP'}]==0); # NULL trap
    return(sprintf("%.2f",$elements[$Index{'PATC'}]/$elements[$Index{'DP'}]));
    
}