diff --git a/MedicusWithClaude/CLAUDE_NOTES.md b/MedicusWithClaude/CLAUDE_NOTES.md index 3686ea1..39e152b 100644 --- a/MedicusWithClaude/CLAUDE_NOTES.md +++ b/MedicusWithClaude/CLAUDE_NOTES.md @@ -6,6 +6,7 @@ - Zatím: úspěšně čteme i zapisujeme do DB, rozumíme RTF formátu - **2026-03-17**: Obnovena session – Claude si přečetl poznámky, připraven pokračovat - **2026-03-18**: Obnovena session – Claude si přečetl poznámky, připraven pokračovat. Průběžně zapisuje do tohoto souboru. +- **2026-03-20**: Obnovena session – merge logika z `test_import_single.py` integrována do `s03soubory.py`. Import pipeline kompletní. ## Bezpečnost - Pracujeme na **místní kopii** – poškození DB nevadí, obnova = 5 minut @@ -333,16 +334,30 @@ Správný RTF formát klikacího odkazu: ### Stav testování (2026-03-18) - `test_import_3files.py` ✅ ověřeno – klikací odkazy fungují, "Vložené přílohy:" správně -- `test_import_merge.py` – připraveno, nespuštěno -- `test_import_single.py` – připraveno, nespuštěno +- `test_import_merge.py` ✅ připraveno – merge 3 souborů do dnešního dekurzu (bez sekce) +- `test_import_single.py` ✅ připraveno – přidání 1 souboru DO existující sekce přílohy -### TODO – integrace do s03soubory.py -- Přidat `najdi_posledni_dekurs_dnes()` do s03soubory.py -- Přidat `pridat_do_sekce_prilohy()` a `merge_rtf_prepend()` do s03soubory.py -- Nahradit přímý INSERT DEKURS rozhodovací logikou (3 případy) -- Pozn: s03soubory.py má starý `prvnibookmark=True` blok – odstranit (relikt) +### Stav s03soubory.py (2026-03-20) – KOMPLETNÍ ✅ +- Merge logika plně integrována z `test_import_single.py` +- Přidány konstanty `PRILOHY_HEADER`, `PRILOHY_CLOSING` +- Přidány funkce: `najdi_posledni_dekurs_dnes()`, `ma_sekci_prilohy()`, `pridat_do_sekce_prilohy()`, `merge_rtf_prepend()` +- RTF šablona přesunuta do konstanty `RTF_TEMPLATE` +- Odstraněn dead code: `prvnibookmark`, staré šablony, nepoužívané `convert_to1250` +- `pridat_do_sekce_prilohy()` podporuje **více souborů najednou** (oproti test_import_single.py, kde byl jen 1) +- `idpac` se bere z prvního záznamu skupiny (čistěji než z `row` po skončení loopu) + +### Rozhodovací logika s03soubory.py – 3 případy +1. Dnešní dekurs **má** sekci `Vložené přílohy` → soubory přidány **dovnitř** sekce (`pridat_do_sekce_prilohy`) +2. Dnešní dekurs **nemá** sekci příloh → nová sekce vložena **na začátek** (`merge_rtf_prepend`) +3. Žádný dnešní dekurs → **nový** záznam (INSERT) + +### Stav testovacích skriptů +- `test_import_3files.py` ✅ ověřeno – klikací odkazy fungují +- `test_import_merge.py` ✅ otestováno – merge 3 souborů (jen 2 případy, bez detekce sekce) +- `test_import_single.py` ✅ otestováno – všechny 3 případy, základ pro s03soubory.py ## Další postup (nápady) +- Otestovat `s03soubory.py` na Windows se skutečnými soubory (všechny 3 případy) - Napsat `rtf_to_text()` pro extrakci čistého textu z dekurzů - Prozkoumat tabulky: LECH/LECD (léky?), POU (poukazy?), AMBULEKY (výkony?) - První report – domluvit s uživatelem co chce vidět diff --git a/MedicusWithClaude/precti_log.txt b/MedicusWithClaude/precti_log.txt deleted file mode 100644 index 7584fae..0000000 --- a/MedicusWithClaude/precti_log.txt +++ /dev/null @@ -1,2764 +0,0 @@ -5 0 insert into stav (id, iduzi, idprac, mods, time_stamp, compname, cversion) values (7842, 6, 2, '//////////////////8=', '17.03.2026 20:18:20.862'/* time_stamp */, 'NTBVBHP470G10', '3.61.0.371') - -17 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) - -68 0 update tellinky set idpracuziv = NULL where idpracuziv = (select id from pracuziv where idprac = 2 and iduziv = 6) - -119 0 update options set Obsah=29/* Obsah */ where ID=223/* ID */ - -390 0 insert into statistika (datum, iduzi, idprac, textid, params, typ) -values ('17.03.2026'/* datum */, 6/* iduzi */, 2/* idprac */, 0/* textid */, 'acDekursNewOrd'/* params */, '1'/* typ */) - -413 0 execute procedure sp_log(9742/* idpac */, 7/* tblid */, NULL/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) - -427 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -460 0 insert into DEKURS (ID, IDPAC, IDODD, IDUZI, DATUM, CAS, DEKURS, -IDPRAC, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, IDSKUPINA, IDHOSP, ID_LZN_CHOR, PODPIS) -values (263480/* ID */, 9742/* IDPAC */, 2/* IDODD */, 6/* IDUZI */, '17.03.2026'/* DATUM */, '20:18:39.011'/* CAS */, NULL/* DEKURS */, -2/* IDPRAC */, 'J301'/* DGN1 */, NULL/* VDGN1 */, NULL/* VDGN2 */, NULL/* VDGN3 */, NULL/* VDGN4 */, NULL/* IDSKUPINA */, NULL/* IDHOSP */, NULL/* ID_LZN_CHOR */, NULL/* PODPIS */) - -463 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY 3 DESC - , CAS DESC - , ID DESC - -472 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -473 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -474 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -475 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -476 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -477 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -478 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -479 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -480 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -481 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -482 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -483 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -484 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -485 0 select first 1 BMI from SP_GETBMI(9742) - -486 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -487 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -488 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -489 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -490 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -491 0 execute block(IDPAC integer=9742/* IDPAC */, DATUM DATE='18.09.2025'/* DATUM */) - returns (VALUE_BF varchar(8), VALUE_AF varchar(8), LEK_KOD varchar (8), LEK_NAZ varchar(30)) - as - declare variable TMPATC varchar(7) = ''; - declare variable TMPSILA varchar(24) = ''; - declare variable RDATUM date; - declare variable LEKKOD varchar(8) = ''; - declare variable LEKNAZ varchar(30) = ''; - declare variable HODN_BE varchar(8) = '-1'; - declare variable HODN_AF varchar(8) = '-1'; - begin - VALUE_BF = '-1'; - VALUE_AF = '-1'; - LEK_KOD = ''; - LEK_NAZ = ''; - select first 1 DATUM, KOD, LEK, ATC - from RECEPT - where - IDPAC = :IDPAC and - DATUM >= :DATUM and - (ATC starting with 'C10AA01' or - ATC starting with 'C10AA05' or - ATC starting with 'C10AA07') - order by datum desc - into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; - if (RDATUM is null) then - begin - select first 1 m.DATUM, m.KOD, m.NAZ , l.ATC - from MEDIKACE m - join LEKY l on m.kod = l.kod - where - m.IDPAC = :IDPAC and - (m.PLATI_DO >= :DATUM or m.PLATI_DO is null) and - (l.ATC starting with 'C10AA01' or - l.ATC starting with 'C10AA05' or - l.ATC starting with 'C10AA07') - order by m.DATUM desc - into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; - end - if (RDATUM is null) then - begin - VALUE_BF = -1; - VALUE_AF = -1; - LEK_KOD = ''; - LEK_NAZ = ''; - suspend; - exit; - end - if (RDATUM is not null) then - begin - begin - select first 1 VYSL - from LABVD D - join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) - join LABVH H on H.IDVH = D.IDVH - where D.IDPACIENT = :IDPAC and - H.DATUM <= :RDATUM - order by H.DATUM desc, D.ID desc - into :HODN_BE; - select STRING_OUT from sp_replace_char(:HODN_BE, ',', '.') into HODN_BE; - select first 1 VYSL - from LABVD D - join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) - join LABVH H on H.IDVH = D.IDVH - where D.IDPACIENT = :IDPAC and - H.DATUM >= :RDATUM - order by H.DATUM desc, D.ID desc - into :HODN_AF; - select STRING_OUT from sp_replace_char(:HODN_AF, ',', '.') into HODN_AF; - end - if (((HODN_AF > '-1') and (HODN_AF > '0')) and ((HODN_BE = '-1') or (HODN_BE is null))) then - begin - HODN_BE = HODN_AF; - select first 1 SILA from LEKY where KOD = :LEKKOD and (PLATIDO is null or PLATIDO <= 'TODAY') - into :TMPSILA; - if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA01')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.28 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA05')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.37 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA07')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA01')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.35 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA05')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.43 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA07')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.52 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA01')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.39 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA05')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.48 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA07')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.55 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA01')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); - else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA05')) then - HODN_BE = substring(cast(HODN_BE as float) * 1.51 from 1 for 5); - end - end - - begin - VALUE_BF = :hodn_be; - VALUE_AF = :hodn_af; - LEK_KOD = :lekkod; - LEK_NAZ = :leknaz; - suspend; - end -end - -492 0 select heslotelkom from KAR where idpac = 9742 - -493 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -494 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -495 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -496 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -497 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -498 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -499 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -500 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -501 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -502 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -503 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -504 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -505 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -506 0 execute procedure sp_log(9742/* idpac */, 10000/* tblid */, 9742/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) - -507 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -508 0 SELECT R.RDB$RELATION_NAME - , R.RDB$FIELD_NAME -FROM RDB$RELATION_FIELDS R -WHERE R.RDB$RELATION_NAME NOT STARTING WITH 'RDB$' - AND R.RDB$RELATION_NAME NOT STARTING WITH 'MON$' - AND ( R.RDB$SYSTEM_FLAG <> 1 OR R.RDB$SYSTEM_FLAG IS NULL ) -ORDER BY R.RDB$RELATION_NAME ASC - , R.RDB$FIELD_POSITION ASC - -509 0 SELECT R.RDB$PROCEDURE_NAME - , R.RDB$PARAMETER_NAME -FROM RDB$PROCEDURE_PARAMETERS R -WHERE R.RDB$PROCEDURE_NAME NOT STARTING WITH 'RDB$' - AND R.RDB$PROCEDURE_NAME NOT STARTING WITH 'MON$' - AND ( R.RDB$SYSTEM_FLAG <> 1 OR R.RDB$SYSTEM_FLAG IS NULL ) -ORDER BY R.RDB$PROCEDURE_NAME ASC - , R.RDB$PARAMETER_NUMBER ASC - -510 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -511 0 select first 1 ID from staldgn dg where (idpac = 9742/* idpac */ and ((kod like ('I48%')) or (kod like ('I82%')))) -ORDER BY id DESC - -512 0 select STATE from POMPE_TEST where IDPAC = 9742 - -513 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -514 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -515 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -516 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -517 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -518 0 SELECT * FROM SP_PACIENT(9742, '2026-03-17') - -519 0 SELECT COUNT( * ) -FROM SP_PACIENT(9742, '2026-03-17') - -520 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -521 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -522 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -523 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -524 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -525 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -526 0 select first 1 ID from staldgn dg where (idpac = 9742/* idpac */ and ((kod like ('I48%')) or (kod like ('I82%')))) -ORDER BY id DESC - -527 0 select STATE from POMPE_TEST where IDPAC = 9742 - -528 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -529 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -530 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -531 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -532 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -533 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -534 0 /* IBO Custom LockSQL */ -UPDATE DEKURS SET ID = ID WHERE ID = 263480/* ID */ - -535 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=263233/* DekursId */ - -536 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -537 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=263145/* DekursId */ - -538 0 select ID, BARVA from DEKURS_SKUPINY -ORDER BY ID ASC - -539 0 select ID, DATUM, TABULKA, IDREC, TYP, POPIS, IDODDEL, case when TYP = 34 then 26 else TYP END as TYP2 -from DOCLIST -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATOSE, cast('DOKLADD' as VARCHAR(20)), ID, cast(22 as SMALLINT), cast(case when POCVYK > 1 then POCVYK || 'x' else '' end || KOD || ' (' || TRIM(COALESCE(DDGN,'')) || ')' as VARCHAR(30)), cast(1 as INTEGER), cast(22 as SMALLINT) -from DOKLADD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATOSE, cast('LECD' as VARCHAR(20)), ID, cast(23 as SMALLINT), cast(case when POCET <> 1 then POCET || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(23 as SMALLINT) -from LECD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATUM, cast('DIS' as VARCHAR(20)), ID, cast(25 as SMALLINT), cast(substring(POZNAM from 1 for 30) as VARCHAR(30)), cast(1 as INTEGER), cast(25 as SMALLINT) -from DIS -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATVYD, cast('POUFONID' as VARCHAR(20)), ID, cast(31 as SMALLINT), cast(KOD as VARCHAR(30)), cast(1 as INTEGER), cast(31 as SMALLINT) -from POUFONID PFD -join POUFONIH PFH on PFH.IDHLAV = PFD.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATVYD, cast('POU' as VARCHAR(20)), ID, cast(32 as SMALLINT), cast(case when MNOZ <> 1 then MNOZ || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(32 as SMALLINT) -from POU -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') -ORDER BY 2 ASC - , 8 ASC - , 1 ASC - -540 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -541 0 select icp from ICP where idicz = '12' and odb = '001' - -542 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -543 0 select icp from ICP where idicz = '12' and odb = '001' - -544 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -545 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -546 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -547 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -548 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -549 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -550 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -551 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -552 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -553 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -554 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -555 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -556 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -557 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -558 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -559 0 select first 1 BMI from SP_GETBMI(9742) - -560 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -561 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -562 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -563 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -564 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -565 0 select heslotelkom from KAR where idpac = 9742 - -566 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -567 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -568 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -569 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -570 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -571 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -572 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -573 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -574 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -575 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -576 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -577 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -578 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=262704/* DekursId */ - -579 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=260935/* DekursId */ - -580 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=260553/* DekursId */ - -581 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=258489/* DekursId */ - -582 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=257310/* DekursId */ - -583 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=256633/* DekursId */ - -584 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=256394/* DekursId */ - -585 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=255132/* DekursId */ - -586 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=253617/* DekursId */ - -587 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=253367/* DekursId */ - -588 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=252909/* DekursId */ - -589 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=251333/* DekursId */ - -590 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=250934/* DekursId */ - -591 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=250549/* DekursId */ - -592 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=250259/* DekursId */ - -593 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=249967/* DekursId */ - -594 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=249874/* DekursId */ - -595 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=248575/* DekursId */ - -596 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=248307/* DekursId */ - -597 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=247520/* DekursId */ - -598 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=247200/* DekursId */ - -599 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=246963/* DekursId */ - -600 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=246523/* DekursId */ - -601 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=245841/* DekursId */ - -602 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=245510/* DekursId */ - -603 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=245286/* DekursId */ - -604 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=244526/* DekursId */ - -605 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=244348/* DekursId */ - -606 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=243798/* DekursId */ - -607 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=243428/* DekursId */ - -608 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=243172/* DekursId */ - -609 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=243082/* DekursId */ - -610 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=242626/* DekursId */ - -611 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=242621/* DekursId */ - -612 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=242584/* DekursId */ - -613 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=242200/* DekursId */ - -614 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=241991/* DekursId */ - -615 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -616 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=240976/* DekursId */ - -617 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=240085/* DekursId */ - -618 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=239880/* DekursId */ - -619 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=239163/* DekursId */ - -620 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=238642/* DekursId */ - -621 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=238102/* DekursId */ - -622 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=235638/* DekursId */ - -623 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=235632/* DekursId */ - -624 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=234238/* DekursId */ - -625 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=233292/* DekursId */ - -626 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=233360/* DekursId */ - -627 0 select a.IDGVYS,a.STATE,b.ID,b.PREVIEW,b.NAZEV from DEKPICT a left join GVysetreni b on b.ID=a.IDGVYS where a.IDDEKURS=232681/* DekursId */ - -628 0 select 1 from INF_DG where KOD = 'J301'/* KOD */ - -629 0 select 1 from INF_DG where KOD = 'J30'/* KOD */ - -630 0 select id, data, datum from histdoc -where (idpaci = 9742) and (datum >= '16.11.2025'/* datumod */) and (datum <= '17.03.2026'/* datumdo */) and ((typ = 'ORTOP') or (typ = 'ORTOPE')) -ORDER BY datum DESC - , id DESC - -631 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -632 0 select * from DEKURS where ID=263233/* ID */ - -633 0 select * from DEKURS where ID=263145/* ID */ - -634 0 select * from DEKURS where ID=262704/* ID */ - -635 0 select * from DEKURS where ID=260935/* ID */ - -636 0 select * from DEKURS where ID=260553/* ID */ - -637 0 select * from DEKURS where ID=258489/* ID */ - -638 0 select * from DEKURS where ID=257310/* ID */ - -639 0 select * from DEKURS where ID=256633/* ID */ - -640 0 select * from DEKURS where ID=256394/* ID */ - -641 0 select * from DEKURS where ID=255132/* ID */ - -642 0 select * from DEKURS where ID=253617/* ID */ - -643 0 select * from DEKURS where ID=253367/* ID */ - -644 0 select * from DEKURS where ID=252909/* ID */ - -645 0 select * from DEKURS where ID=251333/* ID */ - -646 0 select * from DEKURS where ID=250934/* ID */ - -647 0 select * from DEKURS where ID=250549/* ID */ - -648 0 select * from DEKURS where ID=250259/* ID */ - -649 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -650 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -651 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -652 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -653 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -654 0 select * from DEKURS where ID=249967/* ID */ - -655 0 insert into statistika (datum, iduzi, idprac, textid, params, typ) -values ('17.03.2026'/* datum */, 6/* iduzi */, 2/* idprac */, 0/* textid */, 'acFiles'/* params */, '1'/* typ */) - -656 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -657 0 select f.*, u.ZKRATKA as UZI from Files f left join Uzivatel u on f.IdUzi = u.IdUzi where (f.IdPac = 9742) -ORDER BY 7 ASC - -658 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -659 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202010' - -660 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202010' - -661 0 select id, nazev from doctyp where sysid is null or sysid <> 12 -ORDER BY nazev ASC - -662 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -663 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202110' - -664 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202110' - -665 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -666 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202411' - -667 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202411' - -668 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -669 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202505' - -670 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202505' - -671 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -672 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202507' - -673 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202507' - -674 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -675 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202510' - -676 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202510' - -677 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -678 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202604' - -679 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202604' - -680 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -681 0 select * from DEKURS where ID=249874/* ID */ - -682 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -683 0 select icp from ICP where idicz = '12' and odb = '001' - -684 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -685 0 select icp from ICP where idicz = '12' and odb = '001' - -686 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -687 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -688 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -689 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -690 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -691 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -692 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -693 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -694 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -695 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -696 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -697 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -698 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -699 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -700 0 select first 1 BMI from SP_GETBMI(9742) - -701 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -702 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -703 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -704 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -705 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -706 0 select heslotelkom from KAR where idpac = 9742 - -707 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -708 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -709 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -710 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -711 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -712 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -713 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -714 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -715 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -716 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -717 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -718 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -719 0 select * from DEKURS where ID=248575/* ID */ - -720 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login='2|6'/* Login */) - -721 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login is NULL) - -722 0 execute procedure sp_log(9742/* idpac */, 21/* tblid */, NULL/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) - -723 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -724 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -725 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -726 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -727 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -728 0 select * from DEKURS where ID=248307/* ID */ - -729 0 select * from DEKURS where ID=247520/* ID */ - -730 0 select * from DEKURS where ID=247200/* ID */ - -731 0 select * from DEKURS where ID=246963/* ID */ - -732 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -733 0 select icp from ICP where idicz = '12' and odb = '001' - -734 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -735 0 select icp from ICP where idicz = '12' and odb = '001' - -736 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -737 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -738 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -739 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -740 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -741 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -742 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -743 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -744 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -745 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -746 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -747 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -748 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -749 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -750 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -751 0 select first 1 BMI from SP_GETBMI(9742) - -752 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -753 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -754 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -755 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -756 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -757 0 select heslotelkom from KAR where idpac = 9742 - -758 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -759 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -760 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -761 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -762 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -763 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -764 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -765 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -766 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -767 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -768 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -769 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -770 0 select * from DEKURS where ID=246523/* ID */ - -771 0 select * from DEKURS where ID=245841/* ID */ - -772 0 select * from DEKURS where ID=245510/* ID */ - -773 0 select * from DEKURS where ID=245286/* ID */ - -774 0 select * from DEKURS where ID=244526/* ID */ - -775 0 select * from DEKURS where ID=244348/* ID */ - -776 0 select * from DEKURS where ID=243798/* ID */ - -777 0 select * from DEKURS where ID=243428/* ID */ - -778 0 select * from DEKURS where ID=243172/* ID */ - -779 0 select * from DEKURS where ID=243082/* ID */ - -780 0 select * from DEKURS where ID=242626/* ID */ - -781 0 select * from DEKURS where ID=242621/* ID */ - -782 0 select * from DEKURS where ID=242584/* ID */ - -783 0 select * from DEKURS where ID=242200/* ID */ - -784 0 select * from DEKURS where ID=241991/* ID */ - -785 0 select * from DEKURS where ID=240976/* ID */ - -786 0 select * from DEKURS where ID=240085/* ID */ - -787 0 select * from DEKURS where ID=239880/* ID */ - -788 0 select * from DEKURS where ID=239163/* ID */ - -789 0 select * from DEKURS where ID=238642/* ID */ - -790 0 select * from DEKURS where ID=238102/* ID */ - -791 0 select * from DEKURS where ID=235638/* ID */ - -792 0 select * from DEKURS where ID=235632/* ID */ - -793 0 select * from DEKURS where ID=234238/* ID */ - -794 0 select * from DEKURS where ID=233292/* ID */ - -795 0 select * from DEKURS where ID=233360/* ID */ - -796 0 select * from DEKURS where ID=232681/* ID */ - -797 0 SELECT ID,IDUZIV,IDPRAC,SECRET_TYPE,SECRET FROM KEYSTORE WHERE coalesce(IDUZIV,0)=6/* IDUZIV */ AND coalesce(IDPRAC,0)=2/* IDPRAC */ AND SECRET_TYPE='SUKLPASS'/* SECRET_TYPE */ - -798 0 select ID,Obsah from Options where - (Category='Global'/* Category */) and - (Name='CheckVersion'/* Name */) and - (Login='2|6'/* Login */) - -799 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -800 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -801 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -802 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' - -803 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202603' - -804 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202603' - -805 0 SELECT GEN_ID( GEN_FILES, 1 ) FROM RDB$DATABASE -806 0 SELECT S.RDB$FIELD_NAME - , I.RDB$RELATION_NAME - , C.RDB$CONSTRAINT_NAME -FROM RDB$RELATION_CONSTRAINTS C - , RDB$INDICES I - , RDB$INDEX_SEGMENTS S -WHERE C.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' - AND C.RDB$RELATION_NAME = I.RDB$RELATION_NAME - AND C.RDB$INDEX_NAME = I.RDB$INDEX_NAME - AND I.RDB$INDEX_NAME = S.RDB$INDEX_NAME -ORDER BY I.RDB$RELATION_NAME ASC - , C.RDB$CONSTRAINT_TYPE ASC - , C.RDB$CONSTRAINT_NAME ASC - , S.RDB$FIELD_POSITION ASC - -807 0 SELECT S.RDB$FIELD_NAME - , I.RDB$RELATION_NAME - , C.RDB$CONSTRAINT_NAME -FROM RDB$RELATION_CONSTRAINTS C - , RDB$INDICES I - , RDB$INDEX_SEGMENTS S -WHERE C.RDB$CONSTRAINT_TYPE = 'UNIQUE' - AND C.RDB$RELATION_NAME = I.RDB$RELATION_NAME - AND C.RDB$INDEX_NAME = I.RDB$INDEX_NAME - AND I.RDB$INDEX_NAME = S.RDB$INDEX_NAME -ORDER BY I.RDB$RELATION_NAME ASC - , C.RDB$CONSTRAINT_TYPE ASC - , C.RDB$CONSTRAINT_NAME ASC - , S.RDB$FIELD_POSITION ASC - -808 0 /* IBO System InsertSQL with UpdateMode umAllWhereKey */ -INSERT INTO FILES -( ID -, IDPAC -, DOCID -, TYP -, FILENAME -, BODY -, DATUM -, IDDOCTYP -, IDPRAC -, IDUZI -, POZNAMKA -, DATSOUBORU -, ID_EDOKUMENT -, EXT_ID ) -VALUES -( 10489/* NEW.ID */ -, 9742/* NEW.IDPAC */ -, NULL/* NEW.DOCID */ -, 1/* NEW.TYP */ -, 'AhojClaude.pdf'/* NEW.FILENAME */ -, 2/* NEW.BODY */ -, '17.03.2026'/* NEW.DATUM */ -, NULL/* NEW.IDDOCTYP */ -, 2/* NEW.IDPRAC */ -, 6/* NEW.IDUZI */ -, NULL/* NEW.POZNAMKA */ -, '17.03.2026 17:09:26.000'/* NEW.DATSOUBORU */ -, NULL/* NEW.ID_EDOKUMENT */ -, NULL/* NEW.EXT_ID */ ) -RETURNING ID - , IDPAC - , DOCID - , TYP - , FILENAME - , BODY - , DATUM - , IDDOCTYP - , IDPRAC - , IDUZI - , POZNAMKA - , DATSOUBORU - , ID_EDOKUMENT - , EXT_ID - -809 0 select f.*, u.ZKRATKA as UZI from Files f left join Uzivatel u on f.IdUzi = u.IdUzi -WHERE f.ID = 10489/* BIND_0 */ - -810 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID Where (l.IDPAC=9742) and (l.Datum='17.03.2026') and (l.Link='Files:10489') and (l.Deleted = 'F') -ORDER BY d.ID ASC NULLS LAST - , l.ID ASC - -811 0 SELECT GEN_ID( GEN_DEKLINK, 1 ) FROM RDB$DATABASE -812 0 /* IBO Custom InsertSQL */ -insert into DEKLINK(ID,IDPAC,IDUZIV,IDDEKURS,LINK,DATUM,DATA,IDHOSP,DELETED) values(312999/* ID */,9742/* IDPAC */,6/* IDUZIV */,NULL/* IDDEKURS */,'Files:10489'/* LINK */,'17.03.2026'/* DATUM */,3/* DATA */,NULL/* IDHOSP */,'F'/* DELETED */) - -813 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID -WHERE l.ID = 312999/* BIND_0 */ - -814 0 update DEKLINK set -IDDEKURS=263480 -where ID=312999 - -815 0 /* IBO Custom EditSQL */ -UPDATE DEKURS SET - ID = 263480/* ID */, /*PK*/ - IDPAC = 9742/* IDPAC */, - DATUM = '17.03.2026'/* DATUM */, - CAS = '20:18:39.011'/* CAS */, - DEKURS = 1/* DEKURS */, - DGN1 = 'J301 '/* DGN1 */, - VDGN1 = NULL/* VDGN1 */, - VDGN2 = NULL/* VDGN2 */, - VDGN3 = NULL/* VDGN3 */, - VDGN4 = NULL/* VDGN4 */, - IDODD = 2/* IDODD */, - IDPRAC = 2/* IDPRAC */, - IDUZI = 6/* IDUZI */, - IDODESLAL = NULL/* IDODESLAL */, - SIGNATURE = NULL/* SIGNATURE */, - SIGNATURE_INFO = NULL/* SIGNATURE_INFO */, - IDCERTIFICATE = NULL/* IDCERTIFICATE */, - OLD_VERSION_ID = NULL/* OLD_VERSION_ID */, - BG = NULL/* BG */, - TST = NULL/* TST */, - ID_EDOKUMENT = NULL/* ID_EDOKUMENT */, - IDSKUPINA = NULL/* IDSKUPINA */, - PODPIS = NULL/* PODPIS */ -WHERE - ID = 263480/* OLD_ID */ - -816 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -817 0 /* IBO Custom LockSQL */ -UPDATE DEKURS SET ID = ID WHERE ID = 263480/* ID */ - -818 0 update DEKLINK set -IDDEKURS=263480 -, DATA=null -where ID=312999 - -819 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -820 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -821 0 select ID from DEKURS DEK1 where DATUM = '17.03.2026'/* DATUM */ and IDPAC = 9742/* IDPAC */ AND NOT EXISTS(SELECT ID FROM DEKURS D WHERE D.OLD_VERSION_ID = DEK1.ID) and IDHOSP is null -ORDER BY DATUM DESC - , CAS DESC - -822 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -823 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -824 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY 3 DESC - , CAS DESC - , ID DESC - -825 0 SELECT ID, DATUM, CAS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - ODD, UZI, PRAC, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDUZI, - SIGNATURE, LAST_UPDATED, IDSKUPINA - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY DATUM ASC - , CAS ASC - , ID ASC - -826 0 select ID, DATUM, TABULKA, IDREC, TYP, POPIS, IDODDEL, case when TYP = 34 then 26 else TYP END as TYP2 -from DOCLIST -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATOSE, cast('DOKLADD' as VARCHAR(20)), ID, cast(22 as SMALLINT), cast(case when POCVYK > 1 then POCVYK || 'x' else '' end || KOD || ' (' || TRIM(COALESCE(DDGN,'')) || ')' as VARCHAR(30)), cast(1 as INTEGER), cast(22 as SMALLINT) -from DOKLADD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATOSE, cast('LECD' as VARCHAR(20)), ID, cast(23 as SMALLINT), cast(case when POCET <> 1 then POCET || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(23 as SMALLINT) -from LECD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATUM, cast('DIS' as VARCHAR(20)), ID, cast(25 as SMALLINT), cast(substring(POZNAM from 1 for 30) as VARCHAR(30)), cast(1 as INTEGER), cast(25 as SMALLINT) -from DIS -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATVYD, cast('POUFONID' as VARCHAR(20)), ID, cast(31 as SMALLINT), cast(KOD as VARCHAR(30)), cast(1 as INTEGER), cast(31 as SMALLINT) -from POUFONID PFD -join POUFONIH PFH on PFH.IDHLAV = PFD.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATVYD, cast('POU' as VARCHAR(20)), ID, cast(32 as SMALLINT), cast(case when MNOZ <> 1 then MNOZ || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(32 as SMALLINT) -from POU -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') -ORDER BY 2 ASC - , 8 ASC - , 1 ASC - -827 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -828 0 select icp from ICP where idicz = '12' and odb = '001' - -829 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -830 0 select icp from ICP where idicz = '12' and odb = '001' - -831 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -832 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -833 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -834 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -835 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -836 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -837 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -838 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -839 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -840 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -841 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -842 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -843 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -844 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -845 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -846 0 select first 1 BMI from SP_GETBMI(9742) - -847 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -848 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -849 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -850 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -851 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -852 0 select heslotelkom from KAR where idpac = 9742 - -853 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -854 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -855 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -856 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -857 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -858 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -859 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -860 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -861 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -862 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -863 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -864 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -865 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -866 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7842, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') - -867 0 select FSDATS from STAV where ID = 7842/* ID */ - -868 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -869 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -870 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') - -871 0 select servertimestamp from sp_servertimestamp - -872 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 - -873 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -874 0 select ID, DATUM, TABULKA, IDREC, TYP, POPIS, IDODDEL, case when TYP = 34 then 26 else TYP END as TYP2 -from DOCLIST -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATOSE, cast('DOKLADD' as VARCHAR(20)), ID, cast(22 as SMALLINT), cast(case when POCVYK > 1 then POCVYK || 'x' else '' end || KOD || ' (' || TRIM(COALESCE(DDGN,'')) || ')' as VARCHAR(30)), cast(1 as INTEGER), cast(22 as SMALLINT) -from DOKLADD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATOSE, cast('LECD' as VARCHAR(20)), ID, cast(23 as SMALLINT), cast(case when POCET <> 1 then POCET || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(23 as SMALLINT) -from LECD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATUM, cast('DIS' as VARCHAR(20)), ID, cast(25 as SMALLINT), cast(substring(POZNAM from 1 for 30) as VARCHAR(30)), cast(1 as INTEGER), cast(25 as SMALLINT) -from DIS -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATVYD, cast('POUFONID' as VARCHAR(20)), ID, cast(31 as SMALLINT), cast(KOD as VARCHAR(30)), cast(1 as INTEGER), cast(31 as SMALLINT) -from POUFONID PFD -join POUFONIH PFH on PFH.IDHLAV = PFD.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATVYD, cast('POU' as VARCHAR(20)), ID, cast(32 as SMALLINT), cast(case when MNOZ <> 1 then MNOZ || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(32 as SMALLINT) -from POU -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') -ORDER BY 2 ASC - , 8 ASC - , 1 ASC - -875 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -876 0 select icp from ICP where idicz = '12' and odb = '001' - -877 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -878 0 select icp from ICP where idicz = '12' and odb = '001' - -879 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -880 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -881 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -882 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -883 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -884 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -885 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -886 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -887 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -888 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -889 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -890 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -891 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -892 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -893 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -894 0 select first 1 BMI from SP_GETBMI(9742) - -895 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -896 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -897 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -898 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -899 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -900 0 select heslotelkom from KAR where idpac = 9742 - -901 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -902 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -903 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -904 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -905 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -906 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -907 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -908 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -909 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -910 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -911 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -912 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -913 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -914 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -915 0 /* IBO System EditSQL with UpdateMode umAllWhereKey */ -UPDATE FILES F - SET f.ID = 10489/* NEW.f.ID */ - , f.IDPAC = 9742/* NEW.f.IDPAC */ - , f.DOCID = NULL/* NEW.f.DOCID */ - , f.TYP = 1/* NEW.f.TYP */ - , f.FILENAME = 'AhojClaude.pdf'/* NEW.f.FILENAME */ - , f.BODY = 2121713988233/* NEW.f.BODY */ - , f.DATUM = '17.03.2026'/* NEW.f.DATUM */ - , f.IDDOCTYP = 1/* NEW.f.IDDOCTYP */ - , f.IDPRAC = 2/* NEW.f.IDPRAC */ - , f.IDUZI = 6/* NEW.f.IDUZI */ - , f.POZNAMKA = 'test'/* NEW.f.POZNAMKA */ - , f.DATSOUBORU = '17.03.2026 17:09:26.000'/* NEW.f.DATSOUBORU */ - , f.ID_EDOKUMENT = NULL/* NEW.f.ID_EDOKUMENT */ - , f.EXT_ID = NULL/* NEW.f.EXT_ID */ -WHERE f.ID = 10489/* OLD.f.ID */ -RETURNING ID - , IDPAC - , DOCID - , TYP - , FILENAME - , BODY - , DATUM - , IDDOCTYP - , IDPRAC - , IDUZI - , POZNAMKA - , DATSOUBORU - , ID_EDOKUMENT - , EXT_ID - -916 0 select f.*, u.ZKRATKA as UZI from Files f left join Uzivatel u on f.IdUzi = u.IdUzi -WHERE f.ID = 10489/* BIND_0 */ - -917 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID Where (l.IDPAC=9742) and (l.Datum='17.03.2026') and (l.Link='Files:10489') -ORDER BY l.DELETED ASC - , d.ID ASC NULLS LAST - , l.ID ASC - -918 0 /* IBO Custom EditSQL */ -update DEKLINK set IDPAC=9742/* IDPAC */,IDUZIV=6/* IDUZIV */,IDDEKURS=263480/* IDDEKURS */,LINK='Files:10489'/* LINK */,DATUM='17.03.2026'/* DATUM */,DATA=6/* DATA */,IDHOSP=NULL/* IDHOSP */,DELETED='T'/* DELETED */ where ID=312999/* ID */ - -919 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID -WHERE l.ID = 312999/* BIND_0 */ - -920 0 delete from DekLink where Id=312999 - -921 0 /* IBO Custom EditSQL */ -UPDATE DEKURS SET - ID = 263480/* ID */, /*PK*/ - IDPAC = 9742/* IDPAC */, - DATUM = '17.03.2026'/* DATUM */, - CAS = '20:18:39.011'/* CAS */, - DEKURS = 5/* DEKURS */, - DGN1 = 'J301 '/* DGN1 */, - VDGN1 = NULL/* VDGN1 */, - VDGN2 = NULL/* VDGN2 */, - VDGN3 = NULL/* VDGN3 */, - VDGN4 = NULL/* VDGN4 */, - IDODD = 2/* IDODD */, - IDPRAC = 2/* IDPRAC */, - IDUZI = 6/* IDUZI */, - IDODESLAL = NULL/* IDODESLAL */, - SIGNATURE = NULL/* SIGNATURE */, - SIGNATURE_INFO = NULL/* SIGNATURE_INFO */, - IDCERTIFICATE = NULL/* IDCERTIFICATE */, - OLD_VERSION_ID = NULL/* OLD_VERSION_ID */, - BG = NULL/* BG */, - TST = NULL/* TST */, - ID_EDOKUMENT = NULL/* ID_EDOKUMENT */, - IDSKUPINA = NULL/* IDSKUPINA */, - PODPIS = NULL/* PODPIS */ -WHERE - ID = 263480/* OLD_ID */ - -922 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -923 0 /* IBO Custom LockSQL */ -UPDATE DEKURS SET ID = ID WHERE ID = 263480/* ID */ - -924 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -925 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -926 0 select ID from DEKURS DEK1 where DATUM = '17.03.2026'/* DATUM */ and IDPAC = 9742/* IDPAC */ AND NOT EXISTS(SELECT ID FROM DEKURS D WHERE D.OLD_VERSION_ID = DEK1.ID) and IDHOSP is null -ORDER BY DATUM DESC - , CAS DESC - -927 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -928 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -929 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY 3 DESC - , CAS DESC - , ID DESC - -930 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID Where (l.IDPAC=9742) and (l.Datum='17.03.2026') and (l.Link='Files:10489') and (l.Deleted = 'F') -ORDER BY d.ID ASC NULLS LAST - , l.ID ASC - -931 0 SELECT GEN_ID( GEN_DEKLINK, 1 ) FROM RDB$DATABASE -932 0 /* IBO Custom InsertSQL */ -insert into DEKLINK(ID,IDPAC,IDUZIV,IDDEKURS,LINK,DATUM,DATA,IDHOSP,DELETED) values(313000/* ID */,9742/* IDPAC */,6/* IDUZIV */,NULL/* IDDEKURS */,'Files:10489'/* LINK */,'17.03.2026'/* DATUM */,9/* DATA */,NULL/* IDHOSP */,'F'/* DELETED */) - -933 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID -WHERE l.ID = 313000/* BIND_0 */ - -934 0 update DEKLINK set -IDDEKURS=263480 -where ID=313000 - -935 0 /* IBO Custom EditSQL */ -UPDATE DEKURS SET - ID = 263480/* ID */, /*PK*/ - IDPAC = 9742/* IDPAC */, - DATUM = '17.03.2026'/* DATUM */, - CAS = '20:18:39.011'/* CAS */, - DEKURS = 13/* DEKURS */, - DGN1 = 'J301 '/* DGN1 */, - VDGN1 = NULL/* VDGN1 */, - VDGN2 = NULL/* VDGN2 */, - VDGN3 = NULL/* VDGN3 */, - VDGN4 = NULL/* VDGN4 */, - IDODD = 2/* IDODD */, - IDPRAC = 2/* IDPRAC */, - IDUZI = 6/* IDUZI */, - IDODESLAL = NULL/* IDODESLAL */, - SIGNATURE = NULL/* SIGNATURE */, - SIGNATURE_INFO = NULL/* SIGNATURE_INFO */, - IDCERTIFICATE = NULL/* IDCERTIFICATE */, - OLD_VERSION_ID = NULL/* OLD_VERSION_ID */, - BG = NULL/* BG */, - TST = NULL/* TST */, - ID_EDOKUMENT = NULL/* ID_EDOKUMENT */, - IDSKUPINA = NULL/* IDSKUPINA */, - PODPIS = NULL/* PODPIS */ -WHERE - ID = 263480/* OLD_ID */ - -936 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -937 0 /* IBO Custom LockSQL */ -UPDATE DEKURS SET ID = ID WHERE ID = 263480/* ID */ - -938 0 update DEKLINK set -IDDEKURS=263480 -, DATA=null -where ID=313000 - -939 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -940 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -941 0 select ID from DEKURS DEK1 where DATUM = '17.03.2026'/* DATUM */ and IDPAC = 9742/* IDPAC */ AND NOT EXISTS(SELECT ID FROM DEKURS D WHERE D.OLD_VERSION_ID = DEK1.ID) and IDHOSP is null -ORDER BY DATUM DESC - , CAS DESC - -942 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login='2|6'/* Login */) - -943 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='DataView'/* Name */) and - (Login is NULL) - -944 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY 3 DESC - , CAS DESC - , ID DESC - -945 0 SELECT ID, DATUM, CAS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - ODD, UZI, PRAC, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDUZI, - SIGNATURE, LAST_UPDATED, IDSKUPINA - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY DATUM ASC - , CAS ASC - , ID ASC - -946 0 SELECT ID, DATUM, CAS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - ODD, UZI, PRAC, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDUZI, - SIGNATURE, LAST_UPDATED, IDSKUPINA - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY DATUM ASC - , CAS ASC - , ID ASC - -947 0 select ID, DATUM, TABULKA, IDREC, TYP, POPIS, IDODDEL, case when TYP = 34 then 26 else TYP END as TYP2 -from DOCLIST -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATOSE, cast('DOKLADD' as VARCHAR(20)), ID, cast(22 as SMALLINT), cast(case when POCVYK > 1 then POCVYK || 'x' else '' end || KOD || ' (' || TRIM(COALESCE(DDGN,'')) || ')' as VARCHAR(30)), cast(1 as INTEGER), cast(22 as SMALLINT) -from DOKLADD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATOSE, cast('LECD' as VARCHAR(20)), ID, cast(23 as SMALLINT), cast(case when POCET <> 1 then POCET || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(23 as SMALLINT) -from LECD -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATUM, cast('DIS' as VARCHAR(20)), ID, cast(25 as SMALLINT), cast(substring(POZNAM from 1 for 30) as VARCHAR(30)), cast(1 as INTEGER), cast(25 as SMALLINT) -from DIS -where IDPAC = 9742/* IDPAC */ - -union - -select ID, DATVYD, cast('POUFONID' as VARCHAR(20)), ID, cast(31 as SMALLINT), cast(KOD as VARCHAR(30)), cast(1 as INTEGER), cast(31 as SMALLINT) -from POUFONID PFD -join POUFONIH PFH on PFH.IDHLAV = PFD.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') - -union - -select ID, DATVYD, cast('POU' as VARCHAR(20)), ID, cast(32 as SMALLINT), cast(case when MNOZ <> 1 then MNOZ || 'x' else '' end || KOD as VARCHAR(30)), cast(1 as INTEGER), cast(32 as SMALLINT) -from POU -where (RODCIS = '7309208104'/* RODCIS */) and (RODCIS <> '') -ORDER BY 2 ASC - , 8 ASC - , 1 ASC - -948 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -949 0 select icp from ICP where idicz = '12' and odb = '001' - -950 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -951 0 select icp from ICP where idicz = '12' and odb = '001' - -952 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -953 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -954 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -955 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -956 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -957 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -958 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -959 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -960 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -961 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -962 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -963 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -964 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -965 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -966 0 select first 1 BMI from SP_GETBMI(9742) - -967 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -968 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -969 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -970 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -971 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -972 0 select heslotelkom from KAR where idpac = 9742 - -973 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -974 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -975 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -976 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -977 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -978 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -979 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -980 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -981 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -982 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -983 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -984 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -985 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -986 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -987 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -988 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -989 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -990 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -991 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -992 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -993 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -994 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -995 0 select first 1 ID from staldgn dg where (idpac = 9742/* idpac */ and ((kod like ('I48%')) or (kod like ('I82%')))) -ORDER BY id DESC - -996 0 select STATE from POMPE_TEST where IDPAC = 9742 - -997 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -998 0 select icp from ICP where idicz = '12' and odb = '001' - -999 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -1000 0 select icp from ICP where idicz = '12' and odb = '001' - -1001 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -1002 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1003 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -1004 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -1005 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -1006 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -1007 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -1008 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -1009 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -1010 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -1011 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -1012 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -1013 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -1014 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -1015 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -1016 0 select first 1 BMI from SP_GETBMI(9742) - -1017 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -1018 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -1019 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -1020 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -1021 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -1022 0 select heslotelkom from KAR where idpac = 9742 - -1023 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1024 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1025 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -1026 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1027 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1028 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -1029 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -1030 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1031 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1032 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -1033 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -1034 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -1035 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1036 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -1037 0 Select l.ID,l.IDPAC,l.IDUZIV,l.IDDEKURS,l.LINK,l.DATUM,l.DATA,l.IDHOSP,l.DELETED From Deklink l left join Dekurs d on l.IDDEKURS=d.ID Where (l.IDPAC=9742) and (l.Datum='17.03.2026') and not (l.Data is NULL) -ORDER BY l.DELETED ASC - , d.ID ASC NULLS LAST - , l.ID ASC - -1038 0 select * from DEKURS where ID=263480/* ID */ - -1039 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY 3 DESC - , CAS DESC - , ID DESC - -1040 0 SELECT ID, IDPAC, DATUM, CAS, DEKURS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - IDODD, IDUZI, IDPRAC, IDODESLAL, ODD, UZI, PRAC, SIGNATURE, SIGNATURE_INFO, - IDCERTIFICATE, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDHOSP, TST, - LINKS, LAST_UPDATED, ID_EDOKUMENT, IDSKUPINA, ID_LZN_CHOR, PODPIS, PRINTED, -(select count(*) from MEDIKACE where PLATI_OD<=DEKURS_SEL.DATUM and (PLATI_DO>=DEKURS_SEL.DATUM or PLATI_DO is null) and IDPAC=DEKURS_SEL.idpac) as MEDIKACE_COUNT - FROM DEKURS_SEL(9742/* IDPAC */) -WHERE DEKURS_SEL.ID = 232681/* BIND_0 */ - -1041 0 SELECT DEKURS_SEL.ID -FROM DEKURS_SEL(9742/* IDPAC */) -WHERE ID=263480 - AND (IDHOSP is NULL) -1042 0 SELECT ID, DATUM, CAS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - ODD, UZI, PRAC, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDUZI, - SIGNATURE, LAST_UPDATED, IDSKUPINA - FROM DEKURS_SEL(9742/* IDPAC */) -where (IDHOSP is NULL) -ORDER BY DATUM ASC - , CAS ASC - , ID ASC - -1043 0 SELECT ID, DATUM, CAS, DGN1, VDGN1, VDGN2, VDGN3, VDGN4, - ODD, UZI, PRAC, OLD_VERSION_ID, MASTER_HIST_ID, BG, IDUZI, - SIGNATURE, LAST_UPDATED, IDSKUPINA - FROM DEKURS_SEL(9742/* IDPAC */) -WHERE DEKURS_SEL.ID = 263480/* BIND_0 */ - -1044 0 SELECT DEKURS_SEL.ID -FROM DEKURS_SEL(9742/* IDPAC */) -WHERE ID=232681 - AND (IDHOSP is NULL) -1045 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -1046 0 select * from DEKURS_SEL(9742/* IDPAC */) where ID=263480/* ID */ - -1047 0 select first 1 ID from RECEPT where IDPAC = 9742 and DATUM = '17.03.2026' and (IDUZI = 6 or IDPRAC = 2) and ID_EPODANI is null - -1048 0 select ICPE, OSSZ, OSSZ_ODB from PRACUZIV where IDPRAC=2 and IDUZIV=6 - -1049 0 select nes.id from nes where nes.idpac = 9742/* idpac */ and nes.storno = 'F' and nes.epodani = 'T' and nes.icpe = '11031812'/* icpe */ and coalesce(nes.verze_dpn, '') not in ('', 'p', 'o') and exists (select 1 from hpn where hpn.idnes = nes.id and hpn.storno = 'F' and hpn.typ in ('1', '2', 'H') and hpn.idpodani is null and hpn.stav <> 99) - -1050 0 select ID, TYP from NP where IDPAC = 9742/* IDPAC */ and STORNO = 'F' and ICPE = '11031812'/* ICPE */ and TYP in ('N','L') and exists (select 1 from HPN where IDNP = NP.ID and STORNO = 'F' and TYP in ('1','2','H','P') and IDPODANI is null and STAV <> 99) - -1051 0 select ID from NP where IDPAC = 9742/* IDPAC */ and STORNO = 'F' and ICPE = '11031812'/* ICPE */ and TYP = 'M' and exists (select 1 from HPN where IDNP = NP.ID and STORNO = 'F' and TYP in ('1') and IDPODANI is null and STAV <> 99) - -1052 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1053 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1054 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -1055 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -1056 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -1057 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -1058 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -1059 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login='2|6'/* Login */) - -1060 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login is NULL) - -1061 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = ''/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = ''/* RODCIS */) and (H.IDA is NULL) and (H.POJ = ''/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -1062 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = 'XXXXXXXXXX'/* RODCIS */) and (IDA is NULL) and (POJ = NULL/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -1063 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -1064 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -1065 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -1066 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -1067 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -1068 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login='2|6'/* Login */) - -1069 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login is NULL) - -1070 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login='2|6'/* Login */) - -1071 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login is NULL) - -1072 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login='2|6'/* Login */) - -1073 0 select ID,Obsah from Options where - (Category='Desktop'/* Category */) and - (Name='Fonts'/* Name */) and - (Login is NULL) - -1074 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 9742/* IDPAC */ and DATUM <= '17.03.2026'/* DATUM */ -ORDER BY DATUM DESC - , ID DESC - -1075 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 9742 and ICP='09305001' - -1076 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 9742 - -1077 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7309208104'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7309208104'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) - -1078 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV -where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) -union -select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) -union -select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7309208104'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) - -1079 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1080 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -1081 0 select icp from ICP where idicz = '12' and odb = '001' - -1082 0 select idicz from ICZ where poj = '111' and icz = '09305000' - -1083 0 select icp from ICP where idicz = '12' and odb = '001' - -1084 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '17.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 9742 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 9742) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-17')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 9742 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7309208104' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 9742 and DATUM <= '2026-03-17' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 9742 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 9742 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7309208104' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 9742 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 9742 and DATUM >= '17.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(9742, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 9742 and PLATI_OD <= '17.03.2026' and (PLATI_DO >= '17.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 9742 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 9742 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 9742 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7309208104' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 9742 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 9742 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(9742, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=9742 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 9742 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 9742) and (ZACNES <= '17.03.2026') and ((KONNES is NULL) or (KONNES > '17.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 9742 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 9742 and DATUM <= '17.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' - -1085 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '17.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 9742/* ID */ - -1086 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1087 0 select KOD from STALDGN where (IDPAC = 9742) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 9742 order by DATUM desc) -ORDER BY PORADI ASC - , KOD ASC - -1088 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ -from NES N left join NESD D on D.IDNES = N.ID -where (N.IDPAC = 9742) and (N.ZACNES <= '17.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '17.03.2026')) and (N.STORNO = 'F') -ORDER BY N.ZACNES DESC - , D.DATUM DESC - , D.ID DESC - -1089 0 select PV.KOD, -(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7309208104'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -1090 0 select PV.KOD, -PV.JENREG, -PV.ODVYKAZANI -from PROHVYK PV -where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) -and (PV.VEKOD is NULL or PV.VEKOD <= 52/* VEKOD */) -and (PV.VEKDO is NULL or PV.VEKDO > 52/* VEKDO */) -and (PV.POHLAVI is NULL or PV.POHLAVI = 'M'/* POHLAVI */) -ORDER BY PV.KOD ASC - -1091 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 9742) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 9742 order by A.DATUM desc) -ORDER BY S.PORADI ASC - , S.KOD ASC - -1092 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 9742 -ORDER BY TP.DATUM DESC - -1093 0 select first 1 DATUM from GENVYS where IDPAC = 9742 and TYP = 110 -ORDER BY DATUM DESC - -1094 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 9742 and ICP='09305001' - -1095 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 9742/* IDPAC */) and (T.DATUM >= '17.03.2026'/* DATUM */) -ORDER BY DATUM ASC - -1096 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH -from Teh T - left join kar K on (K.idpac = T.IdPac) -where - (T.IDPAC = 9742/* IDPAC */) and - ((ENDTEH>='17.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ - (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ - (T.PM >= ('17.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ - ((PM is null) and (UZ1POROD+14 >= '17.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ - ) -ORDER BY PM DESC NULLS LAST - , UZ1POROD DESC NULLS LAST - -1097 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 9742 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) - -1098 0 select first 1 DATZAL from KAR where IDPAC = 9742 - -1099 0 select first 1 BMI from SP_GETBMI(9742) - -1100 0 select first 1 puls from preh where (idpac = 9742) and not(puls is null) -ORDER BY datum DESC - -1101 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 9742) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-17' as date) + 4) || extract(year from cast('2026-03-17' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) -ORDER BY ZACNES ASC - -1102 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 9742) and ('2026-03-17' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-17')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-17' as date)) || extract(year from cast('2026-03-17' as date))) -ORDER BY ZACNES ASC - -1103 0 select * from GETPACPOJ(9742/* IDPAC */, '17.03.2026'/* ODE_DNE */) - -1104 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, -HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, -MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, -coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, -IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, -IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, -(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, -(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, -(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, -(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, -(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, -memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=9742/* IDPAC */) -ORDER BY DATUM DESC - , ID DESC - -1105 0 select heslotelkom from KAR where idpac = 9742 - -1106 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1107 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1108 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -1109 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1110 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1111 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 9742/* IDPAC */ - -1112 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7309208104'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) - -1113 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 9742) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-17') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-17') - -1114 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 9742/* IDPAC */ -ORDER BY DATUM DESC - -1115 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '17.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 9742/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 9742/* IDPAC */ - -1116 0 select first 1 RPRUKAZ from KAR where IDPAC = 9742 - -1117 0 select first 1 ZPRUKAZ from KAR where IDPAC = 9742 - -1118 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1119 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1120 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1121 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1122 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1123 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1124 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1125 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7842, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') - -1126 0 select FSDATS from STAV where ID = 7842/* ID */ - -1127 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1128 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1129 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1130 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') - -1131 0 select servertimestamp from sp_servertimestamp - -1132 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 - -1133 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1134 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1135 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1136 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1137 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1138 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1139 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1140 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1141 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1142 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1143 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1144 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1145 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7842, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') - -1146 0 select FSDATS from STAV where ID = 7842/* ID */ - -1147 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1148 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1149 0 select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE, - (select first 1 MI.ID - from MEDINETRECIP MI - where MI.CGMNUMBER = ESI.NUMBER) as ID_MEDICALNET, coalesce((select first 1 MI.DISPLAYNAME - from MEDINETRECIP MI - where MI.CGMNUMBER = ESI.NUMBER), ESI.NAZEV || ', ' || ESI.ZARIZENI) as ZARIZENI, - ESI.VXKEY, ESI.UID, ESI.NUMBER as CGMNUMBER, ESI.EMAIL -from (select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) as ID_ESINSTITUCE - from ZARIZENI Z - join ODDEL O on O.IDZAR = Z.ID - join PRACOVISTE P on P.IDODDEL = O.ID - join PRACUZIV PU on PU.IDPRAC = P.ID - join UZIVATEL U on U.IDUZI = PU.IDUZIV - where PU.ID = 6/* PUID */ and - U.AKTIVNI = 'T' - union all - select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE - from ES_GROUP_INT - left join ES_GROUP on (ES_GROUP_INT.IDGROUP = ES_GROUP.ID) - where (ES_GROUP.IDPRAC = 2/* IDPRAC */) or (ES_GROUP.IDODD = 2/* IDODD */) or (ES_GROUP.IDZAR = 2/* IDZAR */) or (ES_GROUP.IDPRACUZI = 6/* IDPRACUZIV */)) -join ES_INSTITUCE ESI on ESI.ID = ID_ESINSTITUCE -where - ESI.CLICKBOX = 'A' -ORDER BY ZARIZENI ASC - -1150 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') - -1151 0 select servertimestamp from sp_servertimestamp - -1152 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 - -1153 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1154 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1155 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1156 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL - -1157 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1158 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1159 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1160 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1161 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1162 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1163 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1164 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7842, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') - -1165 0 select FSDATS from STAV where ID = 7842/* ID */ - -1166 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1167 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ - -1168 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ diff --git a/MedicusWithClaude/s03soubory.py b/MedicusWithClaude/s03soubory.py index 603b430..cca6b4d 100644 --- a/MedicusWithClaude/s03soubory.py +++ b/MedicusWithClaude/s03soubory.py @@ -1,233 +1,323 @@ -import os,shutil,fdb,time -import re,datetime,funkce,funkce_ext +import os, shutil, fdb, time +import re, datetime, funkce, funkce_ext # Connect to the Firebird database conn = fdb.connect( - dsn=r'localhost:c:\medicus 3\data\medicus.fdb', # Database path - user='SYSDBA', # Username - password="masterkey", # Password, + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', + password="masterkey", charset="win1250") -# cesta=r"u:\Dropbox\!!!Days\Downloads Z230\Dokumentace" -cesta=r"u:\NextcloudOrdinace\Dokumentace_ke_zpracování" -# cestazpracovana=r"u:\Dropbox\!!!Days\Downloads Z230\Dokumentacezpracovaná" -cestazpracovana=r"u:\NextcloudOrdinace\Dokumentace_zpracovaná" +cesta = r"u:\NextcloudOrdinace\Dokumentace_ke_zpracování" +cestazpracovana = r"u:\NextcloudOrdinace\Dokumentace_zpracovaná" +# Konstanty pro detekci sekce Vložené přílohy (RTF kódování win1250) +PRILOHY_HEADER = r"Vlo\'9een\'e9 p\'f8\'edlohy:" +PRILOHY_CLOSING = r'\pard\s10\plain\cs15\f0\fs20 \par' + +# ─── Helper funkce ──────────────────────────────────────────────────────────── def restore_files_for_import(retezec): - drop=r"u:\Dropbox\!!!Days\Downloads Z230\Dokumentace" - next=r"u:\NextcloudOrdinace\Dokumentace_ke_zpracování" - - # Check if the directory exists + drop = r"u:\Dropbox\!!!Days\Downloads Z230\Dokumentace" + next = r"u:\NextcloudOrdinace\Dokumentace_ke_zpracování" if not os.path.exists(drop): print(f"The directory '{drop}' does not exist.") return - - # Iterate over all files and subdirectories in the directory for item in os.listdir(drop): item_path = os.path.join(drop, item) - - # If it's a file or a symbolic link, delete it if os.path.isfile(item_path) or os.path.islink(item_path): os.unlink(item_path) print(f"Deleted file: {item_path}") - - # If it's a directory, delete it recursively elif os.path.isdir(item_path): shutil.rmtree(item_path) print(f"Deleted directory: {item_path}") - for item in os.listdir(next): item_path = os.path.join(next, item) - # If it's a file finished with PDF, copy it if os.path.isfile(item_path) and item_path.endswith(".pdf") and retezec in item_path: - shutil.copy(item_path,os.path.join(drop,item)) + shutil.copy(item_path, os.path.join(drop, item)) print(f"Copied file: {item_path}") -def kontrola_rc(rc,connection): +def kontrola_rc(rc, connection): cur = connection.cursor() - cur.execute("select count(*),idpac from kar where rodcis=? group by idpac",(rc,)) + cur.execute("select count(*),idpac from kar where rodcis=? group by idpac", (rc,)) row = cur.fetchone() if row: return row[1] else: return False -def kontrola_struktury(souborname,connection): + +def kontrola_struktury(souborname, connection): if souborname.endswith('.pdf'): - #kontrola struktury - pattern=re.compile(r'(^\d{9,10}) (\d{4}-\d{2}-\d{2}) (\w+, \w.+?) \[(.+?)\] \[(.*?)\]') - match=pattern.search(souborname) - # print(souborname) - vpohode=True - if match and len(match.groups())==5: - datum=match.group(2) + pattern = re.compile(r'(^\d{9,10}) (\d{4}-\d{2}-\d{2}) (\w+, \w.+?) \[(.+?)\] \[(.*?)\]') + match = pattern.search(souborname) + vpohode = True + if match and len(match.groups()) == 5: + datum = match.group(2) try: - datum_object = datetime.datetime.strptime(datum,"%Y-%m-%d").date() - # print(datum_object) + datetime.datetime.strptime(datum, "%Y-%m-%d").date() except: - vpohode=False + vpohode = False return vpohode cur = connection.cursor() cur.execute("select count(*) from kar where rodcis=?", (match.group(1),)) row = cur.fetchone()[0] - if row!=1: + if row != 1: vpohode = False return vpohode else: - vpohode=False + vpohode = False return vpohode else: - vpohode=False + vpohode = False return vpohode return vpohode + def vrat_info_o_souboru(souborname, connection): pattern = re.compile(r'(^\d{9,10}) (\d{4}-\d{2}-\d{2}) (\w+, \w.+?) \[(.+?)\] \[(.*?)\]') match = pattern.search(souborname) - rc = match.group(1) - datum = datetime.datetime.strptime(match.group(2), "%Y-%m-%d").date() - jmeno = match.group(3) + rc = match.group(1) + datum = datetime.datetime.strptime(match.group(2), "%Y-%m-%d").date() + jmeno = match.group(3) prvnizavorka = match.group(4) druhazavorka = match.group(5) - cur=connection.cursor() - cur.execute("select idpac from kar where rodcis=?",(rc,)) + cur = connection.cursor() + cur.execute("select idpac from kar where rodcis=?", (rc,)) idpac = cur.fetchone()[0] - datumsouboru = datetime.datetime.fromtimestamp(os.path.getctime(os.path.join(cesta,souborname))) - return (rc,idpac,datum,jmeno,prvnizavorka,druhazavorka,souborname,datumsouboru) + datumsouboru = datetime.datetime.fromtimestamp(os.path.getctime(os.path.join(cesta, souborname))) + return (rc, idpac, datum, jmeno, prvnizavorka, druhazavorka, souborname, datumsouboru) -def prejmenuj_chybny_soubor(souborname,cesta): - if souborname[0]!="♥": + +def prejmenuj_chybny_soubor(souborname, cesta): + if souborname[0] != "♥": soubornovy = "♥" + souborname - os.rename(os.path.join(cesta,souborname),os.path.join(cesta,soubornovy)) + os.rename(os.path.join(cesta, souborname), os.path.join(cesta, soubornovy)) +def najdi_posledni_dekurs_dnes(conn, idpac, datum_vlozeni): + """Vrátí (id, rtf) posledního dekurzu pacienta pokud je z dnešního dne, jinak None.""" + cur = conn.cursor() + cur.execute(""" + SELECT FIRST 1 ID, DATUM, DEKURS FROM DEKURS + WHERE IDPAC = ? + ORDER BY ID DESC + """, (idpac,)) + row = cur.fetchone() + if row is None: + return None + dekurs_id, dekurs_datum, dekurs_rtf = row + print(f" Poslední dekurs: ID={dekurs_id}, datum={dekurs_datum}") + if dekurs_datum == datum_vlozeni: + print(f" → dnešní den ({datum_vlozeni}) ✓") + return (dekurs_id, dekurs_rtf) + else: + print(f" → jiný den ({dekurs_datum} ≠ {datum_vlozeni}), vytvoříme nový") + return None -# print(kontrola_struktury(ss)) -# info=vrat_info_o_souboru(ss) -# print(kontrola_rc(info[0],conn)) -# restore_files_for_import("") -# restore_files_for_import("346204097") +def ma_sekci_prilohy(rtf): + return PRILOHY_HEADER in rtf -info=[] + +def pridat_do_sekce_prilohy(rtf, bookmark_list, filenameforbookmark_list): + """Přidá více souborů do EXISTUJÍCÍ sekce 'Vložené přílohy'. + + Postup: + 1. Spočítá počet Files: odkazů = N → nové indexy začínají od N + 2. Vloží nové \\pard řádky před uzavírací prázdný řádek sekce + 3. Přidá nové bookmarky na konec {\\info{\\bookmarks ...}} + """ + # 1. Počet existujících Files: odkazů + bkm_match = re.search(r'\{\\info\{\\bookmarks ([^}]*)\}\}', rtf) + if bkm_match: + bkm_entries = [e for e in bkm_match.group(1).split(';') if e.strip()] + n_files = sum(1 for e in bkm_entries if '"Files:' in e) + else: + n_files = 0 + print(f" Počet existujících Files odkazů: {n_files}, přidávám {len(bookmark_list)} nových") + + # 2. Vložit nové \pard řádky před PRILOHY_CLOSING + prilohy_pos = rtf.find(PRILOHY_HEADER) + closing_pos = rtf.find(PRILOHY_CLOSING, prilohy_pos) + if closing_pos == -1: + raise RuntimeError("Nenalezen uzavírací řádek sekce Vložené přílohy!") + + new_pards = '' + for i, fname in enumerate(filenameforbookmark_list): + idx = n_files + i + new_pards += (r'\pard\s10{\*\bkmkstart ' + str(idx) + r'}' + r'\plain\cs32\f0\ul\fs20\cf1 ' + fname + + r'{\*\bkmkend ' + str(idx) + r'}\par' + '\n') + + rtf = rtf[:closing_pos] + new_pards + rtf[closing_pos:] + + # 3. Přidat nové bookmarky na konec {\info{\bookmarks ...}} + def append_bookmarks(m): + entries = [e for e in m.group(1).split(';') if e.strip()] + entries.extend(bookmark_list) + return '{\\info{\\bookmarks ' + ';'.join(entries) + '}}' + + rtf = re.sub(r'\{\\info\{\\bookmarks ([^}]*)\}\}', append_bookmarks, rtf) + return rtf + + +def merge_rtf_prepend(existing_rtf, new_bkm_list, new_body_pards, n_new): + """Vloží novou sekci příloh na ZAČÁTEK stávajícího dekurzu (sekce tam ještě není).""" + rtf = existing_rtf + rtf = re.sub(r'\\bkmkstart (\d+)', + lambda m: '\\bkmkstart ' + str(int(m.group(1)) + n_new), rtf) + rtf = re.sub(r'\\bkmkend (\d+)', + lambda m: '\\bkmkend ' + str(int(m.group(1)) + n_new), rtf) + + new_bkm_str = ';'.join(new_bkm_list) + + def merge_bkm(m): + existing = m.group(1).strip() + combined = new_bkm_str + (';' + existing if existing else '') + return '{\\info{\\bookmarks ' + combined + '}}' + + if re.search(r'\{\\info\{\\bookmarks', rtf): + rtf = re.sub(r'\{\\info\{\\bookmarks ([^}]*)\}\}', merge_bkm, rtf) + else: + rtf = re.sub(r'(\\deflang\d+)', + r'\1{\\info{\\bookmarks ' + new_bkm_str + '}}', rtf, count=1) + + match = re.search(r'\\uc1\\pard', rtf) + if match: + pos = match.start() + rtf = rtf[:pos] + new_body_pards + '\n' + rtf[pos:] + return rtf + + +# Šablona RTF pro nový dekurs +RTF_TEMPLATE = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks BOOKMARKNAMES}}{\fonttbl{\f0\fnil\fcharset238 Arial;}{\f5\fnil\fcharset238 Symbol;}} +{\colortbl ;\red0\green0\blue255;\red0\green128\blue0;\red0\green0\blue0;} +{\stylesheet{\s10\fi0\li0\ql\ri0\sb0\sa0 Vlevo;}{\*\cs15\f0\fs20 Norm\'e1ln\'ed;}{\*\cs20\f0\i\fs20 Z\'e1hlav\'ed;}{\*\cs32\f0\ul\fs20\cf1 Odkaz;}} +BOOKMARKSTEXT +\pard\s10\plain\cs15\f0\fs20 \par +}""" + +# ─── Hlavní tělo skriptu ────────────────────────────────────────────────────── + +info = [] for soubor in os.listdir(cesta): - if os.path.isfile(os.path.join(cesta,soubor)): + if os.path.isfile(os.path.join(cesta, soubor)): print(soubor) - if kontrola_struktury(soubor,conn): - info.append(vrat_info_o_souboru(soubor,conn)) - # os.remove(os.path.join(cesta,soubor)) + if kontrola_struktury(soubor, conn): + info.append(vrat_info_o_souboru(soubor, conn)) else: - prejmenuj_chybny_soubor(soubor,cesta) + prejmenuj_chybny_soubor(soubor, cesta) info = sorted(info, key=lambda x: (x[0], x[1])) print(info) -skupiny={} +skupiny = {} for row in info: - skupiny[row[0]]=[] + skupiny[row[0]] = [] for row in info: skupiny[row[0]].append(row) -# print(skupiny) - -# rtf = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks BOOKMARKNAMES }}{\fonttbl{\f0\fnil\fcharset238 Arial;}{\f5\fnil\fcharset238 Symbol;}} -# {\colortbl ;\red0\green0\blue255;\red0\green128\blue0;\red0\green0\blue0;} -# {\stylesheet{\s10\fi0\li0\ql\ri0\sb0\sa0 Vlevo;}{\*\cs15\f0\fs20 Norm\'e1ln\'ed;}{\*\cs20\f0\i\fs20 Z\'e1hlav\'ed;}{\*\cs22\f0\ul\fs20\cf1 Odkaz;}} -# \uc1\pard\s10\plain\cs20\f0\i\fs20 P\'f8\'edlohy:\par -# \pard\s10{\*\bkmkstart 0}\plain\cs22\f0\ul\fs20\cf1 BOOKMARKNAMESTEXT{\*\bkmkend 0}\par -# \pard\s10\plain\cs15\f0\fs20 \par -# }""" - -rtf = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks BOOKMARKNAMES }}{\fonttbl{\f0\fnil\fcharset238 Arial;}{\f5\fnil\fcharset238 Symbol;}} -{\colortbl ;\red0\green0\blue255;\red0\green128\blue0;\red0\green0\blue0;} -{\stylesheet{\s10\fi0\li0\ql\ri0\sb0\sa0 Vlevo;}{\*\cs15\f0\fs20 Norm\'e1ln\'ed;}{\*\cs20\f0\i\fs20 Z\'e1hlav\'ed;}{\*\cs22\f0\ul\fs20\cf1 Odkaz;}} -\uc1\pard\s10\plain\cs20\f0\i\fs20 P\'f8\'edlohy:\par -BOOKMARKSTEXT -\pard\s10\plain\cs15\f0\fs20 \par -}""" for key in skupiny.keys(): - rtf = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks BOOKMARKNAMES}}{\fonttbl{\f0\fnil\fcharset238 Arial;}{\f5\fnil\fcharset238 Symbol;}} -{\colortbl ;\red0\green0\blue255;\red0\green128\blue0;\red0\green0\blue0;} -{\stylesheet{\s10\fi0\li0\ql\ri0\sb0\sa0 Vlevo;}{\*\cs15\f0\fs20 Norm\'e1ln\'ed;}{\*\cs20\f0\i\fs20 Z\'e1hlav\'ed;}{\*\cs32\f0\ul\fs20\cf1 Odkaz;}} -\uc1\pard\s10\plain\cs20\f0\i\fs20 Vlo\'9een\'e9 p\'f8\'edlohy:\par -BOOKMARKSTEXT -\pard\s10\plain\cs15\f0\fs20 \par -}""" + print(f"\n{'='*60}") + print(f"RC: {key}, souborů: {len(skupiny[key])}") + cislo = 9 + poradi = 0 + bookmark_list = [] + filenameforbookmark_list = [] + bookmarks_body = '' + idpac = skupiny[key][0][1] - # if key=="8257300425": #346204097 - if True: - prvnibookmark=True - print(key,len(skupiny[key])) - cislo=9 - poradi=0 - bookmark="" - bookmarks="" - for row in skupiny[key]: - # print(row) - pacid=row[1] - filename=row[6] - fileid= funkce_ext.zapis_file_ext(vstupconnection=conn, idpac=row[1], - cesta=cesta, souborname=row[6], prvnizavorka=row[4], - soubordate=row[2], souborfiledate=row[7], poznamka=row[5]) + # ── Krok 1: vložit každý soubor do ext DB + přesunout do zpracovaných ──── + for row in skupiny[key]: + fileid = funkce_ext.zapis_file_ext( + vstupconnection=conn, idpac=row[1], + cesta=cesta, souborname=row[6], prvnizavorka=row[4], + soubordate=row[2], souborfiledate=row[7], poznamka=row[5]) + print(f" → FILES.ID = {fileid} ({row[6]})") - for attempt in range(3): - try: - # Replace this with the command that might raise an error - if not os.path.exists(os.path.join(cestazpracovana,row[6])): - shutil.move(os.path.join(cesta,row[6]), os.path.join(cestazpracovana,row[6])) - print("Command succeeded!") - break # Exit the loop if the command succeeds - else: - now = datetime.datetime.now() - datetime_string = now.strftime("%Y-%m-%d %H-%M-%S") - print(os.path.join(cestazpracovana,row[6][:-4]+" "+datetime_string+".pdf")) - shutil.move(os.path.join(cesta,row[6]),os.path.join(cestazpracovana,row[6][:-4]+" "+datetime_string+".pdf")) - print("Command succeeded!") - break # Exit the loop if the command succeeds - except Exception as e: - print(f"Attempt {attempt + 1} failed: {e}") - if attempt < 3 - 1: - print(f"Retrying in {5} seconds...") - time.sleep(5) - else: - print("Max retries reached. Command failed.") + # Přesun souboru do zpracovaných + for attempt in range(3): + try: + dest = os.path.join(cestazpracovana, row[6]) + if not os.path.exists(dest): + shutil.move(os.path.join(cesta, row[6]), dest) + else: + ts = datetime.datetime.now().strftime("%Y-%m-%d %H-%M-%S") + shutil.move(os.path.join(cesta, row[6]), + os.path.join(cestazpracovana, row[6][:-4] + " " + ts + ".pdf")) + print(" Přesun OK!") + break + except Exception as e: + print(f" Attempt {attempt + 1} failed: {e}") + if attempt < 2: + print(" Retrying in 5 seconds...") + time.sleep(5) + else: + print(" Max retries reached. Command failed.") + filenameforbookmark = row[2].strftime('%Y-%m-%d') + ' ' + row[4] + ': ' + row[5] + bookmark_list.append('"' + filenameforbookmark + '","Files:' + str(fileid) + '",' + str(cislo)) + filenameforbookmark_list.append(filenameforbookmark) + cislo += 7 - filename= funkce.convert_to1250(filename) - print("Encodedfilename", filename) - filenameforbookmark=row[2].strftime('%Y-%m-%d')+" "+row[4]+": "+row[5] - bookmark=bookmark+'"'+filenameforbookmark+'","Files:'+str(fileid)+'",'+str(cislo)+";" - cislo+=7 - # print(bookmark) - bookmarks += r'\pard\s10{\*\bkmkstart ' + str(poradi) + r'}\plain\cs32\f0\ul\fs20\cf1 ' + filenameforbookmark + r'{\*\bkmkend ' + str(poradi) + r'}\par' - poradi += 1 - bookmark=bookmark[:-1] - # bookmarks=bookmarks[:-2] - print(bookmark) - print(bookmarks) + bookmarks_body += (r'\pard\s10{\*\bkmkstart ' + str(poradi) + r'}' + r'\plain\cs32\f0\ul\fs20\cf1 ' + filenameforbookmark + + r'{\*\bkmkend ' + str(poradi) + r'}\par') + poradi += 1 - rtf = rtf.replace("BOOKMARKNAMES", bookmark) - rtf=rtf.replace("BOOKMARKSTEXT",bookmarks) - print(rtf) - dekursid = funkce.get_dekurs_id(conn) - datumzapisu = datetime.datetime.now().date() - caszapisu = datetime.datetime.now().time() - cur=conn.cursor() - cur.execute("insert into dekurs (id,iduzi,idprac,idodd,idpac,datum,cas,dekurs)" - " values(?,?,?,?,?,?,?,?)", - (dekursid,6,2,2, row[1],datumzapisu,caszapisu, rtf)) + # ── Krok 2: sestavit tělo nové sekce příloh ─────────────────────────────── + new_body = (r'\uc1\pard\s10\plain\cs20\f0\i\fs20 Vlo\'9een\'e9 p\'f8\'edlohy:\par' + '\n' + + bookmarks_body + '\n' + + r'\pard\s10\plain\cs15\f0\fs20 \par') + + # ── Krok 3: rozhodovací logika (3 případy) ──────────────────────────────── + datumzapisu = datetime.datetime.now().date() + caszapisu = datetime.datetime.now().time() + cur = conn.cursor() + + print(f"\n>>> Hledám poslední dekurs pro IDPAC={idpac}...") + existujici = najdi_posledni_dekurs_dnes(conn, idpac, datumzapisu) + + if existujici: + dekurs_id, existing_rtf = existujici + + if ma_sekci_prilohy(existing_rtf): + # Případ 1: dnešní dekurs má sekci příloh → přidáme soubory dovnitř + print(f"\n>>> Sekce 'Vložené přílohy' nalezena v DEKURS ID={dekurs_id}") + print(">>> Přidávám soubory DO existující sekce...") + merged_rtf = pridat_do_sekce_prilohy(existing_rtf, bookmark_list, filenameforbookmark_list) + else: + # Případ 2: dnešní dekurs existuje, ale sekci příloh nemá → prepend + print(f"\n>>> DEKURS ID={dekurs_id} nemá sekci příloh → vkládám sekci na začátek...") + merged_rtf = merge_rtf_prepend(existing_rtf, bookmark_list, new_body, len(skupiny[key])) + + print("\n=== Výsledný RTF ===") + print(merged_rtf) + cur.execute("UPDATE DEKURS SET DEKURS = ? WHERE ID = ?", (merged_rtf, dekurs_id)) conn.commit() - # rtf = rtf.replace("FILEID", str(idfile)) - #Zde zapisujeme soubor - # fileid=funkce.zapis_file(conn,row[1],cesta,row[6],row[4],row[2],row[7],row[5]) - # zapis_dekurs(vstupconnection, idpac, idodd, iduzi, idprac, idfile, filename, text, datumzpravy,datumsouboru) - # return (rc, idpac, datum, jmeno, prvnizavorka, druhazavorka, souborname, datumsouboru) + print(f"\n>>> UPDATE DEKURS ID={dekurs_id} – hotovo!") - # Zde zapisujeme dekurs - # text=row[2].strftime("%Y-%m-%d")+" "+row[4].strip()+": "+row[5].strip() - # funkce.zapis_dekurs(conn, row[1], 2, 6, 2, fileid, text, text, row[7], row[2]) - # os.remove(os.path.join(cesta, soubor)) + else: + # Případ 3: žádný dnešní dekurs → vytvoříme nový + print(f"\n>>> Žádný dekurs pro dnešek → vytvářím nový...") + bookmark_str = ';'.join(bookmark_list) + rtf = RTF_TEMPLATE.replace('BOOKMARKNAMES', bookmark_str) + rtf = rtf.replace('BOOKMARKSTEXT', new_body) + print("\n=== Výsledný RTF ===") + print(rtf) + + dekursid = funkce.get_dekurs_id(conn) + cur.execute( + "INSERT INTO DEKURS (id, iduzi, idprac, idodd, idpac, datum, cas, dekurs)" + " VALUES (?, ?, ?, ?, ?, ?, ?, ?)", + (dekursid, 6, 2, 2, idpac, datumzapisu, caszapisu, rtf) + ) + conn.commit() + print(f"\n>>> Nový DEKURS ID={dekursid}") + +print("\n=== HOTOVO ===") +conn.close() diff --git a/MedicusWithClaudeSelects/SELECTS.md b/MedicusWithClaudeSelects/SELECTS.md new file mode 100644 index 0000000..299c532 --- /dev/null +++ b/MedicusWithClaudeSelects/SELECTS.md @@ -0,0 +1,81 @@ +# MedicusWithClaudeSelects – SQL dotazy + +## Registrovaní pacienti + +Přesný select který Medicus používá pro záložku **Registrovaní** (zachycen přes FBScanner, dotaz č. 143). + +### Počet registrovaných pacientů + +```sql +SELECT COUNT(*) FROM KAR +WHERE (vyrazen = 'N') +AND EXISTS ( + SELECT id FROM registr r + JOIN icp i ON r.idicp = i.idicp + WHERE r.idpac = kar.idpac + AND (r.datum <= '2026-03-20') + AND (r.datum_zruseni IS NULL OR r.datum_zruseni >= '2026-03-20') + AND (r.priznak IN ('V','D','A')) + AND (i.icp = '09305001') + AND (i.odb = '001') +) +``` + +Vrátí: **1618 pacientů** (ověřit na Windows). + +### Podmínky registrace – vysvětlení + +- `vyrazen = 'N'` – pacient není vyřazen z kartotéky +- `r.datum <= dnes` – registrace již začala +- `r.datum_zruseni IS NULL OR r.datum_zruseni >= dnes` – registrace dosud platí +- `r.priznak IN ('V','D','A')` – aktivní příznak (ne 'Z' = zrušen, ne 'N') +- `i.icp = '09305001'` – IČP naší ordinace +- `i.odb = '001'` – odbornost praktický lékař + +### Skript pro Python + +Viz `count_registrovani.py` v této složce – spustit na Windows. + +### Plný select Medicusu (seznam pacientů s metadaty) + +```sql +SELECT + KAR.DATNAR, + KAR.IDPAC, + KAR.INFORMACE, + KAR.INFORMACE_COL, + KAR.JMENO, + KAR.POHLAVI, + GPP.POJ, + KAR.POZNAMKA, + KAR.PRIJMENI, + KAR.PRIJMENI_UP, + (SELECT DATUM_REGISTRACE FROM SP_GETREGDAT(kar.IDPAC)) AS REGDATUM, + KAR.REGISTROVAL, + (SELECT PRIZNAK FROM SP_GETREGDAT(kar.IDPAC)) AS REGPRIZNAK, + KAR.RODCIS, + KAR.ROZENA, + KAR.TITUL, + KAR.TITULZA, + KAR.TRVOBEC, + KAR.TRVPSC, + KAR.TRVULICE, + KAR.VYRAZEN +FROM KAR +LEFT JOIN GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP ON GPP.IDPAC = KAR.IDPAC +WHERE (vyrazen = 'N') +AND EXISTS ( + SELECT id FROM registr r + JOIN icp i ON r.idicp = i.idicp + WHERE r.idpac = kar.idpac + AND (r.datum <= '2026-03-20') + AND (r.datum_zruseni IS NULL OR r.datum_zruseni >= '2026-03-20') + AND (r.priznak IN ('V','D','A')) + AND (i.icp = '09305001') + AND (i.odb = '001') +) +ORDER BY KAR.PRIJMENI_UP ASC, KAR.RODCIS ASC +``` + +Poznámka: `GETPACPOJ` a `SP_GETREGDAT` jsou uložené procedury Medicusu – +fungují v kontextu Firebird připojení přes SYSDBA/masterkey. diff --git a/MedicusWithClaudeSelects/count_registrovani.py b/MedicusWithClaudeSelects/count_registrovani.py new file mode 100644 index 0000000..0069910 --- /dev/null +++ b/MedicusWithClaudeSelects/count_registrovani.py @@ -0,0 +1,27 @@ +import fdb, datetime + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='win1250') + +cur = conn.cursor() +dnes = datetime.date.today().isoformat() + +cur.execute(""" + SELECT COUNT(*) FROM KAR + WHERE (vyrazen = 'N') + AND EXISTS ( + SELECT id FROM registr r + JOIN icp i ON r.idicp = i.idicp + WHERE r.idpac = kar.idpac + AND (r.datum <= ?) + AND (r.datum_zruseni IS NULL OR r.datum_zruseni >= ?) + AND (r.priznak IN ('V','D','A')) + AND (i.icp = '09305001') + AND (i.odb = '001') + ) +""", (dnes, dnes)) + +pocet = cur.fetchone()[0] +print(f'Registrovaných pacientů: {pocet}') +conn.close() diff --git a/MedicusWithClaudeSelects/db_bridge_vm.py b/MedicusWithClaudeSelects/db_bridge_vm.py new file mode 100644 index 0000000..e54749f --- /dev/null +++ b/MedicusWithClaudeSelects/db_bridge_vm.py @@ -0,0 +1,78 @@ +"""db_bridge_vm.py – VM strana souborového mostu k Medicusu. + +Použití z Linuxu: + from db_bridge_vm import query + rows, columns = query("SELECT COUNT(*) FROM KAR") + print(columns, rows) +""" +import json, time, os, uuid + +BRIDGE_DIR = os.path.dirname(os.path.abspath(__file__)) +REQUEST = os.path.join(BRIDGE_DIR, 'query_request.json') +RESPONSE = os.path.join(BRIDGE_DIR, 'query_response.json') + +TIMEOUT_SEC = 30 +POLL_SEC = 0.3 + + +def query(sql, params=None, timeout=TIMEOUT_SEC): + """Pošle SQL dotaz přes souborový most a vrátí (rows, columns). + + Raises: + TimeoutError – watchdog neodpověděl do timeout sekund + RuntimeError – Firebird vrátil chybu + """ + # Smaž případnou starou response + if os.path.exists(RESPONSE): + os.remove(RESPONSE) + + req_id = uuid.uuid4().hex + req = {'id': req_id, 'sql': sql, 'params': params or []} + + with open(REQUEST, 'w', encoding='utf-8') as f: + json.dump(req, f, ensure_ascii=False) + + # Čekej na odpověď + waited = 0.0 + while waited < timeout: + time.sleep(POLL_SEC) + waited += POLL_SEC + if os.path.exists(RESPONSE): + with open(RESPONSE, 'r', encoding='utf-8') as f: + resp = json.load(f) + os.remove(RESPONSE) + if resp.get('status') == 'error': + raise RuntimeError(f"DB chyba: {resp.get('error')}") + return resp.get('rows', []), resp.get('columns', []) + + # Timeout – smaž request aby watchdog nezpracoval zastaralý dotaz + if os.path.exists(REQUEST): + os.remove(REQUEST) + raise TimeoutError(f'Watchdog neodpověděl do {timeout}s – běží db_bridge_windows.py?') + + +def query_print(sql, params=None): + """Spustí dotaz a vypíše výsledek přehledně.""" + rows, cols = query(sql, params) + if not cols: + print('(žádné sloupce)') + return rows, cols + col_w = [max(len(str(c)), max((len(str(r[i])) for r in rows), default=0)) + for i, c in enumerate(cols)] + sep = '+' + '+'.join('-' * (w + 2) for w in col_w) + '+' + fmt = '|' + '|'.join(f' {{:<{w}}} ' for w in col_w) + '|' + print(sep) + print(fmt.format(*cols)) + print(sep) + for row in rows: + print(fmt.format(*[str(v) if v is not None else 'NULL' for v in row])) + print(sep) + print(f'{len(rows)} řádků') + return rows, cols + + +if __name__ == '__main__': + # Rychlý test + print('Testuji spojení...') + rows, cols = query('SELECT COUNT(*) AS POCET FROM KAR') + print(f'OK – pacientů v KAR: {rows[0][0]}') diff --git a/MedicusWithClaudeSelects/db_bridge_windows.py b/MedicusWithClaudeSelects/db_bridge_windows.py new file mode 100644 index 0000000..99bacef --- /dev/null +++ b/MedicusWithClaudeSelects/db_bridge_windows.py @@ -0,0 +1,90 @@ +"""db_bridge_windows.py – Windows watchdog pro dotazy z Linux VM. + +Spusť jednou na Windows: + python db_bridge_windows.py + +Skript sleduje soubor query_request.json ve stejné složce. +Jakmile ho najde, spustí SQL dotaz proti Medicusu a zapíše výsledek +do query_response.json. Pak čeká na další dotaz. + +Ukonči: Ctrl+C +""" +import fdb, json, time, os, traceback, datetime + +# ── Konfigurace ─────────────────────────────────────────────────────────────── +DSN = r'localhost:c:\medicus 3\data\medicus.fdb' +USER = 'SYSDBA' +PASSWORD = 'masterkey' +CHARSET = 'win1250' + +BRIDGE_DIR = os.path.dirname(os.path.abspath(__file__)) +REQUEST = os.path.join(BRIDGE_DIR, 'query_request.json') +RESPONSE = os.path.join(BRIDGE_DIR, 'query_response.json') +POLL_SEC = 0.5 + +# ── Pomocné funkce ──────────────────────────────────────────────────────────── + +def serialize(val): + """Převede Python hodnoty na JSON-serializovatelné typy.""" + if isinstance(val, (datetime.date, datetime.datetime)): + return val.isoformat() + if isinstance(val, datetime.time): + return val.isoformat() + if isinstance(val, bytes): + return f'' + return val + + +def run_query(sql, params=None): + conn = fdb.connect(dsn=DSN, user=USER, password=PASSWORD, charset=CHARSET) + try: + cur = conn.cursor() + cur.execute(sql, params or []) + columns = [d[0] for d in cur.description] if cur.description else [] + rows = [[serialize(v) for v in row] for row in cur.fetchall()] + return {'status': 'ok', 'columns': columns, 'rows': rows, 'error': None} + except Exception as e: + return {'status': 'error', 'columns': [], 'rows': [], 'error': str(e)} + finally: + conn.close() + + +# ── Hlavní smyčka ───────────────────────────────────────────────────────────── +print(f'DB Bridge spuštěn. Sleduju: {REQUEST}') +print('Ukončení: Ctrl+C\n') + +while True: + try: + if os.path.exists(REQUEST): + print(f'[{datetime.datetime.now().strftime("%H:%M:%S")}] Přijat dotaz...') + + with open(REQUEST, 'r', encoding='utf-8') as f: + req = json.load(f) + + os.remove(REQUEST) + + sql = req.get('sql', '') + params = req.get('params', []) + req_id = req.get('id', '') + + result = run_query(sql, params) + result['id'] = req_id + result['sql'] = sql + + with open(RESPONSE, 'w', encoding='utf-8') as f: + json.dump(result, f, ensure_ascii=False, indent=2) + + if result['status'] == 'ok': + print(f' → OK, {len(result["rows"])} řádků') + else: + print(f' → CHYBA: {result["error"]}') + + time.sleep(POLL_SEC) + + except KeyboardInterrupt: + print('\nDB Bridge ukončen.') + break + except Exception as e: + print(f'Neočekávaná chyba: {e}') + traceback.print_exc() + time.sleep(2) diff --git a/MedicusWithClaudeSelects/get_kar_sortby_idlist.py b/MedicusWithClaudeSelects/get_kar_sortby_idlist.py new file mode 100644 index 0000000..da72080 --- /dev/null +++ b/MedicusWithClaudeSelects/get_kar_sortby_idlist.py @@ -0,0 +1,30 @@ +"""get_kar_sortby_idlist.py – přečte definici stored procedure KAR_SORTBY_IDLIST z Firebirdu. +Spustit na Windows. +""" +import fdb + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='win1250') + +cur = conn.cursor() +cur.execute(""" + SELECT RDB$PROCEDURE_SOURCE FROM RDB$PROCEDURES + WHERE RDB$PROCEDURE_NAME = 'KAR_SORTBY_IDLIST' +""") +row = cur.fetchone() +if row and row[0]: + print(row[0]) +else: + # Možná je to funkce (FUNCTION), ne procedure + cur.execute(""" + SELECT RDB$FUNCTION_SOURCE FROM RDB$FUNCTIONS + WHERE RDB$FUNCTION_NAME = 'KAR_SORTBY_IDLIST' + """) + row = cur.fetchone() + if row and row[0]: + print(row[0]) + else: + print("Nenalezeno ani jako PROCEDURE ani jako FUNCTION.") + +conn.close() diff --git a/MedicusWithClaudeSelects/precti_log.txt b/MedicusWithClaudeSelects/precti_log.txt new file mode 100644 index 0000000..87b73d3 --- /dev/null +++ b/MedicusWithClaudeSelects/precti_log.txt @@ -0,0 +1,2668 @@ +5 0 insert into stav (id, iduzi, idprac, mods, time_stamp, compname, cversion) values (7846, 6, 2, '//////////////////8=', '20.03.2026 07:01:45.915'/* time_stamp */, 'NTBVBHP470G10', '3.61.0.371') + +17 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +67 0 update tellinky set idpracuziv = NULL where idpracuziv = (select id from pracuziv where idprac = 2 and iduziv = 6) + +120 0 insert into statistika (datum, iduzi, idprac, textid, params, typ) +values ('20.03.2026'/* datum */, 6/* iduzi */, 2/* idprac */, 0/* textid */, 'acVybPacOrd'/* params */, '1'/* typ */) + +123 0 update options set Obsah=31/* Obsah */ where ID=223/* ID */ + +143 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (vyrazen = 'N') and exists (select id from registr r join icp i on r.idicp = i.idicp where r.idpac = kar.idpac and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') and (r.priznak in ('V','D','A')) and (i.icp = '09305001') and (i.odb = '001')) +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +299 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +319 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +320 0 select heslotelkom from KAR where idpac = 3234 + +321 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +322 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +323 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +324 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +325 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +326 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +327 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +328 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +329 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +330 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +331 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +332 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +333 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +334 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +335 0 select first 1 * from KAR + +336 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +337 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +338 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +339 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +340 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +341 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +342 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +343 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +344 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +345 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +346 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +347 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +348 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +349 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +350 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +351 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +352 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +353 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +354 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +355 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +356 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +357 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +358 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +359 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +360 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +361 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +362 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +363 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +364 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +365 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +366 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +367 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +368 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +369 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +370 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +371 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +372 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +373 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +374 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +375 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +376 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +377 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +378 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +379 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +380 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +381 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +382 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +383 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +384 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +385 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +386 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +387 0 select icp from ICP where idicz = '12' and odb = '001' + +388 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +389 0 select icp from ICP where idicz = '12' and odb = '001' + +390 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 3234 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 3234) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 3234 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 3234 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 3234 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 3234 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '486122443' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 3234 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 3234 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 3234 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 3234 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '486122443' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 3234 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(3234, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=3234 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 3234 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 3234) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 3234 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 3234 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' + +391 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +392 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +393 0 select KOD from STALDGN where (IDPAC = 3234) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 3234 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +394 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 3234) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +395 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '486122443'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +396 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +397 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 3234) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 3234 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +398 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 3234 +ORDER BY TP.DATUM DESC + +399 0 select first 1 DATUM from GENVYS where IDPAC = 3234 and TYP = 110 +ORDER BY DATUM DESC + +400 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 3234 and ICP='09305001' + +401 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 3234/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +402 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 3234/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +403 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 3234 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +404 0 select first 1 DATZAL from KAR where IDPAC = 3234 + +405 0 select first 1 BMI from SP_GETBMI(3234) + +406 0 select first 1 puls from preh where (idpac = 3234) and not(puls is null) +ORDER BY datum DESC + +407 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +408 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +409 0 select * from GETPACPOJ(3234/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +410 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=3234/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +411 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +412 0 select heslotelkom from KAR where idpac = 3234 + +413 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +414 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +415 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +416 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +417 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +418 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +419 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +420 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +421 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +422 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +423 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +424 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +425 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +426 0 select first 1 * from KAR + +427 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +428 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (vyrazen = 'N') and exists (select id from registr r join icp i on r.idicp = i.idicp where r.idpac = kar.idpac and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') and (r.priznak in ('V','D','A')) and (i.icp = '09305001') and (i.odb = '001')) +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +429 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +430 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +431 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +432 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +433 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +434 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +435 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +436 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +437 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +438 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +439 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +440 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +441 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +442 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +443 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +444 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +445 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +446 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +447 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +448 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +449 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +450 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +451 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +452 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +453 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +454 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +455 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +456 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +457 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +458 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +459 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +460 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +461 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +462 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +463 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +464 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +465 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +466 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +467 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +468 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +469 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +470 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +471 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +472 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +473 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +474 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +475 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +476 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +477 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +478 0 select icp from ICP where idicz = '12' and odb = '001' + +479 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +480 0 select icp from ICP where idicz = '12' and odb = '001' + +481 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 3234 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 3234) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 3234 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 3234 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 3234 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 3234 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '486122443' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 3234 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 3234 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 3234 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 3234 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '486122443' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 3234 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(3234, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=3234 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 3234 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 3234) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 3234 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 3234 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' + +482 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +483 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +484 0 select KOD from STALDGN where (IDPAC = 3234) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 3234 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +485 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 3234) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +486 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '486122443'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +487 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +488 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 3234) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 3234 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +489 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 3234 +ORDER BY TP.DATUM DESC + +490 0 select first 1 DATUM from GENVYS where IDPAC = 3234 and TYP = 110 +ORDER BY DATUM DESC + +491 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 3234 and ICP='09305001' + +492 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 3234/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +493 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 3234/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +494 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 3234 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +495 0 select first 1 DATZAL from KAR where IDPAC = 3234 + +496 0 select first 1 BMI from SP_GETBMI(3234) + +497 0 select first 1 puls from preh where (idpac = 3234) and not(puls is null) +ORDER BY datum DESC + +498 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +499 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +500 0 select * from GETPACPOJ(3234/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +501 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=3234/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +502 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +503 0 select heslotelkom from KAR where idpac = 3234 + +504 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +505 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +506 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +507 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +508 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +509 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +510 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +511 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +512 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +513 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +514 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +515 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +516 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +517 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +518 0 select first 1 * from KAR + +519 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +520 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from kar join kar_sortby_idlist('4757') on idfromlist = idpac +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +521 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 4757/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +522 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 4757 and ICP='09305001' + +523 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 4757 + +524 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7553221918'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7553221918'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '207'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +525 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +526 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from kar join kar_sortby_idlist('4757') on idfromlist = idpac +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY IDX ASC + +527 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +528 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 4757/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +529 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 4757 and ICP='09305001' + +530 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 4757 + +531 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7553221918'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7553221918'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '207'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +532 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +533 0 select idicz from ICZ where poj = '207' and icz = '09305000' + +534 0 select icp from ICP where idicz = '15' and odb = '001' + +535 0 select idicz from ICZ where poj = '207' and icz = '09305000' + +536 0 select icp from ICP where idicz = '15' and odb = '001' + +537 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 4757 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 4757) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 4757 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7553221918' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '207' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7553221918' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '207' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 4757 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(4757, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 4757 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 4757 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 4757 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7553221918' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 4757 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 4757 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(4757, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 4757 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 4757 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 4757 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 4757 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 4757 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 4757 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7553221918' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 4757 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 4757 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(4757, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=4757 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 4757 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 4757) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 4757 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 4757 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '207' and P.ODB = '001' + +538 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 4757/* ID */ + +539 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +540 0 select KOD from STALDGN where (IDPAC = 4757) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 4757 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +541 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 4757) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +542 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7553221918'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 50/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 50/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +543 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 50/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 50/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +544 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 4757) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 4757 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +545 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 4757 +ORDER BY TP.DATUM DESC + +546 0 select first 1 DATUM from GENVYS where IDPAC = 4757 and TYP = 110 +ORDER BY DATUM DESC + +547 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 4757 and ICP='09305001' + +548 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 4757/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +549 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 4757/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +550 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 4757 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +551 0 select first 1 DATZAL from KAR where IDPAC = 4757 + +552 0 select first 1 BMI from SP_GETBMI(4757) + +553 0 select first 1 puls from preh where (idpac = 4757) and not(puls is null) +ORDER BY datum DESC + +554 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 4757) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 4757) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 4757) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +555 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 4757) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +556 0 select * from GETPACPOJ(4757/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +557 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=4757/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +558 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=4757/* IDPAC */ and AV.PLATIOD <= '11.12.2014'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +559 0 execute block(IDPAC integer=4757/* IDPAC */, DATUM DATE='21.09.2025'/* DATUM */) + returns (VALUE_BF varchar(8), VALUE_AF varchar(8), LEK_KOD varchar (8), LEK_NAZ varchar(30)) + as + declare variable TMPATC varchar(7) = ''; + declare variable TMPSILA varchar(24) = ''; + declare variable RDATUM date; + declare variable LEKKOD varchar(8) = ''; + declare variable LEKNAZ varchar(30) = ''; + declare variable HODN_BE varchar(8) = '-1'; + declare variable HODN_AF varchar(8) = '-1'; + begin + VALUE_BF = '-1'; + VALUE_AF = '-1'; + LEK_KOD = ''; + LEK_NAZ = ''; + select first 1 DATUM, KOD, LEK, ATC + from RECEPT + where + IDPAC = :IDPAC and + DATUM >= :DATUM and + (ATC starting with 'C10AA01' or + ATC starting with 'C10AA05' or + ATC starting with 'C10AA07') + order by datum desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + if (RDATUM is null) then + begin + select first 1 m.DATUM, m.KOD, m.NAZ , l.ATC + from MEDIKACE m + join LEKY l on m.kod = l.kod + where + m.IDPAC = :IDPAC and + (m.PLATI_DO >= :DATUM or m.PLATI_DO is null) and + (l.ATC starting with 'C10AA01' or + l.ATC starting with 'C10AA05' or + l.ATC starting with 'C10AA07') + order by m.DATUM desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + end + if (RDATUM is null) then + begin + VALUE_BF = -1; + VALUE_AF = -1; + LEK_KOD = ''; + LEK_NAZ = ''; + suspend; + exit; + end + if (RDATUM is not null) then + begin + begin + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM <= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_BE; + select STRING_OUT from sp_replace_char(:HODN_BE, ',', '.') into HODN_BE; + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM >= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_AF; + select STRING_OUT from sp_replace_char(:HODN_AF, ',', '.') into HODN_AF; + end + if (((HODN_AF > '-1') and (HODN_AF > '0')) and ((HODN_BE = '-1') or (HODN_BE is null))) then + begin + HODN_BE = HODN_AF; + select first 1 SILA from LEKY where KOD = :LEKKOD and (PLATIDO is null or PLATIDO <= 'TODAY') + into :TMPSILA; + if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.28 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.37 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.35 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.43 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.52 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.39 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.48 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.55 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.51 from 1 for 5); + end + end + + begin + VALUE_BF = :hodn_be; + VALUE_AF = :hodn_af; + LEK_KOD = :lekkod; + LEK_NAZ = :leknaz; + suspend; + end +end + +560 0 select heslotelkom from KAR where idpac = 4757 + +561 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +562 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +563 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 4757/* IDPAC */ + +564 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +565 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +566 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 4757/* IDPAC */ + +567 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7553221918'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) + +568 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +569 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +570 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 4757/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 4757/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 4757/* IDPAC */ + +571 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7553221918'/* RODCIS */ and DD.KOD in ('11320', '11321') order by DD.DATOSE desc) + +572 0 select first 1 RPRUKAZ from KAR where IDPAC = 4757 + +573 0 select first 1 ZPRUKAZ from KAR where IDPAC = 4757 + +574 0 execute procedure sp_log(4757/* idpac */, 10000/* tblid */, 4757/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +575 0 SELECT ID,IDUZIV,IDPRAC,SECRET_TYPE,SECRET FROM KEYSTORE WHERE coalesce(IDUZIV,0)=6/* IDUZIV */ AND coalesce(IDPRAC,0)=2/* IDPRAC */ AND SECRET_TYPE='SUKLPASS'/* SECRET_TYPE */ + +576 0 select ID,Obsah from Options where + (Category='Global'/* Category */) and + (Name='CheckVersion'/* Name */) and + (Login='2|6'/* Login */) + +577 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +578 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +579 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +580 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +581 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +582 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +583 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +584 0 select FSDATS from STAV where ID = 7846/* ID */ + +585 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +586 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +587 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +588 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +589 0 select servertimestamp from sp_servertimestamp + +590 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +591 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +592 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +593 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +594 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +595 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +596 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +597 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +598 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +599 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +600 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +601 0 select FSDATS from STAV where ID = 7846/* ID */ + +602 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +603 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +604 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +605 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +606 0 select servertimestamp from sp_servertimestamp + +607 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +608 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +609 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +610 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +611 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +612 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +613 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +614 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +615 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +616 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +617 0 select FSDATS from STAV where ID = 7846/* ID */ + +618 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +619 0 select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE, + (select first 1 MI.ID + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER) as ID_MEDICALNET, coalesce((select first 1 MI.DISPLAYNAME + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER), ESI.NAZEV || ', ' || ESI.ZARIZENI) as ZARIZENI, + ESI.VXKEY, ESI.UID, ESI.NUMBER as CGMNUMBER, ESI.EMAIL +from (select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) as ID_ESINSTITUCE + from ZARIZENI Z + join ODDEL O on O.IDZAR = Z.ID + join PRACOVISTE P on P.IDODDEL = O.ID + join PRACUZIV PU on PU.IDPRAC = P.ID + join UZIVATEL U on U.IDUZI = PU.IDUZIV + where PU.ID = 6/* PUID */ and + U.AKTIVNI = 'T' + union all + select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE + from ES_GROUP_INT + left join ES_GROUP on (ES_GROUP_INT.IDGROUP = ES_GROUP.ID) + where (ES_GROUP.IDPRAC = 2/* IDPRAC */) or (ES_GROUP.IDODD = 2/* IDODD */) or (ES_GROUP.IDZAR = 2/* IDZAR */) or (ES_GROUP.IDPRACUZI = 6/* IDPRACUZIV */)) +join ES_INSTITUCE ESI on ESI.ID = ID_ESINSTITUCE +where + ESI.CLICKBOX = 'A' +ORDER BY ZARIZENI ASC + +620 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +621 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +622 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +623 0 select servertimestamp from sp_servertimestamp + +624 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +625 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +626 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +627 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +628 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +629 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +630 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +631 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +632 0 select first 1 * from KAR + +633 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +634 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (vyrazen = 'N') and exists (select id from registr r join icp i on r.idicp = i.idicp where r.idpac = kar.idpac and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') and (r.priznak in ('V','D','A')) and (i.icp = '09305001') and (i.odb = '001')) +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +635 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +636 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +637 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +638 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +639 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +640 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +641 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +642 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +643 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +644 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +645 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +646 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +647 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +648 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +649 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +650 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +651 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +652 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +653 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +654 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +655 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +656 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +657 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +658 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +659 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +660 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +661 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +662 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +663 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +664 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +665 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +666 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +667 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +668 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +669 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +670 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +671 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +672 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +673 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +674 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +675 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +676 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +677 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +678 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +679 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +680 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +681 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +682 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +683 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +684 0 select icp from ICP where idicz = '12' and odb = '001' + +685 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +686 0 select icp from ICP where idicz = '12' and odb = '001' + +687 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 3234 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 3234) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 3234 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 3234 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 3234 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 3234 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '486122443' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 3234 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 3234 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 3234 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 3234 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '486122443' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 3234 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(3234, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=3234 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 3234 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 3234) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 3234 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 3234 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' + +688 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +689 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +690 0 select KOD from STALDGN where (IDPAC = 3234) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 3234 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +691 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 3234) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +692 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '486122443'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +693 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +694 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 3234) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 3234 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +695 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 3234 +ORDER BY TP.DATUM DESC + +696 0 select first 1 DATUM from GENVYS where IDPAC = 3234 and TYP = 110 +ORDER BY DATUM DESC + +697 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 3234 and ICP='09305001' + +698 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 3234/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +699 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 3234/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +700 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 3234 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +701 0 select first 1 DATZAL from KAR where IDPAC = 3234 + +702 0 select first 1 BMI from SP_GETBMI(3234) + +703 0 select first 1 puls from preh where (idpac = 3234) and not(puls is null) +ORDER BY datum DESC + +704 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +705 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +706 0 select * from GETPACPOJ(3234/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +707 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=3234/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +708 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +709 0 execute block(IDPAC integer=3234/* IDPAC */, DATUM DATE='21.09.2025'/* DATUM */) + returns (VALUE_BF varchar(8), VALUE_AF varchar(8), LEK_KOD varchar (8), LEK_NAZ varchar(30)) + as + declare variable TMPATC varchar(7) = ''; + declare variable TMPSILA varchar(24) = ''; + declare variable RDATUM date; + declare variable LEKKOD varchar(8) = ''; + declare variable LEKNAZ varchar(30) = ''; + declare variable HODN_BE varchar(8) = '-1'; + declare variable HODN_AF varchar(8) = '-1'; + begin + VALUE_BF = '-1'; + VALUE_AF = '-1'; + LEK_KOD = ''; + LEK_NAZ = ''; + select first 1 DATUM, KOD, LEK, ATC + from RECEPT + where + IDPAC = :IDPAC and + DATUM >= :DATUM and + (ATC starting with 'C10AA01' or + ATC starting with 'C10AA05' or + ATC starting with 'C10AA07') + order by datum desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + if (RDATUM is null) then + begin + select first 1 m.DATUM, m.KOD, m.NAZ , l.ATC + from MEDIKACE m + join LEKY l on m.kod = l.kod + where + m.IDPAC = :IDPAC and + (m.PLATI_DO >= :DATUM or m.PLATI_DO is null) and + (l.ATC starting with 'C10AA01' or + l.ATC starting with 'C10AA05' or + l.ATC starting with 'C10AA07') + order by m.DATUM desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + end + if (RDATUM is null) then + begin + VALUE_BF = -1; + VALUE_AF = -1; + LEK_KOD = ''; + LEK_NAZ = ''; + suspend; + exit; + end + if (RDATUM is not null) then + begin + begin + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM <= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_BE; + select STRING_OUT from sp_replace_char(:HODN_BE, ',', '.') into HODN_BE; + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM >= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_AF; + select STRING_OUT from sp_replace_char(:HODN_AF, ',', '.') into HODN_AF; + end + if (((HODN_AF > '-1') and (HODN_AF > '0')) and ((HODN_BE = '-1') or (HODN_BE is null))) then + begin + HODN_BE = HODN_AF; + select first 1 SILA from LEKY where KOD = :LEKKOD and (PLATIDO is null or PLATIDO <= 'TODAY') + into :TMPSILA; + if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.28 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.37 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.35 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.43 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.52 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.39 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.48 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.55 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.51 from 1 for 5); + end + end + + begin + VALUE_BF = :hodn_be; + VALUE_AF = :hodn_af; + LEK_KOD = :lekkod; + LEK_NAZ = :leknaz; + suspend; + end +end + +710 0 select heslotelkom from KAR where idpac = 3234 + +711 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +712 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +713 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +714 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +715 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +716 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +717 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +718 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +719 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +720 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +721 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +722 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +723 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +724 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +725 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +726 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +727 0 select FSDATS from STAV where ID = 7846/* ID */ + +728 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +729 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +730 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +731 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +732 0 select servertimestamp from sp_servertimestamp + +733 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +734 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +735 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +736 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +737 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +738 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +739 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +740 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +741 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +742 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +743 0 select FSDATS from STAV where ID = 7846/* ID */ + +744 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +745 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +746 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +747 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +748 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +749 0 select servertimestamp from sp_servertimestamp + +750 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +751 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +752 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +753 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +754 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +755 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +756 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +757 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +758 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +759 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +760 0 select FSDATS from STAV where ID = 7846/* ID */ + +761 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +762 0 select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE, + (select first 1 MI.ID + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER) as ID_MEDICALNET, coalesce((select first 1 MI.DISPLAYNAME + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER), ESI.NAZEV || ', ' || ESI.ZARIZENI) as ZARIZENI, + ESI.VXKEY, ESI.UID, ESI.NUMBER as CGMNUMBER, ESI.EMAIL +from (select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) as ID_ESINSTITUCE + from ZARIZENI Z + join ODDEL O on O.IDZAR = Z.ID + join PRACOVISTE P on P.IDODDEL = O.ID + join PRACUZIV PU on PU.IDPRAC = P.ID + join UZIVATEL U on U.IDUZI = PU.IDUZIV + where PU.ID = 6/* PUID */ and + U.AKTIVNI = 'T' + union all + select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE + from ES_GROUP_INT + left join ES_GROUP on (ES_GROUP_INT.IDGROUP = ES_GROUP.ID) + where (ES_GROUP.IDPRAC = 2/* IDPRAC */) or (ES_GROUP.IDODD = 2/* IDODD */) or (ES_GROUP.IDZAR = 2/* IDZAR */) or (ES_GROUP.IDPRACUZI = 6/* IDPRACUZIV */)) +join ES_INSTITUCE ESI on ESI.ID = ID_ESINSTITUCE +where + ESI.CLICKBOX = 'A' +ORDER BY ZARIZENI ASC + +763 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +764 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +765 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +766 0 select servertimestamp from sp_servertimestamp + +767 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +768 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +769 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +770 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +771 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +772 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +773 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +774 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +775 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +776 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +777 0 select FSDATS from STAV where ID = 7846/* ID */ + +778 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +779 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +780 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +781 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +782 0 select servertimestamp from sp_servertimestamp + +783 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +784 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +785 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +786 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +787 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +788 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +789 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +790 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +791 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +792 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +793 0 select FSDATS from STAV where ID = 7846/* ID */ + +794 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +795 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +796 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +797 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +798 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +799 0 select servertimestamp from sp_servertimestamp + +800 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +801 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +802 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +803 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +804 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +805 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +806 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +807 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +808 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +809 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +810 0 select FSDATS from STAV where ID = 7846/* ID */ + +811 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +812 0 select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE, + (select first 1 MI.ID + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER) as ID_MEDICALNET, coalesce((select first 1 MI.DISPLAYNAME + from MEDINETRECIP MI + where MI.CGMNUMBER = ESI.NUMBER), ESI.NAZEV || ', ' || ESI.ZARIZENI) as ZARIZENI, + ESI.VXKEY, ESI.UID, ESI.NUMBER as CGMNUMBER, ESI.EMAIL +from (select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) as ID_ESINSTITUCE + from ZARIZENI Z + join ODDEL O on O.IDZAR = Z.ID + join PRACOVISTE P on P.IDODDEL = O.ID + join PRACUZIV PU on PU.IDPRAC = P.ID + join UZIVATEL U on U.IDUZI = PU.IDUZIV + where PU.ID = 6/* PUID */ and + U.AKTIVNI = 'T' + union all + select distinct(ID_ESINSTITUCE) as ID_ESINSTITUCE + from ES_GROUP_INT + left join ES_GROUP on (ES_GROUP_INT.IDGROUP = ES_GROUP.ID) + where (ES_GROUP.IDPRAC = 2/* IDPRAC */) or (ES_GROUP.IDODD = 2/* IDODD */) or (ES_GROUP.IDZAR = 2/* IDZAR */) or (ES_GROUP.IDPRACUZI = 6/* IDPRACUZIV */)) +join ES_INSTITUCE ESI on ESI.ID = ID_ESINSTITUCE +where + ESI.CLICKBOX = 'A' +ORDER BY ZARIZENI ASC + +813 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +814 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +815 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +816 0 select servertimestamp from sp_servertimestamp + +817 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +818 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +819 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +820 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +821 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +822 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +823 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +824 0 select first 1 * from KAR + +825 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +826 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +827 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +828 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +829 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +830 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +831 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +832 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +833 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +834 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +835 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +836 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +837 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +838 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +839 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +840 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +841 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +842 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +843 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +844 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +845 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +846 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +847 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +848 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +849 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +850 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +851 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +852 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +853 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +854 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +855 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +856 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +857 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +858 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +859 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +860 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +861 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +862 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +863 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +864 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +865 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +866 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +867 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +868 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +869 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +870 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +871 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +872 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +873 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +874 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +875 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +876 0 select icp from ICP where idicz = '12' and odb = '001' + +877 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +878 0 select icp from ICP where idicz = '12' and odb = '001' + +879 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 3234 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 3234) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 3234 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 3234 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 3234 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 3234 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '486122443' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 3234 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 3234 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 3234 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 3234 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '486122443' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 3234 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(3234, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=3234 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 3234 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 3234) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 3234 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 3234 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' + +880 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +881 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +882 0 select KOD from STALDGN where (IDPAC = 3234) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 3234 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +883 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 3234) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +884 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '486122443'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +885 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +886 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 3234) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 3234 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +887 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 3234 +ORDER BY TP.DATUM DESC + +888 0 select first 1 DATUM from GENVYS where IDPAC = 3234 and TYP = 110 +ORDER BY DATUM DESC + +889 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 3234 and ICP='09305001' + +890 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 3234/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +891 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 3234/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +892 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 3234 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +893 0 select first 1 DATZAL from KAR where IDPAC = 3234 + +894 0 select first 1 BMI from SP_GETBMI(3234) + +895 0 select first 1 puls from preh where (idpac = 3234) and not(puls is null) +ORDER BY datum DESC + +896 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +897 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +898 0 select * from GETPACPOJ(3234/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +899 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=3234/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +900 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +901 0 select heslotelkom from KAR where idpac = 3234 + +902 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +903 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +904 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +905 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +906 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +907 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +908 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +909 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +910 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +911 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +912 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +913 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +914 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +915 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +916 0 select first 1 * from KAR + +917 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +918 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from KAR +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (vyrazen = 'N') and exists (select id from registr r join icp i on r.idicp = i.idicp where r.idpac = kar.idpac and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') and (r.priznak in ('V','D','A')) and (i.icp = '09305001') and (i.odb = '001')) +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +919 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +920 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +921 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +922 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +923 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +924 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +925 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +926 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +927 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +928 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +929 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +930 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +931 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +932 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +933 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +934 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +935 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +936 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +937 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +938 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +939 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +940 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +941 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +942 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +943 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +944 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +945 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +946 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +947 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +948 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +949 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +950 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +951 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +952 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +953 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +954 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +955 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +956 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +957 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +958 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +959 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +960 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +961 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +962 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 3234/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +963 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 3234 and ICP='09305001' + +964 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 3234 + +965 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '486122443'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '486122443'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '111'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +966 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '486122443'/* RODCIS */) and (IDA is NULL) and (POJ = '111'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +967 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +968 0 select icp from ICP where idicz = '12' and odb = '001' + +969 0 select idicz from ICZ where poj = '111' and icz = '09305000' + +970 0 select icp from ICP where idicz = '12' and odb = '001' + +971 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 3234 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 3234) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 3234 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '111' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '486122443' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '111' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 3234 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 3234 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 3234 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '486122443' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 3234 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 3234 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(3234, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 3234 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 3234 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 3234 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 3234 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '486122443' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 3234 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 3234 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(3234, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=3234 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 3234 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 3234) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 3234 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 3234 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '111' and P.ODB = '001' + +972 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 3234/* ID */ + +973 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +974 0 select KOD from STALDGN where (IDPAC = 3234) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 3234 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +975 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 3234) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +976 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '486122443'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +977 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 77/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 77/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +978 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 3234) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 3234 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +979 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 3234 +ORDER BY TP.DATUM DESC + +980 0 select first 1 DATUM from GENVYS where IDPAC = 3234 and TYP = 110 +ORDER BY DATUM DESC + +981 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 3234 and ICP='09305001' + +982 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 3234/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +983 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 3234/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +984 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 3234 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +985 0 select first 1 DATZAL from KAR where IDPAC = 3234 + +986 0 select first 1 BMI from SP_GETBMI(3234) + +987 0 select first 1 puls from preh where (idpac = 3234) and not(puls is null) +ORDER BY datum DESC + +988 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 3234) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +989 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 3234) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +990 0 select * from GETPACPOJ(3234/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +991 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=3234/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +992 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=3234/* IDPAC */ and AV.PLATIOD <= '01.11.2022'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +993 0 select heslotelkom from KAR where idpac = 3234 + +994 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +995 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +996 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +997 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +998 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +999 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 3234/* IDPAC */ + +1000 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 3234) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +1001 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 3234/* IDPAC */ +ORDER BY DATUM DESC + +1002 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 3234/* IDPAC */ + +1003 0 select GV.DATUM from GENVYS GV where GV.IDPRE = (select first 1 IDPRE from GENVYS where IDPAC = 3234/* IDPAC */ and TYP = 0/* TYP */ order by DATUM desc) + +1004 0 select first 1 RPRUKAZ from KAR where IDPAC = 3234 + +1005 0 select first 1 ZPRUKAZ from KAR where IDPAC = 3234 + +1006 0 execute procedure sp_log(3234/* idpac */, 10000/* tblid */, 3234/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +1007 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +1008 0 select first 1 * from KAR + +1009 0 select ID_ESINSTITUCE from ( select coalesce(PU.ID_ESINSTITUCE, P.ID_ESINSTITUCE, O.ID_ESINSTITUCE, Z.ID_ESINSTITUCE) ID_ESINSTITUCE from PRACUZIV PU left join PRACOVISTE P on (P.ID=PU.IDPRAC) left join ODDEL O on (P.IDODDEL=O.ID) left join ZARIZENI Z on (O.IDZAR=Z.ID) where PU.IDPRAC = 2 and PU.IDUZIV = 6 ) ORGS where exists (select ID from ES_INSTITUCE where ID = ORGS.ID_ESINSTITUCE and ESERVICES = 'T') + +1010 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from kar join kar_sortby_idlist('4757') on idfromlist = idpac +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY KAR.PRIJMENI_UP ASC + , KAR.RODCIS ASC + +1011 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 4757/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +1012 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 4757 and ICP='09305001' + +1013 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 4757 + +1014 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7553221918'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7553221918'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '207'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +1015 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +1016 0 select KAR.DATNAR,(select first 1 STAV from ES_PACIDENT join ES_PAC on (ES_PAC.ID=ES_PACIDENT.PAC_ID) left join ES_BROKER on (ES_BROKER.id_es_pac = ES_PAC.ID) where ((ES_PAC.idpac = kar.idpac) or (ES_BROKER.idpac = kar.idpac)) and ES_PACIDENT.INST_ID = 0) as ES_STAV,KAR.IDPAC,KAR.INFORMACE,KAR.INFORMACE_COL,KAR.JMENO,(select first 1 KZ.IDZAR from KARZARAZENI KZ where (KZ.IDPAC=KAR.IDPAC) and (KZ.DATUM is null or (KZ.DATUM<=CURRENT_DATE)) and (KZ.DATUMDO is null or (KZ.DATUMDO>=CURRENT_DATE)) order by KZ.ID) as K_ZARZAR,KAR.POHLAVI,GPP.POJ,KAR.POZNAMKA,KAR.PRIJMENI,KAR.PRIJMENI_UP,(select DATUM_REGISTRACE from SP_GETREGDAT(kar.IDPAC)) as REGDATUM,KAR.REGISTROVAL,(select PRIZNAK from SP_GETREGDAT(kar.IDPAC)) as REGPRIZNAK,KAR.RODCIS,KAR.ROZENA,(select first 1 OUTCOLS from GETKARZARAZENICOLORS(kar.idpac, '2026-03-20')) as SKUPINY,KAR.TITUL,KAR.TITULZA,KAR.TRVOBEC,KAR.TRVPSC,KAR.TRVULICE,KAR.VYRAZEN +from kar join kar_sortby_idlist('4757') on idfromlist = idpac +left join GETPACPOJ(KAR.IDPAC, '2026-03-20') GPP on GPP.IDPAC = KAR.IDPAC +where (VYRAZEN = 'N') +ORDER BY IDX ASC + +1017 0 select IDZAR, BARVA from ZARAZENI_SPEC_S where BARVA is NOT NULL + +1018 0 select first 1 ALERGIE from ANAMNEZA where IDPAC = 4757/* IDPAC */ and DATUM <= '20.03.2026'/* DATUM */ +ORDER BY DATUM DESC + , ID DESC + +1019 0 select first 1 KAP_CHECK, KAP_STAV from KARB2B where IDPAC = 4757 and ICP='09305001' + +1020 0 select first 1 VAKCINACE_CHECK, VAKCINACE_STAV, VAKCINACE_DATUM from KARISIN where IDPAC = 4757 + +1021 0 select distinct H.TYP from DOKLADH H join DOKLADD D on H.IDHLAV = D.IDHLAV where ((H.RODCIS = '7553221918'/* RODCIS */) or (H.RODCIS is null)) and (D.RODCIS = '7553221918'/* RODCIS */) and (H.IDA is NULL) and (H.POJ = '207'/* POJ */ ) and (H.ICZ = '09305001'/* ICZ */) and (H.HODB = '001'/* ODB */) + +1022 0 select 'acDokladHCes', 'DOC%C' || case count(*) when 0 then '' else 'X' end from CESH join CESD on CESD.IDHLAV = CESH.IDHLAV +where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHLaz', 'DOC%L' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='L') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHOzdrav', 'DOC%V' || case count(*) when 0 then '' else 'X' end from LZN_DOKLADH where (DSK_TYP_DOK='O') AND (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from LZN_DOKLADD where IDHLAV = LZN_DOKLADH.IDHLAV) +union +select 'acDokladHDrg', 'DOC%D' || case count(*) when 0 then '' else 'X' end from DRG where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHOrtop', 'DOC%O' || case count(*) when 0 then '' else 'X' end from POU where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) +union +select 'acDokladHFoni', 'DOC%F' || case count(*) when 0 then '' else 'X' end from POUFONIH where (RODCIS = '7553221918'/* RODCIS */) and (IDA is NULL) and (POJ = '207'/* POJ */) and exists(select ID from POUFONID where IDHLAV = POUFONIH.IDHLAV) + +1023 0 select idicz from ICZ where poj = '207' and icz = '09305000' + +1024 0 select icp from ICP where idicz = '15' and odb = '001' + +1025 0 select idicz from ICZ where poj = '207' and icz = '09305000' + +1026 0 select icp from ICP where idicz = '15' and odb = '001' + +1027 0 select cast('BalickyPac' as varchar(11)) as ID, substring(cast(BPAC.KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(BPAC.CENPASMO as VARCHAR(70)) from 1 for 30) as VAR2, cast(BPAC.DATUMOD as DATE) as DATE1, cast(BPAC.DATUMDO as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from BALICKYPAC BPAC left join SP_BALICKYPAC_PRIZNAK(BPAC.ID, '20.03.2026') PRI on 1 = 1 where BPAC.IDPAC = 4757 and PRI.PRIZNAK in ('A', 'B') union select cast('Dluh' as varchar(11)) as ID, substring(cast(P.MENA as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast((SUM(P.CENA - P.SLEVAC) - (SUM(P.PLATBA) + SUM((COALESCE((select SUM(case ZD.TYP when 'R' then ZD.CELKEM else -ZD.CELKEM end) from PLADET ZD where ZD.IDPLA = P.IDPLA and (ZD.TYP <> P.DOKLADTYP) and (ZD.TYP <> '|') and ((ZD.CENA < 0) or (ZD.TYP = 'R'))), 0))))) as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM PLA P WHERE (P.IDPAC = 4757) AND (P.DOKLADTYP = 'F') AND (P.STORNO IS NULL) AND (P.NENISALDO = 'F') AND ((P.SPLATNOST IS NULL) OR (P.SPLATNOST < '2026-03-20')) AND (P.VALID = 'F') GROUP BY P.MENA union select cast('SouhlasPac' as varchar(11)) as ID, substring(cast(case when S.NAZEV is null then case when H.TYP = 'ZSOUPOS' then 'Souhlas/Nesouhlas s poskytnutím zdravotních služeb nezletilému' when H.TYP = 'ZSOUPOZ' then 'Souhlas zákonného zástupce nezletilého pacienta staršího 15ti let' when H.TYP = 'ZSOUPO2' then 'Nesouhlas s poskytnutím zdravotních služeb - povinné oèkování' when H.TYP = 'ZPOSIN2' then 'Urèení osoby oprávnìné dle zákona o zdravotních službách' when H.TYP = 'OdmPece' then 'Prohlášení o odmítnutí zdravotní péèe pacientem - Negativní revers' end else S.NAZEV end as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(H.DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC H left join SOUHLASPACSABL S on H.IDSOUHLASPACSABL = S.ID where H.TYP in ('IndSou', 'ZSOUPOS', 'ZSOUPOZ', 'ZSOUPO2', 'ZPOSIN2', 'OdmPece') and H.IDPACI = 4757 union select cast('sCenaVykZUM' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(coalesce(sum(cenabod),0) + coalesce(sum(cenamat),0) as NUMERIC(15,2)) as NUM1, cast((select coalesce(sum(cena),0) from LECD d where d.RODCIS = '7553221918' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N')) and exists (select h.IDLEC from LECH h where h.IDLEC = d.IDLEC and h.POJ = '207' and h.ICZ in ('09305001'))) as NUMERIC(15,2)) as NUM2 from DOKLADD d where d.RODCIS = '7553221918' and extract(year from d.DATOSE) = '2026' and ((d.KAT is null) or (d.KAT <> 'N' and d.KAT <> 'K' and d.KAT <> 'A')) and exists (select h.IDHLAV from DOKLADH h where h.IDHLAV = d.IDHLAV and h.POJ = '207' and h.ICZ in ('09305001')) union select cast('Registrl' as varchar(11)) as ID, substring(cast(REGISTROVAL as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 4757 union select cast('OseLekPrak' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(CAST(ODBORN as INTEGER) as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(4757, 'T') WHERE ODBORN in ('001', '002') union select cast('SledLek' as varchar(11)) as ID, substring(cast(KOD as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(LEK as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SLEDLEK where IDPAC = 4757 and DATUM <= '2026-03-20' union select first 10 cast('HistDoc' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from HISTDOC where IDPACI = 4757 and STAV is NULL and IDZARPR = 2 and IDODDPR = 2 and IDPRACPR = 2 union select first 1 cast('LastSms' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(SENDTIME) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from SMS where PACID = 4757 and SENDTIME is not NULL and not(STATUS in (100,1000)) union select first 1 cast('PozadLekar' as varchar(11)) as ID, substring(cast(H.EICZ as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(H.EODZ as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADH H where H.IDHLAV = (select first 1 I.IDHLAV from DOKLADH I where I.RODCIS = '7553221918' and I.EICZ is not NULL order by I.IDHLAV desc) union select first 10 cast('Prilohy' as varchar(11)) as ID, substring(cast(FILENAME as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from FILES where IDPAC = 4757 union select first 10 cast('Objednavky' as varchar(11)) as ID, substring(cast(F_CONCAT(U.PRIJMENI, F_CONCAT(U.JMENO, U.TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(PRAC as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(CAS as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OBJOBJ O join PRACOVISTE P on (P.ID = O.IDPRAC) join UZIVATEL U on (U.IDUZI = O.IDUZI) where IDPAC = 4757 and DATUM >= '20.03.2026' union select cast('OseLek' as varchar(11)) as ID, substring(cast(F_CONCAT(PRIJMENI, F_CONCAT(JMENO, TITUL, ', '), ' ') as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(TITUL2 as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 FROM KARUZIV_SEL(4757, 'T') union select cast('PeProhlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(TERMIN as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREH join PREINIH on (PREH.IDPREINI = PREINIH.IDPREINI) where IDPAC = 4757 union select cast('Medikace' as varchar(11)) as ID, substring(cast(NAZ as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(PLATI_OD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from MEDIKACE where IDPAC = 4757 and PLATI_OD <= '20.03.2026' and (PLATI_DO >= '20.03.2026' or PLATI_DO is NULL) union select cast('NextDispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(PRISTI as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 4757 and PRISTI is not NULL union select cast('Dispenz' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(SKUPINA as VARCHAR(70)) from 1 for 30) as VAR2, cast(DATZAR as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DISPAC join DISSKU on (DISSKU.IDDIS = DISPAC.IDDIS) where IDPAC = 4757 union select cast('Prohlidky' as varchar(11)) as ID, substring(cast(NAZEV as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUM as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PREPRI join PREINIH on (PREPRI.IDPREINI = PREINIH.IDPREINI) where IDPAC = 4757 and datum is not null union select cast('NextOck' as varchar(11)) as ID, substring(cast(coalesce(NAZ,ZKRATKA) as VARCHAR(254)) from 1 for 250) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(DATUMD as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from OCKPRI o left join KLK k on o.ZKRATKA = k.KOD where IDPAC = 4757 union select first 1 cast('LastVykon' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(D.KOD as VARCHAR(70)) from 1 for 30) as VAR2, cast(D.DATOSE as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DOKLADD D where D.ID = (select first 1 dd.id from dokladd dd join dokladh dh on (dh.idhlav = dd.idhlav) where dd.rodcis = '7553221918' and (dh.hodb = '001' or dh.hodb is null) order by dd.datose desc) union select first 1 cast('LastDekurs' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from DEKURS where IDPAC = 4757 and (IDPRAC = 2 or IDPRAC = -1) union select first 1 cast('Karta' as varchar(11)) as ID, substring(cast(INFORMACE as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(CIZINEC as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(INFORMACE_COL as INTEGER) as INT1, POZNAMKA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from KAR where IDPAC = 4757 union select first 1 cast('Saldo' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(SALDO as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from PACIENT_SALDO(4757, 1, 0, 0) union select first 1 cast('Anamneza' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, substring(cast(KREVSKUP as VARCHAR(70)) from 1 for 30) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ANAMNEZA as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where ID = (select first 1 ID from ANAMNEZA where IDPAC=4757 order by DATUM DESC, ID desc) union select first 20 cast('Ockovani' as varchar(11)) as ID, substring(cast(ockzaz.LATKA as VARCHAR(254)) from 1 for 250) as VAR1, substring(cast(ockzaz.ZKRATKA as VARCHAR(70)) from 1 for 30) as VAR2, cast(max(ockzaz.DATUM) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ockzaz where ockzaz.idpac = 4757 group by ockzaz.ZKRATKA, ockzaz.LATKA union select first 1 cast('NeschopenOd' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(MAX(ZACNES) as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from NES where (IDPAC = 4757) and (ZACNES <= '20.03.2026') and ((KONNES is NULL) or (KONNES > '20.03.2026')) and (STORNO = 'F') union select first 1 cast('Alergie' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(NULL as INTEGER) as INT1, ALERGIE as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ANAMNEZA where IDPAC = 4757 and ID = (select first 1 ID from ANAMNEZA where IDPAC = 4757 and DATUM <= '20.03.2026' order by DATUM desc, ID desc) union select first 1 cast('Pojistovna' as varchar(11)) as ID, cast(NULL as VARCHAR(254)) as VAR1, cast(NULL as VARCHAR(70)) as VAR2, cast(NULL as DATE) as DATE1, cast(NULL as DATE) as DATE2, cast(NULL as TIMESTAMP) as TIME1, cast(P.IDICP as INTEGER) as INT1, NULL as TEXT1, cast(NULL as NUMERIC(15,2)) as NUM1, cast(NULL as NUMERIC(15,2)) as NUM2 from ICP P join ICZ Z on (Z.IDICZ = P.IDICZ) where Z.POJ = '207' and P.ODB = '001' + +1028 0 select POHLAVI,PRIJMENI,JMENO,TITUL,(select first 1 POJ from GETPACPOJ(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as POJ,DATNAR,RODCIS,IDSTAV,DRUHPOJ,TRVOBEC,TRVULICE,TRVPSC,PREOBEC,PREULICE,PREPSC,AKTIVBYDL,ZAMEST,ZAMADRESA,IDZAMEST,PROFES,OSCISLO,GEONOMU,(select KOD from GETPACCENPAS(IDPAC, '20.03.2026 00:00:00.000'/* ODE_DNE */)) as CENPAS,ROZENA,IZIPOD,STPRIS,ZUJEDN,PRUKAZ,TYPPECE,CIZINEC,TITULZA,DATREG,ZASTUPOVANY_ICP,IDISIN,UPRCHLIK from KAR where IDPAC = 4757/* ID */ + +1029 0 select first 1 R.ID, R.DATUM from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +1030 0 select KOD from STALDGN where (IDPAC = 4757) and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = 4757 order by DATUM desc) +ORDER BY PORADI ASC + , KOD ASC + +1031 0 select first 1 N.ZACNES, D.DATUM, D.KAM, D.KAMODKUD, D.ICZ +from NES N left join NESD D on D.IDNES = N.ID +where (N.IDPAC = 4757) and (N.ZACNES <= '20.03.2026') and ((N.KONNES is NULL) or (N.KONNES > '20.03.2026')) and (N.STORNO = 'F') +ORDER BY N.ZACNES DESC + , D.DATUM DESC + , D.ID DESC + +1032 0 select PV.KOD, +(select first 1 D.DATOSE from DOKLADD D where D.RODCIS = '7553221918'/* RODCIS */ and D.KOD = PV.KOD order by DATOSE desc), +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.ICP is NULL or PV.ICP = '09305001'/* ICP */) +and (PV.VEKOD is NULL or PV.VEKOD <= 50/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 50/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +1033 0 select PV.KOD, +PV.JENREG, +PV.ODVYKAZANI +from PROHVYK PV +where (PV.ODBORN is NULL or PV.ODBORN = '001'/* ODB */) +and (PV.VEKOD is NULL or PV.VEKOD <= 50/* VEKOD */) +and (PV.VEKDO is NULL or PV.VEKDO > 50/* VEKDO */) +and (PV.POHLAVI is NULL or PV.POHLAVI = 'Z'/* POHLAVI */) +ORDER BY PV.KOD ASC + +1034 0 select S.NAZEV, M.NAZ, S.KOD from STALDGN S join MKN10 M on (M.KOD = S.KOD and (M.PLATIOD is NULL or M.PLATIOD <= 'NOW') and (M.PLATIDO is NULL or M.PLATIDO >= 'NOW')) where (S.IDPAC = 4757) and S.IDANAM = (select first 1 A.ID from ANAMNEZA A where A.IDPAC = 4757 order by A.DATUM desc) +ORDER BY S.PORADI ASC + , S.KOD ASC + +1035 0 select first 1 TP.DATUM from TEHPRO TP join TEH T on T.IDTEH = TP.IDTEH where T.IDPAC = 4757 +ORDER BY TP.DATUM DESC + +1036 0 select first 1 DATUM from GENVYS where IDPAC = 4757 and TYP = 110 +ORDER BY DATUM DESC + +1037 0 select first 1 KAP_CHECK, KAP_STAV, DALSI_KONTROLA from KARB2B where IDPAC = 4757 and ICP='09305001' + +1038 0 select first 1 T.WARN, T.POZN, T.DATUM from TEHKAL T where (T.IDPAC = 4757/* IDPAC */) and (T.DATUM >= '20.03.2026'/* DATUM */) +ORDER BY DATUM ASC + +1039 0 select first 1 (case T.VYPOCETDLE when 1 then (T.PM) else (T.UZ1POROD - 280) end) as POCATEKTEH +from Teh T + left join kar K on (K.idpac = T.IdPac) +where + (T.IDPAC = 4757/* IDPAC */) and + ((ENDTEH>='20.03.2026 00:00:00.000'/* Dnes */) or (ENDTEH is null)) and /* pouze vysetreni pred datem ukonceni*/ + (((PM is NULL) and (UZ1POROD is NULL) and (ENDTEH is null)) or /* nelze zjistit konec tehotenstvi*/ + (T.PM >= ('20.03.2026 00:00:00.000'/* Dnes */ - (42*7))) or /* max. delka tehotenstvi dle PM 42 tyd. */ + ((PM is null) and (UZ1POROD+14 >= '20.03.2026 00:00:00.000'/* Dnes */)) /* max. termin dle UZ + 14 dni */ + ) +ORDER BY PM DESC NULLS LAST + , UZ1POROD DESC NULLS LAST + +1040 0 select first 1 ZAMEST, ZAMADRESA, PROFES, ICO from KAR left join FIRMY on FIRMY.FIRMA = KAR.ZAMEST where IDPAC = 4757 and (ZAMEST is not NULL or ZAMADRESA is not NULL or PROFES is not NULL) + +1041 0 select first 1 DATZAL from KAR where IDPAC = 4757 + +1042 0 select first 1 BMI from SP_GETBMI(4757) + +1043 0 select first 1 puls from preh where (idpac = 4757) and not(puls is null) +ORDER BY datum DESC + +1044 0 select first 1 ZACNES, CISNES, ID, (select first 1 DATA from HISTDOC where TYP = 'POTDPN' and (IDPACI = 4757) and (DATA like '%CisNes=' || NES.CISNES || '%') order by DATUM desc) from NES where (IDPAC = 4757) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and ((select count(*) from HISTDOC where TYP = 'POTDPN' and (IDPACI = 4757) and (extract(month from DATUM) || extract(year from DATUM) = extract(month from cast('2026-03-20' as date) + 4) || extract(year from cast('2026-03-20' as date) + 4)) and DATA like '%CisNes=' || NES.CISNES || '%') = 0) and (not exists(select Id from nesd where nesd.idnes = nes.id) or ((select first 1 Kam from nesd where nesd.idnes = nes.id order by nesd.datum desc, nesd.id desc) = 'N')) +ORDER BY ZACNES ASC + +1045 0 select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO from NES where (IDPAC = 4757) and ('2026-03-20' >= ZACNES + 10) and ((KONNES is NULL) or (KONNES > '2026-03-20')) and (STORNO = 'F') and (extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO) = extract(month from cast('2026-03-20' as date)) || extract(year from cast('2026-03-20' as date))) +ORDER BY ZACNES ASC + +1046 0 select * from GETPACPOJ(4757/* IDPAC */, '20.03.2026'/* ODE_DNE */) + +1047 0 select ID, IDPAC, ANAMNEZA, DATUM, ALERGIE, KREVSKUP, +HBSAG, DUCHOD, BEZMOCNOST, HIV, MESOD, MESDO, +MESTYP, BWR, ISOIMUN, PANEV, coalesce(POCPOROD, -1) as POCPOROD, coalesce(POCPOTRAT, -1) as POCPOTRAT, +coalesce(POCINTER, -1) as POCINTER, coalesce(POCOPER, -1) as POCOPER, IDUZIV, SIGNATURE, SIGNATURE_INFO, +IDCERTIFICATE, RHDATUM, RHVYSL, TRIZOMIE, NTD, VVV, +IZIPSTAT, KURAK, TST, KARDIOSTIM, CIGARETDENNE, FREKKOURENI, +(select first 1 vyska from preh where (idpac = anamneza.idpac) and (vyska is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vyska, +(select first 1 vaha from preh where (idpac = anamneza.idpac) and (vaha is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) vaha, +(select first 1 puls from preh where (idpac = anamneza.idpac) and (puls is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) puls, +(select first 1 tlaksys from preh where (idpac = anamneza.idpac) and (tlaksys is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlaksys, +(select first 1 tlakdia from preh where (idpac = anamneza.idpac) and (tlakdia is not null) /*and (datum <= anamneza.datum)*/ order by datum desc, idpre desc) tlakdia, +memporod, mempotrat, meminter, memoper, pm, ID_EDOKUMENT, PRUKAZ from ANAMNEZA where (IDPAC=4757/* IDPAC */) +ORDER BY DATUM DESC + , ID DESC + +1048 0 select AC.NAZEV, +AV.SVALUE, +AV.BDATA, +AV.NVALUE, +AV.DVALUE, +AF.USERMASK, +AV.TYP +from ANAMVALUES AV +left join ANAMVCFG AC on AC.IDTYPHODN = AV.IDTYPHODN +left join ANAMVFMT AF on AF.IDTYPHODN = AV.IDTYPHODN +where AV.IDPAC=4757/* IDPAC */ and AV.PLATIOD <= '11.12.2014'/* DATUM */ and AKTUAL = 'T' +ORDER BY AF.PORADI ASC + , AV.DATZAPIS DESC + , AV.PLATIOD DESC + +1049 0 execute block(IDPAC integer=4757/* IDPAC */, DATUM DATE='21.09.2025'/* DATUM */) + returns (VALUE_BF varchar(8), VALUE_AF varchar(8), LEK_KOD varchar (8), LEK_NAZ varchar(30)) + as + declare variable TMPATC varchar(7) = ''; + declare variable TMPSILA varchar(24) = ''; + declare variable RDATUM date; + declare variable LEKKOD varchar(8) = ''; + declare variable LEKNAZ varchar(30) = ''; + declare variable HODN_BE varchar(8) = '-1'; + declare variable HODN_AF varchar(8) = '-1'; + begin + VALUE_BF = '-1'; + VALUE_AF = '-1'; + LEK_KOD = ''; + LEK_NAZ = ''; + select first 1 DATUM, KOD, LEK, ATC + from RECEPT + where + IDPAC = :IDPAC and + DATUM >= :DATUM and + (ATC starting with 'C10AA01' or + ATC starting with 'C10AA05' or + ATC starting with 'C10AA07') + order by datum desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + if (RDATUM is null) then + begin + select first 1 m.DATUM, m.KOD, m.NAZ , l.ATC + from MEDIKACE m + join LEKY l on m.kod = l.kod + where + m.IDPAC = :IDPAC and + (m.PLATI_DO >= :DATUM or m.PLATI_DO is null) and + (l.ATC starting with 'C10AA01' or + l.ATC starting with 'C10AA05' or + l.ATC starting with 'C10AA07') + order by m.DATUM desc + into :RDATUM, :LEKKOD, :LEKNAZ, :TMPATC; + end + if (RDATUM is null) then + begin + VALUE_BF = -1; + VALUE_AF = -1; + LEK_KOD = ''; + LEK_NAZ = ''; + suspend; + exit; + end + if (RDATUM is not null) then + begin + begin + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM <= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_BE; + select STRING_OUT from sp_replace_char(:HODN_BE, ',', '.') into HODN_BE; + select first 1 VYSL + from LABVD D + join LABMETOD M on M.IDMETOD = D.IDMETOD and (M.KLICMZ in ('02322', '02323', '02324', '02325', '03379', '03380')) + join LABVH H on H.IDVH = D.IDVH + where D.IDPACIENT = :IDPAC and + H.DATUM >= :RDATUM + order by H.DATUM desc, D.ID desc + into :HODN_AF; + select STRING_OUT from sp_replace_char(:HODN_AF, ',', '.') into HODN_AF; + end + if (((HODN_AF > '-1') and (HODN_AF > '0')) and ((HODN_BE = '-1') or (HODN_BE is null))) then + begin + HODN_BE = HODN_AF; + select first 1 SILA from LEKY where KOD = :LEKKOD and (PLATIDO is null or PLATIDO <= 'TODAY') + into :TMPSILA; + if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.28 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.37 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '10') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.35 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.43 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '20') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.52 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.39 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.48 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '40') and (TMPATC = 'C10AA07')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.55 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA01')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.46 from 1 for 5); + else if ((substring(TMPSILA from 1 for 2) = '80') and (TMPATC = 'C10AA05')) then + HODN_BE = substring(cast(HODN_BE as float) * 1.51 from 1 for 5); + end + end + + begin + VALUE_BF = :hodn_be; + VALUE_AF = :hodn_af; + LEK_KOD = :lekkod; + LEK_NAZ = :leknaz; + suspend; + end +end + +1050 0 select heslotelkom from KAR where idpac = 4757 + +1051 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +1052 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'PSA'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +1053 0 select K.POHLAVI as POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 KOD from STALDGN where IDPAC = K.IDPAC and IDANAM = (select first 1 ID from ANAMNEZA where IDPAC = K.IDPAC order by DATUM desc, ID desc) and KOD like 'C61%') as DGN, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('01131', '01132', '01133', '01134') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 4757/* IDPAC */ + +1054 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +1055 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'TOKS'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +1056 0 select K.DATNAR as DATNAR, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('15120', '15121') order by DATOSE desc, ID desc) as VYKON from KAR K where K.IDPAC = 4757/* IDPAC */ + +1057 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7553221918'/* RODCIS */ and DD.KOD in ('15120') order by DD.DATOSE desc) + +1058 0 select R.ID from REGISTR R join ICP i on (i.idicp = r.idicp) where (r.idpac = 4757) and not (r.priznak in ('Z','N')) and (i.ICP = '09305001') and (i.ODB = '001') and (r.datum <= '2026-03-20') and (r.datum_zruseni is null or r.datum_zruseni >= '2026-03-20') + +1059 0 select DATUM, NEZOBRAZOVAT from ALERT where TYP = 'FRAX'/* TYP */ and IDPAC = 4757/* IDPAC */ +ORDER BY DATUM DESC + +1060 0 select K.DATNAR, K.POHLAVI, (select ROK from GET_VEK2(K.DATNAR, '20.03.2026'/* DATUM */)) as VEK, (select first 1 DATOSE from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as DATOSE, (select first 1 KOD from DOKLADD where RODCIS = K.RODCIS and KOD in ('11320', '11321', '11327') order by DATOSE desc, ID desc) as VYKON, (select first 1 "DATA" from GENVYS where IDPAC = 4757/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATA, (select first 1 DATUM from GENVYS where IDPAC = 4757/* IDPAC */ and TYP = 112/* TYP */ order by DATUM desc, IDPRE desc) as DXADATUM from KAR K where K.IDPAC = 4757/* IDPAC */ + +1061 0 select D.DATOSE from DOKLADD D where D.ID = (select first 1 DD.ID from DOKLADD DD where DD.RODCIS = '7553221918'/* RODCIS */ and DD.KOD in ('11320', '11321') order by DD.DATOSE desc) + +1062 0 select first 1 RPRUKAZ from KAR where IDPAC = 4757 + +1063 0 select first 1 ZPRUKAZ from KAR where IDPAC = 4757 + +1064 0 execute procedure sp_log(4757/* idpac */, 10000/* tblid */, 4757/* recid */, 'V', NULL/* rodcis */, NULL/* id1 */, NULL/* detail */) + +1065 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +1066 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7846, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +1067 0 select FSDATS from STAV where ID = 7846/* ID */ + +1068 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +1069 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +1070 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ diff --git a/MedicusWithClaudeSelects/query_response.json b/MedicusWithClaudeSelects/query_response.json new file mode 100644 index 0000000..29044cc --- /dev/null +++ b/MedicusWithClaudeSelects/query_response.json @@ -0,0 +1,74 @@ +{ + "status": "ok", + "columns": [ + "ID", + "DATUM", + "CAS", + "UZIVATEL", + "IDPAC", + "TABULKA", + "IDREC", + "AKCE", + "DETAIL" + ], + "rows": [ + [ + 2882053, + "2026-03-20", + "17:43:50.523000", + "VBU ", + 3234, + 10000, + 3234, + "V", + null + ], + [ + 2882052, + "2026-03-20", + "17:43:46.435000", + "VBU ", + 3234, + 10000, + 3234, + "V", + null + ], + [ + 2882051, + "2026-03-20", + "17:24:19.777000", + "VBU ", + 4757, + 10000, + 4757, + "V", + null + ], + [ + 2882050, + "2026-03-20", + "17:24:15.866000", + "VBU ", + 3234, + 10000, + 3234, + "V", + null + ], + [ + 2882049, + "2026-03-20", + "07:11:41.434000", + "VBU ", + 4757, + 10000, + 4757, + "V", + null + ] + ], + "error": null, + "id": "11859d529a784bedb653030ba60131de", + "sql": "SELECT FIRST 5 * FROM LOG ORDER BY ID DESC" +} \ No newline at end of file