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

FZKH#87266 -- Implementatie - Aanpassingen Ultimo job import

Browse Source 
svn path=/Customer/trunk/; revision=70523
This commit is contained in:
Norbert Wassink
2025-10-04 15:14:10 +00:00
parent fbb8051ce5
commit d17e98b159
1 changed files with 66 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
FZKH/FZKH.sql
View File

@@ -2301,7 +2301,7 @@ AS
fac_imp_csv_col03 prs_perslid_behandelaar,
fac_imp_csv_col04 mld_melding_plandatum,
fac_imp_csv_col05 mld_melding_datum,
fac_imp_csv_col05 prs_afdeling,
fac_imp_csv_col06 prs_afdeling,
fac_imp_csv_col07 mld_note,
fac_imp_csv_col08 ins_deel_omschrijving,
fac_imp_csv_col12 mld_stdmelding,
@@ -2335,10 +2335,15 @@ AS
v_status_key NUMBER;
V_prs_kostenplaats_key NUMBER;
v_fac_imp_key NUMBER;
v_status_kenmerk_key NUMBER;
v_job_kenmerk_key NUMBER;
BEGIN
v_stdmelding_key := 1; -- standaard worden alle migratie meldingen op de stdmelding overig gezet
v_mld_meldbron_key :=5;
v_counter:=0;
v_count_deel_ok:=0;
v_count_deel:=0;
v_aanduiding :='Ophalen melding kenmerk key met code=ULTIMO_NR is muslukt';
SELECT mld_kenmerk_key
@@ -2346,9 +2351,20 @@ BEGIN
FROM mld_kenmerk
WHERE mld_kenmerk_code='ULTIMO_NR';
SELECT mld_kenmerk_key
INTO v_status_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_code='ULTIMO_STATUS';
SELECT mld_kenmerk_key
INTO v_job_kenmerk_key
FROM mld_kenmerk
WHERE mld_kenmerk_code='ULTIMO_JOB';
FOR rec IN sel
LOOP
v_fac_imp_key:= rec.fac_imp_csv_key;
IF rec.ultimo_nr<>'Code'
THEN
BEGIN
@@ -2368,14 +2384,15 @@ BEGIN
BEGIN
v_aanduiding:='Ophalen std melding gaat fout :('||rec.fac_imp_csv_key||')'|| rec.mld_stdmelding;
SELECT ms.mld_stdmelding_key, ms.alg_onrgoed_niveau
INTO v_stdmelding_key, v_alg_onrgoed_niveau
FROM mld_stdmelding ms , ins_srtdiscipline vgt, MLD_DISCIPLINE vg
WHERE UPPER(vgt.ins_srtdiscipline_omschrijving)=UPPER('Medische Techniek')
AND vg.ins_srtdiscipline_key = vgt.ins_srtdiscipline_key
AND vg.ins_discipline_key = ms.mld_ins_discipline_key
AND ms.mld_stdmelding_omschrijving=rec.mld_stdmelding
AND ms.MLD_STDMELDING_VERWIJDER IS NULL;
SELECT ms.mld_stdmelding_key, ms.alg_onrgoed_niveau
INTO v_stdmelding_key, v_alg_onrgoed_niveau
FROM mld_stdmelding ms , ins_srtdiscipline vgt, MLD_DISCIPLINE vg
WHERE UPPER(vgt.ins_srtdiscipline_omschrijving)=UPPER('Medische Techniek')
AND vg.ins_srtdiscipline_key = vgt.ins_srtdiscipline_key
AND UPPER(vg.INS_DISCIPLINE_OMSCHRIJVING)=UPPER('Intern (Ultimo)')
AND vg.ins_discipline_key = ms.mld_ins_discipline_key
AND UPPER(ms.mld_stdmelding_omschrijving)=UPPER('Storing')
AND ms.MLD_STDMELDING_VERWIJDER IS NULL;
EXCEPTION
WHEN NO_DATA_FOUND
@@ -2385,25 +2402,34 @@ BEGIN
FROM mld_stdmelding ms , ins_srtdiscipline vgt, MLD_DISCIPLINE vg
WHERE UPPER(vgt.ins_srtdiscipline_omschrijving)=UPPER('Medische Techniek')
AND vg.ins_srtdiscipline_key = vgt.ins_srtdiscipline_key
AND UPPER(vg.INS_DISCIPLINE_OMSCHRIJVING)=UPPER('Intern (Ultimo)')
AND vg.ins_discipline_key = ms.mld_ins_discipline_key
AND UPPER(ms.mld_stdmelding_omschrijving)='MIGRATIE'
AND ms.MLD_STDMELDING_VERWIJDER IS NULL;
END;
v_aanduiding:= 'Ophalen van het asset '||rec.ins_deel_omschrijving || ' is mislukt. ('||rec.fac_imp_csv_key||')';
BEGIN
SELECT ins_deel_key
INTO v_ins_deel_key
FROM ins_deel
WHERE ins_deel_omschrijving=rec.ins_deel_omschrijving
AND ins_deel_verwijder IS NULL;
v_count_deel_ok:=v_count_deel_ok+1;
EXCEPTION
WHEN NO_DATA_FOUND
v_ins_deel_key:=NULL;
IF LENGTH(rec.ins_deel_omschrijving )>1
THEN
v_ins_deel_key:=NULL;
v_count_deel:=v_count_deel+1;
END;
v_aanduiding:= 'Ophalen van het asset '||rec.ins_deel_omschrijving || ' is mislukt. ('||rec.fac_imp_csv_key||')';
BEGIN
SELECT ins_deel_key
INTO v_ins_deel_key
FROM ins_deel
WHERE ins_deel_omschrijving=rec.ins_deel_omschrijving
AND ins_deel_verwijder IS NULL;
v_count_deel_ok:=v_count_deel_ok+1;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
fac.imp_writelog (p_import_key,
'I',
'Ophalen van het asset '||rec.ins_deel_omschrijving || ' is mislukt voor Ultimo Job : '||rec.ultimo_nr,
'Asset nioet gevonden');
v_ins_deel_key:=NULL;
v_count_deel:=v_count_deel+1;
END;
END IF;
-- Opahlen aanvrger
v_aanduiding:= 'Ophalen van de aanvrager '||rec.prs_perslid_melder || ' is mislukt.('||rec.fac_imp_csv_key||')';
@@ -2414,11 +2440,11 @@ BEGIN
WHERE prs_perslid_naam=rec.prs_perslid_melder;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
THEN
SELECT prs_perslid_key
INTO v_prs_perslid_melder
FROM prs_v_aanwezigperslid
WHERE prs_perslid_naam='MT Migratie gebruiker';
WHERE prs_perslid_naam='Jobs Migratie gebruiker';
-- v_prs_perslid_melder:=3;
END;
v_aanduiding:= 'Ophalen van de behandelaar '||rec.prs_perslid_behandelaar || ' is mislukt. ('||rec.fac_imp_csv_key||')';
@@ -2452,7 +2478,7 @@ BEGIN
-- Status
SELECT DECODE(rec.mld_status,'Gesloten',6,'Nieuw',2,'Goedgekeurd',2,'Geregistreerd',2,'In behandeling',4,'Afgemeld',5,6)
SELECT DECODE(rec.mld_substatus,'Historie',6,'Gesloten',6,'Nieuw',2,'Goedgekeurd',2,'Geregistreerd',2,'In behandeling',4,'Afgemeld',5,6)
INTO v_status_key
FROM DUAL; -- Historie \(6) is default
@@ -2488,6 +2514,7 @@ BEGIN
IF v_stdmelding_key>-1
THEN
v_counter:=v_counter+1;
v_aanduiding:= 'Aanmaken van melding voor Job'|| rec.ultimo_nr||' is mislukt.';
INSERT INTO mld_melding (mld_melding_module,
mld_meldbron_key,
mld_alg_locatie_key,
@@ -2532,9 +2559,11 @@ BEGIN
RETURNING mld_melding_key
INTO v_mld_key;
flx.setflex('MLD',v_kenmerk_key,v_mld_key,rec.ultimo_nr);
flx.setflex('MLD',v_status_kenmerk_key,v_mld_key,rec.mld_status); -- We slaan de Jobsstatus ook maar op
flx.setflex('MLD',v_job_kenmerk_key,v_mld_key,SUBSTR(rec.mld_stdmelding,1,50)); -- We slaan de Jobssoort ook maar op.
IF v_status_key = 2
THEN
fac.trackaction ('#MLDNEW', v_mld_key, NULL, v_meldingsdatum, 'Ultimo melding '||rec.ultimo_nr||' aangemaakt');
@@ -3431,9 +3460,9 @@ AS
CURSOR sel
IS
SELECT fac_imp_csv_col01 ins_discipline,
COALESCE(fac_imp_csv_col04,'MIGRATIE') ins_groep,
COALESCE(fac_imp_csv_col05,'MIGRATIE') ins_srtdeel_code,
COALESCE(fac_imp_csv_col06,'MIGRATIE') ins_srtdeel_omschrijving,
fac_imp_csv_col04 ins_groep,
fac_imp_csv_col05 ins_srtdeel_code,
fac_imp_csv_col06 ins_srtdeel_omschrijving,
fac_imp_csv_col07 ins_deel_opmerking,
fac_imp_csv_col08 ins_deel_omschrijving,
fac_imp_csv_col12 ins_kenm_aanschafprijs,
@@ -3595,7 +3624,7 @@ BEGIN
'Installatie datum|0='||rec.ins_kenm_instaldatum,
'Onderhouddatum|0='||rec.ins_onderhoud_datum,
'Klantstatus|0='||v_klantstatus,
'Afvoer datum|0='||v_vervaldatum,
'Afvoer datum|0='||TO_CHAR(v_vervaldatum,'DD-MM-YYYY'),
'Fysieke Locatie|0='||v_huidige_fys_locatie,
'UDI|0='||rec.ins_kenm_udi,
'Ordernummer|0='||rec.ins_kenm_ordernummer
@@ -3612,7 +3641,7 @@ BEGIN
END;
/
CREATE OR REPLACE PROCEDURE FZKH_UPDATE_MT_ASSETS(p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE FZKH.FZKH_UPDATE_MT_ASSETS(p_import_key IN NUMBER)
AS
CURSOR sel
@@ -4004,6 +4033,7 @@ END;
/
CREATE OR REPLACE PROCEDURE FZKH_INSERT_ULTIMO_ASSETPIC(p_import_key IN NUMBER)
AS
BEGIN
@@ -4033,8 +4063,7 @@ AS
v_aanduiding VARCHAR2 (200);
v_code VARCHAR2(10);
v_image VARCHAR(255);
v_ultimonr VARCHAR2(10);
v_image VARCHAR(255);
v_count NUMBER:=0;
V_total_count NUMBER:=0;
BEGIN
@@ -4049,16 +4078,12 @@ BEGIN
FOR rec in c1
LOOP
IF LENGTH(rec.ultimonr)<>6
THEN
v_ultimoNr:=LPAD(rec.ultimonr,'0');
ELSE
v_ultimonr:=rec.ultimonr;
END IF;
v_image := SUBSTR(rec.file_path1, INSTR(rec.file_path1,'\',1,3)+1);
UPDATE ins_deel i
SET i.ins_deel_image = v_image
WHERE ins_deel_omschrijving=v_ultimonr;
WHERE ins_deel_omschrijving=rec.ultimonr;
v_count:=v_count+1;
END LOOP;
fac.imp_writelog (p_import_key,