Переписал поиск функции по мнемокоду (SERVICEFN_FIND_BY_SRVCODE) на вызов API раздела "Сервисы обмена"

db/PKG_EXS.pck

@@ -1152,24 +1152,17 @@ create or replace package body PKG_EXS as
   )
   return                    number        -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáìåíà
   is
+    NEXSSERVICE             PKG_STD.TREF; -- Ðåã. íîìåð ñåðâèñà îáðàáîòêè
     NEXSSERVICEFN           PKG_STD.TREF; -- Ðåã. íîìåð ôóíêöèè ñåðâèñà îáðàáîòêè
   begin
     /* Íàéäåì ôóíêöèþ ñåðâèñà îáðàáîòêè */
-    begin
-      select T.RN
-        into NEXSSERVICEFN
-        from EXSSERVICEFN T,
-             EXSSERVICE   S
-       where S.CODE = SEXSSERVICE
-         and S.RN = T.PRN
-         and T.CODE = SEXSSERVICEFN;
-    exception
-      when NO_DATA_FOUND then
-        P_EXCEPTION(NFLAG_SMART,
-                    'Ôóíêöèÿ "%s" ñåðâèñà îáìåíà "%s" íå îïðåäåëåíà',
-                    SEXSSERVICEFN,
-                    SEXSSERVICE);
-    end;
+    FIND_EXSSERVICE_CODE(NFLAG_SMART => NFLAG_SMART, NFLAG_OPTION => 0, SCODE => SEXSSERVICE, NRN => NEXSSERVICE);
+    /* Íàéäåì ôóíêöèþ ñåðâèñà îáðàáîòêè */
+    FIND_EXSSERVICEFN_CODE(NFLAG_SMART  => NFLAG_SMART,
+                           NFLAG_OPTION => 0,
+                           NEXSSERVICE  => NEXSSERVICE,
+                           SCODE        => SEXSSERVICEFN,
+                           NRN          => NEXSSERVICEFN);
     /* Âåðíåì ðåçóëüòàò */
     return NEXSSERVICEFN;
   end SERVICEFN_FIND_BY_SRVCODE;