Prozeduren

SE_TITEL_ENTPLANEN_EX

Eingabeparameter

Ausgabeparameter

(Es gibt keine Ausgabeparameter)

Beschreibung

Damit wird ein Sendeelement von einem Titel entplant.

Definition

CREATE PROCEDURE SE_TITEL_ENTPLANEN_EX(
    SEID INTEGER,
    SETITELTHEMA CHAR(80),
    TO_TRASH INTEGER)
AS
  DECLARE VARIABLE SeTiId   INTEGER;
  DECLARE VARIABLE SeSnId   INTEGER;
BEGIN
  SELECT SESNID, SETIID FROM SENDEELEMENTE
  WHERE (SEID = :SeId)
  INTO :SeSnId, :SeTiId;
  
  /* Titel entplanen, wenn ueberhaupt geplant ist */
  IF (:SeTiId IS NOT NULL) THEN BEGIN

    /* DABDB-329 */
    IF (TO_TRASH = 1) THEN
      EXECUTE PROCEDURE SE_COPY_TO_TRASH (SeId, SeSnId);

    UPDATE SENDEELEMENTE SET 
      SETIID = NULL,
      SEDAUER = 0,
      SETITELTHEMA = :SeTitelThema,
      SEINTERPRET = NULL,
      SEKURZBEZ = NULL,
      SEGESCHLECHT = NULL,
      SEJAHRGANG = NULL,
      SEHITJAHRGANG = NULL,
      SEAUTOR = NULL,
      SEARCHIVNR = NULL,
      SEARCHIVNR_2 = NULL,
      SESYSTEMNR = NULL,
      SEERSTELLDATUM = NULL,
      SEERSTELLER = NULL,
      SEBEARBDATUM = NULL,
      SEBEARBEITER = NULL,
    /*  SEQUELLE = NULL,*/
      SEFILENAME = NULL,
      SESEITE = NULL,
      SESTUECKNR = NULL,
      SEMAGAZINNR = NULL,
      SESLOTNR = NULL,
      SESMARTMIX = NULL,
      SEANMODERATION = NULL,
      SETEXT = NULL,
      SEABMODERATION = NULL,
      SEZUSATZTEXT = NULL,
      SEZUSATZFELD1 = NULL,
      SEZUSATZFELD2 = NULL,
      SESCHEMANR = NULL,
      SEANMODSTATUS = NULL,
      SEABMODSTATUS = NULL,
      SETEXTSTATUS = NULL,
      SEVORLAUF = 0,
      SEFADEIN = 0,
      SEMITTELTEIL = 0,
      SEFADEOUT = 0,
      SENACHLAUF = 0,
      SESTARTNEXT = 0,
      SEINTRO1 = -1,
      SEINTRO2 = -1,
      SEINTRO3 = -1,
      SEREFRAIN1 = -1,
      SEREFRAIN2 = -1,
      SEREFRAIN3 = -1,
      SEREFRAIN4 = -1,
      SEAUDIOFLAG = 0,
      SEDROPINLEVEL = 0,
      SEFADEINCHAR = NULL,
      SEFADEOUTCHAR = NULL,
      SEOUTROCHAR = NULL,
      /*SETOLERANZ1 = 0,*/
      /*SETOLERANZ2 = 0,*/
      /*SEFIXELAENGE = 0,*/
      SESTATUS = 0,
      SELEVELINFO = NULL,  
      SEAKTBENUTZER = NULL,
      SELEVELOFFSET = 0,
      SEINFO = NULL,
      SEVERLAG = NULL,
      SEKATALOGNR = NULL,
      SEISRC = NULL,
      SEALBUMNAME = NULL,
      SEKOMPONIST = NULL,
      SETEXTER = NULL,
      SELAID = NULL,
      SEOBJID = '',
      SEMOSID = '',
      SEPLAYERSTATUS=0,
      SEASPECTRATIO=-1,
      SEHERKUNFTID = NULL,
      SEMUSIKVERSIONID = NULL,
      SESYNCIN = -1,
      SESYNCOUT = -1,
      SEVORZEITIGER_STARTNEXT = -1
    WHERE (SEID = :SeId);
  END
  DELETE FROM TRIGGEREDEVENTS WHERE (TESEID = :SeId) AND (TETYP = 100);
  /* DABDB-365 */
  DELETE FROM UNTERTITEL WHERE (UTSEID = :SeId) AND (UTNUTZUNGSART > 0);
END