The following lines contain the word 'select', 'insert', 'update' or 'delete':
OR g_TimeStack(v_Position).Deleted
THEN
v_Position := g_TimeStack.COUNT + 1;
g_TimeStack(v_Position).Deleted := false;
IF NOT g_TimeStack(g_curr_parent).Deleted THEN
IF g_TimeStack(g_curr_parent).Description IS NULL
THEN
msg := g_TimeStack(g_curr_parent).Marker;
IF g_curr_parent = 0 OR NOT g_TimeStack(g_curr_parent).Deleted THEN
FOR v_Count IN 1..g_TimeStack.COUNT LOOP
IF g_TimeStack(v_count).ParentId = g_curr_parent
AND NOT g_TimeStack(v_count).Deleted
THEN
tempParentId := g_curr_parent;
g_TimeStack(g_curr_parent).Deleted := true;
g_TimeStack.DELETE;