diff --git a/FZKH/FZKH.sql b/FZKH/FZKH.sql index ada77d14c..7080ebe75 100644 --- a/FZKH/FZKH.sql +++ b/FZKH/FZKH.sql @@ -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,