admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
56192f55fbb79c1cc1e61e963ff80c5935495680
Customer/UWVA/uwva_misc.sql
Maarten van der Heide 56192f55fb UWVA#88120 Rap/KPI per domein 
svn path=/Customer/trunk/; revision=69029
2025-05-15 11:27:50 +00:00

16391 lines
677 KiB
MySQL
Raw Blame History

--
-- $Id$
--
-- Script containing customer specific sql for UWVA (UWV Amsterdam)
-- related to QLIKVIEW/SPOBILO(-package)/KZ/SLA/STATS/DIV/KAS/FLEXWHERE/NOTI/
-- INFOBORD/AFTERSALES (incl. ANONIMISEER)/CPUA/UWVA-package/UWVA_RAP-package/
-- FLEXHWERE/RTM/KTO/HMAIL.
DEFINE thisfile = 'UWVA_MISC.SQL'
DEFINE dbuser = '^UWVA'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
CREATE OR REPLACE PACKAGE uwva
AS
FUNCTION bepaal_uwv_doorlooptijd (van_date IN DATE, tot_date IN DATE)
RETURN NUMBER;
PROCEDURE format_telefoonnummers (p_import_key IN NUMBER);
END uwva;
/
CREATE OR REPLACE PACKAGE BODY uwva
AS
-- UWVA#25539: Nu nog klantspecifiek, maar zou in 5.3.1 standaard mogen
-- worden.
-- Toch niet (mmm), want UWV heeft een verschillende berekening voor en
-- na 01-03-2013!
-- En per UWVA#27868 nog een volgende grens, nl. voor en na 01-11-2013!
FUNCTION bepaal_uwv_doorlooptijd (van_date IN DATE, tot_date IN DATE)
RETURN NUMBER
IS
c_kt_van_v1311 NUMBER := 7; -- De van-tijd voor 01-11-2013!
c_kt_tot_v1311 NUMBER := 19; -- De tot-tijd voor 01-11-2013!
c_kt_van_v1303 NUMBER := 8; -- De van-tijd voor 01-03-2013!
c_kt_tot_v1303 NUMBER := 17; -- De tot-tijd voor 01-03-2013!
v_kt_van NUMBER;
v_kt_tot NUMBER;
v_dl NUMBER;
lbackwards BOOLEAN;
v_van_date DATE;
v_van_uur NUMBER;
v_tot_date DATE;
v_tot_uur NUMBER;
v_loop_date DATE;
v_count NUMBER;
BEGIN
v_dl := 0;
-- Bepaal 'Start time of working day' (21=fac_t_startofworkday)!
v_kt_van := fac.safe_to_number (fac.getsetting ('fac_t_startofworkday'));
-- Bepaal 'End time of working day' (22=fac_t_endofworkday)!
v_kt_tot := fac.safe_to_number (fac.getsetting ('fac_t_endofworkday'));
IF (van_date > tot_date)
THEN
v_van_date := TO_DATE (TO_CHAR (tot_date, 'yyyymmddhh24mi'), 'yyyymmddhh24mi');
v_tot_date := TO_DATE (TO_CHAR (van_date, 'yyyymmddhh24mi'), 'yyyymmddhh24mi');
lbackwards := TRUE;
ELSE
v_van_date := TO_DATE (TO_CHAR (van_date, 'yyyymmddhh24mi'), 'yyyymmddhh24mi');
v_tot_date := TO_DATE (TO_CHAR (tot_date, 'yyyymmddhh24mi'), 'yyyymmddhh24mi');
lbackwards := FALSE;
END IF;
v_loop_date := TRUNC (v_van_date);
WHILE (v_loop_date <= v_tot_date)
LOOP
SELECT COUNT ( * )
INTO v_count
FROM mld_vrije_dagen
WHERE mld_vrije_dagen_datum = v_loop_date;
IF (v_count = 0 AND TO_CHAR (v_loop_date, 'd') NOT IN ('1', '7'))
THEN
IF (v_loop_date >= TO_DATE ('01-11-2013', 'dd-mm-yyyy'))
THEN -- Settings-kantoortijden!
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - v_kt_van) < 0)
THEN
v_van_uur := v_kt_van;
ELSE
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - v_kt_tot) < 0)
THEN
v_van_uur := (v_van_date - TRUNC (v_van_date)) * 24;
ELSE
v_van_uur := v_kt_tot;
END IF;
END IF;
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - v_kt_van) < 0)
THEN
v_tot_uur := v_kt_van;
ELSE
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - v_kt_tot) < 0)
THEN
v_tot_uur := (v_tot_date - TRUNC (v_tot_date)) * 24;
ELSE
v_tot_uur := v_kt_tot;
END IF;
END IF;
CASE
WHEN TRUNC (v_van_date) = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - v_van_uur);
WHEN v_loop_date = TRUNC (v_van_date)
THEN
v_dl := v_dl + (v_kt_tot - v_van_uur);
WHEN v_loop_date = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - v_kt_van);
ELSE
v_dl := v_dl + (v_kt_tot - v_kt_van);
END CASE;
ELSIF (v_loop_date >= TO_DATE ('01-03-2013', 'dd-mm-yyyy'))
THEN -- Oude setings: 7-tot-19-kantoortijden!
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - c_kt_van_v1311) < 0)
THEN
v_van_uur := c_kt_van_v1311;
ELSE
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - c_kt_tot_v1311) < 0)
THEN
v_van_uur := (v_van_date - TRUNC (v_van_date)) * 24;
ELSE
v_van_uur := c_kt_tot_v1311;
END IF;
END IF;
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - c_kt_van_v1311) < 0)
THEN
v_tot_uur := c_kt_van_v1311;
ELSE
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - c_kt_tot_v1311) < 0)
THEN
v_tot_uur := (v_tot_date - TRUNC (v_tot_date)) * 24;
ELSE
v_tot_uur := c_kt_tot_v1311;
END IF;
END IF;
CASE
WHEN TRUNC (v_van_date) = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - v_van_uur);
WHEN v_loop_date = TRUNC (v_van_date)
THEN
v_dl := v_dl + (c_kt_tot_v1311 - v_van_uur);
WHEN v_loop_date = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - c_kt_van_v1311);
ELSE
v_dl := v_dl + (c_kt_tot_v1311 - c_kt_van_v1311);
END CASE;
ELSE -- Nog oudere setings: 8-tot-17-kantoortijden!
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - c_kt_van_v1303) < 0)
THEN
v_van_uur := c_kt_van_v1303;
ELSE
IF ( ( ( (v_van_date - TRUNC (v_van_date)) * 24) - c_kt_tot_v1303) < 0)
THEN
v_van_uur := (v_van_date - TRUNC (v_van_date)) * 24;
ELSE
v_van_uur := c_kt_tot_v1303;
END IF;
END IF;
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - c_kt_van_v1303) < 0)
THEN
v_tot_uur := c_kt_van_v1303;
ELSE
IF ( ( ( (v_tot_date - TRUNC (v_tot_date)) * 24) - c_kt_tot_v1303) < 0)
THEN
v_tot_uur := (v_tot_date - TRUNC (v_tot_date)) * 24;
ELSE
v_tot_uur := c_kt_tot_v1303;
END IF;
END IF;
CASE
WHEN TRUNC (v_van_date) = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - v_van_uur);
WHEN v_loop_date = TRUNC (v_van_date)
THEN
v_dl := v_dl + (c_kt_tot_v1303 - v_van_uur);
WHEN v_loop_date = TRUNC (v_tot_date)
THEN
v_dl := v_dl + (v_tot_uur - c_kt_van_v1303);
ELSE
v_dl := v_dl + (c_kt_tot_v1303 - c_kt_van_v1303);
END CASE;
END IF;
END IF;
v_loop_date := v_loop_date + 1;
END LOOP;
IF lbackwards
THEN
RETURN 0 - v_dl;
ELSE
RETURN v_dl;
END IF;
END;
-- UWVA#20205 en UWVA#20219: Procedure om telefoonnummers netjes op te maken.
-- Wordt aangeroepen aan het einde van uwva_update_pshcm().
--
-- Voor een specificatie van de opmaak, zie UWVA#20205.
-- FSN#23352: (sub)query's opschonen
PROCEDURE format_telefoonnummers (p_import_key IN NUMBER)
AS
v_fac_usrtab_key NUMBER;
c_faxnr_key NUMBER (10) := 7;
BEGIN
-- Eigen Tabel met alle netnummers, om netnummers in telefoonnummers-zonder-opmaak
-- te kunnen achterhalen.
SELECT fac_usrtab_key
INTO v_fac_usrtab_key
FROM fac_usrtab
WHERE fac_usrtab_naam = 'netnummers';
-- UWVA#21779: Door een foutieve trigger (FSN#21781) bestaan er prs_kenmerklinks waarvan de
-- prs_perslid verwijderd is. Deze prs_kenmerklinks mogen (moeten) verwijderd.
DELETE FROM prs_kenmerklink
WHERE prs_kenmerklink_niveau = 'P'
AND NOT EXISTS (SELECT 1
FROM prs_perslid
WHERE prs_perslid_key = prs_link_key);
--
-- TELEFOONNUMMER ----------------------------------------------------------
--
-- Verwijder landinformatie (alleen van Nederlandse nummers; buitenlandse
-- worden helaas verminkt!)
UPDATE prs_perslid
SET prs_perslid_telefoonnr = SUBSTR (prs_perslid_telefoonnr, 2)
WHERE prs_perslid_telefoonnr LIKE '+%';
UPDATE prs_perslid
SET prs_perslid_telefoonnr = SUBSTR (prs_perslid_telefoonnr, 3)
WHERE prs_perslid_telefoonnr LIKE '31%';
UPDATE prs_perslid
SET prs_perslid_telefoonnr = SUBSTR (prs_perslid_telefoonnr, 5)
WHERE prs_perslid_telefoonnr LIKE '0031%';
-- Verwijder non-digit tekens (leestekens en spaties)
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
REPLACE (
REPLACE (
REPLACE (
REPLACE (REPLACE (prs_perslid_telefoonnr, '.', ''),
'(',
''),
')',
''),
'-',
''),
' ',
'');
UPDATE prs_perslid
SET prs_perslid_telefoonnr = '20' || prs_perslid_telefoonnr
WHERE prs_perslid_telefoonnr LIKE '687____';
UPDATE prs_perslid
SET prs_perslid_telefoonnr = SUBSTR (prs_perslid_telefoonnr, 2)
WHERE prs_perslid_telefoonnr LIKE '0%';
-- 06-nummers bijwerken
-- (NB: format "06 - xx xx xx xx" is 16 digits, dus gebruik ik
-- "06-xx xx xx xx", om het binnen de 15 karakters te houden.)
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 1)
|| '-'
|| SUBSTR (prs_perslid_telefoonnr, 2, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 8, 2)),
1,
15)
WHERE prs_perslid_telefoonnr LIKE '6%'
AND prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5;
-- 0800- en 0900-nummers met een even aantal digits
-- (NB: MOD(prs_perslid_telefoonnr, 2) = 1, omdat prs_perslid_telefoonnr begint met 900 ipv 0900!)
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 3)
|| ' - '
|| SUBSTR (prs_perslid_telefoonnr, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 8, 2)),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND MOD (LENGTH (prs_perslid_telefoonnr), 2) = 1
AND (prs_perslid_telefoonnr LIKE '800%'
OR prs_perslid_telefoonnr LIKE '900%');
-- 0800- en 0900-nummers met een oneven aantal digits
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 3)
|| '-'
|| SUBSTR (prs_perslid_telefoonnr, 4, 3)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 7, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 9, 2)),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND MOD (LENGTH (prs_perslid_telefoonnr), 2) = 0
AND (prs_perslid_telefoonnr LIKE '800%'
OR prs_perslid_telefoonnr LIKE '900%');
-- 088-nummers met een even aantal digits
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 2)
|| ' - '
|| SUBSTR (prs_perslid_telefoonnr, 3, 3)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 8, 2)),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND MOD (LENGTH (prs_perslid_telefoonnr), 2) = 1
AND prs_perslid_telefoonnr LIKE '88%';
-- 088-nummers met een oneven aantal digits
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 2)
|| '-'
|| SUBSTR (prs_perslid_telefoonnr, 3, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 5, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 7, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 9, 2)),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND MOD (LENGTH (prs_perslid_telefoonnr), 2) = 0
AND prs_perslid_telefoonnr LIKE '88%';
-- netnummers met 2 digits na-de-nul (bijv "020")
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
'(0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 2)
|| ') '
|| SUBSTR (prs_perslid_telefoonnr, 3, 3)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 8, 2),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_perslid_telefoonnr LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 2);
-- netnummers met 3 digits na-de-nul (bijv "0118")
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
SUBSTR (
'(0'
|| SUBSTR (prs_perslid_telefoonnr, 1, 3)
|| ') '
|| SUBSTR (prs_perslid_telefoonnr, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_telefoonnr, 8, 2),
1,
15)
WHERE prs_perslid_telefoonnr IS NOT NULL
AND LENGTH (prs_perslid_telefoonnr) > 5
AND EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_perslid_telefoonnr LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 3);
/*
-- UWVA#87947: Na(ast) bovenstaande normalisatie voortaan ook nog alle
-- streepjes, spaties en haakjes wissen!
UPDATE prs_perslid
SET prs_perslid_telefoonnr =
REPLACE (
REPLACE (
REPLACE (REPLACE (prs_perslid_telefoonnr, '-', ''),
' ',
''),
'(',
''),
')',
'');
*/
--
-- MOBIELE NUMMER ----------------------------------------------------------
--
-- Verwijder landinformatie (alleen van Nederlandse nummers; buitenlandse
-- worden helaas verminkt!)
UPDATE prs_perslid
SET prs_perslid_mobiel = SUBSTR (prs_perslid_mobiel, 2)
WHERE prs_perslid_mobiel LIKE '+%';
UPDATE prs_perslid
SET prs_perslid_mobiel = SUBSTR (prs_perslid_mobiel, 3)
WHERE prs_perslid_mobiel LIKE '31%';
UPDATE prs_perslid
SET prs_perslid_mobiel = SUBSTR (prs_perslid_mobiel, 5)
WHERE prs_perslid_mobiel LIKE '0031%';
-- Verwijder non-digit tekens (leestekens en spaties)
UPDATE prs_perslid
SET prs_perslid_mobiel =
REPLACE (
REPLACE (
REPLACE (
REPLACE (REPLACE (prs_perslid_mobiel, '.', ''),
'(',
''),
')',
''),
'-',
''),
' ',
'');
UPDATE prs_perslid
SET prs_perslid_mobiel = '20' || prs_perslid_mobiel
WHERE prs_perslid_mobiel LIKE '687____';
UPDATE prs_perslid
SET prs_perslid_mobiel = SUBSTR (prs_perslid_mobiel, 2)
WHERE prs_perslid_mobiel LIKE '0%';
-- 06-nummers bijwerken
-- (NB: format "06 - xx xx xx xx" is 16 digits, dus gebruik ik
-- "06-xx xx xx xx", om het binnen de 15 karakters te houden.)
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_mobiel, 1, 1)
|| '-'
|| SUBSTR (prs_perslid_mobiel, 2, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 8, 2)),
1,
15)
WHERE prs_perslid_mobiel LIKE '6%'
AND prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5;
-- 0800- en 0900-nummers met een even aantal digits
-- (NB: MOD(prs_perslid_mobiel, 2) = 1, omdat prs_perslid_mobiel begint met 900 ipv 0900!)
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_mobiel, 1, 3)
|| ' - '
|| SUBSTR (prs_perslid_mobiel, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 8, 2)),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND MOD (LENGTH (prs_perslid_mobiel), 2) = 1
AND (prs_perslid_mobiel LIKE '800%'
OR prs_perslid_mobiel LIKE '900%');
-- 0800- en 0900-nummers met een oneven aantal digits
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_mobiel, 1, 3)
|| '-'
|| SUBSTR (prs_perslid_mobiel, 4, 3)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 7, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 9, 2)),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND MOD (LENGTH (prs_perslid_mobiel), 2) = 0
AND (prs_perslid_mobiel LIKE '800%'
OR prs_perslid_mobiel LIKE '900%');
-- 088-nummers met een even aantal digits
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_mobiel, 1, 2)
|| ' - '
|| SUBSTR (prs_perslid_mobiel, 3, 3)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 8, 2)),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND MOD (LENGTH (prs_perslid_mobiel), 2) = 1
AND prs_perslid_mobiel LIKE '88%';
-- 088-nummers met een oneven aantal digits
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_perslid_mobiel, 1, 2)
|| '-'
|| SUBSTR (prs_perslid_mobiel, 3, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 5, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 7, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 9, 2)),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND MOD (LENGTH (prs_perslid_mobiel), 2) = 0
AND prs_perslid_mobiel LIKE '88%';
-- netnummers met 2 digits na-de-nul (bijv "020")
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
'(0'
|| SUBSTR (prs_perslid_mobiel, 1, 2)
|| ') '
|| SUBSTR (prs_perslid_mobiel, 3, 3)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 8, 2),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_perslid_mobiel LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 2);
-- netnummers met 3 digits na-de-nul (bijv "0118")
UPDATE prs_perslid
SET prs_perslid_mobiel =
SUBSTR (
'(0'
|| SUBSTR (prs_perslid_mobiel, 1, 3)
|| ') '
|| SUBSTR (prs_perslid_mobiel, 4, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 6, 2)
|| ' '
|| SUBSTR (prs_perslid_mobiel, 8, 2),
1,
15)
WHERE prs_perslid_mobiel IS NOT NULL
AND LENGTH (prs_perslid_mobiel) > 5
AND EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_perslid_mobiel LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 3);
/*
-- UWVA#87947: Na(ast) bovenstaande normalisatie voortaan ook nog alle
-- streepjes, spaties en haakjes wissen!
UPDATE prs_perslid
SET prs_perslid_mobiel =
REPLACE (
REPLACE (
REPLACE (REPLACE (prs_perslid_telefoonnr, '-', ''),
' ',
''),
'(',
''),
')',
'');
*/
--
-- FAXNUMMER ---------------------------------------------------------------
--
-- Verwijder landinformatie (alleen van Nederlandse nummers; buitenlandse
-- worden helaas verminkt!)
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = SUBSTR (prs_kenmerklink_waarde, 2)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '+%';
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = SUBSTR (prs_kenmerklink_waarde, 3)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '31%';
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = SUBSTR (prs_kenmerklink_waarde, 5)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '0031%';
-- Verwijder non-digit tekens (leestekens en spaties)
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
REPLACE (
REPLACE (
REPLACE (
REPLACE (REPLACE (prs_kenmerklink_waarde, '.', ''),
'(',
''),
')',
''),
'-',
''),
' ',
'')
WHERE prs_kenmerk_key = c_faxnr_key;
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = '20' || prs_kenmerklink_waarde
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '687____';
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde = SUBSTR (prs_kenmerklink_waarde, 2)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '0%';
-- 06-nummers bijwerken
-- (NB: format "06 - xx xx xx xx" is 16 digits, dus gebruik ik
-- "06-xx xx xx xx", om het binnen de 15 karakters te houden.)
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 1)
|| '-'
|| SUBSTR (prs_kenmerklink_waarde, 2, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 4, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 6, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 8, 2)),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde LIKE '6%'
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5;
-- 0800- en 0900-nummers met een even aantal digits
-- (NB: MOD(prs_kenmerklink_waarde, 2) = 1, omdat prs_kenmerklink_waarde begint met 900 ipv 0900!)
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 3)
|| ' - '
|| SUBSTR (prs_kenmerklink_waarde, 4, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 6, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 8, 2)),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND MOD (LENGTH (prs_kenmerklink_waarde), 2) = 1
AND (prs_kenmerklink_waarde LIKE '800%'
OR prs_kenmerklink_waarde LIKE '900%');
-- 0800- en 0900-nummers met een oneven aantal digits
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 3)
|| '-'
|| SUBSTR (prs_kenmerklink_waarde, 4, 3)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 7, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 9, 2)),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND MOD (LENGTH (prs_kenmerklink_waarde), 2) = 0
AND (prs_kenmerklink_waarde LIKE '800%'
OR prs_kenmerklink_waarde LIKE '900%');
-- 088-nummers met een even aantal digits
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 2)
|| ' - '
|| SUBSTR (prs_kenmerklink_waarde, 3, 3)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 6, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 8, 2)),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND MOD (LENGTH (prs_kenmerklink_waarde), 2) = 1
AND prs_kenmerklink_waarde LIKE '88%';
-- 088-nummers met een oneven aantal digits
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
TRIM( '0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 2)
|| '-'
|| SUBSTR (prs_kenmerklink_waarde, 3, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 5, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 7, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 9, 2)),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND MOD (LENGTH (prs_kenmerklink_waarde), 2) = 0
AND prs_kenmerklink_waarde LIKE '88%';
-- netnummers met 2 digits na-de-nul (bijv "020")
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
'(0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 2)
|| ') '
|| SUBSTR (prs_kenmerklink_waarde, 3, 3)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 6, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 8, 2),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND EXISTS
(SELECT 1
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_kenmerklink_waarde LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 2);
-- netnummers met 3 digits na-de-nul (bijv "0118")
UPDATE prs_kenmerklink
SET prs_kenmerklink_waarde =
SUBSTR (
'(0'
|| SUBSTR (prs_kenmerklink_waarde, 1, 3)
|| ') '
|| SUBSTR (prs_kenmerklink_waarde, 4, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 6, 2)
|| ' '
|| SUBSTR (prs_kenmerklink_waarde, 8, 2),
1,
15)
WHERE prs_kenmerk_key = c_faxnr_key
AND prs_kenmerklink_waarde IS NOT NULL
AND LENGTH (prs_kenmerklink_waarde) > 5
AND EXISTS
(SELECT prs_kenmerklink_key
FROM fac_usrdata
WHERE fac_usrtab_key = v_fac_usrtab_key
AND fac_usrdata_verwijder IS NULL
AND prs_kenmerklink_waarde LIKE
fac_usrdata_code || '%'
AND LENGTH (fac_usrdata_code) = 3);
EXCEPTION
WHEN OTHERS
THEN
fac.imp_writelog (p_import_key,
'W',
'Fout bij formatteren telefoonnummers',
SQLCODE || ': ' || SUBSTR (SQLERRM, 1, 200));
END format_telefoonnummers;
END uwva;
/
--
-- UWVA#29757: Flexwhere: Configuratie tbv bezettingsrapportages -----------------
--
-- d.ins_discipline_key = 406 is de discipline 'FlexWhere'.
-- MBMB
-- Alle ins_delen (objecten) van discpline FlexWhere: dit zijn de sensoren in de vergaderruimten.
CREATE OR REPLACE VIEW uwva_v_flexwhere_deel
(
ins_deel_key,
ins_deel_omschrijving,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_key,
alg_verdieping_volgnr,
alg_gebouw_key,
alg_gebouw_code,
alg_locatie_key,
alg_locatie_code
)
AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
r.alg_ruimte_key,
r.alg_ruimte_nr,
v.alg_verdieping_key,
v.alg_verdieping_volgnr,
g.alg_gebouw_key,
g.alg_gebouw_code,
l.alg_locatie_key,
alg_locatie_code
FROM ins_deel d,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE d.ins_discipline_key = 406
AND d.ins_alg_ruimte_key = r.alg_ruimte_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND l.alg_locatie_key = g.alg_locatie_key
AND (d.ins_deel_vervaldatum < sysdate OR d.ins_deel_vervaldatum IS NULL)
AND d.ins_deel_verwijder IS NULL;
-- Alle sensor meetwaarde-wijzigingen.
-- ins_deel_state = 0 betekent dat ruimte geen beweging is gedecteerd (= vrij)
-- = 1 betekent dat ruimte WEL beweging is gedecteerd (= bezet)
CREATE OR REPLACE VIEW uwva_v_flexwhere_ins_state
(
ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_key,
alg_verdieping_volgnr,
alg_gebouw_key,
alg_gebouw_code,
alg_locatie_key,
alg_locatie_code
)
AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
h.ins_deel_state,
h.ins_deel_statedate,
TRUNC (h.ins_deel_statedate),
TO_CHAR (h.ins_deel_statedate, 'yyyy'),
TO_CHAR (h.ins_deel_statedate, 'mm'),
TO_CHAR (h.ins_deel_statedate, 'dd'),
TO_CHAR (h.ins_deel_statedate, 'D'),
TO_CHAR (h.ins_deel_statedate, 'hh24'),
TO_CHAR (h.ins_deel_statedate, 'mi'),
CASE
WHEN fac.safe_to_number (TO_CHAR (h.ins_deel_statedate, 'mi')) <
15
THEN
'00'
WHEN fac.safe_to_number (TO_CHAR (h.ins_deel_statedate, 'mi')) <
30
THEN
'15'
WHEN fac.safe_to_number (TO_CHAR (h.ins_deel_statedate, 'mi')) <
45
THEN
'30'
ELSE
'45'
END
CASE,
d.alg_ruimte_key,
d.alg_ruimte_nr,
d.alg_verdieping_key,
d.alg_verdieping_volgnr,
d.alg_gebouw_key,
d.alg_gebouw_code,
d.alg_locatie_key,
d.alg_locatie_code
FROM uwva_v_flexwhere_deel d, ins_deel_state_history h
WHERE d.ins_deel_key = h.ins_deel_key;
-- Alle reserveringen met de status in de vergaderruimten met een FlexWhere-sensor:
-- Formaat:
-- ins_deel_key, ins_deel_omschrijving, ins_deel_state,ins_deel_statedate
-- ins_deel_state = 0 betekent dat ruimte VANAF res_deel_statedate (!) niet gereserveerd is (= vrij zou zijn) (was 2)
-- = 1 betekent dat ruimte VANAF res_deel_statedate gereserveerd is (= bezet zou zijn) (was 3)
CREATE OR REPLACE VIEW uwva_v_flexwhere_res_state
(
ins_deel_key,
ins_deel_omschrijving,
res_deel_state,
res_deel_statedate,
res_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
res_rsv_ruimte_key,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
)
AS
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
'0',
rr.res_rsv_ruimte_tot,
TRUNC (rr.res_rsv_ruimte_tot),
TO_CHAR (rr.res_rsv_ruimte_tot, 'yyyy'),
TO_CHAR (rr.res_rsv_ruimte_tot, 'mm'),
TO_CHAR (rr.res_rsv_ruimte_tot, 'dd'),
TO_CHAR (rr.res_rsv_ruimte_tot, 'D'),
TO_CHAR (rr.res_rsv_ruimte_tot, 'hh24'),
TO_CHAR (rr.res_rsv_ruimte_tot, 'mi'),
CASE
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'mi')) <
15
THEN
'00'
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'mi')) <
30
THEN
'15'
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'mi')) <
45
THEN
'30'
ELSE
'45'
END
CASE,
rr.res_rsv_ruimte_key,
ar.alg_ruimte_key,
ar.alg_ruimte_nr,
v.alg_verdieping_volgnr,
g.alg_gebouw_code,
l.alg_locatie_code
FROM res_rsv_ruimte rr,
res_ruimte_opstelling ro,
res_ruimte r,
res_alg_ruimte rar,
alg_ruimte ar,
uwva_v_flexwhere_deel d,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE rr.res_rsv_ruimte_verwijder IS NULL
AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = r.res_ruimte_key
AND r.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = ar.alg_ruimte_key
AND d.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
UNION ALL
SELECT d.ins_deel_key,
d.ins_deel_omschrijving,
'1',
rr.res_rsv_ruimte_van,
TRUNC (rr.res_rsv_ruimte_van),
TO_CHAR (rr.res_rsv_ruimte_van, 'yyyy'),
TO_CHAR (rr.res_rsv_ruimte_van, 'mm'),
TO_CHAR (rr.res_rsv_ruimte_van, 'dd'),
TO_CHAR (rr.res_rsv_ruimte_van, 'D'),
TO_CHAR (rr.res_rsv_ruimte_van, 'hh24'),
TO_CHAR (rr.res_rsv_ruimte_van, 'mi'),
CASE
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'mi')) <
15
THEN
'00'
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'mi')) <
30
THEN
'15'
WHEN fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'mi')) <
45
THEN
'30'
ELSE
'45'
END
CASE,
rr.res_rsv_ruimte_key,
ar.alg_ruimte_key,
ar.alg_ruimte_nr,
v.alg_verdieping_volgnr,
g.alg_gebouw_code,
l.alg_locatie_code
FROM res_rsv_ruimte rr,
res_ruimte_opstelling ro,
res_ruimte r,
res_alg_ruimte rar,
alg_ruimte ar,
uwva_v_flexwhere_deel d,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE rr.res_rsv_ruimte_verwijder IS NULL
AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = r.res_ruimte_key
AND r.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = ar.alg_ruimte_key
AND d.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key;
-- De verzameling (set) van dagen waarover de rapportage gaat:
-- Alle dagen van de afgelopen 2 maanden (2*31),
-- Behalve de weekenden. (dagnr 7 (=za) en 1 (=zo)) (1=zo, 2=ma, 3=di, .... 6=vr, 7 = za)
-- Elke dag (datum) met de begintijd voor de rapportage: 09:00u (9/24) en een eindtijd 16:00 (16/24)
-- NB: Let op, het is mogelijk dat van sommige zalen op sommige dagen helemaal geen sensorinfo in Facilitor wordt bewaard, dan is vangt deze view deze missing datums (in theorie ws) op.
CREATE OR REPLACE VIEW uwva_flexwhere_2mnd_tmp
(
datum_starttijd,
datum_eindtijd
)
AS
SELECT TRUNC (SYSDATE - (LEVEL - 1)) + 9 / 24,
TRUNC (SYSDATE - (LEVEL - 1)) + 16 / 24
FROM DUAL
CONNECT BY LEVEL <= 2 * 31;
CREATE OR REPLACE VIEW uwva_flexwhere_2mnd
AS
SELECT *
FROM uwva_flexwhere_2mnd_tmp
WHERE TO_CHAR (datum_starttijd, 'D') <> 1
AND TO_CHAR (datum_starttijd, 'D') <> 7;
-- View met alle kwartieren tussen 09:00u en 16:00u, dus gedurende 7 uur
-- Gebruik hiervan is voor de lijngrafiek die om op de X-as elk kwartier een waarde heeft staan.
CREATE OR REPLACE VIEW uwva_flexwhere_kwartieren_1dag
(
tijd,
uur,
MIN
)
AS
SELECT TRUNC (SYSDATE) + 9 / 24 + (LEVEL - 1) / (24 * 4),
TO_CHAR (TRUNC (SYSDATE) + 9 / 24 + (LEVEL - 1) / (24 * 4),
'hh24'),
TO_CHAR (TRUNC (SYSDATE) + 9 / 24 + (LEVEL - 1) / (24 * 4), 'mi')
FROM DUAL
CONNECT BY LEVEL <= (7.0 * 4) + 1;
CREATE OR REPLACE VIEW uwva_flexwhere_kwartier_2mnd
(
tijdstip,
datum,
uur,
min2
)
AS
SELECT TRUNC (datum_starttijd) + uur / 24 + MIN / (60 * 24),
TRUNC (datum_starttijd),
uur,
MIN
FROM uwva_flexwhere_2mnd, uwva_flexwhere_kwartieren_1dag;
CREATE OR REPLACE VIEW uwva_flexwhere_kwartier_mnd_1
AS
SELECT *
FROM uwva_flexwhere_kwartier_2mnd
WHERE TO_CHAR (datum, 'yyyy') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND TO_CHAR (datum, 'mm') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1);
----------------------------------------------------------------------------------
-- Om de no-show van reserveringen te kunnen bepalen, een tijdsvak van 4 weken (zeg maar 1 maand) terug de sensor-info.
-- state_code = R (reservering-state) of "I" (sensor-state)
-- HIER IS NIET NODIG: A (starttijd 09:00u van beide NULL, zowel I als R NULL)
-- HIER IS NIET NODIG B (eindtijd 16:00u van beide NULL, zowel I als R NULL
CREATE OR REPLACE VIEW uwva_v_flexwhere_res_4_noshow
(
ins_deel_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
tijdsduur,
tijdsinterval,
res_rsv_ruimte_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
)
AS
SELECT d.ins_deel_key,
rr.res_rsv_ruimte_van,
rr.res_rsv_ruimte_tot,
rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van,
CASE
WHEN rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van < 2 / 24
THEN
1 / 96
WHEN rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van < 4 / 24
THEN
2 / 96
ELSE
3 / 96
END
CASE,
rr.res_rsv_ruimte_key,
rr.res_reservering_key,
rr.res_rsv_ruimte_volgnr,
ar.alg_ruimte_key,
ar.alg_ruimte_nr,
v.alg_verdieping_volgnr,
g.alg_gebouw_code,
l.alg_locatie_code
FROM res_rsv_ruimte rr,
res_ruimte_opstelling ro,
res_ruimte r,
res_alg_ruimte rar,
alg_ruimte ar,
uwva_v_flexwhere_deel d,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE rr.res_rsv_ruimte_verwijder IS NULL
AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = r.res_ruimte_key
AND r.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = ar.alg_ruimte_key
AND d.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key;
-- Van DEZE maand, wordt gebruikt om NO-show te bepalen
CREATE OR REPLACE VIEW uwva_v_flexwhere_insres_noshow
(
ins_deel_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
tijdsduur,
tijdsinterval,
res_rsv_ruimte_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code,
ins_deel_state,
ins_deel_statedate
)
AS
SELECT ns.ins_deel_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
tijdsduur,
tijdsinterval,
res_rsv_ruimte_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code,
a.ins_deel_state,
a.ins_deel_statedate
FROM uwva_v_flexwhere_res_4_noshow ns, ins_deel_state_history a
WHERE a.ins_deel_statedate =
(SELECT MAX (ins_deel_statedate)
FROM ins_deel_state_history b
WHERE B.INS_DEEL_KEY = ns.ins_deel_key
AND B.INS_DEEL_STATEDATE <=
ns.res_rsv_ruimte_van + ns.tijdsinterval)
AND a.ins_deel_key = ns.ins_deel_key
UNION
SELECT ns.ins_deel_key,
res_rsv_ruimte_van,
res_rsv_ruimte_tot,
tijdsduur,
tijdsinterval,
res_rsv_ruimte_key,
alg_ruimte_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code,
'0',
res_rsv_ruimte_van
FROM uwva_v_flexwhere_res_4_noshow ns
WHERE NOT EXISTS (SELECT 'x'
FROM ins_deel_state_history a
WHERE a.ins_deel_key = ns.ins_deel_key);
CREATE OR REPLACE PROCEDURE uwva_res_sensor_noshow (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
-- Cursor met alle reservering die geen aanwezigheid hebben op tijdstip kwartier, half uur of 3 kwartier volgens de spelregels 'no-show':
--
-- Vergadering < 2 uur: als na exact 15 minuten g<><67>n aanwezigheid wordt geconstateerd wordt de reservering aangemerkt als een No Show
-- Vergadering duurt vanaf 2 tot 4 uur -> na 30 minuten wordt het aangemerkt als een No Show
-- Vergadering duurt vanaf 4 uur -> na 45 minuten wordt het aangemerkt als een No Show
CURSOR c_noshow
IS
SELECT res_rsv_ruimte_key, ins_deel_state
FROM uwva_v_flexwhere_insres_noshow
WHERE ins_deel_state = 0
AND TRUNC (res_rsv_ruimte_van) = TRUNC (SYSDATE - 1); -- Gisteren
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_txt_noshow VARCHAR2 (200);
h_track_res NUMBER (1);
h_track_bez NUMBER (1);
v_nu DATE;
BEGIN
v_nu := SYSDATE;
v_txt_noshow := 'Flexwhere: No show';
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_noshow
LOOP
fac.trackaction ('#RESUPD',
rc.res_rsv_ruimte_key,
NULL,
v_nu,
v_txt_noshow);
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_bezoekers_shown = 0
WHERE res_rsv_ruimte_key = rc.res_rsv_ruimte_key;
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname,
'E',
'Flexwhere afgebroken!',
v_errormsg);
COMMIT;
END;
/
--------------------------------------------------------------------
-- Vorige maand
-- state_code = R (reservering-state) of "I" (sensor-state)
-- A (starttijd 10:00u van beide NULL, zowel I als R NULL)
-- B (eindtijd 14:00u van beide NULL, zowel I als R NULL
CREATE OR REPLACE VIEW uwva_v_flexwhere_ins_mnd_1
(
ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
res_deel_state,
state_code,
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
)
AS
SELECT ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
NULL,
'I',
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_ins_state fw
WHERE fw.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND fw.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
UNION ALL
SELECT ins_deel_key,
ins_deel_omschrijving,
NULL,
NULL,
'A',
dag.datum_starttijd,
TRUNC (dag.datum_starttijd),
TO_CHAR (dag.datum_starttijd, 'yyyy'),
TO_CHAR (dag.datum_starttijd, 'mm'),
TO_CHAR (dag.datum_starttijd, 'dd'),
TO_CHAR (dag.datum_starttijd, 'D'),
TO_CHAR (dag.datum_starttijd, 'hh24'),
TO_CHAR (dag.datum_starttijd, 'mi'),
CASE
WHEN fac.safe_to_number (TO_CHAR (dag.datum_starttijd, 'mi')) <
15
THEN
'00'
WHEN fac.safe_to_number (TO_CHAR (dag.datum_starttijd, 'mi')) <
30
THEN
'15'
WHEN fac.safe_to_number (TO_CHAR (dag.datum_starttijd, 'mi')) <
45
THEN
'30'
ELSE
'45'
END
CASE,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_deel d, uwva_flexwhere_2mnd dag
WHERE TO_CHAR (dag.datum_starttijd, 'yyyy') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND TO_CHAR (dag.datum_starttijd, 'mm') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
UNION ALL
SELECT ins_deel_key,
ins_deel_omschrijving,
NULL,
NULL,
'B',
dag.datum_eindtijd,
TRUNC (dag.datum_eindtijd),
TO_CHAR (dag.datum_eindtijd, 'yyyy'),
TO_CHAR (dag.datum_eindtijd, 'mm'),
TO_CHAR (dag.datum_eindtijd, 'dd'),
TO_CHAR (dag.datum_eindtijd, 'D'),
TO_CHAR (dag.datum_eindtijd, 'hh24'),
TO_CHAR (dag.datum_eindtijd, 'mi'),
CASE
WHEN fac.safe_to_number (TO_CHAR (dag.datum_eindtijd, 'mi')) <
15
THEN
'00'
WHEN fac.safe_to_number (TO_CHAR (dag.datum_eindtijd, 'mi')) <
30
THEN
'15'
WHEN fac.safe_to_number (TO_CHAR (dag.datum_eindtijd, 'mi')) <
45
THEN
'30'
ELSE
'45'
END
CASE,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_deel d, uwva_flexwhere_2mnd dag
WHERE TO_CHAR (dag.datum_eindtijd, 'yyyy') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND TO_CHAR (dag.datum_eindtijd, 'mm') =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1);
--------------------------------------------------------------------
-- Vorige maand, INS sensoren en RES bij elkaar
CREATE OR REPLACE VIEW uwva_v_flexwhere_ins_en_res_1
(
ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
res_deel_state,
state_code,
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
res_rsv_ruimte_key,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
)
AS
SELECT ins_deel_key,
ins_deel_omschrijving,
NULL,
res_deel_state,
'R',
res_deel_statedate,
res_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
res_rsv_ruimte_key,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_res_state fw
--WHERE fw.res_deel_statedate >= SYSDATE - 2*31
WHERE fw.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND fw.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
UNION ALL
SELECT ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
res_deel_state,
state_code,
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
NULL,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_ins_mnd_1;
-- Statecode hier wordt 'X'
CREATE OR REPLACE VIEW uwva_v_flexwhere_ins_kwartier
(
ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
res_deel_state,
state_code,
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
)
AS
SELECT ins_deel_key,
ins_deel_omschrijving,
NULL,
NULL,
'X',
k.tijdstip,
k.datum,
TO_CHAR (k.tijdstip, 'yyyy'),
TO_CHAR (k.tijdstip, 'mm'),
TO_CHAR (k.tijdstip, 'dd'),
TO_CHAR (k.tijdstip, 'D'),
k.uur,
k.min2,
k.min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_deel t, uwva_flexwhere_kwartier_mnd_1 k
UNION ALL
SELECT ins_deel_key,
ins_deel_omschrijving,
ins_deel_state,
NULL,
'I',
ins_deel_statedate,
ins_deel_statedate_trunc,
jaar,
maand,
dag,
dagnr,
uur,
MIN,
min2,
alg_ruimte_key,
alg_ruimte_nr,
alg_verdieping_volgnr,
alg_gebouw_code,
alg_locatie_code
FROM uwva_v_flexwhere_ins_state fw
WHERE fw.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND fw.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1);
-- Van VORIGE maand
CREATE OR REPLACE VIEW uwva_v_flexwhere_insres_vantot
(
ins_deel_key,
state_code,
ins_deel_state,
res_deel_state,
vandatum,
tmdatum,
jaar,
maand,
dag,
dagnr,
uur,
MIN
)
AS
SELECT ins_deel_key,
state_code,
COALESCE (
ABS (ins_deel_state - 1),
(SELECT ABS (MAX (fac.safe_to_number (ins_deel_state)) - 1)
FROM ins_deel_state_history a
WHERE a.ins_deel_statedate =
(SELECT MIN (ins_deel_statedate)
FROM ins_deel_state_history b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE >=
t1.INS_DEEL_STATEDATE)
AND a.ins_deel_key = t1.ins_deel_key),
(SELECT MAX (fac.safe_to_number (ins_deel_state))
FROM ins_deel_state_history a
WHERE a.ins_deel_statedate =
(SELECT MAX (ins_deel_statedate)
FROM ins_deel_state_history b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE <
t1.INS_DEEL_STATEDATE)
AND a.ins_deel_key = t1.ins_deel_key),
0)
ins_state,
COALESCE (
ABS (res_deel_state - 1),
(SELECT ABS (MAX (fac.safe_to_number (res_deel_state)) - 1)
FROM uwva_v_flexwhere_ins_en_res_1 a
WHERE a.ins_deel_statedate =
(SELECT MIN (ins_deel_statedate)
FROM uwva_v_flexwhere_ins_en_res_1 b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE >=
t1.INS_DEEL_STATEDATE
AND b.state_code = 'R')
AND A.INS_DEEL_KEY = t1.ins_deel_key
AND a.state_code = 'R'),
(SELECT MAX (fac.safe_to_number (res_deel_state))
FROM uwva_v_flexwhere_ins_en_res_1 a
WHERE a.ins_deel_statedate =
(SELECT MAX (ins_deel_statedate)
FROM uwva_v_flexwhere_ins_en_res_1 b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE <
t1.INS_DEEL_STATEDATE
AND b.state_code = 'R')
AND A.INS_DEEL_KEY = t1.ins_deel_key
AND a.state_code = 'R'),
0)
res_state,
COALESCE (
LAG (ins_deel_statedate, 1)
OVER (ORDER BY ins_deel_key, ins_deel_statedate),
TO_DATE ('01-01-2010', 'DD-MM-YYYY'))
AS vandatum,
ins_deel_statedate AS tmdatum,
jaar,
maand,
dag,
dagnr,
uur,
MIN
FROM uwva_v_flexwhere_ins_en_res_1 t1;
--
-- uwva_v_flexwhere_pie_maandag_1 is die van de VORIGE maand
--
-- Dit is per dag van 09:00 - 16:00 u = 7.0 uur
-- Dit is voor alle maandagen van de maand (voor juni 2014 -> 5 maandagen)
-- Dit is voor alle sensorobjecten van de reserveerzalen (17 stuks)
-- Betekent 7.0 * 5 * 17 = 595 uur, 595 / 24 = 24,791666667 dag.
-- Als je de SUM doet van FCLT_YAS_ van onderstaande view dan klopt dit exact!
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_maandag_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 9
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
AND dagnr = 2
GROUP BY ins_deel_state || res_deel_state;
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_dinsdag_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 9
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
AND dagnr = 3
GROUP BY ins_deel_state || res_deel_state;
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_woensdag_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 9
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
AND dagnr = 4
GROUP BY ins_deel_state || res_deel_state;
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_donderdag_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 9
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
AND dagnr = 5
GROUP BY ins_deel_state || res_deel_state;
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_vrijdag_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 9
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
AND dagnr = 6
GROUP BY ins_deel_state || res_deel_state;
CREATE OR REPLACE VIEW uwva_v_fwhere_pie_maand_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_,
FCLT_URL,
FCLT_SORT
)
AS
SELECT '',
DECODE (ins_deel_state || res_deel_state,
'00', 'Vrij',
'01', 'Vrij vergadering gepland',
'10', 'Bezet, geen vergadering',
'Bezet'),
SUM (tmdatum - vandatum),
'',
ins_deel_state || res_deel_state
FROM t_uwva_v_flexwhere_insres_vant t1
WHERE t1.jaar =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy'))
AND t1.maand =
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
AND t1.uur >= 09
AND ( (t1.uur = 16 AND t1.MIN = 0) OR (t1.uur < 16))
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
GROUP BY ins_deel_state || res_deel_state;
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Lijngrafieken, hierin zijn de RES-gegevens niet relevant, alleen de sensor-bezetting info zit in de lijngrafiek
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Voorbeeld uitleg hoe deze view eruit ziet, vanuit uwva_v_flexwhere_ins_kwartier gemaakt:
-- uwva_v_flexwhere_ins_kwartier:
-- ins_deel_key, ins_deel_state, ins_deel_statedate
-- 14981 FW3 NULL 23-6-2014 09:00:00 -> dan hier bezet (1), is inverse van volgende regel (0)
-- 14981 FW3 0 23-6-2014 15:45:03 -> vanaf hier vrij, inverse van volgende regel (1)
-- 14981 FW3 1 23-6-2014 15:48:28 -> etc
-- 14981 FW3 0 23-6-2014 15:48:42
-- 14981 FW3 NULL 23-6-2014 16:00:00 -> Hier die van de VORIGE(!!!) regel.
--- En dat wordt dan:
-- uwva_v_flexwhere_ins_vantot:
-- ins_deel_key, ins_deel_state,vandatum, tmdatum
-- 14981 0 20-6-2014 16:00:00 23-6-2014 09:00:00
-- 14981 1 23-6-2014 09:00:00 23-6-2014 15:45:03
-- 14981 0 23-6-2014 15:45:03 23-6-2014 15:48:28
-- 14981 1 23-6-2014 15:48:28 23-6-2014 15:48:42
-- 14981 0 23-6-2014 15:48:42 23-6-2014 16:00:00
CREATE OR REPLACE VIEW uwva_v_flexwhere_ins_vantot
(
ins_deel_key,
state_code,
ins_deel_state,
vandatum,
tmdatum,
jaar,
maand,
dag,
dagnr,
uur,
min2
)
AS
SELECT ins_deel_key,
state_code,
COALESCE (
ABS (ins_deel_state - 1),
(SELECT ABS (MAX (fac.safe_to_number (ins_deel_state)) - 1)
FROM ins_deel_state_history a
WHERE a.ins_deel_statedate =
(SELECT MIN (ins_deel_statedate)
FROM ins_deel_state_history b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE >=
t1.INS_DEEL_STATEDATE)
AND a.ins_deel_key = t1.ins_deel_key),
(SELECT MAX (fac.safe_to_number (ins_deel_state))
FROM ins_deel_state_history a
WHERE a.ins_deel_statedate =
(SELECT MAX (ins_deel_statedate)
FROM ins_deel_state_history b
WHERE B.INS_DEEL_KEY = t1.ins_deel_key
AND B.INS_DEEL_STATEDATE <
t1.INS_DEEL_STATEDATE)
AND a.ins_deel_key = t1.ins_deel_key),
0)
ins_state,
COALESCE (
LAG (ins_deel_statedate, 1)
OVER (ORDER BY ins_deel_key, ins_deel_statedate),
TO_DATE ('01-01-2010', 'DD-MM-YYYY'))
AS vandatum,
ins_deel_statedate AS tmdatum,
jaar,
maand,
dag,
dagnr,
uur,
min2
FROM uwva_v_flexwhere_ins_kwartier t1;
CREATE OR REPLACE VIEW uwva_v_fwhere_line_maand_1
(
dagnr,
tijd,
ins_deel_state,
delta_tijd
)
AS
SELECT dagnr,
uur || ':' || min2,
ins_deel_state,
COUNT ( * )
FROM uwva_v_flexwhere_ins_vantot t1
WHERE TO_CHAR (vandatum, 'hh24') >= 9
AND TO_CHAR (vandatum, 'hh24') < 16
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
GROUP BY dagnr, uur || ':' || min2, ins_deel_state
UNION ALL
SELECT dagnr,
uur || ':' || min2,
ins_deel_state,
COUNT ( * )
FROM uwva_v_flexwhere_ins_vantot t1
WHERE (TO_CHAR (tmdatum, 'hh24') = 16 AND TO_CHAR (tmdatum, 'mi') = 0)
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
AND TRUNC (vandatum) = TRUNC (tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
GROUP BY dagnr, uur || ':' || min2, ins_deel_state
UNION ALL
SELECT dagnr,
uur || ':' || min2,
ins_deel_state,
COUNT ( * )
FROM uwva_v_flexwhere_ins_vantot t1
WHERE (TO_CHAR (tmdatum, 'hh24') = 9 AND TO_CHAR (tmdatum, 'mi') = 0)
AND state_code <> 'A'
AND vandatum <> tmdatum -- dezelfde timestamps uitsluiten: is mogelijk als toevallig res-tijd vanaf 09:00 of tot 16:00 met de A en B code regels
--AND TRUNC(vandatum) = TRUNC(tmdatum) -- wel op dezelfde dag, vandatum vrijdag 16:00 en tmdatum maandag 09:00 kan toevallig worden generereerd, dus hier eruit.
GROUP BY dagnr, uur || ':' || min2, ins_deel_state;
-- View die per dag (maandag, dinsdag... vrijdag) alle kwartiertjes tussen 09:00 en 16:00 de bezetting (in kwartiertjes geteld) ten opzichte van het totaal aantal kwartiertjes
CREATE OR REPLACE VIEW uwva_v_fwhere_lgraph_maand_1
(
dagnr,
tijd,
bezet,
totaal
)
AS
SELECT dagnr,
tijd,
SUM (a),
SUM (b)
FROM ( SELECT dagnr,
tijd,
ins_deel_state * SUM (delta_tijd) a,
SUM (delta_tijd) b
FROM uwva_v_fwhere_line_maand_1 t1
GROUP BY dagnr, tijd, ins_deel_state)
GROUP BY dagnr, tijd;
CREATE OR REPLACE VIEW uwva_v_fwhere_linegrap_maand_1
(
fclt_key,
FCLT_XAS_,
FCLT_YAS_MAANDAG,
FCLT_YAS2_DINSDAG,
FCLT_YAS3_WOENSDAG,
FCLT_YAS4_DONDERDAG,
FCLT_YAS5_VRIJDAG,
FCLT_URL
)
AS
WITH XX AS (SELECT * FROM t_uwva_v_fwhere_lgraph_maand_1)
SELECT '',
tijd,
(SELECT ROUND (100 * bezet / totaal, 2)
FROM XX b
WHERE dagnr = 2 AND b.tijd = a.tijd),
(SELECT ROUND (100 * bezet / totaal, 2)
FROM XX b
WHERE dagnr = 3 AND b.tijd = a.tijd),
(SELECT ROUND (100 * bezet / totaal, 2)
FROM XX b
WHERE dagnr = 4 AND b.tijd = a.tijd),
(SELECT ROUND (100 * bezet / totaal, 2)
FROM XX b
WHERE dagnr = 5 AND b.tijd = a.tijd),
(SELECT ROUND (100 * bezet / totaal, 2)
FROM XX b
WHERE dagnr = 6 AND b.tijd = a.tijd),
''
FROM t_uwva_v_fwhere_lgraph_maand_1 a
GROUP BY a.tijd;
CREATE OR REPLACE VIEW uwva_v_rap_flexwhere
(
jaar,
maand
)
AS
SELECT DECODE (TO_CHAR (SYSDATE, 'mm'),
1, TO_CHAR (SYSDATE, 'yyyy') - 1,
TO_CHAR (SYSDATE, 'yyyy')),
DECODE (TO_CHAR (SYSDATE, 'mm'),
1, 12,
TO_CHAR (SYSDATE, 'mm') - 1)
FROM DUAL;
--
-- einde UWVA#29757: Flexwhere: Configuratie tbv bezettingsrapportages -----------
--
-- Handelsdrukwerk
CREATE OR REPLACE VIEW uwva_v_visitekaartje
(
prs_perslid_key,
naam,
functie,
gebouwcode,
adres,
postcode,
plaats,
postadres,
postpostcode,
postplaats,
telefoon1,
telefoon2,
mobiel1,
mobiel2,
email,
fax1,
fax2
)
AS
SELECT p.prs_perslid_key,
DECODE (COALESCE (RTRIM (p.prs_perslid_titel), ''),
'', '',
'(' || LOWER (p.prs_perslid_titel) || ') ')
|| DECODE (COALESCE (p.prs_perslid_voornaam, ''),
'', '',
p.prs_perslid_voornaam || ' ')
|| DECODE (COALESCE (p.prs_perslid_tussenvoegsel, ''),
'', '',
p.prs_perslid_tussenvoegsel || ' ')
|| prs_perslid_naam
naam,
prs_srtperslid_omschrijving functie,
pgl.alg_gebouw_code,
l.alg_locatie_adres adres,
l.alg_locatie_postcode postcode,
l.alg_locatie_plaats plaats,
l.alg_locatie_post_adres postadres,
l.alg_locatie_post_postcode postpostcode,
l.alg_locatie_post_plaats postplaats,
TRIM(DECODE (
SUBSTR (p.prs_perslid_telefoonnr, 1, 1),
'(',
SUBSTR (p.prs_perslid_telefoonnr,
2,
INSTR (p.prs_perslid_telefoonnr, ')') - 2),
SUBSTR (p.prs_perslid_telefoonnr,
1,
INSTR (p.prs_perslid_telefoonnr, '-') - 1)))
telefoon1,
TRIM(DECODE (
SUBSTR (p.prs_perslid_telefoonnr, 1, 1),
'(',
SUBSTR (p.prs_perslid_telefoonnr,
INSTR (p.prs_perslid_telefoonnr, ')') + 1),
SUBSTR (p.prs_perslid_telefoonnr,
INSTR (p.prs_perslid_telefoonnr, '-') + 1)))
telefoon2,
TRIM(DECODE (
SUBSTR (p.prs_perslid_mobiel, 1, 1),
'(',
SUBSTR (p.prs_perslid_mobiel,
2,
INSTR (p.prs_perslid_mobiel, ')') - 2),
SUBSTR (p.prs_perslid_mobiel,
1,
INSTR (p.prs_perslid_mobiel, '-') - 1)))
mobiel1,
TRIM(DECODE (
SUBSTR (p.prs_perslid_mobiel, 1, 1),
'(',
SUBSTR (p.prs_perslid_mobiel,
INSTR (p.prs_perslid_mobiel, ')') + 1),
SUBSTR (p.prs_perslid_mobiel,
INSTR (p.prs_perslid_mobiel, '-') + 1)))
mobiel2,
p.prs_perslid_email email,
TRIM(DECODE (
SUBSTR (kl.prs_kenmerklink_waarde, 1, 1),
'(',
SUBSTR (kl.prs_kenmerklink_waarde,
2,
INSTR (kl.prs_kenmerklink_waarde, ')') - 2),
SUBSTR (kl.prs_kenmerklink_waarde,
1,
INSTR (kl.prs_kenmerklink_waarde, '-') - 1)))
fax1,
TRIM(DECODE (
SUBSTR (kl.prs_kenmerklink_waarde, 1, 1),
'(',
SUBSTR (kl.prs_kenmerklink_waarde,
INSTR (kl.prs_kenmerklink_waarde, ')') + 1),
SUBSTR (kl.prs_kenmerklink_waarde,
INSTR (kl.prs_kenmerklink_waarde, '-') + 1)))
fax2
FROM prs_perslid p,
prs_srtperslid sp,
alg_locatie l,
(SELECT alg_locatie_key,
g.alg_gebouw_key,
g.alg_gebouw_code,
prs_perslid_key
FROM (SELECT prs_perslid_key,
(SELECT MAX (alg_ruimte_key)
FROM prs_v_perslidwerkplek_gegevens pwg
WHERE pwg.prs_perslid_key = pb.prs_perslid_key
AND pwg.prs_perslidwerkplek_bezetting =
pb.prs_perslidwerkplek_bezetting)
alg_ruimte_key
FROM ( SELECT prs_perslid_key,
MAX (prs_perslidwerkplek_bezetting)
prs_perslidwerkplek_bezetting
FROM prs_perslidwerkplek pw, prs_werkplek wp
WHERE pw.prs_werkplek_key = wp.prs_werkplek_key
AND wp.prs_werkplek_virtueel = 0
GROUP BY prs_perslid_key) pb) pr,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE pr.alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key) pgl,
(SELECT prs_link_key, prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE prs_kenmerk_key = 7 AND prs_kenmerklink_verwijder IS NULL)
kl
WHERE p.prs_srtperslid_key = sp.prs_srtperslid_key
AND p.prs_perslid_key = pgl.prs_perslid_key(+)
AND pgl.alg_locatie_key = l.alg_locatie_key(+)
AND p.prs_perslid_key = kl.prs_link_key(+);
CREATE OR REPLACE VIEW UWVA_V_HD_RECEIVERS
(
PRS_PERSLID_KEY
)
AS
SELECT fac.safe_to_number (fd.FAC_USRDATA_OMSCHR)
FROM FAC_USRDATA fd
WHERE fd.FAC_USRTAB_KEY = 62
AND fd.FAC_USRDATA_UPPER LIKE 'SYS_PRS_BES_HD%';
CREATE OR REPLACE VIEW UWVA_V_NOTI_BES_HD
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY
)
AS
SELECT DISTINCT
'BESMAI',
NULL,
bo_hd.prs_perslid_key,
'Retour bestelling '
|| b.bes_bestelling_key
|| ' (Reden:'
|| b.bes_bestelling_opmerking
|| ')',
b.bes_bestelling_key,
NULL
FROM bes_bestelling b,
bes_bestelling_item bi,
bes_srtdeel sd,
bes_srtgroep sg,
UWVA_V_HD_RECEIVERS bo_hd
WHERE b.BES_BESTELLING_RETOURVAN_KEY IS NOT NULL
AND TRUNC (b.BES_BESTELLING_DATUM) = TRUNC (SYSDATE) - 1
-- AND to_number(to_char(b.BES_BESTELLING_DATUM,'HH24')) = to_number(to_char(sysdate,'HH24')) - 1
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key IN
(SELECT TO_NUMBER (fd.FAC_USRDATA_OMSCHR)
FROM FAC_USRDATA fd
WHERE fd.FAC_USRTAB_KEY = 62
AND fd.FAC_USRDATA_UPPER LIKE 'SYS_RETOUR_BES_HD%');
-- UWVA#555
CREATE OR REPLACE VIEW uwva_v_kz_zonder_bezoek
(
datum,
tijdstip,
fclt_3d_locatie_key,
fclt_f_locatie,
ruimte,
reservering,
omschrijving,
aangemaakt_door
)
AS
SELECT res_rsv_ruimte_van,
TO_CHAR (res_rsv_ruimte_van, 'HH24:MI') tijdstip,
l.alg_locatie_key,
alg_locatie_code,
res_ruimte_nr,
TO_CHAR (res_r.res_reservering_key),
rg.res_rsv_ruimte_omschrijving,
pf.prs_perslid_naam_full
FROM alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l,
res_v_aanwezigreservering res_r,
prs_v_perslid_fullnames pf,
(SELECT r.res_reservering_key,
r.res_rsv_ruimte_key,
r.res_ruimte_opstel_key,
ro.res_ruimte_key,
ra.alg_ruimte_key,
r.res_rsv_ruimte_van,
r.res_rsv_ruimte_tot,
r.res_status_fo_key,
rr.res_discipline_key,
rr.res_ruimte_nr,
r.res_rsv_ruimte_omschrijving
FROM res_rsv_ruimte r,
res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte ra
WHERE r.res_rsv_ruimte_verwijder IS NULL
AND ra.res_alg_ruimte_verwijder IS NULL
AND rr.res_ruimte_verwijder IS NULL
AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_ruimte_key = ra.res_ruimte_key) rg
WHERE rg.res_discipline_key IN (126, 121, 125, 122, 123, 124, 138)
AND res_rsv_ruimte_van > SYSDATE
AND rg.alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND rg.res_reservering_key = res_r.res_reservering_key
AND fac.gettrackinguserkey ('RESNEW', rg.res_rsv_ruimte_key) =
pf.prs_perslid_key
AND NOT EXISTS
(SELECT a.res_rsv_ruimte_key
FROM bez_afspraak a
WHERE a.res_rsv_ruimte_key = rg.res_rsv_ruimte_key);
CREATE OR REPLACE VIEW uwva_v_stats_users_today
(
naam,
ingelogd,
rol,
i
)
AS
SELECT prs_perslid_naam_full,
prs_perslid_login,
(SELECT MIN (fac_groep_omschrijving)
FROM fac_gebruikersgroep gg, fac_groep g
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key)
|| DECODE (
(SELECT COUNT (fac_groep_omschrijving)
FROM fac_gebruikersgroep gg, fac_groep g
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key),
1,
'',
'...'),
1
FROM prs_perslid p, prs_v_perslid_fullnames pf
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND TRUNC (prs_perslid_login) = TRUNC (SYSDATE);
CREATE OR REPLACE VIEW uwva_v_beheer_prs_extern
(
locatie,
fclt_3d_locatie_key,
naam
)
AS
SELECT (SELECT MIN (alg_locatie_code)
FROM prs_v_werkplekperslid_gegevens wg, alg_locatie l
WHERE wg.prs_perslid_key = p.prs_perslid_key
AND wg.alg_locatie_key = l.alg_locatie_key),
(SELECT MIN (alg_locatie_key)
FROM prs_v_werkplekperslid_gegevens wg
WHERE wg.prs_perslid_key = p.prs_perslid_key),
prs_perslid_naam_full
FROM prs_v_aanwezigperslid p, prs_v_perslid_fullnames pf
WHERE p.prs_perslid_key = pf.prs_perslid_key AND p.prs_perslid_nr IS NULL;
-- Rapportages
-- Wat bonusrapportages
-- Bonus: aantal personen per locatie
CREATE OR REPLACE VIEW uwva_v_stats_01_pploc
(
locatie,
aantal
)
AS
SELECT l.alg_locatie_omschrijving, COUNT ( * )
FROM prs_v_aanwezigperslid p,
prs_werkplek wp,
prs_perslidwerkplek pw,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE pw.prs_perslid_key = p.prs_perslid_key
AND pw.prs_werkplek_key = wp.prs_werkplek_key
AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
GROUP BY l.alg_locatie_omschrijving
UNION
SELECT '[Geen locatie]', COUNT ( * )
FROM prs_v_aanwezigperslid p, prs_perslidwerkplek pw
WHERE pw.prs_perslid_key(+) = p.prs_perslid_key
AND pw.prs_werkplek_key IS NULL;
-- Bonus: aantal locaties/medewerkers per servicepunt
CREATE OR REPLACE VIEW uwva_v_stats_02_plpfsp
(
fclt_f_servicepunt,
locaties,
medewerkers
)
AS
SELECT alg_district_omschrijving, COUNT ( * ), SUM (aantal)
FROM ( SELECT d.alg_district_omschrijving,
l.alg_locatie_omschrijving,
COUNT ( * ) aantal
FROM prs_v_aanwezigperslid p,
prs_werkplek wp,
prs_perslidwerkplek pw,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l,
alg_district d
WHERE pw.prs_perslid_key = p.prs_perslid_key
AND pw.prs_werkplek_key = wp.prs_werkplek_key
AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
GROUP BY d.alg_district_omschrijving, l.alg_locatie_omschrijving
UNION
SELECT '[Onbekend]', '??', COUNT ( * )
FROM prs_v_aanwezigperslid p, prs_perslidwerkplek pw
WHERE pw.prs_perslid_key(+) = p.prs_perslid_key
AND pw.prs_werkplek_key IS NULL)
GROUP BY alg_district_omschrijving;
CREATE OR REPLACE VIEW uwva_v_stats_03_bezreceptie
(
hide_f_locatiecode,
fclt_3d_locatie_key,
fclt_f_locatie,
afpraak_key,
bezoek_voor,
fclt_f_afspraak_datum,
fclt_f_pool
)
AS
SELECT l.alg_locatie_code,
a.alg_locatie_key,
l.alg_locatie_code,
a.bez_afspraak_key,
pf.prs_perslid_naam_full,
a.bez_afspraak_datum,
DECODE (rp.res_reservering_ispool, 1, 'Ja', 'Nee')
FROM bez_afspraak a,
bez_bezoekers b,
fac_gebruikersgroep gg,
prs_v_perslid_fullnames pf,
alg_locatie l,
(SELECT res_rsv_ruimte_key, res_reservering_ispool
FROM res_reservering rr, res_rsv_ruimte rrr
WHERE rr.res_reservering_key = rrr.res_reservering_key
AND rr.res_reservering_ispool = 1) rp
WHERE gg.fac_groep_key = 1301
AND a.prs_perslid_key = gg.prs_perslid_key
AND pf.prs_perslid_key = a.bez_afspraak_contact_key
AND l.alg_locatie_key = a.alg_locatie_key
AND rp.res_rsv_ruimte_key(+) = a.res_rsv_ruimte_key
AND b.bez_afspraak_key = a.bez_afspraak_key;
CREATE OR REPLACE VIEW uwva_v_sp_01_mldperdistrict
(
fclt_f_maand,
fclt_f_servicepunt,
fclt_f_soort,
productgroep,
aantal,
fclt_3d_locatie_key
)
AS
SELECT TO_CHAR (m.mld_melding_datum, 'YYMM'),
d.alg_district_omschrijving,
sv.ins_srtdiscipline_omschrijving,
v.ins_discipline_omschrijving,
COUNT ( * ) aantal,
MIN (l.alg_locatie_key)
FROM mld_melding m,
mld_stdmelding std,
alg_locatie l,
alg_district d,
ins_tab_discipline v,
ins_srtdiscipline sv
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND d.alg_district_key(+) = l.alg_district_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = v.ins_discipline_key
AND sv.ins_srtdiscipline_key = v.ins_srtdiscipline_key
AND m.mld_melding_datum > SYSDATE - 547
GROUP BY TO_CHAR (m.mld_melding_datum, 'YYMM'),
d.alg_district_omschrijving,
sv.ins_srtdiscipline_omschrijving,
v.ins_discipline_omschrijving;
CREATE OR REPLACE VIEW uwva_v_sp_02_mldperloc
(
fclt_f_maand,
fclt_f_servicepunt,
locatie,
fclt_f_soort,
productgroep,
aantal,
fclt_3d_locatie_key
)
AS
SELECT TO_CHAR (m.mld_melding_datum, 'YYMM'),
d.alg_district_omschrijving,
l.alg_locatie_omschrijving,
sv.ins_srtdiscipline_omschrijving,
v.ins_discipline_omschrijving,
COUNT ( * ) aantal,
MIN (l.alg_locatie_key)
FROM mld_melding m,
mld_stdmelding std,
alg_locatie l,
alg_district d,
ins_tab_discipline v,
ins_srtdiscipline sv
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND d.alg_district_key(+) = l.alg_district_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = v.ins_discipline_key
AND sv.ins_srtdiscipline_key = v.ins_srtdiscipline_key
AND m.mld_melding_datum > SYSDATE - 547
GROUP BY TO_CHAR (m.mld_melding_datum, 'YYMM'),
d.alg_district_omschrijving,
l.alg_locatie_omschrijving,
sv.ins_srtdiscipline_omschrijving,
v.ins_discipline_omschrijving;
CREATE OR REPLACE VIEW uwva_v_sp_04_fac_gebruikers
(
fclt_f_servicepunt,
fclt_f_rol,
fclt_f_naam,
nummer,
profiel,
email,
fclt_f_pandcode,
afdeling,
fclt_f_kostenplaats,
fclt_f_login,
datum,
fclt_3d_locatie_key
)
AS
SELECT di.alg_district_omschrijving fclt_f_servicepunt,
g.fac_groep_omschrijving fclt_f_rol,
pf.prs_perslid_naam_full fclt_f_naam,
p.prs_perslid_nr,
pr.fac_profiel_omschrijving,
p.prs_perslid_email email,
w.alg_gebouw_code fclt_f_pandcode,
d.prs_afdeling_naam afdeling,
NVL (kp.prs_kostenplaats_nr,
DECODE (pk.prs_perslidkostenplaats_key, NULL, '', 'Alle'))
fclt_f_kostenplaats,
p.prs_perslid_oslogin fclt_f_login,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1004)
datum,
l.alg_locatie_key
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
fac_gebruikersgroep gg,
fac_groep g,
fac_profiel pr,
prs_v_werkplek_gegevens w,
prs_perslidwerkplek pw,
alg_locatie l,
alg_district di,
prs_perslidkostenplaats pk,
prs_kostenplaats kp,
prs_afdeling d
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND p.prs_afdeling_key = d.prs_afdeling_key
AND g.fac_groep_key = gg.fac_groep_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND w.prs_werkplek_key = pw.prs_werkplek_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND w.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = di.alg_district_key
AND kp.prs_kostenplaats_key(+) = pk.prs_kostenplaats_key
AND pk.prs_perslid_key(+) = p.prs_perslid_key
AND p.fac_profiel_key = pr.fac_profiel_key(+);
-- UWVA#12455
CREATE OR REPLACE VIEW UWVA_V_SP_05_FAC_GEBRUIKERS_MW
(
FCLT_F_SERVICEPUNT,
ROL,
FCLT_F_NAAM,
NUMMER,
PROFIEL,
FCLT_F_EMAIL,
FCLT_F_PANDCODE,
KOSTENPLAATS,
FCLT_F_LOGIN,
DATUM,
FCLT_3D_LOCATIE_KEY
)
AS
SELECT DISTINCT
di.alg_district_omschrijving fclt_f_servicepunt,
(SELECT MIN (g.fac_groep_omschrijving)
|| DECODE (COUNT ( * ), 1, '', '...')
FROM fac_gebruikersgroep gg, fac_groep g
WHERE g.fac_groep_key = gg.fac_groep_key
AND gg.prs_perslid_key = p.prs_perslid_key),
pf.prs_perslid_naam_full fclt_f_naam,
p.prs_perslid_nr,
pr.fac_profiel_omschrijving,
p.prs_perslid_email email,
(SELECT MIN (w.alg_gebouw_code)
|| DECODE (COUNT ( * ), 1, '', '...')
FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = p.prs_perslid_key)
fclt_f_pandcode,
k.prs_kostenplaats_nr,
p.prs_perslid_oslogin fclt_f_login,
(SELECT kl.prs_kenmerklink_waarde
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = p.prs_perslid_key
AND kl.prs_kenmerk_key = 1004)
datum,
(SELECT MIN (l.alg_locatie_key)
FROM prs_v_werkplek_gegevens w,
prs_perslidwerkplek pw,
alg_locatie l
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = p.prs_perslid_key
AND w.alg_locatie_key = l.alg_locatie_key)
alg_locatie_key
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
fac_gebruikersgroep gg,
fac_profiel pr,
prs_v_werkplek_gegevens w,
prs_perslidwerkplek pw,
alg_locatie l,
alg_district di,
prs_afdeling d,
prs_kostenplaats k
WHERE gg.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND w.prs_werkplek_key = pw.prs_werkplek_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND w.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = di.alg_district_key
AND p.prs_afdeling_key = d.prs_afdeling_key
AND k.prs_kostenplaats_key(+) = d.prs_kostenplaats_key
AND p.fac_profiel_key = pr.fac_profiel_key(+)
ORDER BY 1, 2, 3;
-- UWVA#15946/UWVA#83691
CREATE OR REPLACE VIEW UWVA_V_SP_06_FAC_GEBRUIKERS_MW
(
FCLT_F_SERVICEPUNT,
FCLT_F_ROL,
FCLT_F_NAAM,
NUMMER,
FUNCTIE,
PROFIEL,
EMAIL,
PANDCODE,
KOSTENPLAATS,
LOGIN,
--DATUM,
FCLT_3D_LOCATIE_KEY
)
AS
SELECT DISTINCT
d.alg_district_omschrijving,
g.fac_groep_omschrijving,
pf.prs_perslid_naam_full,
p.prs_perslid_nr,
sp.prs_srtperslid_omschrijving,
pr.fac_profiel_omschrijving,
p.prs_perslid_email,
(SELECT MIN (w.alg_gebouw_code) || DECODE (COUNT ( * ), 1, '', '...')
FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = p.prs_perslid_key),
k.prs_kostenplaats_nr,
p.prs_perslid_oslogin,
--(SELECT kl.prs_kenmerklink_waarde
-- FROM prs_kenmerklink kl
-- WHERE kl.prs_kenmerk_key = 1004 -- Datum wijziging rechten (in 2010 verwijderd)
-- AND kl.prs_link_key = p.prs_perslid_key)
-- datum,
(SELECT MIN (w.alg_locatie_key)
FROM prs_v_werkplek_gegevens w, prs_perslidwerkplek pw
WHERE w.prs_werkplek_key = pw.prs_werkplek_key
AND pw.prs_perslid_key = p.prs_perslid_key)
alg_locatie_key
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_afdeling a,
prs_kostenplaats k,
prs_srtperslid sp,
fac_profiel pr,
fac_gebruikersgroep gg,
fac_groep g,
prs_perslidwerkplek pw,
prs_v_werkplek_gegevens w,
alg_locatie l,
alg_district d
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND p.prs_srtperslid_key = sp.prs_srtperslid_key(+)
AND p.fac_profiel_key = pr.fac_profiel_key(+)
AND p.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND pw.prs_werkplek_key = w.prs_werkplek_key
AND w.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key;
/* Toch anders?
SELECT d.alg_district_omschrijving,
g.fac_groep_omschrijving,
pf.prs_perslid_naam_full,
p.prs_perslid_nr,
sp.prs_srtperslid_omschrijving,
pr.fac_profiel_omschrijving,
p.prs_perslid_email email,
MIN (w.alg_gebouw_code) || DECODE (COUNT ( * ), 1, '', '...'),
k.prs_kostenplaats_nr,
p.prs_perslid_oslogin,
--(SELECT kl.prs_kenmerklink_waarde
-- FROM prs_kenmerklink kl
-- WHERE kl.prs_kenmerk_key = 1004 -- Datum wijziging rechten (in 2010 verwijderd)
-- AND kl.prs_link_key = p.prs_perslid_key)
-- datum,
MIN (w.alg_locatie_key) alg_locatie_key
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_afdeling a,
prs_kostenplaats k,
prs_srtperslid sp,
fac_profiel pr,
fac_gebruikersgroep gg,
fac_groep g,
prs_perslidwerkplek pw,
prs_v_werkplek_gegevens w,
alg_locatie l,
alg_district d
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND p.prs_srtperslid_key = sp.prs_srtperslid_key(+)
AND p.fac_profiel_key = pr.fac_profiel_key(+)
AND p.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_key = pw.prs_perslid_key
AND pw.prs_werkplek_key = w.prs_werkplek_key
AND w.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
GROUP BY d.alg_district_omschrijving,
g.fac_groep_omschrijving,
pf.prs_perslid_naam_full,
p.prs_perslid_nr,
sp.prs_srtperslid_omschrijving,
pr.fac_profiel_omschrijving,
p.prs_perslid_email,
k.prs_kostenplaats_nr,
p.prs_perslid_oslogin;
*/
-- UWVA#15656
CREATE OR REPLACE VIEW uwva_v_imp_bes_artikel_sync
(
FCLT_F_CatalogusNaam,
Leverancier,
CatDatum,
Artikelnr,
Groep,
Omschrijving,
Prijs,
Eenheid,
Picture,
Orderaantal,
Tax,
DueDate,
Inkoopprijs,
Minimum,
Staffeltabel,
Wijzigdagen,
Annuleerdagen,
Opmerking
)
AS
SELECT td.ins_discipline_omschrijving,
b.prs_bedrijf_naam,
TO_CHAR (td.ins_discipline_aanmaak, 'yyyymmdd'),
sd.bes_srtdeel_nr,
sg.bes_srtgroep_omschrijving,
sd.bes_srtdeel_omschrijving,
TO_CHAR (bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL)),
sd.bes_srtdeel_eenheid,
sd.bes_srtdeel_image,
TO_CHAR (sd.bes_srtdeel_veelvoud),
TO_CHAR (sd.bes_srtdeel_btw),
TO_CHAR (sd.bes_srtdeel_vervaldatum, 'yyyymmdd'),
TO_CHAR (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, NULL)),
NULL,
bs.bes_staffeltabel_naam,
sd.bes_srtdeel_wijzigdagen,
sd.bes_srtdeel_annuleerdagen,
sd.bes_srtdeel_opmerking
FROM ins_tab_discipline td,
bes_srtgroep sg,
bes_srtdeel sd,
prs_bedrijf b,
bes_staffeltabel bs
WHERE td.ins_discipline_module = 'BES'
AND td.ins_discipline_verwijder IS NULL
AND td.ins_discipline_key = sg.ins_discipline_key
AND sg.bes_srtgroep_verwijder IS NULL
AND sg.bes_srtgroep_key = sd.bes_srtgroep_key
AND sd.bes_srtdeel_verwijder IS NULL
AND sd.prs_bedrijf_key = b.prs_bedrijf_key
AND bs.bes_staffeltabel_key(+) = sd.bes_staffeltabel_key;
-- UWVA#201
CREATE OR REPLACE VIEW uwva_v_stats_04_res_artikel
(
fclt_f_dag,
fclt_f_gebouwcode,
fclt_3d_gebouw_key,
fclt_f_voorziening,
aantal,
prijs_per_stuk,
totaal,
totaal_afgemeld
)
AS
SELECT datum,
(SELECT alg_gebouw_code
FROM alg_gebouw g
WHERE g.alg_gebouw_key = gebouw_key),
gebouw_key,
res_voorziening,
SUM (aantal),
stuksprijs,
SUM (prijs),
SUM (verw_prijs)
FROM (SELECT ruimte_geg.alg_gebouw_key AS gebouw_key,
res_geg.res_voorziening,
TO_CHAR (res_geg.res_reservering_van, 'YYYY-MM-DD') datum,
res_geg.res_item_key,
res_geg.res_type categorie,
res_geg.aantal,
res_geg.stuksprijs,
res_geg.verw_prijs,
prijs
FROM (SELECT 'C' AS res_type,
rrr.alg_ruimte_key AS alg_ruimte_key,
rrr.res_rsv_ruimte_key AS res_rsv_ruimte_key,
(SELECT rro.res_ruimte_key
FROM res_ruimte_opstelling rro
WHERE rro.res_ruimte_opstel_key =
rrr.res_ruimte_opstel_key)
AS res_ruimte_key,
res_rsv_artikel_key AS res_item_key,
rrr.res_reservering_key AS res_reservering_key,
rra.res_rsv_artikel_levering AS res_reservering_van,
rra.res_rsv_artikel_aantal AS aantal,
LTRIM (ra.res_artikel_omschrijving)
|| ' ('
|| NVL (ra.res_artikel_eenheid, '')
|| ')'
AS res_voorziening,
ra.res_discipline_key AS res_ins_discipline_key,
ra.res_artikel_key AS res_artikel_key,
rra.res_rsv_artikel_aantal * ra.res_artikel_prijs
AS prijs,
rra.res_rsv_artikel_prijs AS verw_prijs,
ra.res_artikel_prijs AS stuksprijs,
TO_NUMBER (NULL) AS rsv_ruimte_aantal
FROM res_v_aanwezigrsv_artikel rra,
res_artikel ra,
res_rsv_ruimte rrr
WHERE rra.res_artikel_key = ra.res_artikel_key
AND rra.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key)
res_geg,
res_v_alg_ruimte_gegevens ruimte_geg,
alg_locatie l
WHERE (res_geg.alg_ruimte_key = ruimte_geg.alg_ruimte_key
OR (res_geg.res_ruimte_key = ruimte_geg.res_ruimte_key
AND ruimte_geg.alg_ruimte_key IN
(SELECT MIN (alg_ruimte_key)
FROM res_v_alg_ruimte_gegevens rvar
WHERE rvar.res_ruimte_key =
res_geg.res_ruimte_key)))
AND l.alg_locatie_key = ruimte_geg.alg_locatie_key)
WHERE categorie = 'C'
GROUP BY res_voorziening,
stuksprijs,
gebouw_key,
datum;
-- SPOBILO-rapportages (UWVA#9328)
-- Basis view met SPOBILO's
CREATE OR REPLACE VIEW uwva_v_spobilo
(
melding,
tekst_melding,
locatie,
servicepunt,
aanmaak,
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer
)
AS
SELECT m.mld_melding_key melding,
m.mld_melding_omschrijving tekst_melding,
l.alg_locatie_code locatie,
d.alg_district_omschrijving servicepunt,
m.mld_melding_datum aanmaak,
TO_CHAR (m.mld_melding_datum, 'HH24') tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer
FROM (SELECT km.mld_melding_key m1, ud.fac_usrdata_omschr reden_bezoek
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 102 -- 'REDEN BEZOEK'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m2, ud.fac_usrdata_omschr soort_client
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 104 -- 'SOORT CLIENT'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m3, ud.fac_usrdata_omschr afdeling
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 101 -- 'AFDELING'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m4, ud.fac_usrdata_omschr afhandeling
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 111 -- 'AFHANDELING'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m5, ud.fac_usrdata_omschr kontakt_kcc
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 107 -- 'KONTAKT KCC'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m6, ud.fac_usrdata_omschr klant_geholpen
FROM mld_kenmerkmelding km, fac_usrdata ud
WHERE km.mld_kenmerk_key = 113 -- 'KLANT GEHOLPEN'
AND fac.safe_to_number (km.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key),
(SELECT km.mld_melding_key m7,
km.mld_kenmerkmelding_waarde bsn_nummer
FROM mld_kenmerkmelding km
WHERE km.mld_kenmerk_key = 109), -- 'BSN'
mld_melding m,
--mld_stdmelding sm,
alg_locatie l,
alg_district d
WHERE m.mld_melding_key = m1(+)
AND m.mld_melding_key = m2(+)
AND m.mld_melding_key = m3(+)
AND m.mld_melding_key = m4(+)
AND m.mld_melding_key = m5(+)
AND m.mld_melding_key = m6(+)
AND m.mld_melding_key = m7(+)
--AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND m.mld_stdmelding_key = 361 -- Registratie
--AND sm.mld_ins_discipline_key = 165 -- SBL - SpoBiLo
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
ORDER BY m.mld_melding_key;
-- SPOBILO-PACKAGE
CREATE OR REPLACE PACKAGE uwva_spobilo_rap
AS
TYPE t_cursor IS REF CURSOR;
PROCEDURE servicepunt (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE tijdsblok (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE reden_bezoek (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE soort_bezoek (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE afdeling (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE afhandeling (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE kontakt_kcc (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE klant_geholpen (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE details (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE details_extra (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
END;
/
-- SPOBILO-PROCEDURES in PACKAGE BODY (1 per rapportage)
CREATE OR REPLACE PACKAGE BODY uwva_spobilo_rap
AS
-- Aantal/percentage SPOBILO's per servicepunt
PROCEDURE servicepunt (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT servicepunt,
COUNT (servicepunt) aantal,
ROUND (ratio_to_report (COUNT (servicepunt)) OVER () * 100,
2)
percentage
FROM (SELECT servicepunt
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY servicepunt
ORDER BY servicepunt;
END;
-- Aantal/percentage SPOBILO's per tijdsblok
PROCEDURE tijdsblok (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT tijdsblok,
COUNT (tijdsblok) aantal,
ROUND (ratio_to_report (COUNT (tijdsblok)) OVER () * 100, 2)
percentage
FROM (SELECT tijdsblok
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND tijdsblok >= 8
AND tijdsblok <= 17
UNION ALL
SELECT '99' tijdsblok
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND (tijdsblok < 8 OR tijdsblok > 17))
GROUP BY tijdsblok
ORDER BY tijdsblok;
END;
-- Aantal/percentage SPOBILO's per reden bezoek
PROCEDURE reden_bezoek (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT reden_bezoek,
COUNT (reden_bezoek) aantal,
ROUND (ratio_to_report (COUNT (reden_bezoek)) OVER () * 100,
2)
percentage
FROM (SELECT reden_bezoek
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY reden_bezoek
ORDER BY reden_bezoek;
END;
-- Aantal/percentage SPOBILO's per soort client (oorspronkelijke naam procedure ongewijzigd: soort_bezoek)
PROCEDURE soort_bezoek (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT soort_client,
COUNT (soort_client) aantal,
ROUND (ratio_to_report (COUNT (soort_client)) OVER () * 100,
2)
percentage
FROM (SELECT soort_client
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY soort_client
ORDER BY soort_client;
END;
-- Aantal/percentage SPOBILO's per afdeling
PROCEDURE afdeling (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT afdeling,
COUNT (afdeling) aantal,
ROUND (ratio_to_report (COUNT (afdeling)) OVER () * 100, 2)
percentage
FROM (SELECT afdeling
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY afdeling
ORDER BY afdeling;
END;
-- Aantal/percentage SPOBILO's per afhandeling
PROCEDURE afhandeling (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT afhandeling,
COUNT (afhandeling) aantal,
ROUND (ratio_to_report (COUNT (afhandeling)) OVER () * 100,
2)
percentage
FROM (SELECT afhandeling
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY afhandeling
ORDER BY afhandeling;
END;
-- Aantal/percentage SPOBILO's per "kontakt KCC" (ja/nee)
PROCEDURE kontakt_kcc (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT kontakt_kcc,
COUNT (kontakt_kcc) aantal,
ROUND (ratio_to_report (COUNT (kontakt_kcc)) OVER () * 100,
2)
percentage
FROM (SELECT kontakt_kcc
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY kontakt_kcc
ORDER BY kontakt_kcc;
END;
-- Aantal/percentage SPOBILO's per "klant geholpen"-classificatie
PROCEDURE klant_geholpen (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT klant_geholpen,
COUNT (klant_geholpen) aantal,
ROUND (
ratio_to_report (COUNT (klant_geholpen)) OVER () * 100,
2)
percentage
FROM (SELECT klant_geholpen
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot)
GROUP BY klant_geholpen
ORDER BY klant_geholpen;
END;
-- Aantal/percentage SPOBILO's over alle karakteristieken
PROCEDURE details (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT locatie,
TO_CHAR (aanmaak, 'DD-MM-YYYY') datum,
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
kontakt_kcc,
bsn_nummer,
afhandeling,
klant_geholpen
FROM (SELECT locatie,
aanmaak,
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND tijdsblok >= 8
AND tijdsblok <= 17
UNION ALL
SELECT locatie,
aanmaak,
'99' tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND (tijdsblok < 8 OR tijdsblok > 17))
ORDER BY locatie,
TO_CHAR (aanmaak, 'DD-MM-YYYY'),
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
kontakt_kcc,
bsn_nummer,
afhandeling,
klant_geholpen;
END;
-- Aantal/percentage SPOBILO's over alle karakteristieken
PROCEDURE details_extra (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT locatie,
TO_CHAR (aanmaak, 'DD-MM-YYYY') datum,
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
kontakt_kcc,
bsn_nummer,
afhandeling,
klant_geholpen,
tekst_melding
FROM (SELECT locatie,
aanmaak,
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer,
tekst_melding
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND tijdsblok >= 8
AND tijdsblok <= 17
AND tekst_melding IS NOT NULL
UNION ALL
SELECT locatie,
aanmaak,
'99' tijdsblok,
reden_bezoek,
soort_client,
afdeling,
afhandeling,
kontakt_kcc,
klant_geholpen,
bsn_nummer,
tekst_melding
FROM uwva_v_spobilo
WHERE aanmaak BETWEEN v_datum_van AND v_datum_tot
AND tekst_melding IS NOT NULL
AND (tijdsblok < 8 OR tijdsblok > 17))
ORDER BY locatie,
TO_CHAR (aanmaak, 'DD-MM-YYYY'),
tijdsblok,
reden_bezoek,
soort_client,
afdeling,
kontakt_kcc,
bsn_nummer,
afhandeling,
klant_geholpen;
END;
END;
/
CREATE OR REPLACE PACKAGE UWVA_P_EXPORT
AS
FUNCTION escape_str (p_str IN VARCHAR2)
RETURN VARCHAR2;
END;
/
CREATE OR REPLACE PACKAGE BODY UWVA_P_EXPORT
AS
FUNCTION escape_str (p_str IN VARCHAR2)
RETURN VARCHAR2
IS
v_result VARCHAR2 (4000);
BEGIN
SELECT SUBSTR (
REPLACE (
REPLACE (
REPLACE (REPLACE (p_str, CHR (10), ' '), CHR (13), ' '),
CHR (128),
'EUR'),
'"',
''''),
1,
4000)
INTO v_result
FROM DUAL
WHERE 1 = 1;
RETURN v_result;
EXCEPTION
WHEN OTHERS
THEN
RETURN p_str;
END escape_str;
END;
/
-- UWVA#76745: Bij vervallen Qlikview-module per 2023.1 (incl. core-views), de
-- hierbij een klantspecifieke kopie van door UWV gebruikte views:
-- UWVA_V_QVW_ALGEMEEN en UWVA_V_QVW_ALGEMEEN en PRS_V_QVW_BEDRIJF
CREATE OR REPLACE VIEW UWVA_V_QVW_ALGEMEEN
(
CONTRACT_KEY,
INTERNNR,
EXTERNNR,
BESCHRIJVING,
DISCIPLINE_KEY,
CONTRACTSOORT,
TYPECONTRACT_KEY,
TYPECONTRACT,
INGANGSDATUM,
RAPPELDATUM,
RAPPELTERMIJN,
OPZEGDATUM,
OPZEGTERMIJN,
EINDDATUM,
EIGENAAR,
BEHEERDER,
UITVOERDER,
CONTACTPERSOON,
KOSTENPLAATS,
TERMIJNBEDRAG,
CONTRACTBEDRAG,
LOCATIE_KEY,
LOCATIE_CODE,
GEBOUW_KEY,
GEBOUW_CODE,
TERREINSECTOR_KEY,
TERREINSECTOR_CODE,
VERDIEPING_KEY,
VERDIEPING_OMSCHRIJVING,
RUIMTE_KEY,
RUIMTE_NR
)
AS
SELECT basis.contract_key,
basis.internnr,
basis.externnr,
basis.beschrijving,
basis.discipline_key,
basis.contractsoort,
basis.typecontract_key,
basis.typecontract,
basis.ingangsdatum,
basis.rappeldatum,
basis.rappeltermijn,
basis.opzegdatum,
basis.opzegtermijn,
basis.einddatum,
basis.eigenaar,
basis.beheerder,
basis.uitvoerder,
basis.contactpersoon,
basis.kostenplaats,
basis.termijnbedrag,
basis.contractbedrag,
plaats.locatie_key,
plaats.locatie_code,
plaats.gebouw_key,
plaats.gebouw_code,
plaats.terreinsector_key,
plaats.terreinsector_code,
plaats.verdieping_key,
plaats.verdieping_omschrijving,
plaats.ruimte_key,
plaats.ruimte_nr
FROM (SELECT cc.cnt_contract_key contract_key,
cc.cnt_contract_nummer_intern internnr,
cc.cnt_contract_nummer externnr,
cc.cnt_contract_omschrijving beschrijving,
cc.ins_discipline_key discipline_key,
cs.ins_discipline_omschrijving contractsoort,
tc.cnt_typecontract_key typecontract_key,
tc.cnt_typecontract_omschrijving typecontract,
TRUNC (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE))
ingangsdatum,
TRUNC(COALESCE (
cnt.cnt_getrappeldatum (cc.cnt_contract_key),
COALESCE (cc.cnt_contract_looptijd_tot,
SYSDATE)))
rappeldatum,
rt.cnt_termijn_omschrijving rappeltermijn,
TRUNC(COALESCE (
cnt.cnt_getopzegdatum (cc.cnt_contract_key),
COALESCE (cc.cnt_contract_looptijd_tot,
SYSDATE)))
opzegdatum,
ot.cnt_termijn_omschrijving opzegtermijn,
TRUNC (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))
einddatum,
(SELECT d.prs_afdeling_naam6
FROM prs_v_aanwezigafdeling d
WHERE d.prs_afdeling_key = cc.prs_afdeling_key_eig)
eigenaar,
(SELECT p.prs_perslid_naam
|| DECODE (NVL (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (
NVL (p.prs_perslid_tussenvoegsel, ''),
'',
'',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (
NVL (p.prs_perslid_voornaam, ''),
'',
'',
' (' || p.prs_perslid_voornaam || ')')
FROM prs_perslid p
WHERE p.prs_perslid_key = cc.prs_perslid_key_beh)
beheerder,
(SELECT b.prs_bedrijf_naam
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key = cc.cnt_prs_bedrijf_key)
uitvoerder,
(SELECT c.prs_contactpersoon_naam
|| DECODE (
NVL (c.prs_contactpersoon_voorletters, ''),
'',
'',
', ' || c.prs_contactpersoon_voorletters)
|| DECODE (
NVL (c.prs_contactpersoon_tussenv, ''),
'',
'',
' ' || c.prs_contactpersoon_tussenv)
|| DECODE (
NVL (c.prs_contactpersoon_voornaam, ''),
'',
'',
' ('
|| c.prs_contactpersoon_voornaam
|| ')')
prs_contactpersoon_naam
FROM prs_contactpersoon c
WHERE c.prs_contactpersoon_key =
cc.prs_contactpersoon_key)
contactpersoon,
(SELECT k.prs_kostenplaats_nr
|| ' '
|| k.prs_kostenplaats_omschrijving
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_key = cc.prs_kostenplaats_key)
kostenplaats,
cc.cnt_contract_termijnkosten termijnbedrag,
cc.cnt_contract_kosten contractbedrag
FROM cnt_contract cc,
cnt_discipline cs,
cnt_disc_params dp,
cnt_typecontract tc,
cnt_termijn rt,
cnt_termijn ot
WHERE cc.ins_discipline_key = cs.ins_discipline_key
AND cc.ins_discipline_key = dp.cnt_ins_discipline_key
AND dp.cnt_srtcontract_type = tc.cnt_typecontract_key
AND cc.cnt_contract_rappeltermijn = rt.cnt_termijn_key
AND cc.cnt_contract_opzegtermijn = ot.cnt_termijn_key
AND cc.cnt_contract_verwijder IS NULL) basis
LEFT JOIN
(SELECT cp.cnt_contract_key contract_key,
DECODE (
cp.cnt_alg_plaats_code,
'L',
cp.cnt_alg_plaats_key,
'G',
(SELECT l.alg_locatie_key
FROM alg_gebouw g, alg_locatie l
WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key
AND g.alg_locatie_key = l.alg_locatie_key),
'T',
(SELECT l.alg_locatie_key
FROM alg_terreinsector t, alg_locatie l
WHERE t.alg_terreinsector_key =
cp.cnt_alg_plaats_key
AND t.alg_locatie_key = l.alg_locatie_key),
'V',
(SELECT l.alg_locatie_key
FROM alg_gebouw g, alg_locatie l, alg_verdieping v
WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key),
'R',
(SELECT l.alg_locatie_key
FROM alg_gebouw g,
alg_locatie l,
alg_verdieping v,
alg_ruimte r
WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key
AND v.alg_verdieping_key =
r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key))
locatie_key,
DECODE (
cp.cnt_alg_plaats_code,
'L',
(SELECT l.alg_locatie_code
FROM alg_locatie l
WHERE l.alg_locatie_key = cp.cnt_alg_plaats_key),
'G',
(SELECT l.alg_locatie_code
FROM alg_gebouw g, alg_locatie l
WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key
AND g.alg_locatie_key = l.alg_locatie_key),
'T',
(SELECT l.alg_locatie_code
FROM alg_terreinsector t, alg_locatie l
WHERE t.alg_terreinsector_key =
cp.cnt_alg_plaats_key
AND t.alg_locatie_key = l.alg_locatie_key),
'V',
(SELECT l.alg_locatie_code
FROM alg_gebouw g, alg_locatie l, alg_verdieping v
WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key),
'R',
(SELECT l.alg_locatie_code
FROM alg_gebouw g,
alg_locatie l,
alg_verdieping v,
alg_ruimte r
WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key
AND v.alg_verdieping_key =
r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key))
locatie_code,
DECODE (cp.cnt_alg_plaats_code,
'G', cp.cnt_alg_plaats_key,
NULL)
gebouw_key,
DECODE (
cp.cnt_alg_plaats_code,
'G',
(SELECT g.alg_gebouw_code
FROM alg_gebouw g
WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key),
'V',
(SELECT g.alg_gebouw_code
FROM alg_gebouw g, alg_verdieping v
WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key
AND g.alg_gebouw_key = v.alg_gebouw_key),
'R',
(SELECT g.alg_gebouw_code
FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key
AND v.alg_verdieping_key =
r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key),
NULL)
gebouw_code,
DECODE (cp.cnt_alg_plaats_code,
'T', cp.cnt_alg_plaats_key,
NULL)
terreinsector_key,
DECODE (
cp.cnt_alg_plaats_code,
'T',
(SELECT t.alg_terreinsector_code
FROM alg_terreinsector t
WHERE t.alg_terreinsector_key =
cp.cnt_alg_plaats_key),
NULL)
terreinsector_code,
DECODE (cp.cnt_alg_plaats_code,
'V', cp.cnt_alg_plaats_key,
NULL)
verdieping_key,
DECODE (
cp.cnt_alg_plaats_code,
'V',
(SELECT alg_verdieping_omschrijving
FROM alg_verdieping v
WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key),
'R',
(SELECT alg_verdieping_omschrijving
FROM alg_verdieping v, alg_ruimte r
WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key
AND v.alg_verdieping_key =
r.alg_verdieping_key),
NULL)
verdieping_omschrijving,
DECODE (cp.cnt_alg_plaats_code,
'R', cp.cnt_alg_plaats_key,
NULL)
ruimte_key,
DECODE (
cp.cnt_alg_plaats_code,
'R',
(SELECT alg_ruimte_nr
FROM alg_ruimte r
WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key),
NULL)
ruimte_nr
FROM cnt_contract_plaats cp
WHERE cp.cnt_contract_plaats_verwijder IS NULL) plaats
ON basis.contract_key = plaats.contract_key;
CREATE OR REPLACE VIEW UWVA_V_QVW_BEDRIJF
(
PRS_BEDRIJF_KEY,
PRS_BEDRIJF_NAAM,
PRS_BEDRIJF_NAAM_UPPER,
PRS_BEDRIJF_POST_ADRES,
PRS_BEDRIJF_POST_POSTCODE,
PRS_BEDRIJF_POST_PLAATS,
PRS_BEDRIJF_POST_LAND,
PRS_BEDRIJF_BEZOEK_ADRES,
PRS_BEDRIJF_BEZOEK_POSTCODE,
PRS_BEDRIJF_BEZOEK_PLAATS,
PRS_BEDRIJF_BEZOEK_LAND,
PRS_BEDRIJF_TELEFOON,
PRS_BEDRIJF_FAX,
PRS_BEDRIJF_TELEFOON2,
PRS_BEDRIJF_CONTACT_PERSOON,
PRS_BEDRIJF_CONTACT_TELEFOON,
PRS_BEDRIJF_CONTACT_FAX,
PRS_BEDRIJF_OPMERKING,
PRS_BEDRIJF_OPMERKING2,
PRS_BEDRIJF_UURLOON,
PRS_LEVERANCIER_NR,
PRS_OVEREENKOMST_NR,
PRS_OVEREENKOMST_DATUM,
PRS_BEDRIJF_AANMAAK,
PRS_BEDRIJF_VERWIJDER,
PRS_BEDRIJF_LEVERANCIER,
PRS_BEDRIJF_UITVOERENDE,
PRS_BEDRIJF_CONTRACT,
PRS_BEDRIJF_INTERN,
PRS_BEDRIJF_HUURDER,
PRS_BEDRIJF_EMAIL,
PRS_BEDRIJF_INGIDS
)
AS
SELECT prs_bedrijf_key,
prs_bedrijf_naam,
prs_bedrijf_naam_upper,
prs_bedrijf_post_adres,
prs_bedrijf_post_postcode,
prs_bedrijf_post_plaats,
prs_bedrijf_post_land,
prs_bedrijf_bezoek_adres,
prs_bedrijf_bezoek_postcode,
prs_bedrijf_bezoek_plaats,
prs_bedrijf_bezoek_land,
prs_bedrijf_telefoon,
prs_bedrijf_fax,
prs_bedrijf_telefoon2,
prs_bedrijf_contact_persoon,
prs_bedrijf_contact_telefoon,
prs_bedrijf_contact_fax,
prs_bedrijf_opmerking,
prs_bedrijf_opmerking2,
prs_bedrijf_uurloon,
prs_leverancier_nr,
prs_overeenkomst_nr,
prs_overeenkomst_datum,
prs_bedrijf_aanmaak,
prs_bedrijf_verwijder,
prs_bedrijf_leverancier,
prs_bedrijf_uitvoerende,
prs_bedrijf_contract,
prs_bedrijf_intern,
prs_bedrijf_huurder,
prs_bedrijf_email,
prs_bedrijf_ingids
FROM prs_bedrijf
WHERE prs_bedrijf.prs_bedrijf_verwijder IS NULL;
CREATE OR REPLACE VIEW uwva_v_export_qlikview_melding
(
result,
result_order
)
AS
SELECT '"meldingnummer"'
|| ';"alg_district_omschrijving"'
|| ';"locatie"'
|| ';"locatie_omschrijving"'
|| ';"kostenplaats"'
|| ';"kostenplaats_oms"'
|| ';"melder"'
|| ';"invoerder"'
|| ';"mldacp_user"'
|| ';"soortmelding"'
|| ';"soortmelding_key"'
|| ';"productgroep"'
|| ';"productgroep_key"'
|| ';"behandelgroep"'
|| ';"subproductgroep"'
|| ';"subproductgroep_key"'
|| ';"status"'
|| ';"auto_opdr_mogelijk"'
|| ';"sla_acpuren"'
|| ';"sla_werkdgn"'
|| ';"plan_uitvoertijd"'
|| ';"ingediend_datum"'
|| ';"ingediend_tijd"'
|| ';"opgepakt_datum"'
|| ';"opgepakt_tijd"'
|| ';"sla_acceptatie_gereed"'
|| ';"sla_uitvoering_gereed"'
|| ';"afgemeld"'
|| ';"mldacp_doorlooptijd"'
|| ';"doorlooptijd_werkdgn"'
|| ';"omschrijving"'
|| ';"opmerking"'
--gaat niet door|| ';"grondslag"'
--gaat niet door|| ';"vervolg"'
|| ';"opdracht_volgnummer"'
|| ';"opdracht_status"'
|| ';"opdracht_automatisch"'
|| ';"opdracht_duur_gepland"'
|| ';"ordacp_user"'
|| ';"opdracht_datum"'
|| ';"opdracht_afgemeld"'
|| ';"opdracht_doorlooptijd"'
|| ';"opdracht_omschrijving"'
|| ';"opdracht_opmerking"'
|| ';"opdracht_uitvoerende"'
|| ';"opdracht_contract"'
|| ';"opdracht_contactpersoon"'
|| ';"opdracht_uren"'
|| ';"opdracht_correctie"'
|| ';"opdracht_materiaal"'
|| ';"opdracht_uurtarief"'
|| ';"opdracht_kosten"'
|| ';',
'00000000'
FROM DUAL
UNION ALL
SELECT SUBSTR (
'"'
|| TO_CHAR (meldingnummer)
|| '";"'
|| alg_district_omschrijving
|| '";"'
|| locatie
|| '";"'
|| locatie_omschrijving
|| '";"'
|| kostenplaats
|| '";"'
|| kostenplaats_oms
|| '";"'
|| melder
|| '";"'
|| invoerder
|| '";"'
|| NVL (
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = opgepakt.prs_perslid_key
AND opgepakt.fac_srtnotificatie_key IN (17, 22)),
'<NULL>')
|| '";"'
|| soortmelding
|| '";"'
|| soortmelding_key
|| '";"'
|| productgroep
|| '";"'
|| productgroep_key
|| '";"'
|| behandelgroep
|| '";"'
|| subproductgroep
|| '";"'
|| subproductgroep_key
|| '";"'
|| status
|| '";"'
|| auto_opdr_mogelijk
|| '";"'
|| sla_acpuren
|| '";"'
|| sla_werkdgn
|| '";"'
|| plan_uitvoertijd
|| '";"'
|| NVL (TO_CHAR (ingediend.fac_tracking_datum, 'YYYY-MM-DD'),
'<NULL>')
|| '";"'
|| NVL (TO_CHAR (ingediend.fac_tracking_datum, 'HH24:MI:SS'),
'<NULL>')
|| '";"'
|| NVL (TO_CHAR (opgepakt.fac_tracking_datum, 'YYYY-MM-DD '),
'<NULL>')
|| '";"'
|| NVL (TO_CHAR (opgepakt.fac_tracking_datum, 'HH24:MI:SS'),
'<NULL>')
|| '";"'
|| NVL (
TO_CHAR (mld_melding_acceptdatum_std,
'YYYY-MM-DD HH24:MI:SS'),
'<NULL>')
|| '";"'
|| NVL (
TO_CHAR (mld_melding_einddatum_std,
'YYYY-MM-DD HH24:MI:SS'),
'<NULL>')
|| '";"'
|| afgemeld
|| '";"'
|| DECODE (
opgepakt.fac_srtnotificatie_key,
17,
TO_CHAR(FLOOR(uwva.bepaal_uwv_doorlooptijd (
ingediend.fac_tracking_datum,
opgepakt.fac_tracking_datum)))
|| ':'
|| TO_CHAR(MOD (
ROUND (
uwva.bepaal_uwv_doorlooptijd (
ingediend.fac_tracking_datum,
opgepakt.fac_tracking_datum)
* 60,
0),
60)),
'<NULL>')
|| '";"'
|| doorlooptijd_werkdgn
|| '";"'
|| SUBSTR (uwva_p_export.escape_str (omschrijving), 1, 768)
|| '";"'
|| SUBSTR (uwva_p_export.escape_str (opmerking), 1, 768)
|| '";"'
--gaat niet door|| NVL (TO_CHAR (grondslag), '<NULL>')
--gaat niet door|| '";"'
--gaat niet door|| NVL (TO_CHAR (vervolg), '<NULL>')
--gaat niet door|| '";"'
|| opdracht_volgnummer
|| '";"'
|| opdracht_status
|| '";"'
--|| opdracht_automatisch
|| DECODE (
SIGN( ( (COALESCE (ordnew.fac_tracking_datum, SYSDATE)
- ingediend.fac_tracking_datum)
* 24
* 60
* 60)
- 7),
-1, -- <= 6 sec., dan door FACILITOR?
'J',
'N')
|| '";"'
|| opdracht_duur_gepland
|| '";"'
|| NVL ( (SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = ordacp.prs_perslid_key),
'<NULL>')
|| '";"'
|| opdracht_datum
|| '";"'
|| opdracht_afgemeld
|| '";"'
|| opdracht_doorlooptijd
|| '";"'
|| SUBSTR (uwva_p_export.escape_str (opdracht_omschrijving),
1,
768)
|| '";"'
|| SUBSTR (uwva_p_export.escape_str (opdracht_opmerking),
1,
768)
|| '";"'
|| opdracht_uitvoerende
|| '";"'
|| opdracht_contract
|| '";"'
|| opdracht_contactpersoon
|| '";"'
|| opdracht_uren
|| '";"'
|| opdracht_correctie
|| '";"'
|| opdracht_materiaal
|| '";"'
|| opdracht_uurtarief
|| '";"'
|| opdracht_kosten
|| '"',
1,
4000),
TO_CHAR (meldingnummer, 'FM00000009') || '/' || opdracht_volgnummer
FROM (SELECT m.mld_melding_key meldingnummer,
NVL (alg_district_omschrijving, '<NULL>')
alg_district_omschrijving,
NVL (alg_locatie_code, '<NULL>') locatie,
NVL (alg_locatie_omschrijving, '<NULL>')
locatie_omschrijving,
NVL (
(SELECT k.prs_kostenplaats_nr
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key),
'<NULL>')
kostenplaats,
NVL (
(SELECT k.prs_kostenplaats_omschrijving
FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key),
'<NULL>')
kostenplaats_oms,
NVL ( (SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = m.prs_perslid_key),
'<NULL>')
melder,
NVL (
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key =
fac.gettrackinguserkey ('MLDNEW',
m.mld_melding_key)),
'<NULL>')
invoerder,
NVL (sd.ins_srtdiscipline_omschrijving, '<NULL>')
soortmelding,
TO_CHAR (sd.ins_srtdiscipline_key) soortmelding_key,
NVL (md.ins_discipline_omschrijving, '<NULL>') productgroep,
TO_CHAR (md.ins_discipline_key) productgroep_key,
NVL (bg.mld_behandelgroep_naam, '<NULL>') behandelgroep,
NVL (s.mld_stdmelding_omschrijving, '<NULL>')
subproductgroep,
TO_CHAR (s.mld_stdmelding_key) subproductgroep_key,
(SELECT mld_statuses_omschrijving
FROM mld_statuses sta
WHERE sta.mld_statuses_key = m.mld_melding_status)
status,
DECODE (s.mld_stdmelding_autoorder, 1, 'J', 'N')
auto_opdr_mogelijk,
CASE -- Aanname uren, anders <NULL>; tzt. nader afstemmen
WHEN m.mld_melding_t_accepttijd.eenheid = 'U'
THEN
TO_CHAR (m.mld_melding_t_accepttijd.tijdsduur)
ELSE
'<NULL>'
END
sla_acpuren,
CASE -- Aanname dagen, anders <NULL>; tzt. nader afstemmen
WHEN m.mld_melding_t_accepttijd.eenheid = 'D'
THEN
TO_CHAR (m.mld_melding_t_uitvoertijd.tijdsduur)
ELSE
'<NULL>'
END
sla_werkdgn,
m.mld_melding_acceptdatum_std,
m.mld_melding_einddatum_std,
NVL (
TO_CHAR(fac.count_work_days (m.mld_melding_datum,
m.mld_melding_einddatum)),
'<NULL>')
plan_uitvoertijd,
NVL (
TO_CHAR (
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
'YYYY-MM-DD'),
NVL (
TO_CHAR (
fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
'YYYY-MM-DD'),
'<OPEN>'))
afgemeld,
NVL (
TO_CHAR(fac.count_work_days (
m.mld_melding_datum,
NVL (
fac.gettrackingdate ('MLDAFM',
m.mld_melding_key),
fac.gettrackingdate ('MLDREJ',
m.mld_melding_key)))),
'<NULL>')
doorlooptijd_werkdgn,
NVL (m.mld_melding_omschrijving, '<NULL>') omschrijving,
NVL (m.mld_melding_opmerking, '<NULL>') opmerking,
--m.mld_melding_start_key grondslag,
--(SELECT MIN (mld_melding_key)
-- FROM mld_melding
-- WHERE mld_melding_key =
-- m.mld_melding_start_key)
-- vervolg,
o.mld_opdr_key,
NVL (TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr), '<NULL>')
opdracht_volgnummer,
NVL (
(SELECT mld_statusopdr_omschrijving
FROM mld_statusopdr sta
WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key),
'<NULL>')
opdracht_status,
--DECODE (o.mld_opdr_datumbegin,
-- NULL, '<NULL>',
-- m.mld_melding_datum, 'J',
-- 'N')
-- opdracht_automatisch,
NVL (
TO_CHAR(fac.count_work_days (o.mld_opdr_datumbegin,
o.mld_opdr_einddatum)),
'<NULL>')
opdracht_duur_gepland,
NVL (TO_CHAR (o.mld_opdr_datumbegin, 'YYYY-MM-DD'),
'<NULL>')
opdracht_datum,
NVL (
TO_CHAR (fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
'YYYY-MM-DD'),
DECODE (o.mld_opdr_key, NULL, '<NULL>', '<OPEN>'))
opdracht_afgemeld,
NVL (
TO_CHAR(fac.count_work_days (
o.mld_opdr_datumbegin,
fac.gettrackingdate ('ORDAFM',
o.mld_opdr_key))),
'<NULL>')
opdracht_doorlooptijd,
NVL (o.mld_opdr_omschrijving, '<NULL>')
opdracht_omschrijving,
NVL (o.mld_opdr_opmerking, '<NULL>') opdracht_opmerking,
NVL (
(SELECT naam
FROM mld_v_uitvoerende u
WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys),
'<NULL>')
opdracht_uitvoerende,
'<NULL>' opdracht_contract,
'<NULL>' opdracht_contactpersoon,
NVL (
REPLACE (TO_CHAR (o.mld_opdr_uren, '9999990.99'),
'.',
','),
'<NULL>')
opdracht_uren,
NVL (
REPLACE (
TO_CHAR (
o.mld_opdr_kosten
- o.mld_opdr_materiaal
- (o.mld_opdr_uren * o.mld_opdr_uurloon),
'9999990.99'),
'.',
','),
'<NULL>')
opdracht_correctie,
NVL (
REPLACE (TO_CHAR (o.mld_opdr_materiaal, '9999990.99'),
'.',
','),
'<NULL>')
opdracht_materiaal,
NVL (
REPLACE (TO_CHAR (o.mld_opdr_uurloon, '9999990.99'),
'.',
','),
'<NULL>')
opdracht_uurtarief,
NVL (
REPLACE (TO_CHAR (o.mld_opdr_kosten, '9999990.99'),
'.',
','),
'<NULL>')
opdracht_kosten
FROM mld_melding m,
mld_stdmelding s,
mld_discipline md,
mld_disc_params mdp,
mld_behandelgroep bg,
ins_srtdiscipline sd,
alg_locatie l,
alg_district d,
mld_opdr o
WHERE m.mld_stdmelding_key = s.mld_stdmelding_key
AND s.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_discipline_key = mdp.mld_ins_discipline_key
AND mdp.mld_behandelgroep_key = bg.mld_behandelgroep_key(+)
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key
AND m.mld_melding_key = o.mld_melding_key(+)) rs
LEFT JOIN -- MLDNEW
fac_tracking ingediend
ON rs.meldingnummer = ingediend.fac_tracking_refkey
AND ingediend.fac_srtnotificatie_key = 21
LEFT JOIN -- MLDACP/MLDAFM/MLDREJ
(SELECT t.*
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key IN (17, 18, 22)
AND t.fac_tracking_key IN
(SELECT MIN (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key IN
(17, 18, 22)
AND fac_tracking_refkey =
t.fac_tracking_refkey))
opgepakt
ON rs.meldingnummer = opgepakt.fac_tracking_refkey
LEFT JOIN -- ORDNEW
fac_tracking ordnew
ON rs.mld_opdr_key = ordnew.fac_tracking_refkey
AND ordnew.fac_srtnotificatie_key = 125
LEFT JOIN -- ORDACP
(SELECT t.*
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 146
AND t.fac_tracking_key IN
(SELECT MIN (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key = 146
AND fac_tracking_refkey =
t.fac_tracking_refkey))
ordacp
ON rs.mld_opdr_key = ordacp.fac_tracking_refkey;
CREATE OR REPLACE VIEW uwva_v_export_qv_klachtbeoord
(
RESULT,
result_order
)
AS
SELECT '"meldingnummer";"klachtbeoordeling"', 0 FROM DUAL
UNION ALL
SELECT '"' || m.mld_melding_key || '";"' || ud.FAC_USRDATA_OMSCHR || '"',
1
FROM mld_srtkenmerk sk,
fac_kenmerkdomein rsk,
fac_usrtab ut,
fac_usrdata ud,
mld_kenmerk km,
mld_kenmerkmelding kmm,
mld_melding m
WHERE sk.mld_srtkenmerk_key = 461
AND rsk.fac_kenmerkdomein_key = sk.fac_kenmerkdomein_key
AND ut.fac_usrtab_key = rsk.fac_usrtab_key
AND ud.fac_usrtab_key = rsk.fac_usrtab_key
AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND kmm.mld_kenmerk_key = km.mld_kenmerk_key
AND fac.safe_to_number (kmm.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key
AND m.MLD_MELDING_KEY = kmm.MLD_MELDING_KEY;
CREATE OR REPLACE VIEW uwva_v_export_qv_klachtcatgor
(
RESULT,
result_order
)
AS
SELECT '"meldingnummer";"klachtcategorie"', 0 FROM DUAL
UNION ALL
SELECT '"' || m.mld_melding_key || '";"' || ud.FAC_USRDATA_OMSCHR || '"',
1
FROM mld_srtkenmerk sk,
fac_kenmerkdomein rsk,
fac_usrtab ut,
fac_usrdata ud,
mld_kenmerk km,
mld_kenmerkmelding kmm,
mld_melding m
WHERE sk.mld_srtkenmerk_key = 621
AND rsk.fac_kenmerkdomein_key = sk.fac_kenmerkdomein_key
AND ut.fac_usrtab_key = rsk.fac_usrtab_key
AND ud.fac_usrtab_key = rsk.fac_usrtab_key
AND km.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND kmm.mld_kenmerk_key = km.mld_kenmerk_key
AND fac.safe_to_number (kmm.mld_kenmerkmelding_waarde) =
ud.fac_usrdata_key
AND m.MLD_MELDING_KEY = kmm.MLD_MELDING_KEY;
CREATE OR REPLACE VIEW uwva_v_export_qv_vertaalwerk
(
RESULT,
result_order
)
AS
SELECT '"meldingnummer";"van";"naar";"nationaliteit"', 0 FROM DUAL
UNION ALL
SELECT '"' || m.mld_melding_key || '";"'
|| -- Brontaal
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 706 -- vertalen van
AND fd.fac_usrtab_key = 401
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
|| '";"'
|| -- Doeltaal
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 707 -- vertalen naar
AND fd.fac_usrtab_key = 401
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
|| '";"'
|| -- Nationaliteit
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 821 -- nationaliteit
AND fd.fac_usrtab_key = 441
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
|| '"',
1
FROM mld_melding m
WHERE m.mld_stdmelding_key = 1301;
CREATE OR REPLACE VIEW uwva_v_export_qv_mld_objecten
(
RESULT,
result_order
)
AS
SELECT '"meldingnummer";"discipline";"discipline_key";"groep";"groep_key";"objectsoort";"objectsoort_key";"object";"object_key"',
0
FROM DUAL
UNION ALL
SELECT '"'
|| m.mld_melding_key
|| '";"'
|| dis.ins_discipline_omschrijving
|| '";"'
|| dis.ins_discipline_key
|| '";"'
|| sg.ins_srtgroep_omschrijving
|| '";"'
|| sg.ins_srtgroep_key
|| '";"'
|| sd.ins_srtdeel_omschrijving
|| '";"'
|| sd.ins_srtdeel_key
|| '";"'
|| d.ins_deel_omschrijving
|| '";"'
|| d.ins_deel_key
|| '"',
1
FROM mld_melding_object m,
ins_deel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_tab_discipline dis
WHERE m.mld_melding_object_verwijder IS NULL
AND m.ins_deel_key = d.ins_deel_key
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = dis.ins_discipline_key;
CREATE OR REPLACE VIEW uwva_v_export_qlikview_contr
(
RESULT,
result_order
)
AS
SELECT '"INTERNNR";"EXTERNNR";"BESCHRIJVING";"CONTRACTSOORT";"TYPECONTRACT";"INGANGSDATUM";"RAPPELDATUM";'
|| '"RAPPELTERMIJN";"OPZEGDATUM";"OPZEGTERMIJN";"EINDDATUM";"EIGENAAR";"BEHEERDER";"UITVOERDER";"CONTACTPERSOON";'
|| '"KOSTENPLAATS";"TERMIJNBEDRAG";"CONTRACTBEDRAG";"LOCATIE_CODE";"GEBOUW_CODE"',
0
FROM DUAL
UNION ALL
SELECT '"'
|| INTERNNR
|| '";"'
|| EXTERNNR
|| '";"'
|| BESCHRIJVING
|| '";"'
|| CONTRACTSOORT
|| '";"'
|| TYPECONTRACT
|| '";"'
|| INGANGSDATUM
|| '";"'
|| RAPPELDATUM
|| '";'
|| '"'
|| RAPPELTERMIJN
|| '";"'
|| OPZEGDATUM
|| '";"'
|| OPZEGTERMIJN
|| '";"'
|| EINDDATUM
|| '";"'
|| EIGENAAR
|| '";"'
|| BEHEERDER
|| '";"'
|| UITVOERDER
|| '";"'
|| CONTACTPERSOON
|| '";'
|| '"'
|| KOSTENPLAATS
|| '";"'
|| TERMIJNBEDRAG
|| '";"'
|| CONTRACTBEDRAG
|| '";"'
|| LOCATIE_CODE
|| '";"'
|| GEBOUW_CODE
|| '"',
1
FROM UWVA_V_QVW_ALGEMEEN;
CREATE OR REPLACE VIEW uwva_v_export_qlikview_bedrijf
(
RESULT,
result_order
)
AS
SELECT '"PRS_BEDRIJF_KEY";"PRS_BEDRIJF_NAAM";"PRS_BEDRIJF_NAAM_UPPER";"PRS_BEDRIJF_POST_ADRES";"PRS_BEDRIJF_POST_POSTCODE";'
|| '"PRS_BEDRIJF_POST_PLAATS";"PRS_BEDRIJF_POST_LAND";"PRS_BEDRIJF_BEZOEK_ADRES";"PRS_BEDRIJF_BEZOEK_POSTCODE";"PRS_BEDRIJF_BEZOEK_PLAATS";'
|| '"PRS_BEDRIJF_BEZOEK_LAND";"PRS_BEDRIJF_TELEFOON";"PRS_BEDRIJF_FAX";"PRS_BEDRIJF_TELEFOON2";"PRS_BEDRIJF_CONTACT_PERSOON";'
|| '"PRS_BEDRIJF_CONTACT_TELEFOON";"PRS_BEDRIJF_CONTACT_FAX";"PRS_BEDRIJF_OPMERKING";"PRS_BEDRIJF_OPMERKING2";"PRS_BEDRIJF_UURLOON";'
|| '"PRS_LEVERANCIER_NR";"PRS_OVEREENKOMST_NR";"PRS_OVEREENKOMST_DATUM";"PRS_BEDRIJF_AANMAAK";"PRS_BEDRIJF_VERWIJDER";'
|| '"PRS_BEDRIJF_LEVERANCIER";"PRS_BEDRIJF_UITVOERENDE";"PRS_BEDRIJF_CONTRACT";"PRS_BEDRIJF_INTERN";"PRS_BEDRIJF_HUURDER";'
|| '"PRS_BEDRIJF_EMAIL";"PRS_BEDRIJF_INGIDS"',
0
FROM DUAL
UNION ALL
SELECT '"'
|| PRS_BEDRIJF_KEY
|| '";"'
|| PRS_BEDRIJF_NAAM
|| '";"'
|| PRS_BEDRIJF_NAAM_UPPER
|| '";"'
|| PRS_BEDRIJF_POST_ADRES
|| '";"'
|| PRS_BEDRIJF_POST_POSTCODE
|| '";"'
|| PRS_BEDRIJF_POST_PLAATS
|| '";"'
|| PRS_BEDRIJF_POST_LAND
|| '";"'
|| PRS_BEDRIJF_BEZOEK_ADRES
|| '";"'
|| PRS_BEDRIJF_BEZOEK_POSTCODE
|| '";"'
|| PRS_BEDRIJF_BEZOEK_PLAATS
|| '";"'
|| PRS_BEDRIJF_BEZOEK_LAND
|| '";"'
|| PRS_BEDRIJF_TELEFOON
|| '";"'
|| PRS_BEDRIJF_FAX
|| '";"'
|| PRS_BEDRIJF_TELEFOON2
|| '";"'
|| PRS_BEDRIJF_CONTACT_PERSOON
|| '";"'
|| PRS_BEDRIJF_CONTACT_TELEFOON
|| '";"'
|| PRS_BEDRIJF_CONTACT_FAX
|| '";"'
|| PRS_BEDRIJF_OPMERKING
|| '";"'
|| PRS_BEDRIJF_OPMERKING2
|| '";"'
|| PRS_BEDRIJF_UURLOON
|| '";"'
|| PRS_LEVERANCIER_NR
|| '";"'
|| PRS_OVEREENKOMST_NR
|| '";"'
|| PRS_OVEREENKOMST_DATUM
|| '";"'
|| PRS_BEDRIJF_AANMAAK
|| '";"'
|| PRS_BEDRIJF_VERWIJDER
|| '";"'
|| PRS_BEDRIJF_LEVERANCIER
|| '";"'
|| PRS_BEDRIJF_UITVOERENDE
|| '";"'
|| PRS_BEDRIJF_CONTRACT
|| '";"'
|| PRS_BEDRIJF_INTERN
|| '";"'
|| PRS_BEDRIJF_HUURDER
|| '";"'
|| PRS_BEDRIJF_EMAIL
|| '";"'
|| PRS_BEDRIJF_INGIDS
|| '"',
1
FROM UWVA_V_QVW_BEDRIJF;
CREATE OR REPLACE VIEW uwva_v_export_qlikview_bestel
(
result,
result_order
)
AS
SELECT '"bestelaanvraagnr"'
|| ';'
|| '"besteldatum"'
|| ';'
|| '"besteller"'
|| ';'
|| '"invoerder"'
|| ';'
|| '"kpn"'
|| ';'
|| '"kpn_omschrijving"'
|| ';'
|| '"afdeling_code"'
|| ';'
|| '"afdeling_omschrijving"'
|| ';'
|| '"locatie_code"'
|| ';'
|| '"district_omschijving"'
|| ';'
|| '"afleveradres"'
|| ';'
|| '"mandaat"'
|| ';'
|| '"personeelsnr"'
|| ';'
|| '"bsn"'
|| ';'
|| '"werkplek"'
|| ';'
|| '"catalogus"'
|| ';'
|| '"catalogus_key"'
|| ';'
|| '"groep"'
|| ';'
|| '"groep_key"'
|| ';'
|| '"afleverdatum"'
|| ';'
|| '"sla_tijd"'
|| ';'
|| '"productcode"'
|| ';'
|| '"prijs"'
|| ';'
|| '"status"'
|| ';'
|| '"gefiatteerddoor"'
|| ';'
|| '"bestelopdrachtnummer"'
|| ';'
|| '"aantal"'
|| ';'
|| '"itemprijs"'
|| ';'
|| '"itemposnr"'
|| ';'
|| '"productomschrijving"'
|| ';',
TO_CHAR (0, 'FM00000009')
FROM DUAL
UNION ALL
SELECT '"'
|| bestelaanvraagnr
|| '"'
|| ';"'
|| besteldatum
|| '"'
|| ';"'
|| besteller
|| '"'
|| ';"'
|| invoerder
|| '"'
|| ';"'
|| kpn
|| '"'
|| ';"'
|| kpn_omschrijving
|| '"'
|| ';"'
|| afdeling_code
|| '"'
|| ';"'
|| afdeling_omschrijving
|| '"'
|| ';"'
|| locatie_code
|| '"'
|| ';"'
|| district_omschijving
|| '"'
|| ';"'
|| afleveradres
|| '"'
|| ';"'
|| mandaat
|| '"'
|| ';"'
|| personeelsnr
|| '"'
|| ';"'
|| bsn
|| '"'
|| ';"'
|| werkplek
|| '"'
|| ';"'
|| catalogus
|| '"'
|| ';"'
|| catalogus_key
|| '"'
|| ';"'
|| groep
|| '"'
|| ';"'
|| groep_key
|| '"'
|| ';"'
|| afleverdatum
|| '"'
|| ';"'
|| sla_tijd
|| '"'
|| ';"'
|| productcode
|| '"'
|| ';"'
|| prijs
|| '"'
|| ';"'
|| status
|| '"'
|| ';"'
|| gefiatteerddoor
|| '"'
|| ';"'
|| bestelopdrachtnummer
|| '"'
|| ';"'
|| aantal
|| '"'
|| ';"'
|| itemprijs
|| '"'
|| ';"'
|| itemposnr
|| '"'
|| ';"'
|| productomschrijving
|| '"',
TO_CHAR (bes_bestelling_key, 'FM00000009')
FROM (SELECT b.bes_bestelling_key,
'A-' || b.bes_bestelling_key bestelaanvraagnr,
NVL (TO_CHAR (b.bes_bestelling_datum, 'YYYY-MM-DD'),
'<null>')
besteldatum,
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = p.prs_perslid_key)
besteller,
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key =
fac.gettrackinguserkey ('BESAP2',
b.bes_bestelling_key))
invoerder,
k.prs_kostenplaats_nr kpn,
k.prs_kostenplaats_omschrijving kpn_omschrijving,
a.prs_afdeling_naam afdeling_code,
a.prs_afdeling_omschrijving afdeling_omschrijving,
NVL ( (SELECT alg_locatie_code
FROM alg_locatie l
WHERE l.alg_locatie_key = ma.alg_locatie_key),
'<null>')
locatie_code,
NVL (
(SELECT alg_district_omschrijving
FROM alg_locatie l, alg_district d
WHERE l.alg_district_key = d.alg_district_key
AND l.alg_locatie_key = ma.alg_locatie_key),
'<null>')
district_omschijving,
NVL (ma.mld_adres_naam, '<null>') afleveradres,
NVL ( (SELECT pr.fac_profiel_limiet
FROM fac_profiel pr
WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
mandaat,
NVL (prs_perslid_nr, '<null>') personeelsnr,
'<future>' bsn -- , (select max(pwp.PRS_PERSLIDWERKPLEK_BEZETTING) from prs_perslidwerkplek pwp where p.prs_perslid_key = pwp.prs_perslid_key and ) wp
,
NVL (wp2.prs_werkplek_aanduiding, '<null>') werkplek,
d.ins_discipline_omschrijving catalogus,
TO_CHAR (d.ins_discipline_key) catalogus_key,
sg.bes_srtgroep_omschrijving groep,
TO_CHAR (sg.bes_srtgroep_key) groep_key,
NVL (TO_CHAR (b.bes_bestelling_leverdatum, 'YYYY-MM-DD'),
'<null>')
afleverdatum,
NVL (
(SELECT bdp.bes_disc_params_leverdagen
FROM bes_disc_params bdp
WHERE d.ins_discipline_key =
bdp.bes_ins_discipline_key),
0)
sla_tijd,
NVL (sd.bes_srtdeel_nr, '<null>') productcode,
REPLACE (
TO_CHAR (
bes_bestelling_item_prijs
* bi.bes_bestelling_item_aantal,
'9999990.99'),
'.',
',')
prijs,
(SELECT bes_bestellingstatuses_omschr
FROM bes_bestellingstatuses bs
WHERE bs.bes_bestellingstatuses_key =
b.bes_bestelling_status)
status,
NVL (
(SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user),
'<null>')
gefiatteerddoor,
NVL ('O-' || bo.bes_bestelopdr_key, '<null>')
bestelopdrachtnummer,
bi.bes_bestelling_item_aantal aantal,
REPLACE (TO_CHAR (bes_bestelling_item_prijs, '9999990.99'),
'.',
',')
itemprijs,
boi.bes_bestelopdr_item_posnr itemposnr,
sd.bes_srtdeel_omschrijving productomschrijving
FROM bes_bestelling b,
prs_perslid p,
prs_kostenplaats k,
prs_afdeling a,
mld_adres ma,
( SELECT pw.prs_perslid_key,
MIN (prs_werkplek_aanduiding)
|| DECODE (COUNT ( * ), 1, '', '...')
prs_werkplek_aanduiding
FROM prs_v_werkplek_gegevens wp, prs_perslidwerkplek pw
WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
GROUP BY pw.prs_perslid_key) wp2,
bes_bestelling_item bi,
bes_bestelopdr_item boi,
bes_bestelopdr bo,
bes_srtdeel sd,
bes_srtgroep sg,
ins_tab_discipline d
WHERE b.prs_perslid_key = p.prs_perslid_key
AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND b.mld_adres_key_lev = ma.mld_adres_key
AND wp2.prs_perslid_key(+) = p.prs_perslid_key
AND b.bes_bestelling_key = bi.bes_bestelling_key
AND bi.bes_bestelopdr_item_key =
boi.bes_bestelopdr_item_key(+)
AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key);
CREATE OR REPLACE VIEW uwva_v_export_qlikview_reserv
(
result,
result_order
)
AS
SELECT '"nummer"'
|| ';'
|| '"datum"'
|| ';'
|| '"gastheer"'
|| ';'
|| '"contact"'
|| ';'
|| '"invoerder"'
|| ';'
|| '"kpn"'
|| ';'
|| '"kpn_omschrijving"'
|| ';'
|| '"afdeling_code"'
|| ';'
|| '"afdeling_omschrijving"'
|| ';'
|| '"district_omschijving"'
|| ';'
|| '"locatie"'
|| ';'
|| '"locatie_omschrijving"'
|| ';'
|| '"gebouw"'
|| ';'
|| '"verdieping"'
|| ';'
|| '"ruimte"'
|| ';'
|| '"mandaat"'
|| ';'
|| '"personeelsnr"'
|| ';'
|| '"bsn"'
|| ';'
|| '"werkplek"'
|| ';'
|| '"catalogus"'
|| ';'
|| '"reserveerbare_ruimte"'
|| ';'
|| '"bezoekers"'
|| ';'
|| '"van"'
|| ';'
|| '"tot"'
|| ';'
|| '"duur"'
|| ';'
|| '"status"'
|| ';'
|| '"activiteit"'
|| ';'
|| '"voorziening_catalogus"'
|| ';'
|| '"voorziening_product"'
|| ';'
|| '"voorziening_totaalprijs"'
|| ';'
|| '"voorziening_van"'
|| ';'
|| '"voorziening_tot"'
|| ';'
|| '"voorziening_aantal"'
|| ';'
|| '"voorziening_prijs"'
|| ';'
|| '"voorziening_afgemeld"'
|| ';',
0
FROM DUAL
UNION ALL
SELECT '"'
|| res.res_reservering_key
|| '/'
|| rrr.res_rsv_ruimte_volgnr
|| '";"'
|| NVL (
TO_CHAR (NVL (rrr.res_rsv_ruimte_van, voorz.van),
'YYYY-MM-DD'),
'<null>')
|| '";"'
|| (SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key)
|| '";"'
|| (SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key)
|| '";"'
|| (SELECT prs_perslid_naam_full
FROM prs_v_perslid_fullnames_all pf
WHERE pf.prs_perslid_key =
fac.gettrackinguserkey ('RESNEW',
rrr.res_rsv_ruimte_key))
|| '";"'
|| NVL (k.prs_kostenplaats_nr, '<null>')
|| '";"'
|| NVL (k.prs_kostenplaats_omschrijving, '<null>')
|| '";"'
|| NVL (a.prs_afdeling_naam, '<null>')
|| '";"'
|| NVL (a.prs_afdeling_omschrijving, '<null>')
|| '";"'
|| (SELECT d.alg_district_omschrijving
FROM alg_district d,
alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE d.alg_district_key = l.alg_district_key
AND l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| (SELECT alg_locatie_code
FROM alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| (SELECT alg_locatie_omschrijving
FROM alg_locatie l,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r
WHERE l.alg_locatie_key = g.alg_locatie_key
AND g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| (SELECT alg_gebouw_code
FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
WHERE g.alg_gebouw_key = v.alg_gebouw_key
AND v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| (SELECT alg_verdieping_code
FROM alg_verdieping v, alg_ruimte r
WHERE v.alg_verdieping_key = r.alg_verdieping_key
AND r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| (SELECT alg_ruimte_nr
FROM alg_ruimte r
WHERE r.alg_ruimte_key = r2a.alg_ruimte_key)
|| '";"'
|| NVL ( (SELECT pr.fac_profiel_limiet
FROM fac_profiel pr
WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
|| '";"'
|| NVL (prs_perslid_nr, '<null>')
|| '";"'
|| '<null>'
|| '";"'
|| NVL (wp2.prs_werkplek_aanduiding, '<null>')
|| '";"'
|| NVL (
(SELECT ins_discipline_omschrijving
FROM ins_tab_discipline d,
res_ruimte_opstelling ro,
res_ruimte rr
WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_discipline_key = d.ins_discipline_key),
'<null>')
|| '";"'
|| DECODE (rrr.alg_ruimte_key, NULL, 'Ja', 'Nee')
|| '";"'
|| NVL (TO_CHAR (rrr.res_rsv_ruimte_bezoekers), '<null>')
|| '";"'
|| NVL (TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi'), '<null>')
|| '";"'
|| NVL (TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi'), '<null>')
|| '";"'
|| NVL (
REPLACE (
TO_CHAR (
(rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24),
'.',
','),
'<null>')
|| '";"'
|| NVL ( (SELECT res_status_fo_omschrijving
FROM res_status_fo rs
WHERE rs.res_status_fo_key = rrr.res_status_fo_key),
'<null>')
|| '";"'
|| NVL ( (SELECT res_activiteit_omschrijving
FROM res_activiteit ra
WHERE ra.res_activiteit_key = rrr.res_activiteit_key),
'<null>')
|| '";"'
|| NVL (voorz.catalogus, '<null>')
|| '";"'
|| NVL (voorz.product, '<null>')
|| '";"'
|| NVL (REPLACE (TO_CHAR (voorz.totaalprijs), '.', ','), '<null>')
|| '";"'
|| NVL (TO_CHAR (voorz.van, 'hh24:mi'), '<null>')
|| '";"'
|| NVL (TO_CHAR (voorz.tot, 'hh24:mi'), '<null>')
|| '";"'
|| NVL (REPLACE (TO_CHAR (voorz.aantal), '.', ','), '<null>')
|| '";"'
|| NVL (REPLACE (TO_CHAR (voorz.prijs), '.', ','), '<null>')
|| '";"'
|| CASE
WHEN voorz.status_bo < 5
THEN
'<open>'
WHEN voorz.status_bo >= 5
THEN
NVL (TO_CHAR (voorz.afgemeld, 'ddmmyyyy'), '<closed>')
ELSE
'<null>'
END
|| '";',
rrr.res_reservering_key * 1000 + rrr.res_rsv_ruimte_volgnr
FROM res_v_aanwezigrsv_ruimte rrr,
res_reservering res,
prs_kostenplaats k,
prs_perslid p,
prs_afdeling a,
( SELECT res_rsv_ruimte_key, MAX (ra.alg_ruimte_key) alg_ruimte_key
FROM res_rsv_ruimte r,
res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte ra
WHERE r.res_rsv_ruimte_verwijder IS NULL
AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.res_ruimte_key = ra.res_ruimte_key
GROUP BY res_rsv_ruimte_key
UNION ALL
SELECT res_rsv_ruimte_key, alg_ruimte_key
FROM res_rsv_ruimte
WHERE alg_ruimte_key IS NOT NULL) r2a,
(SELECT rrd.res_rsv_ruimte_key res_rsv_ruimte_key,
d.ins_deel_omschrijving product,
DECODE (
rd.res_deel_prijs_vast,
1,
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs),
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
* 24
* NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs))
totaalprijs,
rrd.res_rsv_deel_van van,
rrd.res_rsv_deel_tot tot,
(rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal,
NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs) prijs,
rrd.res_status_bo_key status_bo,
rrd.res_rsv_deel_afgemeld afgemeld,
c.ins_discipline_omschrijving catalogus
FROM res_v_aanwezigrsv_deel rrd,
res_deel rd,
ins_deel d,
ins_tab_discipline c
WHERE rrd.res_deel_key = rd.res_deel_key
AND d.ins_deel_key = rd.res_ins_deel_key
AND rrd.res_rsv_ruimte_key IS NOT NULL
AND c.ins_discipline_key = rd.res_discipline_key
UNION ALL
SELECT rra.res_rsv_ruimte_key res_rsv_ruimte_key,
ra.res_artikel_omschrijving product,
NVL (rra.res_rsv_artikel_prijs,
rra.res_rsv_artikel_aantal * res_artikel_prijs)
totaalprijs,
rra.res_rsv_artikel_levering van,
NULL tot,
rra.res_rsv_artikel_aantal aantal,
NVL (
rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal,
res_artikel_prijs)
prijs,
rra.res_status_bo_key status_bo,
rra.res_rsv_artikel_afgemeld afgemeld,
c.ins_discipline_omschrijving catalogus
FROM res_v_aanwezigrsv_artikel rra,
res_artikel ra,
ins_tab_discipline c
WHERE rra.res_artikel_key = ra.res_artikel_key
AND ra.res_discipline_key = c.ins_discipline_key) voorz,
( SELECT pw.prs_perslid_key,
MIN (prs_werkplek_aanduiding)
|| DECODE (COUNT ( * ), 1, '', '...')
prs_werkplek_aanduiding
FROM prs_v_werkplek_gegevens wp, prs_perslidwerkplek pw
WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
GROUP BY pw.prs_perslid_key) wp2
WHERE rrr.res_reservering_key = res.res_reservering_key
AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+)
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND wp2.prs_perslid_key(+) = p.prs_perslid_key
AND (rrr.res_ruimte_opstel_key IS NOT NULL
OR voorz.res_rsv_ruimte_key IS NOT NULL)
AND rrr.res_rsv_ruimte_tot >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY');
CREATE OR REPLACE VIEW uwva_v_export_qlikview_factuur
(
result,
result_order
)
AS
SELECT '"factuur_key"'
|| ';'
|| '"factuur_nr"'
|| ';'
|| '"factuur_datum"'
|| ';'
|| '"bedrijf_naam"'
|| ';'
|| '"bestelnr"'
|| ';'
|| '"opdrachtnr"'
|| ';'
|| '"contractnr"'
|| ';'
|| '"factuurregel_nr"'
|| ';'
|| '"factuurregel_exbtw"'
|| ';'
|| '"factuurregel_btw"'
|| ';'
|| '"factuurregel_inbtw"'
|| ';'
|| '"debiteur_nr"'
|| ';'
|| '"opmerking"'
|| ';'
|| '"boekmaand"'
|| ';'
|| '"kostensoort"'
|| ';'
|| '"kostenplaats"'
|| ';'
|| '"bedrijf_key"'
|| ';'
|| '"extern_contractnr"'
|| ';'
|| '"bestelopdracht_key"'
|| ';'
|| '"opdracht_key"'
|| ';'
|| '"contract_key"'
|| ';'
|| '"factuur_status"'
|| ';',
0
FROM DUAL
UNION ALL
SELECT f.fin_factuur_key
|| ';"'
|| f.fin_factuur_nr
|| '";"'
|| TO_CHAR (f.fin_factuur_datum, 'YYYY-MM-DD')
|| '";"'
|| (SELECT prs_bedrijf_naam
FROM prs_bedrijf
WHERE prs_bedrijf_key =
COALESCE (b_c.prs_bedrijf_key,
b_o.prs_bedrijf_key,
sd.prs_bedrijf_key))
|| '";"'
|| b.bes_bestelopdr_id
|| '";"'
|| (SELECT sd.ins_srtdiscipline_prefix
|| m.mld_melding_key
|| '/'
|| o.mld_opdr_bedrijfopdr_volgnr
FROM mld_melding m,
mld_stdmelding std,
ins_tab_discipline d,
ins_srtdiscipline sd
WHERE m.mld_melding_key = o.mld_melding_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key)
|| '";"'
|| c.cnt_contract_nummer_intern
|| '";"'
|| fr.fin_factuurregel_nr
|| '";"'
|| NVL (REPLACE (TO_CHAR (fr.fin_factuurregel_totaal), '.', ','),
'<null>')
|| '";"'
|| NVL (REPLACE (TO_CHAR (fr.fin_factuurregel_btw), '.', ','),
'<null>')
|| '";"'
|| NVL (
REPLACE (
TO_CHAR (
fr.fin_factuurregel_totaal + fr.fin_factuurregel_btw),
'.',
','),
'<null>')
|| '";"'
|| f.fin_factuur_debiteur_nr
|| '";"'
|| SUBSTR (uwva_p_export.escape_str (f.fin_factuur_opmerking),
1,
768)
|| '";"'
|| REPLACE (f.fin_factuur_boekmaand, '-', '')
|| '";"'
|| k.prs_kostensoort_oms
|| '";"'
|| (SELECT prs_kostenplaats_nr
FROM prs_kostenplaats
WHERE prs_kostenplaats_key =
COALESCE (o.prs_kostenplaats_key,
c.prs_kostenplaats_key,
bb.prs_kostenplaats_key))
|| '";"'
|| COALESCE (b_c.prs_bedrijf_key,
b_o.prs_bedrijf_key,
sd.prs_bedrijf_key)
|| '";"'
|| c.cnt_contract_nummer
|| '";"'
|| b.bes_bestelopdr_key
|| '";"'
|| o.mld_opdr_key
|| '";"'
|| c.cnt_contract_key
|| '";"'
|| fin_factuur_statuses_key
|| '";',
fr.fin_factuurregel_key
FROM fin_factuur f,
fin_factuurregel fr,
mld_opdr o,
mld_typeopdr ot,
cnt_contract c,
bes_bestelopdr b,
prs_bedrijf b_o,
prs_bedrijf b_c,
prs_kostensoort k,
bes_srtdeel sd,
bes_bestelopdr_item boi,
bes_bestelling_item bi,
bes_bestelling bb
WHERE f.fin_factuur_key = fr.fin_factuur_key
AND f.mld_opdr_key = o.mld_opdr_key(+)
AND o.mld_typeopdr_key = ot.mld_typeopdr_key(+)
AND f.cnt_contract_key = c.cnt_contract_key(+)
AND f.bes_bestelopdr_key = b.bes_bestelopdr_key(+)
AND boi.bes_bestelopdr_key(+) = b.bes_bestelopdr_key
AND bi.bes_bestelopdr_item_key(+) = boi.bes_bestelopdr_item_key
AND bes_bestelopdr_item_posnr(+) = 1
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key(+)
AND bi.bes_bestelling_key = bb.bes_bestelling_key(+)
AND o.mld_uitvoerende_keys = b_o.prs_bedrijf_key(+)
AND c.cnt_prs_bedrijf_key = b_c.prs_bedrijf_key(+)
AND f.prs_kostensoort_key = k.prs_kostensoort_key(+);
CREATE OR REPLACE VIEW uwva_v_export_qv_opdrtelaat
(
result,
result_order
)
AS
SELECT '"meldingnummer"'
|| ';"opdrachtkey"'
|| ';"opdrachtnummer"'
|| ';"Reden_te_laat"'
|| ';"Reden_vertraging"',
0
FROM DUAL
UNION ALL
SELECT '"'
|| m.mld_melding_key
|| '";"'
|| o.mld_opdr_key
|| '";"'
|| m.mld_melding_key
|| '/'
|| mld_opdr_bedrijfopdr_volgnr
|| '";"'
|| f.fac_usrdata_omschr
|| '";"'
|| k2.mld_kenmerkopdr_waarde
|| '"',
2
FROM mld_melding m,
mld_opdr o,
mld_kenmerkopdr k,
mld_kenmerk kk,
mld_srtkenmerk sk,
fac_kenmerkdomein rk,
fac_usrdata f,
(SELECT o.mld_opdr_key, mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko, mld_kenmerk k, mld_opdr o
WHERE k.mld_srtkenmerk_key = 741
AND ko.mld_kenmerk_key = k.mld_kenmerk_key
AND o.mld_opdr_key = ko.mld_opdr_key
AND o.mld_typeopdr_key = k.mld_typeopdr_key) k2
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_typeopdr_key = kk.mld_typeopdr_key
AND o.mld_opdr_key = k.mld_opdr_key
AND o.mld_opdr_key = k2.mld_opdr_key(+)
AND kk.mld_kenmerk_key = k.mld_kenmerk_key
AND kk.mld_srtkenmerk_key = 721
AND KK.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND sk.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
AND f.fac_usrtab_key = rk.fac_usrtab_key
AND f.fac_usrdata_key =
fac.safe_to_number (k.mld_kenmerkopdr_waarde);
/* UWVA#22594 autorisatie export */
CREATE OR REPLACE VIEW uwva_v_export_qv_autorisaties
(
RESULT,
result_order
)
AS
SELECT '"Autorisatiegroep_omschrijving";"Autorisatie_omschrijving";"Autorisatie_code";"Autorisatie_module";"Discipline_omschrijving";"Vakgroep/contractsoort/objectsoort/catalogus";"Org_lezen";"Org_schrijven";"Plaats_lezen";"Plaats_schrijven"',
0
FROM DUAL
UNION ALL
SELECT '"'
|| fac_groep_oms
|| '";"'
|| fac_functie_oms
|| '";"'
|| fac_functie_code
|| '";"'
|| fac_module
|| '";"'
|| ins_srtdisc
|| '";"'
|| ins_disc
|| '";"'
|| prs_read
|| '";"'
|| prs_write
|| '";"'
|| alg_read
|| '";"'
|| alg_write
|| '"',
1
FROM (SELECT gr.fac_groep_omschrijving fac_groep_oms,
f.fac_functie_omschrijving fac_functie_oms,
f.fac_functie_code fac_functie_code,
f.fac_functie_module fac_module,
sd.ins_srtdiscipline_omschrijving ins_srtdisc,
a.ins_discipline_omschrijving ins_disc,
TO_CHAR (COALESCE (g.fac_gebruiker_prs_level_read, -1))
prs_read,
TO_CHAR (COALESCE (g.fac_gebruiker_prs_level_write, -1))
prs_write,
TO_CHAR (COALESCE (g.fac_gebruiker_alg_level_read, -1))
alg_read,
TO_CHAR (COALESCE (g.fac_gebruiker_alg_level_write, -1))
alg_write
FROM fac_groeprechten g,
fac_functie f,
ins_tab_discipline a,
ins_srtdiscipline sd,
fac_groep gr
WHERE g.ins_discipline_key = a.ins_discipline_key
AND a.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
AND g.fac_groep_key = gr.fac_groep_key
AND f.fac_functie_key = g.fac_functie_key
AND f.fac_functie_discipline = 1
AND ins_discipline_verwijder IS NULL
UNION ALL
SELECT gr.fac_groep_omschrijving fac_groep_oms,
f.fac_functie_omschrijving fac_functie_oms,
f.fac_functie_code fac_functie_code,
f.fac_functie_module fac_module,
NULL ins_srtdisc,
NULL ins_disc,
TO_CHAR (COALESCE (g.fac_gebruiker_prs_level_read, -1))
prs_read,
TO_CHAR (COALESCE (g.fac_gebruiker_prs_level_write, -1))
prs_write,
TO_CHAR (COALESCE (g.fac_gebruiker_alg_level_read, -1))
alg_read,
TO_CHAR (COALESCE (g.fac_gebruiker_alg_level_write, -1))
alg_write
FROM fac_groeprechten g, fac_functie f, fac_groep gr
WHERE g.fac_groep_key = gr.fac_groep_key
AND fac_functie_discipline = 0
AND g.fac_functie_key = f.fac_functie_key
ORDER BY 1);
-- UWVA#30245: 'b.bez_bezoekers_opmerking' hier ook maar toegevoegd!
CREATE OR REPLACE VIEW uwva_v_kz_gastheer_vandaag
(
fclt_3d_user_key,
hide_f_van,
tijdstip,
ruimte,
klant,
binnen,
opmerkingen,
hide_f_reskey
)
AS
SELECT rsv.res_rsv_ruimte_host_key,
a.bez_afspraak_datum,
TO_CHAR (a.bez_afspraak_datum, 'HH24:MI') tijdstip,
(SELECT rg.alg_ruimte_aanduiding
FROM res_v_alg_ruimte_gegevens rg
WHERE rg.res_alg_ruimte_key = rar.res_alg_ruimte_key)
ruimte,
b.bez_afspraak_naam klant,
COALESCE (TO_CHAR (b.bez_bezoekers_done, 'HH24:MI'),
DECODE (rsv.res_status_fo_key, 4, 'Afgezegd', ''))
binnen,
a.bez_afspraak_opmerking
|| CHR (13)
|| CHR (10)
|| b.bez_bezoekers_opmerking
sofi_postc,
r.res_reservering_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_ruimte rsv,
bez_afspraak a,
bez_bezoekers b,
res_ruimte_opstelling ro,
res_v_aanwezigalg_ruimte rar
WHERE r.res_reservering_key = rsv.res_reservering_key
AND rsv.res_rsv_ruimte_key = a.res_rsv_ruimte_key
AND a.bez_afspraak_key = b.bez_afspraak_key
AND TO_CHAR (rsv.res_rsv_ruimte_van, 'YYYYMMDD') =
TO_CHAR (SYSDATE, 'YYYYMMDD')
AND rsv.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rar.res_ruimte_key;
-- UWVA#30245: En hier dan dus ook 'b.bez_bezoekers_opmerking' toegevoegd!
CREATE OR REPLACE VIEW uwva_v_kz_gastheer_2wkn
(
fclt_3d_user_key,
datum,
tijdstip,
ruimte,
klant,
binnen,
opmerkingen,
hide_f_reskey
)
AS
SELECT rsv.res_rsv_ruimte_host_key,
a.bez_afspraak_datum,
TO_CHAR (a.bez_afspraak_datum, 'HH24:MI') tijdstip,
(SELECT rg.alg_ruimte_aanduiding
FROM res_v_alg_ruimte_gegevens rg
WHERE rg.res_alg_ruimte_key = rar.res_alg_ruimte_key)
ruimte,
b.bez_afspraak_naam klant,
NVL (TO_CHAR (b.bez_bezoekers_done, 'HH24:MI'),
DECODE (rsv.res_status_fo_key, 4, 'Afgezegd', ''))
binnen,
a.bez_afspraak_opmerking
|| CHR (13)
|| CHR (10)
|| b.bez_bezoekers_opmerking
sofi_postc,
r.res_reservering_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_ruimte rsv,
bez_afspraak a,
bez_bezoekers b,
res_ruimte_opstelling ro,
res_v_aanwezigalg_ruimte rar
WHERE r.res_reservering_key = rsv.res_reservering_key
AND rsv.res_rsv_ruimte_key = a.res_rsv_ruimte_key
AND a.bez_afspraak_key = b.bez_afspraak_key
AND rsv.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) + 1
AND TRUNC (SYSDATE) + 14
AND rsv.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rar.res_ruimte_key;
-- UWVA#30245: En hier dan dus ook 'b.bez_bezoekers_opmerking' toegevoegd!
CREATE OR REPLACE VIEW UWVA_V_KZ_PLANNER_VANDAAG
(
fclt_3d_user_key,
gastheer,
tijdstip,
ruimte,
klant,
binnen,
opmerkingen,
hide_f_reskey
)
AS
SELECT rsv.res_rsv_ruimte_contact_key,
pf.prs_perslid_naam_full,
TO_CHAR (a.bez_afspraak_datum, 'HH24:MI') tijdstip,
(SELECT rg.alg_ruimte_aanduiding
FROM res_v_alg_ruimte_gegevens rg
WHERE rg.res_alg_ruimte_key = rar.res_alg_ruimte_key)
ruimte,
b.bez_afspraak_naam klant,
COALESCE (TO_CHAR (b.bez_bezoekers_done, 'HH24:MI'),
DECODE (rsv.res_status_fo_key, 4, 'Afgezegd', ''))
binnen,
a.bez_afspraak_opmerking
|| CHR (13)
|| CHR (10)
|| b.bez_bezoekers_opmerking
sofi_postc,
r.res_reservering_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_ruimte rsv,
bez_afspraak a,
bez_bezoekers b,
res_ruimte_opstelling ro,
prs_v_perslid_fullnames_all pf,
res_v_aanwezigalg_ruimte rar
WHERE r.res_reservering_key = rsv.res_reservering_key
AND rsv.res_rsv_ruimte_key = a.res_rsv_ruimte_key
AND a.bez_afspraak_key = b.bez_afspraak_key
AND rsv.res_rsv_ruimte_host_key = pf.prs_perslid_key
AND TO_CHAR (rsv.res_rsv_ruimte_van, 'YYYYMMDD') =
TO_CHAR (SYSDATE, 'YYYYMMDD')
AND rsv.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rar.res_ruimte_key;
CREATE OR REPLACE VIEW UWVA_V_DISCIPLINE_SLA
(
INS_DISCIPLINE_KEY,
INS_DISCIPLINE_OMSCHRIJVING,
INS_SRTDISCIPLINE_PREFIX
)
AS
SELECT ins_discipline_key,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix
FROM mld_discipline d, ins_srtdiscipline sd
WHERE d.ins_discipline_module = 'MLD'
AND sd.ins_srtdiscipline_key = d.ins_srtdiscipline_key
AND ins_srtdiscipline_prefix IN ('A', 'S');
CREATE OR REPLACE VIEW uwva_v_mld_actual
(
mld_key,
vakgroeptype_key,
vakgroeptype_prefix,
vakgroep_key,
vakgroep_oms,
stdmld_key,
stdmld_oms,
mld_status_key,
--mld_sla,
mld_begindatum,
mld_einddatum,
acpt_telaat,
uitv_telaat,
district_key,
district_oms,
mldacp_date,
mldrej_date,
mldafm_date
)
AS
SELECT meld.mld_key,
meld.vakgroeptype_key,
meld.vakgroeptype_prefix,
meld.vakgroep_key,
meld.vakgroep_oms,
meld.stdmld_key,
meld.stdmld_oms,
meld.status_key,
--meld.sla,
meld.begindatum,
meld.einddatum,
DECODE (SIGN (meld.mld_melding_acceptdatum_std
- COALESCE (mldrej.fac_tracking_datum,
mldacp.fac_tracking_datum,
mldafm.fac_tracking_datum,
SYSDATE)),
-1, 1,
0)
acpt_telaat,
DECODE (
SIGN(meld.mld_melding_einddatum_std
- COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum,
SYSDATE)),
-1,
1,
0)
uitv_telaat,
meld.district_key,
meld.district_oms,
mldacp.fac_tracking_datum,
mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum
FROM (SELECT m.mld_melding_key mld_key,
sd.ins_srtdiscipline_key vakgroeptype_key,
sd.ins_srtdiscipline_prefix vakgroeptype_prefix,
td.ins_discipline_key vakgroep_key,
td.ins_discipline_omschrijving vakgroep_oms,
sm.mld_stdmelding_key stdmld_key,
sm.mld_stdmelding_omschrijving stdmld_oms,
m.mld_melding_status status_key,
--m.mld_melding_uitvoertijd sla,
m.mld_melding_datum begindatum,
m.mld_melding_einddatum einddatum,
m.mld_melding_acceptdatum_std,
m.mld_melding_einddatum_std,
d.alg_district_key district_key,
d.alg_district_omschrijving district_oms
FROM mld_melding m,
mld_stdmelding sm,
ins_tab_discipline td,
ins_srtdiscipline sd,
alg_locatie l,
alg_district d
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_prefix IN ('A', 'S')
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)) meld
LEFT JOIN (SELECT t.fac_tracking_refkey,
t.fac_tracking_datum,
t.prs_perslid_key
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 17
AND t.fac_tracking_key IN
(SELECT MAX (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key = 17
AND fac_tracking_refkey =
t.fac_tracking_refkey))
mldacp
ON meld.mld_key = mldacp.fac_tracking_refkey
LEFT JOIN fac_tracking mldrej
ON meld.mld_key = mldrej.fac_tracking_refkey
AND mldrej.fac_srtnotificatie_key = 22
LEFT JOIN fac_tracking mldafm
ON meld.mld_key = mldafm.fac_tracking_refkey
AND mldafm.fac_srtnotificatie_key = 18
WHERE meld.begindatum > TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY');
-- SLA Rapportages, van alle rapportages wordt eerst de onderliggende rapportage
-- xxx_INPUT gedefinieerd. Rapportages met UITV hebben betrekking op de uitvoertijd
-- en rapportages met ACC hebben betrekking op de acceptatie tijd.
CREATE OR REPLACE VIEW uwva_v_mld_sla_acc_input_sp
(
maand,
ins_discipline_key,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix,
district_key,
nogopen,
optijd,
telaat,
totaal
)
AS
SELECT x.maand,
x.vakgroep_key,
x.vakgroep_oms,
x.vakgroeptype_prefix,
x.district_key,
x.nogopen,
x.optijd,
x.telaat,
x.nogopen + x.optijd + x.telaat totaal
FROM ( SELECT TO_CHAR (mld_begindatum, 'yymm') maand,
vakgroep_key,
vakgroep_oms,
vakgroeptype_prefix,
district_key,
SUM (DECODE (mld_status_key, 2, 1, 3, 1, 0)) nogopen,
SUM(DECODE (mld_status_key,
2, 0,
3, 0,
DECODE (acpt_telaat, 0, 1, 0)))
optijd,
SUM(DECODE (mld_status_key,
2, 0,
3, 0,
DECODE (acpt_telaat, 1, 1, 0)))
telaat
FROM uwva_v_mld_actual
GROUP BY TO_CHAR (mld_begindatum, 'yymm'),
vakgroep_key,
vakgroep_oms,
vakgroeptype_prefix,
district_key) x;
CREATE OR REPLACE VIEW uwva_v_mld_sla_acc_sp
(
fclt_f_maand,
fclt_f_productgroep,
fclt_f_soort,
fclt_f_servicepunt,
fclt_3d_locatie_key,
aantal_open,
aantal_optijd,
aantal_telaat,
totaal,
openperc,
optijdperc,
telaatperc
)
AS
SELECT maand,
ins_discipline_omschrijving vakgroep,
ins_srtdiscipline_prefix soort,
(SELECT alg_district_omschrijving
FROM alg_district
WHERE alg_district_key = district_key)
AS district,
(SELECT MAX (alg_locatie_key)
FROM alg_locatie
WHERE alg_district_key = district_key)
AS locatie_key,
TO_CHAR (nogopen) nogopen,
TO_CHAR (optijd) optijd,
TO_CHAR (telaat) telaat,
TO_CHAR (totaal) totaal,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (nogopen / totaal) * 100, 1)))
p_open,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (optijd / totaal) * 100, 1)))
p_optijd,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (telaat / totaal) * 100, 1)))
p_telaat
FROM uwva_v_mld_sla_acc_input_sp;
CREATE OR REPLACE VIEW uwva_v_mld_sla_acc
(
fclt_f_maand,
fclt_f_productgroep,
fclt_f_soort,
aantal_open,
aantal_optijd,
aantal_telaat,
totaal,
openperc,
optijdperc,
telaatperc
)
AS
SELECT x.maand,
x.ins_discipline_omschrijving vakgroep,
x.ins_srtdiscipline_prefix soort,
TO_CHAR (x.nogopen) nogopen,
TO_CHAR (x.optijd) optijd,
TO_CHAR (x.telaat) telaat,
TO_CHAR (x.totaal) totaal,
DECODE (x.totaal,
0, '0',
TO_CHAR (ROUND ( (x.nogopen / x.totaal) * 100, 1)))
p_open,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (x.optijd / x.totaal) * 100, 1)))
p_optijd,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (x.telaat / x.totaal) * 100, 1)))
p_telaat
FROM ( SELECT maand,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix,
SUM (nogopen) nogopen,
SUM (optijd) optijd,
SUM (telaat) telaat,
SUM (nogopen + optijd + telaat) totaal
FROM uwva_v_mld_sla_acc_input_sp
GROUP BY maand,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix) x;
CREATE OR REPLACE VIEW uwva_v_mld_sla_uitv_input_sp
(
maand,
ins_discipline_key,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix,
district_key,
nogopen,
optijd,
telaat,
afgewezen,
totaal
)
AS
SELECT x.maand,
x.vakgroep_key,
x.vakgroep_oms,
x.vakgroeptype_prefix,
x.district_key,
x.nogopen,
x.optijd,
x.telaat,
x.afgewezen,
x.nogopen + x.optijd + x.telaat + x.afgewezen totaal
FROM ( SELECT TO_CHAR (mld_begindatum, 'yymm') maand,
vakgroep_key,
vakgroep_oms,
vakgroeptype_prefix,
district_key,
SUM (DECODE (mld_status_key, 1, 0, 5, 0, 6, 0, 1)) nogopen,
SUM(DECODE (mld_status_key,
5, DECODE (uitv_telaat, 0, 1, 0),
6, DECODE (uitv_telaat, 0, 1, 0),
0))
optijd,
SUM(DECODE (mld_status_key,
5, DECODE (uitv_telaat, 1, 1, 0),
6, DECODE (uitv_telaat, 1, 1, 0),
0))
telaat,
SUM (DECODE (mld_status_key, 1, 1, 0)) afgewezen
FROM uwva_v_mld_actual
GROUP BY TO_CHAR (mld_begindatum, 'yymm'),
vakgroep_key,
vakgroep_oms,
vakgroeptype_prefix,
district_key) x;
CREATE OR REPLACE VIEW uwva_v_mld_sla_uitv_sp
(
fclt_f_maand,
fclt_f_productgroep,
fclt_f_soort,
fclt_f_servicepunt,
fclt_3d_locatie_key,
aantal_open,
aantal_optijd,
aantal_telaat,
aantal_afgewezen,
totaal,
openperc,
optijdperc,
telaatperc,
afgewezenperc
)
AS
SELECT maand,
ins_discipline_omschrijving vakgroep,
ins_srtdiscipline_prefix soort,
(SELECT alg_district_omschrijving
FROM alg_district
WHERE alg_district_key = district_key)
AS district,
(SELECT MAX (alg_locatie_key)
FROM alg_locatie
WHERE alg_district_key = district_key)
AS locatie_key,
TO_CHAR (nogopen) nogopen,
TO_CHAR (optijd) optijd,
TO_CHAR (telaat) telaat,
TO_CHAR (afgewezen) afgewezen,
TO_CHAR (totaal) totaal,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (nogopen / totaal) * 100, 1)))
p_open,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (optijd / totaal) * 100, 1)))
p_optijd,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (telaat / totaal) * 100, 1)))
p_telaat,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (afgewezen / totaal) * 100, 1)))
p_afgewezen
FROM uwva_v_mld_sla_uitv_input_sp;
CREATE OR REPLACE VIEW uwva_v_mld_sla_uitv
(
fclt_f_maand,
fclt_f_productgroep,
fclt_f_soort,
aantal_open,
aantal_optijd,
aantal_telaat,
aantal_afgewezen,
totaal,
openperc,
optijdperc,
telaatperc,
afgewezenperc
)
AS
SELECT x.maand,
x.ins_discipline_omschrijving vakgroep,
x.ins_srtdiscipline_prefix soort,
TO_CHAR (x.nogopen) nogopen,
TO_CHAR (x.optijd) optijd,
TO_CHAR (x.telaat) telaat,
TO_CHAR (x.afgewezen) afgewezen,
TO_CHAR (x.totaal) totaal,
DECODE (x.totaal,
0, '0',
TO_CHAR (ROUND ( (x.nogopen / x.totaal) * 100, 1)))
p_open,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (x.optijd / x.totaal) * 100, 1)))
p_optijd,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (x.telaat / x.totaal) * 100, 1)))
p_telaat,
DECODE (totaal,
0, '0',
TO_CHAR (ROUND ( (x.afgewezen / x.totaal) * 100, 1)))
p_afgewezen
FROM ( SELECT maand,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix,
SUM (nogopen) nogopen,
SUM (optijd) optijd,
SUM (telaat) telaat,
SUM (afgewezen) afgewezen,
SUM (nogopen + optijd + telaat + afgewezen) totaal
FROM uwva_v_mld_sla_uitv_input_sp
GROUP BY maand,
ins_discipline_omschrijving,
ins_srtdiscipline_prefix) x;
CREATE OR REPLACE VIEW uwva_v_mld_klachten_pi
(
fclt_f_maand,
productgroep,
locatie,
aantal_geaccepteerd
)
AS
SELECT TO_CHAR (mld_melding_datum, 'YYYYMM'),
d.ins_discipline_omschrijving,
l.alg_locatie_code,
COUNT (DISTINCT mld_melding_key)
FROM mld_melding m,
ins_tab_discipline d,
mld_stdmelding st,
alg_locatie l
WHERE m.mld_stdmelding_key = st.mld_stdmelding_key
AND st.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = 3
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_melding_status >= 4
GROUP BY TO_CHAR (mld_melding_datum, 'YYYYMM'),
l.alg_locatie_code,
d.ins_discipline_omschrijving;
CREATE OR REPLACE VIEW uwva_v_active_users
AS
SELECT prs_perslid_key
FROM prs_v_aanwezigperslid
WHERE prs_perslid_login + (6 * 30) > SYSDATE;
CREATE OR REPLACE VIEW uwva_v_inactive_users
AS
SELECT p.prs_perslid_naam
|| DECODE (NVL (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (NVL (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
naam,
p.prs_perslid_nr personeelsnr,
COALESCE (kp.prs_kostenplaats_nr, '-') kostenplaats,
l.locatie,
u.fac_groep_omschrijving rol,
(SELECT prs_kenmerklink_waarde
FROM prs_kenmerklink
WHERE prs_kenmerk_key = 1004 -- Op 15-11-2010 verwijderd???
AND prs_link_key = p.prs_perslid_key)
datum,
COALESCE (
bh.prs_perslid_naam
|| DECODE (NVL (bh.prs_perslid_voorletters, ''),
'', '',
', ' || bh.prs_perslid_voorletters)
|| DECODE (NVL (bh.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || bh.prs_perslid_tussenvoegsel)
|| DECODE (NVL (bh.prs_perslid_voornaam, ''),
'', '',
' (' || bh.prs_perslid_voornaam || ')'),
'-')
budgethouder,
COALESCE (bh.prs_perslid_email, '-') budgethouder_email
FROM (SELECT p.prs_perslid_key,
p.prs_afdeling_key,
g.fac_groep_omschrijving
FROM fac_gebruikersgroep gg, fac_groep g, prs_perslid p
WHERE gg.fac_groep_key = g.fac_groep_key
AND g.fac_groep_key <> 241 -- '_default'
AND gg.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_oslogin IS NOT NULL) u,
prs_v_aanwezigperslid p,
( SELECT prs_pw.prs_perslid_key,
MIN (alg_l.alg_locatie_code) locatie
FROM alg_ruimte alg_r,
alg_verdieping alg_v,
alg_gebouw alg_g,
alg_locatie alg_l,
prs_werkplek prs_w,
prs_perslidwerkplek prs_pw
WHERE alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
AND alg_g.alg_locatie_key = alg_l.alg_locatie_key
AND alg_r.alg_ruimte_key = prs_w.prs_alg_ruimte_key
AND prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
GROUP BY prs_pw.prs_perslid_key) l,
prs_afdeling a,
prs_kostenplaats kp,
prs_perslid bh,
uwva_v_active_users au
WHERE u.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_aanmaak + (6 * 30) < SYSDATE
AND p.prs_perslid_key = l.prs_perslid_key(+)
AND p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND kp.prs_perslid_key = bh.prs_perslid_key(+)
AND u.prs_perslid_key = au.prs_perslid_key(+)
AND au.prs_perslid_key IS NULL;
-- Met UWVA53 het window tussen 60-75 dagen actief gemaakt
-- (ipv. alles > 60 dagen); scheelt een hoop log-regels!
CREATE OR REPLACE VIEW uwva_v_vertaal_docs_delete
(
mld_melding_key,
mld_melding_datum,
mld_melding_verwerkt,
mld_melding_afgewezen,
foldervertaaldocumenten
)
AS
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
--'../flexfiles/mld/M'
'/MLD/M'
|| SUBSTR (LPAD (m.mld_melding_key, 7, '0'), 1, 4)
|| '___'
|| '/M'
|| m.mld_melding_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_melding m, mld_stdmelding sm
WHERE k.mld_kenmerk_niveau IN ('S', 'D')
AND k.mld_srtkenmerk_key IN (483, 1881) -- Te vertalen document
AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_stdmelding_key = m.mld_stdmelding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 245 -- Vertaaldienst
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND ((fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('MLDREJ', m.mld_melding_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('MLDREJ', m.mld_melding_key) > (SYSDATE - 75)))
UNION
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
COALESCE (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key), fac.gettrackingdate ('ORDCAN', o.mld_opdr_key)),
--'../flexfiles/mld/O'
'/MLD/O'
|| SUBSTR (LPAD (o.mld_opdr_key, 7, '0'), 1, 4)
|| '___'
|| '/O'
|| o.mld_opdr_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_opdr o, mld_melding m, mld_stdmelding sm
WHERE k.mld_kenmerk_niveau = 'O'
AND k.mld_srtkenmerk_key IN (483, 1881) -- Te vertalen document
AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_typeopdr_key = o.mld_typeopdr_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 245 -- Vertaaldienst
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND o.mld_statusopdr_key IN (1, 2, 6, 7, 9) -- Opdracht Afgewezen, Niet akkoord, TV, AV of KV
AND ((fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) > (SYSDATE - 75)))
UNION
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
COALESCE (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key), fac.gettrackingdate ('ORDCAN', o.mld_opdr_key)),
--'../flexfiles/mld/O'
'/MLD/O'
|| SUBSTR (LPAD (o.mld_opdr_key, 7, '0'), 1, 4)
|| '___'
|| '/O'
|| o.mld_opdr_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_opdr o, mld_melding m, mld_stdmelding sm, mld_kenmerkopdr ko
WHERE k.mld_kenmerk_niveau = 'O'
AND k.mld_srtkenmerk_key IN (801, 802, 803, 804, 821, 822) -- Vertaalde documenten
AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_typeopdr_key = o.mld_typeopdr_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 245 -- Vertaaldienst
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND o.mld_statusopdr_key IN (1, 2, 6, 7, 9) -- Opdracht Afgewezen, Niet akkoord, TV, AV of KV
AND ko.mld_opdr_key = o.mld_opdr_key -- If kenmerkopdr exists...
AND ko.mld_kenmerk_key = k.mld_kenmerk_key -- ...for opdr+kenmerk
AND ((fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) > (SYSDATE - 75)))
UNION -- UWVA#40012: Schonen bijlagen bij Buitenlandse reis (soortmeldingen met keys 2941 en 3442)
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
--'../flexfiles/mld/M'
'/MLD/M'
|| SUBSTR (LPAD (m.mld_melding_key, 7, '0'), 1, 4)
|| '___'
|| '/M'
|| m.mld_melding_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_melding m
WHERE k.mld_kenmerk_niveau = 'S' --IN ('S', 'D')
AND k.mld_srtkenmerk_key IN (441, 1841) -- Bijlage/Aanvraagformulier buitenlandse reis
--AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_stdmelding_key = m.mld_stdmelding_key
AND m.mld_stdmelding_key IN (2941, 3442) -- Buitenlandse reis (oud en nieuw)
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND ((fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('MLDREJ', m.mld_melding_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('MLDREJ', m.mld_melding_key) > (SYSDATE - 75)))
UNION -- UWVA#40012: Schonen bijlagen bij Buitenlandse reis (opdrachten onder soortmeldingen met keys 2941 en 3442)
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
COALESCE (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key), fac.gettrackingdate ('ORDCAN', o.mld_opdr_key)),
--'../flexfiles/mld/O'
'/MLD/O'
|| SUBSTR (LPAD (o.mld_opdr_key, 7, '0'), 1, 4)
|| '___'
|| '/O'
|| o.mld_opdr_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_opdr o, mld_melding m
WHERE k.mld_kenmerk_niveau = 'O'
AND k.mld_srtkenmerk_key IN (441, 1841) -- Bijlage/Aanvraagformulier buitenlandse reis
--AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_typeopdr_key = o.mld_typeopdr_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key IN (2941, 3442) -- Buitenlandse reis (oud en nieuw)
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND o.mld_statusopdr_key IN (1, 2, 6, 7, 9) -- Opdracht Afgewezen, Niet akkoord, TV, AV of KV
AND ((fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) > (SYSDATE - 75))
OR (fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) < (SYSDATE - 60)
AND fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) > (SYSDATE - 75)));
/*
UNION -- UWVA#52959: Schonen bijlagen bij Aanvraag meubilair op medische indicatie (soortmeldingen met keys 741, 2525, 3234)
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
--'../flexfiles/mld/M'
'/MLD/M'
|| SUBSTR (LPAD (m.mld_melding_key, 7, '0'), 1, 4)
|| '___'
|| '/M'
|| m.mld_melding_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_melding m, mld_stdmelding sm
WHERE k.mld_srtkenmerk_key = 441 -- Bijlage
--AND k.mld_kenmerk_verwijder IS NULL
AND m.mld_stdmelding_key IN (741, 2525, 3234) -- Aanvraag meubilair op medische indicatie
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND ((m.mld_stdmelding_key = k.mld_stdmelding_key AND k.mld_kenmerk_niveau = 'S')
OR (sm.mld_ins_discipline_key = k.mld_stdmelding_key AND k.mld_kenmerk_niveau = 'D'))
--TODO:AND ((fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < (SYSDATE - 60)
-- AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) > (SYSDATE - 75))
-- OR (fac.gettrackingdate ('MLDREJ', m.mld_melding_key) < (SYSDATE - 60)
-- AND fac.gettrackingdate ('MLDREJ', m.mld_melding_key) > (SYSDATE - 75)))
AND (fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < (SYSDATE - 60)
OR fac.gettrackingdate ('MLDREJ', m.mld_melding_key) < (SYSDATE - 60))
UNION -- UWVA#52959: Schonen bijlagen bij Aanvraag meubilair op medische indicatie (opdrachten onder soortmeldingen met keys 741, 2525, 3234)
SELECT m.mld_melding_key,
m.mld_melding_datum,
fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
COALESCE (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key), fac.gettrackingdate ('ORDCAN', o.mld_opdr_key)),
--'../flexfiles/mld/O'
'/MLD/O'
|| SUBSTR (LPAD (o.mld_opdr_key, 7, '0'), 1, 4)
|| '___'
|| '/O'
|| o.mld_opdr_key
|| '/'
|| k.mld_kenmerk_key
foldervertaaldocumenten
FROM mld_kenmerk k, mld_opdr o, mld_melding m
WHERE k.mld_kenmerk_niveau = 'O'
AND k.mld_srtkenmerk_key = 441 -- Bijlage
--AND k.mld_kenmerk_verwijder IS NULL
AND k.mld_typeopdr_key = o.mld_typeopdr_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key IN (741, 2525, 3234) -- Aanvraag meubilair op medische indicatie
AND m.mld_melding_status IN (1, 5, 6) -- Melding Afgewezen, TV of AV
AND o.mld_statusopdr_key IN (1, 2, 6, 7, 9) -- Opdracht Afgewezen, Niet akkoord, TV, AV of KV
--TODO:AND ((fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) < (SYSDATE - 60)
-- AND fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) > (SYSDATE - 75))
-- OR (fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) < (SYSDATE - 60)
-- AND fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) > (SYSDATE - 75))
-- OR (fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) < (SYSDATE - 60)
-- AND fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) > (SYSDATE - 75)))
AND (fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) < (SYSDATE - 60)
OR fac.gettrackingdate ('ORDREJ', o.mld_opdr_key) < (SYSDATE - 60)
OR fac.gettrackingdate ('ORDCAN', o.mld_opdr_key) < (SYSDATE - 60));
*/
CREATE OR REPLACE VIEW uwva_v_vertaal_subsidie
(
fclt_f_maand,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
aantal_woorden,
hide_f_datumuitgevoerd,
fclt_3d_locatie_key,
hide_f_melding_key,
hide_f_opdracht_key
)
AS
SELECT TO_CHAR (m.mld_melding_datum, 'YYYY-MM') AS fclt_f_maand,
ud_nat.fac_usrdata_omschr AS nationaliteit,
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 706 -- vertalen van
AND fd.fac_usrtab_key = 401 -- Brontaal
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
AS brontaal,
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 707 -- vertalen naar
AND fd.fac_usrtab_key = 401 -- Doeltaal
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
AS doeltaal,
o.mld_opdr_uren AS aantal_woorden,
TO_CHAR (fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
'DD-MM-YYYY')
AS hide_f_datumuitgevoerd,
m.mld_alg_locatie_key AS fclt_3d_locatie_key,
m.mld_melding_key,
o.mld_opdr_key
FROM mld_melding m,
mld_opdr o,
mld_kenmerkmelding nat,
fac_usrdata ud_nat
WHERE m.mld_stdmelding_key = 1301
AND m.mld_melding_key = o.mld_melding_key(+)
AND nat.mld_melding_key = m.mld_melding_key
AND nat.mld_kenmerk_key = 821
AND ud_nat.fac_usrtab_key = 441 -- Nationaliteit
AND fac.safe_to_number (nat.mld_kenmerkmelding_waarde) =
ud_nat.fac_usrdata_key
AND ud_nat.fac_usrdata_prijs = 1 -- EU Nationaliteit
AND o.mld_statusopdr_key IN (6, 7, 9)
ORDER BY 1,
2,
3,
4;
CREATE OR REPLACE VIEW UWVA_V_VERTAAL_SUBSIDIE_UITG
(
FCLT_F_MAAND,
FCLT_F_NATIONALITEIT,
FCLT_F_BRONTAAL,
FCLT_F_DOELTAAL,
AANTAL_WOORDEN,
FCLT_3D_LOCATIE_KEY
)
AS
SELECT fclt_f_maand,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
SUM (aantal_woorden) aantal_woorden,
fclt_3d_locatie_key
FROM uwva_v_vertaal_subsidie tab
GROUP BY fclt_f_maand,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
fclt_3d_locatie_key
ORDER BY 1,
2,
3,
4,
5;
CREATE OR REPLACE VIEW uwva_v_vertaalwerk_omzet
(
fclt_f_maand,
fclt_f_vertaalbureau,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
aantal_woorden,
omzet,
hide_f_datumuitgevoerd,
fclt_3d_locatie_key,
hide_f_melding_key,
hide_f_opdracht_key
)
AS
SELECT TO_CHAR (m.mld_melding_datum, 'YYYY-MM') AS fclt_f_maand,
b.prs_bedrijf_naam vertaalbureau,
ud_nat.fac_usrdata_omschr AS nationaliteit,
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 706 -- vertalen van
AND fd.fac_usrtab_key = 401 -- Brontaal
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
AS brontaal,
(SELECT fd.fac_usrdata_omschr
FROM mld_kenmerkmelding k1, fac_usrdata fd
WHERE k1.mld_melding_key = m.mld_melding_key
AND k1.mld_kenmerk_key = 707 -- vertalen naar
AND fd.fac_usrtab_key = 401 -- Doeltaal
AND fac.safe_to_number (k1.mld_kenmerkmelding_waarde) =
fd.fac_usrdata_key)
AS doeltaal,
o.mld_opdr_uren AS aantal_woorden,
o.mld_opdr_kosten AS omzet,
TO_CHAR (fac.gettrackingdate ('ORDAFM', o.mld_opdr_key),
'DD-MM-YYYY')
AS hide_f_datumuitgevoerd,
m.mld_alg_locatie_key AS fclt_3d_locatie_key,
m.mld_melding_key,
o.mld_opdr_key
FROM mld_melding m,
mld_opdr o,
mld_kenmerkmelding nat,
fac_usrdata ud_nat,
prs_v_uitvoerendebedrijf b
WHERE m.mld_stdmelding_key = 1301
AND m.mld_melding_key = o.mld_melding_key(+)
AND nat.mld_melding_key = m.mld_melding_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND nat.mld_kenmerk_key = 821
AND ud_nat.fac_usrtab_key = 441 -- Nationaliteit
AND fac.safe_to_number (nat.mld_kenmerkmelding_waarde) =
ud_nat.fac_usrdata_key
AND o.mld_statusopdr_key IN (6, 7, 9)
ORDER BY 1,
2,
3,
4,
5;
CREATE OR REPLACE VIEW UWVA_V_VERTAALWERK_OMZET_UITG
(
FCLT_F_MAAND,
FCLT_F_VERTAALBUREAU,
FCLT_F_NATIONALITEIT,
FCLT_F_BRONTAAL,
FCLT_F_DOELTAAL,
AANTAL_WOORDEN,
OMZET,
FCLT_3D_LOCATIE_KEY
)
AS
SELECT fclt_f_maand,
fclt_f_vertaalbureau,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
SUM (aantal_woorden) aantal_woorden,
SUM (omzet) omzet,
fclt_3d_locatie_key
FROM uwva_v_vertaalwerk_omzet tab
GROUP BY fclt_f_maand,
fclt_f_vertaalbureau,
fclt_f_nationaliteit,
fclt_f_brontaal,
fclt_f_doeltaal,
fclt_3d_locatie_key
ORDER BY 1,
2,
3,
4,
5;
CREATE OR REPLACE PACKAGE UWVA_RAP
AS
-- PACKAGES voor de UWVA specifieke rapportages
TYPE t_cursor IS REF CURSOR;
PROCEDURE uwva_rap_afgemelde_kl (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE uwva_rap_afgemelde_io (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE uwva_rap_hv_cntopeind (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE uwva_rap_hv_cntopopzeg (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE uwva_rap_vert_sub (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
PROCEDURE uwva_rap_vertaalw_omz (user_key IN NUMBER,
p_datum_van IN VARCHAR2,
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor);
END;
/
CREATE OR REPLACE PACKAGE BODY uwva_rap
AS
--
-- Algemene procedures en functies.
--
PROCEDURE uwva_rap_afgemelde_kl (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT m.mld_melding_key nummer,
TO_CHAR (m.mld_melding_datum, 'DD-MM-YYYY HH24:MI') datum,
TO_CHAR (MAX (t.fac_tracking_datum), 'DD-MM-YYYY HH24:MI')
laatste_actie,
'['
|| md.ins_discipline_omschrijving
|| '/'
|| sm.mld_stdmelding_omschrijving
|| '] '
|| TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 2000))
omschrijving,
m.mld_melding_opmerking opmerking,
l.alg_locatie_code plaats
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
alg_locatie l,
fac_tracking t,
fac_srtnotificatie sn
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = 3
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_melding_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_code LIKE 'MLD%'
AND m.mld_melding_status = 5
--AND m.mld_melding_datum BETWEEN TO_DATE ('01-01-2025', 'DD-MM-YYYY') AND TO_DATE ('28-02-2025', 'DD-MM-YYYY')
AND m.mld_melding_datum BETWEEN v_datum_van AND v_datum_tot
GROUP BY mld_melding_key,
mld_melding_datum,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
TO_CHAR (SUBSTR (m.mld_melding_omschrijving, 1, 2000)),
m.mld_melding_opmerking,
l.alg_locatie_code
ORDER BY 1, 2, 3 DESC;
END;
PROCEDURE uwva_rap_afgemelde_io (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT x.sp servicepunt,
x.gebouw gebouw,
COUNT ( * ) totaal_afgemeld,
SUM (y.fsm) fsm_afgemeld
FROM (SELECT o.mld_opdr_key,
d.alg_district_omschrijving sp,
g.alg_gebouw_code gebouw
FROM mld_opdr o,
mld_v_uitvoerende u,
mld_melding m,
alg_v_allonroerendgoed aog,
alg_locatie l,
alg_district d,
alg_gebouw g
WHERE fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) BETWEEN v_datum_van
AND v_datum_tot
-- Afgemeld!
AND o.mld_uitvoerende_keys = u.mld_uitvoerende_key
AND u.TYPE = 'P' -- Intern!
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_locatie_key = l.alg_locatie_key
AND l.alg_district_key = d.alg_district_key
AND aog.alg_gebouw_key = g.alg_gebouw_key) x
-- Afgemelde interne opdrachten (voor meldingen op gebouw-nivo of lager)
LEFT JOIN
(SELECT o.mld_opdr_key, 1 fsm
FROM mld_opdr o, fac_gebruikersgroep gg
WHERE fac.gettrackingdate ('ORDAFM', o.mld_opdr_key) BETWEEN v_datum_van
AND v_datum_tot -- Afgemeld!
AND fac.gettrackinguserkey ('ORDAFM',
o.mld_opdr_key) =
gg.prs_perslid_key
AND gg.fac_groep_key = 381) y
-- Door FSM afgemelde opdrachten
ON x.mld_opdr_key = y.mld_opdr_key
GROUP BY x.sp, x.gebouw
ORDER BY x.sp, x.gebouw;
END;
-- Contracten op einddatum in een bepaalde periode!
PROCEDURE uwva_rap_hv_cntopeind (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT hide_f_sortdatum,
contract,
fclt_f_mantel,
beschrijving,
--fclt_x_regio,
adres,
plaats,
contractrubriek,
begindatum,
einddatum,
opzegtermijn,
opzegdatum,
fclt_f_contractstatus,
optie_systematiek,
cnt_opp,
eenheid,
fclt_3d_gebouw_key
FROM uwva_v_rap_hv_cntopeind
WHERE einddatum BETWEEN v_datum_van AND v_datum_tot
ORDER BY hide_f_sortdatum;
END;
-- Contracten op opzegdatum in een bepaalde periode!
PROCEDURE uwva_rap_hv_cntopopzeg (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT hide_f_sortdatum,
contract,
fclt_f_mantel,
beschrijving,
--fclt_x_regio,
adres,
plaats,
contractrubriek,
begindatum,
einddatum,
opzegtermijn,
opzegdatum,
fclt_f_contractstatus,
optie_systematiek,
cnt_opp,
eenheid,
fclt_3d_gebouw_key
FROM uwva_v_rap_hv_cntopopzeg
WHERE opzegdatum BETWEEN v_datum_van AND v_datum_tot
ORDER BY hide_f_sortdatum;
END;
-- Aantal woorden per vertaalde taal in een bepaalde periode!
PROCEDURE uwva_rap_vert_sub (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT doeltaal, aantal_woorden
FROM ( SELECT fclt_f_doeltaal AS doeltaal,
SUM (aantal_woorden) AS aantal_woorden,
'A' extra
FROM uwva_v_vertaal_subsidie
WHERE TO_DATE (hide_f_datumuitgevoerd, 'dd-mm-yyyy') BETWEEN v_datum_van
AND v_datum_tot
GROUP BY fclt_f_doeltaal
UNION
SELECT '' AS doeltaal,
SUM (aantal_woorden) AS aantal_woorden,
'B' extra
FROM uwva_v_vertaal_subsidie
WHERE TO_DATE (hide_f_datumuitgevoerd, 'dd-mm-yyyy') BETWEEN v_datum_van
AND v_datum_tot)
tab
ORDER BY tab.extra, 1;
END;
-- Aantal woorden en omzet per vertaalde taal per vertaalbureau in een bepaalde periode!
PROCEDURE uwva_rap_vertaalw_omz (user_key IN NUMBER,
p_datum_van IN VARCHAR2, -- Let wel: formaat '16-01-2006'
p_datum_tot IN VARCHAR2,
p_cursor OUT t_cursor)
AS
v_datum_van DATE;
v_datum_tot DATE;
BEGIN
v_datum_van := fac.safe_to_date (p_datum_van, 'dd-mm-yyyy');
v_datum_tot := fac.safe_to_date (p_datum_tot, 'dd-mm-yyyy');
OPEN p_cursor FOR
SELECT vertaalbureau,
doeltaal,
aantal_woorden,
omzet
FROM ( SELECT fclt_f_vertaalbureau AS vertaalbureau,
fclt_f_doeltaal AS doeltaal,
SUM (aantal_woorden) AS aantal_woorden,
SUM (omzet) AS omzet,
'A' extra
FROM uwva_v_vertaalwerk_omzet
WHERE TO_DATE (hide_f_datumuitgevoerd, 'dd-mm-yyyy') BETWEEN v_datum_van
AND v_datum_tot
GROUP BY fclt_f_vertaalbureau, fclt_f_doeltaal
UNION
SELECT '' AS vertaalbureau,
'' AS doeltaal,
SUM (aantal_woorden) AS aantal_woorden,
SUM (omzet) AS omzet,
'B' extra
FROM uwva_v_vertaalwerk_omzet
WHERE TO_DATE (hide_f_datumuitgevoerd, 'dd-mm-yyyy') BETWEEN v_datum_van
AND v_datum_tot)
tab
ORDER BY tab.extra, 1, 2;
END;
END;
/
CREATE OR REPLACE VIEW uwva_v_no_default
(
naam,
pers_nr,
login,
afdeling
)
AS
SELECT pf.prs_perslid_naam_full naam,
p.prs_perslid_nr pers_nr,
p.prs_perslid_oslogin login,
a.prs_afdeling_naam || ' - ' || a.prs_afdeling_omschrijving
afdeling
FROM prs_afdeling a,
prs_perslid p,
prs_v_perslid_fullnames_all pf,
(SELECT *
FROM fac_gebruikersgroep
WHERE fac_groep_key = 241) gg
WHERE p.prs_perslid_oslogin IS NOT NULL
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_perslid_verwijder IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key
AND gg.prs_perslid_key(+) = p.prs_perslid_key
AND gg.prs_perslid_key IS NULL;
CREATE OR REPLACE VIEW UWVA_V_CATALOGUS
(
HIDE_F_CATALOGUS,
KEY,
FCLT_F_CATALOGUS,
GROEP,
OMSCHRIJVING,
PRIJS,
EENHEID,
ART_NR,
LEVERANCIER,
VERVALDATUM,
IMAGE,
VEELVOUD
)
AS
SELECT UPPER (dis.ins_discipline_omschrijving) hide_f_Catalogus,
TO_CHAR (b.bes_srtdeel_key) KEY,
dis.ins_discipline_omschrijving FCLT_F_Catalogus,
g.bes_srtgroep_omschrijving groep,
b.bes_srtdeel_omschrijving omschrijving,
TO_CHAR (bes.getsrtdeelprijs (b.bes_srtdeel_key, NULL)) prijs,
b.bes_srtdeel_eenheid eenheid,
b.bes_srtdeel_nr art_nr,
bd.prs_bedrijf_naam leverancier,
TO_CHAR (b.bes_srtdeel_vervaldatum, 'dd-mm-yyyy') vervaldatum,
b.bes_srtdeel_image image,
TO_CHAR (b.bes_srtdeel_veelvoud) veelvoud
FROM bes_v_aanwezigsrtdeel b,
bes_srtGROEP g,
PRS_BEDRIJF bd,
INS_TAB_DISCIPLINE dis
WHERE b.bes_srtgroep_key = g.bes_srtgroep_key
AND b.prs_bedrijf_key = bd.prs_bedrijf_key(+)
AND dis.ins_discipline_key = g.ins_discipline_key;
-- UWVA#12097
CREATE OR REPLACE VIEW uwva_v_res_catalogus
(
omschrijving,
kostensoort,
kostensoort_opmerking,
artikel_nr,
artikel_omschrijving,
artikel_prijs,
eenheid,
vaste_prijs
)
AS
SELECT ins_discipline_omschrijving,
ks.prs_kostensoort_oms,
prs_kostensoort_opmerking,
ra.res_artikel_nr,
ra.res_artikel_omschrijving,
ra.res_artikel_prijs,
ra.res_artikel_eenheid,
ra.res_artikel_prijs_vast
FROM res_discipline rd, prs_kostensoort ks, res_v_aanwezigartikel ra
WHERE rd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
AND rd.ins_discipline_verwijder IS NULL
AND ra.res_artikel_verwijder IS NULL
AND rd.ins_discipline_key = ra.res_discipline_key;
-- Notification view
CREATE OR REPLACE VIEW uwva_v_noti_mailcheck
(
sender,
receiver,
text,
par1,
code,
key,
xkey
)
AS
SELECT '',
prs_perslid_key,
'Controle e-mail van Facilitor voor de beheerders, verstuurd om '
|| TO_CHAR (SYSDATE, 'DD-MM-YYYY HH24:MI'),
SYSDATE,
NULL,
NULL,
NULL
FROM fac_functie f, fac_v_webgebruiker wg
WHERE f.fac_functie_key = wg.fac_functie_key
AND f.fac_functie_code = 'WEB_PRSSYS';
CREATE OR REPLACE VIEW uwva_v_noti_resreminder
(
code,
sender,
receiver,
text,
KEY,
xkey
)
AS
SELECT code,
sender,
receiver,
REPLACE (text, 'Reservering ', 'HERINNERING voor uw reservering '),
KEY,
xkey
FROM fac_v_noti_resreminder;
-- UWVA#12262: 4.70: nieuwe Rapportage lege email adressen resp. geen uwv mail Personen
CREATE OR REPLACE VIEW uwva_v_invalid_email
AS
SELECT pf.prs_perslid_naam_full FCLT_F_Naam,
d.prs_afdeling_naam6 Organisatie,
p.prs_perslid_email email,
p.prs_perslid_telefoonnr Telefoon,
srt_p.prs_srtperslid_omschrijving Functie
FROM PRS_PERSLID p,
prs_v_perslid_fullnames pf,
prs_v_afdeling d,
PRS_SRTPERSLID srt_p
WHERE pf.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_verwijder IS NULL
AND d.prs_afdeling_key = p.prs_afdeling_key
AND srt_p.prs_srtperslid_key = p.prs_srtperslid_key
AND p.prs_perslid_verwijder IS NULL
AND ( (p.prs_perslid_email IS NULL)
OR ( (INSTR (UPPER (p.prs_perslid_email), 'UWV.NL')) = 0))
ORDER BY p.prs_perslid_upper ASC;
-- UWVA#12422
CREATE OR REPLACE VIEW uwva_v_mld_stdmelding
(
fclt_f_vakgroep,
fclt_f_omschrijving,
acceptatietijd_uren,
uitvoertijd_dagen,
kostensoort
)
AS
SELECT td.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
TO_CHAR (sm.mld_stdmelding_t_accepttijd.tijdsduur)
|| sm.mld_stdmelding_t_accepttijd.eenheid,
TO_CHAR (sm.mld_stdmelding_t_uitvoertijd.tijdsduur)
|| sm.mld_stdmelding_t_uitvoertijd.eenheid,
NVL (kss.prs_kostensoort_oms, ksd.prs_kostensoort_oms)
FROM ins_tab_discipline td,
mld_stdmelding sm,
prs_kostensoort kss,
prs_kostensoort ksd
WHERE sm.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_discipline_verwijder IS NULL
AND td.prs_kostensoort_key = ksd.prs_kostensoort_key(+)
AND sm.prs_kostensoort_key = kss.prs_kostensoort_key(+);
-- UWVA#12460 Overzicht van geautoriseerden voor overige rapportages (WEB_USER<nn>)
CREATE OR REPLACE VIEW uwva_v_overige_rap
(
autorisatiegroep,
rapportage,
omschrijving,
info
)
AS
SELECT g.fac_groep_omschrijving autorisatiegroep,
f.fac_functie_omschrijving rapportage,
ur.fac_usrrap_omschrijving omschrijving,
ur.fac_usrrap_info info
FROM fac_groep g,
fac_groeprechten gr,
fac_functie f,
fac_usrrap ur
WHERE g.fac_groep_key = gr.fac_groep_key
AND gr.fac_functie_key = f.fac_functie_key
AND f.fac_functie_key = ur.fac_functie_key
AND SUBSTR (f.fac_functie_code, 1, 8) = 'WEB_USER'
ORDER BY g.fac_groep_omschrijving,
f.fac_functie_omschrijving,
ur.fac_usrrap_omschrijving;
-- AfterSales afmelden van bestellingen, meldingen en reserveringen.
-- UWVA#21019: ook facturen automatisch accorderen (na 4 weken bij de budgethouder)
CREATE OR REPLACE VIEW uwva_v_export_aftersales (result, result_order)
AS
SELECT '', 0
FROM DUAL
WHERE 1 = 0;
----------------------------------------------------------------------------------
--
-- UWVA#29299: Allemaal cursors voor tracken van anonimisering van MLD/RES/BEZ
-- UWVA#59571: Anonimisering van BEZ aangepast
CREATE OR REPLACE PROCEDURE uwva_aftersales_anonimiseer (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
c_txt_anoniem VARCHAR2 (200) := 'Geanonimiseerd';
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
h_mld_melding_key NUMBER (10); --hulp-variabele
v_nu DATE;
-- Delete 'BSN' voor spobilo-meldingen >31 dagen oud! (UWVA#19129)
CURSOR c_spobilo
IS
SELECT m.mld_melding_key, km.mld_kenmerkmelding_key
FROM mld_melding m, mld_stdmelding sm, mld_discipline md, ins_srtdiscipline sd,
mld_kenmerkmelding km, mld_kenmerk k, mld_srtkenmerk sk
WHERE m.mld_melding_datum < SYSDATE - 31
AND m.mld_melding_datum > SYSDATE - 365 --MB toegevoegd tbv performance
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_key = 5 -- Spobilo
AND km.mld_kenmerkmelding_verwijder IS NULL
AND m.mld_melding_key = km.mld_melding_key
AND k.mld_kenmerk_verwijder IS NULL
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND sk.mld_srtkenmerk_key = 105 --BSN
ORDER BY m.mld_melding_key;
CURSOR c_vertaal
IS
SELECT m.mld_melding_key, km.mld_kenmerkmelding_key, km.mld_kenmerk_key
FROM mld_melding m, fac_tracking tr, mld_kenmerkmelding km
WHERE m.mld_stdmelding_key = 1301 -- Vertaalwerk
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND m.mld_melding_key = km.mld_melding_key
AND ((km.mld_kenmerk_key = 701 AND km.mld_kenmerkmelding_waarde != 'Anoniem') -- Naam en niet Anoniem
OR km.mld_kenmerk_key IN (702, 703)) -- Gevalsnummer+BSN
AND tr.fac_tracking_datum < SYSDATE - 60
AND tr.fac_tracking_datum > SYSDATE - 365 --MvH toegevoegd tbv performance
ORDER BY m.mld_melding_key;
CURSOR c_archief_dossier_hulshoff
IS
SELECT m.mld_melding_key, km.mld_kenmerkmelding_key
FROM mld_melding m, fac_tracking tr, mld_kenmerkmelding km
WHERE m.mld_stdmelding_key IN (2, 146, 2961) -- Vraag over archief+Overdracht naar Hulshoff+Verwijderen dossiers
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND m.mld_melding_key = km.mld_melding_key(+)
AND km.mld_kenmerk_key(+) = 2385 -- Te verwijderen dossiers
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > SYSDATE - 365 --MB toegevoegd tbv performance
AND NOT EXISTS -- UWVA#60581: Overkill aan tracking!
(SELECT 1
FROM fac_tracking
WHERE fac_srtnotificatie_key = 23 -- MLDUPD
AND fac_tracking_oms = c_txt_anoniem
AND fac_tracking_refkey = m.mld_melding_key)
ORDER BY m.mld_melding_key;
CURSOR c_tolk
IS
SELECT m.mld_melding_key, km.mld_kenmerkmelding_key
FROM mld_melding m, fac_tracking tr, mld_kenmerkmelding km, mld_kenmerk k
WHERE m.mld_stdmelding_key IN (2801, 2802, 2821, 3421, 3422, 3423) -- Tolkdiensten (op UWV locatie+telefonisch+extern)
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 1500 -- Naam klant
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > SYSDATE - 365 --MvH toegevoegd tbv performance
UNION ALL
SELECT m.mld_melding_key, km.mld_kenmerkmelding_key
FROM mld_melding m, fac_tracking tr, mld_kenmerkmelding km, mld_kenmerk k
WHERE m.mld_stdmelding_key = 1721 -- Tolk Nederlandse gebarentaal
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 701 -- Naam gesprekspartner UWV
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > SYSDATE - 365 --MvH toegevoegd tbv performance
ORDER BY 1;
-- UWVA#55161: Uitbreiding anonimisering met onderstaande MLD/BES-kenmerksoorten!
-- UWVA#61925: Ook kenmerksoort met key=1241 anonimiseren!
-- UWVA#84274: Ook kenmerksoort met key=2501/2502 anonimiseren!
CURSOR c_mld_kenmerksoorten
IS
SELECT DISTINCT m.mld_melding_key
FROM mld_melding m, fac_tracking tr, mld_kenmerkmelding km, mld_kenmerk k
WHERE m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key IN (1267, -- Adres
1665, -- Telefoonnummer
1722, -- IBAN
1765, -- Exacte tenaamsteling
1241, -- Contactgegevens
2501, -- Anonimisering klein (60 tekens)
2502) -- Anonimisering groot (200 tekens)
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > SYSDATE - 365 --MvH toegevoegd tbv performance
ORDER BY 1;
CURSOR c_bes_kenmerksoorten
IS
SELECT DISTINCT b.bes_bestelling_key
FROM bes_bestelling b, fac_tracking tr, bes_kenmerkbestell kb, bes_kenmerk k
WHERE b.bes_bestelling_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (6, 7) -- BESOTV/BESREJ
AND b.bes_bestelling_key = kb.bes_bestelling_key
AND kb.bes_kenmerk_key = k.bes_kenmerk_key
AND k.bes_srtkenmerk_key IN (4, 5, 8) -- Afgeven bij/Straat huisnummer/Telefoon
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > SYSDATE - 365 --MvH toegevoegd tbv performance
ORDER BY 1;
-- Met UWVA#59571 is de opschoning vwb de bezoekers- en afspraakregistratie een stuk vereenvoudigd en daarmee deze cursor ook.
-- Of een BSN gevuld is is niet meer van toepassing, van alle bezoekers meer dan 31 dagen geleden mag er geanonimiseerd/geschoond worden.
-- De bezoekersregistratie zelf laten we wel nog staan ivm tellingen.
CURSOR c_afspraak
IS
SELECT DISTINCT (a.bez_afspraak_key)
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_key = b.bez_afspraak_key
AND a.bez_afspraak_datum < SYSDATE - 31
AND a.bez_afspraak_datum > SYSDATE - 365;
-- Reserveringen met een gevuld BSN-veld (deze hebben hier geen bezoekers meer met een gevuld BSN-veld)!
CURSOR c_res
IS
SELECT r.res_rsv_ruimte_key, kw.res_kenmerkwaarde_key
FROM res_rsv_ruimte r, res_kenmerkwaarde kw, res_kenmerk k
WHERE r.res_rsv_ruimte_key = kw.res_rsv_ruimte_key
AND kw.res_kenmerk_key = k.res_kenmerk_key
AND k.res_srtkenmerk_key = 3 --BSN
AND r.res_rsv_ruimte_tot < SYSDATE - 31
AND r.res_rsv_ruimte_tot > SYSDATE - 365 --MB toegevoegd tbv performance
ORDER BY res_rsv_ruimte_key;
BEGIN
v_nu := SYSDATE;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_spobilo
LOOP
DELETE FROM mld_kenmerkmelding
WHERE mld_kenmerkmelding_key = rc.mld_kenmerkmelding_key;
DELETE FROM fac_tracking
WHERE fac_srtnotificatie_key = 23 -- MLDUPD
AND fac_tracking_refkey = rc.mld_melding_key;
fac.trackaction ('#MLDUPD', rc.mld_melding_key, NULL, v_nu, c_txt_anoniem);
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
h_mld_melding_key := 0;
FOR rc IN c_vertaal
LOOP
IF h_mld_melding_key <> rc.mld_melding_key
THEN
-- Per vertaalwerk-melding eenmalig tracking toevoegen (en verwijderen), om meervoudige tracking te voorkomen!
DELETE FROM fac_tracking
WHERE fac_srtnotificatie_key = 23 -- MLDUPD
AND (UPPER (fac_tracking_oms) LIKE '%BSN%' OR UPPER (fac_tracking_oms) LIKE '%NAAM%')
AND fac_tracking_refkey = rc.mld_melding_key;
fac.trackaction ('#MLDUPD', rc.mld_melding_key, NULL, v_nu, c_txt_anoniem);
END IF;
IF rc.mld_kenmerk_key = 701 -- Naam
THEN
UPDATE mld_kenmerkmelding
SET mld_kenmerkmelding_waarde = 'Anoniem'
WHERE mld_kenmerkmelding_key = rc.mld_kenmerkmelding_key;
END IF;
IF (rc.mld_kenmerk_key = 702 OR rc.mld_kenmerk_key = 703) -- Gevalsnummer of BSN
THEN
DELETE FROM mld_kenmerkmelding
WHERE mld_kenmerkmelding_key = rc.mld_kenmerkmelding_key;
END IF;
h_mld_melding_key := rc.mld_melding_key;
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Delete/anonimiseer bovenstaande kenmerken ook uit Omschrijving van opdracht! (UWVA#28316)
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE';
UPDATE mld_opdr
SET mld_opdr_omschrijving = '[Geanonimiseerd; zie bovenliggende melding voor nog aanwezige gegevens.]'
WHERE COALESCE (mld_opdr_omschrijving, '-') NOT LIKE '[Geanonimiseerd%'
AND mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m, fac_tracking tr
WHERE m.mld_stdmelding_key = 1301 -- Vertaalwerk
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND tr.fac_tracking_datum < SYSDATE - 60);
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE';
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_archief_dossier_hulshoff
LOOP
DELETE FROM fac_tracking
WHERE fac_srtnotificatie_key = 23 -- MLDUPD
AND (UPPER (fac_tracking_oms) LIKE '%BSN%' OR UPPER (fac_tracking_oms) LIKE '%NAAM%')
AND fac_tracking_refkey = rc.mld_melding_key;
fac.trackaction ('#MLDUPD', rc.mld_melding_key, NULL, v_nu, c_txt_anoniem);
-- Delete/anonimiseer Omschrijving van 2-, 146 en 2961-meldingen die >31 dagen geleden zijn afgemeld! (UWVA#29178)
UPDATE mld_melding
SET mld_melding_omschrijving = '[Geanonimiseerd.]',
mld_melding_onderwerp = '[Geanonimiseerd.]'
WHERE COALESCE (TO_CHAR(SUBSTR(mld_melding_omschrijving, 1, 4000)), mld_melding_onderwerp) NOT LIKE '[Geanonimiseerd%'
AND mld_melding_key = rc.mld_melding_key;
-- Delete 'Te verwijderen dossiers' (kenmerk met key=2385).
DELETE FROM mld_kenmerkmelding km
WHERE mld_kenmerkmelding_key = rc.mld_kenmerkmelding_key;
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Delete/anonimiseer Omschrijving van 2-, 146 en 2961-opdrachten die >31 dagen geleden zijn afgemeld! (UWVA#29178)
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE';
UPDATE mld_opdr
SET mld_opdr_omschrijving = '[Geanonimiseerd.]'
WHERE COALESCE (mld_opdr_omschrijving, '-') NOT LIKE '[Geanonimiseerd%'
AND mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m, fac_tracking tr
WHERE m.mld_stdmelding_key IN (2, 146, 2961) -- Vraag over archief+Overdracht naar Hulshoff+Verwijderen dossiers
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND tr.fac_tracking_datum < SYSDATE - 31);
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE';
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_tolk
LOOP
DELETE FROM fac_tracking
WHERE fac_srtnotificatie_key = 23 -- MLDUPD
AND UPPER (fac_tracking_oms) LIKE '%NAAM%'
AND fac_tracking_refkey = rc.mld_melding_key;
fac.trackaction ('#MLDUPD', rc.mld_melding_key, NULL, v_nu, c_txt_anoniem);
-- Delete/anonimiseer Omschrijving <20>n Onderwerp van 3421-, 3422-, 3423-, 1721-meldingen die >31 dagen geleden zijn afgemeld! (UWVA#41825)
-- NIET NODIG VOOR 2801-, 2802-, 2821-MELDINGEN, WANT DIE MELDINGEN HEBBEN GEEN OMSCHRIJVING/ONDERWERP!
UPDATE mld_melding
SET mld_melding_omschrijving = '[Geanonimiseerd.]',
mld_melding_onderwerp = '[Geanonimiseerd.]'
WHERE mld_stdmelding_key IN (3421, 3422, 3423, 1721)
AND COALESCE (TO_CHAR(SUBSTR(mld_melding_omschrijving, 1, 4000)), mld_melding_onderwerp) NOT LIKE '[Geanonimiseerd%'
AND mld_melding_key = rc.mld_melding_key;
-- Delete 'Naam klant' (kenmerksoort met key=1500) of 'Naam gesprekspartner UWV' (kenmerksoort met key=701).
DELETE FROM mld_kenmerkmelding
WHERE mld_kenmerkmelding_key = rc.mld_kenmerkmelding_key;
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Delete/anonimiseer Omschrijving van 2801-, 2802-, 2821-opdrachten die >31 dagen geleden zijn afgemeld! (UWVA#33073)
-- En ook van 3421-, 3422-, 3423-, 1721-opdrachten! (UWVA#41825)
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU DISABLE';
UPDATE mld_opdr
SET mld_opdr_omschrijving = '[Geanonimiseerd.]'
WHERE COALESCE (mld_opdr_omschrijving, '-') NOT LIKE '[Geanonimiseerd%'
AND mld_melding_key IN
(SELECT mld_melding_key
FROM mld_melding m, fac_tracking tr
WHERE m.mld_stdmelding_key IN (2801, 2802, 2821, 3421, 3422, 3423, 1721) -- Tolkdiensten (op UWV locatie+telefonisch+extern)
AND m.mld_melding_key = tr.fac_tracking_refkey
AND tr.fac_srtnotificatie_key IN (18, 22) -- MLDAFM/MLDREJ
AND tr.fac_tracking_datum < SYSDATE - 31
AND tr.fac_tracking_datum > TO_DATE ('26062015', 'ddmmyyyy')); -- Per introductie 'Naam klant'!
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE';
COMMIT;
-- UWVA#55161: Uitbreiding anonimisering met onderstaande MLD/BES-kenmerksoorten!
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_mld_kenmerksoorten
LOOP
fac.trackaction ('#MLDUPD', rc.mld_melding_key, NULL, v_nu, c_txt_anoniem);
DELETE FROM mld_kenmerkmelding km -- Inclusief eventueel verwijderde waarden!
WHERE km.mld_melding_key = rc.mld_melding_key
AND EXISTS (SELECT 1
FROM mld_kenmerk
WHERE mld_srtkenmerk_key IN (1267, -- Adres
1665, -- Telefoonnummer
1722, -- IBAN
1765, -- Exacte tenaamsteling
1241, -- Contactgegevens
2501, -- Anonimisering klein (60 tekens)
2502) -- Anonimisering groot (200 tekens)
AND mld_kenmerk_key = km.mld_kenmerk_key);
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_bes_kenmerksoorten
LOOP
fac.trackaction ('#BESUPD', rc.bes_bestelling_key, NULL, v_nu, c_txt_anoniem);
DELETE FROM bes_kenmerkbestell kb -- Inclusief eventueel verwijderde waarden!
WHERE kb.bes_bestelling_key = rc.bes_bestelling_key
AND EXISTS (SELECT 1
FROM bes_kenmerk
WHERE bes_srtkenmerk_key IN (4, 5, 8) -- Afgeven bij/Straat huisnummer/Telefoon
AND bes_kenmerk_key = kb.bes_kenmerk_key);
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_afspraak
LOOP
-- Anonimiseren van alle bezoekersregistratie > 31 dagen oud en verwijderen tracking (UWVA#59571)
DELETE FROM bez_kenmerkwaarde kw
WHERE EXISTS
(SELECT 1
FROM bez_bezoekers
WHERE bez_bezoekers_key = kw.bez_bezoekers_key
AND bez_afspraak_key = rc.bez_afspraak_key);
-- UWVA#30245: Anonimiseren bez_bezoekers.bez_bezoekers_opmerking hoeft
-- niet, want bevat geen vertrouwelijke info!
-- Anonimiseer gegevens per bezoeker van afspraken >31 dagen oud (bij bezoeker of reservering)
-- Met UWVA#59571 moeten bepaalde bezoekersregistraties (KZ) naar 'Anoniem', anderen naar 'Bezoeker'
-- Dat gaat via eigen tabel 'KZ-klant zone' waarin de betreffende activiteit-key staat van de KZ activiteiten (die wijzigen minder vaak)
UPDATE bez_bezoekers
SET bez_afspraak_naam = 'Anoniem', bez_afspraak_bedrijf = NULL
WHERE bez_afspraak_key = rc.bez_afspraak_key
AND bez_afspraak_key IN
(SELECT a2.bez_afspraak_key
FROM fac_usrdata ud,
bez_afspraak a2,
res_rsv_ruimte r
WHERE r.res_activiteit_key =
fac.safe_to_number (ud.fac_usrdata_code)
AND a2.res_rsv_ruimte_key =
r.res_rsv_ruimte_key
AND ud.fac_usrdata_verwijder IS NULL
AND ud.fac_usrtab_key = 1663); -- Eigen tabel Klantzone
UPDATE bez_bezoekers
SET bez_afspraak_naam = 'Bezoeker', bez_afspraak_bedrijf = NULL
WHERE bez_afspraak_key = rc.bez_afspraak_key
AND bez_afspraak_key NOT IN
(SELECT a2.bez_afspraak_key
FROM fac_usrdata ud,
bez_afspraak a2,
res_rsv_ruimte r
WHERE r.res_activiteit_key =
fac.safe_to_number (ud.fac_usrdata_code)
AND a2.res_rsv_ruimte_key =
r.res_rsv_ruimte_key
AND ud.fac_usrdata_verwijder IS NULL
AND ud.fac_usrtab_key = 1663); -- Eigen tabel Klantzone
-- Verwijder opmerking van afspraken >31 dagen oud met BSN (bij bezoeker of reservering)
UPDATE bez_afspraak
SET bez_afspraak_opmerking = NULL
WHERE bez_afspraak_key = rc.bez_afspraak_key;
-- Met UWVA#59571 moeten de reserveringsopmerkingen ook leeg worden gemaakt voor de kz-reserveringen.
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_opmerking = NULL
WHERE res_rsv_ruimte_key IN
(SELECT r.res_rsv_ruimte_key
FROM fac_usrdata ud, bez_afspraak a2, res_rsv_ruimte r
WHERE r.res_activiteit_key =
fac.safe_to_number (ud.fac_usrdata_code)
AND a2.res_rsv_ruimte_key = r.res_rsv_ruimte_key
AND a2.bez_afspraak_key = rc.bez_afspraak_key
AND ud.fac_usrdata_verwijder IS NULL
AND ud.fac_usrtab_key = 1663);
DELETE FROM fac_tracking
WHERE fac_tracking_key IN
(SELECT t.fac_tracking_key
FROM fac_srtnotificatie sn,
fac_tracking t,
bez_bezoekers b,
bez_afspraak a
WHERE t.fac_srtnotificatie_key =
sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode =
'bezoeker'
AND t.fac_tracking_refkey =
b.bez_bezoekers_key
AND b.bez_afspraak_key = a.bez_afspraak_key
AND t.fac_tracking_refkey =
rc.bez_afspraak_key);
DELETE FROM fac_tracking
WHERE fac_tracking_key IN
(SELECT t.fac_tracking_key
FROM fac_srtnotificatie sn,
fac_tracking t,
bez_afspraak a
WHERE t.fac_srtnotificatie_key =
sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode =
'afspraak'
AND t.fac_tracking_refkey =
a.bez_afspraak_key
AND t.fac_tracking_refkey =
rc.bez_afspraak_key);
END LOOP;
COMMIT;
------------------------------------------------------------------------------------------------------------------------------------------------------------------
FOR rc IN c_res
LOOP
-- Cursor bevat reserveringen met BSN die moeten worden geanonimiseerd.
-- Delete 'BSN' voor alle reserveringen >31 dagen oud (dus met BSN)
-- Per UWVA#29469 ongeacht activiteitkey!
DELETE FROM res_kenmerkwaarde
WHERE res_kenmerkwaarde_key = rc.res_kenmerkwaarde_key;
-- Verwijder opmerking van alle reserveringen >31 dagen oud met BSN
-- Per UWVA#29469 ongeacht activiteitkey!
UPDATE res_rsv_ruimte
SET res_rsv_ruimte_opmerking = NULL
WHERE res_rsv_ruimte_key = rc.res_rsv_ruimte_key;
DELETE FROM fac_tracking
WHERE fac_srtnotificatie_key = 31 -- RESUPD
AND UPPER (fac_tracking_oms) LIKE '%BSN%'
AND fac_tracking_refkey = rc.res_rsv_ruimte_key;
fac.trackaction ('#RESUPD', rc.res_rsv_ruimte_key, NULL, v_nu, c_txt_anoniem);
/* Hoeft niet meer; gebeurt in c_afspraak-loop!
-- BEZ-afspraken bij reservering ook anonimiseren; is er gerelateerde afspraak?
IF rc.bez_afspraak_key IS NOT NULL
THEN
-- Ja dus, er is een afspraak bij reservering!
-- Verwijder opmerking van afspraken bij reserveringen >31 dagen oud met BSN
-- Per UWVA#29469 ongeacht activiteitkey!
UPDATE bez_afspraak
SET bez_afspraak_opmerking = NULL
WHERE bez_afspraak_key = rc.bez_afspraak_key;
-- Anonimiseer gegevens per bezoeker bij reserveringen >31 dagen oud met BSN
-- Per UWVA#29469 ongeacht activiteitkey!
UPDATE bez_bezoekers
SET bez_afspraak_naam = 'Anoniem',
bez_afspraak_bedrijf = 'Anoniem'
WHERE bez_afspraak_key = rc.bez_afspraak_key;
fac.trackaction ('#BEZUPD', rc.bez_afspraak_key, NULL, v_nu, c_txt_anoniem);
END IF;
*/
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
-- Op verzoek van JGL voor de zekerheid toegevoegd!
EXECUTE IMMEDIATE 'ALTER TRIGGER MLD_T_MLD_OPDR_B_IU ENABLE';
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', 'Sub-proces ANONIMISEER afgebroken!', v_errormsg);
COMMIT;
END;
/
CREATE OR REPLACE PROCEDURE uwva_export_aftersales (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2)
AS
-- De bestelopdrachten die ik als compleet geleverd veronderstel,
-- die zouden in principe meer werkdagen geleden geleverd zijn dan
-- de 'notidagen' van de catalogus aangeeft.
CURSOR cbopi
IS
SELECT boi.bes_bestelopdr_item_key, bo.bes_bestelopdr_key
FROM bes_bestelopdr bo,
bes_bestelopdr_item boi,
bes_bestelling_item bi,
bes_bestelling b,
bes_srtdeel sd,
bes_srtgroep sg,
bes_disc_params bdp
WHERE bo.bes_bestelopdr_status = 4 -- In bestelling
AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
AND bi.bes_bestelling_key = b.bes_bestelling_key
AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
AND sg.ins_discipline_key = bdp.bes_ins_discipline_key
AND bdp.bes_disc_params_noti_dagen IS NOT NULL
AND (b.bes_bestelling_leverdatum IS NULL
OR fac.datumtijdplusuitvoertijd (
b.bes_bestelling_leverdatum,
bdp.bes_disc_params_noti_dagen,
'DAGEN') < SYSDATE);
-- Alle bestelaanvragen die (nu) geheel geleverd zijn sluiten we af.
CURSOR cbesi
IS
SELECT bi.bes_bestelling_item_key, b.bes_bestelling_key
FROM bes_bestelling b,
bes_bestelling_item bi,
bes_bestelopdr_item boi
WHERE b.bes_bestelling_status = 5 -- Besteld
AND b.bes_bestelling_key = bi.bes_bestelling_key
--AND bi.bes_bestelling_item_aantal <>
-- NVL (bi.bes_bestelling_item_aantalontv, 0)
AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_item_aantal =
boi.bes_bestelopdr_item_aantalontv;
-- Alle meldingen die nu wel klaar mogen zijn, x kalender(!)dagen na de
-- geplande einddatum.
-- Dit was in 4i x werkdagen (waarden 0,1,2,3, dus laag > kalenderdagen
-- benadert beste).
-- UWVA#17854 vraagt dit te baseren op de datum van de open opdrachten als
-- die daarbij zijn.
CURSOR copdr -- nu te sluiten opdrachten
IS
SELECT o.mld_opdr_key, o.mld_melding_key
FROM mld_opdr o,
mld_melding m,
mld_stdmelding std,
mld_disc_params mdp
WHERE o.mld_statusopdr_key NOT IN (1, 6, 7, 9) -- vervallen/gesloten
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = mdp.mld_ins_discipline_key
AND mdp.mld_disc_params_noti_dagen IS NOT NULL
AND o.mld_opdr_einddatum + mdp.mld_disc_params_noti_dagen + 1 <
SYSDATE;
CURSOR cmld -- nu te sluiten meldingen, maar alleen ZONDER OPEN OPDRACHTEN
IS
SELECT m.mld_melding_key, m.mld_melding_status
FROM mld_melding m, mld_stdmelding std, mld_disc_params mdp
WHERE m.mld_melding_status NOT IN (1, 5, 6) -- nog niet al klaar!
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = mdp.mld_ins_discipline_key
AND mdp.mld_disc_params_noti_dagen IS NOT NULL
AND m.mld_melding_einddatum + mdp.mld_disc_params_noti_dagen + 1 <
SYSDATE
AND NOT EXISTS
(SELECT ''
FROM mld_opdr o
WHERE o.mld_melding_key = m.mld_melding_key
AND o.mld_statusopdr_key NOT IN (1, 6, 7, 9));
CURSOR cart
IS
SELECT '[' || TO_CHAR (ra.res_rsv_ruimte_key) || '/' || TO_CHAR (ra.res_rsv_artikel_key) || '] ' aanduiding,
ra.res_rsv_ruimte_key,
ra.res_rsv_artikel_key,
ra.res_artikel_key
FROM res_rsv_artikel ra
WHERE ra.res_status_bo_key = 2
AND ra.res_rsv_artikel_dirtlevel = 0
AND ra.res_rsv_artikel_verwijder IS NULL
AND fac.count_work_days (ra.res_rsv_artikel_levering, SYSDATE) > 2;
-- UWVA#80789: Afmelden WP-reserveringen na 1 werkdag (ipv. 3 werkdagen)!
CURSOR cobj
IS
SELECT '[' || TO_CHAR (rd.res_rsv_ruimte_key) || '/' || TO_CHAR (rd.res_rsv_deel_key) || '] ' aanduiding,
rd.res_rsv_ruimte_key,
rd.res_rsv_deel_key
FROM res_rsv_deel rd, res_rsv_ruimte rr
WHERE rd.res_rsv_deel_verwijder IS NULL
AND rd.res_rsv_deel_dirtlevel = 0
AND rd.res_status_bo_key = 2
--AND rd.res_rsv_ruimte_key IS NOT NULL -- Geen parkeerplaatsen
AND rd.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
AND fac.count_work_days (rd.res_rsv_deel_tot, SYSDATE) > DECODE (rr.res_activiteit_key, 501, 0, 2);
CURSOR cres
IS
SELECT '[' || TO_CHAR (rrr.res_rsv_ruimte_key) || '] ' aanduiding,
rrr.res_rsv_ruimte_key
FROM res_rsv_ruimte rrr
WHERE rrr.res_rsv_ruimte_verwijder IS NULL
AND rrr.res_rsv_ruimte_dirtlevel = 0
AND rrr.res_status_bo_key = 2
AND rrr.res_ruimte_opstel_key IS NOT NULL -- Geen "roomservice"
AND fac.count_work_days (rrr.res_rsv_ruimte_tot, SYSDATE) > 2;
-- Facturen die al 4 weken bij de budgethouder liggen,
-- maar nog steeds niet zijn goedgekeurd --> akkoord verklaren.
CURSOR cfact
IS
SELECT *
FROM fin_factuur f
WHERE f.fin_factuur_statuses_key = 2
AND f.fin_factuur_verwijder IS NULL
AND ( f.bes_bestelopdr_key IS NOT NULL
OR f.mld_opdr_key IS NOT NULL
OR f.cnt_contract_key IS NOT NULL)
AND f.fin_factuur_datum < SYSDATE - 28; -- meer dan 4 weken (28 dagen) geleden
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_prijs NUMBER (9, 2);
BEGIN
FOR r IN cbopi
LOOP
-- Zeg dat alles geleverd is wat besteld is.
UPDATE bes_bestelopdr_item
SET bes_bestelopdr_item_aantalontv = bes_bestelopdr_item_aantal
WHERE bes_bestelopdr_item_key = r.bes_bestelopdr_item_key;
bes.updatebestelopdrstatus (r.bes_bestelopdr_key, NULL);
END LOOP;
FOR r IN cbesi
LOOP
-- Sluit alle aanvraagregels af die nu geheel geleverd zijn.
UPDATE bes_bestelling_item
SET bes_bestelling_item_aantalontv = bes_bestelling_item_aantal
WHERE bes_bestelling_item_key = r.bes_bestelling_item_key;
bes.updatebestellingstatus (r.bes_bestelling_key, NULL);
END LOOP;
COMMIT;
FOR r IN copdr
LOOP
mld.setopdrachtstatus (r.mld_opdr_key, 6, NULL);
-- Actualiseer nu de meldingstatus. Intuitief zou je kunnen denken
-- dat je juist wel closeit zou moeten meegegeven, maar er is een
-- verschil met de loop erna, die naar de eindtijd kijkt.
mld.updatemeldingstatus (r.mld_melding_key, 0, NULL);
END LOOP;
-- Merk op: door de loop hiervoor zijn opdrachten gesloten waardoor
-- meldingen hierna aan het criterium voldoen.
FOR r IN cmld
LOOP
-- Overgang van Ingezien naar Afgemeld is niet mogelijk, daarom eerst
-- accepteren!
IF (r.mld_melding_status = 3) -- Ingezien
THEN
MLD.setmeldingstatus (r.mld_melding_key, 4, NULL); -- Geaccepteerd
END IF;
mld.setmeldingstatus (r.mld_melding_key, 5, NULL); -- Afgemeld
END LOOP;
COMMIT;
-- UWVA#21428 - Per 2012 (28/12 om precies te zijn worden ook R-artikelen +
-- R-delen automatisch afgemeld!
FOR rc IN cart
LOOP
BEGIN
v_errorhint := 'Fout bij bepalen res_rsv_artikel_prijs.';
SELECT res.getartikelprijs (rc.res_rsv_artikel_key)
INTO v_prijs
FROM DUAL;
v_errorhint := 'Fout bij bijwerken res_rsv_artikel_prijs.';
UPDATE res_rsv_artikel
SET res_status_bo_key = 5,
res_rsv_artikel_prijs = v_prijs,
res_rsv_artikel_inkoopprijs =
(SELECT res_artikel_inkoopprijs
FROM res_artikel
WHERE res_artikel_key = rc.res_artikel_key),
res_rsv_artikel_btw =
(SELECT res_artikel_btw
FROM res_artikel
WHERE res_artikel_key = rc.res_artikel_key)
WHERE res_rsv_artikel_key = rc.res_rsv_artikel_key;
fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, 'Catering afgemeld');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
COMMIT;
END;
END LOOP;
COMMIT;
FOR rc IN cobj
LOOP
BEGIN
v_errorhint := 'Fout bij bepalen res_rsv_deel_prijs.';
SELECT res.getdeelprijs (rc.res_rsv_deel_key) INTO v_prijs FROM DUAL;
v_errorhint := 'Fout bij bijwerken res_rsv_deel_prijs.';
UPDATE res_rsv_deel
SET res_status_bo_key = 5, res_rsv_deel_prijs = v_prijs
WHERE res_rsv_deel_key = rc.res_rsv_deel_key;
fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, 'Voorziening(en) afgemeld');
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
COMMIT;
END;
END LOOP;
COMMIT;
FOR rc IN cres
LOOP
BEGIN
v_errorhint := 'Fout bij bepalen res_rsv_ruimte_prijs.';
SELECT res.getruimteprijs (rc.res_rsv_ruimte_key)
INTO v_prijs
FROM DUAL;
v_errorhint := 'Fout bij bijwerken res_rsv_ruimte_prijs.';
UPDATE res_rsv_ruimte
SET res_status_bo_key = 5, res_rsv_ruimte_prijs = v_prijs
WHERE res_rsv_ruimte_key = rc.res_rsv_ruimte_key;
fac.trackaction ('RESAFM', rc.res_rsv_ruimte_key, NULL, NULL, NULL);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'W', rc.aanduiding || v_errormsg, v_errorhint);
COMMIT;
END;
END LOOP;
COMMIT;
FOR r IN cfact
LOOP
-- Fiatteer factuur
-- (zet status 6. Geen userkey, zodat blijkt dat dit automagisch gedaan is)
fin.setfactuurstatus (r.fin_factuur_key, 6, NULL);
END LOOP;
COMMIT;
-- Alle anonimiseer-zaken verlopen via procedure uwva_aftersales_anonimiseer.
-------------------------------------------------------------------------------
uwva_aftersales_anonimiseer (p_applname,
p_applrun,
p_filedir,
p_filename);
-------------------------------------------------------------------------------
-- UWVA#29757 FlexWhere: De reserveringen van gisteren van AMSG3 (22,23 verdieping) op no-show zetten.
-------------------------------------------------------------------------------
uwva_res_sensor_noshow (p_applname,
p_applrun,
p_filedir,
p_filename);
-------------------------------------------------------------------------------
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname,
'E',
'Proces AFTERSALES afgebroken!',
v_errormsg);
COMMIT;
END;
/
-- UWVA#35039: Handmatig <20>n direct te starten KOS-procedure!
CREATE OR REPLACE VIEW uwva_v_export_kos (result, result_order)
AS
SELECT fac_rapport_regel, fac_rapport_volgnr
FROM fac_rapport
WHERE fac_rapport_node = SUBSTR ('KOS', 1, 12);
CREATE OR REPLACE PROCEDURE uwva_select_kos (p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
CURSOR c
IS
SELECT a.bez_afspraak_key,
rrr.res_rsv_ruimte_key,
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
resnr,
rr.res_ruimte_nr resruimte,
rrr.res_rsv_ruimte_van van,
ac.bez_actie_key
FROM bez_afspraak a,
res_rsv_ruimte rrr,
res_ruimte_opstelling ro,
res_ruimte rr,
bez_actie ac
WHERE a.bez_afspraak_datum > TRUNC (SYSDATE)
AND a.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rr.res_ruimte_key
AND rr.bez_actie_key = ac.bez_actie_key
AND BITAND (ac.bez_actie_flags, 1) = 1
AND (a.bez_actie_key != ac.bez_actie_key
OR a.bez_actie_key IS NULL)
ORDER BY 1;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (255);
v_rownr NUMBER := 0;
v_count NUMBER;
PROCEDURE add_row (p_regel IN VARCHAR2)
AS
BEGIN
INSERT INTO fac_rapport (fac_rapport_node,
fac_rapport_volgnr,
fac_rapport_regel)
VALUES (SUBSTR (p_applname, 1, 12), v_rownr, p_regel);
v_rownr := v_rownr + 1;
END;
PROCEDURE add_element (p_tag IN VARCHAR2, p_value IN VARCHAR2)
AS
BEGIN
add_row( '<'
|| p_tag
|| '>'
|| xml.char_to_html (p_value)
|| '</'
|| p_tag
|| '>');
END;
BEGIN
DELETE fac_rapport
WHERE fac_rapport_node = SUBSTR (p_applname, 1, 12);
COMMIT;
add_row ('<kos>');
FOR r IN c
LOOP
BEGIN
v_aanduiding :=
'Afspraak '
|| r.bez_afspraak_key
|| ' op '
|| TO_CHAR (r.van, 'dd-mm-yyyy hh24:mi')
|| ' bij '
|| r.resnr
|| ' ('
|| r.res_rsv_ruimte_key
|| ') in '
|| r.resruimte;
v_errormsg := 'Fout bijwerken bez_actie bij bez_afspraak';
UPDATE bez_afspraak
SET bez_actie_key = r.bez_actie_key
WHERE bez_afspraak_key = r.bez_afspraak_key;
fac.writelog (p_applname,
'I',
v_aanduiding,
'');
add_element ('log', v_aanduiding);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname,
'E',
v_errormsg,
v_aanduiding);
END;
END LOOP;
COMMIT;
-- Alle res_ruimte zonder default-actie de default-actie toekennen.
SELECT COUNT ( * )
INTO v_count
FROM res_ruimte
WHERE bez_actie_key IS NULL;
UPDATE res_ruimte
SET bez_actie_key = 5
WHERE bez_actie_key IS NULL;
add_element (
'log',
'Aantal reserveerbare ruimten zonder actie: ' || TO_CHAR (v_count));
-- Alle toekomstige bez_afspraak zonder actie de default-actie toekennen.
SELECT COUNT ( * )
INTO v_count
FROM bez_afspraak
WHERE bez_afspraak_datum > TRUNC (SYSDATE) AND bez_actie_key IS NULL;
UPDATE bez_afspraak
SET bez_actie_key = 5
WHERE bez_afspraak_datum > TRUNC (SYSDATE) AND bez_actie_key IS NULL;
add_element (
'log',
'Aantal toekomstige afspraken zonder actie: ' || TO_CHAR (v_count));
add_row ('</kos>');
COMMIT;
END;
/
CREATE OR REPLACE VIEW uwva_v_imp_log
(
fclt_f_applicatie,
datum,
fclt_f_status,
omschrijving,
hint
)
AS
SELECT COALESCE (fac_import_app_code, imp_log_applicatie),
imp_log_datum,
imp_log_status,
imp_log_omschrijving,
imp_log_hint
FROM imp_log il, fac_import fi, fac_import_app fia
WHERE il.fac_import_key = fi.fac_import_key(+)
AND fi.fac_import_app_key = fia.fac_import_app_key(+);
-- UWVA#30547: Deze personen niet meer exporteren:
-- - autorisatiegroepen Budgethouder en Medewerker
-- - medewerkertype M (Techniek en Uitvoerenden) en L (Leverancier)
-- fac_groep Budgethouder 1061
-- fac_groep Medewerker 1601
-- fac_groep _Default 241
-- prs_kenmerk Type Medewerker 1040
-- fac_usrtab Type_medewerker 301
CREATE OR REPLACE VIEW uwva_v_export_cpua
(
result,
result_order
)
AS
SELECT Systeem
|| ';'
|| SysOmschr
|| ';'
|| Account_id
|| ';'
|| AutOmschr
|| ';'
|| Autorisatie_id
|| ';'
|| VolNaamMedew
|| ';'
|| VoornaamMedew
|| ';'
|| AchternaamMedew
|| ';'
|| VoorletterMedew
|| ';'
|| WnrMedew
|| ';'
|| Userid_KA
|| ';'
|| KstnpltsMedew
|| ';'
|| LastLogon
|| ';'
|| Status_account
result,
Account_Id result_order
FROM (SELECT 'Facilitor' Systeem,
'Facilitair Management Informatie Systeem' SysOmschr,
prs_perslid_oslogin Account_id,
fac_groep_omschrijving AutOmschr,
g.fac_groep_key Autorisatie_id,
prs_perslid_naam_full VolNaamMedew,
prs_perslid_voornaam VoornaamMedew,
prs_perslid_naam AchternaamMedew,
prs_perslid_voorletters VoorletterMedew,
prs_perslid_nr WnrMedew,
prs_perslid_oslogin Userid_KA,
prs_afdeling_naam KstnpltsMedew,
TO_CHAR (prs_perslid_login, 'yyyymmddhh24mi') LastLogon,
DECODE (prs_perslid_verwijder, NULL, 'A', 'B')
Status_account
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
prs_afdeling a,
fac_gebruikersgroep gg,
fac_groep g,
(SELECT *
FROM prs_kenmerklink kl
WHERE prs_kenmerk_key = 1040
AND prs_kenmerklink_verwijder IS NULL) km,
(SELECT *
FROM fac_usrdata
WHERE fac_usrtab_key = 301
AND fac_usrdata_verwijder IS NULL) ud
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key
AND p.prs_perslid_oslogin IS NOT NULL
AND g.fac_groep_key NOT IN (241, 1061, 1601)
AND km.prs_link_key(+) = p.prs_perslid_key
AND ud.fac_usrdata_key(+) =
fac.safe_to_number (km.prs_kenmerklink_waarde)
AND COALESCE (ud.fac_usrdata_upper, 'nix') NOT IN
('M', 'L'));
CREATE OR REPLACE VIEW uwva_v_rap_bedrijfinfo
(
bedrijfsnaam,
bezoekadres,
plaats,
email,
l,
u,
c,
h
)
AS
SELECT prs_bedrijf_naam,
prs_bedrijf_bezoek_adres,
prs_bedrijf_bezoek_plaats,
prs_bedrijf_email,
prs_bedrijf_leverancier l,
prs_bedrijf_uitvoerende u,
prs_bedrijf_contract c,
prs_bedrijf_huurder h
FROM prs_v_aanwezigbedrijf;
CREATE OR REPLACE VIEW uwva_v_kenmerkwaarden
(
cnt_contract_key,
cnt_srtkenmerk_upper,
cnt_kenmerkcontract_waarde,
ins_discipline_key
)
AS
SELECT kc.cnt_contract_key,
t.cnt_srtkenmerk_upper,
kc.cnt_kenmerkcontract_waarde,
s.ins_discipline_key
FROM cnt_srtkenmerk t,
cnt_kenmerkcontract kc,
cnt_discipline s,
cnt_kenmerk k,
fac_kenmerkdomein r
WHERE 1 = 1
AND k.cnt_srtcontract_key = s.ins_discipline_key
AND k.cnt_kenmerk_verwijder IS NULL
AND k.cnt_srtkenmerk_key = t.cnt_srtkenmerk_key
AND t.cnt_srtkenmerk_verwijder IS NULL
AND t.fac_kenmerkdomein_key = r.fac_kenmerkdomein_key(+)
AND kc.cnt_kenmerk_key = k.cnt_kenmerk_key
AND kc.cnt_kenmerkcontract_verwijder IS NULL
ORDER BY k.cnt_kenmerk_volgnummer, t.cnt_srtkenmerk_omschrijving;
-- UWVA#14205
CREATE OR REPLACE VIEW uwva_v_bes_retouren
(
hide_f_descend,
fclt_f_retourdatum,
retournr,
aanvraag,
fclt_f_besteller,
aantal,
fclt_f_artikelnr,
artikelomschrijving,
bedrag,
reden,
fclt_f_status,
fclt_f_ophaaladres,
fclt_3d_discipline_key
)
AS
SELECT -b.bes_bestelling_key hide_f_descend,
TO_CHAR (b.bes_bestelling_datum, 'YYYY-MM-DD') fclt_f_retourdatum,
'A-' || b.bes_bestelling_key retournr,
'A-' || bes_bestelling_retourvan_key aanvraag,
p.prs_perslid_naam
|| DECODE (NVL (p.prs_perslid_voorletters, ''),
'', '',
', ' || p.prs_perslid_voorletters)
|| DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
'', '',
' ' || p.prs_perslid_tussenvoegsel)
|| DECODE (NVL (p.prs_perslid_voornaam, ''),
'', '',
' (' || p.prs_perslid_voornaam || ')')
fclt_f_besteller,
i.bes_bestelling_item_aantal aantal,
sd.bes_srtdeel_nr fclt_f_artikelnr,
sd.bes_srtdeel_omschrijving artikelomschrijving,
i.bes_bestelling_item_aantal * i.bes_bestelling_item_prijs bedrag,
bes_bestelling_opmerking reden,
(CASE b.bes_bestelling_status
WHEN 6 THEN 'Opgehaald'
WHEN 5 THEN 'Gemeld'
ELSE s.bes_bestellingstatuses_omschr
END)
fclt_f_status,
m.mld_adres_naam fclt_f_ophaaladres,
sg.ins_discipline_key fclt_3d_discipline_key
FROM bes_bestelling b,
bes_bestelling_item i,
bes_bestellingstatuses s,
bes_srtdeel sd,
bes_srtgroep sg,
prs_perslid p,
mld_adres m
WHERE b.mld_adres_key_lev = m.mld_adres_key
AND b.bes_bestelling_key = i.bes_bestelling_key
AND i.bes_srtdeel_key = sd.bes_srtdeel_key
AND b.fac_activiteit_key IS NULL
AND p.prs_perslid_key = b.prs_perslid_key
AND b.bes_bestelling_retourvan_key IS NOT NULL
AND b.bes_bestelling_status = s.bes_bestellingstatuses_key
AND sd.bes_srtgroep_key = sg.bes_srtgroep_key;
-- UWVA#14466
CREATE OR REPLACE VIEW uwva_v_rap_ruimte_verpl
(
locatie_code,
adres,
plaats,
fclt_f_gebouw_code,
fclt_f_verdieping_code,
fclt_f_ruimte_nr,
ruimte_omschrijving,
reserveerbaar,
aant_wp,
aant_res,
aant_mld,
aant_ins
)
AS
SELECT l.alg_locatie_code,
l.alg_locatie_adres,
l.alg_locatie_plaats,
g.alg_gebouw_code,
v.alg_verdieping_code,
rr.alg_ruimte_nr,
rr.alg_ruimte_omschrijving,
DECODE (aantal_rsv, 0, NULL, 'J') reserveerbaar,
aantal_wp,
aantal_res,
aantal_mld,
aantal_ins
FROM (SELECT alg_ruimte_nr,
alg_ruimte_omschrijving,
alg_verdieping_key,
(SELECT COUNT ( * )
FROM prs_werkplek
WHERE prs_werkplek.prs_alg_ruimte_key = r.alg_ruimte_key)
aantal_wp,
(SELECT COUNT ( * )
FROM res_rsv_ruimte
WHERE res_rsv_ruimte_verwijder IS NULL
AND res_rsv_ruimte.alg_ruimte_key = r.alg_ruimte_key)
aantal_res,
(SELECT COUNT ( * )
FROM mld_melding
WHERE mld_alg_onroerendgoed_keys = r.alg_ruimte_key
AND mld_melding_status NOT IN (1, 5, 6))
aantal_mld,
(SELECT COUNT ( * )
FROM ins_deel
WHERE ins_deel_verwijder IS NULL
AND ins_alg_ruimte_type = 'R'
AND ins_alg_ruimte_key = r.alg_ruimte_key)
aantal_ins,
(SELECT COUNT ( * )
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
AND res_alg_ruimte_key = r.alg_ruimte_key)
aantal_rsv
FROM alg_v_aanwezigruimte r
WHERE alg_ruimte_bruto_vloeropp IS NULL
AND alg_ruimte_nr <> '000') rr,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE rr.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND COALESCE (g.alg_gebouw_vervaldatum, SYSDATE) > TRUNC (SYSDATE)
AND g.alg_locatie_key = l.alg_locatie_key
ORDER BY l.alg_locatie_upper ASC,
g.alg_gebouw_upper ASC,
v.alg_verdieping_volgnr ASC,
rr.alg_ruimte_nr ASC;
-- View die de verplichtingen op een gebouw/verdieping/ruimte weergeeft
-- Verplichtingen worden gedefinieerd als relaties die het ontmantelen,
-- d.i. het zetten van alg_gebouw_verwijder/alg_verdieping_verwijder/alg_ruimte_verwijder,
-- kunnen beletten of althans daar een rol in spelen; moeten weggemanaged worden.
CREATE OR REPLACE VIEW UWVA_V_ONRGOED_VERPLICHTING
(
ALG_GEBOUW_KEY,
ALG_VERDIEPING_KEY,
ALG_RUIMTE_KEY,
FAC_MESSAGE_CODE,
ITEM,
ITEM_KEY,
LOCATIE_KEY
)
AS
SELECT og.alg_gebouw_key,
og.alg_verdieping_key,
og.alg_ruimte_key,
'ALG_OPENST_MELDING',
(SELECT isd.ins_srtdiscipline_prefix
FROM ins_srtdiscipline isd,
ins_tab_discipline ID,
mld_stdmelding std
WHERE ID.ins_srtdiscipline_key = isd.ins_srtdiscipline_key
AND m.mld_stdmelding_key = std.mld_stdmelding_key
AND std.mld_ins_discipline_key = ID.ins_discipline_key)
|| TO_CHAR (m.mld_melding_key),
m.mld_melding_key,
m.mld_alg_locatie_key
FROM mld_melding m, alg_v_allonroerendgoed og
WHERE m.mld_melding_status IN (2, 3, 4, 7)
AND m.mld_alg_onroerendgoed_keys <> 0
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys
UNION
SELECT og.alg_gebouw_key,
og.alg_verdieping_key,
og.alg_ruimte_key,
'ALG_BEVAT_OBJECT',
ins_deel_omschrijving,
ins_deel_key,
d.ins_alg_locatie_key
FROM ins_v_aanwezigdeel d,
ins_tab_discipline ID,
alg_v_allonroerendgoed og
WHERE d.ins_alg_ruimte_key = og.alg_onroerendgoed_keys
AND ID.ins_discipline_key = d.ins_discipline_key
AND ID.ins_discipline_min_level <> 3
UNION
SELECT rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'ALG_OPENST_RES',
TO_CHAR (r.res_reservering_key) || ' (' || COUNT ( * ) || ')',
r.res_reservering_key,
rg.alg_locatie_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_ruimte rr,
res_ruimte_opstelling ro,
res_v_alg_ruimte_gegevens rg
WHERE r.res_reservering_key = rr.res_reservering_key
AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = rg.res_ruimte_key
AND rr.res_status_bo_key IN (4, 3, 2)
GROUP BY rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'PRS_OPENST_RES',
r.res_reservering_key,
rg.alg_locatie_key
UNION
SELECT rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'ALG_OPENST_RES_V',
TO_CHAR (r.res_reservering_key) || '/' || COUNT ( * ),
r.res_reservering_key,
rg.alg_locatie_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_deel rd,
res_v_alg_ruimte_gegevens rg,
res_rsv_ruimte rr
WHERE r.res_reservering_key = rr.res_reservering_key
AND rr.alg_ruimte_key = rg.alg_ruimte_key
AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
AND rd.res_status_bo_key IN (4, 3, 2)
GROUP BY rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'ALG_OPENST_RES_V',
r.res_reservering_key,
rg.alg_locatie_key
UNION
SELECT rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'ALG_OPENST_RES_V',
TO_CHAR (r.res_reservering_key) || '/' || COUNT ( * ),
r.res_reservering_key,
rg.alg_locatie_key
FROM res_v_aanwezigreservering r,
res_v_aanwezigrsv_artikel ra,
res_v_alg_ruimte_gegevens rg,
res_rsv_ruimte rr
WHERE r.res_reservering_key = rr.res_reservering_key
AND rr.alg_ruimte_key = rg.alg_ruimte_key
AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
AND ra.res_status_bo_key IN (4, 3, 2)
GROUP BY rg.alg_gebouw_key,
rg.alg_verdieping_key,
rg.alg_ruimte_key,
'ALG_OPENST_RES_V',
r.res_reservering_key,
rg.alg_locatie_key
UNION
SELECT og.alg_gebouw_key,
og.alg_verdieping_key,
og.alg_ruimte_key,
'ALG_TOEK_AFSPRAAK',
TO_CHAR (a.bez_afspraak_key)
|| ' ('
|| TO_CHAR (a.bez_afspraak_datum, 'DD-MM-YYYY')
|| ')',
a.bez_afspraak_key,
a.alg_locatie_key
FROM bez_afspraak a, alg_v_allonroerendgoed og
WHERE a.alg_onrgoed_keys = og.alg_onroerendgoed_keys
AND a.bez_afspraak_datum > SYSDATE
UNION
SELECT og.alg_gebouw_key,
og.alg_verdieping_key,
og.alg_ruimte_key,
'ALG_OPEN_CONTRACT',
TO_CHAR (cp.cnt_contract_key),
cp.cnt_contract_key,
og.alg_locatie_key
FROM cnt_v_aanwezigcontract_plaats cp,
alg_v_allonroerendgoed og,
cnt_contract c
WHERE c.cnt_contract_key = cp.cnt_contract_key
AND c.cnt_contract_looptijd_tot > SYSDATE
AND cp.cnt_alg_plaats_key = og.alg_onroerendgoed_keys;
/* En deze ten behoeve van de gebruikersrapportage */
CREATE OR REPLACE VIEW UWVA_V_RAP_ONRGOEDVERPLICHTING
(
FCLT_F_GEBOUWCODE,
FCLT_F_VERDIEPINGVOLGNR,
FCLT_F_RUIMTECODE,
FCLT_F_VERPLICHTING,
ITEM,
FCLT_3D_LOCATIE_KEY
)
AS
SELECT g.alg_gebouw_code,
SUBSTR ('0' || TO_CHAR (v.alg_verdieping_volgnr), -2),
r.alg_ruimte_nr,
COALESCE (t.fac_message_text, ov.fac_message_code),
ov.item,
ov.locatie_key
FROM uwva_v_onrgoed_verplichting ov,
alg_gebouw g,
alg_verdieping v,
alg_ruimte r,
fac_message t
WHERE ov.alg_gebouw_key = g.alg_gebouw_key
AND ov.alg_verdieping_key = v.alg_verdieping_key(+)
AND ov.alg_ruimte_key = r.alg_ruimte_key(+)
AND ov.fac_message_code = t.fac_message_code(+);
CREATE OR REPLACE VIEW uwva_v_rap_beheer_prs_type
(
personeelsnummer,
login1,
login2,
naam,
fclt_f_type_medewerker
)
AS
SELECT a.prs_perslid_naam_full,
a.prs_perslid_nr,
a.prs_perslid_oslogin,
a.prs_perslid_oslogin2,
b.fac_usrdata_omschr
FROM (SELECT p.prs_perslid_key,
fn.prs_perslid_naam_full,
p.prs_perslid_nr,
p.prs_perslid_oslogin,
p.prs_perslid_oslogin2
FROM prs_v_aanwezigperslid p, prs_v_perslid_fullnames fn
WHERE p.prs_perslid_key = fn.prs_perslid_key) a
LEFT JOIN
(SELECT kl.prs_link_key, ud.fac_usrdata_omschr
FROM prs_kenmerklink kl, fac_usrdata ud
WHERE kl.prs_kenmerk_key = 1040 -- Type medewerker
AND kl.prs_kenmerklink_waarde = ud.fac_usrdata_key) b
ON a.prs_perslid_key = b.prs_link_key;
-- UWVA#16324
CREATE OR REPLACE VIEW uwva_v_contractanten
(
prs_bedrijf_key,
prs_bedrijf_naam
)
AS
SELECT b.prs_bedrijf_key, b.prs_bedrijf_naam
FROM prs_v_aanwezigbedrijf b
WHERE b.prs_bedrijf_contract = 1 -- Contractant-vinkje
/
-- UWVA#16539, herziening in UWVA#23138
-- keys 81, 82 en 83 zijn van de drie HDW-catalogusimports (bij resp. catalogi 215, 216, 217)
CREATE OR REPLACE VIEW uwva_v_catalogushdwlog
(
HIDE_F_SRT,
FCLT_F_STATUS,
FCLT_F_OMSCHRIJVING,
DETAIL,
DATUM
)
AS
SELECT imp_log_key,
imp_log_status fclt_f_status,
imp_log_omschrijving fclt_f_omschrijving,
imp_log_hint detail,
TO_CHAR (imp_log_datum, 'YYYY-MM-DD HH24:MI') datum
FROM imp_log
WHERE fac_import_key = (SELECT MAX (fac_import_key)
FROM fac_import
WHERE fac_import_app_key = 81)
UNION
SELECT imp_log_key,
imp_log_status fclt_f_status,
imp_log_omschrijving fclt_f_omschrijving,
imp_log_hint detail,
TO_CHAR (imp_log_datum, 'YYYY-MM-DD HH24:MI') datum
FROM imp_log
WHERE fac_import_key = (SELECT MAX (fac_import_key)
FROM fac_import
WHERE fac_import_app_key = 82)
UNION
SELECT imp_log_key,
imp_log_status fclt_f_status,
imp_log_omschrijving fclt_f_omschrijving,
imp_log_hint detail,
TO_CHAR (imp_log_datum, 'YYYY-MM-DD HH24:MI') datum
FROM imp_log
WHERE fac_import_key = (SELECT MAX (fac_import_key)
FROM fac_import
WHERE fac_import_app_key = 83)
ORDER BY imp_log_key;
CREATE OR REPLACE VIEW uwva_v_rap_res_ruimten
(
fclt_f_gebouw,
fclt_f_verdieping,
ruimte,
alg_key,
fclt_f_ruimtecategorie,
fclt_f_ruimtenaam,
norm_capaciteit,
res_key,
fotonaam,
omschrijving,
fclt_f_bez_actie,
ruimtenaam_friendly,
vervaldatum
)
AS
SELECT x.alg_gebouw_code,
x.alg_verdieping_code,
x.alg_ruimte_nr,
TO_CHAR (x.alg_ruimte_key) alg_key,
z.ins_discipline_omschrijving,
z.res_ruimte_nr,
DECODE (cap1.def_ro_key,
NULL,
(SELECT TO_CHAR (ro.res_ruimte_opstel_bezoekers)
FROM res_ruimte_opstelling ro
WHERE ro.res_ruimte_opstel_key = cap2.min_ro_key),
(SELECT TO_CHAR (ro.res_ruimte_opstel_bezoekers)
FROM res_ruimte_opstelling ro
WHERE ro.res_ruimte_opstel_key = cap1.def_ro_key))
norm_capaciteit,
TO_CHAR (z.res_ruimte_key) res_key,
z.res_ruimte_image fotonaam,
z.res_ruimte_omschrijving omschrijving,
z.bez_actie_omschrijving,
z.res_ruimte_friendlyname,
z.res_ruimte_vervaldatum
FROM (SELECT rar.res_ruimte_key,
r.alg_ruimte_key,
r.alg_ruimte_nr,
v.alg_verdieping_code,
g.alg_gebouw_code,
l.alg_locatie_code
FROM res_v_aanwezigalg_ruimte rar,
alg_v_aanwezigruimte r,
alg_v_aanwezigverdieping v,
alg_v_aanweziggebouw g,
alg_v_aanweziglocatie l
WHERE rar.alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key) x
JOIN (SELECT rr.res_ruimte_key,
d.ins_discipline_omschrijving,
rr.res_ruimte_nr,
rr.res_ruimte_omschrijving,
rr.res_ruimte_image,
rr.res_ruimte_friendlyname,
rr.res_ruimte_vervaldatum,
a.bez_actie_omschrijving
FROM res_v_aanwezigruimte rr,
res_v_aanwezigdiscipline d,
bez_actie a
WHERE rr.res_discipline_key = d.ins_discipline_key
AND a.bez_actie_key(+) = rr.bez_actie_key) z
ON x.res_ruimte_key = z.res_ruimte_key
LEFT JOIN -- Default ruimte-capaciteit (indien gedefinieerd)
( SELECT res_ruimte_key, MIN (res_ruimte_opstel_key) def_ro_key
FROM res_ruimte_opstelling
WHERE res_ruimte_opstel_verwijder IS NULL
AND res_ruimte_opstel_default = 1
GROUP BY res_ruimte_key) cap1
ON x.res_ruimte_key = cap1.res_ruimte_key
LEFT JOIN -- Anders de eerst gedefinieerde ruimte-capaciteit
( SELECT res_ruimte_key, MIN (res_ruimte_opstel_key) min_ro_key
FROM res_ruimte_opstelling
WHERE res_ruimte_opstel_verwijder IS NULL
GROUP BY res_ruimte_key) cap2
ON x.res_ruimte_key = cap2.res_ruimte_key;
CREATE OR REPLACE PROCEDURE uwva_import_resruimten (p_import_key IN NUMBER)
AS
c_delim VARCHAR2 (1) := ';';
v_newline VARCHAR2 (4000); -- Input line
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
header_is_valid NUMBER;
v_count_tot NUMBER (10);
v_count_import NUMBER (10);
v_ongeldig NUMBER (1);
v_aanduiding VARCHAR2 (200);
-- De importvelden:
v_alg_gebouw_code VARCHAR2 (255); -- C12
v_alg_verdieping_code VARCHAR2 (255); -- C10
v_alg_ruimte_nr VARCHAR2 (255); -- C10
v_alg_ruimte_key VARCHAR2 (255); -- N10
v_alg_ruimte_key_n NUMBER (10); -- N10
v_ins_discipline_omschrijving VARCHAR2 (255); -- C30
v_res_ruimte_nr VARCHAR2 (255); -- C40
v_norm_capaciteit VARCHAR2 (255); -- N5
v_norm_capaciteit_n NUMBER (10); -- N5
v_res_ruimte_key VARCHAR2 (255); -- N10
v_res_ruimte_key_n NUMBER (10); -- N10
v_fotonaam VARCHAR2 (255); -- C255
v_res_ruimte_omschrijving VARCHAR2 (1000); -- C255
CURSOR c1
IS
SELECT *
FROM fac_imp_file
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
BEGIN
DELETE FROM uwva_imp_resruimten;
COMMIT;
v_count_tot := 0;
v_count_import := 0;
header_is_valid := 0;
FOR rec1 IN c1
LOOP
BEGIN
v_newline := rec1.fac_imp_file_line;
v_errormsg := 'Fout opvragen te importeren rij';
v_aanduiding := '';
v_ongeldig := 0;
-- Lees alle veldwaarden
fac.imp_getfield (v_newline, c_delim, v_alg_gebouw_code);
fac.imp_getfield (v_newline, c_delim, v_alg_verdieping_code);
fac.imp_getfield (v_newline, c_delim, v_alg_ruimte_nr);
fac.imp_getfield (v_newline, c_delim, v_alg_ruimte_key);
fac.imp_getfield (v_newline, c_delim, v_ins_discipline_omschrijving);
fac.imp_getfield (v_newline, c_delim, v_res_ruimte_nr);
fac.imp_getfield (v_newline, c_delim, v_norm_capaciteit);
fac.imp_getfield (v_newline, c_delim, v_res_ruimte_key);
fac.imp_getfield (v_newline, c_delim, v_fotonaam);
fac.imp_getfield (v_newline, c_delim, v_res_ruimte_omschrijving);
v_aanduiding := '[' || v_alg_gebouw_code || '|' || v_alg_verdieping_code || '|' || v_alg_ruimte_nr || '|' || v_res_ruimte_nr || '] ';
-- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
-- de juiste kolomkop. Ik controleer daarbij ALLE kolommen!
-- Ik negeer alles totdat ik een geldige header ben gepasseerd.
IF (header_is_valid = 0)
THEN
IF UPPER (v_alg_gebouw_code) = 'GEBOUW'
AND UPPER (v_alg_verdieping_code) = 'VERDIEPING'
AND UPPER (v_alg_ruimte_nr) = 'RUIMTE'
AND UPPER (v_alg_ruimte_key) = 'ALG_KEY'
AND UPPER (v_ins_discipline_omschrijving) = 'RUIMTECATEGORIE'
AND UPPER (v_res_ruimte_nr) = 'RUIMTENAAM'
AND UPPER (v_norm_capaciteit) = 'NORM_CAPACITEIT'
AND UPPER (v_res_ruimte_key) = 'RES_KEY'
AND UPPER (v_fotonaam) = 'FOTONAAM'
AND UPPER (v_res_ruimte_omschrijving) = 'OMSCHRIJVING'
THEN
header_is_valid := 1;
END IF;
ELSE
v_count_tot := v_count_tot + 1;
-- Controleer alle veldwaarden
v_errormsg := 'Fout inlezen gebouwcode [' || v_alg_gebouw_code || ']';
v_alg_gebouw_code := TRIM (v_alg_gebouw_code);
--
v_errormsg := 'Fout inlezen verdiepingcode [' || v_alg_verdieping_code || ']';
v_alg_verdieping_code := TRIM (v_alg_verdieping_code);
--
v_errormsg := 'Fout inlezen ruimtenr [' || v_alg_ruimte_nr || ']';
v_alg_ruimte_nr := TRIM (v_alg_ruimte_nr);
--
v_errormsg := 'Fout inlezen alg_key [' || v_alg_ruimte_key || ']';
v_alg_ruimte_key_n := fac.safe_to_number (v_alg_ruimte_key);
--
v_errormsg := 'Fout inlezen ruimtecategorie [' || v_ins_discipline_omschrijving || ']';
v_ins_discipline_omschrijving := TRIM (v_ins_discipline_omschrijving);
--
v_errormsg := 'Fout inlezen ruimtenaam [' || v_res_ruimte_nr || ']';
v_res_ruimte_nr := TRIM (v_res_ruimte_nr);
IF LENGTH (v_res_ruimte_nr) > 40
THEN
v_res_ruimte_nr := SUBSTR (v_res_ruimte_nr, 1, 40);
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Ruimtenaam te lang', 'Ruimtenaam afgebroken tot [' || v_res_ruimte_nr || ']');
END IF;
-- Per UWVA#69484 (UWVA126) niet langer DUMMY!
v_errormsg := 'Fout inlezen norm_capaciteit [' || v_norm_capaciteit || ']';
v_norm_capaciteit_n := fac.safe_to_number (v_norm_capaciteit);
--
v_errormsg := 'Fout inlezen res_key [' || v_res_ruimte_key || ']';
v_res_ruimte_key_n := fac.safe_to_number (v_res_ruimte_key);
--
v_errormsg := 'Fout inlezen fotonaam [' || v_fotonaam || ']';
v_fotonaam := TRIM (v_fotonaam);
--
v_errormsg := 'Fout inlezen omschrijving [' || v_res_ruimte_omschrijving || ']';
v_res_ruimte_omschrijving := TRIM (v_res_ruimte_omschrijving);
IF LENGTH (v_res_ruimte_omschrijving) > 255
THEN
v_res_ruimte_omschrijving := SUBSTR (v_res_ruimte_omschrijving, 1, 255);
fac.imp_writelog (p_import_key, 'W', v_aanduiding || 'Omschrijving te lang', 'Omschrijving afgebroken na 255 tekens');
END IF;
-- Insert geformatteerde import record
IF v_ongeldig = 0
THEN
BEGIN
v_errormsg := 'Fout wegschrijven importregel';
INSERT INTO uwva_imp_resruimten (alg_gebouw_code,
alg_verdieping_code,
alg_ruimte_nr,
alg_ruimte_key,
ins_discipline_omschrijving,
res_ruimte_nr,
res_ruimte_key,
fotonaam,
res_ruimte_omschrijving,
norm_capaciteit)
VALUES (v_alg_gebouw_code,
v_alg_verdieping_code,
v_alg_ruimte_nr,
v_alg_ruimte_key_n,
v_ins_discipline_omschrijving,
v_res_ruimte_nr,
v_res_ruimte_key_n,
v_fotonaam,
v_res_ruimte_omschrijving,
v_norm_capaciteit);
COMMIT;
v_count_import := v_count_import + 1;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, '');
COMMIT;
END;
END IF;
END IF;
END;
END LOOP;
IF (header_is_valid = 0)
THEN
fac.imp_writelog (p_import_key, 'E', 'Ongeldig importbestand', 'Geen header of header niet volgens specificatie!');
ELSE
fac.imp_writelog (p_import_key, 'S', 'Reserveerbare ruimten/#ingelezen importregels: ' || TO_CHAR (v_count_tot), '');
fac.imp_writelog (p_import_key, 'S', 'Reserveerbare ruimten/#ongeldige niet ingelezen importregels: ' || TO_CHAR (v_count_tot - v_count_import), '');
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'Inleesproces reserveerbare ruimten afgebroken!');
COMMIT;
END uwva_import_resruimten;
/
CREATE OR REPLACE PROCEDURE uwva_update_resruimten (p_import_key IN NUMBER)
AS
v_errormsg VARCHAR2 (1000) := '-';
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count_upd NUMBER (10);
-- Cursor loopt over importtabel met daarin de reserveerbare ruimtegegevens.
CURSOR c1
IS
SELECT alg_ruimte_key,
res_ruimte_key,
res_ruimte_nr,
fotonaam,
res_ruimte_omschrijving,
norm_capaciteit
FROM uwva_imp_resruimten
ORDER BY 1, 2;
-- SUBFUNC
FUNCTION verwerk_regel (p_import_key IN NUMBER,
p_alg_key IN NUMBER,
p_res_key IN NUMBER,
p_res_ruimte_nr IN VARCHAR2,
p_fotonaam IN VARCHAR2,
p_res_ruimte_omschrijving IN VARCHAR2,
p_norm_capaciteit IN VARCHAR2)
RETURN NUMBER
IS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_ongeldig NUMBER (10);
v_aanduiding VARCHAR2 (200);
v_count NUMBER (10);
v_onrgoedkenmerk_key NUMBER (10);
BEGIN
v_ongeldig := 0;
v_aanduiding := '[' || p_alg_key || '|' || p_res_key || '] ';
v_errormsg := 'Fout bepalen resruimte';
SELECT COUNT (res_alg_ruimte_key)
INTO v_count
FROM res_v_aanwezigalg_ruimte
WHERE alg_ruimte_key = p_alg_key AND res_ruimte_key = p_res_key;
IF v_count = 1
THEN
v_errormsg := 'Fout bijwerken resruimte-naam/omschrijving/foto';
UPDATE res_ruimte
SET res_ruimte_nr = COALESCE (p_res_ruimte_nr, res_ruimte_nr),
res_ruimte_omschrijving = COALESCE (p_res_ruimte_omschrijving, res_ruimte_omschrijving),
res_ruimte_image = COALESCE (p_fotonaam, res_ruimte_image)
WHERE res_ruimte_key = p_res_key;
-- UWVA#69484: Uitbreiden met capaciteit!
v_errormsg := 'Fout bijwerken capaciteit';
UPDATE res_ruimte_opstelling
SET res_ruimte_opstel_bezoekers = COALESCE (fac.safe_to_number (p_norm_capaciteit), res_ruimte_opstel_bezoekers)
WHERE res_ruimte_opstel_verwijder IS NULL
AND res_ruimte_key = p_res_key;
COMMIT;
ELSE
v_ongeldig := 1;
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, 'Regel overgeslagen');
COMMIT;
END IF;
RETURN v_ongeldig;
EXCEPTION
WHEN OTHERS
THEN
v_ongeldig := 1;
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, '');
COMMIT;
RETURN v_ongeldig;
END;
-- MAIN
BEGIN
-- Loop door alle resruimte-regels en verwerk deze.
v_count_upd := 0;
FOR rec IN c1
LOOP
BEGIN
v_errormsg := 'Fout verwerken resruimte-regel';
IF verwerk_regel (p_import_key, rec.alg_ruimte_key, rec.res_ruimte_key, rec.res_ruimte_nr, rec.fotonaam, rec.res_ruimte_omschrijving, rec.norm_capaciteit) = 0
THEN
v_count_upd := v_count_upd + 1;
END IF;
END;
END LOOP;
fac.imp_writelog (p_import_key, 'S', 'Reserveerbare ruimten/#bijgewerkt: ' || TO_CHAR (v_count_upd), '');
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 150);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_import_key, 'E', v_errormsg, 'Importproces reserveerbare ruimten afgebroken!');
END uwva_update_resruimten;
/
-- UWVA#20109: Marktplaats reminder
CREATE OR REPLACE VIEW uwva_v_noti_mrkreminder
(
code,
sender,
receiver,
text,
key,
xkey
)
AS
SELECT NULL,
NULL,
prs_perslid_key,
'U heeft een bericht op Facilitair Marktplaats staan met de titel: '
|| mrk_bericht_titel
|| ' als u geen actie onderneemt wordt deze over 14 dagen vanzelf verwijderd',
NULL,
NULL
FROM mrk_bericht
WHERE TO_DATE (mrk_bericht_aanmaak) = TO_DATE (SYSDATE) - 46;
-- UWVA#20417 ondersteunende view voor een flexveld kostensoort bij bedrijf.
CREATE OR REPLACE VIEW uwva_v_kostensoort
(
prs_kostensoort_key,
prs_kostensoort_oms
)
AS
SELECT prs_kostensoort_key,
prs_kostensoort_oms || ' - ' || prs_kostensoort_opmerking
prs_kostensoort_omschrijving
FROM prs_kostensoort;
-- UWVA#19622: Alleen bepaalde catalogi (Instructieruimte/86, Servicepunt/87,
-- Vergaderruimte/89, Vergader RvB/112 en Video conference/276) en alleen met
-- FO-status Optie/Definitief (dus niet Blokkade en Vervallen)!
-- UWVA#73593: Toevoegen Vergaderruimte Hybride-catalogus (A=496+P=492)
CREATE OR REPLACE VIEW UWVA_V_RAP_RES_INFOBORD
(
AKTIEF,
OFFSET,
DAG,
TIJD_VAN,
TIJD_TOT,
RUIMTE,
CATALOGUS,
AANVRAGER,
GASTHEER,
OMSCHRIJVING,
STATUS,
LOCATIE_CODE,
GEBOUW_CODE,
VERDIEPING_CODE,
LOCATIE_OMSCHRIJVING,
GEBOUW_OMSCHRIJVING,
VERDIEPING_OMSCHRIJVING,
ALG_LOCATIE_KEY,
ALG_GEBOUW_KEY,
ALG_VERDIEPING_KEY
)
AS
SELECT (CASE
WHEN rrr.res_rsv_ruimte_van > SYSDATE THEN 'expected'
WHEN rrr.res_rsv_ruimte_tot < SYSDATE THEN 'passed'
ELSE 'active'
END)
aktief,
TRUNC ( (SYSDATE - rrr.res_rsv_ruimte_van) * 24 * 60) offset,
TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy') dag,
TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi') tijd_van,
TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi') tijd_tot,
rrg.res_ruimte_nr ruimte,
rd.ins_discipline_omschrijving catalogus,
aanvrager.prs_perslid_naam_full aanvrager,
gastheer.prs_perslid_naam_full gastheer,
rrr.res_rsv_ruimte_omschrijving omschrijving,
sf.res_status_fo_omschrijving status,
l.alg_locatie_code locatie_code,
g.alg_gebouw_code gebouw_code,
v.alg_verdieping_code verdieping_code,
l.alg_locatie_omschrijving locatie_omschrijving,
g.alg_gebouw_omschrijving gebouw_omschrijving,
v.alg_verdieping_omschrijving verdieping_omschrijving,
l.alg_locatie_key,
g.alg_gebouw_key,
v.alg_verdieping_key
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
res_v_res_ruimte_gegevens rrg,
prs_v_perslid_fullnames aanvrager,
prs_v_perslid_fullnames gastheer,
alg_locatie l,
alg_gebouw g,
alg_verdieping v,
res_status_fo sf,
res_discipline rd
WHERE rrr.res_status_fo_key IN (1, 2) -- Alleen Optie + Definitief!
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rrg.res_ruimte_key
AND rrr.res_rsv_ruimte_host_key = gastheer.prs_perslid_key
AND rrr.res_rsv_ruimte_contact_key = aanvrager.prs_perslid_key
AND TRUNC (rrr.res_rsv_ruimte_van) = TRUNC (SYSDATE)
AND rrg.alg_locatie_key = l.alg_locatie_key
AND rrg.alg_gebouw_key = g.alg_gebouw_key
AND rrg.alg_verdieping_key = v.alg_verdieping_key
AND rrr.res_status_fo_key = sf.res_status_fo_key
AND rrg.res_discipline_key = rd.ins_discipline_key
AND rd.ins_discipline_key IN (86, 87, 89, 112, 276, 404, 409, 492, 496) -- ToDo:Key=496 tbv. Acceptatie verwijderen!
;
-- UWVA#21050: Overzicht instellingen alle vakgroepen
CREATE OR REPLACE VIEW uwva_v_rap_vakgroep
(
FCLT_F_VAKGROEPTYPE,
VAKGROEPTYPE_KEY,
FCLT_F_VAKGROEP,
VAKGROEP_KEY,
BEHANDELGROEP,
KOSTENSOORT,
KOSTENPLAATS_VERPLICHT,
BACKOFFICE_BESTELLIMIET,
STARTDATUM_BEPALEN,
FRONTOFFICE_BEHANDELD,
FRONTEND_PRIORITEIT_BEPALEN,
FE_MANDAAT_EIGEN_KPN,
FACTUURMARGE_PERCENTAGE,
FACTUURMARGE_EURO,
FACTUUR_MATCHING,
FACTUUR_AUTO_BINNEN_MARGE,
FACTUUR_ACCOORD_BENEDEN,
BACKOFFICE_NOTIFICEREN,
MELDER_NOTIFICEREN,
DAGEN_TBV_HERINNERING,
VERPLICHT_OPDRACHTBEDRAG,
OPDRACHTSJABLOON,
AFZENDER_EMAIL_NOTIFICATIE,
KTO_METING_PERC,
KTO_METING_DREMPEL
)
AS
SELECT srt.ins_srtdiscipline_omschrijving vakgroeptype,
TO_CHAR (srt.ins_srtdiscipline_key) vakgroeptype_key,
vak.ins_discipline_omschrijving vakgroep,
TO_CHAR (vak.ins_discipline_key) vakgroep_key,
bg.mld_behandelgroep_naam behandelgroep,
pks.prs_kostensoort_oms kostensoort,
DECODE (vak.ins_discipline_kpnverplicht, 1, 'ja', 'nee')
kostenplaats_verplicht,
TO_CHAR (dc.mld_disc_params_bestellimiet) backoffice_bestellimiet,
DECODE (dc.mld_disc_params_startdatum, 1, 'ja', 'nee')
startdatum_bepalen,
DECODE (dc.mld_disc_params_directklaar, 1, 'ja', 'nee')
frontoffice_behandeld,
DECODE (dc.mld_disc_params_frontendprio, 1, 'ja', 'nee')
frontend_prioriteit_bepalen,
DECODE (dc.mld_disc_params_eigen_kp, 1, 'ja', 'nee')
fe_mandaat_eigen_kpn,
TO_CHAR (dc.mld_disc_params_factuurpct) factuurmarge_percentage,
TO_CHAR (dc.mld_disc_params_factuurmarge) factuurmarge_euro,
TO_CHAR (dc.mld_disc_params_factmatchmode) factuur_matching,
DECODE (dc.mld_disc_params_factuurappr, 1, 'ja', 'nee')
factuur_auto_binnen_marge,
TO_CHAR (dc.mld_disc_params_factuurgrens) factuur_accoord_beneden,
DECODE (dc.mld_disc_params_bonotify, 1, 'ja', 'nee')
backoffice_notificeren,
DECODE (dc.mld_disc_params_notify, 1, 'ja', 'nee')
melder_notificeren,
TO_CHAR (dc.mld_disc_params_noti_dagen) dagen_tbv_herinnering,
DECODE (dc.mld_disc_params_opdr_kosten, 1, 'ja', 'nee')
verplicht_opdrachtbedrag,
TO_CHAR (dc.fac_activiteit_key) opdrachtsjabloon,
vak.ins_discipline_email afzender_email_notificatie,
TO_CHAR (vak.ins_discipline_ktopercentage) kto_meting_perc,
TO_CHAR (vak.ins_discipline_ktodrempel) kto_meting_drempel
FROM mld_discipline vak,
ins_srtdiscipline srt,
mld_disc_params dc,
mld_behandelgroep bg,
prs_kostensoort pks
WHERE vak.ins_discipline_verwijder IS NULL
AND vak.ins_srtdiscipline_key = srt.ins_srtdiscipline_key
AND vak.ins_discipline_key = dc.mld_ins_discipline_key
AND dc.mld_behandelgroep_key = bg.mld_behandelgroep_key(+)
AND vak.prs_kostensoort_key = pks.prs_kostensoort_key(+);
-- UWVA#21050: Overzicht instellingen alle bestelcatalogi
CREATE OR REPLACE VIEW uwva_v_rap_bescatalogi
(
FCLT_F_CATALOGUS,
CATALOGUS_KEY,
KOSTENSOORT,
KOSTENPLAATS_VERPLICHT,
BESTELLIMIET,
MIN_BESTELBEDRAG,
TEN_LASTE_VAN_PGB,
AUTO_BESTELOPDRACHT,
AUTO_ACCEPT_AANVRAAG,
OPNIEUW_FIATEREN,
AFWIJKING_MEER_DAN_PERC,
AFWIJKING_MEER_DAN_EURO,
BES_DISC_PARAMS_FACTUURPCT,
BES_DISC_PARAMS_FACTUURMARGE,
FACTUUR_MATCHING,
FACTUUR_AUTO_FIAT_BINNEN_MARGE,
FACTUUR_ACCOORD_BENEDEN,
LEVERDAGEN,
Afleverbevestiging,
PUNCHOUT_URL,
PUNCHOUT_BEDRIJF,
LOGO,
AANTAL_DAGEN_TBV_HERINNERING,
besteller_notificeren_opdr,
RETOUREN_TOEGESTAAN,
RETOUR_URL,
OPMERKING_URL,
AANWIJZING,
GEKOPPELD_AAN_INKOOPCATALOGUS,
ARTIKELEN_ZELFDE_GROEP,
KTO_PERCENTAGE,
KTO_DREMPEL
)
AS
SELECT d.ins_discipline_omschrijving catalogus,
d.ins_discipline_key catalogus_key,
pks.prs_kostensoort_oms kostensoort,
DECODE (d.ins_discipline_kpnverplicht, 1, 'ja', 'nee')
kostenplaats_verplicht,
bes_disc_params_bestellimiet bestellimiet,
bes_disc_params_min_bedrag min_bestelbedrag,
DECODE (bes_disc_params_pgb, 1, 'ja', 'nee') ten_laste_van_pgb,
DECODE (bes_disc_params_auto_order, 1, 'ja', 'nee')
auto_bestelopdracht,
DECODE (bes_disc_params_autoacceptrfo, 1, 'ja', 'nee')
auto_accept_aanvraag,
DECODE (bes_disc_params_herfiat,
1, 'Als nieuwe',
2, 'Volgens onderstaand criterium',
'Nooit')
opnieuw_fiateren,
bes_disc_params_herfiatpct Afwijking_meer_dan_perc,
bes_disc_params_herfiatmarge Afwijking_meer_dan_euro,
bes_disc_params_factuurpct,
bes_disc_params_factuurmarge,
DECODE (bes_disc_params_factmatchmode, 3, '3-weg', 2, '2-weg', ' ')
factuur_matching,
DECODE (bes_disc_params_factuurappr, 1, 'ja', 'nee')
factuur_auto_fiat_binnen_marge,
bes_disc_params_factuurgrens factuur_accoord_beneden,
bes_disc_params_leverdagen leverdagen,
DECODE (bes_disc_params_remoteconfirm, 1, 'ja', 'nee')
Afleverbevestiging,
bes_disc_params_punchouturl punchout_URL,
pb.prs_bedrijf_naam punchout_bedrijf,
bes_disc_params_logo_url logo,
bes_disc_params_noti_dagen aantal_dagen_tbv_herinnering,
DECODE (bes_disc_params_noti_opdr, 1, 'ja', 'nee')
besteller_notificeren_opdr,
DECODE (bes_disc_params_retour, 1, 'ja', 'nee') retouren_toegestaan,
bes_disc_params_retour_url retour_URL,
bes_disc_params_levopm_url opmerking_URL,
d.ins_discipline_opmerking aanwijzing,
d2.ins_discipline_omschrijving gekoppeld_aan_inkoopcatalogus,
DECODE (bes_disc_params_singlegroep, 1, 'ja', 'nee')
artikelen_zelfde_groep,
d.ins_discipline_ktopercentage kto_percentage,
d.ins_discipline_ktodrempel kto_drempel
FROM bes_discipline d,
prs_kostensoort pks,
bes_disc_params bdp,
prs_bedrijf pb,
bes_discipline d2
WHERE d.ins_discipline_verwijder IS NULL
AND d.prs_kostensoort_key = pks.prs_kostensoort_key(+)
AND d.ins_discipline_key = bdp.bes_ins_discipline_key
AND bdp.bes_disc_params_punch_bedr_key = pb.prs_bedrijf_key(+)
AND bdp.bes_ins_discipline_key_inkoop = d2.ins_discipline_key(+);
-- UWVA#20222 - Gegevensbron voor het samenstellen van de response op API-requests
-- vanuit KAS!
-- TODO: Vraag is of filtering op nr, naam (INACTIEF), oslogin, ed. wel gewenst???
CREATE OR REPLACE VIEW uwva_v_kas_input
(
div_naam,
div_oms,
afd_naam,
afd_oms,
perslid_nr,
achternaam,
voorletters,
tussenvoegsel,
voornaam,
naam_full
)
AS
SELECT div.prs_afdeling_naam,
div.prs_afdeling_omschrijving,
afd.prs_afdeling_naam,
afd.prs_afdeling_omschrijving,
prs.prs_perslid_nr,
prs.prs_perslid_naam,
prs.prs_perslid_voorletters,
prs.prs_perslid_tussenvoegsel,
prs.prs_perslid_voornaam,
prs.prs_naam_full
FROM (SELECT a1.prs_afdeling_key,
a1.prs_afdeling_naam,
a1.prs_afdeling_omschrijving
FROM prs_afdeling a1
WHERE a1.prs_afdeling_verwijder IS NULL
AND a1.prs_afdeling_parentkey IS NULL
AND prs_afdeling_omschrijving NOT LIKE 'INACTIEF:%'
AND EXISTS -- Alleen echte divies; geen pseudo-divisies!
(SELECT 1
FROM prs_afdeling a2
WHERE a2.prs_afdeling_verwijder IS NULL
AND a2.prs_afdeling_parentkey =
a1.prs_afdeling_key)) div
LEFT JOIN (SELECT ab.prs_afdeling_key1,
a.prs_afdeling_key,
a.prs_afdeling_naam,
a.prs_afdeling_omschrijving
FROM prs_afdeling a, prs_v_afdeling_boom ab
WHERE a.prs_afdeling_verwijder IS NULL
AND prs_afdeling_omschrijving NOT LIKE
'INACTIEF:%'
AND a.prs_afdeling_key = ab.prs_afdeling_key) afd
ON div.prs_afdeling_key = afd.prs_afdeling_key1
LEFT JOIN (SELECT prs_afdeling_key,
prs_perslid_nr,
prs_perslid_naam,
prs_perslid_voorletters,
prs_perslid_tussenvoegsel,
prs_perslid_voornaam,
prs_perslid_naam
|| DECODE (prs_perslid_voorletters,
NULL, '',
', ' || prs_perslid_voorletters)
|| DECODE (prs_perslid_tussenvoegsel,
NULL, '',
' ' || prs_perslid_tussenvoegsel)
|| DECODE (prs_perslid_voornaam,
NULL, '',
' (' || prs_perslid_voornaam || ')')
prs_naam_full
FROM prs_v_aanwezigperslid
WHERE prs_perslid_nr IS NOT NULL
AND prs_perslid_naam NOT LIKE 'INACTIEF:%'
AND prs_perslid_oslogin IS NOT NULL
AND prs_perslid_oslogin NOT LIKE '\_%' ESCAPE '\') -- ' tbv. opmaak
prs
ON afd.prs_afdeling_key = prs.prs_afdeling_key
ORDER BY div.prs_afdeling_naam, afd.prs_afdeling_naam, prs.prs_naam_full;
-- KAS-request: GetAllDivisies
CREATE OR REPLACE VIEW uwva_v_kas_getdiv
AS
SELECT DISTINCT div_naam, div_oms FROM uwva_v_kas_input;
-- KAS-requests: GetAllAfdelingen+GetAfdelingenBinnenDivisie
CREATE OR REPLACE VIEW uwva_v_kas_getafd
AS
SELECT DISTINCT div_naam,
div_oms,
afd_naam,
afd_oms
FROM uwva_v_kas_input
WHERE div_naam <> afd_naam;
-- KAS-requests: GetPersonen+GetPersonenBinnenDivisie+GetPersonenBinnenAfdeling
CREATE OR REPLACE VIEW uwva_v_kas_getprs
AS
SELECT div_naam,
div_oms,
afd_naam,
afd_oms,
perslid_nr,
naam_full,
achternaam,
voorletters,
tussenvoegsel,
voornaam,
1 aantal
FROM uwva_v_kas_input
WHERE naam_full IS NOT NULL
ORDER BY naam_full;
-- UWVA#23613/FlexWhere-request: GetRes
CREATE OR REPLACE VIEW UWVA_V_FLEXWHERE_GETRES
(
LOCATIE_CODE,
GEBOUW_CODE,
VERDIEPING_CODE,
RUIMTE_NR,
RES_NR,
DATUM,
VAN,
TOT
)
AS
SELECT l.alg_locatie_code locatie_code,
g.alg_gebouw_code gebouw_code,
v.alg_verdieping_code verdieping_code,
r.alg_ruimte_nr ruimte_nr, -- Niet res_ruimte_nr!
rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr res_nr,
--(CASE
-- WHEN rrr.res_rsv_ruimte_van > SYSDATE THEN 'expected'
-- WHEN rrr.res_rsv_ruimte_tot < SYSDATE THEN 'passed'
-- ELSE 'active'
-- END)
-- aktief,
--TRUNC ( (SYSDATE - rrr.res_rsv_ruimte_van) * 24 * 60) offset,
TO_CHAR (rrr.res_rsv_ruimte_van, 'dd-mm-yyyy') datum,
TO_CHAR (rrr.res_rsv_ruimte_van, 'hh24:mi') van,
TO_CHAR (rrr.res_rsv_ruimte_tot, 'hh24:mi') tot
FROM res_v_aanwezigrsv_ruimte rrr,
res_ruimte_opstelling rro,
res_alg_ruimte rar,
alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l
WHERE rrr.res_status_fo_key IN (1, 2) -- Alleen Optie + Definitief!
AND rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key
AND rro.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = r.alg_ruimte_key
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_verdieping_code IN ('22', '23') -- Tbv. pilot beperkt!
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_gebouw_upper = 'AMSG3' -- Tbv. pilot beperkt!
AND g.alg_locatie_key = l.alg_locatie_key
AND SYSDATE BETWEEN rrr.res_rsv_ruimte_van
AND rrr.res_rsv_ruimte_tot;
CREATE OR REPLACE VIEW uwva_v_rap_openopdr_mldafgmld
AS
SELECT o.mld_melding_key || '/' || mld_opdr_bedrijfopdr_volgnr
opdrachtnummer,
so.mld_statusopdr_omschrijving status,
o.mld_opdr_omschrijving omschrijving
FROM mld_opdr o, mld_statusopdr so, mld_melding m
WHERE o.mld_statusopdr_key = so.mld_statusopdr_key
AND so.mld_statusopdr_key NOT IN (1, 2, 6, 7, 9)
AND m.mld_melding_key = o.mld_melding_key
AND m.mld_melding_status IN (1, 5, 6)
ORDER BY 1;
-- UWVA#21697: View voor flexveld "Alternatieve afdeling"
-- UWVA#21925: Niet filteren op Kostenplaatsgroep "Afdelingen", maar alle
-- PRS-kostenplaatsen nemen.
CREATE OR REPLACE VIEW uwva_v_alt_afdeling
AS
SELECT afd.*
FROM prs_kostenplaats kpn, prs_v_aanwezigafdeling afd
WHERE kpn.prs_kostenplaats_module = 'PRS'
AND afd.prs_kostenplaats_key = kpn.prs_kostenplaats_key
AND prs_afdeling_naam NOT LIKE 'INACTIEF%'
AND prs_afdeling_key NOT IN (1, 3142)
ORDER BY prs_afdeling_naam4;
-- UWVA#22765 - SLE: Verfijning sleutelbeheer
CREATE OR REPLACE PROCEDURE uwva_import_sle (p_import_key IN NUMBER)
AS
BEGIN
-- 1-op-1 de generieke import.
fac_import_sle (p_import_key);
END;
/
CREATE OR REPLACE PROCEDURE uwva_update_sle (p_import_key IN NUMBER)
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
-- SUBPROC
PROCEDURE add_sle_kenmerken (p_import_key IN NUMBER)
AS
CURSOR c1
IS
SELECT DISTINCT sg.ins_discipline_key,
sg.ins_srtgroep_key,
sd.ins_srtdeel_key,
x.ins_srtdeel_code,
x.ins_srtdeel_omschrijving,
TRIM (x.ins_kenmerkwaarde1) ssetnr,
TRIM (x.ins_kenmerkwaarde2) ssettype,
TRIM (x.ins_kenmerkwaarde3) ssetzone
FROM fac_setting s,
ins_v_aanwezigsrtgroep sg,
ins_v_aanwezigsrtdeel sd,
fac_imp_sle x
WHERE UPPER (s.fac_setting_name) = 'SLE_INS_SRT_GROEP_KEY'
AND fac.safe_to_number (s.fac_setting_pvalue) =
sg.ins_srtgroep_key
AND sg.ins_srtgroep_key = sd.ins_srtgroep_key
AND UPPER (TRIM (sd.ins_srtdeel_omschrijving)) =
UPPER (TRIM (x.ins_srtdeel_omschrijving))
AND ( x.ins_kenmerkwaarde1 IS NOT NULL
OR x.ins_kenmerkwaarde2 IS NOT NULL
OR x.ins_kenmerkwaarde3 IS NOT NULL);
c_ssetnr_srtkey NUMBER (10) := 203; -- Sleutelsetnummer kenmerksoort
c_ssettype_srtkey NUMBER (10) := 201; -- Type sleutelset kenmerksoort
c_ssetzone_srtkey NUMBER (10) := 202; -- Zone kenmerksoort
c_ssettype_tabkey NUMBER (10) := 883; -- Type sleutelset eigen tabel
c_ssetzone_tabkey NUMBER (10) := 882; -- Zone eigen tabel
v_count_tot NUMBER (10);
v_aanduiding VARCHAR (200);
v_kenmerk_key NUMBER (10);
v_usrdata_key NUMBER (10);
ccount NUMBER (10);
BEGIN
v_errormsg := '';
v_count_tot := 0;
FOR rec IN c1
LOOP
BEGIN
v_aanduiding :=
'['
|| rec.ins_srtdeel_code
|| '|'
|| rec.ins_srtdeel_omschrijving
|| '|'
|| rec.ssetnr
|| '|'
|| rec.ssettype
|| '|'
|| rec.ssetzone
|| '] ';
-- SLEUTELSETNUMMER toevoegen/bijwerken; NOOIT naar NULL via import!
IF rec.ssetnr IS NOT NULL
THEN
v_errormsg := 'Fout bij bepalen ssetnr-kenmerk';
SELECT k.ins_kenmerk_key
INTO v_kenmerk_key
FROM ins_v_aanwezigkenmerk k
WHERE k.ins_srtkenmerk_key = c_ssetnr_srtkey
AND k.ins_srtinstallatie_key = rec.ins_srtgroep_key
AND k.ins_kenmerk_niveau = 'G';
v_errormsg := 'Fout bij bepalen huidige ssetnr';
SELECT COUNT ( * )
INTO ccount
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
IF ccount = 0
THEN
v_errormsg := 'Fout bij toevoegen ssetnr';
INSERT INTO ins_kenmerkdeel (ins_deel_key,
ins_kenmerk_key,
ins_kenmerkdeel_waarde)
VALUES (rec.ins_srtdeel_key, v_kenmerk_key, rec.ssetnr);
ELSE
v_errormsg := 'Fout bij bijwerken ssetnr';
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = rec.ssetnr
WHERE ins_kenmerkdeel_verwijder IS NULL
AND ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
END IF;
COMMIT;
END IF;
-- TYPE SLEUTELSET toevoegen/bijwerken; NOOIT naar NULL via import!
IF rec.ssettype IS NOT NULL
THEN
v_errormsg := 'Fout bij bepalen ssettype-kenmerk';
SELECT k.ins_kenmerk_key
INTO v_kenmerk_key
FROM ins_v_aanwezigkenmerk k
WHERE k.ins_srtkenmerk_key = c_ssettype_srtkey
AND k.ins_srtinstallatie_key = rec.ins_srtgroep_key
AND k.ins_kenmerk_niveau = 'G';
v_errormsg := 'Fout bij bepalen ssettype-waarde';
SELECT COUNT ( * )
INTO ccount
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
SELECT ud.fac_usrdata_key
INTO v_usrdata_key
FROM fac_usrdata ud
WHERE ud.fac_usrtab_key = c_ssettype_tabkey
AND UPPER (ud.fac_usrdata_omschr) =
UPPER (rec.ssettype);
IF ccount = 0
THEN
v_errormsg := 'Fout bij toevoegen ssettype';
INSERT INTO ins_kenmerkdeel (ins_deel_key,
ins_kenmerk_key,
ins_kenmerkdeel_waarde)
VALUES (rec.ins_srtdeel_key,
v_kenmerk_key,
v_usrdata_key);
ELSE
v_errormsg := 'Fout bij bijwerken ssettype';
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = v_usrdata_key
WHERE ins_kenmerkdeel_verwijder IS NULL
AND ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
END IF;
COMMIT;
END IF;
-- ZONE toevoegen/bijwerken; NOOIT naar NULL via import!
IF rec.ssetzone IS NOT NULL
THEN
v_errormsg := 'Fout bij bepalen ssetzone-kenmerk';
SELECT k.ins_kenmerk_key
INTO v_kenmerk_key
FROM ins_v_aanwezigkenmerk k
WHERE k.ins_srtkenmerk_key = c_ssetzone_srtkey
AND k.ins_srtinstallatie_key = rec.ins_srtgroep_key
AND k.ins_kenmerk_niveau = 'G';
v_errormsg := 'Fout bij bepalen ssetzone-waarde';
SELECT COUNT ( * )
INTO ccount
FROM ins_v_aanwezigkenmerkdeel
WHERE ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
SELECT ud.fac_usrdata_key
INTO v_usrdata_key
FROM fac_usrdata ud
WHERE ud.fac_usrtab_key = c_ssetzone_tabkey
AND UPPER (ud.fac_usrdata_omschr) =
UPPER (rec.ssetzone);
IF ccount = 0
THEN
v_errormsg := 'Fout bij toevoegen ssetzone';
INSERT INTO ins_kenmerkdeel (ins_deel_key,
ins_kenmerk_key,
ins_kenmerkdeel_waarde)
VALUES (rec.ins_srtdeel_key,
v_kenmerk_key,
v_usrdata_key);
ELSE
v_errormsg := 'Fout bij bijwerken ssetzone';
UPDATE ins_kenmerkdeel
SET ins_kenmerkdeel_waarde = v_usrdata_key
WHERE ins_kenmerkdeel_verwijder IS NULL
AND ins_deel_key = rec.ins_srtdeel_key -- ObjectSOORTkenmerk!
AND ins_kenmerk_key = v_kenmerk_key;
END IF;
COMMIT;
END IF;
v_count_tot := v_count_tot + 1;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'W',
v_aanduiding || v_errormsg,
'');
COMMIT;
END;
END LOOP;
fac.imp_writelog (
p_import_key,
'S',
'INS-Sleutelsetkenmerken/#bijgewerkt: ' || TO_CHAR (v_count_tot),
'');
COMMIT;
END;
-- MAIN
BEGIN
-- UWVA#23784: Eerst ingelezen data in import tabel nog wat UWVA-specifiek
-- tweaken, nl. de objectsoortomschrijving prefixen met de code
-- (als dat niet al zo is/was)!
-- NB. Betreffende kolommen zijn niet leeg (want verplicht)!
UPDATE fac_imp_sle
SET ins_srtdeel_omschrijving =
SUBSTR (ins_srtdeel_code || ' ' || ins_srtdeel_omschrijving,
1,
100)
WHERE UPPER (ins_srtdeel_omschrijving) NOT LIKE
UPPER (ins_srtdeel_code) || '%';
-- Dan de generieke update.
fac_update_sle (p_import_key);
-- Daarna nog de 3 UWV-specifieke kenmerkvelden verwerken (Sleutelsetnummer,
-- Type sleutelset + Zone).
add_sle_kenmerken (p_import_key);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
'Importproces sleutelsets afgebroken!');
END uwva_update_sle;
/
CREATE OR REPLACE VIEW uwva_v_rap_sle_prs_inactief
(
fclt_3d_alg_locatie_key,
fclt_f_medewerker,
fclt_f_sleutelsetcode,
fclt_f_sleutelsetoms,
sleutelnr,
fclt_f_cilindersetoms
)
AS
SELECT c.sleloc_key, -- Stamlocatie van uitgeleende sleutel!
a.prs_perslid_naam_full,
a.sset_code,
a.sset_oms,
a.sleutel,
b.cset_oms
FROM (SELECT p.prs_perslid_key,
pf.prs_perslid_naam_full,
d.ins_deel_key,
d.ins_srtdeel_key,
sd.ins_srtdeel_code sset_code,
sd.ins_srtdeel_omschrijving sset_oms,
d.ins_deel_omschrijving sleutel
FROM prs_perslid p,
ins_v_aanwezigdeel d,
ins_srtdeel sd,
prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_verwijder IS NULL
AND (prs_perslid_naam LIKE 'INACTIEF:%'
OR (p.prs_perslid_oslogin IS NULL
AND p.prs_perslid_oslogin2 IS NULL))
AND p.prs_perslid_key = d.ins_alg_ruimte_key
AND d.ins_alg_ruimte_type = 'P'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 1190 -- Sgroep
AND p.prs_perslid_key = pf.prs_perslid_key) a
LEFT JOIN ( SELECT ss.ins_srtdeel_key_2 sset_key, -- Sset-key
COUNT ( * ) cset_aant, -- Bij UWV altijd 1
MIN (sd.ins_srtdeel_omschrijving) cset_oms
FROM ins_srtdeel_srtdeel ss, ins_srtdeel sd
WHERE ss.ins_module = 'SLE'
AND ss.ins_srtdeel_key_1 = sd.ins_srtdeel_key
GROUP BY ss.ins_srtdeel_key_2) b
ON a.ins_srtdeel_key = b.sset_key
LEFT JOIN (SELECT d.ins_deel_key, ao.alg_locatie_key sleloc_key
FROM ins_deel d, alg_v_allonroerendgoed ao
WHERE d.ins_alg_ruimte_type = 'P'
AND d.ins_alg_ruimte_type_org IN ('R', 'T')
AND d.ins_alg_ruimte_key_org = ao.alg_ruimte_key)
c
ON a.ins_deel_key = c.ins_deel_key
LEFT JOIN -- Aantal cilinders=deuren waarop Sset toegang geeft
( SELECT ss.ins_srtdeel_key_2 sset_key, -- Sset-key
COUNT ( * ) cil_aant,
MIN (pa.alg_onroerendgoed_type) cil_ptype,
MIN (pa.alg_plaatsaanduiding) cil_plaats,
MIN (ao.alg_locatie_key) min_cilloc_key,
MAX (ao.alg_locatie_key) max_cilloc_key
FROM ins_srtdeel_srtdeel ss,
ins_srtdeel sd,
ins_v_aanwezigdeel d,
alg_v_plaatsaanduiding_all pa,
alg_v_allonroerendgoed ao
WHERE ss.ins_module = 'SLE'
AND ss.ins_srtdeel_key_1 = sd.ins_srtdeel_key
AND sd.ins_srtdeel_key = d.ins_srtdeel_key
AND d.ins_alg_ruimte_type IN ('R', 'T')
AND d.ins_alg_ruimte_key =
pa.alg_onroerendgoed_keys
AND d.ins_alg_ruimte_key = ao.alg_ruimte_key
GROUP BY ss.ins_srtdeel_key_2) d
ON a.ins_srtdeel_key = d.sset_key
LEFT JOIN -- Aantal sleutels in bezit van persoon
( SELECT d.ins_alg_ruimte_key, COUNT ( * ) sle_aant
FROM ins_v_aanwezigdeel d, ins_srtdeel sd
WHERE d.ins_alg_ruimte_type = 'P'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = 1189 -- Sgroep
GROUP BY d.ins_alg_ruimte_key) e
ON a.prs_perslid_key = e.ins_alg_ruimte_key;
CREATE OR REPLACE VIEW uwva_v_noti_lfm_sle_retour
(
code,
sender,
receiver,
text,
KEY,
par1,
par2,
xkey
)
AS
SELECT DISTINCT sn.fac_srtnotificatie_code,
NULL,
fac.safe_to_number (k.alg_onrgoedkenmerk_waarde),
sn.fac_srtnotificatie_oms,
fac.safe_to_number (k.alg_onrgoedkenmerk_waarde),
NULL,
NULL,
NULL
FROM uwva_v_rap_sle_prs_inactief x,
alg_onrgoedkenmerk k,
fac_srtnotificatie sn
WHERE x.fclt_3d_alg_locatie_key = k.alg_onrgoed_key
AND k.alg_onrgoed_niveau = 'L'
AND k.alg_kenmerk_key = 1020 -- LFM
AND k.alg_onrgoedkenmerk_verwijder IS NULL
AND sn.fac_srtnotificatie_code = 'CUST14';
CREATE OR REPLACE VIEW uwva_v_rap_heavy_users
(
fclt_f_kwartaal,
naam,
fclt_f_functie,
fclt_f_rol,
email,
fclt_f_regio,
fclt_f_pandcode,
aanvragen,
klachten,
storingen,
bestellingen,
reserveringen
)
AS
SELECT x.periode,
pf.prs_perslid_naam_full naam,
sp.prs_srtperslid_omschrijving functie,
g.fac_groep_omschrijving rol,
p.prs_perslid_email email,
d.alg_district_omschrijving regio,
rg.alg_gebouw_upper pandcode,
TO_CHAR (x.mld_a),
TO_CHAR (x.mld_k),
TO_CHAR (x.mld_s),
TO_CHAR (x.bes),
TO_CHAR (x.res)
FROM ( SELECT x.prs_perslid_key,
x.periode,
SUM (x.mld_a) mld_a,
SUM (x.mld_k) mld_k,
SUM (x.mld_s) mld_s,
SUM (x.bes) bes,
SUM (x.res) res
FROM ( SELECT t.prs_perslid_key prs_perslid_key,
TO_CHAR (m.mld_melding_datum, 'yyyy/q') periode,
SUM(DECODE (md.ins_srtdiscipline_key,
1, 0,
3, 0,
1)) -- 2, 9 of 10 = Aanvr./Vertaald./Verg.&Overn.
mld_a,
SUM(DECODE (md.ins_srtdiscipline_key,
1, 0,
3, 1, -- 3 = Klachten
0))
mld_k,
SUM(DECODE (md.ins_srtdiscipline_key,
1, 1, -- 1 = Storingen
3, 0,
0))
mld_s,
0 bes,
0 res
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
fac_tracking t
WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key =
md.ins_discipline_key
AND md.ins_srtdiscipline_key IN (2, 9, 10, 3, 1)
AND m.mld_melding_datum >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'q')
AND m.mld_melding_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = 21 -- MLDNEW
GROUP BY t.prs_perslid_key,
TO_CHAR (m.mld_melding_datum, 'yyyy/q'),
md.ins_srtdiscipline_key
UNION ALL
SELECT t.prs_perslid_key prs_perslid_key,
TO_CHAR (t.fac_tracking_datum, 'yyyy/q') periode,
0 mld_a,
0 mld_k,
0 mld_S,
COUNT ( * ) bes,
0 res
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 234 -- BESNEW
AND t.fac_tracking_datum >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'q')
AND NOT EXISTS
(SELECT 1
FROM fac_tracking
WHERE fac_srtnotificatie_key = 234 -- BESNEW
AND fac_tracking_refkey =
t.fac_tracking_refkey
AND fac_tracking_key <
t.fac_tracking_key)
GROUP BY t.prs_perslid_key,
TO_CHAR (t.fac_tracking_datum, 'yyyy/q')
UNION ALL
SELECT t.prs_perslid_key prs_perslid_key,
TO_CHAR (t.fac_tracking_datum, 'yyyy/q') periode,
--TO_CHAR (rrr.res_rsv_ruimte_van, 'yyyy/q')
-- periode,
0 mld_a,
0 mld_k,
0 mld_s,
0 bes,
COUNT ( * ) res
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 30 -- RESNEW
AND t.fac_tracking_datum >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'q')
GROUP BY t.prs_perslid_key,
TO_CHAR (t.fac_tracking_datum, 'yyyy/q')) x
-- FROM res_rsv_ruimte rrr, fac_tracking t
--WHERE rrr.res_rsv_ruimte_van >
-- TRUNC (ADD_MONTHS (SYSDATE, -12), 'q')
-- AND rrr.res_rsv_ruimte_van <= SYSDATE
-- AND rrr.res_rsv_ruimte_key =
-- t.fac_tracking_refkey
-- AND t.fac_srtnotificatie_key = 30 -- RESNEW
--GROUP BY t.prs_perslid_key,
-- TO_CHAR (rrr.res_rsv_ruimte_van,
-- 'yyyy/q')) x
GROUP BY x.prs_perslid_key, x.periode) x
LEFT JOIN
(SELECT pw.prs_perslid_key,
wp.prs_alg_ruimte_key,
pw.prs_perslidwerkplek_key, -- Laagste/oudste PW!
pw.prs_perslidwerkplek_volgnr
FROM prs_perslidwerkplek pw, prs_werkplek wp
WHERE pw.prs_werkplek_key = wp.prs_werkplek_key
AND wp.prs_werkplek_virtueel = 0
AND NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek pw2, prs_werkplek wp2
WHERE pw2.prs_perslid_key = pw.prs_perslid_key
AND pw2.prs_werkplek_key =
wp2.prs_werkplek_key
AND wp2.prs_werkplek_virtueel = 0
AND COALESCE (
pw2.prs_perslidwerkplek_volgnr,
10000 + pw2.prs_perslidwerkplek_key) <
COALESCE (
pw.prs_perslidwerkplek_volgnr,
10000
+ pw.prs_perslidwerkplek_key))) y
ON x.prs_perslid_key = y.prs_perslid_key,
prs_perslid p,
prs_v_perslid_fullnames_all pf,
prs_srtperslid sp,
alg_v_ruimte_gegevens rg,
alg_district d,
fac_gebruikersgroep gg,
fac_groep g
WHERE 1 = 1
--AND (x.mld_a + x.mld_k + x.mld_s + x.bes + x.res) > 5
AND x.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND y.prs_alg_ruimte_key = rg.alg_ruimte_key
AND rg.alg_district_key = d.alg_district_key
AND x.prs_perslid_key = gg.prs_perslid_key
AND gg.fac_groep_key = g.fac_groep_key;
CREATE OR REPLACE VIEW uwva_v_rap_bezoekers
(
fclt_f_locatie,
datum,
bezoek,
spreekuur,
spobilo
)
AS
SELECT locatie,
datum,
SUM (totbez - uurbez) bezoek,
SUM (uurbez) spreekuur,
SUM (spobez) spobilo
FROM ( SELECT l.alg_locatie_code locatie,
TRUNC (ba.bez_afspraak_datum) datum,
COUNT ( * ) totbez,
0 uurbez,
0 spobez
FROM bez_bezoekers bb, bez_afspraak ba, alg_locatie l
WHERE bb.bez_bezoekers_done IS NOT NULL -- Binnengemeld!
AND bb.bez_afspraak_key = ba.bez_afspraak_key
--AND ba.bez_afspraak_datum >
-- TRUNC (ADD_MONTHS (SYSDATE, -60), 'YYYY')
AND ba.alg_locatie_key = l.alg_locatie_key
GROUP BY l.alg_locatie_code, TRUNC (ba.bez_afspraak_datum)
UNION ALL
SELECT l.alg_locatie_code locatie,
TRUNC (ba.bez_afspraak_datum) datum,
0 totbez,
COUNT ( * ) uurbez,
0 spobez
FROM bez_bezoekers bb,
bez_afspraak ba,
alg_locatie l,
res_rsv_ruimte rr,
res_ruimte_opstelling ro,
res_ruimte r
WHERE bb.bez_bezoekers_done IS NOT NULL -- Binnengemeld!
AND bb.bez_afspraak_key = ba.bez_afspraak_key
--AND ba.bez_afspraak_datum >
-- TRUNC (ADD_MONTHS (SYSDATE, -60), 'YYYY')
AND ba.alg_locatie_key = l.alg_locatie_key
AND ba.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
AND ro.res_ruimte_key = r.res_ruimte_key
AND r.res_discipline_key IN -- Bookable by KZ planner/RESFOF
(SELECT ins_discipline_key
FROM fac_groeprechten
WHERE fac_groep_key = 61 -- KZ planner
AND fac_functie_key = 17) -- RESFOF
GROUP BY l.alg_locatie_code, TRUNC (ba.bez_afspraak_datum)
UNION ALL
SELECT locatie,
TRUNC (aanmaak) datum,
0 totbez,
0 uurbez,
COUNT ( * ) spobez
FROM uwva_v_spobilo
--WHERE aanmaak > TRUNC (ADD_MONTHS (SYSDATE, -60), 'YYYY')
GROUP BY locatie, TRUNC (aanmaak))
GROUP BY locatie, datum;
-- UWVA#26813: Rapportage van meldingen op objecten
-- Met scoping op discipline en gebouw (waarbij die laatste niets uithaalt als je voor minstens
-- <20><>n discipline vastgoedscope "Alles" hebt!)
CREATE OR REPLACE VIEW uwva_v_rap_objectmelding
AS
SELECT mld_melding_datum hide_f_srt,
sd.ins_srtdiscipline_prefix || m.mld_melding_key html_meldingnr,
TO_CHAR (mld_melding_datum, 'DD-MM-YYYY') fclt_d_datum,
TO_CHAR (mld_melding_datum, 'HH24:MI') tijd,
v.alg_gebouw_code gebouw,
v.alg_gebouw_key fclt_3d_gebouw_key,
v.alg_verdieping_code verdieping,
v.alg_ruimte_nr ruimte,
sd.ins_srtdiscipline_omschrijving fclt_f_meldingsoort,
md.ins_discipline_omschrijving fclt_f_productgroep,
md.ins_discipline_key fclt_3d_discipline_key,
std.mld_stdmelding_omschrijving fclt_f_melding,
m.mld_melding_omschrijving omschrijving,
m.mld_melding_opmerking afhandeling,
ms.mld_statuses_omschrijving status,
sd.ins_srtdeel_omschrijving fclt_f_objectsoort,
id.ins_deel_omschrijving fclt_f_object
FROM mld_melding m,
mld_discipline md,
mld_disc_params mdp,
alg_v_allonrgoed_gegevens v,
alg_locatie l,
alg_district di,
mld_stdmelding std,
ins_srtdiscipline sd,
mld_statuses ms,
mld_melding_object mo,
ins_deel id,
ins_srtdeel sd
WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = di.alg_district_key(+)
AND m.mld_alg_onroerendgoed_keys = v.alg_onroerendgoed_keys(+)
AND md.ins_discipline_key = mdp.mld_ins_discipline_key
AND md.ins_discipline_key = std.mld_ins_discipline_key
AND std.mld_stdmelding_key = m.mld_stdmelding_key
AND m.fac_activiteit_key IS NULL
AND ms.mld_statuses_key = m.mld_melding_status
AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
AND mo.mld_melding_key = m.mld_melding_key
AND mo.mld_melding_object_verwijder IS NULL
AND id.ins_deel_key = mo.ins_deel_key
AND sd.ins_srtdeel_key = id.ins_srtdeel_key;
-- UWVA#27681 - Vervolg op bovenstaande rapportage (maar dan anders ;-)!
-- NB. Erg zware rapportage, dus via tabelizer?
CREATE OR REPLACE VIEW uwva_v_rap_opdr_doorloop
(
hide_f_srt,
opdrachtnr,
fclt_d_datum,
tijd,
fclt_f_meldingsoort,
fclt_3d_discipline_key,
fclt_f_productgroep,
fclt_f_melding,
omschrijving,
afhandeling,
fclt_f_bedrijf,
status,
--ordnew,
--ordafm,
doorlooptijd,
fclt_3d_gebouw_key,
fclt_f_gebouw,
verdieping,
ruimte,
fclt_f_objectsoort,
fclt_f_object
)
AS
WITH opdr
AS (SELECT o.mld_opdr_key opdr_key,
o.mld_melding_key mld_key,
o.mld_opdr_bedrijfopdr_volgnr volgnr,
sd.ins_srtdiscipline_omschrijving vakgroeptype,
md.ins_discipline_key vakgroep_key,
md.ins_discipline_omschrijving vakgroep,
sm.mld_stdmelding_key stdmld_key,
sm.mld_stdmelding_omschrijving stdmld_oms,
o.mld_opdr_omschrijving oms,
o.mld_opdr_opmerking opm,
COALESCE (b.prs_bedrijf_naam, 'Intern: ' || p.prs_perslid_naam) bedrijf,
s.mld_statusopdr_omschrijving status,
--l.alg_locatie_key locatie_key,
--l.alg_locatie_code locatie,
aog.alg_gebouw_key gebouw_key,
aog.alg_gebouw_code gebouw,
aog.alg_verdieping_code verdieping,
aog.alg_ruimte_nr ruimte,
sd.ins_srtdeel_omschrijving,
d.ins_deel_omschrijving
FROM mld_opdr o,
mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
prs_bedrijf b,
prs_perslid p,
mld_statusopdr s,
--alg_locatie l,
alg_v_allonrgoed_gegevens aog,
mld_melding_object mo,
ins_deel d,
ins_srtdeel sd
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+)
AND o.mld_uitvoerende_keys = p.prs_perslid_key(+)
AND o.mld_statusopdr_key = s.mld_statusopdr_key
--AND m.mld_alg_locatie_key = l.alg_locatie_key
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys(+)
AND m.mld_melding_key = mo.mld_melding_key(+)
AND mo.mld_melding_object_verwijder IS NULL
AND mo.ins_deel_key = d.ins_deel_key(+)
AND d.ins_srtdeel_key = sd.ins_srtdeel_key(+)
AND m.mld_melding_datum >
TRUNC (ADD_MONTHS (SYSDATE, -12), 'YYYY'))
SELECT ordnew_date,
TO_CHAR (mld_key) || '/' || TO_CHAR (volgnr) opdrachtnr,
TO_CHAR (ordnew_date, 'DD-MM-YYYY') fclt_d_datum,
TO_CHAR (ordnew_date, 'HH24:MI') tijd,
vakgroeptype,
vakgroep_key,
vakgroep,
stdmld_oms,
oms,
opm,
bedrijf,
status,
--TO_CHAR (ordnew_date, 'DD-MM-YYYY HH24:MI:SS'),
--TO_CHAR (ordafm_date, 'DD-MM-YYYY HH24:MI:SS'),
DECODE (
ordafm_date,
NULL,
NULL,
CASE
WHEN alldag_uren = 0
THEN
'0d-0u-0m'
WHEN newdag_uren = 0 OR afmdag_uren = 0
THEN
CASE
WHEN TO_CHAR (ordafm_date, 'D') IN (1, 7)
OR mld_vrije_dagen_datum IS NOT NULL
THEN
TO_CHAR (workdays)
|| 'd-'
|| TO_CHAR (FLOOR (newdag_uren))
|| 'u-'
|| TO_CHAR (MOD (ROUND (newdag_uren * 60, 0), 60))
|| 'm'
ELSE
TO_CHAR (workdays - 1)
|| 'd-'
|| TO_CHAR (FLOOR (newdag_uren + afmdag_uren))
|| 'u-'
|| TO_CHAR(MOD (
CEIL (
(newdag_uren + afmdag_uren) * 60),
60))
|| 'm'
END
ELSE
CASE
WHEN TO_CHAR (ordafm_date, 'HH24MI') >=
TO_CHAR (ordnew_date, 'HH24MI')
THEN -- Aanname: als workdays=0, dan afm_t>new_t!
TO_CHAR (workdays) || 'd-'
|| TO_CHAR(FLOOR( (ordafm_date
- TO_DATE (
TO_CHAR (ordafm_date,
'DDMMYYYY')
|| TO_CHAR (ordnew_date,
'HH24MISS'),
'DDMMYYYYHH24MISS'))
* 24))
|| 'u-'
|| TO_CHAR(MOD (
CEIL( (ordafm_date
- TO_DATE (
TO_CHAR (ordafm_date,
'DDMMYYYY')
|| TO_CHAR (ordnew_date,
'HH24MISS'),
'DDMMYYYYHH24MISS'))
* 24
* 60),
60))
|| 'm'
ELSE -- Aanname: workdays>0!
TO_CHAR (workdays - 1)
|| 'd-'
|| TO_CHAR (FLOOR (newdag_uren + afmdag_uren))
|| 'u-'
|| TO_CHAR(MOD (
CEIL (
(newdag_uren + afmdag_uren) * 60),
60))
|| 'm'
END
END)
doorlooptijd,
gebouw_key,
gebouw,
verdieping,
ruimte,
ins_srtdeel_omschrijving,
ins_deel_omschrijving
FROM (SELECT opdr.opdr_key,
opdr.mld_key,
opdr.volgnr,
opdr.vakgroeptype,
opdr.vakgroep_key,
opdr.vakgroep,
opdr.stdmld_oms,
opdr.oms,
opdr.opm,
opdr.bedrijf,
opdr.status,
ordnew.fac_tracking_datum ordnew_date,
ordafm.fac_tracking_datum ordafm_date,
fac.count_work_days (ordnew.fac_tracking_datum,
ordafm.fac_tracking_datum)
workdays,
uwva.bepaal_uwv_doorlooptijd (ordnew.fac_tracking_datum,
ordafm.fac_tracking_datum)
alldag_uren,
uwva.bepaal_uwv_doorlooptijd (
ordnew.fac_tracking_datum,
TRUNC (ordnew.fac_tracking_datum + 1))
newdag_uren,
uwva.bepaal_uwv_doorlooptijd (
TRUNC (ordafm.fac_tracking_datum),
ordafm.fac_tracking_datum)
afmdag_uren,
vd.mld_vrije_dagen_datum,
opdr.gebouw_key,
opdr.gebouw,
opdr.verdieping,
opdr.ruimte,
opdr.ins_srtdeel_omschrijving,
opdr.ins_deel_omschrijving
FROM opdr
LEFT JOIN fac_tracking ordnew
ON opdr.opdr_key = ordnew.fac_tracking_refkey
AND ordnew.fac_srtnotificatie_key = 125
LEFT JOIN fac_tracking ordafm
ON opdr.opdr_key = ordafm.fac_tracking_refkey
AND ordafm.fac_srtnotificatie_key = 26
LEFT JOIN mld_vrije_dagen vd
ON TRUNC (ordafm.fac_tracking_datum) =
TRUNC (vd.mld_vrije_dagen_datum));
-- UWVA#28572: MLD: rapport op behandelgroepen, vakgroeptype, vakgroep en mld
CREATE OR REPLACE VIEW uwva_v_rap_mld_behandelgroep
(
fclt_f_vakgroeptype,
fclt_f_vakgroep,
fclt_f_stdmelding,
fclt_f_behandelgroep
)
AS
SELECT t.ins_srtdiscipline_omschrijving,
v.ins_discipline_omschrijving,
s.mld_stdmelding_omschrijving,
b.mld_behandelgroep_naam
FROM ins_srtdiscipline t,
mld_discipline v,
mld_stdmelding s,
mld_behandelgroep b,
mld_disc_params d
WHERE s.mld_stdmelding_verwijder IS NULL
AND v.ins_discipline_verwijder IS NULL
AND t.ins_srtdiscipline_verwijder IS NULL
AND (s.mld_stdmelding_vervaldatum IS NULL
OR s.mld_stdmelding_vervaldatum > SYSDATE)
AND t.ins_srtdiscipline_key = v.ins_srtdiscipline_key
AND v.ins_discipline_key = s.mld_ins_discipline_key
AND d.mld_ins_discipline_key = v.ins_discipline_key
AND b.mld_behandelgroep_key(+) = d.mld_behandelgroep_key;
-- UWVA#29463: MLD: rapport standaardmeldingen icm bedrijf-dienst-locatie
CREATE OR REPLACE VIEW UWVA_V_RAP_MLDOPR_DIENSTLOC
(
VAKGROEPTYPE,
FCLT_F_VAKGROEP,
FCLT_F_MELDING,
FCLT_F_DIENST,
AUTOMATISCHE_OPDRACHT,
FCLT_F_LEVERANCIER,
FCLT_F_PLAATS
)
AS
SELECT srt.ins_srtdiscipline_omschrijving Vakgroeptype,
d.ins_discipline_omschrijving Vakgroep,
std.mld_stdmelding_omschrijving Melding,
pd.prs_dienst_omschrijving Dienst,
(CASE mld_stdmelding_autoorder WHEN 1 THEN 'Ja' ELSE 'Nee' END)
auto_opdracht,
b.prs_bedrijf_naam Leverancier,
COALESCE (l.alg_locatie_omschrijving,
g.alg_gebouw_omschrijving,
'Geen specifieke locatie/gebouw')
Plaats
FROM mld_stdmelding std,
mld_discipline d,
ins_srtdiscipline srt,
prs_dienst pd,
prs_bedrijfdienstlocatie bdl,
prs_bedrijf b,
alg_gebouw g,
alg_locatie l
WHERE std.mld_ins_discipline_key = d.ins_discipline_key
AND d.ins_srtdiscipline_key = srt.ins_srtdiscipline_key
AND pd.prs_dienst_key = std.prs_dienst_key
AND pd.prs_dienst_key = bdl.prs_dienst_key
AND b.prs_bedrijf_key = bdl.prs_bedrijf_key
AND b.prs_bedrijf_verwijder IS NULL
AND std.mld_stdmelding_verwijder IS NULL
AND std.mld_stdmelding_vervaldatum IS NULL
AND d.ins_discipline_verwijder IS NULL
AND srt.ins_srtdiscipline_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL
AND l.alg_locatie_verwijder IS NULL
AND g.alg_gebouw_key(+) = bdl.alg_gebouw_key
AND l.alg_locatie_key(+) = bdl.alg_locatie_key;
-- UWVA#31184
-- Rapportage gebruiker WEB_USERXX in rapporten, autorisatiegroepen, labels, themas en menu-items
CREATE OR REPLACE VIEW UWVA_V_RAP_FAC_WEBUSR
(
FCLT_F_FUNCTIE,
FUNCTIE_OMSCHRIJVING,
FCLT_F_TYPE,
KEY,
OMSCHRIJVING,
EXTRA
)
AS
SELECT ff.fac_functie_code functie,
ff.fac_functie_omschrijving beschrijving,
'Menu' Soort,
fm.fac_menu_key key,
COALESCE (fm.fac_menu_altlabel, fi.fac_menuitems_label)
omschrijving,
DECODE (COALESCE (fac_menu_altgroep, fac_menuitems_groep),
1, 'Service',
2, 'Admin',
'Zelfservice')
|| ' ('
|| fac_menu_volgnr
|| ')'
Extra
FROM fac_menuitems fi, fac_functie ff, fac_menu fm
WHERE fm.fac_functie_key = ff.fac_functie_key
AND ff.fac_functie_code LIKE 'WEB_USER%'
AND fi.fac_menuitems_key(+) = fm.fac_menuitems_key
UNION ALL
SELECT ff.fac_functie_code functie,
ff.fac_functie_omschrijving beschrijving,
'Rapport' Soort,
fr.fac_usrrap_key key,
fr.fac_usrrap_omschrijving omschrijving,
fr.fac_usrrap_view_name Extra
FROM fac_usrrap fr, fac_functie ff
WHERE fr.fac_functie_key = ff.fac_functie_key
AND ff.fac_functie_code LIKE 'WEB_USER%'
UNION ALL
SELECT ff.fac_functie_code functie,
ff.fac_functie_omschrijving beschrijving,
'Label' Soort,
cl.cad_label_key key,
cl.cad_label_omschrijving omschrijving,
cl.cad_label_view Extra
FROM cad_label cl, fac_functie ff
WHERE cl.fac_functie_key = ff.fac_functie_key
AND ff.fac_functie_code LIKE 'WEB_USER%'
UNION ALL
SELECT ff.fac_functie_code functie,
ff.fac_functie_omschrijving beschrijving,
'Thema' Soort,
ct.cad_thema_key key,
ct.cad_thema_omschrijving omschrijving,
ct.cad_thema_view Extra
FROM cad_thema ct, fac_functie ff
WHERE ct.fac_functie_key = ff.fac_functie_key
AND ff.fac_functie_code LIKE 'WEB_USER%'
UNION ALL
SELECT ff.fac_functie_code functie,
ff.fac_functie_omschrijving beschrijving,
'Autorisatiegroep' Soort,
fg.fac_groep_key key,
fg.fac_groep_omschrijving omschrijving,
NULL Extra
FROM fac_groeprechten fgr, fac_functie ff, fac_groep fg
WHERE fgr.fac_functie_key = ff.fac_functie_key
AND ff.fac_functie_code LIKE 'WEB_USER%'
AND fg.fac_groep_key = fgr.fac_groep_key;
-- UWVA#28837/UWVA#30332:
-- Alle op te roepen bezoekers, dat is:
-- * bezoeker is binnen, maar nog niet opgeroepen (en nog niet vertrokken)
-- * bezoeker is aangemeld voor vandaag
-- * bij de afspraak hoort een oproep-actie (geen ophaal-actie)
-- Filtering via de API kan op gebouw, verdieping en wachtzone (groep), dus die ook ophalen
CREATE OR REPLACE VIEW uwva_v_api_bez_oproep
AS
SELECT TO_CHAR (b.bez_bezoekers_oproep, 'YYYY-MM-DD HH24:MI:SS')
oproep_tijd,
COALESCE (rr.res_ruimte_friendlyname, rr.res_ruimte_nr) ruimtenr,
COALESCE (rr.res_ruimte_groep, ' ') groep,
b.bez_bezoekers_pasnr oproep_nummer,
b.bez_bezoekers_key bezoeker_key,
g.alg_gebouw_code gebouw_code,
g.alg_gebouw_key gebouw_key,
v.alg_verdieping_code verdieping_code,
v.alg_verdieping_key verdieping_key
FROM bez_bezoekers b,
bez_afspraak a,
bez_actie ac,
res_rsv_ruimte rrr,
res_ruimte_opstelling ro,
res_ruimte rr,
res_alg_ruimte rar,
alg_ruimte r,
alg_verdieping v,
alg_gebouw g
WHERE rrr.res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE)
AND TRUNC (SYSDATE) + 1
AND a.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND ac.bez_actie_key = a.bez_actie_key
AND BITAND (ac.bez_actie_flags, 1) = 1
AND b.bez_afspraak_key = a.bez_afspraak_key
AND b.bez_bezoekers_done IS NOT NULL
AND b.bez_bezoekers_oproep IS NOT NULL
AND b.bez_bezoekers_out IS NULL
AND b.bez_bezoekers_pasnr IS NOT NULL
AND ro.res_ruimte_opstel_key = rrr.res_ruimte_opstel_key
AND rr.res_ruimte_key = ro.res_ruimte_key
AND rar.res_ruimte_key = rr.res_ruimte_key
AND r.alg_ruimte_key = rar.alg_ruimte_key
AND r.alg_ruimte_verwijder IS NULL
AND v.alg_verdieping_key = r.alg_verdieping_key
AND g.alg_gebouw_key = v.alg_gebouw_key
ORDER BY 1 DESC;
-- ------------------------------------------------ --
-- Noficatiejobs/views (zoveel mogelijk bij elkaar) --
-- ------------------------------------------------ --
-- UWVA#28207: Bevat CUST22-noti naar besteller+budgethouder bij mutaties >?500
-- in VOB-bestelling (door Worldmeetings).
-- UWVA#38338: VO2017/CUST28-noti naar bugethouder bij registratie (MLDNEW) van
-- VO-boeking. Bovendien vervalt per VO2017 de CUST22-noti cq. deze
-- wordt vanzelf niet meer verstuurd en kan tzt. worden verwijderd).
-- UWVA#51769: CUST22-noti verwijderd.
CREATE OR REPLACE VIEW uwva_v_noti_vob
(
code,
sender,
receiver,
text,
key,
par1,
par2,
xkey
)
AS -- MLDNEW naar budgethouder (per UWVA107/VO2017)
SELECT sn.fac_srtnotificatie_code,
NULL,
prs.getkpverantwoordelijke (m.prs_kostenplaats_key, 2, -1),
REPLACE (
REPLACE (
REPLACE (sn.fac_srtnotificatie_oms,
'##KEY##', TO_CHAR (m.mld_melding_key)),
'##DISC##', TO_CHAR (md.ins_discipline_omschrijving)),
'##STDMLD##', TO_CHAR (sm.mld_stdmelding_omschrijving)),
m.mld_melding_key refkey,
NULL refoms,
NULL,
NULL
FROM fac_tracking t, mld_melding m, mld_stdmelding sm, mld_discipline md, fac_srtnotificatie sn, fac_notificatie_job nj
WHERE t.fac_srtnotificatie_key = 21 -- MLDNEW
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_discipline_key IN (457, 458) -- Bijeenkomsten/Overnachtingen
AND sn.fac_srtnotificatie_code = 'CUST28'
AND nj.fac_notificatie_job_view = 'UWVA_V_NOTI_VOB'
AND t.fac_tracking_datum BETWEEN nj.fac_notificatie_job_nextrun - (nj.fac_notificatie_job_interval / 24) AND nj.fac_notificatie_job_nextrun;
-- UWVA#28494: FDO CNT noti reminder naar LFM
CREATE OR REPLACE VIEW UWVA_V_NOTI_CNT_LFM_REMINDER
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
PAR1,
PAR2,
XKEY
)
AS
SELECT 'CUST23',
NULL,
fac.safe_to_number (ak.alg_onrgoedkenmerk_waarde),
'Controle Facilitaire Dienstovereenkomst - Contract: '
|| c.cnt_contract_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
NULL,
NULL
FROM cnt_contract c,
cnt_contract_plaats cp,
alg_gebouw g,
alg_onrgoedkenmerk ak
WHERE ins_discipline_key = 358
AND cnt_contract_looptijd_tot > SYSDATE
AND c.cnt_contract_verwijder IS NULL
AND c.cnt_contract_key = cp.cnt_contract_key
AND cp.cnt_contract_plaats_verwijder IS NULL
AND cp.cnt_alg_plaats_code = 'G'
AND g.alg_gebouw_key = cp.cnt_alg_plaats_key
AND alg_onrgoedkenmerk_verwijder IS NULL
AND alg_onrgoed_niveau = 'L'
AND alg_kenmerk_key = 1020
AND g.alg_locatie_key = ak.alg_onrgoed_key
UNION ALL
SELECT 'CUST23',
NULL,
fac.safe_to_number (ak.alg_onrgoedkenmerk_waarde),
'Controle Facilitaire Dienstovereenkomst - '
|| c.cnt_contract_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
NULL,
NULL
FROM cnt_contract c,
cnt_contract_plaats cp,
alg_locatie l,
alg_onrgoedkenmerk ak
WHERE ins_discipline_key = 358
AND cnt_contract_looptijd_tot > SYSDATE
AND c.cnt_contract_verwijder IS NULL
AND c.cnt_contract_key = cp.cnt_contract_key
AND cp.cnt_contract_plaats_verwijder IS NULL
AND cp.cnt_alg_plaats_code = 'L'
AND l.alg_locatie_key = cp.cnt_alg_plaats_key
AND alg_onrgoedkenmerk_verwijder IS NULL
AND alg_onrgoed_niveau = 'L'
AND alg_kenmerk_key = 1020
AND l.alg_locatie_key = ak.alg_onrgoed_key;
-- UWVA#61083: Bewaartermijnen/automatische schoning!
CREATE OR REPLACE VIEW UWVA_V_NOTI_AUTO_SCHONING
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY,
XSENDER,
XEMAIL,
XMOBILE,
ATTACHMENTS
)
AS
SELECT sn.fac_srtnotificatie_code,
NULL,
p.prs_perslid_key,
sn.fac_srtnotificatie_oms,
r.fac_usrrap_key,
NULL,
NULL,
NULL,
NULL,
NULL
FROM fac_usrrap r,
fac_gebruikersgroep gg,
prs_v_aanwezigperslid p,
fac_srtnotificatie sn
WHERE r.fac_usrrap_key = 142 -- Dummy rapport? [Te schonen BES/BEZ/RES/MLD/CNT-data te zwaar]
AND gg.fac_groep_key IN (1, 741) -- Infobeheer/HV Contract admin
AND gg.prs_perslid_key = p.prs_perslid_key
AND sn.fac_srtnotificatie_code = 'CUST29'
AND TO_CHAR (SYSDATE, 'dd-mm') = '10-01' -- Notificatie op 10/1 tbv. schoning op 1/3!
;
-- UWVA#74660: CUST30-noti als een job niet heeft gedraaid!
CREATE OR REPLACE VIEW UWVA_V_NOTI_BEWAKING_JOBS
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY,
XSENDER,
XEMAIL,
XMOBILE,
ATTACHMENTS
)
AS
SELECT sn.fac_srtnotificatie_code,
NULL,
p.prs_perslid_key,
REPLACE (sn.fac_srtnotificatie_oms, '##JOB##', ea.fac_export_app_code || '-export'),
DECODE (ea.fac_export_app_key,
4, 1,
20, 2,
1, 3,
5, 4,
21, 5,
22, 6,
8, 7,
12, 8,
10, 9,
11, 10,
7, 11,
13, 12,
14, 13,
16, 14,
18, 15,
15, 16,
9, 17,
17, 18,
2, 19,
20)
alg_locatie_key, -- Bah, vieze truc met dummy locaties om ontdubbelen op basis van gelijke CUST30 naar gelijke personen te voorkomen!
NULL,
NULL,
NULL,
NULL,
NULL
FROM fac_gebruikersgroep gg,
prs_v_aanwezigperslid p,
fac_srtnotificatie sn,
fac_notificatie_job nj,
fac_export_app ea
WHERE gg.fac_groep_key = 1 -- Infobeheer
AND gg.prs_perslid_key = p.prs_perslid_key
AND sn.fac_srtnotificatie_code = 'CUST30'
AND nj.fac_notificatie_job_view = 'UWVA_V_NOTI_BEWAKING_JOBS'
AND ea.fac_export_app_key IN
(4, -- 17:00=HV_DUMP
20, -- 17:00=SCH
1, -- 17:00=BROC
5, -- 20:00=CPUA
21, -- 22:00=VINDERDUMP
22, -- 22:00=VINDER2ABS
8, -- 04:00=QLIKVIEW_BESTEL
12, -- 04:00=QLIKVIEW_BEDRIJF
10, -- 04:00=QLIKVIEW_CONTR
11, -- 04:00=QLIKVIEW_FACTUUR
7, -- 04:00=QLIKVIEW_MELDING
13, -- 04:00=QV_KLACHTBEOORD
14, -- 04:00=QV_KLACHTCATGOR
16, -- 04:00=QV_VERTAALWERK
18, -- 04:00=QV_MLD_OBJECTEN
15, -- 04:00=QV_OPDRTELAAT
9, -- 04:00=QLIKVIEW_RESERV
17, -- 04:00=QV_AUTORISATIES
2) -- 05:00=AFTERSALES
AND TRUNC (ea.fac_export_app_datum + 1) = TRUNC (SYSDATE)
AND TO_CHAR (ea.fac_export_app_datum + (1 / 24), 'hh24') = TO_CHAR (SYSDATE, 'hh24')
UNION ALL
SELECT sn.fac_srtnotificatie_code,
NULL,
p.prs_perslid_key,
REPLACE (sn.fac_srtnotificatie_oms, '##JOB##', ia.fac_import_app_code || '-import'),
DECODE (ia.fac_import_app_key,
61, 101,
602, 102,
462, 103,
104)
alg_locatie_key, -- Bah, vieze truc met dummy locaties om ontdubbelen op basis van gelijke CUST30 naar gelijke personen te voorkomen!
NULL,
NULL,
NULL,
NULL,
NULL
FROM fac_gebruikersgroep gg,
prs_v_aanwezigperslid p,
fac_srtnotificatie sn,
fac_notificatie_job nj,
fac_import_app ia,
( SELECT fac_import_app_key, MAX (fac_import_key) max_import_key
FROM fac_import
-- WHERE fac_import_app_key IN (61, 602, 462, 942) -- KPN/KPN_PRJ/ABS/PSHCM
GROUP BY fac_import_app_key) i,
( SELECT fac_import_key, MAX (imp_log_datum) max_log_datum
FROM imp_log
-- WHERE imp_log_status = 'S'
GROUP BY fac_import_key) l
WHERE gg.fac_groep_key = 1 -- Infobeheer
AND gg.prs_perslid_key = p.prs_perslid_key
AND sn.fac_srtnotificatie_code = 'CUST30'
AND nj.fac_notificatie_job_view = 'UWVA_V_NOTI_BEWAKING_JOBS'
AND ia.fac_import_app_key IN (61, 602, 462, 942) -- KPN/KPN_PRJ/ABS/PSHCM
AND ia.fac_import_app_key = i.fac_import_app_key(+)
AND i.max_import_key = l.fac_import_key(+)
AND TO_CHAR (SYSDATE, 'hh24') = '07' -- Imports om 7:00 controleren
AND COALESCE (l.max_log_datum, TO_DATE ('01-01-2023', 'dd-mm-yyyy')) < TRUNC (SYSDATE) -- Vandaag niet gedraaid!
;
--UWVA#72051 mail sturen als de catalogus van de reserveerbare ruimte aangepast wordt, loopt met een interval van 24 uur voor wijzigingen van de dag ervoor.
CREATE OR REPLACE VIEW UWVA_V_NOTI_EAFSPRAAK_RESRUIMTE
(
CODE,
SENDER,
RECEIVER,
TEXT,
KEY,
XKEY,
XSENDER,
XEMAIL,
XMOBILE,
ATTACHMENTS
)
AS
SELECT 'CUST31',
NULL,
NULL,
'Catalogus van ruimte '
|| rr.res_ruimte_nr
|| ' is gewijzigd in Facilitor',
NULL,
NULL,
NULL,
(SELECT LISTAGG (p.prs_perslid_email, ';')
FROM fac_gebruikersgroep f, prs_perslid p
WHERE f.PRS_PERSLID_KEY = p.PRS_PERSLID_KEY
AND f.fac_groep_key = 2021 -- Accounts verbonden aan E-Afspraak
AND p.prs_perslid_verwijder IS NULL)
XEMAIL,
NULL,
NULL
FROM fac_audit fa, res_ruimte rr
WHERE fa.fac_audit_tabelkey = rr.res_ruimte_key
AND fa.fac_audit_veldnaam = 'res_discipline_key'
AND TRUNC (fa.fac_audit_datum) = TRUNC (SYSDATE -1);
-- UWVA#36904
CREATE OR REPLACE VIEW uwva_v_rap_res_vc_perslid
(
person_id,
person_name,
person_email,
person_phone
)
AS
SELECT p.prs_perslid_key,
pf.prs_perslid_naam_full,
p.prs_perslid_email,
COALESCE (p.prs_perslid_telefoonnr, p.prs_perslid_mobiel)
FROM prs_perslid p, prs_v_perslid_fullnames_all pf
WHERE p.prs_perslid_key = pf.prs_perslid_key
AND EXISTS
(SELECT 1
FROM res_rsv_ruimte
WHERE res_activiteit_key = 241 -- Video conference
AND res_rsv_ruimte_van > TRUNC (SYSDATE)
AND (res_rsv_ruimte_host_key = p.prs_perslid_key
OR res_rsv_ruimte_contact_key =
p.prs_perslid_key));
-- UWVA#31552: RTMs incl. 3 rapportages waarnaar kan worden doorgeklikt!
-- De MLDOPEN-rapportage dubbel uitgevoerd om 1x op organisatie en
-- 1x op plaats te kunnen 3d-scopen!
CREATE OR REPLACE VIEW UWVA_V_RAP_MLDOPEN_ORANJE1 -- Tbv. plaats-scopen
(
FCLT_3D_LOCATIE_KEY,
FCLT_3D_AFDELING_KEY,
HIDE_F_SORTERING,
HIDE_F_SPECIALISATIE,
PRIO,
PREFIX,
MLD_MELDING_KEY,
HIDE_F_INS_DISCIPLINE_KEY,
INS_DISCIPLINE_OMS,
MLD_STDMELDING_OMS,
BEGINDATUM,
BEGINTIJD,
PLAATS,
ALG_RUIMTE_OMSCHRIJVING,
OMSCHRIJVING,
MELDER,
STATUS,
HIDE_F_BEHANDELAAR_KEY,
BEHANDELAAR,
EINDDATUM,
EINDTIJD
)
AS
SELECT l.alg_locatie_key,
p.prs_afdeling_key,
TO_CHAR (m.mld_melding_datum, 'yyyymmddhh24:mi:ss'),
SUBSTR (UPPER (ud.fac_usrdata_omschr), 1, 3),
TO_CHAR (m.mld_melding_spoed),
sd.ins_srtdiscipline_prefix,
TO_CHAR (m.mld_melding_key),
md.ins_discipline_key,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy') datum,
TO_CHAR (m.mld_melding_datum, 'hh24:mi') tijd,
DECODE (
og.alg_type,
'R',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code
|| og.alg_ruimte_nr,
'V',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code,
'G',
l.alg_locatie_code || '-' || og.alg_gebouw_code,
'T',
l.alg_locatie_code || '-' || og.alg_terreinsector_code,
l.alg_locatie_code)
plaatsaanduiding,
DECODE (og.alg_type, 'R', og.alg_ruimte_omschrijving, NULL)
alg_ruimte_omschrijving,
m.mld_melding_omschrijving,
pm.prs_perslid_naam_full,
ms.mld_statuses_omschrijving,
pb.prs_perslid_key,
pb.prs_perslid_naam_full,
TO_CHAR (m.mld_melding_einddatum_std, 'dd-mm-yyyy') einddatum,
TO_CHAR (m.mld_melding_einddatum_std, 'hh24:mi') eindtijd
FROM mld_melding m,
mld_statuses ms,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
(SELECT *
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142) ud,
alg_locatie l,
alg_v_onroerendgoed_gegevens og,
prs_perslid p,
prs_v_perslid_fullnames_all pm,
prs_v_perslid_fullnames_all pb
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_melding_einddatum_std > SYSDATE
AND m.mld_melding_status = ms.mld_statuses_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key =
fac.safe_to_number (ud.fac_usrdata_code)
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
AND m.prs_perslid_key_voor = p.prs_perslid_key
AND m.prs_perslid_key_voor = pm.prs_perslid_key
AND m.mld_melding_behandelaar_key = pb.prs_perslid_key(+)
AND SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7 * m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')) = -1;
-- Ongeacht specialisatie!!!
CREATE OR REPLACE VIEW UWVA_V_RAP_MLDOPEN_ORANJE2 -- Tbv. organisatie-scopen
(
FCLT_3D_LOCATIE_KEY,
FCLT_3D_AFDELING_KEY,
HIDE_F_SORTERING,
HIDE_F_SPECIALISATIE,
PRIO,
PREFIX,
MLD_MELDING_KEY,
HIDE_F_INS_DISCIPLINE_KEY,
INS_DISCIPLINE_OMS,
MLD_STDMELDING_OMS,
BEGINDATUM,
BEGINTIJD,
PLAATS,
ALG_RUIMTE_OMSCHRIJVING,
OMSCHRIJVING,
MELDER,
STATUS,
HIDE_F_BEHANDELAAR_KEY,
BEHANDELAAR,
EINDDATUM,
EINDTIJD
)
AS
SELECT l.alg_locatie_key,
p.prs_afdeling_key,
TO_CHAR (m.mld_melding_datum, 'yyyymmddhh24:mi:ss'),
NULL,
TO_CHAR (m.mld_melding_spoed),
sd.ins_srtdiscipline_prefix,
TO_CHAR (m.mld_melding_key),
md.ins_discipline_key,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
TO_CHAR (m.mld_melding_datum, 'dd-mm-yyyy') datum,
TO_CHAR (m.mld_melding_datum, 'hh24:mi') tijd,
DECODE (
og.alg_type,
'R',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code
|| og.alg_ruimte_nr,
'V',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code,
'G',
l.alg_locatie_code || '-' || og.alg_gebouw_code,
'T',
l.alg_locatie_code || '-' || og.alg_terreinsector_code,
l.alg_locatie_code)
plaatsaanduiding,
DECODE (og.alg_type, 'R', og.alg_ruimte_omschrijving, NULL)
alg_ruimte_omschrijving,
m.mld_melding_omschrijving,
pm.prs_perslid_naam_full,
ms.mld_statuses_omschrijving,
pb.prs_perslid_key,
pb.prs_perslid_naam_full,
TO_CHAR (m.mld_melding_einddatum_std, 'dd-mm-yyyy') einddatum,
TO_CHAR (m.mld_melding_einddatum_std, 'hh24:mi') eindtijd
FROM mld_melding m,
mld_statuses ms,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
alg_locatie l,
alg_v_onroerendgoed_gegevens og,
prs_perslid p,
prs_v_perslid_fullnames_all pm,
prs_v_perslid_fullnames_all pb
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_melding_einddatum_std > SYSDATE
AND m.mld_melding_status = ms.mld_statuses_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
--AND m.prs_perslid_key_voor = p.prs_perslid_key
--AND m.prs_perslid_key_voor = pm.prs_perslid_key
--AND m.mld_melding_behandelaar_key = pb.prs_perslid_key(+)
AND m.prs_perslid_key_voor = pm.prs_perslid_key
AND m.mld_melding_behandelaar_key = p.prs_perslid_key(+)
AND m.mld_melding_behandelaar_key = pb.prs_perslid_key(+)
AND SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7 * m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')) = -1;
-- Specialisatie van melding = specialisatie van opdracht!
-- SLA van melding bepalend voor 70% criterium (= oranje)!
CREATE OR REPLACE VIEW UWVA_V_RAP_ORDOPEN_ORANJE -- Tbv. plaats-scopen
(
FCLT_3D_LOCATIE_KEY,
--FCLT_3D_AFDELING_KEY,
HIDE_F_SORTERING,
HIDE_F_SPECIALISATIE,
PRIO,
PREFIX,
MLD_MELDING_KEY,
VOLGNR,
MLD_OPDR_KEY,
OPDRACHTTYPE,
PLAATS,
ALG_RUIMTE_OMSCHRIJVING,
--HIDE_F_INS_DISCIPLINE_KEY,
--INS_DISCIPLINE_OMS,
MLD_STDMELDING_OMS,
OMSCHRIJVING,
BEGINDATUM,
--BEGINTIJD,
MELDINGSTATUS,
OPDRACHTSTATUS,
EINDDATUM,
--EINDTIJD,
HIDE_F_UITVOERENDE_KEY,
UITVOERENDE,
AFHANDELING,
KOSTEN
)
AS
SELECT l.alg_locatie_key,
--p.prs_afdeling_key,
TO_CHAR (o.mld_opdr_einddatum, 'yyyymmddhh24:mi:ss'),
SUBSTR (UPPER (ud.fac_usrdata_omschr), 1, 3),
TO_CHAR (m.mld_melding_spoed),
sd.ins_srtdiscipline_prefix,
TO_CHAR (m.mld_melding_key),
TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr),
TO_CHAR (o.mld_opdr_key),
ot.mld_typeopdr_omschrijving,
DECODE (
og.alg_type,
'R',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code
|| og.alg_ruimte_nr,
'V',
l.alg_locatie_code
|| '-'
|| og.alg_gebouw_code
|| '-'
|| og.alg_verdieping_code,
'G',
l.alg_locatie_code || '-' || og.alg_gebouw_code,
'T',
l.alg_locatie_code || '-' || og.alg_terreinsector_code,
l.alg_locatie_code)
plaatsaanduiding,
DECODE (og.alg_type, 'R', og.alg_ruimte_omschrijving, NULL)
alg_ruimte_omschrijving,
--md.ins_discipline_key,
--md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
o.mld_opdr_omschrijving,
TO_CHAR (o.mld_opdr_datumbegin, 'dd-mm-yyyy') datum,
--TO_CHAR (o.mld_opdr_datumbegin, 'hh24:mi') tijd,
ms.mld_statuses_omschrijving,
os.mld_statusopdr_omschrijving,
TO_CHAR (o.mld_opdr_einddatum, 'dd-mm-yyyy') einddatum,
--TO_CHAR (o.mld_opdr_einddatum, 'hh24:mi') eindtijd,
o.mld_uitvoerende_keys,
COALESCE (b.prs_bedrijf_naam, puv.prs_perslid_naam_full)
uitvoerende,
o.mld_opdr_opmerking,
o.mld_opdr_kosten
FROM mld_opdr o,
mld_statusopdr os,
mld_typeopdr ot,
prs_bedrijf b, -- Externe leverancier
prs_v_perslid_fullnames_all puv, -- Interne uitvoerende
mld_melding m,
mld_statuses ms,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
(SELECT *
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142) ud,
alg_locatie l,
alg_v_onroerendgoed_gegevens og,
prs_perslid p
WHERE o.mld_statusopdr_key IN (3, 4, 5, 8, 10) -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd, 10-Ter goedkeuring
AND o.mld_statusopdr_key = os.mld_statusopdr_key
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+)
AND o.mld_uitvoerende_keys = puv.prs_perslid_key(+)
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_melding_einddatum_std > SYSDATE
AND m.mld_melding_status = ms.mld_statuses_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key =
fac.safe_to_number (ud.fac_usrdata_code)
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
AND m.prs_perslid_key_voor = p.prs_perslid_key
AND SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7 * m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')) = -1;
-- 12x UWVA_V_GRAPH_MLDOPEN_XXX/<2F><>n per specialisatie zoals gedefinieerd in
-- Eigen tabel met key=1142!
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_BES -- BHV/EVE/IEO/KLI/MUS/PEI/PEL/SBL/TIN/VEO/VEB
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=BES'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'BES')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_BHV
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=BHV'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'BHV')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_EVE
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=EVE'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'EVE')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_IEO
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=IEO'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'IEO')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_KLI
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=KLI'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'KLI')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_MUS
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=MUS'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'MUS')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_PEI
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=PEI'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'PEI')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_PEL
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=PEL'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'PEL')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_SBL
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=SBL'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'SBL')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_TIN
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=TIN'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'TIN')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_VEO
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=VEO'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'VEO')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_VEB
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT x.vakgroep_oms,
x.ruimoptijd groen,
x.totaal - x.ruimoptijd - x.echttelaat oranje,
x.echttelaat rood,
TO_CHAR (999999 - x.totaal) || x.vakgroep_oms volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1285'
|| '&'
|| 'hide_f_specialisatie=VEB'
|| '&'
|| 'hide_f_ins_discipline_key='
|| TO_CHAR (x.ins_discipline_key)
FROM ( SELECT md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving
vakgroep_oms,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND md.ins_discipline_key IN
(SELECT fac.safe_to_number (fac_usrdata_code)
FROM fac_v_aanwezigusrdata
WHERE fac_usrtab_key = 1142
AND SUBSTR (UPPER (fac_usrdata_omschr),
1,
3) = 'VEB')
GROUP BY md.ins_discipline_key,
sd.ins_srtdiscipline_prefix
|| '-'
|| md.ins_discipline_omschrijving) x
UNION ALL -- Extra kolom zodat voorgaande kolommen helemaal getoond?
SELECT ' ',
0,
0,
0,
'999999',
' '
FROM DUAL;
-- Tov. SLA van melding of geplande einddatum van melding?
-- Lopend incl. meldingstatus 7-Uitgegeven, maar niet als opdracht belegd?
CREATE OR REPLACE VIEW UWVA_V_GRAPH_MLDOPEN_BHND
(
FCLT_3D_AFDELING_KEY,
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT prs_afdeling_key,
prs_perslid_naam_full,
ruimoptijd groen,
totaal - ruimoptijd - echttelaat oranje,
echttelaat rood,
TO_CHAR (999999 - totaal) || prs_perslid_naam_full volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1286'
|| '&'
|| 'hide_f_behandelaar_key='
|| TO_CHAR (prs_perslid_key)
FROM ( SELECT p.prs_afdeling_key,
pb.prs_perslid_key,
pb.prs_perslid_naam_full,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_melding m,
prs_perslid p,
prs_v_perslid_fullnames_all pb
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
AND m.mld_melding_behandelaar_key = p.prs_perslid_key
AND p.prs_perslid_key = pb.prs_perslid_key
--AND NOT EXISTS
-- (SELECT 1
-- FROM mld_opdr
-- WHERE mld_statusopdr_key IN (3, 4, 5, 8, 10) -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd, 10-Ter goedkeuring
-- AND mld_melding_key = m.mld_melding_key)
GROUP BY p.prs_afdeling_key,
pb.prs_perslid_key,
pb.prs_perslid_naam_full);
-- Per opdracht (>1 per melding)?
-- Tov. SLA van melding, geplande einddatum van melding of geplande einddatum van opdracht?
CREATE OR REPLACE VIEW UWVA_V_GRAPH_ORDOPEN_UITV_I
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT uitvoerende,
ruimoptijd groen,
totaal - ruimoptijd - echttelaat oranje,
echttelaat rood,
TO_CHAR (999999 - totaal) || uitvoerende volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1287'
|| '&'
|| 'hide_f_uitvoerende_key='
|| TO_CHAR (mld_uitvoerende_keys)
FROM ( SELECT o.mld_uitvoerende_keys,
COALESCE (b.prs_bedrijf_naam, puv.prs_perslid_naam_full)
uitvoerende,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_opdr o,
(SELECT * -- Alleen interne relaties (1200 is aangevinkt)!
FROM prs_bedrijf b
WHERE EXISTS
(SELECT 1
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = b.prs_bedrijf_key
AND kl.prs_kenmerk_key = 1200 -- Intern
AND kl.prs_kenmerklink_waarde = 1)) b,
prs_v_perslid_fullnames_all puv, -- Interne uitvoerder
mld_melding m
WHERE o.mld_statusopdr_key IN (3, 4, 5, 8, 10) -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd, 10-Ter goedkeuring
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+)
AND o.mld_uitvoerende_keys = puv.prs_perslid_key(+)
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
GROUP BY o.mld_uitvoerende_keys,
COALESCE (b.prs_bedrijf_naam, puv.prs_perslid_naam_full))
WHERE uitvoerende IS NOT NULL;
CREATE OR REPLACE VIEW UWVA_V_GRAPH_ORDOPEN_UITV_E
(
FCLT_XAS_,
FCLT_YAS_, -- groen=ruim op tijd (<70% tijdigheid verstreken)
FCLT_YAS2_, -- oranje=krap op tijd (>70% tijdigheid verstreken)
FCLT_YAS3_, -- rood=echt te laat
VOLGORDE,
FCLT_URL
)
AS
SELECT uitvoerende,
ruimoptijd groen,
totaal - ruimoptijd - echttelaat oranje,
echttelaat rood,
TO_CHAR (999999 - totaal) || uitvoerende volgorde,
'appl/fac/fac_report.asp?mode=list'
|| '&'
|| 'usrrap_key=1287'
|| '&'
|| 'hide_f_uitvoerende_key='
|| TO_CHAR (mld_uitvoerende_keys)
FROM ( SELECT o.mld_uitvoerende_keys,
b.prs_bedrijf_naam uitvoerende,
COUNT ( * ) totaal,
SUM(DECODE (
SIGN(mld.geteinddatum (
m.mld_melding_datum,
m.mld_stdmelding_key,
m.mld_melding_spoed,
NULL, -- Plaats binnen/kleiner locatie!
NULL, -- Object met laagste uitvoertijd
MLD_T_UITVOERTIJD (
0.7
* m.mld_melding_t_uitvoertijd.tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid))
- TRUNC (SYSDATE, 'mi')),
1,
1,
0))
ruimoptijd,
SUM(DECODE (
SIGN(m.mld_melding_einddatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
1,
0))
echttelaat
FROM mld_opdr o,
(SELECT * -- Alleen externe relaties (1200 is uitgevinkt)!
FROM prs_bedrijf b
WHERE NOT EXISTS
(SELECT 1
FROM prs_kenmerklink kl
WHERE kl.prs_link_key = b.prs_bedrijf_key
AND kl.prs_kenmerk_key = 1200 -- Intern
AND kl.prs_kenmerklink_waarde = 1)) b,
mld_melding m
WHERE o.mld_statusopdr_key IN (3, 4, 5, 8, 10) -- 3-Ter fiattering, 4-Gefiatteerd, 5-Uitgegeven, 8-Geaccepteerd, 10-Ter goedkeuring
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
AND o.mld_melding_key = m.mld_melding_key
AND m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
GROUP BY o.mld_uitvoerende_keys, b.prs_bedrijf_naam);
CREATE OR REPLACE VIEW UWVA_V_GRAPH_PPI_ACP (FCLT_XAS_, FCLT_YAS_)
AS
SELECT SUM (acceptatieoptijd) aantal, COUNT (mld_key) totaal
FROM (SELECT DISTINCT
m.mld_melding_key mld_key,
DECODE (
SIGN(m.mld_melding_acceptdatum_std
- TRUNC (SYSDATE, 'mi')),
-1,
0,
1)
acceptatieoptijd
FROM mld_melding m
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
);
CREATE OR REPLACE VIEW UWVA_V_GRAPH_PPI_AFM (FCLT_XAS_, FCLT_YAS_)
AS
SELECT SUM (uitvoeringoptijd) aantal, COUNT (mld_key) totaal
FROM (SELECT DISTINCT
m.mld_melding_key mld_key,
DECODE (
SIGN (
m.mld_melding_einddatum_std - TRUNC (SYSDATE, 'mi')),
-1,
0,
1)
uitvoeringoptijd
FROM mld_melding m
WHERE m.mld_melding_status IN (2, 3, 4, 7, 0) -- 2-Ingevoerd, 3-Ingezien, 4-Geaccepteerd, 7-Uitgegeven, 0-Pending
);
CREATE OR REPLACE VIEW uwva_v_fac_notificatie
AS
SELECT * FROM fac_notificatie;
-- UWVA#33269
-- Bron-view 'uwva_v_afh_geb_grp' loopt via tabelizer tbv. performance!
CREATE OR REPLACE VIEW uwva_v_afh_geb_grp
(
maand,
alg_gebouw_key,
alg_gebouw_code,
ins_srtdiscipline_omschrijving,
mld_behandelgroep_naam,
aantal,
tot_doorlooptijd,
tot_verschilnorm_abs,
tot_verschilnorm_pct
)
AS
SELECT TO_CHAR (x.mldafm, 'yyyy-mm') maand,
x.alg_gebouw_key,
x.alg_gebouw_code,
x.ins_srtdiscipline_omschrijving,
x.mld_behandelgroep_naam,
COUNT ( * ) aantal,
SUM (x.doorlooptijd.tijdsduur) tot_doorlooptijd,
SUM (x.doorlooptijd.tijdsduur - x.norm.tijdsduur)
tot_verschilnorm_abs,
SUM(DECODE (
COALESCE (x.norm.tijdsduur, 0),
0,
0,
(x.doorlooptijd.tijdsduur - x.norm.tijdsduur)
/ x.norm.tijdsduur))
tot_verschilnorm_pct
--SUM(DECODE (COALESCE (x.norm.tijdsduur, 0),
-- 0, 1,
-- x.doorlooptijd.tijdsduur / x.norm.tijdsduur))
-- tot_doorloopnorm_pct
FROM (SELECT t.fac_tracking_datum mldafm, -- MLDAFM-datum
g.alg_gebouw_key,
g.alg_gebouw_code,
sd.ins_srtdiscipline_omschrijving,
bg.mld_behandelgroep_naam,
mld.getactualuitvoer (m.mld_melding_datum,
t.fac_tracking_datum,
sm.mld_stdmelding_key,
m.mld_melding_spoed,
NULL,
NULL,
'D')
doorlooptijd,
mld.getactualuitvoer (m.mld_melding_datum,
m.mld_melding_einddatum_std,
sm.mld_stdmelding_key,
m.mld_melding_spoed,
NULL,
NULL,
'D')
norm
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
ins_tab_discipline td,
ins_srtdiscipline sd,
mld_disc_params dp,
mld_behandelgroep bg,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
--AND t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm')
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (SYSDATE,
-12),
'mm')
AND TRUNC (SYSDATE, 'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = td.ins_discipline_key
AND td.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND sd.ins_srtdiscipline_key IN (1, 2, 9, 10) -- S/A/V/VO
AND td.ins_discipline_key = dp.mld_ins_discipline_key
AND dp.mld_behandelgroep_key = bg.mld_behandelgroep_key(+)
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)) x
GROUP BY TO_CHAR (x.mldafm, 'yyyy-mm'),
x.alg_gebouw_key,
x.alg_gebouw_code,
x.ins_srtdiscipline_omschrijving,
x.mld_behandelgroep_naam;
CREATE OR REPLACE VIEW uwva_v_rap_afh_geb
(
fclt_f_maand,
fclt_f_kavel,
fclt_f_gebouw,
aantal,
tot_doorlooptijd,
tot_verschilnorm_abs,
tot_verschilnorm_pct,
fclt_x_verschil_ok
)
AS
SELECT x.maand,
COALESCE (k.fac_usrdata_omschr, 'ONBEKEND') kavel,
x.alg_gebouw_code,
x.aantal,
x.tot_doorlooptijd, -- / x.aantal,
x.tot_verschilnorm_abs, -- / x.aantal,
x.tot_verschilnorm_pct, -- / x.aantal,
DECODE (SIGN (x.tot_verschilnorm_pct / x.aantal), 1, 'NOK', 'OK')
verschil_ok
FROM ( SELECT maand,
alg_gebouw_key,
alg_gebouw_code,
SUM (aantal) aantal,
SUM (tot_doorlooptijd) tot_doorlooptijd,
SUM (tot_verschilnorm_abs) tot_verschilnorm_abs,
SUM (tot_verschilnorm_pct) tot_verschilnorm_pct
FROM t_uwva_v_afh_geb_grp
GROUP BY maand, alg_gebouw_key, alg_gebouw_code) x
LEFT JOIN
(SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr
FROM alg_v_aanwezigonrgoedkenmerk ok,
fac_v_aanwezigusrdata ud
WHERE ok.alg_kenmerk_key = 1420 -- Kavel (G-kenmerk!)
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key) k
ON x.alg_gebouw_key = k.alg_onrgoed_key;
CREATE OR REPLACE VIEW uwva_v_rap_afh_geb_grp
(
fclt_f_maand,
fclt_f_kavel,
fclt_f_gebouw,
fclt_f_soortmelding,
fclt_f_behandelgroep,
aantal,
tot_doorlooptijd,
tot_verschilnorm_abs,
tot_verschilnorm_pct,
fclt_x_verschil_ok
)
AS
SELECT x.maand,
COALESCE (k.fac_usrdata_omschr, 'ONBEKEND') kavel,
x.alg_gebouw_code,
x.ins_srtdiscipline_omschrijving,
x.mld_behandelgroep_naam,
x.aantal,
x.tot_doorlooptijd, -- / x.aantal,
x.tot_verschilnorm_abs, -- / x.aantal,
x.tot_verschilnorm_pct, -- / x.aantal,
DECODE (SIGN (x.tot_verschilnorm_pct / x.aantal), 1, 'NOK', 'OK')
verschil_ok
FROM t_uwva_v_afh_geb_grp x
LEFT JOIN
(SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr
FROM alg_v_aanwezigonrgoedkenmerk ok,
fac_v_aanwezigusrdata ud
WHERE ok.alg_kenmerk_key = 1420 -- Kavel (G-kenmerk!)
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key) k
ON x.alg_gebouw_key = k.alg_onrgoed_key;
-- UWVA#33269
-- Bron-view 'uwva_v_st_kl_geb' loopt via tabelizer tbv. performance!
-- td.ins_discipline_key IN
-- (47, -- S-Beveiligingsinstallaties
-- 342, -- S-Beveiliging toegang
-- 33, -- S-Catering/VERVALLEN!
-- 315, -- S-Klimaatinstallaties
-- 36, -- S-Schoonmaak
-- 64, -- K-Beveiliging
-- 340, -- K-Beveiliging toegang
-- 74, -- K-Beveiligingsinstallaties
-- 131, -- K-Catering
-- 330, -- K-Klimaatinstallaties
-- 63) -- K-Schoonmaak
CREATE OR REPLACE VIEW uwva_v_st_kl_geb
(
maand,
kavel,
gebouw,
kl_overall,
st_beveiliging,
--st_catering,
st_klimaat,
st_schoonmaak,
kl_beveiliging,
kl_catering,
kl_klimaat,
kl_schoonmaak
)
AS
SELECT x.maand,
k.fac_usrdata_omschr,
x.alg_gebouw_code,
x.kl_overall,
x.st_beveiliging,
x.st_klimaat,
x.st_schoonmaak,
x.kl_beveiliging,
x.kl_catering,
x.kl_klimaat,
x.kl_schoonmaak
FROM ( SELECT TO_CHAR (x.mldafm, 'yyyy-mm') maand,
x.alg_gebouw_key,
x.alg_gebouw_code,
SUM (kl_overall) kl_overall,
SUM (st_beveiliging) st_beveiliging,
SUM (st_klimaat) st_klimaat,
SUM (st_schoonmaak) st_schoonmaak,
SUM (kl_beveiliging) kl_beveiliging,
SUM (kl_catering) kl_catering,
SUM (kl_klimaat) kl_klimaat,
SUM (kl_schoonmaak) kl_schoonmaak
FROM (SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
1 kl_overall,
0 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
ins_tab_discipline td,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key =
td.ins_discipline_key
AND td.ins_srtdiscipline_key IN (3) -- K
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
1 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key IN (47, 342) -- S-Beveiligingsinstallaties/Beveiliging toegang
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
--UNION ALL
--SELECT t.fac_tracking_datum mldafm, g.alg_gebouw_key, g.alg_gebouw_code,
-- 0 kl_overall,
-- 0 st_beveiliging, 1 st_catering, 0 st_klimaat, 0 st_schoonmaak,
-- 0 kl_beveiliging, 0 kl_catering, 0 kl_klimaat, 0 kl_schoonmaak
-- FROM fac_tracking t, mld_melding m, mld_stdmelding sm, alg_v_allonroerendgoed aog, alg_gebouw g
-- WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
-- AND t.fac_tracking_datum BETWEEN TRUNC (ADD_MONTHS (SYSDATE, -12), 'mm') AND TRUNC (SYSDATE, 'mm')
-- AND t.fac_tracking_refkey = m.mld_melding_key
-- AND m.mld_stdmelding_key = sm.mld_stdmelding_key
-- AND sm.mld_ins_discipline_key = 33 -- S-Catering
-- AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys
-- AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
1 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 315 -- S-Klimaatinstallaties
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
0 st_klimaat,
1 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 36 -- S-Schoonmaak
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
1 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key IN (64, 340, 74) -- K-Beveiliging/Beveiliging toegang/Beveiligingsinstallaties
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
1 kl_catering,
0 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 131 -- K-Catering
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
1 kl_klimaat,
0 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 330 -- K-Klimaatinstallaties
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)
UNION ALL
SELECT t.fac_tracking_datum mldafm,
g.alg_gebouw_key,
g.alg_gebouw_code,
0 kl_overall,
0 st_beveiliging,
0 st_klimaat,
0 st_schoonmaak,
0 kl_beveiliging,
0 kl_catering,
0 kl_klimaat,
1 kl_schoonmaak
FROM fac_tracking t,
mld_melding m,
mld_stdmelding sm,
alg_v_allonroerendgoed aog,
alg_gebouw g
WHERE t.fac_srtnotificatie_key = 18 -- MLDAFM/alleen?
AND t.fac_tracking_datum BETWEEN TRUNC (
ADD_MONTHS (
SYSDATE,
-12),
'mm')
AND TRUNC (
SYSDATE,
'mm')
AND t.fac_tracking_refkey = m.mld_melding_key
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = 63 -- K-Schoonmaak
AND m.mld_alg_onroerendgoed_keys =
aog.alg_onroerendgoed_keys
AND aog.alg_gebouw_key = g.alg_gebouw_key(+)) x
GROUP BY TO_CHAR (x.mldafm, 'yyyy-mm'),
x.alg_gebouw_key,
x.alg_gebouw_code) x
LEFT JOIN
(SELECT ok.alg_onrgoed_key, ud.fac_usrdata_omschr
FROM alg_v_aanwezigonrgoedkenmerk ok,
fac_v_aanwezigusrdata ud
WHERE ok.alg_kenmerk_key = 1420 -- Kavel
AND fac.safe_to_number (ok.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key) k
ON x.alg_gebouw_key = k.alg_onrgoed_key;
CREATE OR REPLACE VIEW uwva_v_rap_kl_geb
(
fclt_f_maand,
fclt_f_kavel,
fclt_f_gebouw,
aantal
)
AS
SELECT x.maand,
x.kavel,
x.gebouw,
x.kl_overall
FROM t_uwva_v_st_kl_geb x;
CREATE OR REPLACE VIEW uwva_v_rap_st_kl_geb
(
fclt_f_maand,
fclt_f_kavel,
fclt_f_gebouw,
st_beveiliging,
st_klimaat,
st_schoonmaak,
kl_beveiliging,
kl_catering,
kl_klimaat,
kl_schoonmaak
)
AS
SELECT x.maand,
x.kavel,
x.gebouw,
x.st_beveiliging,
x.st_klimaat,
x.st_schoonmaak,
x.kl_beveiliging,
x.kl_catering,
x.kl_klimaat,
x.kl_schoonmaak
FROM t_uwva_v_st_kl_geb x;
-- UWVA#33705 rap tbv bijlage inspectiekenmerken
CREATE OR REPLACE VIEW uwva_v_rap_inspect_file
(
fclt_f_object,
fclt_f_controle,
controle_datum,
fclt_f_locatie,
fclt_f_gebouw,
kenmerksoort_key,
kenmerksoort,
kenmerk_key,
fclt_f_verplicht,
controle_key,
fclt_f_bijlagen,
aantal_bijlagen
)
AS
SELECT d.ins_deel_omschrijving Object,
c.ins_srtcontrole_omschrijving Controle,
ins_deelsrtcontrole_datum Controle_datum,
l.alg_locatie_omschrijving locatie,
aog.alg_gebouw_naam gebouw,
t.ins_srtkenmerk_key Kenmerksoort_key,
t.ins_srtkenmerk_omschrijving Kenmerksoort,
k.ins_kenmerk_key Kenmkerk_key,
DECODE (k.ins_kenmerk_verplicht, 1, 'Ja', 'Nee') Verplicht,
dsc.ins_deelsrtcontrole_key controle_key,
'Nee' Bijlagen,
0 Aantal_bijlagen
FROM ins_srtkenmerk t,
ins_kenmerk k,
ins_srtcontrole c,
ins_deelsrtcontrole dsc,
ins_deel d,
alg_v_allonrgoed_gegevens aog,
alg_locatie l
WHERE k.ins_srtkenmerk_key = t.ins_srtkenmerk_key
AND k.ins_kenmerk_verwijder IS NULL
AND t.ins_srtkenmerk_verwijder IS NULL
AND k.ins_kenmerk_niveau = 'C'
AND k.ins_srtinstallatie_key = c.ins_srtcontrole_key
AND (t.ins_srtkenmerk_kenmerktype = 'M'
OR t.ins_srtkenmerk_kenmerktype = 'F')
AND dsc.ins_srtcontrole_key = c.ins_srtcontrole_key
AND d.ins_deel_key = dsc.ins_deel_key
AND d.ins_deel_verwijder IS NULL
AND ins_alg_ruimte_type = 'R'
AND aog.alg_ruimte_key = d.ins_alg_ruimte_key
AND l.alg_locatie_key = aog.alg_locatie_key
AND dsc.ins_deelsrtcontrole_key NOT IN
(SELECT ins_deelsrtcontrole_key
FROM ins_deelsrtcontrole dsc, uwva_flexfiles uf
WHERE uf.object_key = dsc.ins_deelsrtcontrole_key)
UNION ALL
SELECT d.ins_deel_omschrijving,
c.ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum,
l.alg_locatie_omschrijving,
aog.alg_gebouw_naam,
t.ins_srtkenmerk_key,
t.ins_srtkenmerk_omschrijving,
k.ins_kenmerk_key,
DECODE (k.ins_kenmerk_verplicht, 1, 'Ja', 'Nee'),
dsc.ins_deelsrtcontrole_key,
'Ja',
COUNT (UF.FILE_NAME)
FROM ins_srtkenmerk t,
ins_kenmerk k,
ins_srtcontrole c,
ins_deelsrtcontrole dsc,
ins_deel d,
uwva_flexfiles uf,
alg_v_allonrgoed_gegevens aog,
alg_locatie l
WHERE k.ins_srtkenmerk_key = t.ins_srtkenmerk_key
AND k.ins_kenmerk_verwijder IS NULL
AND t.ins_srtkenmerk_verwijder IS NULL
AND k.ins_kenmerk_niveau = 'C'
AND k.ins_srtinstallatie_key = c.ins_srtcontrole_key
AND (t.ins_srtkenmerk_kenmerktype = 'M'
OR t.ins_srtkenmerk_kenmerktype = 'F')
AND dsc.ins_srtcontrole_key = c.ins_srtcontrole_key
AND d.ins_deel_key = dsc.ins_deel_key
AND d.ins_deel_verwijder IS NULL
AND uf.object_key = dsc.ins_deelsrtcontrole_key
AND ins_alg_ruimte_type = 'R'
AND aog.alg_ruimte_key = d.ins_alg_ruimte_key
AND l.alg_locatie_key = aog.alg_locatie_key
GROUP BY dsc.ins_deelsrtcontrole_key,
d.ins_deel_omschrijving,
c.ins_srtcontrole_omschrijving,
ins_deelsrtcontrole_datum,
aog.alg_gebouw_naam,
l.alg_locatie_omschrijving,
t.ins_srtkenmerk_key,
t.ins_srtkenmerk_omschrijving,
k.ins_kenmerk_key,
k.ins_kenmerk_verplicht;
-- UWVA#35516 rapport met inzicht vastgepinde tabs per gebruiker
CREATE OR REPLACE VIEW uwva_v_rap_menutab
(
perslid_key,
naam,
login,
last_login,
url,
zoeken,
module
)
AS
SELECT prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_oslogin,
prs_perslid_login,
url,
CASE
WHEN LOWER (url) LIKE '%search%'
OR LOWER (url) LIKE '%phonebook%'
OR LOWER (url) LIKE '%overview%'
OR LOWER (url) LIKE '%fe_menu%'
THEN
'Ja'
ELSE
'Nee'
END
AS zoeken,
CASE
WHEN LOWER (url) LIKE '%/help%' THEN 'Help'
WHEN LOWER (url) LIKE '%/mld_%' THEN 'Meldingen'
WHEN LOWER (url) LIKE '%/bes_%' THEN 'Bestellingen'
WHEN LOWER (url) LIKE '%/res_%' THEN 'Reserveringen'
WHEN LOWER (url) LIKE '%deel%' THEN 'Objecten'
WHEN LOWER (url) LIKE '%/ins_%' THEN 'Objecten'
WHEN LOWER (url) LIKE '%phone%' THEN 'Telefoonboek'
WHEN LOWER (url) LIKE '%/prs_%' THEN 'Organisatiebeheer'
WHEN LOWER (url) LIKE '%/bez_%' THEN 'Bezoekers'
WHEN LOWER (url) LIKE '%/alg_%' THEN 'Ruimtebeheer'
WHEN LOWER (url) LIKE '%/cnt_%' THEN 'Contracten'
WHEN LOWER (url) LIKE '%portal%' THEN 'Portaal'
WHEN LOWER (url) LIKE '%cad%' THEN 'Graphics'
WHEN LOWER (url) LIKE '%/kpn_%' THEN 'Kostenplaatsen'
WHEN LOWER (url) LIKE '%fac_user%.asp%' THEN 'Gebruiker info'
WHEN LOWER (url) LIKE '%prodsearch%' THEN 'Zoek&Bestel'
WHEN LOWER (url) LIKE '%fac_usrrap%' THEN 'Rapporten'
WHEN LOWER (url) LIKE '%report%' THEN 'Rapporten'
WHEN LOWER (url) LIKE '%/fin_%' THEN 'Facturen'
WHEN LOWER (url) LIKE '%/sle_%' THEN 'Sleutels'
WHEN LOWER (url) LIKE '%fiat%' THEN 'Fiatteren'
ELSE 'Overig'
END
AS module
FROM (SELECT prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_oslogin,
prs_perslid_login,
REPLACE (
REPLACE (REPLACE (optie, '"autoopen":[', ''),
'{"u":"',
''),
'"',
'')
url
FROM ( SELECT DISTINCT
p.prs_perslid_key,
prs_perslid_naam_full,
prs_perslid_oslogin,
prs_perslid_login,
TRIM (REGEXP_SUBSTR (p.prs_perslid_options,
'[^,]+',
1,
levels.COLUMN_VALUE))
AS optie
FROM prs_perslid p,
prs_v_perslid_fullnames pf,
TABLE(CAST (
MULTISET( SELECT LEVEL
FROM DUAL
CONNECT BY LEVEL <=
LENGTH(REGEXP_REPLACE (
p.prs_perslid_options,
'[^,]+'))
+ 1) AS SYS.odcinumberlist)) levels
WHERE prs_perslid_options LIKE '%{"u"%'
AND p.prs_perslid_key = pf.prs_perslid_key
ORDER BY prs_perslid_key)
WHERE optie LIKE '%{"u"%')
WHERE url NOT LIKE '%welcome%';
--- UWVA#36478 controlerapport met leasecontracten en gebruikersovereenkomsten waar geen auto aangekoppeld is
CREATE OR REPLACE VIEW UWVA_V_RAP_GOVK_LEASE
(
CONTRACTNUMMER,
INGANGSDATUM,
EINDDATUM,
CONTRACT_OMSCHR
)
AS
SELECT c.cnt_contract_nummer_intern,
cnt_contract_looptijd_van,
cnt_contract_looptijd_tot,
c.cnt_contract_omschrijving
FROM cnt_contract c
WHERE C.INS_DISCIPLINE_KEY IN (426, 425) --- gebruikersovereenkomst en leasecontract
AND C.CNT_CONTRACT_VERWIJDER IS NULL
AND c.cnt_contract_key NOT IN
(SELECT o.cnt_contract_key
FROM CNT_CONTRACT_OBJECT o
WHERE O.CNT_INS_SRTDEEL_KEY = 258658);
-- UWVA#36044 Overzicht om FIP voor leasecontracten mee te genereren
CREATE OR REPLACE VIEW UWVA_V_RAP_FIP_LEASE_CONTRACT
(
CONTRACTNR,
EXTERNNR,
CONTRACTSOORT,
BESCHRIJVING,
MANTELNR,
OMSCHRIJVING,
VERSIE,
DIENST,
EIGENAAR_AFD,
EIGENAAR_LOGIN,
BEHEERDER_LOGIN,
OPMERKING,
INGANGSDATUM,
RAPPELDATUM,
OPZEGDATUM,
EINDDATUM,
BEDRIJFNAAM,
CONTACTNAAM,
KOSTENPLAATSCODE,
CONTRACTBEDRAG,
TERMIJNBEDRAG,
UURTARIEF,
KORTING,
LOCATIEGEBOUW,
VERLENGEN,
SOORT_AUTO,
AANTAL_KM_JAAR,
KM_TOTAAL,
KM_MAXIMAAL,
LOOPTIJD_MAXIMAAL,
BRANDSTOFKOSTEN,
LEASETARIEF,
KENMERK8,
KENMERK9,
KENMERK10,
KENMERK11,
KENMERK12,
KENMERK13,
KENMERK14,
KENMERK15,
KENMERK16,
KENMERK17,
KENMERK18,
KENMERK19,
KENMERK20,
KENMERK21,
KENMERK22,
KENMERK23,
KENMERK24,
KENMERK25
)
AS
SELECT DISTINCT
c.cnt_contract_nummer_intern contractnr,
c.cnt_contract_nummer externnr,
d.ins_discipline_omschrijving contractsoort,
c.cnt_contract_omschrijving beschrijving,
'' mantelnr,
'' omschrijving,
c.cnt_contract_versie versie,
'' dienst,
a.prs_afdeling_upper eigenaar_afd,
'' eigenaar_login,
p.prs_perslid_oslogin beheerder_login,
c.cnt_contract_opmerking opmerking,
TO_CHAR (c.cnt_contract_looptijd_van, 'dd-mm-yyyy') ingangsdatum,
TO_CHAR (
ADD_MONTHS (c.cnt_contract_looptijd_tot,
- (rt.cnt_termijn_aantal)),
'dd-mm-yyyy')
rappeldatum,
TO_CHAR (
ADD_MONTHS (c.cnt_contract_looptijd_tot,
- (ot.cnt_termijn_aantal)),
'dd-mm-yyyy')
opzegdatum,
TO_CHAR (c.cnt_contract_looptijd_tot, 'dd-mm-yyyy') einddatum,
b.prs_bedrijf_naam bedrijfnaam,
'' contactnaam,
k.prs_kostenplaats_upper kostenplaatscode,
c.cnt_contract_kosten contractbedrag,
c.cnt_contract_termijnkosten termijnbedrag,
c.cnt_contract_uurloon uurtarief,
c.cnt_contract_korting korting,
'' locatiegebouw,
c.cnt_contract_verlenging verlengen,
soort_auto.fac_usrdata_code soort_auto,
aantal_km_jr.cnt_kenmerkcontract_waarde aantalkmperjaar,
km_tot.cnt_kenmerkcontract_waarde kmtotaal,
km_max.cnt_kenmerkcontract_waarde kmmaximaal,
looptijd_max.cnt_kenmerkcontract_waarde looptijdmaximaal,
brandstofkst.cnt_kenmerkcontract_waarde brandstofkosten,
lease_tar.cnt_kenmerkcontract_waarde leasetarief,
'' kenmerk8,
'' kenmerk9,
'' kenmerk10,
'' kenmerk11,
'' kenmerk12,
'' kenmerk13,
'' kenmerk14,
'' kenmerk15,
'' kenmerk16,
'' kenmerk17,
'' kenmerk18,
'' kenmerk19,
'' kenmerk20,
'' kenmerk21,
'' kenmerk22,
'' kenmerk23,
'' kenmerk24,
'' kenmerk25
FROM cnt_contract c,
ins_tab_discipline d,
prs_afdeling a,
prs_perslid p,
prs_bedrijf b,
prs_kostenplaats k,
(SELECT kc.*, kw.*
FROM cnt_kenmerkcontract kc, fac_usrdata kw
WHERE kc.cnt_kenmerk_key = 1053 -- kenmerk_key 1053 = Soort auto
AND kc.cnt_kenmerkcontract_waarde = kw.fac_usrdata_key)
soort_auto,
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1041) aantal_km_jr, -- kenmerk_key 1041 = Aantal km per jaar
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1042) brandstofkst, -- kenmerk_key 1042 = Brandstofkosten
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1043) datum_uit, -- kenmerk_key 1043 = Datum uit
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1045) km_max, -- kenmerk_key 1045 = Km maximaal
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1046) km_tot, -- kenmerk_key 1046 = Km totaal
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1048) lease_tar, -- kenmerk_key 1048 = Leasetarief
(SELECT kc.*
FROM cnt_kenmerkcontract kc
WHERE kc.cnt_kenmerk_key = 1049) looptijd_max, -- kenmerk_key 1049 = Looptijd maximaal
cnt_termijn rt,
cnt_termijn ot
WHERE c.ins_discipline_key = d.ins_discipline_key
AND c.ins_discipline_key = 425 -- 425 = lease contract
AND c.prs_afdeling_key_eig = a.prs_afdeling_key
AND c.prs_perslid_key_beh = p.prs_perslid_key
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
AND c.prs_kostenplaats_key = k.prs_kostenplaats_key
AND c.cnt_contract_key = soort_auto.cnt_contract_key(+)
AND c.cnt_contract_key = aantal_km_jr.cnt_contract_key(+)
AND c.cnt_contract_key = datum_uit.cnt_contract_key(+)
AND c.cnt_contract_key = km_tot.cnt_contract_key(+)
AND c.cnt_contract_key = km_max.cnt_contract_key(+)
AND c.cnt_contract_key = looptijd_max.cnt_contract_key(+)
AND c.cnt_contract_key = brandstofkst.cnt_contract_key(+)
AND c.cnt_contract_key = lease_tar.cnt_contract_key(+)
AND ot.cnt_termijn_key = c.cnt_contract_opzegtermijn
AND rt.cnt_termijn_key = c.cnt_contract_rappeltermijn
AND C.CNT_CONTRACT_VERWIJDER IS NULL
AND TRUNC (C.CNT_CONTRACT_LOOPTIJD_TOT) >= TRUNC (SYSDATE)
AND C.CNT_CONTRACT_STATUS = 0;
CREATE OR REPLACE VIEW UWVA_V_ORG_STRUCTUUR
(
DIVISIE,
DIVISIE_OMSCH,
DIVISIE_KP,
AFD_NIV2,
AFD_NIV2_OMSCH,
AFD_NIV2_KP,
AFD_NIV3,
AFD_NIV3_OMSCH,
AFD_NIV3_KP,
AFD_NIV4,
AFD_NIV4_OMSCH,
AFD_NIV4_KP,
AFD_NIV5,
AFD_NIV5_OMSCH,
AFD_NIV5_KP
)
AS
SELECT divisie.prs_afdeling_naam divisie,
divisie.prs_afdeling_omschrijving divisie_omsch,
divisie.prs_kostenplaats_nr kp_divisie,
afd_niv2.prs_afdeling_naam afd_niv2,
afd_niv2.prs_afdeling_omschrijving omsch_afd_niv2,
afd_niv2.prs_kostenplaats_nr kp_afd_niv2,
afd_niv3.prs_afdeling_naam afd_niv3,
afd_niv3.prs_afdeling_omschrijving omsch_afd_niv3,
afd_niv3.prs_kostenplaats_nr kp_afd_niv3,
afd_niv4.prs_afdeling_naam afd_niv4,
afd_niv4.prs_afdeling_omschrijving omsch_afd_niv4,
afd_niv4.prs_kostenplaats_nr kp_afd_niv4,
afd_niv5.prs_afdeling_naam afd_niv5,
afd_niv5.prs_afdeling_omschrijving omsch_afd_niv5,
afd_niv5.prs_kostenplaats_nr kp_afd_niv5
FROM (SELECT prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving
FROM prs_afdeling a, prs_kostenplaats k
WHERE prs_bedrijf_key = 1
AND prs_afdeling_verwijder IS NULL
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key)
divisie,
(SELECT prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_parentkey,
prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving
FROM prs_afdeling a, prs_kostenplaats k
WHERE prs_afdeling_verwijder IS NULL
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_bedrijf_key = 1
AND prs_afdeling_verwijder IS NULL))
afd_niv2,
(SELECT prs_afdeling_key,
prs_afdeling_naam,
prs_afdeling_parentkey,
prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving
FROM prs_afdeling a, prs_kostenplaats k
WHERE prs_afdeling_verwijder IS NULL
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_bedrijf_key = 1
AND prs_afdeling_verwijder IS NULL)))
afd_niv3,
(SELECT prs_afdeling_key,
prs_afdeling_parentkey,
prs_afdeling_naam,
prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving
FROM prs_afdeling a, prs_kostenplaats k
WHERE prs_afdeling_verwijder IS NULL
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_bedrijf_key =
1
AND prs_afdeling_verwijder IS NULL))))
afd_niv4,
(SELECT prs_afdeling_key,
prs_afdeling_parentkey,
prs_afdeling_naam,
prs_afdeling_omschrijving,
k.prs_kostenplaats_nr,
k.prs_kostenplaats_omschrijving
FROM prs_afdeling a, prs_kostenplaats k
WHERE prs_afdeling_verwijder IS NULL
AND a.prs_kostenplaats_key = k.prs_kostenplaats_key
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_afdeling_verwijder IS NULL
AND prs_afdeling_parentkey IN
(SELECT prs_afdeling_key
FROM prs_afdeling
WHERE prs_bedrijf_key =
1
AND prs_afdeling_verwijder IS NULL)))))
afd_niv5
WHERE afd_niv2.prs_afdeling_parentkey(+) = divisie.prs_afdeling_key
AND afd_niv3.prs_afdeling_parentkey(+) = afd_niv2.prs_afdeling_key
AND afd_niv4.prs_afdeling_parentkey(+) = afd_niv3.prs_afdeling_key
AND afd_niv5.prs_afdeling_parentkey(+) = afd_niv4.prs_afdeling_key;
CREATE OR REPLACE VIEW UWVA_V_RAP_FACTUUR_WAGENP
(
NR,
FACTUURDATUM,
UITVOERENDE,
FACTUURNR,
CONTRACTTYPE,
KOSTENSOORT,
OPDRACHTNR,
BERIJDER,
STATUS,
BUDGETHOUDER,
DIVISIE,
KOSTENPLAATS,
OMSCHRIJVING,
SRT_FACTUURREGEL,
REGELNR,
EXCL_BTW,
BTW,
INCL_BTW
)
AS
SELECT DISTINCT
f.fin_factuur_key nr,
TRUNC (fin_factuur_datum) factuurdatum,
b.prs_bedrijf_naam uitvoerende,
f.fin_factuur_nr factuurnummer,
d.ins_discipline_omschrijving TYPE,
ks.prs_kostensoort_oms kostensoort,
'C' || leasecontracten.cnt_contract_nummer_intern opdrachtnummer,
gebruikersovk.berijder berijder,
CASE f.fin_factuur_statuses_key
WHEN 1 THEN 'Afgewezen'
WHEN 2 THEN 'In behandeling'
WHEN 3 THEN 'Onbekend'
WHEN 4 THEN 'Onbekend'
WHEN 5 THEN 'Onbekend'
WHEN 6 THEN 'Akkoord'
WHEN 7 THEN 'Verwerkt'
END
status,
budgethouder.prs_perslid_naam_full budgethouder,
divisie.divisie || ' ' || divisie.divisie_omsch divisie,
kp.prs_kostenplaats_nr || ' ' || kp.prs_kostenplaats_omschrijving
kostenplaats,
fr.fin_factuurregel_omschrijving omschrijving,
srt_fr.fac_usrdata_code || ' ' || srt_fr.fac_usrdata_omschr
srt_factuurregel,
regel.fin_kenmerkfactregel_waarde regelnummer,
fr.fin_factuurregel_totaal excl_btw,
btw.fin_btwtabelwaarde_perc btw_tarief,
fr.fin_factuurregel_totaal + fin_factuurregel_btw
FROM fin_factuur f,
(SELECT *
FROM cnt_contract
WHERE ins_discipline_key = 425) leasecontracten,
prs_bedrijf b,
ins_tab_discipline d,
prs_kostensoort ks,
cnt_contract_object co,
ins_deel auto,
(SELECT x.*,
DECODE (y.aantal,
NULL, NULL,
1, y.prs_perslid_naam_full,
'Meerdere berijders')
berijder
FROM (SELECT f.fin_factuur_key,
TRUNC (fin_factuur_datum) factuurdatum,
f.fin_factuur_nr factuurnummer,
'C' || leasecontracten.cnt_contract_nummer_intern
opdrachtnummer,
auto.ins_deel_key
FROM fin_factuur f,
(SELECT *
FROM cnt_contract
WHERE ins_discipline_key = 425) leasecontracten,
cnt_contract_object co,
ins_deel auto
WHERE f.cnt_contract_key =
leasecontracten.cnt_contract_key
AND leasecontracten.cnt_contract_key =
co.cnt_contract_key
AND co.cnt_ins_deel_key = auto.ins_deel_key) x
LEFT JOIN
( SELECT f.fin_factuur_key,
auto.ins_deel_key,
COUNT ( * ) aantal,
MAX (P.PRS_PERSLID_NAAM_FULL) PRS_PERSLID_NAAM_FULL
FROM fin_factuur f,
(SELECT *
FROM cnt_contract
WHERE ins_discipline_key = 425) leasecontracten,
cnt_contract_object co,
ins_deel auto,
(SELECT c.cnt_contract_key,
o.cnt_ins_deel_key,
C.CNT_PRS_PERSLID_KEY,
cnt_contract_looptijd_van,
cnt_contract_looptijd_tot
FROM cnt_contract c, cnt_contract_object o
WHERE ins_discipline_key = 426
AND o.cnt_contract_key = c.cnt_contract_key)
gebruikersovk,
prs_v_perslid_fullnames_all p
WHERE f.cnt_contract_key =
leasecontracten.cnt_contract_key
AND leasecontracten.cnt_contract_key =
co.cnt_contract_key
AND gebruikersovk.cnt_prs_perslid_key =
p.prs_perslid_key
AND co.cnt_ins_deel_key = auto.ins_deel_key
AND auto.ins_deel_key =
gebruikersovk.cnt_ins_deel_key(+)
AND (TRUNC (
gebruikersovk.cnt_contract_looptijd_van) <=
TRUNC (fin_factuur_datum)
AND TRUNC (
gebruikersovk.cnt_contract_looptijd_tot) >=
TRUNC (fin_factuur_datum))
GROUP BY f.fin_factuur_key, auto.ins_deel_key) y
ON x.ins_deel_key = y.ins_deel_key
AND x.fin_factuur_key = y.fin_factuur_key
WHERE y.aantal IS NOT NULL) gebruikersovk,
prs_kostenplaats kp,
prs_v_perslid_fullnames_all budgethouder,
fin_factuurregel fr,
(SELECT km.*, fac_usrdata_omschr, fac_usrdata_code
FROM fin_kenmerkfactregel km, fac_usrdata kw
WHERE km.fin_kenmerk_key = 1
AND km.fin_kenmerkfactregel_waarde = kw.fac_usrdata_key)
srt_fr,
(SELECT km.*
FROM fin_kenmerkfactregel km
WHERE km.fin_kenmerk_key = 2) regel,
fin_btwtabelwaarde btw,
(SELECT DISTINCT divisie, divisie_omsch, divisie_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv2_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv3_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv4_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv5_kp kpl
FROM uwva_v_org_structuur org) divisie
WHERE f.cnt_contract_key = leasecontracten.cnt_contract_key
AND leasecontracten.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
AND leasecontracten.ins_discipline_key = d.ins_discipline_key
AND d.prs_kostensoort_key = ks.prs_kostensoort_key
AND leasecontracten.cnt_contract_key = co.cnt_contract_key
AND co.cnt_ins_deel_key = auto.ins_deel_key
-- AND auto.ins_deel_key = gebruikersovk.cnt_ins_deel_key(+)
AND f.fin_factuur_key = gebruikersovk.fin_factuur_key(+)
AND leasecontracten.prs_kostenplaats_key = kp.prs_kostenplaats_key
AND kp.prs_perslid_key = budgethouder.prs_perslid_key(+)
AND fr.fin_factuur_key = f.fin_factuur_key
AND srt_fr.fin_factuurregel_key(+) = fr.fin_factuurregel_key
AND regel.fin_factuurregel_key(+) = fr.fin_factuurregel_key
AND fr.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key
AND kp.prs_kostenplaats_nr = divisie.kpl(+)
AND f.fin_factuur_verwijder IS NULL
UNION ALL
SELECT DISTINCT
f.fin_factuur_key nr,
TRUNC (fin_factuur_datum) factuurdatum,
'' uitvoerende,
f.fin_factuur_nr factuurnummer,
d.ins_discipline_omschrijving TYPE,
ks.prs_kostensoort_oms kostensoort,
'C' || gebruikersovereenkomst.cnt_contract_nummer_intern
opdrachtnummer,
p.prs_perslid_naam_full berijder,
CASE f.fin_factuur_statuses_key
WHEN 1 THEN 'Afgewezen'
WHEN 2 THEN 'In behandeling'
WHEN 3 THEN 'Onbekend'
WHEN 4 THEN 'Onbekend'
WHEN 5 THEN 'Onbekend'
WHEN 6 THEN 'Akkoord'
WHEN 7 THEN 'Verwerkt'
END
status,
budgethouder.prs_perslid_naam_full budgethouder,
divisie.divisie || ' ' || divisie.divisie_omsch divisie,
kp.prs_kostenplaats_nr || ' ' || kp.prs_kostenplaats_omschrijving
kostenplaats,
fr.fin_factuurregel_omschrijving omschrijving,
srt_fr.fac_usrdata_code || ' ' || srt_fr.fac_usrdata_omschr
srt_factuurregel,
regel.fin_kenmerkfactregel_waarde regelnummer,
fr.fin_factuurregel_totaal excl_btw,
btw.fin_btwtabelwaarde_perc btw_tarief,
fr.fin_factuurregel_totaal + fin_factuurregel_btw
FROM fin_factuur f,
(SELECT *
FROM cnt_contract
WHERE ins_discipline_key = 426) gebruikersovereenkomst,
ins_tab_discipline d,
prs_kostensoort ks,
prs_v_perslid_fullnames_all p,
cnt_contract_object co,
ins_deel auto,
prs_kostenplaats kp,
prs_v_perslid_fullnames_all budgethouder,
fin_factuurregel fr,
(SELECT km.*, fac_usrdata_omschr, fac_usrdata_code
FROM fin_kenmerkfactregel km, fac_usrdata kw
WHERE km.fin_kenmerk_key = 1
AND km.fin_kenmerkfactregel_waarde = kw.fac_usrdata_key)
srt_fr,
(SELECT km.*
FROM fin_kenmerkfactregel km
WHERE km.fin_kenmerk_key = 2) regel,
fin_btwtabelwaarde btw,
(SELECT DISTINCT divisie, divisie_omsch, divisie_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv2_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv3_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv4_kp kpl
FROM uwva_v_org_structuur org
UNION ALL
SELECT DISTINCT divisie, divisie_omsch, afd_niv5_kp kpl
FROM uwva_v_org_structuur org) divisie
WHERE f.cnt_contract_key = gebruikersovereenkomst.cnt_contract_key
AND gebruikersovereenkomst.cnt_prs_perslid_key = p.prs_perslid_key(+)
AND gebruikersovereenkomst.ins_discipline_key = d.ins_discipline_key
AND d.prs_kostensoort_key = ks.prs_kostensoort_key
AND gebruikersovereenkomst.cnt_contract_key = co.cnt_contract_key
AND co.cnt_ins_deel_key = auto.ins_deel_key
AND gebruikersovereenkomst.prs_kostenplaats_key =
kp.prs_kostenplaats_key
AND kp.prs_perslid_key = budgethouder.prs_perslid_key(+)
AND fr.fin_factuur_key = f.fin_factuur_key
AND regel.fin_factuurregel_key(+) = fr.fin_factuurregel_key
AND srt_fr.fin_factuurregel_key(+) = fr.fin_factuurregel_key
AND fr.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key
AND kp.prs_kostenplaats_nr = divisie.kpl(+)
AND f.fin_factuur_verwijder IS NULL;
-- UWVA#38333 personen op vervallen werkplekken
CREATE OR REPLACE VIEW uwva_v_rap_prs_vervallenwp
(
prs_perslid_key,
volledige_naam,
naam,
voornaam,
login,
email,
werkplek,
locatie_code,
locatie_omschrijving,
gebouw_code,
gebouw_omschrijving,
verdieping_code,
verdieping_omschrijving,
ruimte_nr,
ruimte_omschrijving,
werkplek_volgnr
)
AS
SELECT p.prs_perslid_key,
pf.prs_perslid_naam_full,
prs_perslid_naam,
prs_perslid_voornaam,
prs_perslid_oslogin,
prs_perslid_email,
l.alg_locatie_code || '-' || aog.alg_plaatsaanduiding plaats,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
aog.alg_gebouw_code,
aog.alg_gebouw_naam,
aog.alg_verdieping_code,
alg_verdieping_omschrijving,
alg_ruimte_nr,
alg_ruimte_omschrijving,
prs_perslidwerkplek_volgnr
FROM prs_perslid p,
prs_perslidwerkplek pw,
prs_v_perslid_fullnames_all pf,
prs_werkplek w,
alg_v_allonrgoed_gegevens aog,
alg_gebouw g,
alg_locatie l
WHERE p.prs_perslid_key = pw.prs_perslid_key
AND p.prs_perslid_key = pf.prs_perslid_key
AND pw.prs_werkplek_key = w.prs_werkplek_key
AND w.prs_alg_ruimte_key = aog.alg_ruimte_key
AND aog.alg_locatie_key = l.alg_locatie_key
AND g.alg_gebouw_key = aog.alg_gebouw_key
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_gebouw_vervaldatum < TRUNC (SYSDATE)
AND p.prs_perslid_verwijder IS NULL;
create or replace view uwva_v_rap_werkplek_werkloc
(
naam,
personeelsnummer,
account1,
account2,
type_medewerker,
werklocatie,
toon_in_gids,
werkplek_volgnr,
werkplek,
locatie_werkplek,
gebouw_werkplek,
verdieping_werkplek,
ruimtenr_werkplek,
prs_perslid_key
)
as
select pf.prs_perslid_naam_full naam,
p.prs_perslid_nr,
p.prs_perslid_oslogin,
p.prs_perslid_oslogin2,
(select fac_usrdata_omschr
from prs_kenmerklink, fac_usrdata
where prs_kenmerk_key = 1040
and fac_usrtab_key = 301
and prs_kenmerklink_waarde = to_char (fac_usrdata_key)
and prs_link_key = p.prs_perslid_key)
type,
wloc.werklocatie,
p.prs_perslid_ingids,
pwp.prs_perslidwerkplek_volgnr,
l.alg_locatie_code || '-' || aog.alg_plaatsaanduiding,
l.alg_locatie_code,
aog.alg_gebouw_code,
aog.alg_verdieping_code,
aog.alg_ruimte_nr,
p.prs_perslid_key
from prs_perslid p,
prs_v_perslid_fullnames_all pf,
(select p.prs_perslid_key,
l.alg_locatie_code || '-' || aog.alg_plaatsaanduiding
werklocatie
from prs_perslid p, alg_v_allonrgoed_gegevens aog, alg_locatie l
where aog.alg_onroerendgoed_keys = p.alg_onroerendgoed_keys
and p.prs_perslid_verwijder is null
and p.alg_onroerendgoed_type != 'L'
and l.alg_locatie_key = aog.alg_locatie_key
union
select p.prs_perslid_key, l.alg_locatie_code
from prs_perslid p, alg_locatie l
where p.alg_onroerendgoed_keys = l.alg_locatie_key
and p.prs_perslid_verwijder is null
and p.alg_onroerendgoed_type = 'L') wloc,
alg_v_allonrgoed_gegevens aog,
prs_perslidwerkplek pwp,
prs_werkplek pw,
alg_locatie l
where p.prs_perslid_key = pf.prs_perslid_key
and wloc.prs_perslid_key(+) = p.prs_perslid_key
and p.prs_perslid_key = pwp.prs_perslid_key
and p.prs_perslid_verwijder is null
and l.alg_locatie_key = aog.alg_locatie_key
and pw.prs_werkplek_key = pwp.prs_werkplek_key
and pw.prs_alg_ruimte_key = aog.alg_onroerendgoed_keys
and l.alg_locatie_key = aog.alg_locatie_key;
CREATE OR REPLACE VIEW uwva_v_rap_cntauto_noscope
(
cnt_contract_key,
contractnummer,
contractsoort,
ingangsdatum,
einddatum,
kostenplaats
)
AS
SELECT cnt_contract_key,
COALESCE (cnt_contract_nummer_intern, TO_CHAR (cnt_contract_key))
contractnummer,
cd.ins_discipline_omschrijving contractsoort,
cnt_contract_looptijd_van,
cnt_contract_looptijd_tot,
(SELECT NVL2 (
k.prs_kostenplaats_nr,
prs_kostenplaats_nr || ' '
|| lcl.x ('prs_kostenplaats_omschrijving',
k.prs_kostenplaats_key,
k.prs_kostenplaats_omschrijving),
'')
FROM prs_kostenplaats k
WHERE prs_kostenplaats_key = c.prs_kostenplaats_key)
kostenplaats
FROM cnt_contract c, cnt_discipline cd
WHERE cnt_contract_verwijder IS NULL
AND c.ins_discipline_key IN (425, 426)
AND cd.ins_discipline_key = c.ins_discipline_key
AND c.cnt_contract_key NOT IN
(SELECT cnt_contract_key
FROM cnt_contract_object
WHERE cnt_contract_object_verwijder IS NULL);
-- UWVA#51959: Afhandelen CR-meldingen!
CREATE OR REPLACE PROCEDURE UWVA_processemail (
pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
-- Soortmelding=3581=Call/service verzoek onder Vakgroep=468=Call registratie onder Vakgroeptype=2=Aanvragen met Kenmerk=3181=Bijlage!
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_perslid_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_melding_key NUMBER (10) := NULL;
v_count NUMBER (10) := NULL;
BEGIN
CASE
WHEN UPPER (pto) LIKE 'CALL_REGISTRATIE@%'
THEN
-- Bepaal persoon met loginnaam _HMAIL.
v_errormsg := 'Fout bepalen CR-melder';
SELECT p.prs_perslid_key, a.prs_kostenplaats_key
INTO v_perslid_key, v_kostenplaats_key
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE p.prs_perslid_key = 91592 -- _Service Center
AND p.prs_afdeling_key = a.prs_afdeling_key;
-- Bepaal Soortmelding met afgesproken key=3581 <20>n Kenmerk met afgesproken key=3181.
v_errormsg := 'Fout bepalen CR-soortmelding/kenmerk';
SELECT sm.mld_stdmelding_key
INTO v_stdmelding_key
FROM mld_discipline md, mld_stdmelding sm
WHERE md.ins_discipline_verwijder IS NULL
--AND md.ins_srtdiscipline_key = 2 -- Aanvragen
AND md.ins_discipline_key = sm.mld_ins_discipline_key
AND sm.mld_stdmelding_key = 3581 -- Call/service verzoek
AND EXISTS (SELECT 1
FROM mld_kenmerk
WHERE mld_kenmerk_verwijder IS NULL
AND mld_kenmerk_key = 3181 -- Bijlage
AND mld_kenmerk_niveau = 'D'
AND mld_stdmelding_key = md.ins_discipline_key);
-- Suggested extensions:
-- - Check for MLDUSE-write autorisations
-- - Parse the subject to find the appropriate stdmelding, if uniquely possible
-- - Append (as a note?) to an existing melding if #key is found in the subject
v_errormsg := 'Fout toevoegen CR-melding';
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_alg_locatie_key,
mld_alg_onroerendgoed_keys,
mld_melding_datum,
mld_melding_omschrijving,
mld_stdmelding_key,
mld_melding_t_uitvoertijd,
prs_kostenplaats_key,
prs_perslid_key,
prs_perslid_key_voor,
mld_melding_status,
mld_melding_spoed,
mld_melding_onderwerp)
VALUES ('MLD',
4, -- email
70, -- TODO/AMSG bij gebrek aan iets anders ter bepaling?
NULL,
SYSDATE,
SUBSTR (pbody, 1, 4000),
v_stdmelding_key,
NULL,
v_kostenplaats_key,
v_perslid_key,
v_perslid_key,
NULL,
3, -- prio normaal
SUBSTR (pfrom || ': ' || psubject, 1, 80))
RETURNING mld_melding_key
INTO v_melding_key;
mld.setmeldingstatus (v_melding_key, 2, v_perslid_key);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_melding_key);
-- Bijlagen worden op basis van onderstaande door HMAIL-server geplaatst in de juiste folder!
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'kenmerkpath', 'MLD\M' || TO_CHAR (TRUNC (v_melding_key/1000), 'FM0000') || '___\M' || v_melding_key || '\3181\'); -- ' tbv. opmaak
ELSE
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Ontvanger ongeldig - Neem contact op met uw systeembeheerder ');
END CASE;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('PROCESSEMAIL', 'E', 'UWVA_processemail afgebroken!', '[' || pfrom || '] ' || v_errormsg);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'errormsg', 'Database fout - Neem contact op met uw systeembeheerder ');
COMMIT;
END;
/
CREATE OR REPLACE VIEW uwva_v_rap_mail_error
(
hide_f_offset,
datum,
hint,
error
)
AS
SELECT SYSDATE - imp_log_datum, imp_log_datum, imp_log_hint, imp_log_omschrijving
FROM imp_log
WHERE imp_log_applicatie = 'PROCESSEMAIL' AND imp_log_datum > SYSDATE - 30;
-- UWVA#54031: Overschrijding acceptatietijd
-- UWVA#57192: Inbouwen 3d autorisatie op locatie (en daarmee regio)
CREATE OR REPLACE VIEW uwva_v_rap_overschrijding
(
vakgroeptype,
vakgroep,
soortmelding,
regio,
district,
locatiecode,
behandelaar,
melding_key,
meldingnr,
mldnew_dat,
status,
mldacp_sla,
mldacp_std,
mldacp_dat,
overschrijding_hh,
overschrijding_mm,
fclt_3d_locatie_key
)
AS
SELECT x.ins_srtdiscipline_omschrijving vakgroeptype,
x.ins_discipline_omschrijving vakgroep,
x.mld_stdmelding_omschrijving soortmelding,
x.alg_regio_omschrijving regio,
x.alg_district_omschrijving district,
x.alg_locatie_code locatiecode,
x.prs_perslid_naam_full behandelaar,
x.mld_melding_key melding_key,
x.ins_srtdiscipline_prefix || TO_CHAR (x.mld_melding_key) meldingnr,
x.mld_melding_datum mldnew_dat,
x.mld_statuses_omschrijving status,
TO_CHAR (x.tijdsduur) || x.eenheid mldacp_sla,
x.mld_melding_acceptdatum_std mldacp_std,
mldacp.fac_tracking_datum mldacp_dat,
DECODE (SIGN (mldacp.fac_tracking_datum - x.mld_melding_acceptdatum_std),
-1, TO_NUMBER (NULL),
ROUND (uwva.bepaal_uwv_doorlooptijd (x.mld_melding_acceptdatum_std, mldacp.fac_tracking_datum), 0))
overschrijding_hh,
DECODE (SIGN (mldacp.fac_tracking_datum - x.mld_melding_acceptdatum_std),
-1, TO_NUMBER (NULL),
ROUND (uwva.bepaal_uwv_doorlooptijd (x.mld_melding_acceptdatum_std, mldacp.fac_tracking_datum) * 60, 0))
overschrijding_mm,
x.alg_locatie_key
FROM (SELECT m.mld_melding_key,
m.mld_stdmelding_key,
sd.ins_srtdiscipline_prefix,
sd.ins_srtdiscipline_omschrijving,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
m.mld_melding_datum,
ms.mld_statuses_omschrijving,
r.alg_regio_omschrijving,
d.alg_district_omschrijving,
l.alg_locatie_key,
l.alg_locatie_code,
pf.prs_perslid_naam_full,
m.mld_melding_t_accepttijd.tijdsduur tijdsduur,
m.mld_melding_t_accepttijd.eenheid eenheid,
m.mld_melding_acceptdatum_std
FROM mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
mld_statuses ms,
alg_locatie l,
alg_district d,
alg_regio r,
prs_v_perslid_fullnames pf
WHERE m.mld_melding_datum > TRUNC (ADD_MONTHS (SYSDATE, -24), 'yyyy')
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_melding_status = ms.mld_statuses_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)
AND m.mld_melding_behandelaar_key = pf.prs_perslid_key(+)) x
LEFT JOIN
( SELECT fac_tracking_refkey, MAX (fac_tracking_datum) fac_tracking_datum
FROM fac_tracking
WHERE fac_srtnotificatie_key IN (17, 22) -- MLDACP/MLDREJ
GROUP BY fac_tracking_refkey) mldacp
ON x.mld_melding_key = mldacp.fac_tracking_refkey
WHERE mldacp.fac_tracking_datum > x.mld_melding_acceptdatum_std;
-- UWVA#56770: Nieuw rapport Acceptatie- en doorlooptijden meldingen + bronview
CREATE OR REPLACE VIEW uwva_v_mld_actual_all
(
mld_key,
mld_begindatum,
mld_einddatum,
mld_accpttijd,
mld_afmtijd,
acpt_telaat,
uitv_telaat,
mldacp_date,
mldrej_date,
mldafm_date
)
AS
SELECT meld.mld_key,
meld.begindatum,
meld.einddatum,
TO_CHAR(FLOOR(uwva.bepaal_uwv_doorlooptijd (
meld.begindatum,
mldacp.fac_tracking_datum)))
|| ':'
|| TO_CHAR(MOD (
ROUND (
uwva.bepaal_uwv_doorlooptijd (
meld.begindatum,
mldacp.fac_tracking_datum)
* 60,
0),
60))
accepttijd,
TO_CHAR(FLOOR(uwva.bepaal_uwv_doorlooptijd (
meld.begindatum,
mldafm.fac_tracking_datum)))
|| ':'
|| TO_CHAR(MOD (
ROUND (
uwva.bepaal_uwv_doorlooptijd (
meld.begindatum,
mldafm.fac_tracking_datum)
* 60,
0),
60))
afmeldtijd,
DECODE (SIGN (meld.mld_melding_acceptdatum_std
- COALESCE (mldrej.fac_tracking_datum,
mldacp.fac_tracking_datum,
mldafm.fac_tracking_datum,
SYSDATE)),
-1, 1,
0)
acpt_telaat,
DECODE (
SIGN(meld.mld_melding_einddatum_std
- COALESCE (mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum,
SYSDATE)),
-1,
1,
0)
uitv_telaat,
mldacp.fac_tracking_datum,
mldrej.fac_tracking_datum,
mldafm.fac_tracking_datum
FROM (SELECT m.mld_melding_key mld_key,
m.mld_melding_datum begindatum,
m.mld_melding_einddatum einddatum,
m.mld_melding_acceptdatum_std,
m.mld_melding_einddatum_std
FROM mld_melding m) meld
LEFT JOIN (SELECT t.fac_tracking_refkey,
t.fac_tracking_datum,
t.prs_perslid_key
FROM fac_tracking t
WHERE t.fac_srtnotificatie_key = 17
AND t.fac_tracking_key IN
(SELECT MAX (fac_tracking_key)
FROM fac_tracking
WHERE fac_srtnotificatie_key = 17
AND fac_tracking_refkey =
t.fac_tracking_refkey))
mldacp
ON meld.mld_key = mldacp.fac_tracking_refkey
LEFT JOIN fac_tracking mldrej
ON meld.mld_key = mldrej.fac_tracking_refkey
AND mldrej.fac_srtnotificatie_key = 22
LEFT JOIN fac_tracking mldafm
ON meld.mld_key = mldafm.fac_tracking_refkey
AND mldafm.fac_srtnotificatie_key = 18;
CREATE OR REPLACE VIEW uwva_v_rap_doorloopmld
(
mld_key,
meldingsnummer,
fclt_f_soort_melding,
fclt_f_productgroep,
fclt_f_melding,
fclt_f_regio,
fclt_f_district,
fclt_3d_locatie_key,
locatie,
fclt_f_gebouw,
fclt_f_behandelgroep,
behandelaar,
uitvoerende,
registratiedatum,
registratietijd,
sla_acceptatie,
acceptatiedatum,
acceptatietijd,
werkelijk_accptijd,
binnen_sla_accp,
delta_sla_accp,
sla_uitvoertijd,
afmelddatum,
afmeldtijd,
werkelijk_afmtijd,
binnen_sla_afm,
delta_sla_afm
)
AS
SELECT m.mld_melding_key,
sd.ins_srtdiscipline_prefix || m.mld_melding_key,
sd.ins_srtdiscipline_omschrijving,
md.ins_discipline_omschrijving,
mstd.mld_stdmelding_omschrijving,
ar.alg_regio_omschrijving,
ad.alg_district_omschrijving,
al.alg_locatie_key,
al.alg_locatie_omschrijving,
v.alg_gebouw_naam,
bg.mld_behandelgroep_naam,
pf.prs_perslid_naam_friendly,
COALESCE (b.prs_bedrijf_naam, 'Intern: ' || p.prs_perslid_naam) uitvoerende,
TRUNC (m.mld_melding_datum) registratiedatum,
TO_CHAR (m.mld_melding_datum, 'HH24:MI') registratietijd,
CASE
WHEN MSTD.MLD_STDMELDING_T_ACCEPTTIJD.eenheid = 'D'
THEN
MSTD.MLD_STDMELDING_T_ACCEPTTIJD.tijdsduur * 10.5 -- aantal dagen X 10,5 uur (werkdag)
ELSE
mstd.mld_stdmelding_t_accepttijd.tijdsduur
END
accepttijd,
TRUNC (ua.mldacp_date) accptdatum,
TO_CHAR (ua.mldacp_date, 'HH24:MI') accpttijd,
fac.safe_to_number ( ROUND (
fac.safe_to_number(SUBSTR (ua.mld_accpttijd,
0,
INSTR (ua.mld_accpttijd, ':') - 1)
+ (SUBSTR (ua.mld_accpttijd,
INSTR (ua.mld_accpttijd, ':') + 1)
/ 60)),
2)) werkelijkaccp,
DECODE (SIGN (m.mld_melding_acceptdatum_std - ua.mldacp_date),
-1, 'Nee',
'Ja')
binnen_sla,
ROUND (
uwva.bepaal_uwv_doorlooptijd (m.mld_melding_acceptdatum_std,
ua.mldacp_date),
2)
delatacp,
CASE
WHEN mstd.mld_stdmelding_t_uitvoertijd.eenheid = 'D'
THEN
mstd.mld_stdmelding_t_uitvoertijd.tijdsduur * 10.5 -- aantal dagen X 10,5 uur (werkdag)
ELSE
mstd.mld_stdmelding_t_uitvoertijd.tijdsduur
END
eindtijd,
TRUNC (ua.mldafm_date) afmdatum,
TO_CHAR (ua.mldafm_date, 'HH24:MI') afmtijd,
fac.safe_to_number ( ROUND (
fac.safe_to_number(SUBSTR (ua.mld_afmtijd,
0,
INSTR (ua.mld_afmtijd, ':') - 1)
+ (SUBSTR (ua.mld_afmtijd,
INSTR (ua.mld_afmtijd, ':') + 1)
/ 60)),
2)) werkelijkafm,
DECODE (SIGN (m.mld_melding_einddatum_std - ua.mldafm_date),
-1, 'Nee',
'Ja')
binnen_sla_afm,
ROUND (
uwva.bepaal_uwv_doorlooptijd (m.mld_melding_einddatum_std,
ua.mldafm_date),
2)
delatafm
FROM mld_melding m,
mld_stdmelding mstd,
mld_discipline md,
ins_srtdiscipline sd,
alg_locatie al,
alg_district ad,
alg_regio ar,
alg_v_onroerendgoed_gegevens v,
mld_behandelgroep bg,
mld_disc_params dc,
prs_v_perslid_fullnames pf,
uwva_v_mld_actual_all ua,
mld_opdr o,
prs_bedrijf b,
prs_perslid p
WHERE m.mld_stdmelding_key = mstd.mld_stdmelding_key
AND mstd.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_alg_locatie_key = al.alg_locatie_key
AND al.alg_district_key = ad.alg_district_key
AND ad.alg_regio_key = ar.alg_regio_key
AND m.mld_alg_onroerendgoed_keys = v.alg_onroerendgoed_keys
AND md.ins_discipline_key = dc.mld_ins_discipline_key
AND dc.mld_behandelgroep_key = bg.mld_behandelgroep_key
AND m.mld_melding_behandelaar_key = pf.prs_perslid_key(+)
AND m.mld_melding_status IN (1, 5, 6) -- Afgewezen, afgemeld en historie
AND m.mld_melding_key = ua.mld_key
AND m.mld_melding_key = o.mld_melding_key
AND o.mld_uitvoerende_keys = p.prs_perslid_key(+)
AND o.mld_uitvoerende_keys = b.prs_bedrijf_key(+);
-- UWVA#71910: Toevoegen keys 407=Workshopruimtes, 408=Klantbalies en 490=Ketentest E-Afspraak.
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK1
(
LOCATIE_ID,
LOCATIE_CODE,
CATALOG_ID,
CATALOG_NAME,
RUIMTE_ID,
RUIMTE_NAAM,
RUIMTE_OMSCHRIJVING,
AANTAL_PERS,
STARTDATUM,
VERVALDATUM,
VASTGOED_RUIMTE_ID
)
AS
SELECT al.alg_locatie_key,
al.alg_locatie_code,
rd.ins_discipline_key,
rd.ins_discipline_omschrijving,
rr.res_ruimte_key,
rr.res_ruimte_nr,
rr.res_ruimte_omschrijving,
(SELECT MAX (rro.res_ruimte_opstel_bezoekers)
FROM res_ruimte_opstelling rro
WHERE rr.res_ruimte_key = rro.res_ruimte_key)
pers,
rr.res_ruimte_startdatum,
rr.res_ruimte_vervaldatum,
ar.alg_ruimte_key
FROM res_ruimte rr,
res_alg_ruimte rar,
alg_ruimte ar,
alg_verdieping av,
alg_gebouw ag,
alg_locatie al,
res_discipline rd
WHERE rr.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = av.alg_verdieping_key
AND av.alg_gebouw_key = ag.alg_gebouw_key
AND ag.alg_locatie_key = al.alg_locatie_key
AND rr.res_discipline_key = rd.ins_discipline_key
AND rd.ins_discipline_key IN (121, 122, 123, 124, 125, 138, 140, 407, 408, 490, 491)
AND ar.alg_ruimte_verwijder IS NULL
AND rr.res_ruimte_verwijder IS NULL
AND rar.res_alg_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE)
AND (rr.res_ruimte_startdatum IS NULL OR rr.res_ruimte_startdatum <= SYSDATE);
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK2
(
RUIMTE_ID,
LOCATIE_ID,
VAN,
TOT,
VERVALDATUM
)
AS
SELECT rr.res_ruimte_key,
al.alg_locatie_key,
vr.res_rsv_ruimte_van,
vr.res_rsv_ruimte_tot,
rr.res_ruimte_vervaldatum
FROM res_v_rsv_ruimte_2_alg_ruimte vr,
res_ruimte rr,
alg_ruimte ar,
alg_verdieping av,
alg_gebouw ag,
alg_locatie al
WHERE vr.res_ruimte_key = rr.res_ruimte_key(+)
AND vr.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = av.alg_verdieping_key
AND av.alg_gebouw_key = ag.alg_gebouw_key
AND ag.alg_locatie_key = al.alg_locatie_key
AND TRUNC (vr.res_rsv_ruimte_van) >= TRUNC (SYSDATE) - 14
AND rr.res_discipline_key IN (121, 122, 124, 125, 140, 407, 408, 490, 491)
AND rr.res_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE);
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK2a
(
RUIMTE_ID,
LOCATIE_ID,
VAN,
TOT,
VERVALDATUM,
ACTIEF
)
AS
SELECT rr.res_ruimte_key,
al.alg_locatie_key,
vr.res_rsv_ruimte_van,
vr.res_rsv_ruimte_tot,
rr.res_ruimte_vervaldatum,
'ACTIEF'
FROM res_v_rsv_ruimte_2_alg_ruimte vr,
res_ruimte rr,
alg_ruimte ar,
alg_verdieping av,
alg_gebouw ag,
alg_locatie al
WHERE vr.res_ruimte_key = rr.res_ruimte_key(+)
AND vr.alg_ruimte_key = ar.alg_ruimte_key
AND ar.alg_verdieping_key = av.alg_verdieping_key
AND av.alg_gebouw_key = ag.alg_gebouw_key
AND ag.alg_locatie_key = al.alg_locatie_key
AND TRUNC (vr.res_rsv_ruimte_van) >= TRUNC (SYSDATE) - 14
AND rr.res_discipline_key IN (121, 122, 124, 125, 140, 407, 408, 490, 491)
AND rr.res_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE)
UNION ALL
SELECT DISTINCT rr.res_ruimte_key,
NULL,
NULL,
NULL,
rr.res_ruimte_vervaldatum,
'ACTIEF'
FROM res_ruimte rr
WHERE rr.res_discipline_key IN (121, 122, 124, 125, 140, 407, 408, 490, 491)
AND rr.res_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE);
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK2b
(
RUIMTE_ID,
LOCATIE_ID,
VAN,
TOT,
VERVALDATUM,
ACTIEF
)
AS
SELECT RUIMTE_ID, LOCATIE_ID, NVL (VAN, SYSDATE), TOT, VERVALDATUM, ACTIEF
FROM UWVA_V_RAP_EAFSPRAAK2a;
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK3
(
RES_ID,
RUIMTE_ID,
AFSPRAAK_ID,
BEZOEKER_ID,
BEZOEKER_NAAM,
BEZOEKER_BEDRIJF,
BEZOEKER_TIJDSTIP_IN,
BEZOEKER_TIJDSTIP_UIT,
BEZOEKER_OPMERKING
)
AS
SELECT vr.res_reservering_key,
rr.res_ruimte_key,
ba.bez_afspraak_key,
bb.bez_bezoekers_key,
bb.bez_afspraak_naam,
bb.bez_afspraak_bedrijf,
ba.bez_afspraak_datum,
ba.bez_afspraak_eind,
ba.bez_afspraak_opmerking
FROM res_v_rsv_ruimte_2_alg_ruimte vr,
res_ruimte rr,
bez_bezoekers bb,
bez_afspraak ba,
fac_tracking ft,
(SELECT prs_perslid_key
FROM prs_perslid
WHERE prs_perslid_oslogin = '_COMM') sub
WHERE vr.res_ruimte_key = rr.res_ruimte_key
AND bb.bez_afspraak_key = ba.bez_afspraak_key
AND ba.res_rsv_ruimte_key = vr.res_rsv_ruimte_key
AND ft.prs_perslid_key = sub.prs_perslid_key -- API account CommUnited
AND ft.fac_srtnotificatie_key = 30 -- RESNEW
AND ft.fac_tracking_refkey = vr.res_rsv_ruimte_key
AND vr.res_alg_ruimte_verwijder IS NULL
AND rr.res_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE);
CREATE OR REPLACE VIEW UWVA_V_RAP_EAFSPRAAK4 (PRS_PERSLID_KEY, PUIK)
AS
SELECT prs_perslid_key, prs_perslid_oslogin
FROM prs_perslid
WHERE prs_perslid_verwijder IS NULL;
-- UWVA#53488/UWVA#73260: Tbv. Livewords-koppeling!
CREATE OR REPLACE VIEW uwva_v_rap_livewords
AS
SELECT x.mld_opdr_key opdrachtid,
x.ins_srtdiscipline_prefix || TO_CHAR (x.mld_melding_key) || '/' || TO_CHAR (x.mld_opdr_bedrijfopdr_volgnr) opdrachtnummer,
TO_CHAR (x.mld_statusopdr_key) opdrachtstatus_key,
--(SELECT mld_statusopdr_omschrijving FROM mld_statusopdr WHERE mld_statusopdr_key = x.mld_statusopdr_key) opdrachtstatus,
TO_CHAR (x.ins_discipline_key) vakgroep_key,
--x.ins_discipline_omschrijving vakgroep,
TO_CHAR (x.mld_stdmelding_key) melding_key,
--x.mld_stdmelding_omschrijving melding,
x.mld_melding_spoed prioriteit,
x.alg_locatie_adres loc_bezoekadres,
x.alg_locatie_postcode loc_bezoekpostcode,
x.alg_locatie_plaats loc_bezoekplaats,
x.melder,
x.melder_email,
x.melder_telefoon,
DECODE (x.melder_geslacht, 1, 'M', 'V') melder_geslacht,
x.behandelaar,
x.mld_opdr_datumbegin opdrachtdatum,
x.mld_opdr_einddatum einddatum,
x.prs_kostenplaats_nr kostenplaats_code,
x.prs_kostenplaats_omschrijving kostenplaats_oms,
x.mld_opdr_kosten totaal_kosten,
reflev.mld_kenmerkmelding_waarde projectnummer,
(SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames WHERE prs_perslid_key = uwv_mdw.prs_perslid_key) naam_uwv_medew,
uwv_mdw.prs_perslid_email email_uwv_medew,
uwv_mdw.prs_perslid_mobiel mobiel_uwv_medew,
k2.mld_kenmerkmelding_waarde naam_klant,
k3.mld_kenmerkmelding_waarde datum,
k4.mld_kenmerkmelding_waarde aanvangstijd,
k5.mld_kenmerkmelding_waarde eindtijd,
k6.mld_kenmerkmelding_waarde te_vertalen_key,
--(SELECT fac_usrdata_omschr FROM fac_v_aanwezigusrdata WHERE fac_usrdata_key = fac.safe_to_number (k6.mld_kenmerkmelding_waarde)) te_vertalen,
k7.mld_kenmerkmelding_waarde beedigd,
k8.mld_kenmerkmelding_waarde soort_gespr_key,
--(SELECT fac_usrdata_omschr FROM fac_v_aanwezigusrdata WHERE fac_usrdata_key = fac.safe_to_number (k8.mld_kenmerkmelding_waarde)) soort_gespr,
k9.mld_kenmerkmelding_waarde kenm_gespr_key,
--(SELECT fac_usrdata_omschr FROM fac_v_aanwezigusrdata WHERE fac_usrdata_key = fac.safe_to_number (k9.mld_kenmerkmelding_waarde)) kenm_gespr,
k10.mld_kenmerkmelding_waarde aanv_kenm_gesp_key,
--(SELECT fac_usrdata_omschr FROM fac_v_aanwezigusrdata WHERE fac_usrdata_key = fac.safe_to_number (k10.mld_kenmerkmelding_waarde)) aanv_kenm_gespr,
k11.mld_kenmerkmelding_waarde voorkeur_tolk,
k12.mld_kenmerkmelding_waarde de_gespr_key,
--(SELECT fac_usrdata_omschr FROM fac_v_aanwezigusrdata WHERE fac_usrdata_key = fac.safe_to_number (k12.mld_kenmerkmelding_waarde)) de_gespr,
k21.mld_kenmerkmelding_waarde locatie1,
k22.mld_kenmerkmelding_waarde adres1,
k23.mld_kenmerkmelding_waarde postcode1,
k24.mld_kenmerkmelding_waarde plaats1,
k25.mld_kenmerkmelding_waarde tijd1,
k31.mld_kenmerkmelding_waarde locatie2,
k32.mld_kenmerkmelding_waarde adres2,
k33.mld_kenmerkmelding_waarde postcode2,
k34.mld_kenmerkmelding_waarde plaats2,
k35.mld_kenmerkmelding_waarde tijd2,
k41.mld_kenmerkmelding_waarde locatie3,
k42.mld_kenmerkmelding_waarde adres3,
k43.mld_kenmerkmelding_waarde postcode3,
k44.mld_kenmerkmelding_waarde plaats3,
k45.mld_kenmerkmelding_waarde tijd3,
k51.mld_kenmerkmelding_waarde locatie4,
k52.mld_kenmerkmelding_waarde adres4,
k53.mld_kenmerkmelding_waarde postcode4,
k54.mld_kenmerkmelding_waarde plaats4,
k55.mld_kenmerkmelding_waarde tijd4,
k61.mld_kenmerkmelding_waarde locatie5,
k62.mld_kenmerkmelding_waarde adres5,
k63.mld_kenmerkmelding_waarde postcode5,
k64.mld_kenmerkmelding_waarde plaats5,
k65.mld_kenmerkmelding_waarde tijd5,
k71.mld_kenmerkmelding_waarde locatie6,
k72.mld_kenmerkmelding_waarde adres6,
k73.mld_kenmerkmelding_waarde postcode6,
k74.mld_kenmerkmelding_waarde plaats6,
k75.mld_kenmerkmelding_waarde tijd6
FROM (SELECT o.mld_opdr_key,
sd.ins_srtdiscipline_prefix,
o.mld_melding_key,
o.mld_opdr_bedrijfopdr_volgnr,
o.mld_statusopdr_key,
md.ins_discipline_key,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_key,
sm.mld_stdmelding_omschrijving,
l.alg_locatie_adres,
l.alg_locatie_postcode,
l.alg_locatie_plaats,
pfm.prs_perslid_naam_full melder,
pm.prs_perslid_email melder_email,
COALESCE (pm.prs_perslid_mobiel, pm.prs_perslid_telefoonnr) melder_telefoon,
pm.prs_perslid_geslacht melder_geslacht,
m.mld_melding_spoed,
pfb.prs_perslid_naam_full behandelaar,
o.mld_opdr_datumbegin,
o.mld_opdr_einddatum,
kp.prs_kostenplaats_nr,
kp.prs_kostenplaats_omschrijving,
o.mld_opdr_kosten
FROM mld_opdr o,
mld_melding m,
mld_stdmelding sm,
mld_discipline md,
ins_srtdiscipline sd,
alg_locatie l,
prs_perslid pm,
prs_v_perslid_fullnames pfm,
prs_v_perslid_fullnames pfb,
prs_kostenplaats kp
WHERE o.mld_statusopdr_key IN (3, 4, 5, 8, 10)
AND o.mld_melding_key = m.mld_melding_key
--AND m.mld_melding_status IN (4, 7, 99) -- In behandeling/Uitgegeven/Niet opgelost
AND m.mld_stdmelding_key = sm.mld_stdmelding_key
AND sm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_discipline_key IN (264, 461) -- Tolkdiensten/Tolkdiensten bijzondere zaken
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND m.prs_perslid_key = pm.prs_perslid_key
AND pm.prs_perslid_key = pfm.prs_perslid_key
AND o.prs_perslid_key = pfb.prs_perslid_key(+)
AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)) x
LEFT JOIN mld_v_aanwezigkenmerkmelding reflev
ON x.mld_melding_key = reflev.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1461 AND mld_kenmerk_key = reflev.mld_kenmerk_key) -- Referentie leverancier
LEFT JOIN mld_v_aanwezigkenmerkmelding k1
ON x.mld_melding_key = k1.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1264 AND mld_kenmerk_key = k1.mld_kenmerk_key) -- Naam UWV medewerker
LEFT JOIN prs_perslid uwv_mdw
ON fac.safe_to_number (k1.mld_kenmerkmelding_waarde) = uwv_mdw.prs_perslid_key
LEFT JOIN mld_v_aanwezigkenmerkmelding k2
ON x.mld_melding_key = k2.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1500 AND mld_kenmerk_key = k2.mld_kenmerk_key) -- Naam klant
LEFT JOIN mld_v_aanwezigkenmerkmelding k3
ON x.mld_melding_key = k3.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 674 AND mld_kenmerk_key = k3.mld_kenmerk_key) -- Datum
LEFT JOIN mld_v_aanwezigkenmerkmelding k4
ON x.mld_melding_key = k4.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 2121 AND mld_kenmerk_key = k4.mld_kenmerk_key) -- Aanvangstijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k5
ON x.mld_melding_key = k5.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 2122 AND mld_kenmerk_key = k5.mld_kenmerk_key) -- Eindtijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k6
ON x.mld_melding_key = k6.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1266 AND mld_kenmerk_key = k6.mld_kenmerk_key) -- Te vertalen taal
LEFT JOIN mld_v_aanwezigkenmerkmelding k7
ON x.mld_melding_key = k7.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1162 AND mld_kenmerk_key = k7.mld_kenmerk_key) -- Beedigd
LEFT JOIN mld_v_aanwezigkenmerkmelding k8
ON x.mld_melding_key = k8.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1261 AND mld_kenmerk_key = k8.mld_kenmerk_key) -- Soort gesprek
LEFT JOIN mld_v_aanwezigkenmerkmelding k9
ON x.mld_melding_key = k9.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1262 AND mld_kenmerk_key = k9.mld_kenmerk_key) -- Kenmerken gesprek
LEFT JOIN mld_v_aanwezigkenmerkmelding k10
ON x.mld_melding_key = k10.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1263 AND mld_kenmerk_key = k10.mld_kenmerk_key) -- Aanvullende kenmerken gesprek
LEFT JOIN mld_v_aanwezigkenmerkmelding k11
ON x.mld_melding_key = k11.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1265 AND mld_kenmerk_key = k11.mld_kenmerk_key) -- Eventuele voorkeur tolk
LEFT JOIN mld_v_aanwezigkenmerkmelding k12
ON x.mld_melding_key = k12.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1366 AND mld_kenmerk_key = k12.mld_kenmerk_key) -- De gesprekken
LEFT JOIN mld_v_aanwezigkenmerkmelding k21
ON x.mld_melding_key = k21.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1282 AND mld_kenmerk_key = k21.mld_kenmerk_key) -- Naam locatie 1
LEFT JOIN mld_v_aanwezigkenmerkmelding k22
ON x.mld_melding_key = k22.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1267 AND mld_kenmerk_key = k22.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k23
ON x.mld_melding_key = k23.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 671 AND mld_kenmerk_key = k23.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k24
ON x.mld_melding_key = k24.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 672 AND mld_kenmerk_key = k24.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k25
ON x.mld_melding_key = k25.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1387 AND mld_kenmerk_key = k25.mld_kenmerk_key) -- Tijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k31
ON x.mld_melding_key = k31.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1372 AND mld_kenmerk_key = k31.mld_kenmerk_key) -- Naam locatie 2
LEFT JOIN mld_v_aanwezigkenmerkmelding k32
ON x.mld_melding_key = k32.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1361 AND mld_kenmerk_key = k32.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k33
ON x.mld_melding_key = k33.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1382 AND mld_kenmerk_key = k33.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k34
ON x.mld_melding_key = k34.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1377 AND mld_kenmerk_key = k34.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k35
ON x.mld_melding_key = k35.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1388 AND mld_kenmerk_key = k35.mld_kenmerk_key) -- Tijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k41
ON x.mld_melding_key = k41.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1373 AND mld_kenmerk_key = k41.mld_kenmerk_key) -- Naam locatie 3
LEFT JOIN mld_v_aanwezigkenmerkmelding k42
ON x.mld_melding_key = k42.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1362 AND mld_kenmerk_key = k42.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k43
ON x.mld_melding_key = k43.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1383 AND mld_kenmerk_key = k43.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k44
ON x.mld_melding_key = k44.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1378 AND mld_kenmerk_key = k44.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k45
ON x.mld_melding_key = k45.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1389 AND mld_kenmerk_key = k45.mld_kenmerk_key) -- Tijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k51
ON x.mld_melding_key = k51.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1374 AND mld_kenmerk_key = k51.mld_kenmerk_key) -- Naam locatie 4
LEFT JOIN mld_v_aanwezigkenmerkmelding k52
ON x.mld_melding_key = k52.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1363 AND mld_kenmerk_key = k52.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k53
ON x.mld_melding_key = k53.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1384 AND mld_kenmerk_key = k53.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k54
ON x.mld_melding_key = k54.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1379 AND mld_kenmerk_key = k54.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k55
ON x.mld_melding_key = k55.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1390 AND mld_kenmerk_key = k55.mld_kenmerk_key) -- Tijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k61
ON x.mld_melding_key = k61.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1375 AND mld_kenmerk_key = k61.mld_kenmerk_key) -- Naam locatie 5
LEFT JOIN mld_v_aanwezigkenmerkmelding k62
ON x.mld_melding_key = k62.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1364 AND mld_kenmerk_key = k62.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k63
ON x.mld_melding_key = k63.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1385 AND mld_kenmerk_key = k63.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k64
ON x.mld_melding_key = k64.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1380 AND mld_kenmerk_key = k64.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k65
ON x.mld_melding_key = k65.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1391 AND mld_kenmerk_key = k65.mld_kenmerk_key) -- Tijd
LEFT JOIN mld_v_aanwezigkenmerkmelding k71
ON x.mld_melding_key = k71.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1376 AND mld_kenmerk_key = k71.mld_kenmerk_key) -- Naam locatie 6
LEFT JOIN mld_v_aanwezigkenmerkmelding k72
ON x.mld_melding_key = k72.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1365 AND mld_kenmerk_key = k72.mld_kenmerk_key) -- Adres
LEFT JOIN mld_v_aanwezigkenmerkmelding k73
ON x.mld_melding_key = k73.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1386 AND mld_kenmerk_key = k73.mld_kenmerk_key) -- Postcode
LEFT JOIN mld_v_aanwezigkenmerkmelding k74
ON x.mld_melding_key = k74.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1381 AND mld_kenmerk_key = k74.mld_kenmerk_key) -- Plaats
LEFT JOIN mld_v_aanwezigkenmerkmelding k75
ON x.mld_melding_key = k75.mld_melding_key
AND EXISTS
(SELECT 1 FROM mld_kenmerk WHERE mld_kenmerk_verwijder IS NULL AND mld_srtkenmerk_key = 1392 AND mld_kenmerk_key = k75.mld_kenmerk_key) -- Tijd
;
-- UWVA#62756: Reserveren werkplekken!
CREATE OR REPLACE VIEW uwva_v_thema_srtruimtesensor
(
alg_ruimte_key,
waarde
)
AS
SELECT alg_ruimte_key, -- Ruimten met sensor!
DECODE (MAX (status), 0, 'Uit', 2, 'Aan', 'NoShow')
FROM (SELECT r.alg_ruimte_key,
DECODE (
INITCAP (d.ins_deel_state),
'0', -- Als sensor uit, dan kijken naar de reservering
DECODE (r2a.res_reservering_key,
NULL, 0, -- Geen reservering, dan dus Uit(0)
DECODE (eerste10min, 1, 2, 1)), -- Eerste 10 minuten nog Aan(2), daarna NoShow(1)
2)
status
FROM alg_v_aanwezigruimte r,
ins_v_aanwezigdeel d,
ins_srtdeel sd,
(SELECT alg_ruimte_key,
res_reservering_key,
CASE
WHEN (SYSDATE - res_rsv_ruimte_van > 10 / 1440)
THEN 0
ELSE 1
END
eerste10min
FROM res_v_rsv_ruimte_2_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
AND res_rsv_ruimte_dirtlevel = 0
AND res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen!
AND res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)) r2a
WHERE r.alg_ruimte_key = d.ins_alg_ruimte_key
AND d.ins_discipline_key = 474 -- Werkplekvoorzieningen
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = fac.getsetting ('ins_occupationsensors_srtgroep_key')
AND d.ins_deel_state IS NOT NULL
AND r.alg_ruimte_key = r2a.alg_ruimte_key(+))
GROUP BY alg_ruimte_key
UNION ALL -- Ruimten zonder sensor!
SELECT r.alg_ruimte_key,
DECODE (rr.res_ruimte_key, -- Is dit een vergaderruimte?
NULL, '*' || sr.alg_srtruimte_omschrijving,
DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan')) -- Uit(0)/NoShow(1)/Aan(2)
FROM alg_v_aanwezigruimte r,
alg_srtruimte sr,
(SELECT alg_ruimte_key, res_reservering_key
FROM res_v_rsv_ruimte_2_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
AND res_rsv_ruimte_dirtlevel = 0
AND res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen!
AND res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)) r2a,
( SELECT alg_ruimte_key, MAX (res_ruimte_key) res_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
GROUP BY alg_ruimte_key) rr
WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
AND EXISTS
(SELECT 1
FROM ins_v_aanwezigdeel d, res_v_aanwezigdeel rd, alg_ruimte r2
WHERE d.ins_discipline_key = 474 -- Werkplekvoorzieningen
AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) > TRUNC (SYSDATE) -- Niet vervallen
AND d.ins_deel_key = rd.res_ins_deel_key -- Reserveerbaar!
AND rd.res_discipline_key = 475 -- Werkplek (liefst geen keys van RES-catalogi, maar okay)!
AND COALESCE (rd.res_deel_vervaldatum, SYSDATE + 1) > TRUNC (SYSDATE) -- Niet vervallen
AND d.ins_alg_ruimte_key = r2.alg_ruimte_key
AND r2.alg_verdieping_key = r.alg_verdieping_key)
AND NOT EXISTS
(SELECT r.alg_ruimte_key
FROM ins_v_aanwezigdeel d, ins_srtdeel sd
WHERE d.ins_alg_ruimte_type = 'R'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = fac.getsetting ('ins_occupationsensors_srtgroep_key')
AND d.ins_deel_state IS NOT NULL
AND d.ins_alg_ruimte_key = r.alg_ruimte_key);
CREATE OR REPLACE VIEW uwva_v_thema_srtruimtesen484
(
alg_ruimte_key,
waarde
)
AS
SELECT alg_ruimte_key, -- Ruimten met sensor!
DECODE (MAX (status), 0, 'Uit', 2, 'Aan', 'NoShow')
FROM (SELECT r.alg_ruimte_key,
DECODE (
INITCAP (d.ins_deel_state),
'0', -- Als sensor uit, dan kijken naar de reservering
DECODE (r2a.res_reservering_key,
NULL, 0, -- Geen reservering, dan dus Uit(0)
DECODE (eerste10min, 1, 2, 1)), -- Eerste 10 minuten nog Aan(2), daarna NoShow(1)
2)
status
FROM alg_v_aanwezigruimte r,
ins_v_aanwezigdeel d,
ins_srtdeel sd,
(SELECT alg_ruimte_key,
res_reservering_key,
CASE
WHEN (SYSDATE - res_rsv_ruimte_van > 10 / 1440)
THEN 0
ELSE 1
END
eerste10min
FROM res_v_rsv_ruimte_2_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
AND res_rsv_ruimte_dirtlevel = 0
AND res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen!
AND res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)) r2a
WHERE r.alg_ruimte_key = d.ins_alg_ruimte_key
AND d.ins_discipline_key = 474 -- Werkplekvoorzieningen
AND d.ins_alg_ruimte_type = 'R'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = fac.getsetting ('ins_occupationsensors_srtgroep_key')
AND d.ins_deel_state IS NOT NULL
AND r.alg_ruimte_key = r2a.alg_ruimte_key(+))
GROUP BY alg_ruimte_key
UNION ALL -- Ruimten zonder sensor!
SELECT r.alg_ruimte_key,
DECODE (rr.res_ruimte_key, -- Is dit een vergaderruimte?
NULL, '*' || sr.alg_srtruimte_omschrijving,
DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan')) -- Uit(0)/NoShow(1)/Aan(2)
FROM alg_v_aanwezigruimte r,
alg_srtruimte sr,
(SELECT alg_ruimte_key, res_reservering_key
FROM res_v_rsv_ruimte_2_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
AND res_rsv_ruimte_dirtlevel = 0
AND res_rsv_ruimte_van BETWEEN TRUNC (SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen!
AND res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC (SYSDATE + 1)) r2a,
( SELECT alg_ruimte_key, MAX (res_ruimte_key) res_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
GROUP BY alg_ruimte_key) rr
WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
AND EXISTS
(SELECT 1
FROM ins_v_aanwezigdeel d, res_v_aanwezigdeel rd, alg_ruimte r2
WHERE d.ins_discipline_key = 474 -- Werkplekvoorzieningen
AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 1) > TRUNC (SYSDATE) -- Niet vervallen
AND d.ins_deel_key = rd.res_ins_deel_key -- Reserveerbaar!
AND rd.res_discipline_key = 484 -- Flexplek (liefst geen keys van RES-catalogi, maar okay)!
AND COALESCE (rd.res_deel_vervaldatum, SYSDATE + 1) > TRUNC (SYSDATE) -- Niet vervallen
AND d.ins_alg_ruimte_key = r2.alg_ruimte_key
AND r2.alg_verdieping_key = r.alg_verdieping_key)
AND NOT EXISTS
(SELECT r.alg_ruimte_key
FROM ins_v_aanwezigdeel d, ins_srtdeel sd
WHERE d.ins_alg_ruimte_type = 'R'
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = fac.getsetting ('ins_occupationsensors_srtgroep_key')
AND d.ins_deel_state IS NOT NULL
AND d.ins_alg_ruimte_key = r.alg_ruimte_key);
--UWVA#63374: Versnellen laden tekeningen.
--Deze view wordt overbodig met 2020.1 (dan weer thema cad_v_label_deel_res_datum gebruiken)?
CREATE OR REPLACE VIEW uwva_v_label_deel_res_datum
(
fclt_f_datum,
ins_deel_key,
res_deel_omschrijving,
waarde1,
waarde,
waarde3,
waarde_html,
waarde_html2
)
AS
WITH datums AS ( SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
FROM DUAL
CONNECT BY LEVEL <= 31)
SELECT datums.datum fclt_f_datum,
isd.res_ins_deel_key ins_deel_key,
res_deel_omschrijving,
CHR (10)
|| listagg (
DECODE (
prs_perslid_naam_friendly,
NULL,
'',
'Gereserveerd van '
|| CHR (10)
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| ' tot '
|| DECODE (TRUNC (res_rsv_deel_tot),
TRUNC (res_rsv_deel_van),
TO_CHAR (res_rsv_deel_tot, 'HH24:MI'),
TO_CHAR (res_rsv_deel_tot, 'DD-MM-YYYY HH24:MI'))),
CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde1,
CHR (10)
|| listagg (
DECODE (
prs_perslid_naam_friendly,
NULL,
'',
'Gereserveerd van '
|| CHR (10)
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| ' tot '
|| DECODE (TRUNC (res_rsv_deel_tot),
TRUNC (res_rsv_deel_van),
TO_CHAR (res_rsv_deel_tot, 'HH24:MI'),
TO_CHAR (res_rsv_deel_tot, 'DD-MM-YYYY HH24:MI'))),
CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde2,
CHR (10)
|| listagg (TO_CHAR (res_rsv_deel_van, 'HH24:MI'), CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde3,
CHR (10)
|| listagg (
DECODE (
prs_perslid_naam_friendly,
NULL,
'',
'Gereserveerd van '
|| CHR (10)
|| TO_CHAR (res_rsv_deel_van, 'HH24:MI')
|| ' tot '
|| DECODE (TRUNC (res_rsv_deel_tot),
TRUNC (res_rsv_deel_van),
TO_CHAR (res_rsv_deel_tot, 'HH24:MI'),
TO_CHAR (res_rsv_deel_tot, 'DD-MM-YYYY HH24:MI'))),
CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde_html,
CHR (10)
|| listagg (TO_CHAR (res_rsv_deel_van, 'HH24:MI'), CHR (10))
WITHIN GROUP (ORDER BY res_rsv_deel_van)
waarde_html2
FROM res_v_aanwezigdeel isd,
datums,
(SELECT datum,
res_ins_deel_key,
prs_perslid_naam_friendly,
res_rsv_deel_van,
res_rsv_deel_tot
FROM res_v_aanwezigdeel r,
res_v_aanwezigrsv_deel rrd,
res_rsv_ruimte rrr,
prs_v_perslid_fullnames p,
datums
WHERE r.res_deel_key = rrd.res_deel_key
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
AND datum >= TRUNC (res_rsv_deel_van)
AND datum < TRUNC (res_rsv_deel_tot + 1)) res -- Bezet
WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+)
AND datums.datum = res.datum(+)
GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
-- UWVA#67971: Thema WP-bezetting met andere beschikbaar-kleur per catalogus.
-- waarde1: Voor hele dagen: Vrij(0) of Bezet (3)
-- waarde: Voor halve dagen: Vrij(0), Ochtendbezet(1), MiddagBezet(2), Helemaalbezet(3)
-- waarde3: Voor tellen: Het aantal reservering op de dag, met 0 is dus Vrij
CREATE OR REPLACE VIEW uwva_v_thema_deel_res_datum
AS
WITH datums AS ( SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
FROM DUAL
CONNECT BY LEVEL <= 31)
SELECT datum fclt_f_datum,
ins_deel_key,
MIN (res_rsv_deel_van) min_van,
MAX (res_rsv_deel_tot) max_tot,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
ELSE 3 -- Hele dag bezet
END
waarde1,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
WHEN TO_CHAR (MAX (res_rsv_deel_tot), 'HH24') <= 13
THEN 1 -- Ochtend
WHEN TO_CHAR (MIN (res_rsv_deel_van), 'HH24') >= 12
THEN 2 -- Middag
ELSE 3 -- Hele dag bezet
END
waarde,
COUNT (res_rsv_deel_tot) -- Aantal reservering deze dag
waarde3
FROM (SELECT datums.datum, res_ins_deel_key ins_deel_key, res_rsv_deel_van, res_rsv_deel_tot, res_discipline_key
FROM res_v_aanwezigdeel r,
ins_deel d,
datums,
(SELECT datum, res_deel_key, res_rsv_deel_van, res_rsv_deel_tot
FROM datums, res_v_aanwezigrsv_deel rrd
WHERE res_rsv_deel_van > TRUNC(SYSDATE) - 1 -- Negeer alle irrelevante historie sowieso!
AND datum >= TRUNC (res_rsv_deel_van)
AND datum < TRUNC (res_rsv_deel_tot) + 1)
blokkerend -- Vandaag en nog niet afgelopen
WHERE r.res_ins_deel_key = d.ins_deel_key
AND datums.datum = blokkerend.datum(+)
AND r.res_deel_key = blokkerend.res_deel_key(+)
AND (r.res_deel_vervaldatum IS NULL OR r.res_deel_vervaldatum > datums.datum))
GROUP BY datum, ins_deel_key, res_discipline_key
ORDER BY datum, ins_deel_key;
CREATE OR REPLACE VIEW uwva_v_thema_deel_resdat475
AS
WITH datums AS ( SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
FROM DUAL
CONNECT BY LEVEL <= 31)
SELECT datum fclt_f_datum,
ins_deel_key,
MIN (res_rsv_deel_van) min_van,
MAX (res_rsv_deel_tot) max_tot,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
ELSE 3 -- Hele dag bezet
END
waarde1,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
WHEN TO_CHAR (MAX (res_rsv_deel_tot), 'HH24') <= 13
THEN 1 -- Ochtend
WHEN TO_CHAR (MIN (res_rsv_deel_van), 'HH24') >= 12
THEN 2 -- Middag
ELSE 3 -- Hele dag bezet
END
waarde,
COUNT (res_rsv_deel_tot) -- Aantal reservering deze dag
waarde3
FROM (SELECT datums.datum, res_ins_deel_key ins_deel_key, res_rsv_deel_van, res_rsv_deel_tot, res_discipline_key
FROM res_v_aanwezigdeel r,
ins_deel d,
datums,
(SELECT datum, res_deel_key, res_rsv_deel_van, res_rsv_deel_tot
FROM datums, res_v_aanwezigrsv_deel rrd
WHERE res_rsv_deel_van > TRUNC(SYSDATE) - 1 -- Negeer alle irrelevante historie sowieso!
AND datum >= TRUNC (res_rsv_deel_van)
AND datum < TRUNC (res_rsv_deel_tot) + 1)
blokkerend -- Vandaag en nog niet afgelopen
WHERE r.res_ins_deel_key = d.ins_deel_key
AND datums.datum = blokkerend.datum(+)
AND r.res_deel_key = blokkerend.res_deel_key(+)
AND (r.res_deel_vervaldatum IS NULL OR r.res_deel_vervaldatum > datums.datum)
AND r.res_discipline_key = 475)
GROUP BY datum, ins_deel_key, res_discipline_key
ORDER BY datum, ins_deel_key;
CREATE OR REPLACE VIEW uwva_v_thema_deel_resdat484
AS
WITH datums AS ( SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
FROM DUAL
CONNECT BY LEVEL <= 31)
SELECT datum fclt_f_datum,
ins_deel_key,
MIN (res_rsv_deel_van) min_van,
MAX (res_rsv_deel_tot) max_tot,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
ELSE 3 -- Hele dag bezet
END
waarde1,
CASE
WHEN MAX (res_rsv_deel_tot) IS NULL
THEN DECODE (res_discipline_key, 484, 5, 4) -- Werkplekken 475=? en 484=?!
WHEN TO_CHAR (MAX (res_rsv_deel_tot), 'HH24') <= 13
THEN 1 -- Ochtend
WHEN TO_CHAR (MIN (res_rsv_deel_van), 'HH24') >= 12
THEN 2 -- Middag
ELSE 3 -- Hele dag bezet
END
waarde,
COUNT (res_rsv_deel_tot) -- Aantal reservering deze dag
waarde3
FROM (SELECT datums.datum, res_ins_deel_key ins_deel_key, res_rsv_deel_van, res_rsv_deel_tot, res_discipline_key
FROM res_v_aanwezigdeel r,
ins_deel d,
datums,
(SELECT datum, res_deel_key, res_rsv_deel_van, res_rsv_deel_tot
FROM datums, res_v_aanwezigrsv_deel rrd
WHERE res_rsv_deel_van > TRUNC(SYSDATE) - 1 -- Negeer alle irrelevante historie sowieso!
AND datum >= TRUNC (res_rsv_deel_van)
AND datum < TRUNC (res_rsv_deel_tot) + 1)
blokkerend -- Vandaag en nog niet afgelopen
WHERE r.res_ins_deel_key = d.ins_deel_key
AND datums.datum = blokkerend.datum(+)
AND r.res_deel_key = blokkerend.res_deel_key(+)
AND (r.res_deel_vervaldatum IS NULL OR r.res_deel_vervaldatum > datums.datum)
AND r.res_discipline_key = 484)
GROUP BY datum, ins_deel_key, res_discipline_key
ORDER BY datum, ins_deel_key;
-- UWVA#61083: Bewaartermijnen/automatische schoning!
CREATE OR REPLACE VIEW uwva_v_rap_cnt_schoning
(
ins_discipline_key,
huur_jn,
contractsoort,
cnt_contract_key,
contractnr,
cnt_contract_omschrijving,
cnt_contract_looptijd_tot,
cnt_contract_status,
bes_bestelling_key,
verwijderd
)
AS
WITH c
AS (SELECT c.ins_discipline_key,
c.cnt_contract_key,
c.cnt_contract_nummer_intern,
c.cnt_contract_versie,
c.cnt_contract_omschrijving,
c.cnt_contract_verwijder,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
c.cnt_contract_mantel_key,
cp.cnt_alg_plaats_code,
COALESCE (aog.alg_locatie_key, cp.cnt_alg_plaats_key) alg_locatie_key,
c.bes_bestelopdr_key
FROM cnt_contract c, cnt_contract_plaats cp, alg_v_allonrgoed_gegevens aog
WHERE c.ins_discipline_key IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND c.cnt_contract_key = cp.cnt_contract_key(+)
AND cp.cnt_alg_plaats_code = aog.alg_type(+)
AND cp.cnt_alg_plaats_key = aog.alg_onroerendgoed_keys(+))
SELECT DISTINCT
c.ins_discipline_key,
'J' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
(SELECT MAX (bbi.bes_bestelling_key)
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = c.bes_bestelopdr_key) bes_bestelling_key,
c.cnt_contract_verwijder
FROM c, cnt_discipline cd
WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy') -- Verlopen > 10 jaar geleden
AND c.ins_discipline_key = cd.ins_discipline_key
AND NOT EXISTS -- Geen dossier-contract op dezelfde plaats <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND dc.alg_locatie_key = c.alg_locatie_key)
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 10 jaar geleden of ander contract op dezelfde plaats <= 10 jaar geleden
(SELECT 1
FROM c dc
WHERE dc.cnt_contract_verwijder IS NULL
AND (dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
OR EXISTS
(SELECT 1
FROM c ac
WHERE ac.cnt_contract_verwijder IS NULL
AND ac.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -120), 'yyyy')
AND ac.alg_locatie_key = dc.alg_locatie_key
AND ac.cnt_contract_key != dc.cnt_contract_key))
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key)
UNION ALL
SELECT DISTINCT
c.ins_discipline_key,
'N' huur_jn,
cd.ins_discipline_omschrijving,
c.cnt_contract_key,
c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
contractnr,
c.cnt_contract_omschrijving,
c.cnt_contract_looptijd_tot,
c.cnt_contract_status,
(SELECT MAX (bbi.bes_bestelling_key)
FROM bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND boi.bes_bestelopdr_key = c.bes_bestelopdr_key) bes_bestelling_key,
c.cnt_contract_verwijder
FROM cnt_contract c, cnt_discipline cd
WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Verlopen > 7 jaar geleden
AND c.ins_discipline_key = cd.ins_discipline_key
AND cd.ins_discipline_key NOT IN (198, 412) -- Huurcontracten/Mantel huurcontracten
AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden
(SELECT 1
FROM cnt_contract dc
WHERE dc.cnt_contract_verwijder IS NULL
AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
AND NOT EXISTS -- Geen lopende facturen op contract!
(SELECT 1
FROM fin_factuur
WHERE fin_factuur_verwijder IS NULL
AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND cnt_contract_key = c.cnt_contract_key);
-- TODO: Periodieke bestelaanvragen/opdrachten niet beschouwen? => Bij UWV niet gebruikt!
CREATE OR REPLACE VIEW uwva_v_rap_bes_schoning
(
jaar,
bes_bestelling_key,
contracten
)
AS
WITH b
AS (SELECT bes_bestelling_key,
bes_bestelling_datum,
bes_bestelling_retourvan_key,
COALESCE (
fac.gettrackingdate ('BESREJ', bes_bestelling_key),
--fac.gettrackingdate ('BESXXX', bes_bestelling_key), -- key=257 (1x voor 164572 in 2012)
--fac.gettrackingdate ('BESINF', bes_bestelling_key), -- key=44
fac.gettrackingdate ('BESOTV', bes_bestelling_key))
gesloten
FROM bes_bestelling
WHERE bes_bestelling_status IN (1, 6, 7, 8, 9) -- Gesloten bestelling
AND bes_bestelling_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, b.bes_bestelling_key, c.contracten
FROM b,
( SELECT bes_bestelling_key, COUNT (DISTINCT cnt_contract_key) contracten
FROM uwva_v_rap_cnt_schoning
GROUP BY bes_bestelling_key) c
WHERE 1 = 1 --b.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden
AND bes_bestelling_retourvan_key IS NULL -- Alleen bron-bestelling (dus zonder de retouren)
AND b.bes_bestelling_key = c.bes_bestelling_key(+)
AND (c.bes_bestelling_key IS NOT NULL -- Gekoppeld contract ook geschoond? => Apart tellen!
OR NOT EXISTS -- Geen enkel gekoppeld contract!
(SELECT 1
FROM cnt_contract c, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE c.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key))
--AND NOT EXISTS
-- (SELECT 1
-- FROM bes_bestelling_item bbi, bes_bestelopdr_item boi, bes_bestelopdr bo
-- WHERE bbi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
-- AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
-- AND bo.bes_bestelopdr_status IN (2, 3, 4, 5) -- Lopende bestelopdracht
-- AND bbi.bes_bestelling_key = b.bes_bestelling_key)
AND NOT EXISTS -- Geen later gewijzigde child-bestelopdrachten!
(SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'bestelopdracht'
AND t.fac_tracking_refkey = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key)
--AND NOT EXISTS -- Evt. retour-bestelling ook > 7 jaar gesloten!
-- (SELECT 1
-- FROM bes_bestelling rb, -- Retour-bestelling!
-- fac_tracking t,
-- fac_srtnotificatie sn
-- WHERE rb.bes_bestelling_retourvan_key = b.bes_bestelling_key
-- AND rb.bes_bestelling_key = t.fac_tracking_refkey
-- AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
-- AND sn.fac_srtnotificatie_xmlnode = 'bestelling'
-- AND (rb.bes_bestelling_status NOT IN (1, 6, 7, 8, 9) -- Lopend
-- OR t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy'))) -- Geraakt < 7 jaar geleden
AND NOT EXISTS -- Geen lopende facturen op child-bestelopdrachten!
(SELECT 1
FROM fin_factuur f, bes_bestelopdr_item boi, bes_bestelling_item bbi
WHERE f.fin_factuur_verwijder IS NULL
AND f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND f.bes_bestelopdr_key = boi.bes_bestelopdr_key
AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
AND bbi.bes_bestelling_key = b.bes_bestelling_key);
CREATE OR REPLACE VIEW uwva_v_rap_bez_schoning
(
jaar,
bez_afspraak_key,
bezoekers
)
AS
WITH a
AS ( SELECT a.bez_afspraak_key,
a.bez_afspraak_datum,
COUNT (*) bezoekers
FROM bez_afspraak a, bez_bezoekers b
WHERE a.bez_afspraak_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Aangemaakt > 7 jaar geleden
AND a.bez_afspraak_key = b.bez_afspraak_key
GROUP BY a.bez_afspraak_key, a.bez_afspraak_datum)
SELECT TO_CHAR (a.bez_afspraak_datum, 'yyyy') jaar, bez_afspraak_key, bezoekers
FROM a;
CREATE OR REPLACE VIEW uwva_v_rap_res_schoning
(
jaar,
verwijderd,
res_rsv_ruimte_key
)
AS
WITH r
AS (SELECT res_rsv_ruimte_key,
res_reservering_key,
res_rsv_ruimte_volgnr,
res_rsv_ruimte_tot,
res_rsv_ruimte_verwijder
FROM res_rsv_ruimte
WHERE res_rsv_ruimte_tot < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (res_rsv_ruimte_tot, 'yyyy') jaar, DECODE (res_rsv_ruimte_verwijder, NULL, 'N', 'J') verwijderd, res_rsv_ruimte_key
FROM r
WHERE NOT EXISTS -- Geen latere child-reserveringen!
(SELECT 1
FROM res_rsv_ruimte cr -- Child-reserveringen!
WHERE cr.res_rsv_ruimte_tot > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND cr.res_reservering_key = r.res_reservering_key);
-- TODO: Periodieke meldingen/opdrachten niet beschouwen? => Bij UWV niet gebruikt!
-- TODO: Geantedateerde meldingen/opdrachten?
CREATE OR REPLACE VIEW uwva_v_rap_mld_schoning
(
jaar,
datum,
mld_melding_key
)
AS
WITH m
AS (SELECT mld_melding_key,
mld_melding_datum,
mld_melding_start_key,
mld_melding_parentkey,
COALESCE (
fac.gettrackingdate ('MLDREJ', mld_melding_key),
fac.gettrackingdate ('MLDAFM', mld_melding_key), -- Soms niet Afgemeld?
fac.gettrackingdate ('MLDVER', mld_melding_key))
gesloten
FROM mld_melding
WHERE mld_melding_status IN (1, 5, 6) -- Gesloten
AND mld_melding_datum < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')) -- Aangemaakt > 7 jaar geleden
SELECT TO_CHAR (m.mld_melding_datum, 'yyyy') jaar, m.mld_melding_datum datum, mld_melding_key
FROM m
WHERE m.gesloten < TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy') -- Gesloten > 7 jaar geleden
AND (m.mld_melding_start_key IS NULL OR m.mld_melding_key = m.mld_melding_start_key) -- Alleen bron-melding
AND m.mld_melding_parentkey IS NULL -- Alleen bron-melding
AND NOT EXISTS -- Geen later gewijzigde child-opdrachten!
(SELECT 1
FROM fac_tracking t, fac_srtnotificatie sn, mld_opdr o
WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy')
AND t.fac_srtnotificatie_key <> 742 -- ORDANO!
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND t.fac_tracking_refkey = o.mld_opdr_key
AND o.mld_melding_key = m.mld_melding_key)
AND EXISTS -- Eventuele start-melding ook > 7 jaar gesloten!
(SELECT 1
FROM m sm -- Start-meldingen!
WHERE sm.mld_melding_key = COALESCE (m.mld_melding_start_key, m.mld_melding_key))
AND EXISTS -- Eventuele parent-melding ook > 7 jaar gesloten!
(SELECT 1
FROM m pm -- Parent-meldingen!
WHERE pm.mld_melding_key = COALESCE (m.mld_melding_parentkey, m.mld_melding_key))
AND NOT EXISTS -- Eventuele vervolg-melding ook > 7 jaar gesloten!
(SELECT 1
FROM mld_melding vm, -- Vervolg-meldingen!
fac_tracking t,
fac_srtnotificatie sn
WHERE vm.mld_melding_start_key = m.mld_melding_key
AND vm.mld_melding_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'melding'
AND (vm.mld_melding_status NOT IN (1, 5, 6) -- Lopend
OR t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy'))) -- Geraakt < 7 jaar geleden
AND NOT EXISTS -- Eventuele child-melding ook > 7 jaar gesloten!
(SELECT 1
FROM mld_melding cm, -- Child-meldingen!
fac_tracking t,
fac_srtnotificatie sn
WHERE cm.mld_melding_parentkey = m.mld_melding_key
AND cm.mld_melding_key = t.fac_tracking_refkey
AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'melding'
AND (cm.mld_melding_status NOT IN (1, 5, 6) -- Lopend
OR t.fac_tracking_datum > TRUNC (ADD_MONTHS (SYSDATE, -84), 'yyyy'))) -- Geraakt < 7 jaar geleden
AND NOT EXISTS -- Geen lopende facturen op child-opdrachten!
(SELECT 1
FROM fin_factuur f, mld_opdr o
WHERE f.fin_factuur_verwijder IS NULL
AND f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
AND f.mld_opdr_key = o.mld_opdr_key
AND o.mld_melding_key = m.mld_melding_key);
CREATE OR REPLACE VIEW uwva_v_rap_auto_schoning
(
module,
jaar,
groepering_key,
aantal,
subaantal,
onderdeel_key,
onderdeel_id,
omschrijving
)
AS
SELECT 'BES', jaar, NULL ins_discipline_key, COUNT (*) aantal, SUM (contracten) subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_bes_schoning
GROUP BY 'BES', jaar
UNION ALL
SELECT 'BEZ', jaar, NULL ins_discipline_key, COUNT (*) aantal, SUM (bezoekers) subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_bez_schoning
GROUP BY 'BEZ', jaar
UNION ALL
SELECT 'RES', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_res_schoning
GROUP BY 'RES', jaar
UNION ALL
SELECT 'MLD', jaar, NULL ins_discipline_key, COUNT (*) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_mld_schoning
GROUP BY 'MLD', jaar
UNION ALL
SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, 1 aantal, NULL subaantal, cnt_contract_key fac_key, contractnr fac_id, cnt_contract_omschrijving omschrijving
FROM uwva_v_rap_cnt_schoning
WHERE ins_discipline_key IN (198, 412)
UNION ALL
SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, ins_discipline_key, COUNT ( * ) aantal, NULL subaantal, NULL fac_key, NULL fac_id, NULL omschrijving
FROM uwva_v_rap_cnt_schoning
WHERE ins_discipline_key NOT IN (198, 412)
GROUP BY 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy'), ins_discipline_key
;
CREATE OR REPLACE PROCEDURE uwva_daily
AS
-- BES per jaar!
CURSOR cbes (p_jaar VARCHAR2)
IS
SELECT bes_bestelling_key FROM uwva_v_rap_bes_schoning WHERE jaar <= p_jaar ORDER BY 1;
-- BEZ per jaar (samen met RES)!
CURSOR cbez (p_jaar VARCHAR2)
IS
SELECT bez_afspraak_key FROM uwva_v_rap_bez_schoning WHERE jaar <= p_jaar ORDER BY 1;
-- RES per jaar (samen met BEZ)!
CURSOR cres (p_jaar VARCHAR2)
IS
SELECT res_rsv_ruimte_key FROM uwva_v_rap_res_schoning WHERE jaar <= p_jaar ORDER BY 1;
-- MLD per jaar (of maand)!
CURSOR cmld (p_datum DATE)
IS
SELECT mld_melding_key FROM uwva_v_rap_mld_schoning WHERE TRUNC (datum) <= p_datum ORDER BY 1;
-- CNT allemaal tegelijk!
CURSOR ccnt --(p_datum DATE)
IS
SELECT ins_discipline_key, cnt_contract_key FROM uwva_v_rap_cnt_schoning ORDER BY 1, 2;
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER (10);
v_jaar1 VARCHAR2 (4);
v_jaar2 VARCHAR2 (4);
v_datum DATE;
v_datum1 DATE;
v_datum2 DATE;
v_contracten NUMBER;
BEGIN
-- Aanname dat er in elk jaar minimaal te schonen BEZ zijn!
v_errormsg := 'Fout bepalen of er nog iets te schonen valt';
SELECT SUM (aantal)
INTO v_count
FROM uwva_v_rap_auto_schoning;
-- Initieel dagelijks een jaartje schonen totdat achterstand ingelopen!
IF TO_CHAR (SYSDATE, 'mm-dd') >= '03-01' AND v_count > 0
THEN
v_count := 0;
v_datum1 := SYSDATE;
v_errormsg := 'Fout bepalen van-jaar!';
SELECT MIN (jaar)
INTO v_jaar1
FROM uwva_v_rap_bes_schoning;
v_errormsg := 'Fout bepalen tot-jaar!';
SELECT MAX (jaar)
INTO v_jaar2
FROM uwva_v_rap_bes_schoning
WHERE jaar > '1999';
v_errormsg := 'Fout bepalen contracten!';
SELECT SUM (contracten)
INTO v_contracten
FROM uwva_v_rap_bes_schoning
WHERE jaar <= v_jaar2;
FOR r IN cbes (v_jaar2)
LOOP
BEGIN
v_errormsg := 'Fout schonen bestelling: ' || TO_CHAR (r.bes_bestelling_key);
bes.remove (r.bes_bestelling_key);
v_count := v_count + 1;
-- Elke 1000 BES een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', v_errormsg, 'BES-loop');
END;
END LOOP;
v_datum2 := SYSDATE;
IF v_jaar1 = v_jaar2
THEN
fac.writelog ('DAILY', 'S', '#Bestellingen geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
ELSE
fac.writelog ('DAILY', 'S', '#Bestellingen geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
IF v_contracten > 0
THEN
fac.writelog ('DAILY', 'S', '#B-Contracten geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_contracten), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
v_count := 0;
v_datum1 := SYSDATE;
-- Fout bepalen jaar tbv. BEZ+RES (aanname dat elk jaar wel 1 bezoeker)!
v_errormsg := 'Fout bepalen van-jaar!';
--SELECT MIN (jaar)
-- INTO v_jaar1
-- FROM uwva_v_rap_bez_schoning;
SELECT MIN (jaar)
INTO v_jaar1
FROM (SELECT MIN (jaar) jaar FROM uwva_v_rap_bez_schoning
UNION ALL
SELECT MIN (jaar) jaar FROM uwva_v_rap_res_schoning);
v_errormsg := 'Fout bepalen tot-jaar!';
--SELECT MAX (jaar)
-- INTO v_jaar2
-- FROM uwva_v_rap_bez_schoning
-- WHERE jaar > '1999';
SELECT MAX (jaar)
INTO v_jaar2
FROM (SELECT MAX (jaar) jaar FROM uwva_v_rap_bez_schoning
UNION ALL
SELECT MAX (jaar) jaar FROM uwva_v_rap_res_schoning);
FOR r IN cbez (v_jaar2)
LOOP
BEGIN
v_errormsg := 'Fout schonen afspraak: ' || TO_CHAR (r.bez_afspraak_key);
bez.remove (r.bez_afspraak_key);
v_count := v_count + 1;
-- Elke 1000 BEZ een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', v_errormsg, 'BEZ-loop');
END;
END LOOP;
v_datum2 := SYSDATE;
IF v_jaar1 = v_jaar2
THEN
fac.writelog ('DAILY', 'S', '#Afspraken geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
ELSE
fac.writelog ('DAILY', 'S', '#Afspraken geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
v_count := 0;
v_datum1 := SYSDATE;
-- Fout bepalen jaar (zie BEZ)!
FOR r IN cres (v_jaar2)
LOOP
BEGIN
v_errormsg := 'Fout schonen reservering: ' || TO_CHAR (r.res_rsv_ruimte_key);
res.remove (r.res_rsv_ruimte_key);
v_count := v_count + 1;
-- Elke 1000 RES een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', v_errormsg, 'RES-loop');
END;
END LOOP;
v_datum2 := SYSDATE;
IF v_jaar1 = v_jaar2
THEN
fac.writelog ('DAILY', 'S', '#Reserveringen geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
ELSE
fac.writelog ('DAILY', 'S', '#Reserveringen geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
v_count := 0;
v_datum1 := SYSDATE;
-- Fout bepalen jaar tbv. MLD!
v_errormsg := 'Fout bepalen van-jaar!';
SELECT MIN (jaar)
INTO v_jaar1
FROM uwva_v_rap_mld_schoning;
v_errormsg := 'Fout bepalen tot-jaar!';
SELECT MAX (jaar)
INTO v_jaar2
FROM uwva_v_rap_mld_schoning
WHERE jaar > '1999';
v_errormsg := 'Fout bepalen oudste datum!';
--SELECT MIN (datum)
-- INTO v_datum
-- FROM uwva_v_rap_mld_schoning
-- WHERE jaar > '1999';
--v_datum := TRUNC (ADD_MONTHS (v_datum, 1), 'mm');
--v_datum := TRUNC (ADD_MONTHS (v_datum, 12), 'yyyy');
v_datum := fac.safe_to_date ('31-12-' || v_jaar2, 'dd-mm-yyyy');
FOR r IN cmld (v_datum)
LOOP
BEGIN
v_errormsg := 'Fout schonen melding: ' || TO_CHAR (r.mld_melding_key);
mld.remove (r.mld_melding_key);
v_count := v_count + 1;
-- Elke 1000 MLD een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', v_errormsg, 'MLD-loop');
END;
END LOOP;
v_datum2 := SYSDATE;
--fac.writelog ('DAILY', 'S', '#Meldingen geschoond (maand=' || TO_CHAR (v_datum - 1, 'yyyy-mm') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
--fac.writelog ('DAILY', 'S', '#Meldingen geschoond (jaar=' || TO_CHAR (v_datum - 1, 'yyyy') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
IF v_jaar1 = v_jaar2
THEN
fac.writelog ('DAILY', 'S', '#Meldingen geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
ELSE
fac.writelog ('DAILY', 'S', '#Meldingen geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
v_count := 0;
v_datum1 := SYSDATE;
--v_errormsg := 'Fout bepalen oudste datum!';
--SELECT MIN (cnt_contract_looptijd_tot)
-- INTO v_datum
-- FROM uwva_v_rap_cnt_schoning
-- WHERE cnt_contract_looptijd_tot > TO_DATE ( '01-01-1999', 'dd-mm-yyyy');
--v_datum := TRUNC (ADD_MONTHS (v_datum, 12), 'yyyy');
v_errormsg := 'Fout bepalen van-jaar!';
SELECT MIN (cnt_contract_looptijd_tot)
INTO v_datum
FROM uwva_v_rap_cnt_schoning;
v_jaar1 := TO_CHAR (v_datum, 'yyyy');
v_errormsg := 'Fout bepalen tot-jaar!';
SELECT MAX (cnt_contract_looptijd_tot)
INTO v_datum
FROM uwva_v_rap_cnt_schoning;
v_jaar2 := TO_CHAR (v_datum, 'yyyy');
-- Alle te schonen contracten(-dossiers) in 1x!
FOR r IN ccnt --(v_datum)
LOOP
BEGIN
v_errormsg := 'Fout schonen contract: ' || TO_CHAR (r.cnt_contract_key);
cnt.remove (r.cnt_contract_key);
v_count := v_count + 1;
-- Elke 1000 CNT een COMMIT!
IF MOD (v_count, 1000) = 0 THEN COMMIT; END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := v_errormsg || ' ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', v_errormsg, 'CNT-loop');
END;
END LOOP;
v_datum2 := SYSDATE;
--fac.writelog ('DAILY', 'S', '#Contracten geschoond (jaar=' || TO_CHAR (v_datum - 1, 'yyyy') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
IF v_jaar1 = v_jaar2
THEN
fac.writelog ('DAILY', 'S', '#Contracten geschoond (jaar=' || v_jaar1 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
ELSE
fac.writelog ('DAILY', 'S', '#Contracten geschoond (jaar=' || v_jaar1 || ' t/m ' || v_jaar2 || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_datum2 - v_datum1) * 24 * 60), 'FM990') || 'm');
END IF;
COMMIT;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog ('DAILY', 'E', 'Proces DAILY afgebroken!', v_errormsg);
COMMIT;
END;
/
-- UWVA#69803: Bezettingspercentage (WP-reserveringen uit catalogi 475 en 484)!
CREATE OR REPLACE VIEW UWVA_V_RAP_RES_WP_BZG
(
fclt_3d_locatie_key,
datum,
locatie,
ruimte,
catalogus,
beschikbaar,
ochtend,
middag,
heledag,
totaal
)
AS
SELECT l.alg_locatie_key,
resbes.dag,
l.alg_locatie_code locatie,
aog.alg_plaatsaanduiding ruimte,
rd.ins_discipline_omschrijving catalogus,
resbes.aant beschikbaar,
SUM (resbez.ochtend) ochtend,
SUM (resbez.middag) middag,
SUM (resbez.heledag) heledag,
SUM ((0.5 * (resbez.ochtend + resbez.middag)) + resbez.heledag) totaal
FROM ( SELECT p.dag,
rd.res_discipline_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
COUNT ( * ) aant
FROM res_deel rd, ins_deel d,
(SELECT TRUNC (SYSDATE + 7, 'iw') - LEVEL dag FROM DUAL CONNECT BY LEVEL <= TRUNC (SYSDATE + 7, 'iw') - TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')) p
WHERE rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
AND rd.res_deel_aanmaak < p.dag
AND (rd.res_deel_verwijder IS NULL OR rd.res_deel_verwijder >= p.dag)
GROUP BY p.dag,
rd.res_discipline_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key)) resbes,
(SELECT TRUNC (rrd.res_rsv_deel_tot) dag,
rd.res_discipline_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') < '13' THEN 1 ELSE 0 END ochtend,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') > '12' THEN 1 ELSE 0 END middag,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '12' AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '13' THEN 1 ELSE 0 END heledag
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d
WHERE rrd.res_rsv_deel_verwijder IS NULL
AND rrd.res_rsv_deel_dirtlevel = 0
AND TRUNC (rrd.res_rsv_deel_van) = TRUNC (rrd.res_rsv_deel_tot) -- Eendaags!
AND rrd.res_rsv_deel_tot BETWEEN TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') AND TRUNC (SYSDATE + 7, 'iw')
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'd') BETWEEN '2' AND '6'
--AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (rrd.res_rsv_deel_tot))
UNION ALL -- Meerdaagse voorzieningen?
SELECT p.dag,
rd.res_discipline_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
0 ochtend,
0 middag,
1 heledag
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d,
(SELECT TRUNC (SYSDATE + 7, 'iw') - LEVEL dag FROM DUAL CONNECT BY LEVEL <= TRUNC (SYSDATE + 7, 'iw') - TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')) p
WHERE rrd.res_rsv_deel_verwijder IS NULL
AND rrd.res_rsv_deel_dirtlevel = 0
AND TRUNC (rrd.res_rsv_deel_van) != TRUNC (rrd.res_rsv_deel_tot) -- Meerdaags!
AND rrd.res_rsv_deel_tot BETWEEN TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') AND TRUNC (SYSDATE + 7, 'iw')
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
--AND TO_CHAR (p.dag, 'd') BETWEEN '2' AND '6'
--AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (p.dag))) resbez,
AND p.dag BETWEEN TRUNC (rrd.res_rsv_deel_van) AND TRUNC (rrd.res_rsv_deel_tot)) resbez,
res_discipline rd, -- Ook verwijderde catalogi!
alg_v_allonrgoed_gegevens aog, -- Ook verwijderde ruimten!
alg_locatie l -- Ook verwijderde locaties!
WHERE resbes.dag = resbez.dag(+)
AND resbes.res_discipline_key = resbez.res_discipline_key(+)
AND resbes.alg_ruimte_key = resbez.alg_ruimte_key(+)
AND resbes.res_discipline_key = rd.ins_discipline_key(+)
AND resbes.alg_ruimte_key = aog.alg_ruimte_key
AND aog.alg_locatie_key = l.alg_locatie_key
GROUP BY l.alg_locatie_key,
resbes.dag,
l.alg_locatie_code,
aog.alg_plaatsaanduiding,
rd.ins_discipline_omschrijving,
resbes.aant;
/*
WITH rescatr -- Per catalogus/ruimte de reserveringen van WP-objecten!
AS ( SELECT resbes.dag,
--l.alg_locatie_key,
l.alg_locatie_code locatie,
aog.alg_plaatsaanduiding ruimte,
rd.ins_discipline_omschrijving catalogus,
SUM (resbes.aant) beschikbaar,
--SUM (resbez.aant) aantal_reserveringen,
--SUM (ROUND (resbes.uren, 2)) bes_uren,
--SUM (ROUND (resbez.uren, 2)) bez_uren
SUM (resbez.ochtend) ochtend,
SUM (resbez.middag) middag,
SUM (resbez.heledag) heledag,
SUM ((0.5 * (resbez.ochtend + resbez.middag)) + resbez.heledag) totaal
FROM ( SELECT p.dag, -- DISTINCT per definitie!
rd.res_discipline_key,
--rd.res_deel_key resource_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
COUNT (*) aant
FROM res_deel rd, ins_deel d,
(SELECT TRUNC (SYSDATE + 7, 'iw') - LEVEL dag FROM DUAL CONNECT BY LEVEL <= TRUNC (SYSDATE + 7, 'iw') - TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')) p
WHERE rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
AND rd.res_deel_aanmaak < p.dag
AND (rd.res_deel_verwijder IS NULL OR rd.res_deel_verwijder >= p.dag)
GROUP BY p.dag, -- DISTINCT per definitie!
rd.res_discipline_key,
--rd.res_deel_key resource_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key)) resbes,
( SELECT TRUNC (rrd.res_rsv_deel_tot) dag,
rd.res_discipline_key,
--rd.res_deel_key resource_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
1 aant,
--SUM (LEAST ((rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot)) * 24, 17)
-- - GREATEST ((rrd.res_rsv_deel_van - TRUNC (rrd.res_rsv_deel_van)) * 24, 8))
-- uren
CASE WHEN TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') < '13' THEN 1 ELSE 0 END ochtend,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') > '12' THEN 1 ELSE 0 END middag,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '12' AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '13' THEN 1 ELSE 0 END heledag
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d
WHERE rrd.res_rsv_deel_verwijder IS NULL
AND rrd.res_rsv_deel_dirtlevel = 0
AND TRUNC (rrd.res_rsv_deel_van) = TRUNC (rrd.res_rsv_deel_tot) -- Eendaags!
AND rrd.res_rsv_deel_tot BETWEEN TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') AND TRUNC (SYSDATE + 7, 'iw')
AND TO_CHAR (rrd.res_rsv_deel_tot, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (rrd.res_rsv_deel_tot))
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
UNION ALL -- Meerdaagse voorzieningen?
SELECT p.dag,
rd.res_discipline_key,
--rd.res_deel_key resource_key,
COALESCE (d.ins_alg_ruimte_key_org, d.ins_alg_ruimte_key) alg_ruimte_key,
1 aant,
--SUM (DECODE (p.dag,
-- TRUNC (rrd.res_rsv_deel_van), 17 - GREATEST ((rrd.res_rsv_deel_van - TRUNC (rrd.res_rsv_deel_van)) * 24, 8),
-- TRUNC (rrd.res_rsv_deel_tot), LEAST ((rrd.res_rsv_deel_tot - TRUNC (rrd.res_rsv_deel_tot)) * 24, 17) - 8,
-- 9)) -- = 17-8
-- uren
CASE WHEN TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') < '13' THEN 1 ELSE 0 END ochtend,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') > '12' THEN 1 ELSE 0 END middag,
CASE WHEN TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '12' AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '13' THEN 1 ELSE 0 END heledag
FROM res_rsv_deel rrd, res_rsv_ruimte rrr, res_deel rd, ins_deel d,
(SELECT TRUNC (SYSDATE + 7, 'iw') - LEVEL dag FROM DUAL CONNECT BY LEVEL <= TRUNC (SYSDATE + 7, 'iw') - TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy')) p
WHERE rrd.res_rsv_deel_verwijder IS NULL
AND rrd.res_rsv_deel_dirtlevel = 0
AND TRUNC (rrd.res_rsv_deel_van) != TRUNC (rrd.res_rsv_deel_tot) -- Meerdaags!
AND rrd.res_rsv_deel_tot BETWEEN TRUNC (ADD_MONTHS (SYSDATE, -12), 'yyyy') AND TRUNC (SYSDATE + 7, 'iw')
--AND TO_CHAR (rrd.res_rsv_deel_van, 'hh24') < '17'
--AND TO_CHAR (rrd.res_rsv_deel_tot, 'hh24') > '08'
--AND rrd.bez_bezoekers_key IS NULL -- Geen parkeerplaatsen!
AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key(+)
AND rrr.res_status_fo_key(+) IN (1, 2) -- Optie/Definitief
AND rrd.res_deel_key = rd.res_deel_key
AND rd.res_discipline_key IN (475, 484) -- Werkplek+Flexplek
AND rd.res_ins_deel_key = d.ins_deel_key
AND COALESCE (d.ins_alg_ruimte_type_org, d.ins_alg_ruimte_type) = 'R' -- Noodzakelijk?
AND p.dag BETWEEN TRUNC (rrd.res_rsv_deel_van) AND TRUNC (rrd.res_rsv_deel_tot)
AND TO_CHAR (p.dag, 'd') BETWEEN '2' AND '6'
AND NOT EXISTS (SELECT 1 FROM mld_vrije_dagen WHERE TRUNC (mld_vrije_dagen_datum) = TRUNC (p.dag))) resbez,
res_discipline rd, -- Ook verwijderde catalogi!
alg_v_allonrgoed_gegevens aog, -- Ook verwijderde ruimten!
alg_locatie l -- Ook verwijderde locaties!
WHERE resbes.dag = resbez.dag(+)
AND resbes.res_discipline_key = resbez.res_discipline_key(+)
--AND resbes.resource_key = resbez.resource_key(+)
AND resbes.alg_ruimte_key = resbez.alg_ruimte_key(+)
AND resbes.res_discipline_key = rd.ins_discipline_key(+)
AND resbes.alg_ruimte_key = aog.alg_ruimte_key
AND aog.alg_locatie_key = l.alg_locatie_key
--AND resbes.uren > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van reserveerbare ruimte = res_ruimte)!
--AND COALESCE (resbez.uren, 1) > 0 -- Soms 0 of zelfs negatief bij vreemde/gelijke begin- en eindtijden (van res_rsv_ruimte/deel)!
GROUP BY resbes.dag,
--l.alg_locatie_key,
l.alg_locatie_code,
aog.alg_plaatsaanduiding,
rd.ins_discipline_omschrijving)
SELECT dag,
locatie,
ruimte,
catalogus,
ochtend,
middag,
heledag,
totaal
FROM rescatr;
*/
/*
SELECT loc.alg_locatie_key, nl.dag, nl.catalogus,
loc.locatie_oms,
TO_CHAR (nl.ant_nl, '999990'),
TO_CHAR (loc.ant_loc, '999990'),
TO_CHAR (100 * nl.bzg_nl, '990') || '%',
TO_CHAR (100 * loc.bzg_loc, '990') || '%'
FROM ( SELECT dag, catalogus, SUM (aantal_reserveringen) ant_nl, SUM (COALESCE (bez_uren, 0)) / SUM (bes_uren) bzg_nl
FROM rescatl
GROUP BY dag, catalogus) nl
LEFT JOIN (SELECT dag, catalogus, alg_locatie_key, locatie_oms, aantal_reserveringen ant_loc, COALESCE (bez_uren, 0) / bes_uren bzg_loc
FROM rescatl) loc
ON nl.dag = loc.dag AND nl.catalogus = loc.catalogus;
*/
-- UWVA#71759: Rapportage Locatie-Dienst-Bedrijf!
CREATE OR REPLACE VIEW UWVA_V_RAP_LOC_DIENST_BEDR
(
district,
locatie_key,
locatie_code,
locatie_oms,
dienst,
relatie,
padres,
ppostcode,
pplaats,
pland,
badres,
bpostcode,
bplaats,
bland,
telefoon,
email,
l,
u,
c,
h,
kanaal_type,
kanaal_opdrachttype,
kanaal_url,
kanaal_xsl,
vakgroeptype,
vakgroep,
standaardmelding,
behandelgroep_naam,
behandelgroep_oms
)
AS
SELECT d.alg_district_omschrijving district,
l.alg_locatie_key,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
dst.prs_dienst_omschrijving dienst,
b.prs_bedrijf_naam,
b.prs_bedrijf_post_adres,
b.prs_bedrijf_post_postcode,
b.prs_bedrijf_post_plaats,
b.prs_bedrijf_post_land,
b.prs_bedrijf_bezoek_adres,
b.prs_bedrijf_bezoek_postcode,
b.prs_bedrijf_bezoek_plaats,
b.prs_bedrijf_bezoek_land,
b.prs_bedrijf_telefoon,
b.prs_bedrijf_email,
b.prs_bedrijf_leverancier l,
b.prs_bedrijf_uitvoerende u,
b.prs_bedrijf_contract c,
b.prs_bedrijf_huurder h,
ba.prs_bedrijfadres_type kanaal_type,
DECODE (ba.prs_bedrijfadres_type, 'O', DECODE (ot.mld_typeopdr_key, NULL, 'Overige', ot.mld_typeopdr_omschrijving), NULL) kanaal_opdrachttype,
ba.prs_bedrijfadres_url kanaal_url,
ba.prs_bedrijfadres_xsl kanaal_xsl,
sd.ins_srtdiscipline_omschrijving,
md.ins_discipline_omschrijving,
sm.mld_stdmelding_omschrijving,
bg.mld_behandelgroep_naam,
bg.mld_behandelgroep_oms
FROM (SELECT prs_bedrijf_key, prs_dienst_key, alg_locatie_key
FROM prs_bedrijfdienstlocatie
WHERE alg_locatie_key IS NOT NULL
UNION
SELECT bdl.prs_bedrijf_key, bdl.prs_dienst_key, g.alg_locatie_key
FROM prs_bedrijfdienstlocatie bdl, alg_gebouw g
WHERE bdl.alg_gebouw_key = g.alg_gebouw_key
UNION
SELECT bdl.prs_bedrijf_key, bdl.prs_dienst_key, l.alg_locatie_key
FROM prs_bedrijfdienstlocatie bdl, alg_locatie l
WHERE bdl.alg_locatie_key IS NULL AND bdl.alg_gebouw_key IS NULL) bdl,
alg_locatie l,
alg_district d,
prs_dienst dst,
prs_v_aanwezigbedrijf b,
prs_bedrijfadres ba,
mld_typeopdr ot,
(SELECT *
FROM mld_stdmelding
WHERE COALESCE (mld_stdmelding_verwijder, mld_stdmelding_vervaldatum, SYSDATE) > TRUNC (SYSDATE)) sm,
mld_discipline md,
ins_srtdiscipline sd,
mld_disc_params dp,
mld_behandelgroep bg
WHERE bdl.alg_locatie_key = l.alg_locatie_key
AND COALESCE (l.alg_locatie_verwijder, l.alg_locatie_vervaldatum, SYSDATE) > TRUNC (SYSDATE)
AND l.alg_district_key = d.alg_district_key
AND bdl.prs_dienst_key = dst.prs_dienst_key
AND bdl.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = ba.prs_bedrijf_key(+)
AND ba.mld_typeopdr_key = ot.mld_typeopdr_key(+)
AND dst.prs_dienst_key = sm.prs_dienst_key(+)
AND sm.mld_ins_discipline_key = md.ins_discipline_key(+)
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
AND md.ins_discipline_key = dp.mld_ins_discipline_key(+)
AND dp.mld_behandelgroep_key = bg.mld_behandelgroep_key(+);
-- UWVA#77362: QR-codes/Verbeteren klantreis!
CREATE OR REPLACE VIEW UWVA_V_RAP_QRC
AS
SELECT b.fac_bookmark_naam || '|' || pa.alg_plaatsaanduiding hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Plaats' gekoppeld_aan,
l.alg_locatie_omschrijving fclt_f_locatie,
pa.alg_plaatsaanduiding || ' / ' || r.alg_ruimte_omschrijving fclt_f_plaats,
--NULL fclt_f_persoon,
pa.alg_plaatsaanduiding fclt_f_identificatie,
l.alg_locatie_key fclt_3d_locatie_key,
--'R' alg_onroerendgoed_type,
r.alg_ruimte_key alg_onroerendgoed_keys,
NULL ins_deel_key,
NULL res_ruimte_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/MELDING.ASP'
--AND INSTR (UPPER (fac_bookmark_query), 'STDM_KEYS=') > 0
AND INSTR (fac_bookmark_id, 'dQ2oGB1GCAdm13yV') > 0) b, -- Bookmark tbv. ruimtemeldingen SANITAIR!
alg_v_aanwezigruimte r,
alg_verdieping v,
alg_gebouw g,
alg_locatie l,
alg_v_plaatsaanduiding pa
WHERE r.alg_srtruimte_key = 306 -- Sanitair!
AND r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND g.alg_locatie_key = l.alg_locatie_key
AND pa.alg_onroerendgoed_type = 'R'
AND r.alg_ruimte_key = pa.alg_onroerendgoed_keys
UNION ALL
SELECT b.fac_bookmark_naam || '|' || d.ins_deel_omschrijving hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Plaats' gekoppeld_aan,
l.alg_locatie_omschrijving fclt_f_locatie,
o.alg_plaatsaanduiding fclt_f_plaats,
--NULL fclt_f_persoon,
d.ins_deel_omschrijving fclt_f_identificatie,
l.alg_locatie_key fclt_3d_locatie_key,
--d.ins_alg_ruimte_type alg_onroerendgoed_type,
d.ins_alg_ruimte_key alg_onroerendgoed_keys,
d.ins_deel_key,
NULL res_ruimte_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
--AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0
AND INSTR (fac_bookmark_id, 'KIx4a1nTxSUEMVU-') > 0) b, -- Bookmark tbv. objectmeldingen KOFFIEAUTOMAAT!
ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
--ins_discipline dd,
alg_locatie l,
ins_v_alg_overzicht o
--mld_stdmelding sm,
--mld_stdmelding_srtinst smsd
WHERE d.ins_srtdeel_key IN (258830) -- 454=Automaten/1232=Koffieautomaat/258830=Koffieautomaat
AND d.ins_deel_actief = 1
AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > SYSDATE)
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
--AND sg.ins_discipline_key = dd.ins_discipline_key
AND d.ins_deel_parent_key IS NULL
AND d.ins_alg_ruimte_type IN ('R') --TODO:IN ('T', 'R', 'W')
AND d.ins_alg_locatie_key = l.alg_locatie_key
AND d.ins_alg_ruimte_type = o.alg_onroerendgoed_type
AND d.ins_alg_ruimte_key = o.alg_onroerendgoed_keys
--AND sm.mld_stdmelding_key = smsd.mld_stdmelding_key
--AND smsd.ins_srtinstallatie_key = DECODE (smsd.ins_srtinstallatie_niveau, 'S', sd.ins_srtdeel_key, 'G', sg.ins_srtgroep_key, 'D', dd.ins_discipline_key)
UNION ALL
SELECT b.fac_bookmark_naam || '|' || l.alg_locatie_code || rr.res_ruimte_nr hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--NULL gekoppeld_aan,
l.alg_locatie_omschrijving fclt_f_locatie,
l.alg_locatie_code || ' / ' || rr.res_ruimte_nr fclt_f_plaats,
--NULL fclt_f_persoon,
rr.res_ruimte_nr fclt_f_identificatie,
l.alg_locatie_key fclt_3d_locatie_key,
--NULL alg_onroerendgoed_type,
NULL alg_onroerendgoed_keys,
NULL ins_deel_key,
rr.res_ruimte_key,
b.fac_bookmark_id
FROM --fac_bookmark b,
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
--AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/RESERVERINGEN.ASP'
AND INSTR (fac_bookmark_id, '3XaYsCdQbN36seGf') > 0) b, -- Bookmark tbv. ruimtereserveringen VERGADERING!
res_ruimte rr,
( SELECT res_ruimte_key, MAX (alg_ruimte_key) alg_ruimte_key
FROM res_alg_ruimte
WHERE res_alg_ruimte_verwijder IS NULL
GROUP BY res_ruimte_key) rar,
alg_ruimte r,
ins_v_alg_overzicht o,
alg_locatie l
WHERE rr.res_ruimte_verwijder IS NULL
AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > SYSDATE)
AND rr.res_discipline_key IN (89, 276, 492, 500) -- Vergaderruimte/Video-overleg/Vergaderruimte Hybride/Kolf- en gebedsruimte
AND rr.res_ruimte_key = rar.res_ruimte_key
AND rar.alg_ruimte_key = r.alg_ruimte_key
AND o.alg_onroerendgoed_type = 'R'
AND r.alg_ruimte_key = o.alg_onroerendgoed_keys
AND o.alg_locatie_key = l.alg_locatie_key
;
/*
UNION ALL
SELECT b.fac_bookmark_naam || '|' || d.ins_deel_omschrijving hide_f_sort,
b.fac_bookmark_naam fclt_f_bookmark,
--'Persoon' gekoppeld_aan,
NULL fclt_f_locatie,
NULL fclt_f_plaats,
--pf.prs_perslid_naam_full fclt_f_persoon,
d.ins_deel_omschrijving fclt_f_identificatie,
NULL fclt_3d_locatie_key,
--NULL alg_onroerendgoed_type,
NULL alg_onroerendgoed_keys,
d.ins_deel_key,
b.fac_bookmark_id hide_f_bookmark_id
FROM --fac_bookmark b,
(SELECT fac_bookmark_naam, fac_bookmark_id
FROM fac_bookmark
WHERE (fac_bookmark_expire IS NULL OR fac_bookmark_expire > SYSDATE)
AND UPPER (TRIM (fac_bookmark_path)) = 'APPL/PDA/INS_DEEL.ASP'
AND INSTR (UPPER (fac_bookmark_query), 'STDMKINA=') > 0) b, -- Bookmark tbv. objectmeldingen PERSOONSGEBONDEN!
ins_v_aanwezigdeel d,
ins_srtdeel sd,
ins_srtgroep sg,
ins_discipline dd,
prs_v_perslid_fullnames pf
--mld_stdmelding sm,
--mld_stdmelding_srtinst smsd
WHERE 1 = 1 --d.ins_srtdeel_key IN (-1)
AND d.ins_srtdeel_key = sd.ins_srtdeel_key
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = dd.ins_discipline_key
AND d.ins_deel_parent_key IS NULL
AND d.ins_alg_ruimte_type IN ('P')
AND d.ins_alg_ruimte_key = pf.prs_perslid_key
--AND sm.mld_stdmelding_key = smsd.mld_stdmelding_key
--AND smsd.ins_srtinstallatie_key = DECODE (smsd.ins_srtinstallatie_niveau, 'S', sd.ins_srtdeel_key, 'G', sg.ins_srtgroep_key, 'D', dd.ins_discipline_key)
;
*/
-- UWVA#88120: KPI per kwartaal+domein!
/*
1843 Hospitality & Veiligheid
1844 Gebouwbeheer
1845 Eten & Drinken
*/
CREATE OR REPLACE VIEW UWVA_V_UDR_MLD_DOMEIN
AS
WITH
domeinsm
AS
(SELECT ut.fac_usrtab_key domein_key,
ut.fac_usrtab_omschrijving domein,
ud.fac_usrdata_aanmaak,
sm.mld_stdmelding_key,
sm.mld_stdmelding_omschrijving,
sm.mld_ins_discipline_key
FROM fac_usrtab ut, fac_v_aanwezigusrdata ud, mld_stdmelding sm
WHERE ut.fac_usrtab_key IN (1843, 1844, 1845) -- Hospitality & Veiligheid/Gebouwbeheer/Eten & Drinken
AND ut.fac_usrtab_key = ud.fac_usrtab_key
AND fac.safe_to_number (ud.fac_usrdata_code) = sm.mld_stdmelding_key)
SELECT x.domein_key,
x.domein,
--TO_CHAR (x.mldafm), 'yyyy-q') kwartaal,
x.ins_srtdiscipline_omschrijving vakgroeptype,
x.ins_discipline_omschrijving vakgroep,
x.mld_stdmelding_omschrijving soortmelding,
x.alg_regio_omschrijving regio,
x.alg_district_omschrijving district,
x.alg_locatie_code locatiecode,
x.mld_melding_key melding_key,
x.ins_srtdiscipline_prefix || TO_CHAR (x.mld_melding_key) meldingnr,
x.mld_melding_datum mldnew,
x.mld_statuses_omschrijving status,
TO_CHAR (x.acp_tijdsduur) || x.acp_eenheid mldacp_sla,
x.mld_melding_acceptdatum_std mldacp_std,
TO_CHAR (x.afm_tijdsduur) || x.afm_eenheid mldafm_sla,
x.mld_melding_einddatum_std mldafm_std,
x.mldacp,
x.mldafm,
DECODE (SIGN (COALESCE (x.mldacp, x.mldafm) - x.mld_melding_acceptdatum_std), -1, 1, 0) acp_optijd,
DECODE (SIGN (x.mldafm - x.mld_melding_einddatum_std), -1, 1, 0) afm_optijd
FROM (SELECT m.mld_melding_key,
dsm.domein_key,
dsm.domein,
sd.ins_srtdiscipline_prefix,
sd.ins_srtdiscipline_omschrijving,
md.ins_discipline_omschrijving,
dsm.mld_stdmelding_omschrijving,
m.mld_melding_datum,
ms.mld_statuses_omschrijving,
r.alg_regio_omschrijving,
d.alg_district_omschrijving,
l.alg_locatie_key,
l.alg_locatie_code,
m.mld_melding_t_accepttijd.tijdsduur acp_tijdsduur,
m.mld_melding_t_accepttijd.eenheid acp_eenheid,
m.mld_melding_acceptdatum_std,
m.mld_melding_t_uitvoertijd.tijdsduur afm_tijdsduur,
m.mld_melding_t_uitvoertijd.eenheid afm_eenheid,
m.mld_melding_einddatum_std,
fac.gettrackingdate ('MLDACP', m.mld_melding_key) mldacp,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key) mldafm
FROM mld_melding m,
domeinsm dsm,
mld_discipline md,
ins_srtdiscipline sd,
mld_statuses ms,
alg_locatie l,
alg_district d,
alg_regio r
WHERE m.mld_stdmelding_key = dsm.mld_stdmelding_key
AND dsm.mld_ins_discipline_key = md.ins_discipline_key
AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
AND m.mld_melding_datum > GREATEST (TRUNC (dsm.fac_usrdata_aanmaak, 'q'), TRUNC (ADD_MONTHS (SYSDATE, -36), 'yyyy'))
AND m.mld_melding_status = ms.mld_statuses_key
AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
AND l.alg_district_key = d.alg_district_key(+)
AND d.alg_regio_key = r.alg_regio_key(+)) x;
CREATE OR REPLACE VIEW UWVA_V_RAP_MLD_DOMEIN_KW
AS
SELECT x.domein_key,
x.domein,
--TO_CHAR (x.mldafm, 'yyyy-q') kwartaal,
TO_CHAR (x.mldafm, 'yyyy-q') || DECODE (TO_CHAR (x.mldafm, 'yyyy-q'), TO_CHAR (SYSDATE, 'yyyy-q'), '*', '') kwartaal,
x.locatiecode gebied,
x.vakgroep,
'95%' norm_sla,
COUNT (*) aantal,
SUM (x.acp_optijd) acp_optijd,
ROUND ((SUM (x.acp_optijd) / COUNT (*)) * 100, 2) acp_perc,
SUM (x.afm_optijd) afm_optijd,
ROUND ((SUM (x.afm_optijd) / COUNT (*)) * 100, 2) afm_perc
FROM uwva_v_udr_mld_domein x
WHERE x.mldafm IS NOT NULL
GROUP BY x.domein_key,
x.domein,
TO_CHAR (x.mldafm, 'yyyy-q'),
x.locatiecode,
x.vakgroep
UNION ALL
SELECT x.domein_key,
x.domein,
--TO_CHAR (x.mldafm, 'yyyy-q') kwartaal,
TO_CHAR (x.mldafm, 'yyyy-q') || DECODE (TO_CHAR (x.mldafm, 'yyyy-q'), TO_CHAR (SYSDATE, 'yyyy-q'), '*', '') kwartaal,
'*** Landelijk ***' gebied,
x.vakgroep,
'95%' norm_sla,
COUNT (*) aantal,
SUM (x.acp_optijd) acp_optijd,
ROUND ((SUM (x.acp_optijd) / COUNT (*)) * 100, 2) acp_perc,
SUM (x.afm_optijd) afm_optijd,
ROUND ((SUM (x.afm_optijd) / COUNT (*)) * 100, 2) afm_perc
FROM uwva_v_udr_mld_domein x
WHERE x.mldafm IS NOT NULL
GROUP BY x.domein_key,
x.domein,
TO_CHAR (x.mldafm, 'yyyy-q'),
'Landelijk',
x.vakgroep;
------ payload end ------
SET DEFINE OFF
BEGIN adm.systrackscriptId ('$Id$', 0); END;
/
COMMIT;
SET ECHO OFF
SPOOL OFF
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile
Reference in New Issue View Git Blame Copy Permalink