dp_list_packed_vars { form_index " " }What it does:
Lists all the variables in the dp_form that start with dp$form_index.*Defined in: /web/philip/tcl/data-pipeline-defs.tcl
Source code:
    upvar dp_form dp_form
    if {![info exists dp_form] || [empty_string_p $dp_form]} {
        return
    } else {
        set size [ns_set size $dp_form]
        for {set i 0} {$i < $size} {incr i} {
            if [string match dp${form_index}.*  [ns_set key $dp_form $i]] {
                lappend dp_packed_vars [ns_set key $dp_form $i]
            }
        }
        if [info exists dp_packed_vars] {
            return $dp_packed_vars
        } else {
            return
        }
    }