admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
91d4fea5d79e5b9249948098f4e34773719850b7
Customer/BLOS/blos.sql
Jos Migo 91d4fea5d7 BLOS#79136 -- Systematiek Locatieleiders en Werkplekkoppelingen - HERZIEN 
svn path=/Customer/trunk/; revision=62220
2023-10-17 09:01:04 +00:00

2395 lines
97 KiB
SQL
Raw Blame History

--
-- $Id$
--
-- Script containing customer specific db-configuration for BLOS.
DEFINE thisfile = 'BLOS.SQL'
DEFINE dbuser = '^BLOS'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
---------------------------------------
SET DEFINE OFF
------ payload begin ------
-- Mail2Melding - Basis uit SVRZ overgenomen:
-- - SERVICEDESK -: key=1=Melding via mail - Nog te rubriceren (servicedesk@blos.facilitor-test.nl)
CREATE OR REPLACE PROCEDURE BLOS_processemail (
pfrom IN VARCHAR2,
pto IN VARCHAR2,
psubject IN VARCHAR2,
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER)
AS
c_onbekend_key NUMBER (10) := 221; -- Melder onbekend
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_exist_ticket VARCHAR2 (255) := '';
v_perslid_key NUMBER (10);
v_kostenplaats_key NUMBER (10);
v_locatie_key NUMBER (10);
v_discipline_key NUMBER (10);
v_stdmelding_key NUMBER (10);
v_melding_key NUMBER (10);
v_folder_kkey NUMBER (10);
v_count NUMBER (10);
v_count_wp NUMBER (10);
BEGIN
CASE
WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
THEN
-- Bepaal de melder/noteur op basis van e-mail adres zoals in pfrom?
----- Voor BLOS nog inpassen = KOSTENPLAATS van het GEBOUW!!!!
v_errormsg := 'Fout bepalen melder ' || COALESCE (pfrom, '???');
SELECT COUNT (*), max(prs_perslid_key)
INTO v_count, v_perslid_key
FROM prs_v_aanwezigperslid
WHERE UPPER (prs_perslid_email) LIKE UPPER (pfrom) || '%';
-- Als er persoon gevonden is, dan ff checken of er ook werkplekkoppelingen onder zijn aangemaakt
IF v_count = 1
THEN
SELECT COUNT (*)
INTO v_count_wp
FROM prs_perslidwerkplek
WHERE prs_perslid_key = v_perslid_key;
END IF;
IF v_count = 1 AND v_count_wp > 0
THEN
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, MIN (wpg.alg_locatie_key)
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a,
(SELECT pw.prs_perslid_key, pw.prs_werkplek_key
FROM prs_perslidwerkplek pw
WHERE NOT EXISTS
(SELECT 1
FROM prs_perslidwerkplek
WHERE prs_perslid_key = pw.prs_perslid_key
AND prs_perslidwerkplek_key > pw.prs_perslidwerkplek_key)) pw,
prs_v_werkplekperslid_gegevens wpg
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND UPPER (p.prs_perslid_email) LIKE UPPER (pfrom) || '%'
AND p.prs_perslid_key = pw.prs_perslid_key(+)
AND pw.prs_werkplek_key = wpg.prs_werkplek_key(+)
GROUP BY p.prs_perslid_key, a.prs_kostenplaats_key;
ELSE -- Melder + Werkplek kan niet 1-duidig worden bepaald, dus Onbekend en 21= Iepenhoeve Hoofdkantoor!
SELECT p.prs_perslid_key, a.prs_kostenplaats_key, 36
INTO v_perslid_key, v_kostenplaats_key, v_locatie_key
FROM prs_v_aanwezigperslid p, prs_afdeling a
WHERE p.prs_afdeling_key = a.prs_afdeling_key
AND p.prs_perslid_key = c_onbekend_key;
END IF;
/*
v_errormsg := 'Fout bepalen bestaande melding';
v_exist_ticket := psubject;
IF REGEXP_INSTR (v_exist_ticket, '\d') > 0
THEN
v_exist_ticket := SUBSTR (v_exist_ticket, REGEXP_INSTR (v_exist_ticket, '\d')) || 'x'; -- Gedeelte vanaf eerste cijfer in v_exist_ticket plus 'x'!
v_exist_ticket := SUBSTR (v_exist_ticket, 1, REGEXP_INSTR (v_exist_ticket, '\D') - 1); -- Gedeelte tot eerste niet-cijfer in v_exist_ticket!
ELSE
v_exist_ticket := 'x';
END IF;
SELECT COUNT (*)
INTO v_count
FROM mld_melding
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
-- Om te voorkomen dat huisnummers in het Onderwerp resulteren in het
-- toevoegen van Notities, dit alleen doen voor nummers > 16000!
IF v_count = 1 AND fac.safe_to_number (v_exist_ticket) > 16000
THEN -- Notitie bij bestaande melding!
SELECT mld_stdmelding_key, mld_melding_key
INTO v_stdmelding_key, v_melding_key
FROM mld_melding
WHERE mld_melding_key = fac.safe_to_number (v_exist_ticket);
v_errormsg := 'Fout toevoegen notitie';
INSERT INTO mld_melding_note (mld_melding_key,
prs_perslid_key,
mld_melding_note_omschrijving,
mld_melding_note_flag)
VALUES (v_melding_key,
v_perslid_key,
pfrom || CHR (13) || CHR (10) || psubject || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
0);
INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
VALUES (psessionid, 'maillog', 'Notitie onder exist-melding ' || v_melding_key);
-- Vlaggetjes zetten zoals mld_edit_note.asp dat doet!
IF fac.getsetting ('mld_melding_actiecode') = 1
THEN
UPDATE mld_melding
SET mld_melding_actiecode = 1 + 128 -- BO + Attentie
WHERE mld_melding_key = v_melding_key;
END IF;
ELSE -- Nieuwe melding!
*/
-- Bepaal de afgesproken soortmelding met key=1=Melding via mail - Nog te rubriceren
v_errormsg := 'Fout bepalen soortmelding';
SELECT mld_ins_discipline_key, mld_stdmelding_key
INTO v_discipline_key, v_stdmelding_key
FROM mld_stdmelding
WHERE mld_stdmelding_key = 1;
-- 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 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,
mld_melding_behandelaar2_key,
mld_ins_discipline_key)
VALUES ('MLD',
4, -- email
v_locatie_key,
NULL, --v_onrgoed_keys,
SYSDATE,
pfrom || CHR (13) || CHR (10) || SUBSTR (pbody, 1, 2000),
v_stdmelding_key,
NULL,
v_kostenplaats_key,
v_perslid_key,
v_perslid_key,
NULL,
3, -- prio normaal
SUBSTR (psubject, 1, 80),
NULL,
NULL) -- BT Helpdesk I+A
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);
/*
END IF;
*/
-- Find the lowest volgnummer of the Folder-flexfield.
SELECT MIN (k1.mld_kenmerk_key)
INTO v_folder_kkey
FROM mld_stdmelding sm1, ins_tab_discipline td1, mld_kenmerk k1, mld_srtkenmerk sk1
WHERE sm1.mld_stdmelding_key = v_stdmelding_key
AND sm1.mld_ins_discipline_key = td1.ins_discipline_key
AND k1.mld_kenmerk_verwijder IS NULL
AND k1.mld_srtkenmerk_key = sk1.mld_srtkenmerk_key
AND sk1.mld_srtkenmerk_kenmerktype = 'M'
AND ((k1.mld_stdmelding_key = sm1.mld_stdmelding_key AND k1.mld_kenmerk_niveau = 'S')
OR (k1.mld_stdmelding_key = td1.ins_discipline_key AND k1.mld_kenmerk_niveau = 'D')
OR (k1.mld_stdmelding_key = td1.ins_srtdiscipline_key AND k1.mld_kenmerk_niveau = 'T')
OR (k1.mld_kenmerk_niveau = 'A')
)
AND NOT EXISTS
(SELECT 1
FROM mld_stdmelding sm2, ins_tab_discipline td2, mld_kenmerk k2, mld_srtkenmerk sk2
WHERE sm2.mld_stdmelding_key = v_stdmelding_key
AND sm2.mld_ins_discipline_key = td2.ins_discipline_key
AND k2.mld_kenmerk_verwijder IS NULL
AND k2.mld_srtkenmerk_key = sk2.mld_srtkenmerk_key
AND sk2.mld_srtkenmerk_kenmerktype = 'M'
AND ((k2.mld_stdmelding_key = sm2.mld_stdmelding_key AND k2.mld_kenmerk_niveau = 'S')
OR (k2.mld_stdmelding_key = td2.ins_discipline_key AND k2.mld_kenmerk_niveau = 'D')
OR (k2.mld_stdmelding_key = td2.ins_srtdiscipline_key AND k2.mld_kenmerk_niveau = 'T')
OR (k1.mld_kenmerk_niveau = 'A')
)
AND k2.mld_kenmerk_volgnummer < k1.mld_kenmerk_volgnummer);
IF v_folder_kkey IS NOT NULL
THEN
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 || '\' || v_folder_kkey || '\');
END IF;
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', 'BLOS_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;
/
-----------------------------------------------------------------------------------
-- Systematiek Locatieleiders en Regiomanagers en Werkplekkoppelingen ---
----- 1. Personenkaart vinlkboxen Cluster/Label - OUD - VERWIJDERD OKT 2023 ---
----- 2. Locatiekaart en gekoppelde locatieleider - NIEUW 2023-juli ---
----- 3. Regiomanagers en directeuren incl. budgethouderschap - NIEUW 2023-okt ---
-----------------------------------------------------------------------------------
--------------------------------------------------------------------
-- 2. Locatiekaart en gekoppelde locatieleider - NIEUW 2023-juli ---
--------------------------------------------------------------------
-- Inpassen systematiek om werkplekkoppelingen te genereren op basis locatiekaart => Gelijk aan oplossing GOKO
---- Bij GOKO zit deze in de IMPORT PERSLID... , bij BLOS apart houden omdat pas later een AFAS-intergratie komt, eerst apart houden WPMANAGER...
-- Lijst van Kostenplaatsen (die men in locatiekaart kan selecteren)
CREATE OR REPLACE VIEW blos_v_kostenplaatsen
(
PRS_KOSTENPLAATS_KEY,
PRS_KOSTENPLAATS_NR,
PRS_KOSTENPLAATS_VERWIJDER,
PRS_KOSTENPLAATS_ACTUEEL,
PRS_KOSTENPLAATS_OMSCHRIJVING
)
AS
SELECT k.prs_kostenplaats_key,
CASE
WHEN ( prs_kostenplaats_verwijder IS NOT NULL
OR ( prs_kostenplaats_eind IS NOT NULL
AND prs_kostenplaats_eind < TRUNC (SYSDATE)))
THEN
k.prs_kostenplaats_nr || ' - oud!'
ELSE
k.prs_kostenplaats_nr
END
prs_kostenplaats_nr,
k.prs_kostenplaats_verwijder,
CASE
WHEN ( prs_kostenplaats_verwijder IS NOT NULL
OR ( prs_kostenplaats_eind IS NOT NULL
AND prs_kostenplaats_eind < TRUNC (SYSDATE)))
THEN
NULL
ELSE
'oud!'
END
prs_kostenplaats_actueel,
k.prs_kostenplaats_omschrijving
FROM prs_kostenplaats k;
-- Lijst van Locatieleiders (tbv domeinview)
CREATE OR REPLACE VIEW blos_v_personenlijst_loc
(
PRS_PERSLID_KEY,
NAAM,
PERSONEELSNUMMER,
EMAIL,
PRS_PERSLID_VERWIJDER
)
AS
SELECT
p.prs_perslid_key,
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
END
naam,
p.prs_perslid_nr,
p.prs_perslid_email,
p.prs_perslid_verwijder
FROM
prs_perslid p,
prs_srtperslid sp,
prs_v_afdeling a,
prs_bedrijf b
WHERE
p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND sp.prs_srtperslid_key = 25 --- LOCATIEMANAGER
-- AND p.prs_perslid_verwijder IS NULL
ORDER BY p.prs_perslid_naam
;
-- Lijst van Regiomanagers ((Cluster/District) (tbv domeinview)
CREATE OR REPLACE VIEW blos_v_personenlijst_clus
(
PRS_PERSLID_KEY,
NAAM,
PERSONEELSNUMMER,
EMAIL,
PRS_PERSLID_VERWIJDER
)
AS
SELECT
p.prs_perslid_key,
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
END
naam,
p.prs_perslid_nr,
p.prs_perslid_email,
p.prs_perslid_verwijder
FROM
prs_perslid p,
prs_srtperslid sp,
prs_v_afdeling a,
prs_bedrijf b
WHERE
p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND sp.prs_srtperslid_key = 4181 --- REGIOEMANAGER
-- AND p.prs_perslid_verwijder IS NULL
ORDER BY p.prs_perslid_naam
;
-- Lijst van Regio-directeuren (tbv domeinview)
CREATE OR REPLACE VIEW blos_v_personenlijst_dir
(
PRS_PERSLID_KEY,
NAAM,
PERSONEELSNUMMER,
EMAIL,
PRS_PERSLID_VERWIJDER
)
AS
SELECT
p.prs_perslid_key,
CASE WHEN p.prs_perslid_tussenvoegsel IS NULL
THEN p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
ELSE p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ' ' || p.prs_perslid_naam || ' (' || sp.prs_srtperslid_omschrijving || ')'
END
naam,
p.prs_perslid_nr,
p.prs_perslid_email,
p.prs_perslid_verwijder
FROM
prs_perslid p,
prs_srtperslid sp,
prs_v_afdeling a,
prs_bedrijf b
WHERE
p.prs_afdeling_key = a.prs_afdeling_key
AND a.prs_bedrijf_key = b.prs_bedrijf_key
AND b.prs_bedrijf_key = 21 -- bedrijfs_key BLOS
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND sp.prs_srtperslid_key = 10701 --- REGIO-DIRECTEUR
-- AND p.prs_perslid_verwijder IS NULL
ORDER BY p.prs_perslid_naam
;
-- Lijst van Locatieleiders/Vervangers en de locaties waar men verantwoordelijk voor is)
CREATE OR REPLACE VIEW blos_v_locatiemanagers
(
PRS_PERSLID_KEY,
ALG_LOCATIE_KEY,
LOCATIEMANAGER,
LOCATIE,
VERVANGER,
PRS_PERSLID_VERWIJDER
)
AS
SELECT p.prs_perslid_key,
l.alg_locatie_key,
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving
locatiemanager,
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
locatie,
CASE WHEN ok.alg_kenmerk_key = 1163 THEN 'ja' ELSE 'nee' END
vervanger,
p.prs_perslid_verwijder
FROM prs_perslid p, prs_srtperslid sp, alg_onrgoedkenmerk ok, alg_locatie l
WHERE fac.safe_to_number(ok.alg_onrgoedkenmerk_waarde) = p.prs_perslid_key
AND ok.alg_kenmerk_key IN (1162, 1163) -- locatieleider en vervanger
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
AND ok.alg_onrgoed_niveau = 'L' AND ok.alg_onrgoed_key = l.alg_locatie_key
AND l.alg_locatie_verwijder IS NULL
AND (TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate) OR l.alg_locatie_vervaldatum IS NULL )
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
GROUP BY p.prs_perslid_key, l.alg_locatie_key,
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving,
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving,
CASE WHEN ok.alg_kenmerk_key = 1163 THEN 'ja' ELSE 'nee' END,
p.prs_perslid_verwijder ;
-- Lijst van Locatiemanagers + Cluster-managers en de Werkplekkoppeling die ze in hun personenkaart hebben
CREATE OR REPLACE VIEW blos_v_locatiemanagers_wp
(
PRS_PERSLID_KEY,
ALG_LOCATIE_KEY,
NAAM,
LOCATIE_WP,
PRS_WERKPLEK_KEY
)
AS
SELECT wp.prs_perslid_key,
onr.alg_locatie_key,
p.prs_perslid_naam_friendly,
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
locatie,
w.prs_werkplek_key
FROM (
SELECT prs_perslid_key
FROM (SELECT *
FROM blos_v_personenlijst_loc
) x
GROUP BY x.prs_perslid_key
) v,
prs_v_perslid_fullnames p, prs_perslidwerkplek wp, prs_werkplek w, alg_ruimte r, alg_v_onrgoed_boom onr, alg_locatie l
WHERE v.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = wp.prs_perslid_key
AND wp.prs_werkplek_key = w.prs_werkplek_key
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_ruimte_key = onr.alg_ruimte_key
AND onr.alg_locatie_key = l.alg_locatie_key
ORDER BY wp.prs_perslid_key
;
-- Nog 2 bronviews nodig voor procedure:
--- Bronview: Alle locaties met haar kostenplaats(en): blos_v_locaties_kp
--- Bronview: Alle werkplek-koppeling per locatiemanager en de kp's die daarbij vanuit locatiekaart bijhoren: blos_v_locaties_wp_kp
-- BRONVIEW: Alle locaties met haar kostenplaats(en)
CREATE OR REPLACE VIEW blos_v_locaties_kp
(
alg_locatie_key,
alg_locatie_omschrijving,
prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
)
AS
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1140 -- kostenplaats-1
UNION
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1141 -- kostenplaats-2
UNION
SELECT alg_locatie_key,
alg_locatie_omschrijving,
kw.alg_onrgoedkenmerk_waarde prs_kostenplaats_key,
prs_kostenplaats_nr,
prs_kostenplaats_eind,
prs_kostenplaats_verwijder
FROM alg_locatie l, alg_onrgoedkenmerk kw, prs_kostenplaats kp
WHERE kw.alg_onrgoed_key = l.alg_locatie_key
AND fac.safe_to_number (kw.alg_onrgoedkenmerk_waarde) =
kp.prs_kostenplaats_key
AND alg_onrgoed_niveau = 'L'
AND kw.alg_kenmerk_key = 1142 -- kostenplaats-3
;
-- BRONVIEW: Alle werkplek-koppeling per locatiemanager en de kp's die daarbij vanuit locatiekaart bijhoren
CREATE OR REPLACE VIEW blos_v_locaties_wp_kp
(
prs_perslid_key,
prs_perslid_naam,
prs_srtperslid_omschrijving,
prs_perslidwerkplek_key,
alg_locatie_omschrijving,
alg_locatie_key,
prs_kostenplaats_key,
prs_kostenplaats_nr
)
AS
SELECT v.prs_perslid_key,
p.prs_perslid_naam,
sp.prs_srtperslid_omschrijving,
v.prs_perslidwerkplek_key,
l.alg_locatie_omschrijving,
lkp.alg_locatie_key,
lkp.prs_kostenplaats_key,
lkp.prs_kostenplaats_nr
FROM prs_v_werkplekperslid_gegevens v,
alg_locatie l,
prs_perslid p,
prs_srtperslid sp,
blos_v_locaties_kp lkp
WHERE v.prs_perslid_key = p.prs_perslid_key
AND p.prs_srtperslid_key = sp.prs_srtperslid_key
AND v.alg_locatie_key = l.alg_locatie_key
AND v.alg_locatie_key = lkp.alg_locatie_key(+)
AND prs_srtperslid_upper = 'LOCATIEMANAGER';
--- DE PROCEDURE om voor de Locatiemanagers van de CLUSTERS de juiste CLUSTER-LOCATIES te koppelen als werkplek
CREATE OR REPLACE VIEW blos_v_export_wp_loc_manager
(
result,
result_order
)
AS
SELECT '"SYNC - Werkplekkoppeling Locatiemanager (incl. zijn/haar Mandaten)"'
|| ';"Uitgevoerd"',
0
FROM DUAL
UNION
SELECT 'ERROR: Datum '|| TO_CHAR(imp_log_datum) || ' - ' || imp_log_omschrijving || ' - ' || imp_log_hint,
1
FROM imp_log
WHERE imp_log_applicatie = 'WP_LOC_MANAGER' ;
CREATE OR REPLACE PROCEDURE blos_select_wp_loc_manager (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
-- Werkplekkoppelingen toevoegen
CURSOR c_loc_wp -- Voor updaten van locatieleiders (werkplek-koppelingen)
IS
SELECT v.prs_perslid_key,
v.alg_locatie_key,
v.prs_werkplek_key,
v.actie
FROM (SELECT man.prs_perslid_key,
man.alg_locatie_key,
NULL prs_werkplek_key,
'toevoegen' actie
FROM blos_v_locatiemanagers man
WHERE NOT EXISTS
(SELECT *
FROM blos_v_locatiemanagers_wp wp
WHERE wp.alg_locatie_key =
man.alg_locatie_key
AND wp.prs_perslid_key =
man.prs_perslid_key)
UNION
SELECT wp.prs_perslid_key,
wp.alg_locatie_key,
wp.prs_werkplek_key,
'verwijderen' actie
FROM blos_v_locatiemanagers_wp wp
WHERE NOT EXISTS
(SELECT *
FROM blos_v_locatiemanagers man
WHERE man.alg_locatie_key =
wp.alg_locatie_key
AND man.prs_perslid_key =
wp.prs_perslid_key)
UNION
SELECT wp.prs_perslid_key,
wp.alg_locatie_key,
wp.prs_werkplek_key,
'ok' actie
FROM blos_v_locatiemanagers_wp wp,
blos_v_locatiemanagers man
WHERE man.alg_locatie_key = wp.alg_locatie_key
AND man.prs_perslid_key = wp.prs_perslid_key) v
ORDER BY 1, 2, 3;
CURSOR c_loc_kp -- Voor updaten van locatiemanagers (mandaten op kostenplaatsen)
IS
SELECT w.prs_perslid_key, w.alg_locatie_key, w.prs_kostenplaats_key
FROM ( SELECT v_prs.prs_perslid_key,
v_prs.alg_locatie_key,
v_kp.prs_kostenplaats_key
FROM blos_v_locatiemanagers v_prs, blos_v_locaties_kp v_kp
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
GROUP BY v_prs.prs_perslid_key,
v_prs.alg_locatie_key,
v_kp.prs_kostenplaats_key) w
ORDER BY 1, 2, 3;
CURSOR c_loc_kp_del -- Voor deleten van mandaten die niet meer van toepassing zijn
IS
SELECT pk.prs_perslid_key, pk.prs_perslidkostenplaats_key
FROM prs_perslidkostenplaats pk
WHERE
NOT EXISTS
( SELECT v_prs.prs_perslid_key,
v_kp.prs_kostenplaats_key
FROM blos_v_locatiemanagers v_prs,
blos_v_locaties_kp v_kp
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
AND v_prs.prs_perslid_key = pk.prs_perslid_key
AND v_kp.prs_kostenplaats_key = pk.prs_kostenplaats_key
GROUP BY v_prs.prs_perslid_key,
v_kp.prs_kostenplaats_key)
AND pk.prs_perslid_key IN (SELECT d.prs_perslid_key FROM blos_v_personenlijst_loc d)
ORDER BY 1, 2 ;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_mes VARCHAR2 (200);
oracle_err_num NUMBER;
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR2 (1000);
v_count NUMBER;
v_alg_ruimte_key NUMBER;
v_prs_perslidkostenplaats_key NUMBER (10);
v_teller_mandaat NUMBER (10);
BEGIN
v_count := 0;
FOR rec IN c_loc_wp
LOOP
BEGIN
-- Werkplekkoppelingen op basis van de locaties waar men locatieleider van is
v_aanduiding :=
'bijwerken werkplekkoppelingen locatiemanager - perslid_key:'
|| TO_CHAR (rec.prs_perslid_key);
IF rec.actie = 'toevoegen'
THEN
v_errorhint :=
'actie toevoegen werkplek - loc-key: '
|| TO_CHAR (rec.alg_locatie_key);
BEGIN
SELECT MIN (r.alg_ruimte_key)
INTO v_alg_ruimte_key
FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND r.alg_ruimte_verwijder IS NULL
AND v.alg_verdieping_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_locatie_key = rec.alg_locatie_key;
IF v_alg_ruimte_key IS NOT NULL
THEN
-- PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2, p_virtual IN NUMBER DEFAULT 0);
BEGIN
PRS.movetoruimte (rec.prs_perslid_key,
v_alg_ruimte_key,
'L',
1);
END;
END IF;
END;
END IF;
IF rec.actie = 'verwijderen'
THEN
v_errorhint :=
'actie verwijderen werkplek - loc-key: '
|| TO_CHAR (rec.alg_locatie_key);
DELETE prs_werkplek
WHERE prs_werkplek_key = rec.prs_werkplek_key;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname,
'E',
v_aanduiding || ' - ' || v_errormsg,
v_errorhint);
END;
END LOOP;
FOR rec IN c_loc_kp
LOOP
BEGIN
-- kostenplaatsen en mandaat
v_aanduiding :=
'bijwerken mandaten locatiemanager - perslid_key:'
|| TO_CHAR (rec.prs_perslid_key);
-- Alle mandaten goed inregelen
SELECT COUNT(*)
INTO v_teller_mandaat
FROM prs_perslidkostenplaats
WHERE prs_perslid_key = rec.prs_perslid_key
AND prs_kostenplaats_key = rec.prs_kostenplaats_key ;
IF v_teller_mandaat = 0
THEN
v_errorhint :=
'bijwerken kostenplaats-mandaat - kostenplaat_key'
|| TO_CHAR (rec.prs_kostenplaats_key);
INSERT INTO prs_perslidkostenplaats (
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage,
prs_perslid_key,
prs_kostenplaats_key)
VALUES (1,
1,
rec.prs_perslid_key,
rec.prs_kostenplaats_key);
END IF;
END;
END LOOP;
FOR rec IN c_loc_kp_del
LOOP
BEGIN
-- opschonen mandaten die niet meer geldig zijn
v_aanduiding :=
'verwijderen mandaten locatiemanager - perslid_key:'
|| TO_CHAR (rec.prs_perslid_key);
v_errorhint := 'verwijderen mandaten die niet meer geldig zijn';
DELETE FROM prs_perslidkostenplaats
WHERE prs_perslidkostenplaats_key =
rec.prs_perslidkostenplaats_key;
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
fac.writelog (p_applname,
'E',
v_errormsg,
v_aanduiding || ' - HINT: ' || v_errorhint);
END;
/
-----------------------------------------------------------------------------------
----- 3. Regiomanagers en directeuren incl. budgethouderschap - NIEUW 2023-okt ---
-----------------------------------------------------------------------------------
-- Lijst van regiomanagers en directeuren en de locaties die onder hun cluster(district) en regio vallen
CREATE OR REPLACE VIEW blos_v_regiomanagers
(
PRS_PERSLID_KEY,
ALG_LOCATIE_KEY,
REGIOMANAGER,
LOCATIE,
REGIODIRECTEUR,
PRS_PERSLID_VERWIJDER
)
AS
SELECT p.prs_perslid_key,
l.alg_locatie_key,
p.prs_perslid_naam || ' (' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_tussenvoegsel || ') - ' || sp.prs_srtperslid_omschrijving
regiomanager,
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
locatie,
CASE WHEN ok.alg_kenmerk_key = 1181 THEN 'ja' ELSE 'nee' END
directeur,
p.prs_perslid_verwijder
FROM prs_perslid p, prs_srtperslid sp, alg_onrgoedkenmerk ok, alg_locatie l, alg_district d
WHERE fac.safe_to_number(ok.alg_onrgoedkenmerk_waarde) = p.prs_perslid_key
AND ok.alg_kenmerk_key IN (1164, 1181) -- regiomanager en regiodirecteur
AND ok.alg_onrgoedkenmerk_verwijder IS NULL
AND ok.alg_onrgoed_niveau = 'D' AND ok.alg_onrgoed_key = d.alg_district_key
AND d.alg_district_key = l.alg_district_key
AND l.alg_locatie_verwijder IS NULL
AND (TRUNC(l.alg_locatie_vervaldatum) > TRUNC(sysdate) OR l.alg_locatie_vervaldatum IS NULL )
AND p.prs_srtperslid_key = sp.prs_srtperslid_key ;
-- Lijst van Regiomanagers + Regio-directeuren en de Werkplekkoppeling die ze in hun personenkaart hebben
CREATE OR REPLACE VIEW blos_v_regiomanagers_wp
(
PRS_PERSLID_KEY,
ALG_LOCATIE_KEY,
NAAM,
LOCATIE_WP,
PRS_WERKPLEK_KEY
)
AS
SELECT wp.prs_perslid_key,
onr.alg_locatie_key,
p.prs_perslid_naam_friendly,
l.alg_locatie_code || ' - ' || l.alg_locatie_omschrijving
locatie,
w.prs_werkplek_key
FROM (
SELECT prs_perslid_key
FROM (SELECT *
FROM blos_v_personenlijst_clus
UNION
SELECT *
FROM blos_v_personenlijst_dir
) x
GROUP BY x.prs_perslid_key
) v,
prs_v_perslid_fullnames p, prs_perslidwerkplek wp, prs_werkplek w, alg_ruimte r, alg_v_onrgoed_boom onr, alg_locatie l
WHERE v.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_key = wp.prs_perslid_key
AND wp.prs_werkplek_key = w.prs_werkplek_key
AND w.prs_alg_ruimte_key = r.alg_ruimte_key
AND r.alg_ruimte_key = onr.alg_ruimte_key
AND onr.alg_locatie_key = l.alg_locatie_key
ORDER BY wp.prs_perslid_key
;
CREATE OR REPLACE VIEW blos_v_export_wp_loc_regioman
(
result,
result_order
)
AS
SELECT '"SYNC - Werkplekkoppeling Regiomanager/Directeuren (incl. zijn/haar Mandaten)"'
|| ';"Uitgevoerd"',
0
FROM DUAL
UNION
SELECT 'ERROR: Datum '|| TO_CHAR(imp_log_datum) || ' - ' || imp_log_omschrijving || ' - ' || imp_log_hint,
1
FROM imp_log
WHERE imp_log_applicatie = 'WP_LOC_REGIOMAN' ;
;
CREATE OR REPLACE PROCEDURE blos_select_wp_loc_regioman (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2)
AS
-- Werkplekkoppelingen toevoegen
CURSOR c_loc_wp -- Voor updaten van regiomanagers en - directeuren (werkplek-koppelingen)
IS
SELECT v.prs_perslid_key,
v.alg_locatie_key,
v.prs_werkplek_key,
v.actie
FROM (SELECT man.prs_perslid_key,
man.alg_locatie_key,
NULL prs_werkplek_key,
'toevoegen' actie
FROM blos_v_regiomanagers man
WHERE NOT EXISTS
(SELECT *
FROM blos_v_regiomanagers_wp wp
WHERE wp.alg_locatie_key =
man.alg_locatie_key
AND wp.prs_perslid_key =
man.prs_perslid_key)
UNION
SELECT wp.prs_perslid_key,
wp.alg_locatie_key,
wp.prs_werkplek_key,
'verwijderen' actie
FROM blos_v_regiomanagers_wp wp
WHERE NOT EXISTS
(SELECT *
FROM blos_v_regiomanagers man
WHERE man.alg_locatie_key =
wp.alg_locatie_key
AND man.prs_perslid_key =
wp.prs_perslid_key)
UNION
SELECT wp.prs_perslid_key,
wp.alg_locatie_key,
wp.prs_werkplek_key,
'ok' actie
FROM blos_v_regiomanagers_wp wp,
blos_v_regiomanagers man
WHERE man.alg_locatie_key = wp.alg_locatie_key
AND man.prs_perslid_key = wp.prs_perslid_key) v
ORDER BY 1, 2, 3;
CURSOR c_loc_kp -- Voor updaten van regiomanagers en directeuren (mandaten op kostenplaatsen en voor regiomanagers ook budgethouders-schap)
IS
SELECT w.prs_perslid_key, w.alg_locatie_key, w.prs_kostenplaats_key,
CASE WHEN f1.prs_perslid_key IS NOT NULL THEN 'regiomanager'
WHEN f2.prs_perslid_key IS NOT NULL THEN 'regio-directeur'
ELSE ''
END
functie
FROM ( SELECT v_prs.prs_perslid_key,
v_prs.alg_locatie_key,
v_kp.prs_kostenplaats_key
FROM blos_v_regiomanagers v_prs, blos_v_locaties_kp v_kp
WHERE v_prs.alg_locatie_key = v_kp.alg_locatie_key
GROUP BY v_prs.prs_perslid_key,
v_prs.alg_locatie_key,
v_kp.prs_kostenplaats_key) w,
blos_v_personenlijst_clus f1 , -- regiomanagers
blos_v_personenlijst_dir f2 -- regiodirecteuren
WHERE w.prs_perslid_key = f1.prs_perslid_key(+)
AND w.prs_perslid_key = f2.prs_perslid_key(+)
ORDER BY 1, 2, 3;
CURSOR c_loc_kp_del -- Voor deleten van mandaten die niet meer van toepassing zijn
IS
SELECT pk.prs_perslid_key, pk.prs_perslidkostenplaats_key
FROM prs_perslidkostenplaats pk
WHERE NOT EXISTS
( SELECT v_prs.prs_perslid_key,
v_kp.prs_kostenplaats_key
FROM blos_v_regiomanagers v_prs,
blos_v_locaties_kp v_kp
WHERE v_prs.alg_locatie_key =
v_kp.alg_locatie_key
AND v_prs.prs_perslid_key = pk.prs_perslid_key
AND v_kp.prs_kostenplaats_key =
pk.prs_kostenplaats_key
GROUP BY v_prs.prs_perslid_key,
v_kp.prs_kostenplaats_key)
AND pk.prs_perslid_key IN ( SELECT prs_perslid_key
FROM blos_v_regiomanagers
GROUP BY prs_perslid_key)
ORDER BY 1, 2;
v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000);
oracle_err_mes VARCHAR2 (200);
oracle_err_num NUMBER;
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR2 (1000);
v_count NUMBER;
v_alg_ruimte_key NUMBER;
v_prs_perslidkostenplaats_key NUMBER (10);
v_teller_mandaat NUMBER(10);
v_prs_perslid_key NUMBER (10);
v_kostenplaats_actueel NUMBER(1);
BEGIN
v_count := 0;
FOR rec IN c_loc_wp
LOOP
BEGIN
-- Werkplekkoppelingen op basis van de locaties die onder het cluster/district of regio vallen waar men regiomanager/directeur van is
v_aanduiding :=
'bijwerken werkplekkoppelingen regiomanager/directeur - perslid_key:'
|| TO_CHAR (rec.prs_perslid_key);
IF rec.actie = 'toevoegen'
THEN
v_errorhint :=
'actie toevoegen werkplek - loc-key: '
|| TO_CHAR (rec.alg_locatie_key);
BEGIN
SELECT MIN (r.alg_ruimte_key)
INTO v_alg_ruimte_key
FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
WHERE r.alg_verdieping_key = v.alg_verdieping_key
AND v.alg_gebouw_key = g.alg_gebouw_key
AND r.alg_ruimte_verwijder IS NULL
AND v.alg_verdieping_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL
AND g.alg_locatie_key = rec.alg_locatie_key;
IF v_alg_ruimte_key IS NOT NULL
THEN
-- PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2, p_virtual IN NUMBER DEFAULT 0);
BEGIN
PRS.movetoruimte (rec.prs_perslid_key,
v_alg_ruimte_key,
'L',
1);
END;
END IF;
END;
END IF;
IF rec.actie = 'verwijderen'
THEN
v_errorhint :=
'actie verwijderen werkplek - loc-key: '
|| TO_CHAR (rec.alg_locatie_key);
DELETE prs_werkplek
WHERE prs_werkplek_key = rec.prs_werkplek_key;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.writelog (p_applname,
'E',
v_aanduiding || ' - ' || v_errormsg,
v_errorhint);
END;
END LOOP;
FOR rec IN c_loc_kp
LOOP
BEGIN
-- kostenplaatsen en budgethouders - voor regiomanagers het budgethouderschap op kostenplaats updaten indien nodig
v_aanduiding :=
'bijwerken budgethouder regiomanager/directeur - perslid_key '
|| TO_CHAR (rec.prs_perslid_key);
IF rec.functie = 'regiomanager'
THEN
v_errorhint :=
'check budgethouder op deze kostenplaats - kostenplaats_key '
|| TO_CHAR (rec.prs_kostenplaats_key);
-- check eers of er nu afwijkende budgethouder op KP zit.
SELECT MAX(prs_perslid_key)
INTO v_prs_perslid_key
FROM prs_kostenplaats
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key
AND prs_kostenplaats_verwijder IS NULL
AND (prs_kostenplaats_eind IS NULL OR prs_kostenplaats_eind > TRUNC(SYSDATE) ) ;
v_errorhint :=
'check kostenplaats actueel? - kostenplaats_key '
|| TO_CHAR (rec.prs_kostenplaats_key);
-- check of het een actuele kostenplaats is...
SELECT CASE WHEN (
prs_kostenplaats_verwijder IS NOT NULL
OR
( prs_kostenplaats_eind IS NOT NULL AND prs_kostenplaats_eind < TRUNC (SYSDATE))
)
THEN 0
ELSE 1 END
kp_actueel
INTO v_kostenplaats_actueel
FROM prs_kostenplaats
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key ;
-- updaten budgethouder als:
IF (v_prs_perslid_key IS NULL OR v_prs_perslid_key <> rec.prs_perslid_key) AND v_kostenplaats_actueel = 1
THEN
v_errorhint :=
'bijwerken budgethouder op kostenplaats - kostenplaats_key '
|| TO_CHAR (rec.prs_kostenplaats_key);
UPDATE prs_kostenplaats
SET prs_perslid_key = rec.prs_perslid_key
WHERE prs_kostenplaats_key = rec.prs_kostenplaats_key ;
-- Geen fac_tracking nodig. Mutatie wordt namelijk al via trigger met aud.auditaction weggeschreven
END IF;
END IF;
-- kostenplaatsen en mandaat - alle mandaten voor regiomanagers en directeuren van hun onderliggende locaties doorvoeren
v_aanduiding :=
'bijwerken mandaten regiomanager/directeur - perslid_key '
|| TO_CHAR (rec.prs_perslid_key);
-- Alle mandaten goed inregelen
SELECT COUNT(*)
INTO v_teller_mandaat
FROM prs_perslidkostenplaats
WHERE prs_perslid_key = rec.prs_perslid_key
AND prs_kostenplaats_key = rec.prs_kostenplaats_key ;
IF v_teller_mandaat = 0
THEN
v_errorhint :=
'bijwerken kostenplaats-mandaat - kostenplaat_key'
|| TO_CHAR (rec.prs_kostenplaats_key);
INSERT INTO prs_perslidkostenplaats (
prs_perslidkostenplaats_boeken,
prs_perslidkostenplaats_inzage,
prs_perslid_key,
prs_kostenplaats_key)
VALUES (1,
1,
rec.prs_perslid_key,
rec.prs_kostenplaats_key);
END IF;
END;
END LOOP;
FOR rec IN c_loc_kp_del
LOOP
BEGIN
-- opschonen mandaten die niet meer geldig zijn
v_aanduiding :=
'verwijderen mandaten regiomanager/directeur - perslid_key:'
|| TO_CHAR (rec.prs_perslid_key);
v_errorhint := 'verwijderen mandaten die niet meer geldig zijn';
DELETE FROM prs_perslidkostenplaats
WHERE prs_perslidkostenplaats_key =
rec.prs_perslidkostenplaats_key;
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes;
fac.writelog (p_applname,
'E',
v_errormsg,
v_aanduiding || ' - HINT: ' || v_errorhint);
END;
/
------------------------------------------------------------
---- EINDE - WP-KOPPELING IN BLOS --------------------------
------------------------------------------------------------
-- AFAS - KOPPELING
---- TEST 2022 - Met Anneke Knipscheer
CREATE OR REPLACE PROCEDURE blos_import_perslid (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
v_aantal_in_fclt NUMBER;
-- overige variabelen
v_prs_afdeling_key1 NUMBER(10);
v_prs_afdeling_upper2 VARCHAR2(15);
c_prs_afdeling_key NUMBER(10) := 251 ; -- Fallback-afdeling 'ONBEKEND'
v_alg_locatie_key NUMBER(10);
v_alg_locatie_afas VARCHAR(60);
v_alg_locatie_code VARCHAR2(10);
v_alg_gebouw_key NUMBER(10);
v_alg_gebouw_code VARCHAR2(12);
v_alg_verdieping_key NUMBER(10);
v_alg_verdieping_volgnr NUMBER(3);
v_alg_ruimte_key NUMBER(10);
v_alg_ruimte_nr VARCHAR2(20);
CURSOR c_email
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_email
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email IS NOT NULL
ORDER BY 1 ;
CURSOR c_login
IS
SELECT fac_imp_file_index, p.prs_perslid_key, p.prs_perslid_oslogin
FROM fac_imp_perslid i, prs_perslid p
WHERE fac_import_key = p_import_key
AND i.prs_perslid_nr = p.prs_perslid_nr AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_oslogin IS NOT NULL
ORDER BY 1 ;
CURSOR c_afd
IS
SELECT fac_imp_file_index, prs_kenmerk3, prs_srtperslid_omschrijving
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
CURSOR c_loc
IS
SELECT fac_imp_file_index, prs_kenmerk2
FROM fac_imp_perslid
WHERE fac_import_key = p_import_key ;
BEGIN
-- Het aangeleverde bestand heeft de gegevens komma gescheiden ipv ;
v_errorhint := 'Delimiter goed zetten';
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, ',', ';')
-- WHERE fac_import_key = p_import_key;
-- Het aangeleverde bestand heeft aanhalingstekens om de invoervelden..
-- UPDATE fac_imp_file
-- SET fac_imp_file_line = REPLACE (fac_imp_file_line, '"', '')
-- WHERE fac_import_key = p_import_key;
v_errorhint := 'Generieke update';
-- De sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
---
prs.import_perslid (
p_import_key,
'0;0;0;0;0;0;1;2;0;0;'
|| '0;0;0;0;0;0;4;3;0;1;'
|| '7;0;0;0;0;0;2;5;6;0;'
|| '0;0;0;0;0;0;0;0;0;0;'
|| '0;0;0;0;0;0',
'Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving%');
-- 1 2 3 4 5 6 7
-- BESTAND BIJ BLOS: Personeelsnummer;Naam;Mail werk;Telnr. werk;Kostenplaats omschrijving;Werkgever;Functie omschrijving
v_errorhint := 'Functie goed vullen';
-- Functie is niet altijd gevuld, eerst gevuld met Persoonsnr, nu vullen met kenmerk1 (of 'Onbekend').
/*
UPDATE fac_imp_perslid
SET prs_srtperslid_omschrijving =
DECODE (prs_kenmerk1, NULL, 'Onbekend', prs_kenmerk1);
*/
v_errorhint := 'Bestaande EMAIL uit Facilitor handhaven';
-- Facilitor is leading qua emailadressen. => OPEN: Uiteindelijk via IT-objecten vullen/sturen
FOR rec IN c_email
LOOP
BEGIN
UPDATE fac_imp_perslid
SET prs_perslid_email = rec.prs_perslid_email
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Records uit AFAS nog uitsluiten van import';
-- <nog nader te bepalen>
-- UPDATE fac_imp_perslid
-- SET prs_kenmerk7 = NULL
-- WHERE prs_kenmerk7 IS NOT NULL AND INSTR(UPPER(prs_kenmerk7),'@BLOS.NL')=0 ;
FOR rec IN c_login
LOOP
BEGIN
v_errorhint := 'Bestaande OSLOGIN uit Facilitor handhaven';
UPDATE fac_imp_perslid
SET prs_perslid_oslogin = rec.prs_perslid_oslogin
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END;
END LOOP;
v_errorhint := 'Login afleiden van emailadres (voor locatieleiders)';
-- Voor de locatieleiders de oslogin vullen in geval nog niet gevuld in Facilitor (vanuit vorige cursor)
/*
UPDATE fac_imp_perslid
SET prs_perslid_oslogin =
UPPER((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1)))
WHERE
UPPER (prs_perslid_email) LIKE '%BLOS.NL'
AND prs_perslid_email IS NOT NULL
AND INSTR(UPPER(prs_srtperslid_omschrijving),'LOCATIEMANAGER')>0
AND prs_perslid_oslogin IS NULL
AND LENGTH((SUBSTR (prs_perslid_email,
0,
INSTR (prs_perslid_email, '@') - 1))) <=30 ;
*/
v_errorhint := 'Afdeling bepalen en vullen';
-- Afdeling bepalen waar persoon onder komt te vallen. <NOG GOED UITDENKEN en WERKEN>
-- Afdeling komt niet mee, dus vullen hem eerst met Personeelsnummer en gaan daarna de juiste afdelingscode bepalen.
-- Voor locatiemanagers geldt dat deze altijd op organisatie 'LOCATIEMANAGERS' moeten komen (onder dit organisatieonderdeel zitten op niveau 2 de team/afdelingen/kostenplaatsen)
FOR rec IN c_afd
LOOP
BEGIN
v_errorhint := 'Persoon aan Afdeling koppelen';
-- Business Unit vinden
SELECT prs_afdeling_key
INTO v_prs_afdeling_key1
FROM prs_afdeling
WHERE prs_bedrijf_key = 21 AND SUBSTR(prs_afdeling_omschrijving,8) = rec.prs_kenmerk3 ;
-- Alle medewerkers, locatieleiders en pedagogisch medewerkers op onder juiste LOC_MAN koppelen..
IF v_prs_afdeling_key1 IS NOT NULL
THEN
-- Afdelingsniveau 2 bepalen voor Managers...
SELECT a.prs_afdeling_upper
INTO v_prs_afdeling_upper2
FROM prs_v_afdeling_boom v, prs_afdeling a
WHERE niveau = 2
AND prs_afdeling_key1 = v_prs_afdeling_key1
AND v.prs_afdeling_key = a.prs_afdeling_key AND INSTR(a.prs_afdeling_upper,'LOC_MAN')>0 ;
UPDATE fac_imp_perslid
SET prs_afdeling_naam = v_prs_afdeling_upper2
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
-- Als werkgever onbekend dan op fallback laten landen...
UPDATE fac_imp_perslid
SET prs_afdeling_naam = (SELECT prs_afdeling_upper FROM prs_afdeling WHERE prs_afdeling_key = c_prs_afdeling_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
v_errorhint := 'Locatie bepalen en vullen';
-- Op basis van kostenplaatsomschrijving gaan we kijken of we de locatie en werkplekkoppeling kunnen maken
FOR rec IN c_loc
LOOP
BEGIN
v_errorhint := 'Persoon aan Locatie-Ruimte koppelen adhv de kostenplaats - ' || TO_CHAR(rec.fac_imp_file_index) ;
v_alg_locatie_key := NULL;
v_alg_gebouw_key := NULL;
v_alg_verdieping_key := NULL;
v_alg_ruimte_key := NULL;
v_alg_locatie_afas := replace(replace(rec.prs_kenmerk2,' BSO', ''),' KDV', '') ; -- In AFAS wordt opvangsoort ook in kp-omschrijving meegenomen..
IF rec.prs_kenmerk2 IS NULL
THEN
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
ELSE
SELECT MAX(alg_locatie_key)
INTO v_alg_locatie_key
FROM alg_locatie
WHERE INSTR(alg_locatie_upper, UPPER(v_alg_locatie_afas)) > 0
AND alg_locatie_verwijder IS NULL
AND (alg_locatie_vervaldatum IS NULL OR TRUNC(alg_locatie_vervaldatum) > TRUNC(SYSDATE) ) ;
END IF;
IF v_alg_locatie_key IS NOT NULL THEN
-- Locatie_code ophalen
SELECT alg_locatie_code
INTO v_alg_locatie_code
FROM alg_locatie
WHERE alg_locatie_key = v_alg_locatie_key ;
-- Gebouw_key ophalen
SELECT min(alg_gebouw_key)
INTO v_alg_gebouw_key
FROM alg_gebouw
WHERE alg_locatie_key = v_alg_locatie_key
AND alg_gebouw_verwijder IS NULL
AND (TRUNC(alg_gebouw_vervaldatum) > TRUNC(sysdate) OR alg_gebouw_vervaldatum IS NULL ) ;
-- Om bij update dit kenmerkveld weg te kunnen schrijven naar kenmerkveld 'Default standplaats'
UPDATE fac_imp_perslid
SET prs_kenmerk20 = (SELECT UPPER(alg_locatie_code) || ' - ' || alg_locatie_omschrijving FROM alg_locatie WHERE alg_locatie_key = v_alg_locatie_key)
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
IF v_alg_gebouw_key IS NOT NULL THEN
-- Gebouw_code ophalen
SELECT alg_gebouw_code
INTO v_alg_gebouw_code
FROM alg_gebouw
WHERE alg_gebouw_key = v_alg_gebouw_key ;
-- Verdiepings_key ophalen
SELECT min(alg_verdieping_key)
INTO v_alg_verdieping_key
FROM alg_verdieping
WHERE alg_gebouw_key = v_alg_gebouw_key
AND alg_verdieping_verwijder IS NULL ;
END IF;
IF v_alg_verdieping_key IS NOT NULL THEN
-- Verdieping_volgnr ophalen
SELECT alg_verdieping_volgnr
INTO v_alg_verdieping_volgnr
FROM alg_verdieping
WHERE alg_verdieping_key = v_alg_verdieping_key ;
-- Ruimte_key ophalen
SELECT min(alg_ruimte_key)
INTO v_alg_ruimte_key
FROM alg_ruimte
WHERE alg_verdieping_key = v_alg_verdieping_key
AND alg_ruimte_verwijder IS NULL ;
END IF;
IF v_alg_ruimte_key IS NOT NULL THEN
-- Ruimte_nr ophalen
SELECT alg_ruimte_nr
INTO v_alg_ruimte_nr
FROM alg_ruimte
WHERE alg_ruimte_key = v_alg_ruimte_key ;
-- Vullen vastgoed-keten in import-tabel
UPDATE fac_imp_perslid
SET alg_locatie_code = v_alg_locatie_code,
alg_gebouw_code = v_alg_gebouw_code,
alg_verdieping_volgnr = v_alg_verdieping_volgnr,
alg_ruimte_nr = v_alg_ruimte_nr
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
ELSE
-- Geen Locatie/Vastgoedketen kunnen vinden
UPDATE fac_imp_perslid
SET prs_kenmerk20 = 'Geen werkplekkoppeling'
WHERE fac_imp_file_index = rec.fac_imp_file_index ;
END IF;
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_import_perslid;
/
CREATE OR REPLACE PROCEDURE blos_update_perslid (p_import_key IN NUMBER)
IS
-- Alle personen verwijderen die niet meer in het import bestand voorkomen
-- Personen in de juiste autorisatiegroep zetten.
-- Match bij BLOS KINDEROPVANG is Personeelsnummer.
-- Geen acties tenzij het aantal records in de importtabel meer dan 100 medewerkers betreft.
CURSOR c_del
IS
SELECT p.prs_perslid_key, p.prs_perslid_naam, p.prs_perslid_email, p.prs_perslid_nr, sp.prs_srtperslid_omschrijving
FROM prs_perslid p, prs_srtperslid sp, prs_v_afdeling_boom a
WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key AND a.prs_bedrijf_key = 21 -- GO Kinderopvang
AND p.prs_srtperslid_key = sp.prs_srtperslid_key -- AND sp.prs_srtperslid_upper NOT IN ('TEAMACCOUNT','INTERNE AFDELING','UITZENDKRACHT')
-- VOOR BLOS_TEST de huidige personen onder Business Unit Blos-Groep (UNIT) NIET verwijderen (afd_key=21 en afd_niveau=1)
AND a.prs_afdeling_key1 NOT IN (21)
AND NOT EXISTS (SELECT 1
FROM fac_imp_perslid
WHERE p.prs_perslid_nr = prs_perslid_nr
)
ORDER BY 1 ;
CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden op actuele medewerkers
IS
SELECT p.prs_perslid_key, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk20
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
WHERE p.prs_perslid_key = i.prs_perslid_key
ORDER BY 1;
v_count NUMBER;
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (400);
v_errorhint VARCHAR2 (400);
/*v_fac_gebruikersgroep_key NUMBER(10);
v_alg_ruimte_key NUMBER;
v_prs_werkplek_key NUMBER;
v_waarnemer_overrule VARCHAR2 (12);
v_prs_perslid_key NUMBER(10); -- budgethouder op kp
v_prs_perslidkostenplaats_key NUMBER(10) ;
v_fac_profiel_key NUMBER(10);
*/
BEGIN
v_errorhint := 'Niet genoeg personen in bestand, import afgebroken';
SELECT COUNT ( * ) INTO v_count FROM fac_imp_perslid;
IF v_count >= 100
THEN
v_errorhint := 'Verwerken persoonsgegevens';
-- Geldig importbestand wat betreft aantal personen
COMMIT;
-- generic update
-- 'EMAIL' betekent dat op basis van Email wordt gematched. 'NR' op basis van personeelsnummer.
-- 'NULL' betekent altijd geen werkplekken verwijderen
-- Voor BLOS / AFAS geldt:
---- Op NR gaan matchen.
prs.update_perslid (p_import_key, 'NR', NULL);
v_errorhint := 'Verwijderen persoonsgegevens';
-- Verwijder personen die niet meer in de import voorkomen.
FOR rec IN c_del
LOOP
BEGIN
prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END;
END LOOP;
FOR rec IN c_flex
LOOP
BEGIN
v_errorhint:='Fout bijwerken kenmerkveld Regio';
PRS.upsertkenmerk (1120, rec.prs_perslid_key, rec.prs_kenmerk3);
v_errorhint:='Fout bijwerken kenmerkveld Locatie';
PRS.upsertkenmerk (1121, rec.prs_perslid_key, rec.prs_kenmerk2);
v_errorhint:='Fout bijwerken kenmerkveld Inzet locatie';
PRS.upsertkenmerk (1122, rec.prs_perslid_key, rec.prs_kenmerk20);
END;
END LOOP;
-- Te weinig personen in bestand om import uit te voeren
ELSE
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
COMMIT;
END IF;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'Error ' || oracle_err_num || '/' || oracle_err_mes;
fac.imp_writelog (p_import_key,
'E',
v_errormsg,
v_errorhint);
END blos_update_perslid;
/
-- Hulpview: Alle locaties die bij een bepaald CLUSTER horen
CREATE OR REPLACE VIEW blos_v_cluster_locaties
(
ALG_LOCATIE_KEY,
ALG_LOCATIE_CODE,
ALG_LOCATIE_OMSCHRIJVING,
CLUSTER_DISTRICT_CODE, -- Districtsniveau
CLUSTER_LABEL_CODE, -- Locatieniveau - Het (oorspronkelijke) label
TYPE_LOCATIE,
RUIMTE_KEY,
VERVALDATUM
)
AS
SELECT l.alg_locatie_key,
l.alg_locatie_code,
l.alg_locatie_omschrijving,
UPPER(d.alg_district_omschrijving),
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
AND km.alg_onrgoed_niveau = 'L'
AND km.alg_kenmerk_key = 1000 -- Cluster Label (oorspronkelijk)
AND km.alg_onrgoedkenmerk_verwijder IS NULL
AND fac.safe_to_number (km.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1)
AS cluster_label_code,
(SELECT ud.fac_usrdata_upper
FROM alg_onrgoedkenmerk km, fac_usrdata ud
WHERE km.alg_onrgoed_key = l.alg_locatie_key
AND km.alg_onrgoed_niveau = 'L'
AND km.alg_kenmerk_key = 1002 -- type_opvang/locatie
AND km.alg_onrgoedkenmerk_verwijder IS NULL
AND fac.safe_to_number (km.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 2)
AS type_locatie,
(SELECT min(alg_ruimte_key)
FROM alg_v_allonrgoed_gegevens v
WHERE v.alg_locatie_key = l.alg_locatie_key and v.alg_type ='R')
AS ruimte_key,
l.alg_locatie_vervaldatum
vervaldatum
FROM alg_locatie l, alg_district d
WHERE l.alg_locatie_verwijder IS NULL AND l.alg_district_key = d.alg_district_key
AND COALESCE(trunc(l.alg_locatie_vervaldatum),trunc(sysdate)+1) > trunc(sysdate) ;
-- Ivm clusterkoppeling is het belangrijk dat locaties goed zijn vastgelegd.
-- Omdat in de praktijk dit paar keer niet goed is gegaan een noti-job om applicatiebeheer hierop netjes te attenderen
CREATE OR REPLACE VIEW blos_v_noti_locatiebeheer
(
sender,
receiver,
text,
code,
key,
xkey
)
AS
SELECT 3, -- Facilitor
m.prs_perslid_key,
'Locatie onvolledig vastgelegd: '
|| v.alg_locatie_code
|| ' - '
|| v.alg_locatie_omschrijving
|| ' van '
|| v.cluster_label_code,
'CUST01',
m.prs_perslid_key,
NULL
FROM
blos_v_cluster_locaties v,
(SELECT g.fac_groep_key,
p.prs_perslid_key,
p.prs_perslid_email AS email
FROM fac_groep g, fac_gebruikersgroep ge, prs_perslid p
WHERE g.fac_groep_key = 22 -- Applicatiebeheer
AND g.fac_groep_key = ge.fac_groep_key
AND ge.prs_perslid_key = p.prs_perslid_key
AND p.prs_perslid_email IS NOT NULL
AND p.prs_perslid_verwijder IS NULL) m
WHERE
v.ruimte_key IS NULL
and v.cluster_label_code IS NOT NULL ;
-- Hook functie die na het saven (mld_postsave) van een melding aangeroepen wordt.
CREATE OR REPLACE PROCEDURE blos_mld_after_insert (p_key IN NUMBER)
AS
v_locatie_key NUMBER;
v_kenmerk_waarde_cluster VARCHAR (100);
v_kenmerk_waarde_key NUMBER (10);
v_mld_kenmerkmelding_key NUMBER (10);
v_mld_kenmerkmelding_waarde VARCHAR (100);
v_errormsg VARCHAR2 (100);
BEGIN
v_errormsg := 'Ophalen meldinggegevens';
SELECT m.mld_alg_locatie_key
INTO v_locatie_key
FROM mld_melding m
WHERE mld_melding_key = p_key AND mld_stdmelding_key NOT IN (1) ; -- Niet voor M2M-meldingen
IF v_locatie_key IS NOT NULL
THEN
BEGIN
-- Ophalen waarde Cluster bij Locatie vastgelegd
SELECT ud.fac_usrdata_omschr, ud.fac_usrdata_key
INTO v_kenmerk_waarde_cluster, v_kenmerk_waarde_key
FROM alg_locatie l, alg_onrgoedkenmerk k, alg_kenmerk km, fac_kenmerkdomein kd, fac_usrdata ud
WHERE l.alg_locatie_key = v_locatie_key
AND l.alg_locatie_key = k.alg_onrgoed_key AND alg_onrgoed_niveau = 'L' AND k.alg_kenmerk_key = 1000 -- Clusterlabel (oorspronkelijk)
AND k.alg_kenmerk_key = km.alg_kenmerk_key
AND km.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
AND kd.fac_usrtab_key = ud.fac_usrtab_key
AND fac.safe_to_number(k.alg_onrgoedkenmerk_waarde) = ud.fac_usrdata_key ;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_kenmerk_waarde_cluster := NULL;
v_kenmerk_waarde_key := NULL;
END;
BEGIN
-- Is het kenmerk al eerder weggeschreven op de melding?
SELECT km.mld_kenmerkmelding_key, km.mld_kenmerkmelding_waarde
INTO v_mld_kenmerkmelding_key, v_mld_kenmerkmelding_waarde
FROM mld_melding m, mld_kenmerkmelding km
WHERE m.mld_melding_key = p_key
AND m.mld_melding_key = km.mld_melding_key
AND km.mld_kenmerk_key = 221 -- Clusterlabel (oorspronkelijk)
AND km.mld_kenmerkmelding_verwijder IS NULL ;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
v_mld_kenmerkmelding_key := NULL;
END;
-- Toevoegen kenmerk-record als waarde gevuld en er nog geen record is aangemaakt
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NULL
THEN
BEGIN
INSERT INTO mld_kenmerkmelding (mld_melding_key,
mld_kenmerk_key,
mld_kenmerkmelding_waarde)
VALUES (p_key, 221, v_kenmerk_waarde_cluster) ;
END;
END IF;
-- Aanpassen kenmerk-record als de locatie is omgezet op de melding
IF v_kenmerk_waarde_cluster IS NOT NULL AND v_mld_kenmerkmelding_key IS NOT NULL AND v_mld_kenmerkmelding_waarde <> v_kenmerk_waarde_cluster
THEN
BEGIN
UPDATE mld_kenmerkmelding
SET mld_kenmerkmelding_waarde = v_kenmerk_waarde_cluster
WHERE mld_kenmerkmelding_key = v_mld_kenmerkmelding_key;
END;
END IF;
END IF;
END blos_mld_after_insert;
/
---------------------------------------------------------------------------------------------------------------
--- Rapportage Views ---
---------------------------------------------------------------------------------------------------------------
-- BASIS - Alle gegevens van BLOS tav indeling Regio's, Cluster/Disticten met de leidinggevende en kostenplaatsen
CREATE OR REPLACE VIEW BLOS_V_ALG_ONROERENDGOED_BASIS
(
REGIO_NAAM,
REGIO_DIRECTEUR,
CLUSTER_NAAM,
REGIO_MANAGER,
LOCATIE,
LOCATIE_CODE,
LOCATIE_KEY,
GEBOUW,
-- gegevens uit locatiekaart
CLUSTERLABEL_OORSPRONKELIJK,
TYPE_OPVANG,
BIJZONDERHEDEN,
KOSTENPLAATS_1,
KOSTENPLAATS_2,
KOSTENPLAATS_3,
LOCATIEMANAGER,
LOCATIEMANAGER_VERVANGER,
LOCATIE_VERVALDATUM,
LOCATIE_VERWIJDERDATUM,
LOCATIE_OUD
)
AS
SELECT r.alg_regio_omschrijving,
kmd.regiodirecteur,
d.alg_district_omschrijving,
kmd.regiomanager,
l.alg_locatie_omschrijving,
l.alg_locatie_code,
l.alg_locatie_key,
g.alg_gebouw_code || ' - ' || g.alg_gebouw_naam
gebouw,
km.cluster_label_oorspr,
km.type_opvang,
km.bijzonderheden,
km.kostenplaats_1,
km.kostenplaats_2,
km.kostenplaats_3,
km.locatiemanager,
km.vervanger,
l.alg_locatie_vervaldatum,
l.alg_locatie_verwijder,
CASE WHEN l.alg_locatie_verwijder IS NULL AND (l.alg_locatie_vervaldatum IS NULL OR TRUNC(l.alg_locatie_vervaldatum) > TRUNC(SYSDATE))
THEN 'actueel'
ELSE 'oud'
END
locatie_oud
FROM alg_gebouw g,
alg_locatie l,
alg_district d,
alg_regio r,
(SELECT l.alg_locatie_key,
flx.getdomeinwaarde(1, flx.getflex('ALG',1000, l.alg_locatie_key,'L')) cluster_label_oorspr,
flx.getdomeinwaarde(2, flx.getflex('ALG',1002, l.alg_locatie_key,'L')) type_opvang,
flx.getflex('ALG',1020, l.alg_locatie_key,'L') bijzonderheden,
flx.getdomeinwaarde(221,flx.getflex('ALG',1140, l.alg_locatie_key,'L')) kostenplaats_1,
flx.getdomeinwaarde(221,flx.getflex('ALG',1141, l.alg_locatie_key,'L')) kostenplaats_2,
flx.getdomeinwaarde(221,flx.getflex('ALG',1142, l.alg_locatie_key,'L')) kostenplaats_3,
-- locatieverantwoordelijke
flx.getdomeinwaarde(181,flx.getflex('ALG', 1162, l.alg_locatie_key, 'L')) locatiemanager,
flx.getdomeinwaarde(182,flx.getflex('ALG', 1163, l.alg_locatie_key, 'L')) vervanger
FROM alg_locatie l ) km,
(SELECT d.alg_district_key,
-- regiomanager en regio-directeur
flx.getdomeinwaarde(183,flx.getflex('ALG', 1164, d.alg_district_key, 'D')) regiomanager,
flx.getdomeinwaarde(201,flx.getflex('ALG', 1181, d.alg_district_key, 'D')) regiodirecteur
FROM alg_district d ) kmd
WHERE g.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 d.alg_district_key = kmd.alg_district_key (+)
AND l.alg_locatie_key = km.alg_locatie_key (+)
ORDER BY r.alg_regio_omschrijving, d.alg_district_omschrijving, l.alg_locatie_code;
-- Rapportage Gebouwbeheer inclusief ruimte - TZT TOEPASSING ALS OOK GRAPHICS GOED DRAAIT
CREATE OR REPLACE VIEW BLOS_V_ALG_ONROERENDGOED
(
REGIO_NAAM,
REGIO_DIRECTEUR,
CLUSTER_NAAM,
REGIO_MANAGER,
LOCATIE,
LOCATIE_CODE,
LOCATIE_KEY,
GEBOUW,
-- gegevens uit locatiekaart
CLUSTERLABEL_OORSPRONKELIJK,
TYPE_OPVANG,
BIJZONDERHEDEN,
KOSTENPLAATS,
KOSTENPLAATS_1,
KOSTENPLAATS_2,
KOSTENPLAATS_3,
LOCATIEMANAGER,
LOCATIEMANAGER_VERVANGER,
--
VERDIEPING,
RUIMTENR,
RUIMTE_OMSCHRIJVING,
RUIMTEFUNCTIE,
BVO_M2,
VLOERSOORT,
--
LOCATIE_VERVALDATUM,
LOCATIE_OUD
)
AS
SELECT r.alg_regio_omschrijving,
kmd.regiodirecteur,
d.alg_district_omschrijving,
kmd.regiomanager,
l.alg_locatie_omschrijving,
l.alg_locatie_code,
l.alg_locatie_key,
v.alg_gebouw_code || ' - ' || v.alg_gebouw_naam
gebouw,
km.cluster_label_oorspr,
km.type_opvang,
km.bijzonderheden,
km.kostenplaats,
km.kostenplaats_1,
km.kostenplaats_2,
km.kostenplaats_3,
km.locatiemanager,
km.vervanger,
v.alg_verdieping_omschrijving || ' - ' || v.alg_verdieping_code
verdieping,
v.alg_ruimte_nr,
v.alg_ruimte_omschrijving,
sr.alg_srtruimte_omschrijving,
r.alg_ruimte_bruto_vloeropp,
flx.getdomeinwaarde(101, flx.getflex('ALG', 1080, r.alg_ruimte_key, 'R')) vloersoort,
l.alg_locatie_vervaldatum,
CASE WHEN l.alg_locatie_vervaldatum IS NULL OR TRUNC(l.alg_locatie_vervaldatum) > TRUNC(SYSDATE)
THEN 'actueel'
ELSE 'oud'
END
locatie_oud
FROM alg_v_onroerendgoed_gegevens v,
alg_locatie l,
alg_district d,
alg_regio r,
(SELECT l.alg_locatie_key,
flx.getdomeinwaarde(1, flx.getflex('ALG',1000, l.alg_locatie_key,'L')) cluster_label_oorspr,
flx.getdomeinwaarde(2, flx.getflex('ALG',1002, l.alg_locatie_key,'L')) type_opvang,
flx.getflex('ALG',1020, l.alg_locatie_key,'L') bijzonderheden,
flx.getflex('ALG',1001, l.alg_locatie_key,'L') kostenplaats,
flx.getdomeinwaarde(161,flx.getflex('ALG',1140, l.alg_locatie_key,'L')) kostenplaats_1,
flx.getdomeinwaarde(161,flx.getflex('ALG',1141, l.alg_locatie_key,'L')) kostenplaats_2,
flx.getdomeinwaarde(161,flx.getflex('ALG',1142, l.alg_locatie_key,'L')) kostenplaats_3,
-- locatieverantwoordelijke
flx.getdomeinwaarde(181,flx.getflex('ALG', 1162, l.alg_locatie_key, 'L')) locatiemanager,
flx.getdomeinwaarde(182,flx.getflex('ALG', 1163, l.alg_locatie_key, 'L')) vervanger
FROM alg_locatie l ) km,
(SELECT d.alg_district_key,
-- regiomanager en regio-directeur
flx.getdomeinwaarde(183,flx.getflex('ALG', 1164, d.alg_district_key, 'D')) regiomanager,
flx.getdomeinwaarde(201,flx.getflex('ALG', 1181, d.alg_district_key, 'D')) regiodirecteur
FROM alg_district d ) kmd,
alg_ruimte r,
alg_srtruimte sr
WHERE v.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 d.alg_district_key = kmd.alg_district_key (+)
AND v.alg_type IN ('R')
AND v.alg_locatie_key = km.alg_locatie_key (+)
AND v.alg_ruimte_key = r.alg_ruimte_key AND r.alg_ruimte_verwijder IS NULL
AND r.alg_srtruimte_key = sr.alg_srtruimte_key (+)
ORDER BY d.alg_district_omschrijving, l.alg_locatie_code, v.alg_gebouw_code, v.alg_ruimte_nr
;
CREATE OR REPLACE VIEW blos_v_rap_ruimteketen_check
AS
SELECT l.alg_locatie_code,
g.alg_gebouw_code||'-'||g.alg_gebouw_naam
alg_gebouw_omschrijving,
v.alg_verdieping_volgnr,
v.alg_verdieping_code,
v.alg_verdieping_omschrijving,
r.alg_ruimte_nr,
r.alg_ruimte_verwijder
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 ( v.alg_verdieping_volgnr <> 0
OR alg_verdieping_omschrijving <> 'Verdieping 0'
OR alg_ruimte_nr <> CHR (95))
AND l.alg_locatie_verwijder IS NULL
AND l.alg_locatie_vervaldatum IS NULL
AND v.alg_verdieping_verwijder IS NULL
AND r.alg_ruimte_verwijder IS NULL;
CREATE OR REPLACE VIEW blos_v_rap_locatie_labels
AS
SELECT cluster_label_code label_oorspronkelijk, COUNT (*) aantal_locaties
FROM blos_v_cluster_locaties
GROUP BY cluster_label_code;
CREATE OR REPLACE VIEW blos_v_rap_locatie_clusters
AS
SELECT cluster_district_code cluster_district, COUNT (*) aantal_locaties
FROM blos_v_cluster_locaties
GROUP BY cluster_district_code;
CREATE OR REPLACE VIEW blos_v_rap_opdrachten_intern
(
TYPE,
MLD_OPDR_KEY,
MLD_UITVOERENDE_KEY,
OPDRACHTNR,
OPDRACHT_DATUM,
STATUS,
MELDING,
BEHANDELAAR,
LOCATIE_PLAATS,
LOCATIE_OMSCHRIJVING,
GEPLANDE_AANVANG,
OPDRACHT_EINDDATUM,
OMSCHRIJVING,
PRS_PERSLID_KEY,
NAAM_UITVOERDER,
CLUSTER_BLOS,
CLUSTER_LABEL,
TYPE_LOCATIE,
UREN_BESTEED,
AFMELD_DATUM,
OPDRACHT_TYPE,
TD_NAAM,
PRIORITEIT
)
AS
SELECT CASE
WHEN mu.TYPE = 'B' THEN 'Poule-opdracht'
WHEN mu.TYPE = 'P' THEN 'Klus-opdracht'
ELSE '<?>'
END
TYPE,
o.mld_opdr_key,
CASE
WHEN mu.TYPE = 'B' THEN o.prs_perslid_key
WHEN mu.TYPE = 'P' THEN mu.mld_uitvoerende_key
ELSE NULL
END
mld_uitvoerende_key,
TO_CHAR (o.mld_melding_key)
|| '/'
|| o.mld_opdr_bedrijfopdr_volgnr
opdrachtnummer,
o.mld_opdr_datumbegin,
DECODE (
os.mld_statusopdr_key,
8, DECODE (o.mld_opdr_halted,
1, 'Onderbroken',
os.mld_statusopdr_omschrijving),
os.mld_statusopdr_omschrijving)
status,
std.mld_stdmelding_omschrijving,
COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>'), -- BEHANDELAAR
l.alg_locatie_plaats,
l.alg_locatie_omschrijving,
COALESCE(o.mld_opdr_plandatum, o.mld_opdr_einddatum)
geplande_aanvang,
o.mld_opdr_einddatum,
TRIM (
REGEXP_REPLACE (
REGEXP_SUBSTR (o.mld_opdr_omschrijving,
'(([^ ]*)( |$)*){10}'),
'[[:space:]]',
' '))
|| '...'
omschrijving,
p.prs_perslid_key,
mu.naam,
d.alg_district_omschrijving,
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
AND fac.safe_to_number (k.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 1
AND k.alg_kenmerk_key = 1000), -- kenmerk Cluster_Label
(SELECT ud.fac_usrdata_omschr
FROM alg_onrgoedkenmerk k, fac_usrdata ud
WHERE k.alg_onrgoed_key = m.mld_alg_locatie_key
AND fac.safe_to_number (k.alg_onrgoedkenmerk_waarde) =
ud.fac_usrdata_key
AND ud.fac_usrtab_key = 2
AND k.alg_kenmerk_key = 1002), -- kenmerk Type KDV, BVO, et.
(SELECT ko.mld_kenmerkopdr_waarde
FROM mld_kenmerkopdr ko
WHERE ko.mld_opdr_key = o.mld_opdr_key
AND ko.mld_kenmerk_key = 25), -- kenmerk Uren_besteed
(SELECT MAX (ft.fac_tracking_datum)
FROM fac_tracking ft
WHERE ft.fac_tracking_refkey = o.mld_opdr_key
AND ft.fac_srtnotificatie_key = 74), -- MLDAFM
ot.mld_typeopdr_omschrijving,
CASE
WHEN mu.TYPE = 'B' THEN COALESCE (p.prs_perslid_naam_full, '<nog geen behandelaar>')
WHEN mu.TYPE = 'P' THEN mu.naam
ELSE '<?>'
END TD_NAAM,
COALESCE(v.prioriteit,'3 - NORMAAL')
prioriteit
FROM mld_opdr o,
mld_melding m,
mld_typeopdr ot,
prs_v_perslid_fullnames p,
ins_tab_discipline d,
mld_stdmelding std,
alg_locatie l,
alg_district d,
mld_v_uitvoerende mu,
mld_statusopdr os,
(
SELECT ko.mld_opdr_key, ud.fac_usrdata_code || ' - ' || ud.fac_usrdata_omschr prioriteit
FROM mld_kenmerkopdr ko, fac_usrdata ud
WHERE fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key
AND fac_usrtab_key = 81 -- keuzelijst eigen tabel Prioriteit
AND ko.mld_kenmerk_key = 361 -- kenmerk Prioriteit
) v
WHERE o.mld_melding_key = m.mld_melding_key(+)
AND o.prs_perslid_key = p.prs_perslid_key(+)
AND o.mld_typeopdr_key = ot.mld_typeopdr_key
AND ot.mld_typeopdr_isofferte = 0 -- Alleen werkopdrachten
AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
AND m.mld_alg_locatie_key = l.alg_locatie_key -- alle std-meldingen hebben verplicht-niveau locatie
AND l.alg_district_key = d.alg_district_key
AND o.mld_uitvoerende_keys = mu.mld_uitvoerende_key
AND os.mld_statusopdr_key = o.mld_statusopdr_key
AND mu.intern = 1
AND o.mld_opdr_key = v.mld_opdr_key(+);
CREATE OR REPLACE VIEW blos_v_cal_opdrachten_intern
(
USER_KEY,
TITLE,
TOT,
VAN,
ITEM_KEY,
COLOR,
TEXTCOLOR,
TD_NAAM,
LOCATIE_PLAATS,
STATUS
)
AS
SELECT mld_uitvoerende_key,
td_naam || CHR(10) || type || ' - ' || opdrachtnr || CHR(10) || locatie_plaats || CHR(10) || 'Prio: ' || prioriteit,
opdracht_einddatum + 2/24
tot,
geplande_aanvang
van,
mld_opdr_key,
DECODE (status,
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
'Toegekend', DECODE (LOWER(prioriteit),
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
'#0000FF'),
'Geaccepteerd', '#008000') color, -- Geaccepteerd groen
DECODE (status,
'Afgewezen', '#FFFFFF', -- Afgewezen
'Toegekend', '#FFFFFF', -- Toegekend
'Afgemeld', '#000000', -- Afgemeld
'Geaccepteerd', '#FFFFFF') textcolor, -- Geaccepteerd
td_naam,
locatie_plaats,
status
FROM blos_v_rap_opdrachten_intern ;
CREATE OR REPLACE VIEW BLOS_V_CAL_OPDRACHTEN_BO
(
USER_KEY,
TITLE,
TOT,
VAN,
ITEM_KEY,
COLOR,
TEXTCOLOR,
TD_NAAM,
LOCATIE_PLAATS,
STATUS
)
AS
SELECT mld_uitvoerende_key,
td_naam
|| CHR (10)
|| TYPE
|| ' - '
|| opdrachtnr
|| CHR (10)
|| locatie_plaats
|| CHR (10)
|| 'Prio: '
|| prioriteit,
opdracht_einddatum + 2/24
tot,
geplande_aanvang
van,
mld_opdr_key,
DECODE (
status,
'Afgewezen', '#C0C0C0', -- Afgewezen grijs
'Afgemeld', '#C0C0C0', -- Afgemeld grijs
'Toegekend', DECODE (LOWER (prioriteit),
'3 - normaal', '#0000FF', -- Toegekend en prio normaal is blauw
'4 - laag', '#20b2f5', -- Toegekend en prio laag is licht-blauw
'2 - hoog', '#f58a20', -- Toegekend en prio laag is oranje
'1 - kritiek', '#bf0b3b', -- Toegekend en prio laag is rood
'#0000FF'),
'Geaccepteerd', '#008000')
color, -- Geaccepteerd groen
DECODE (status,
'Afgewezen', '#FFFFFF', -- Afgewezen
'Toegekend', '#FFFFFF', -- Toegekend
'Afgemeld', '#000000', -- Afgemeld
'Geaccepteerd', '#FFFFFF')
textcolor, -- Geaccepteerd,
td_naam,
locatie_plaats,
status
FROM blos_v_rap_opdrachten_intern ;
-- Notificactiejob voor BLOS vanuit Opdrachten Notities met bepaalde notitie-classificatie voor servicedesk...
-- Flag = 16 (en geen +1 xemail, xmobile)
CREATE OR REPLACE VIEW BLOS_V_NOTI_SERVICEDESK_ORD -- ORD = Orders/Opdrachten
(
SENDER,
RECEIVER,
TEXT,
CODE,
FAC_SRTNOTIFICATIE_KEY,
KEY,
XKEY
-- XEMAIL,
-- XMOBILE
)
AS
SELECT (SELECT prs_perslid_key
FROM prs_perslid
WHERE prs_perslid_upper = 'FACILITOR')
sender,
241 -- prs_perslid van persoon Facilitairbeheer Onderhoud met juiste emailadres facilitairbeheer@blos.nl
receiver,
'Opdrachtnotitie bij ' || TO_CHAR(o.mld_melding_key) || '/' || TO_CHAR (o.mld_opdr_bedrijfopdr_volgnr) ||
' van ' || p.prs_perslid_voornaam || ' ' || p.prs_perslid_naam
text,
'CUST02'
code,
(SELECT fac_srtnotificatie_key
FROM fac_srtnotificatie
WHERE fac_srtnotificatie_code = 'CUST02')
fac_srtnotificatie_key,
o.mld_opdr_key
key,
n.mld_opdr_note_key
xkey
FROM mld_melding m,
mld_opdr o,
mld_opdr_note n,
prs_perslid p,
fac_note_group ng
WHERE o.mld_opdr_key = n.mld_opdr_key
AND m.mld_melding_key = o.mld_melding_key
AND n.prs_perslid_key = p.prs_perslid_key
AND n.fac_note_group_key = ng.fac_note_group_key
AND ng.fac_note_group_key = 1 -- 'Notitie voor Facilitair'
AND n.prs_perslid_key NOT IN
(SELECT gg.prs_perslid_key
FROM fac_gebruikersgroep gg, fac_groep g
WHERE gg.fac_groep_key = g.fac_groep_key
AND g.fac_groep_key = 21) -- Servicedesk - Operationeel
AND n.mld_opdr_note_aanmaak >=
COALESCE (
( SELECT MAX (ft.fac_tracking_datum)
FROM fac_tracking ft, fac_srtnotificatie sn
WHERE ft.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
AND sn.fac_srtnotificatie_code = 'CUST02'),
SYSDATE - (SELECT COALESCE (fac_notificatie_job_interval, 1) / 24
FROM fac_notificatie_job
WHERE fac_notificatie_job_view = 'BLOS_V_NOTI_SERVICEDESK_ORD' )
) ;
---------------------------------------------------------------------------------------------------------------
--- Facilitor Graphics / CAD ---
---------------------------------------------------------------------------------------------------------------
CREATE OR REPLACE VIEW blos_v_thema_set_res_wp
AS
SELECT ins_deel_key, DECODE (rd.res_deel_key, NULL, 0, 1) waarde
FROM ins_deel d,
(SELECT *
FROM res_deel
WHERE res_deel_verwijder IS NULL) rd
WHERE d.ins_deel_key = rd.res_ins_deel_key(+);
CREATE OR REPLACE VIEW blos_v_thema_vloersoort
(
ALG_RUIMTE_KEY,
WAARDE,
WAARDE_KEY
)
AS
SELECT r.alg_ruimte_key,
COALESCE (va.fac_usrdata_omschr, 'Onbekend'),
va.fac_usrdata_key
FROM alg_ruimte r,
(SELECT rr.alg_ruimte_key,
ud.fac_usrdata_omschr,
ud.fac_usrdata_key
FROM alg_onrgoedkenmerk ok,
fac_usrdata ud,
fac_kenmerkdomein rk,
alg_kenmerk k,
alg_v_aanwezigruimte rr
WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
AND TO_CHAR (ud.fac_usrdata_key) =
ok.alg_onrgoedkenmerk_waarde
AND ok.alg_kenmerk_key = 1080
AND k.alg_kenmerk_niveau = 'R'
AND k.alg_kenmerk_verwijder IS NULL
AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
WHERE r.alg_ruimte_key = va.alg_ruimte_key(+);
---------------------------------------------------------------------------------------------------------------
--- Periodieke procedures die afgetrapt worden binnen BLOS ---
---------------------------------------------------------------------------------------------------------------
-- script om dagelijks terugkerende scripts aan te roepen.
CREATE OR REPLACE PROCEDURE blos_select_daily_task (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
AS
BEGIN
-- job om de werkplekkoppelingen te realiseren en onderhouden voor de locatiemanagers
NULL;
-- IN 2023-SEPT MOET DEZE UIT
-- blos_select_wpcluster ('WP_CLUSTER', SYSDATE);
-- IN 2023-SEPT MOETEN DEZE AAN
-- blos_select_wp_loc_manager ('WP_LOC_MANAGER', SYSDATE);
-- blos_select_wp_reg_manager ('WP_REG_MANAGER', SYSDATE);
END;
/
/* TZT nog aanpassen naar onderstaande
CREATE OR REPLACE PROCEDURE blos_daily
AS
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
blos_select_wpcluster ('WP_CLUSTER', SYSDATE);
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 afgebroken!', v_errormsg);
END blos_daily;
/
*/
------ 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