my $AppCodeID = $AppCode{$ID};
my $CstTypeID = $CstType{$ID};
my $hash_reference = $TotCst{$AppCodeID};
$hash_reference->{$CstTypeID} += $InvAmnt{$ID};