unit userscript;

function Process(e: IInterface): Integer;
var
  dnam: IInterface;
  ar, flags: variant;
begin
  dnam := ElementBySignature(e, 'DNAM');
  ar := GetElementNativeValues(dnam, 'AR');
  flags := GetElementNativeValues(dnam, 'Flags');
  SetToDefault(ElementBySignature(e, 'DNAM'));
  SetElementNativeValues(dnam, 'AR', ar);
  SetElementNativeValues(dnam, 'Flags', flags);
end;

end.