UPDATE BES_ARTASS
   SET ASSDMAJ   = sysdate,
       ASSUTIL   = 'beass01p',
       ASSTRT = case
                  when (SELECT distinct resresid
                          FROM reseau
                         WHERE ressite = assstore
                           AND reslevel = 0
                           AND resresid in (SELECT rdgresid
                                              FROM resdgene, parpostes
                                             WHERE partabl = 1318
                                               AND parcmag =
                                                   pksitdgene.get_siteclass(ressite)
                                               AND parvan1 = rdgtype
                                               AND parpost = 4)
                           AND rownum = 1) is not null then
                   0
                  else
                   2
                end,
       ASSERR = case
                  when (SELECT distinct resresid
                          FROM reseau
                         WHERE ressite = assstore
                           AND reslevel = 0
                           AND resresid in (SELECT rdgresid
                                              FROM resdgene, parpostes
                                             WHERE partabl = 1318
                                               AND parcmag =
                                                   pksitdgene.get_siteclass(ressite)
                                               AND parvan1 = rdgtype
                                               AND parpost = 4)
                           AND rownum = 1) is not null then
                   'Store range format was corrected'
                  else
                   'Store range format is invalid'
                end,
       ASSFORMAT = NVL((SELECT distinct resresid
                         FROM reseau
                        WHERE ressite = assstore
                          AND reslevel = 0
                          AND resresid in (SELECT rdgresid
                                             FROM resdgene, parpostes
                                            WHERE partabl = 1318
                                              AND parcmag =
                                                  pksitdgene.get_siteclass(ressite)
                                              AND parvan1 = rdgtype
                                              AND parpost = 4)
                          AND rownum = 1),
                       ASSFORMAT)
 where asstrt = 3;