While checking forms for other problems I found the following code

SELECT vitems

cOldOrder = ORDER()
SET ORDER TO TAG ordkey

SEEK Order_List.cordno

SCAN WHILE vitems.clordno = Order_List.cordno
ENDSCAN

What does it do?