static S getDBProgramID_id;

static S getDBProgramID() {
  ret nempty(getDBProgramID_id) ? getDBProgramID_id : programID();
}