What this code suppose to do? Where's the part of code that creates CA and sets its properties?

>thisform.updaters(rs,'alias',oca)
>
>procedure updaters
>PARAMETERS ors,calias,ocap
>wnactualizar = 0
>ors.movefirst
>set deleted off
>ocap.Cursorattach('alias')
>SELECT (calias)