one of the documented procedures in this installation of the ACS
survsimp_survey_short_name_to_id   short_name
What it does:
Returns the id of the survey given the short name
Defined in: /web/philip/tcl/survey-simple-defs.tcl

Source code:

    # we use the subquery pool so it is easy
    # to Memoize this function (we are not passing it an
    # arbitrary db handle)
    set db [ns_db gethandle subquery]
    set survey_id [database_to_tcl_string_or_null $db "select survey_id from
    survsimp_surveys where lower(short_name) = '[string tolower [DoubleApos $short_name]]'"]   
    ns_db releasehandle $db
    return $survey_id