admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NMMS#24399 -- Implementatie PPS Soesterberg

Browse Source 
svn path=/Customer/trunk/; revision=23241
This commit is contained in:
Arthur Egberink
2014-11-04 16:16:22 +00:00
parent 8b379183fa
commit fcd072af56
1 changed files with 123 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

222
NMMS/nmms.sql
View File

@@ -152,6 +152,7 @@ AS
WHERE o.mld_uitvoerende_keys = kl.prs_link_key WHERE o.mld_uitvoerende_keys = kl.prs_link_key
AND prs_kenmerk_key = 1000 -- MA/CP AND prs_kenmerk_key = 1000 -- MA/CP
AND prs_kostenplaats_key <> 1 -- AAFM AND prs_kostenplaats_key <> 1 -- AAFM
AND prs_kenmerklink_waarde = 161 -- MA
AND mld_statusopdr_key = 9; AND mld_statusopdr_key = 9;
BEGIN BEGIN
FOR rec IN c FOR rec IN c
@@ -304,6 +305,7 @@ CREATE OR REPLACE VIEW nmms_v_monitoring
gereed, gereed,
thtijdstip, thtijdstip,
verwerkt, verwerkt,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -336,7 +338,7 @@ AS
DECODE (COALESCE (mld_melding_indult, 0), 0, 'Nee', 'Ja'), DECODE (COALESCE (mld_melding_indult, 0), 0, 'Nee', 'Ja'),
DECODE (g.respijt.tijdsduur, DECODE (g.respijt.tijdsduur,
0, NULL, 0, NULL,
TO_CHAR (ROUND (g.respijt.tijdsduur, 2)) || g.respijt.eenheid) TO_CHAR (ROUND (g.respijt.tijdsduur, 2)))
respijt, -- Of Uren/Dagen??? => Maakt niet uit respijt, -- Of Uren/Dagen??? => Maakt niet uit
prs_kostenplaats_nr, prs_kostenplaats_nr,
alg_locatie_code, alg_locatie_code,
@@ -356,14 +358,15 @@ AS
WHERE fac_tracking_refkey = m_start --mld_melding_key WHERE fac_tracking_refkey = m_start --mld_melding_key
AND fac_srtnotificatie_key = 36) AND fac_srtnotificatie_key = 36)
verwerkt, verwerkt,
eenheid,
DECODE (kortingtype, DECODE (kortingtype,
'Q', NULL, 'Q', TO_NUMBER(NULL),
TO_CHAR (ROUND (g.tht.tijdsduur, 2)) || g.tht.eenheid) ROUND (g.tht.tijdsduur, 2))
tht_txt, -- Of Uren/Dagen??? => Maakt niet uit tht,
DECODE (kortingtype, DECODE (kortingtype,
'Q', NULL, 'Q', TO_NUMBER(NULL),
TO_CHAR (ROUND (g.actual.tijdsduur, 2)) || g.actual.eenheid) ROUND (g.actual.tijdsduur, 2))
wht, -- Of zonder U/D??? => Nu beter wht,
DECODE (kortingtype, 'Q', TO_NUMBER (NULL), regime) regime, DECODE (kortingtype, 'Q', TO_NUMBER (NULL), regime) regime,
mld_stdmeldinggroep_naam groep, mld_stdmeldinggroep_naam groep,
'K' || LOWER (kortingtype) || DECODE (q_vervolg, 1, '/q') 'K' || LOWER (kortingtype) || DECODE (q_vervolg, 1, '/q')
@@ -374,23 +377,16 @@ AS
'Q', mld_stdmelding_malus) 'Q', mld_stdmelding_malus)
basiskorting, basiskorting,
DECODE (kortingtype, 'B', 50, 'S', 1000) variabelekorting, DECODE (kortingtype, 'B', 50, 'S', 1000) variabelekorting,
--DECODE (
-- telaat,
-- 1,
-- DECODE (kortingtype,
-- 'B', (actual - tht) * 24,
-- 'S', (actual - tht) * 24))
-- uren,
DECODE ( DECODE (
telaat, telaat,
1, 1,
DECODE ( DECODE (
kortingtype, kortingtype,
'B', 'B',
TO_CHAR (ROUND (g.uitloop.tijdsduur, 2)) || g.uitloop.eenheid, ROUND (g.uitloop.tijdsduur, 2),
'S', 'S',
TO_CHAR (ROUND (g.uitloop.tijdsduur, 2)) || g.uitloop.eenheid)) ROUND (g.uitloop.tijdsduur, 2)))
uren, -- NIET ALTIJD MEER UREN (en ook niet meer numeriek)??? uren, -- uitloop in beschikbaarheid is altijd 50 euro per uur.
--DECODE ( --DECODE (
-- telaat, -- telaat,
-- 1, -- 1,
@@ -473,6 +469,7 @@ AS
std.mld_stdmelding_omschrijving, std.mld_stdmelding_omschrijving,
std.mld_stdmelding_malus, std.mld_stdmelding_malus,
q.vervolg q_vervolg, q.vervolg q_vervolg,
m.min_t_sla.eenheid eenheid,
m.t_van, m.t_van,
m.gereed, m.gereed,
m.mld_melding_einddatum_std thtijdstip, -- min_melding_einddatum_std m.mld_melding_einddatum_std thtijdstip, -- min_melding_einddatum_std
@@ -647,6 +644,7 @@ CREATE OR REPLACE VIEW nmms_v_rap_monitoring
begin, begin,
gereed, gereed,
thtijdstip, thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -688,6 +686,7 @@ AS
to_char(begin, 'dd-mm-yyyy hh24:mi:ss') begin, to_char(begin, 'dd-mm-yyyy hh24:mi:ss') begin,
to_char(gereed, 'dd-mm-yyyy hh24:mi:ss') gereed, to_char(gereed, 'dd-mm-yyyy hh24:mi:ss') gereed,
to_char(thtijdstip, 'dd-mm-yyyy hh24:mi:ss') thtijdstip, to_char(thtijdstip, 'dd-mm-yyyy hh24:mi:ss') thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -729,6 +728,7 @@ CREATE OR REPLACE VIEW nmms_v_rap_monitoring_og
begin, begin,
gereed, gereed,
thtijdstip, thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -763,6 +763,7 @@ AS
begin, begin,
gereed, gereed,
thtijdstip, thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -803,6 +804,7 @@ CREATE OR REPLACE VIEW nmms_v_monitoring_tot
gereed, gereed,
thtijdstip, thtijdstip,
verwerkt, verwerkt,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -838,6 +840,7 @@ AS
gereed, gereed,
thtijdstip, thtijdstip,
verwerkt, verwerkt,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -882,6 +885,7 @@ AS
NULL, NULL,
NULL, NULL,
NULL, NULL,
NULL,
'Kh', 'Kh',
NULL, NULL,
NULL, NULL,
@@ -924,6 +928,7 @@ AS
NULL, NULL,
NULL, NULL,
NULL, NULL,
NULL,
'Kh', 'Kh',
NULL, NULL,
NULL, NULL,
@@ -968,6 +973,7 @@ AS
NULL, NULL,
NULL, NULL,
NULL, NULL,
NULL,
'Kh', 'Kh',
NULL, NULL,
NULL, NULL,
@@ -1011,6 +1017,7 @@ AS
NULL, NULL,
NULL, NULL,
NULL, NULL,
NULL,
'Kh', 'Kh',
NULL, NULL,
NULL, NULL,
@@ -1053,6 +1060,7 @@ CREATE OR REPLACE VIEW nmms_v_rap_monitoring_tot
begin, begin,
gereed, gereed,
thtijdstip, thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -1092,6 +1100,7 @@ AS
to_char(begin, 'dd-mm-yyyy hh24:mi:ss') begin, to_char(begin, 'dd-mm-yyyy hh24:mi:ss') begin,
to_char(gereed, 'dd-mm-yyyy hh24:mi:ss') gereed, to_char(gereed, 'dd-mm-yyyy hh24:mi:ss') gereed,
to_char(thtijdstip, 'dd-mm-yyyy hh24:mi:ss') thtijdstip, to_char(thtijdstip, 'dd-mm-yyyy hh24:mi:ss') thtijdstip,
eenheid,
tht, tht,
wht, wht,
regime, regime,
@@ -1216,28 +1225,34 @@ AS
FROM nmms_v_monitoring FROM nmms_v_monitoring
WHERE status = 'Afgemeld' WHERE status = 'Afgemeld'
AND gereed < TRUNC (SYSDATE, 'MONTH') AND gereed < TRUNC (SYSDATE, 'MONTH')
AND afw IS NULL -- geen afwijkingen die goedgekeurd moeten worden AND afw IS NULL -- geen afwijkingen die goedgekeurd moeten worden
AND afgerond IS NULL; -- expliciete goedkeuring staat niet aan AND afgerond IS NULL; -- expliciete goedkeuring staat niet aan
CURSOR c2 CURSOR c2
IS IS
SELECT m_start, m.mld_melding_key, (SELECT mld_melding_status SELECT m_start,
FROM mld_melding ms m.mld_melding_key,
WHERE ms.mld_melding_key = m_start) (SELECT mld_melding_status
mld_melding_status FROM mld_melding ms
WHERE ms.mld_melding_key = m_start)
mld_melding_status
FROM (SELECT nmms.get_first_melding (mld_melding_key, 1) m_start, FROM (SELECT nmms.get_first_melding (mld_melding_key, 1) m_start,
fac.gettrackingdate ('MLDAFM', m.mld_melding_key) gereed, fac.gettrackingdate ('MLDAFM', m.mld_melding_key) gereed,
m.* m.*
FROM mld_melding m FROM mld_melding m
WHERE m.mld_melding_parentkey IS NULL WHERE m.mld_melding_parentkey IS NULL
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TRUNC (SYSDATE, 'MONTH') AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) <
TRUNC (SYSDATE, 'MONTH')
AND m.mld_melding_key NOT IN AND m.mld_melding_key NOT IN
(SELECT melding_key FROM nmms_monitoring)) m, (SELECT melding_key FROM nmms_monitoring)) m,
nmms_v_monitoring mo nmms_v_monitoring mo
WHERE m_start <> m.mld_melding_key WHERE m_start <> m.mld_melding_key AND m_start = mo.melding_key
AND m_start = mo.melding_key AND ( (status = 'Afgemeld' AND afw IS NULL) -- startmelding mag niet hangen op goedkeuring
AND ( (status = 'Afgemeld' AND afw IS NULL) -- startmelding mag niet hangen op goedkeuring OR (status = 'Historie'));
OR (status = 'Historie' ));
CURSOR c3
IS
SELECT * FROM nmms_v_monitoring_tot;
BEGIN BEGIN
-- Zet de meldingen die geen afwijking kennen en die niet op status afgerond staan naar status verwerkt -- Zet de meldingen die geen afwijking kennen en die niet op status afgerond staan naar status verwerkt
FOR rec IN c1 FOR rec IN c1
@@ -1265,86 +1280,95 @@ BEGIN
-- Voeg de entries uit het monitoringsoverzicht toe aan de freeze tabel. -- Voeg de entries uit het monitoringsoverzicht toe aan de freeze tabel.
INSERT INTO nmms_monitoring (melding_key, FOR rec IN c3
afw, LOOP
q_vervolg, BEGIN
indult, BEGIN
respijt, INSERT INTO nmms_monitoring (melding_key,
ruimte, afw,
object, q_vervolg,
thema, indult,
omschrijving, respijt,
begin, ruimte,
gereed, object,
thtijdstip, thema,
verwerkt, omschrijving,
tht, begin,
wht, gereed,
regime, thtijdstip,
groep, verwerkt,
typekorting, eenheid,
basiskorting, tht,
variabelekorting, wht,
uren, regime,
kb, groep,
prestatiekorting, typekorting,
factor, basiskorting,
kp, variabelekorting,
herhalingskorting, uren,
aantal, kb,
kh, prestatiekorting,
wegingsfactor, factor,
dienst, kp,
stdmelding_key, herhalingskorting,
totaal, aantal,
kinderen, kh,
export_datum) wegingsfactor,
SELECT melding_key, dienst,
afw, stdmelding_key,
q_vervolg, totaal,
indult, kinderen,
respijt, export_datum)
ruimte, VALUES (rec.melding_key,
object, rec.afw,
thema, rec.q_vervolg,
omschrijving, rec.indult,
begin, rec.respijt,
gereed, rec.ruimte,
thtijdstip, rec.object,
verwerkt, rec.thema,
tht, rec.omschrijving,
wht, rec.begin,
regime, rec.gereed,
groep, rec.thtijdstip,
typekorting, rec.verwerkt,
basiskorting, rec.eenheid,
variabelekorting, rec.tht,
uren, rec.wht,
kb, rec.regime,
prestatiekorting, rec.groep,
factor, rec.typekorting,
kp, rec.basiskorting,
herhalingskorting, rec.variabelekorting,
aantal, rec.uren,
kh, rec.kb,
wegingsfactor, rec.prestatiekorting,
dienst, rec.factor,
stdmelding_key, rec.kp,
DECODE(respijt, 'Ja', 0, totaal), rec.herhalingskorting,
kinderen, rec.aantal,
SYSDATE rec.kh,
FROM nmms_v_monitoring_tot; rec.wegingsfactor,
rec.dienst,
rec.stdmelding_key,
DECODE (rec.respijt, 'Ja', 0, rec.totaal),
rec.kinderen,
SYSDATE);
END;
END;
END LOOP;
INSERT INTO nmms_monitoring (melding_key, export_datum) INSERT INTO nmms_monitoring (melding_key, export_datum)
SELECT mld_melding_key, SYSDATE SELECT mld_melding_key, SYSDATE
FROM mld_melding m FROM mld_melding m
WHERE m.mld_melding_status = 6 -- Historie WHERE m.mld_melding_status = 6 -- Historie
AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) < TRUNC (SYSDATE, 'MONTH') AND fac.gettrackingdate ('MLDAFM', m.mld_melding_key) <
TRUNC (SYSDATE, 'MONTH')
AND m.mld_melding_key NOT IN (SELECT nm.melding_key AND m.mld_melding_key NOT IN (SELECT nm.melding_key
FROM nmms_monitoring nm FROM nmms_monitoring nm
WHERE nm.melding_key IS NOT NULL); WHERE nm.melding_key IS NOT NULL);
COMMIT;
COMMIT;
END nmms_export_freeze_monitoring; END nmms_export_freeze_monitoring;
/ /