FUNCTION TranslateNumDep xlpu_id s_p_c xdep_cod DEFINE xlpu_id INTEGER

FUNCTION TranslateNumDep(xlpu_id, s_p_c, xdep_cod)
DEFINE    xlpu_id    INTEGER
         ,s_p_c      SMALLINT
         ,xdep_cod   INTEGER
         ,lp_id
         ,prof_cod
         ,dp_id      INTEGER
         ,tmp_str    CHAR(100)

   INITIALIZE dp_id TO NULL
   LET prof_cod = 0
   LET lp_id = xlpu_id
   IF (xlpu_id > 0) AND (xdep_cod > 0) THEN
      SELECT med_id, mprofil_cod, sublpu_id
        INTO dp_id, prof_cod, lp_id
        FROM r_numdep
        WHERE lpu_id = xlpu_id
          AND dep_cod = xdep_cod
          AND s_p_cod = s_p_c
      IF STATUS = NOTFOUND THEN
         LET tmp_str = "Отделение с кодом ", xdep_cod, " в таблице перекодировки не обнаружено."
         ERROR tmp_str
         CALL ERRORLOG(tmp_str)
      END IF
   END IF
   RETURN dp_id, prof_cod, lp_id

END FUNCTION