PROCEDURE ExtraiNome(NomeCompleto)

Nome is string = NomeCompleto

IF NomeCompleto <> "" THEN

PrimeiroEspaco is int = PositionOccurrence(NomeCompleto," ",firstRank,FromBeginning)

Nome = Middle(NomeCompleto,1,PrimeiroEspaco)

END

RESULT Nome

PROCEDURE ExtraiSobrenome(NomeCompleto)

SobreNome is string = NomeCompleto

IF NomeCompleto <> "" THEN

PrimeiroEspaco is int = PositionOccurrence(NomeCompleto," ",firstRank,FromBeginning) + 1

SobreNome = Middle(NomeCompleto,PrimeiroEspaco,Length(NomeCompleto))

END

RESULT SobreNome