From f2dc33a05ee7a8aa68f9e7664a003bd360dc6f4d Mon Sep 17 00:00:00 2001 From: Vladimir Buzalka Date: Wed, 18 Mar 2026 07:13:47 +0100 Subject: [PATCH] notebook vb --- MedicusWithClaude/CLAUDE_NOTES.md | 185 + MedicusWithClaude/SPUST_TRACE.bat | 37 + MedicusWithClaude/check_last_dekurs.py | 42 + MedicusWithClaude/db_query.py | 70 + MedicusWithClaude/db_query2.py | 75 + MedicusWithClaude/db_query_result.txt | 532 +++ MedicusWithClaude/funkce.py | 114 + MedicusWithClaude/funkce_ext.py | 184 + MedicusWithClaude/medicus_trace.conf | 16 + MedicusWithClaude/medicus_trace_output.txt | Bin 0 -> 58 bytes MedicusWithClaude/precti_log.txt | 2764 +++++++++++++ MedicusWithClaude/read_last_dekurs.py | 22 + {Trash => MedicusWithClaude}/s03soubory.py | 23 +- MedicusWithClaude/s04_presun_externi_db.py | 108 + MedicusWithClaude/scanneroutput.txt | 4202 ++++++++++++++++++++ MedicusWithClaude/test_ext_db.py | 53 + MedicusWithClaude/test_ext_db2.py | 46 + MedicusWithClaude/test_ext_db3.py | 47 + MedicusWithClaude/test_ext_db4.py | 20 + MedicusWithClaude/test_import_3files.py | 108 + MedicusWithClaude/test_import_april2026.py | 47 + MedicusWithClaude/test_import_merge.py | 182 + MedicusWithClaude/test_import_single.py | 238 ++ 23 files changed, 9102 insertions(+), 13 deletions(-) create mode 100644 MedicusWithClaude/SPUST_TRACE.bat create mode 100644 MedicusWithClaude/check_last_dekurs.py create mode 100644 MedicusWithClaude/db_query.py create mode 100644 MedicusWithClaude/db_query2.py create mode 100644 MedicusWithClaude/db_query_result.txt create mode 100644 MedicusWithClaude/funkce.py create mode 100644 MedicusWithClaude/funkce_ext.py create mode 100644 MedicusWithClaude/medicus_trace.conf create mode 100644 MedicusWithClaude/medicus_trace_output.txt create mode 100644 MedicusWithClaude/precti_log.txt create mode 100644 MedicusWithClaude/read_last_dekurs.py rename {Trash => MedicusWithClaude}/s03soubory.py (90%) create mode 100644 MedicusWithClaude/s04_presun_externi_db.py create mode 100644 MedicusWithClaude/scanneroutput.txt create mode 100644 MedicusWithClaude/test_ext_db.py create mode 100644 MedicusWithClaude/test_ext_db2.py create mode 100644 MedicusWithClaude/test_ext_db3.py create mode 100644 MedicusWithClaude/test_ext_db4.py create mode 100644 MedicusWithClaude/test_import_3files.py create mode 100644 MedicusWithClaude/test_import_april2026.py create mode 100644 MedicusWithClaude/test_import_merge.py create mode 100644 MedicusWithClaude/test_import_single.py diff --git a/MedicusWithClaude/CLAUDE_NOTES.md b/MedicusWithClaude/CLAUDE_NOTES.md index 258d26e..3686ea1 100644 --- a/MedicusWithClaude/CLAUDE_NOTES.md +++ b/MedicusWithClaude/CLAUDE_NOTES.md @@ -4,6 +4,8 @@ - Zahájeno: 2026-03-13 - Cíl: průzkum Firebird DB Medicus → analýzy a reporty - 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. ## Bezpečnost - Pracujeme na **místní kopii** – poškození DB nevadí, obnova = 5 minut @@ -21,6 +23,9 @@ conn = fdb.connect( ) ``` - fdb verze 2.0.4, Python na PATH (prostý `python` příkaz) +- Firebird instalace: `C:\Program Files\Firebird\Firebird_2_5_CGM\bin\` +- Jedná se o **HQbird** (IBSurgeon enhanced Firebird) – port **3070** (ne standardní 3050) +- fbtracemgr trace nefungoval spolehlivě – doporučeno použít **FBScanner** (stejný výrobce) ## O Medicusu - Lékařský software pro praktického lékaře @@ -157,6 +162,186 @@ conn.commit() - `insert_test.py` – testovací INSERT do DEKURS - `CLAUDE_NOTES.md` – tento soubor +## Export FILES do externích DB (zjištěno 2026-03-17 přes FBScanner) + +### Mechanismus přesunu +Medicus vytváří **měsíční** externí Firebird databáze ve formátu `MEDICUS_FILES_YYYYMM.fdb`. + +**Postup exportu:** +1. SELECT dat z FILES po 10 záznamech: `select first 10 ID, BODY, DATUM from FILES where ID > X ORDER BY ID ASC` +2. Binární data (skeny) se zapíší do externího `.fdb` souboru +3. V hlavní DB se BODY přepíše referenčním číslem (ID v externím souboru): `update FILES set BODY = 379 where ID = 10009` +4. Do EXTERNI_DB se zapíše lokace: `insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202501', 'localhost/3053', 'u:\MEDICUS_FILES_202501.fdb', '')` + +### Výsledek +- Hlavní DB: FILES.BODY obsahuje jen malé číslo (referenci) místo MB blobu +- Skenované soubory jsou fyzicky v `u:\MEDICUS_FILES_YYYYMM.fdb` +- Medicus načítá soubory přes EXTERNI_DB tabulku (SERVER + PATH + HESLO) +- Hesla v EXTERNI_DB jsou šifrovaná (base64 AES) + +### FBScanner +- Nainstalován, funguje jako proxy: Medicus → [3050] FBScanner → [3053] Firebird +- Community Edition 2.5 – stačí pro monitoring +- Export proveden na záloze (ne produkční DB) + +## Přímý zápis do externí DB – dokončeno (2026-03-17) + +### Nový soubor: `funkce_ext.py` +Náhrada za `funkce.zapis_file()`. Ukládá PDF přímo do měsíční externí FDB +místo do hlavní medicus.fdb. + +**Funkce:** `zapis_file_ext(vstupconnection, idpac, cesta, souborname, prvnizavorka, soubordate, souborfiledate, poznamka, ext_base_path=r'u:\\')` +- Parametry shodné s `funkce.zapis_file()` → jen prohodit import +- Vrací `fileid` stejně jako původní funkce + +**Co dělá:** +1. Z `soubordate` odvodí `YYYYMM` → `DBNAME = 'DB202603'` +2. Načte PDF jako bytes +3. Vyhledá EXTERNI_DB pro daný měsíc: + - Nalezeno → připojí se k existující FDB (masterkey) + - Nenalezeno → vytvoří novou `MEDICUS_FILES_YYYYMM.fdb`, zaregistruje do EXTERNI_DB +4. Vygeneruje `UID = uuid.uuid4().hex` (32 znaků) +5. Zapíše do DATA tabulky: `UID, DATA (blob), DATASIZE, CHUNK=0` +6. Sestaví 48bajtovou BODY referenci +7. Získá `fileid` z Gen_Files +8. Vloží do FILES s BODY = reference (ne blob) + +### Úprava `s03soubory.py` +- Přidán import `funkce_ext` +- Volání `funkce.zapis_file(...)` nahrazeno `funkce_ext.zapis_file_ext(...)` + +### BODY reference – binární formát (48 B) +``` +magic 4 B = b'\xee\xbb\xaa\x0b' +uid 32 B = UUID4 hex (ASCII, 32 znaků) +dblen 4 B = len(DBNAME) jako little-endian uint32 +dbname N B = DBNAME ASCII (typicky 'DB202603', 8 B) +``` +Celkem typicky: 4 + 32 + 4 + 8 = **48 bajtů** + +### Struktura DATA tabulky (externe DB) +``` +UID VARCHAR(32) NOT NULL +DATA BLOB SUB_TYPE 0 +DATASIZE INTEGER +CHUNK INTEGER +``` +Generator: `GEN_UID` (Medicus ho asi nepoužívá přímo, UID je UUID string) + +### EXTERNI_DB tabulka (hlavní DB) +``` +DBNAME např. 'DB202603' +SERVER např. 'localhost/3053' (FBScanner proxy) +PATH např. 'u:\MEDICUS_FILES_202603.fdb' +HESLO šifrované heslo (Medicus AES) – zkopírujeme z existující položky +``` +Při vytváření nové DB: HESLO zkopírujeme z libovolné existující EXTERNI_DB položky +(všechny používají masterkey, jen jinak zašifrované – ale stejný klíč). + +### Poznámka k HESLO šifrování +Hesla v EXTERNI_DB jsou šifrovaná Medicusem. Při vytváření nové DB proto +zkopírujeme HESLO z existující položky (stejné heslo = stejný šifrovaný text). +Medicus pak dokáže novou DB otevřít standardně. Pokud by to nefungovalo, +lze heslo zadat manuálně přes správce Medicusu. + +## Stav 2026-03-18 – nastudováno po obnově session + +### Co bylo dokončeno (včera večer) +- `funkce_ext.zapis_file_ext()` je **otestována a funkční** +- `s03soubory.py` volá `zapis_file_ext` místo původní `funkce.zapis_file` +- Celý import pipeline funguje end-to-end + +### Celý import pipeline (s03soubory.py) +1. Scanuje složku `u:\NextcloudOrdinace\Dokumentace_ke_zpracování` +2. Ověří formát názvu souboru: `RC YYYY-MM-DD Jmeno, Jmeno. [prvnizavorka] [druhazavorka].pdf` +3. Ověří rodné číslo v KAR tabulce +4. Seskupí soubory podle RC (jeden pacient = jeden dekurs) +5. Pro každý PDF zavolá `funkce_ext.zapis_file_ext()` → zapíše do externí DB +6. Přesune soubor do `u:\NextcloudOrdinace\Dokumentace_zpracovaná` +7. Sestaví RTF se záložkami (klikatelné odkazy na soubory v Medicusu) +8. Zapíše dekurs do DEKURS tabulky + +### Klíčové soubory +- `funkce_ext.py` – zápis PDF do měsíční externí FDB (náhrada za funkce.zapis_file) +- `funkce.py` – původní funkce (zapis_file, zapis_dekurs, get_files_id, get_idpac, convert_to1250) +- `s03soubory.py` – hlavní import script (spouštět na Windows) +- `s04_presun_externi_db.py` – utility: přesun ext DB souborů do u:\externi\ a update PATH v EXTERNI_DB +- `test_ext_db4.py` – ověření BODY bajty z FILES tabulky (hex dump) + +### Formát názvu souboru pro import +``` +RC YYYY-MM-DD Prijmeni, Jmeno. [prvnizavorka] [druhazavorka].pdf +např: 7309208104 2026-03-17 Buzalka, Vladimír. [EKG] [normální nález].pdf +``` + +## Oprava RTF klikacích odkazů (2026-03-18) + +### Problém +`s03soubory.py` generoval RTF s `\cs22` pro styl odkazu, ale Medicus vyžaduje `\cs32`. +Druhý+ bookmark neměl link styling vůbec. `poradi` se nikdy neinkrementoval. + +### Zjištěno analýzou Medicusem vytvořeného DEKURS (ID=263480, AhojClaude.pdf) +Správný RTF formát klikacího odkazu: +``` +{\*\cs32\f0\ul\fs20\cf1 Odkaz;} ← stylesheet: cs32, NE cs22 +\uc1\pard\s10\plain\cs20\f0\i\fs20 Přílohy: {\*\bkmkstart 0}\plain\cs32\f0\ul\fs20\cf1 TEXT{\*\bkmkend 0}\par +``` +- "Přílohy:" je inline s prvním odkazem na stejném `\pard` řádku +- Každý další odkaz: `\pard\s10{\*\bkmkstart N}\plain\cs32\f0\ul\fs20\cf1 TEXT{\*\bkmkend N}\par` + +### Opraveno v s03soubory.py + test_import_3files.py +1. `\cs22` → `\cs32` v stylesheet i těle RTF +2. Header `Vložené přílohy:` je na **samostatném** `\pard` řádku (RTF: `Vlo\'9een\'e9 p\'f8\'edlohy:`) +3. Všechny bookmarky mají stejný formát: `\pard\s10{\*\bkmkstart N}\plain\cs32\f0\ul\fs20\cf1 TEXT{\*\bkmkend N}\par` +4. Přidáno `poradi += 1` (bug: poradi se nikdy neinkrementoval) +5. Odstraněna proměnná `prvnibookmark` – již nepotřebná + +### RTF kódování českých znaků (win1250) +- ž = `\'9e`, é = `\'e9`, ř = `\'f8`, í = `\'ed`, á = `\'e1` +- "Vložené přílohy:" → `Vlo\'9een\'e9 p\'f8\'edlohy:` + +## Merge do existujícího dekurzu (2026-03-18) + +### Rozhodovací logika (3 případy) +1. Poslední dekurs pacienta je z dnešního dne A má `Vložené přílohy:` + → **přidat soubor DO existující sekce** (`pridat_do_sekce_prilohy`) +2. Poslední dekurs je z dnešního dne, ale sekci nemá + → **prepend nové sekce na začátek** (`merge_rtf_prepend`) +3. Poslední dekurs je z jiného dne / neexistuje + → **nový dekurs pro dnešek** +- Funkce: `najdi_posledni_dekurs_dnes(conn, idpac, datum_vlozeni)` + +### pridat_do_sekce_prilohy (přidání do existující sekce) +1. Spočítat `"Files:"` v `{\info{\bookmarks}}` = N → nový bkmkstart = N +2. Posunout všechny bkmkstart/bkmkend ≥ N o +1 (uvolnit index N) +3. Vložit nový `\pard` před `\pard\s10\plain\cs15\f0\fs20 \par` (konec sekce) +4. Vložit bookmark na pozici N do `{\info{\bookmarks}}` + +### merge_rtf_prepend (prepend nové sekce) +1. Posunout existující `\bkmkstart N` / `\bkmkend N` o počet nových souborů +2. Přidat naše bookmarky NA ZAČÁTEK `{\info{\bookmarks ...}}` +3. Vložit naše `\pard` tělo PŘED první `\uc1\pard` existujícího těla + +### Detekce sekce +- Přítomnost: `PRILOHY_HEADER = r"Vlo\'9een\'e9 p\'f8\'edlohy:"` – hledáme v RTF +- Konec sekce: `PRILOHY_CLOSING = r'\pard\s10\plain\cs15\f0\fs20 \par'` + +### Skripty +- `test_import_merge.py` – 3 soubory → merge do dnešního dekurzu (bez sekce přílohy) +- `test_import_single.py` – 1 soubor → merge DO existující sekce přílohy +- `test_import_3files.py` – 3 soubory → vždy nový dekurs (bez merge logiky, starší) + +### 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 + +### 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) + ## Další postup (nápady) - Napsat `rtf_to_text()` pro extrakci čistého textu z dekurzů - Prozkoumat tabulky: LECH/LECD (léky?), POU (poukazy?), AMBULEKY (výkony?) diff --git a/MedicusWithClaude/SPUST_TRACE.bat b/MedicusWithClaude/SPUST_TRACE.bat new file mode 100644 index 0000000..81976fe --- /dev/null +++ b/MedicusWithClaude/SPUST_TRACE.bat @@ -0,0 +1,37 @@ +@echo off +:: Firebird SQL trace pro Medicus +:: Zachytí všechny SQL příkazy při exportu souborů do externích DB +:: +:: INSTRUKCE: +:: 1. Spusť tento soubor jako Administrator (pravé tlačítko → Spustit jako správce) +:: 2. Nechej okno otevřené +:: 3. V Medicusu proveď export souborů do externích DB +:: 4. Vrať se sem a stiskni Ctrl+C pro zastavení +:: 5. Log najdeš v medicus_trace_output.txt + +echo. +echo === MEDICUS SQL TRACE === +echo Hledam Firebird fbtracemgr... +echo. + +set FB_BIN=C:\Program Files\Firebird\Firebird_2_5_CGM\bin + +if not exist "%FB_BIN%\fbtracemgr.exe" ( + echo CHYBA: fbtracemgr.exe nenalezen v %FB_BIN% + echo Zkontroluj cestu a uprav tento soubor. + pause + exit /b 1 +) + +echo Nalezen: %FB_BIN%\fbtracemgr.exe +echo. +echo POZOR: Nyni PROVEĎ export v Medicusu, pak se vrat a stiskni Ctrl+C +echo Výstup se zapisuje do: medicus_trace_output.txt +echo. + +powershell -Command "& '%FB_BIN%\fbtracemgr.exe' -se localhost:service_mgr -user SYSDBA -password masterkey -start -config '%~dp0medicus_trace.conf' | Tee-Object -FilePath '%~dp0medicus_trace_output.txt'" + +echo. +echo === TRACE ZASTAVEN === +echo Výsledky jsou v medicus_trace_output.txt +pause diff --git a/MedicusWithClaude/check_last_dekurs.py b/MedicusWithClaude/check_last_dekurs.py new file mode 100644 index 0000000..7462f10 --- /dev/null +++ b/MedicusWithClaude/check_last_dekurs.py @@ -0,0 +1,42 @@ +"""check_last_dekurs.py – zobrazí posledních 5 záznamů v DEKURS + FILES pro pacienta 9742""" +import fdb + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='WIN1250' +) +cur = conn.cursor() + +print("=== Posledních 5 záznamů DEKURS pro Buzalka (idpac=9742) ===") +cur.execute(""" + SELECT id, datum, cas, OCTET_LENGTH(dekurs) as delka + FROM dekurs WHERE idpac = 9742 + ORDER BY id DESC ROWS 5 +""") +for row in cur.fetchall(): + print(f" ID={row[0]} datum={row[1]} cas={row[2]} délka={row[3]} B") + +print() +print("=== Obsah posledního DEKURS záznamu ===") +cur.execute(""" + SELECT dekurs FROM dekurs WHERE idpac = 9742 + ORDER BY id DESC ROWS 1 +""") +row = cur.fetchone() +if row: + text = row[0] + if isinstance(text, bytes): + text = text.decode('cp1250', errors='replace') + print(text) + +print() +print("=== Posledních 5 záznamů FILES pro Buzalka (idpac=9742) ===") +cur.execute(""" + SELECT id, filename, datum, OCTET_LENGTH(body) as bodylen + FROM files WHERE idpac = 9742 + ORDER BY id DESC ROWS 5 +""") +for row in cur.fetchall(): + print(f" ID={row[0]} filename={row[1]} datum={row[2]} body={row[3]} B") + +conn.close() diff --git a/MedicusWithClaude/db_query.py b/MedicusWithClaude/db_query.py new file mode 100644 index 0000000..b5559a9 --- /dev/null +++ b/MedicusWithClaude/db_query.py @@ -0,0 +1,70 @@ +""" +Pomocný skript pro Clauda – spusť na Windows: python db_query.py +Výsledky zapíše do db_query_result.txt +""" +import fdb +import json +import sys + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', + password='masterkey', + charset='win1250' +) +cur = conn.cursor() + +results = {} + +# 1. Tabulky s klíčovými slovy (soubory, dokumenty) +cur.execute(""" + SELECT RDB$RELATION_NAME + FROM RDB$RELATIONS + WHERE RDB$SYSTEM_FLAG = 0 AND RDB$VIEW_BLR IS NULL + ORDER BY RDB$RELATION_NAME +""") +all_tables = [row[0].strip() for row in cur.fetchall()] + +keywords = ['FILE', 'SOUB', 'DOC', 'SCAN', 'OBRAZ', 'IMG', 'ATTACH', + 'EXTERN', 'PRILOHA', 'ZPRAV', 'ARCH', 'PRIL', 'FOTO'] +matches = [t for t in all_tables if any(k in t.upper() for k in keywords)] +results['tables_matching'] = matches +results['total_tables'] = len(all_tables) + +# 2. Podrobnosti o nalezených tabulkách (sloupce + počet řádků) +table_details = {} +for t in matches: + try: + cur.execute(f"SELECT COUNT(*) FROM {t}") + count = cur.fetchone()[0] + except: + count = "error" + + cur.execute(""" + SELECT r.RDB$FIELD_NAME, f.RDB$FIELD_TYPE, f.RDB$FIELD_LENGTH + FROM RDB$RELATION_FIELDS r + JOIN RDB$FIELDS f ON f.RDB$FIELD_NAME = r.RDB$FIELD_SOURCE + WHERE r.RDB$RELATION_NAME = ? + ORDER BY r.RDB$FIELD_POSITION + """, (t,)) + cols = [(row[0].strip(), row[1], row[2]) for row in cur.fetchall()] + table_details[t] = {"count": count, "columns": cols} + +results['table_details'] = table_details + +# 3. Uložit výsledky +output = [] +output.append(f"=== VÝSLEDKY DB PRŮZKUMU ===\n") +output.append(f"Celkem tabulek v DB: {results['total_tables']}\n") +output.append(f"\nTabulky obsahující klíčová slova (soubory/dokumenty):\n") +for t in results['tables_matching']: + d = results['table_details'].get(t, {}) + output.append(f"\n ** {t} ** (řádků: {d.get('count', '?')})") + for col in d.get('columns', []): + output.append(f" - {col[0]} (type={col[1]}, len={col[2]})") + +with open('db_query_result.txt', 'w', encoding='utf-8') as f: + f.write('\n'.join(output)) + +print("Hotovo! Výsledky jsou v db_query_result.txt") +conn.close() diff --git a/MedicusWithClaude/db_query2.py b/MedicusWithClaude/db_query2.py new file mode 100644 index 0000000..5c11dff --- /dev/null +++ b/MedicusWithClaude/db_query2.py @@ -0,0 +1,75 @@ +""" +Podrobný průzkum FILES a EXTERNI_DB – spusť na Windows: python db_query2.py +""" +import fdb + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', + password='masterkey', + charset='win1250' +) +cur = conn.cursor() +out = [] + +# 1. Obsah EXTERNI_DB +out.append("=== EXTERNI_DB (konfigurace externích databází) ===") +cur.execute("SELECT DBNAME, PATH, SERVER, HESLO FROM EXTERNI_DB") +for row in cur.fetchall(): + out.append(f" DBNAME={row[0]} PATH={row[1]} SERVER={row[2]} HESLO={row[3]}") + +# 2. FILES – přehled po rocích +out.append("\n=== FILES – počty záznamů po rocích ===") +cur.execute(""" + SELECT EXTRACT(YEAR FROM DATUM) as ROK, COUNT(*) as POCET, + SUM(OCTET_LENGTH(BODY)) as CELKEM_BYTU + FROM FILES + GROUP BY EXTRACT(YEAR FROM DATUM) + ORDER BY ROK +""") +total_bytes = 0 +for row in cur.fetchall(): + rok, pocet, bytu = row + mb = (bytu or 0) / 1024 / 1024 + total_bytes += (bytu or 0) + out.append(f" Rok {int(rok) if rok else '?'}: {pocet} souborů, {mb:.1f} MB") +out.append(f" CELKEM: {total_bytes/1024/1024:.1f} MB v BLOB datech FILES") + +# 3. FILES – ukázka typů souborů +out.append("\n=== FILES – typy souborů (dle přípony FILENAME) ===") +cur.execute(""" + SELECT LOWER(SUBSTRING(FILENAME FROM CHAR_LENGTH(FILENAME) - 3)) as EXT, + COUNT(*) as POCET + FROM FILES + WHERE FILENAME IS NOT NULL + GROUP BY 1 + ORDER BY 2 DESC +""") +for row in cur.fetchall(): + out.append(f" {row[0]} : {row[1]} souborů") + +# 4. FILES – ukázka prvních 5 záznamů (bez BODY) +out.append("\n=== FILES – ukázka 5 záznamů (bez binárních dat) ===") +cur.execute(""" + SELECT ID, IDPAC, FILENAME, DATUM, OCTET_LENGTH(BODY) as VELIKOST, + POZNAMKA, IDDOCTYP + FROM FILES + ORDER BY DATUM DESC + ROWS 5 +""") +for row in cur.fetchall(): + out.append(f" ID={row[0]} IDPAC={row[1]} soubor={row[2]} datum={row[3]}" + f" velikost={row[4]}B pozn={row[5]} typ={row[6]}") + +# 5. DOCTYP – typy dokumentů +out.append("\n=== DOCTYP – číselník typů dokumentů ===") +cur.execute("SELECT ID, NAZEV, SYSID FROM DOCTYP ORDER BY ID") +for row in cur.fetchall(): + out.append(f" ID={row[0]} nazev={row[1]} sysid={row[2]}") + +result = '\n'.join(out) +print(result) +with open('db_query2_result.txt', 'w', encoding='utf-8') as f: + f.write(result) +print("\nUloženo do db_query2_result.txt") +conn.close() diff --git a/MedicusWithClaude/db_query_result.txt b/MedicusWithClaude/db_query_result.txt new file mode 100644 index 0000000..9d145e7 --- /dev/null +++ b/MedicusWithClaude/db_query_result.txt @@ -0,0 +1,532 @@ +=== VÝSLEDKY DB PRŮZKUMU === + +Celkem tabulek v DB: 993 + + +Tabulky obsahující klíčová slova (soubory/dokumenty): + + + ** CHAT_ZPRAVY ** (řádků: 0) + - ID (type=8, len=4) + - IDADRESAR (type=8, len=4) + - ODCHOZI (type=14, len=1) + - ODESLANO (type=35, len=8) + - TEXT (type=261, len=8) + - OTHER_ID (type=8, len=4) + - PRECTENO (type=35, len=8) + - SENT (type=35, len=8) + + ** CLICKDOC ** (řádků: 2) + - KEY (type=37, len=100) + - VALUE (type=37, len=100) + + ** CLICKDOC_CINNOSTI ** (řádků: 0) + - IDCLICKDOC (type=8, len=4) + - IDCINNOSTI (type=8, len=4) + + ** CLICKDOC_KAR ** (řádků: 0) + - IDCLICKDOC (type=8, len=4) + - IDPAC (type=8, len=4) + + ** CLICKDOC_OBJ ** (řádků: 0) + - IDCLICKDOC (type=8, len=4) + - IDOBJ (type=8, len=4) + - REMOTECREATE (type=14, len=1) + - REMOTECHANGE (type=14, len=1) + - APPROVAL (type=7, len=2) + - SEND_REMINDER_SMS (type=14, len=1) + + ** CLICKDOC_UZIVATEL ** (řádků: 0) + - IDCLICKDOC (type=8, len=4) + - IDUZI (type=8, len=4) + + ** DEKIMG ** (řádků: 8) + - ID (type=8, len=4) + - HASH (type=37, len=32) + - REFCOUNT (type=8, len=4) + - DATA (type=261, len=8) + + ** DEKIMGREF ** (řádků: 7) + - ID (type=8, len=4) + - IDPAC (type=8, len=4) + - IDDEKURS (type=8, len=4) + - IDDEKIMG (type=8, len=4) + + ** DOCLIST ** (řádků: 461429) + - ID (type=8, len=4) + - DATUM (type=12, len=4) + - TABULKA (type=37, len=20) + - IDREC (type=8, len=4) + - TYP (type=7, len=2) + - POPIS (type=37, len=40) + - IDPAC (type=8, len=4) + - IDODDEL (type=8, len=4) + + ** DOCTYP ** (řádků: 27) + - ID (type=8, len=4) + - NAZEV (type=37, len=32) + - SYSID (type=8, len=4) + + ** DOMPECEARCHIV ** (řádků: 0) + - ID (type=8, len=4) + - CREATED (type=35, len=8) + - DATA (type=261, len=8) + + ** ED_BOOKOFSUBMISSIONATTACH ** (řádků: 0) + - ID (type=8, len=4) + - BOOK_OF_SUBMISSION_ID (type=8, len=4) + - ORDER (type=8, len=4) + - HAS_ALREADY_BEEN_SENT (type=14, len=1) + - NAME (type=37, len=255) + - CONTENT (type=261, len=8) + + ** EET_ZPRAVARECORD ** (řádků: 0) + - ID (type=8, len=4) + - UUID_ZPRAVY (type=14, len=16) + - ID_TRZBA (type=8, len=4) + - GUID_TRZBA (type=14, len=16) + - DAT_ODESL (type=35, len=8) + - CERTTHUMBPRINT (type=37, len=64) + - REQUEST (type=261, len=8) + - RESPONSE (type=261, len=8) + - RESP_TYPE (type=8, len=4) + - RESP_UUID_ZPRAVY (type=37, len=50) + - RESP_DAT_PRIJ (type=35, len=8) + - RESP_DAT_ODMIT (type=35, len=8) + - RESP_BKP (type=37, len=44) + - RESP_FIK (type=37, len=39) + - RESP_KOD (type=8, len=4) + - RESP_CHYBA (type=37, len=100) + - PRVNI_ZASLANI (type=7, len=2) + - RESP_TEST (type=7, len=2) + - RESP_EXCEPTIONMESSAGE (type=261, len=8) + + ** ES_KONZULTACE_FILE ** (řádků: 0) + - ID (type=8, len=4) + - ID_KONZULTACE (type=8, len=4) + - CAS (type=35, len=8) + - NAME (type=37, len=256) + - CONTENT (type=261, len=8) + - MIME (type=37, len=100) + - PATIENT_DOC (type=14, len=1) + - PORADI (type=8, len=4) + + ** EXTERNI_DB ** (řádků: 1) + - DBNAME (type=37, len=12) + - PATH (type=37, len=120) + - SERVER (type=37, len=32) + - HESLO (type=37, len=64) + + ** FILES ** (řádků: 10305) + - ID (type=8, len=4) + - IDPAC (type=8, len=4) + - DOCID (type=8, len=4) + - TYP (type=8, len=4) + - FILENAME (type=37, len=254) + - BODY (type=261, len=8) + - DATUM (type=12, len=4) + - IDDOCTYP (type=8, len=4) + - IDPRAC (type=8, len=4) + - IDUZI (type=8, len=4) + - POZNAMKA (type=37, len=100) + - DATSOUBORU (type=35, len=8) + - ID_EDOKUMENT (type=8, len=4) + - EXT_ID (type=37, len=36) + + ** FNUSA_ATTACHMENT ** (řádků: 0) + - ID (type=8, len=4) + - DATA (type=261, len=8) + - ATTACH_INT_TYP (type=37, len=1) + - ATTACH_INT_ID (type=8, len=4) + - LAST_UPDATED (type=35, len=8) + + ** GRARCH ** (řádků: 0) + - ID (type=8, len=4) + - NAME (type=37, len=16) + - PATH (type=37, len=150) + + ** GRDOC ** (řádků: 0) + - ID (type=8, len=4) + - IDNEM (type=37, len=60) + - IDPAC (type=8, len=4) + - SKUPINA (type=8, len=4) + - DATUM (type=12, len=4) + - PREVIEW (type=261, len=8) + - PICT (type=261, len=8) + - LOCATION (type=37, len=16) + + ** HISTDOC ** (řádků: 32250) + - ID (type=8, len=4) + - TYP (type=37, len=7) + - DATUM (type=12, len=4) + - DATA (type=261, len=8) + - CENA (type=16, len=8) + - REPPOZN (type=37, len=60) + - REPDATUM (type=12, len=4) + - IDPACI (type=8, len=4) + - IDZAR (type=8, len=4) + - IDODD (type=8, len=4) + - IDPRAC (type=8, len=4) + - IDUZIV (type=8, len=4) + - IDLEK (type=8, len=4) + - IDZARPR (type=8, len=4) + - IDODDPR (type=8, len=4) + - IDPRACPR (type=8, len=4) + - IDLEKPR (type=8, len=4) + - STAV (type=14, len=1) + - REPSTAV (type=14, len=1) + - IDSABLONPRAC (type=37, len=55) + - REPTEXT (type=261, len=8) + - TYPCENY (type=14, len=1) + - CENAPACIENT (type=16, len=8) + - IDDOKLAD (type=8, len=4) + - POZNAMKA (type=37, len=100) + - PRINTED (type=14, len=1) + - PRIJALJINE (type=37, len=150) + - BMKDATA (type=261, len=8) + - PORCISLO (type=8, len=4) + - DRUHPOJ (type=8, len=4) + - IDLEKZPR (type=8, len=4) + - IDHLAV (type=8, len=4) + - CREATED (type=35, len=8) + - IDSOUHLASPACSABL (type=8, len=4) + - REPIDUZIVINS (type=8, len=4) + - REPIDUZIVUPD (type=8, len=4) + - CGMNUMBER_ODESILATEL (type=37, len=12) + - CGMNUMBER_PRIJEMCE (type=37, len=12) + - CLICKBOX_ATT_ID (type=8, len=4) + - CLICKBOX_MAILBOX (type=37, len=255) + - ID_EDOKUMENT (type=8, len=4) + + ** HISTDOCLAB ** (řádků: 27185) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - IDMETOD (type=8, len=4) + - POZN (type=261, len=8) + - IDPLADET (type=8, len=4) + + ** HISTDOCLABPARAMS ** (řádků: 0) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - IDHISTDOCLAB (type=8, len=4) + - IDPARAM (type=8, len=4) + - TYP (type=14, len=1) + - TEXT (type=14, len=8) + + ** HISTDOCSABL ** (řádků: 7) + - ID (type=8, len=4) + - TYP (type=37, len=7) + - DATA (type=261, len=8) + - IDZAR (type=8, len=4) + - IDODD (type=8, len=4) + - IDPRAC (type=8, len=4) + - IDUZIV (type=8, len=4) + - IDLEK (type=8, len=4) + - IDZARPR (type=8, len=4) + - IDODDPR (type=8, len=4) + - IDPRACPR (type=8, len=4) + - IDLEKPR (type=8, len=4) + - STAV (type=14, len=1) + - IDSABLONPRAC (type=37, len=55) + - NAZEV (type=37, len=48) + - REPSTAV (type=14, len=1) + - CENA (type=37, len=20) + - DOPLATEK (type=37, len=20) + - USEPRAC (type=8, len=4) + - USEUZIV (type=8, len=4) + + ** HISTDOCSABLLAB ** (řádků: 19) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - IDMETOD (type=8, len=4) + + ** HISTDOCVYK ** (řádků: 1868) + - IDHDVYK (type=8, len=4) + - ID (type=8, len=4) + - KOD (type=14, len=7) + - POCET (type=16, len=8) + - CENA (type=16, len=8) + - CENADOPL (type=16, len=8) + - POJ (type=14, len=3) + - ICZ (type=14, len=8) + - ICP (type=14, len=8) + - DATUM (type=12, len=4) + - REV (type=14, len=1) + - TYP (type=7, len=2) + - NOT_CENA_PRUMER (type=14, len=1) + - VARSYM (type=37, len=20) + - SKUPINA (type=14, len=2) + + ** HISTDOC_DEF ** (řádků: 0) + - ID (type=8, len=4) + - KOD (type=37, len=5) + - NAZEV (type=37, len=40) + - IDUZI (type=8, len=4) + - DATA (type=261, len=8) + - SKUPINA (type=8, len=4) + + ** HISTDOC_EPOUKAZ ** (řádků: 849) + - IDHISTDOC (type=8, len=4) + - ID_DOKLADU (type=14, len=9) + - IDUZI (type=8, len=4) + - IDPRAC (type=8, len=4) + - ODESLANO (type=35, len=8) + - CHYBA (type=14, len=1) + - SCHVALENI (type=14, len=1) + - MODIFIED (type=14, len=1) + - ODESLANO_LAST (type=35, len=8) + - ID_ZP (type=37, len=36) + - ID_DOKLADU_VYDEJ (type=37, len=9) + - ID_ZP_VYDEJ (type=37, len=36) + - VYDANO (type=35, len=8) + + ** HISTDOC_EPOUKAZ_ZMENY ** (řádků: 3) + - ID_LEKAR (type=37, len=36) + - LAST_DATE (type=12, len=4) + + ** HISTDOC_EPRILOHY ** (řádků: 17) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - NAZEV (type=37, len=255) + - POPIS (type=37, len=255) + - TYP (type=37, len=7) + - SOUBOR (type=261, len=8) + - ID_PRILOHY (type=37, len=36) + + ** HISTDOC_EZADANKA ** (řádků: 2195) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - TYP (type=37, len=10) + - DATUMVYS (type=12, len=4) + - CASVYS (type=13, len=4) + - CISLO (type=37, len=30) + - POZNAMKA (type=261, len=8) + - HOTOVO (type=14, len=1) + - IDZAD (type=8, len=4) + - VYSTEXT (type=261, len=8) + - DATUMEXP (type=12, len=4) + - CASEXP (type=13, len=4) + - SABLONY (type=261, len=8) + - PRINTED (type=35, len=8) + - SENDED (type=35, len=8) + - TEMPDAT (type=35, len=8) + - SEZNAMMETOD (type=261, len=8) + - SEZNAMSABLON (type=261, len=8) + - DIAG1 (type=37, len=10) + - DIAG2 (type=37, len=10) + - DIAG3 (type=37, len=10) + - STATIM (type=14, len=1) + - ODEBRANO (type=35, len=8) + - BEZODBERU (type=14, len=1) + - EXPORTOVAT (type=35, len=8) + - NAH1 (type=37, len=10) + - NAH2 (type=37, len=10) + - ODEBRAL (type=37, len=30) + - POCETZKUM (type=8, len=4) + - OS_NAZEV (type=37, len=100) + - OS_ID (type=37, len=20) + - PARAMETRY (type=261, len=8) + - POZNAMKY (type=261, len=8) + - STRINGPARAMETRY (type=261, len=8) + - VZOREK1 (type=37, len=25) + - VZOREK2 (type=37, len=25) + - VZOREK3 (type=37, len=25) + - VZOREK4 (type=37, len=25) + - PLATCE (type=37, len=30) + - OSVOBOZENDPH (type=14, len=1) + - PLATCEPOZNAMKA (type=37, len=100) + - KATALOGALIAS (type=37, len=20) + - KATALOGNAZEV (type=37, len=100) + - PRIMARNIVZORKY (type=37, len=256) + + ** HISTDOC_SCHVALENI ** (řádků: 0) + - ID (type=8, len=4) + - IDHISTDOC (type=8, len=4) + - IDVZPARC (type=8, len=4) + - PRILOHA (type=261, len=8) + - ODESLANO (type=14, len=1) + + ** HOSP_ZPRAVY ** (řádků: 0) + - ID (type=8, len=4) + - DATUM (type=12, len=4) + - CAS (type=13, len=4) + - ZPRAVA (type=261, len=8) + - IDUZI (type=8, len=4) + - IDPAC (type=8, len=4) + - ID_EDOKUMENT (type=8, len=4) + - IDHOSP (type=8, len=4) + + ** IZIPDOC ** (řádků: 0) + - ID (type=8, len=4) + - IDPAC (type=8, len=4) + - DATUM (type=12, len=4) + - STATUS (type=8, len=4) + - IDENT (type=8, len=4) + - ZAPIS (type=261, len=8) + - DEKID (type=8, len=4) + - DGN (type=14, len=5) + - CAS (type=13, len=4) + - IDZAR (type=8, len=4) + - IDODD (type=8, len=4) + - IDPRAC (type=8, len=4) + - AUTOR (type=8, len=4) + - LOCKED (type=14, len=1) + - TYP (type=14, len=1) + - VDGN1 (type=14, len=5) + - VDGN2 (type=14, len=5) + - VDGN3 (type=14, len=5) + - VDGN4 (type=14, len=5) + + ** IZIPFILES ** (řádků: 0) + - ID (type=8, len=4) + - DOCID (type=8, len=4) + - TYP (type=8, len=4) + - FILENAME (type=37, len=50) + - BODY (type=261, len=8) + - DATUM (type=12, len=4) + + ** LEKZPRAVY ** (řádků: 13748) + - ID (type=8, len=4) + - IDPAC (type=8, len=4) + - DEKURSID (type=8, len=4) + - DATUM (type=12, len=4) + - TEXT (type=261, len=8) + - IDUZI (type=8, len=4) + - IDNOSVYK (type=8, len=4) + - TYP (type=14, len=1) + - ODESILATEL (type=37, len=254) + - DEKURS_COPYED (type=35, len=8) + - EISPUBLIC (type=14, len=1) + - PRIJEMCE (type=37, len=254) + - IDPRAC (type=8, len=4) + - SIGNATURE (type=261, len=8) + - SIGNATURE_INFO (type=261, len=8) + - IDCERTIFICATE (type=8, len=4) + - TST (type=261, len=8) + - NAZEV (type=37, len=80) + - ID_EDOKUMENT (type=8, len=4) + - PRIJATO (type=14, len=1) + - JMENOLEK (type=37, len=50) + - ICP (type=14, len=8) + - ES_STAV (type=37, len=1) + - PR_TYP (type=14, len=1) + - PR_ID (type=8, len=4) + - STORNO (type=14, len=1) + - UID (type=37, len=16) + - PUVODNI (type=8, len=4) + - CAS (type=13, len=4) + - DATAKT (type=35, len=8) + - ODALIAS (type=37, len=8) + - PDF (type=261, len=8) + - PREPIS (type=8, len=4) + - OZNACENI_O (type=37, len=50) + - STAV (type=14, len=1) + - CLICKBOX_ATT_ID (type=8, len=4) + - CGMNUMBER_ODESILATEL (type=37, len=12) + - CLICKBOX_MAILBOX (type=37, len=255) + - CGMNUMBER_PRIJEMCE (type=37, len=12) + - CGMNUMBER (type=37, len=12) + + ** LEKZPRAVY_PR ** (řádků: 134) + - ID (type=8, len=4) + - LEKZPRID (type=8, len=4) + - PRID (type=8, len=4) + - IDUZI (type=8, len=4) + - TYP (type=14, len=1) + - EXT (type=14, len=4) + + ** LEKZPRAVY_SEND ** (řádků: 0) + - LEKZPRID (type=8, len=4) + - KDY (type=35, len=8) + - KOMU (type=37, len=80) + + ** MEDINETIN_ATTACHMENT ** (řádků: 120) + - ID (type=8, len=4) + - ID_MEDINETIN (type=8, len=4) + - FILE_NAME (type=37, len=254) + - FILE_EXT (type=37, len=5) + - FILE_TYPE (type=8, len=4) + - DATA (type=261, len=8) + - ID_FILES (type=8, len=4) + - ZPRACOVANO (type=14, len=1) + + ** MEDINETOUT_ATTACHMENT ** (řádků: 2236) + - ID (type=8, len=4) + - ID_MEDINETOUT (type=8, len=4) + - FILE_ID (type=37, len=36) + - FILE_NAME (type=37, len=254) + - FILE_EXT (type=37, len=5) + - FILE_TYPE (type=8, len=4) + - DATA (type=261, len=8) + - ATTACH_INT_TYP (type=37, len=1) + - ATTACH_INT_ID (type=8, len=4) + + ** OSE_ZPRAVY ** (řádků: 0) + - ID (type=8, len=4) + - IDPAC (type=8, len=4) + - DATUM (type=35, len=8) + - UZI (type=37, len=3) + - DATA (type=261, len=8) + - SIGNATURE (type=261, len=8) + - SIGNATURE_INFO (type=261, len=8) + - IDCERTIFICATE (type=8, len=4) + - STORNO (type=35, len=8) + - STORNOBY (type=14, len=3) + + ** SOC_FINPRIJEM_HISTDOC ** (řádků: 0) + - ID_SFH (type=8, len=4) + - ID_SFP (type=8, len=4) + - ID_HDC (type=8, len=4) + + ** ZPRAVY ** (řádků: 26) + - ID (type=8, len=4) + - IDZPRAVY (type=8, len=4) + - IDOD (type=8, len=4) + - IDKOMUZAR (type=8, len=4) + - IDKOMUODD (type=8, len=4) + - IDKOMUPRAC (type=8, len=4) + - IDKOMUUZIV (type=8, len=4) + - PREDMET (type=37, len=100) + - TEXT (type=261, len=8) + - DATUM (type=12, len=4) + - CAS (type=13, len=4) + - URGENTNI (type=8, len=4) + - PRECTENA (type=8, len=4) + - DATUMPRECT (type=12, len=4) + - CASPRECT (type=13, len=4) + - SMAZANA (type=8, len=4) + - OZNAMOPRECT (type=8, len=4) + - TYP (type=8, len=4) + - KOMU (type=261, len=8) + - PLATNOST (type=35, len=8) + - LZE_ODPOVED (type=14, len=1) + - ID_EXT (type=8, len=4) + + ** ZPRAVY_ANKETY ** (řádků: 0) + - ID (type=8, len=4) + - IDUZI (type=8, len=4) + - IDPRIJEMCE (type=8, len=4) + - ID_EXT (type=8, len=4) + - DATA (type=261, len=8) + - DATUM (type=12, len=4) + - ODESLANO (type=14, len=1) + + ** ZPRAVY_EXT ** (řádků: 18) + - ID (type=8, len=4) + - ID_EXT (type=8, len=4) + - ID_ODESILATEL (type=8, len=4) + - TYP (type=37, len=1) + - PRIORITA (type=37, len=1) + - DATUM (type=35, len=8) + - PREDMET (type=37, len=254) + - DATA (type=261, len=8) + - STAV (type=37, len=1) + - AKCE (type=37, len=20) + - PRIJEMCE (type=37, len=3) + - ODESLAL (type=37, len=20) + - ODB (type=37, len=3) + + ** ZPRAVY_LOCK ** (řádků: 1) + - IDUZI (type=8, len=4) + - BEGINTIME (type=35, len=8) + - ENDTIME (type=35, len=8) \ No newline at end of file diff --git a/MedicusWithClaude/funkce.py b/MedicusWithClaude/funkce.py new file mode 100644 index 0000000..8520764 --- /dev/null +++ b/MedicusWithClaude/funkce.py @@ -0,0 +1,114 @@ +import os,fdb,datetime + +# conn = fdb.connect( +# dsn=r'localhost:u:\medicus 3\data\medicus.fdb', # Database path +# user='SYSDBA', # Username +# password="masterkey", # Password, +# charset="win1250") +# cur = conn.cursor() + +def zapis_file(vstupconnection,idpac,cesta,souborname,prvnizavorka,soubordate,souborfiledate,poznamka): + import funkce + cur=vstupconnection.cursor() + fileid = funkce.get_files_id(vstupconnection) + with open(os.path.join(cesta,souborname), 'rb') as f: + daticka = f.read() + query = "insert into files (id,iduzi,iddoctyp,typ,idpac,filename,body,datum,datsouboru,poznamka) values(?,?,?,?,?,?,?,?,?,?)" + cur.execute(query,(fileid,6,1,1,idpac,prvnizavorka+".pdf",daticka,soubordate,souborfiledate,poznamka[:99])) + vstupconnection.commit() + return fileid +def zapis_dekurs(vstupconnection, idpac, idodd, iduzi, idprac, idfile, filename, text, datumzpravy, + datumsouboru): + import funkce + dekursid = funkce.get_dekurs_id(vstupconnection) + cur = vstupconnection.cursor() + print("Funkce zapis_dekurs hlasí OK") + print("idpac", idpac) + print("idodd", idodd) + print("iduzi", iduzi) + print("idfile", idfile) + print("filename", filename) + print("text", text) + print("datumzpravy", datumzpravy) + print("datumsouboru", datumsouboru) + print("dekursid", dekursid) + +# rtf = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks "BOOKMARKNAME","Files:FILEID",9}}{\fonttbl{\f0\fnil\fcharset238 Arial;}{\f5\fnil\fcharset238 Symbol;}} +# {\colortbl ;\red0\green0\blue255;\red0\green128\blue0;\red0\green0\blue0;} +# {\stylesheet{\s0\fi0\li0\ql\ri0\sb0\sa0 Norm\'e1ln\'ed;}{\*\cs15\f0\fs20 Norm\'e1ln\'ed;}{\*\cs20\f0\i\fs20 Z\'e1hlav\'ed;}{\*\cs32\f0\ul\fs20\cf1 Odkaz;}} +# \uc1\pard\s0\plain\cs20\f0\i\fs20 P\'f8\'edlohy: {\*\bkmkstart 0}\plain\cs32\f0\ul\fs20\cf1 BOOKMARKNAME{\*\bkmkend 0}\par +# \pard\s0\plain\cs15\f0\fs20 \par +# } +# """ + rtf = r"""{\rtf1\ansi\ansicpg1250\uc1\deff0\deflang1029{\info{\bookmarks "BOOKMARKNAME","Files:FILEID",9}}{\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 BOOKMARKNAME{\*\bkmkend 0}\par +\pard\s10\plain\cs15\f0\fs20 \par +} + + """ + # id idpac filename body docid typ datum iddoctyp poznamka idpac=2 iduzi=2 datsouboru id_edokument ext_id + encodedbookmark = funkce.convert_to1250(filename) + print("Encodedbookmark", encodedbookmark) + rtf = rtf.replace("BOOKMARKNAME", encodedbookmark) + rtf = rtf.replace("FILEID", str(idfile)) + rtf = rtf.replace("TEXTENTER", text) + datumzapisu = datetime.datetime.now().date() + caszapisu = datetime.datetime.now().time() + print("Datumzapisu", datumzapisu) + print("Caszapisu", caszapisu) + print("RTF", rtf) + cur.execute("insert into dekurs (id,idpac,idodd,iduzi,idprac,datum,cas,dekurs) values(?,?,?,?,?,?,?,?)", + (dekursid, idpac, idodd, iduzi, idprac, datumzapisu, caszapisu, rtf)) + vstupconnection.commit() + + +def convert_to1250(retezec): + retezec=retezec.encode("cp1250") + retezec=str(retezec)[2:] + retezec = retezec[:-1] + retezec=retezec.replace(r"\x",r"\'") + return retezec + + +# x=convert_to1250("Příloha") +# print(x,len(x)) + +def get_dekurs_id(connection): + try: + query = "SELECT GEN_ID(Gen_Dekurs, 1) FROM RDB$DATABASE" + cur = connection.cursor() + cur.execute(query) + newid=cur.fetchone()[0] + print("Funkce GET_DEKURS_ID přiřadila nové ID:",newid) + return(newid) + except: + print("Funkce GET_DEKURS_ID nepřiřadila nové ID") + return(None) + +def get_files_id(connection): + try: + query = "SELECT GEN_ID(Gen_Files, 1) FROM RDB$DATABASE" + cur=connection.cursor() + cur.execute(query) + newid=cur.fetchone()[0] + print(newid) + return(newid) + except: + return(None) + +def get_idpac(rodnecislo,connection): + try: + query = "SELECT idpac,prijmeni FROM kar where rodcis=?" + cur = connection.cursor() + cur.execute(query,(rodnecislo,)) + tmp_nacteno=cur.fetchone() + tmp_id = tmp_nacteno[0] + tmp_jmeno=tmp_nacteno[1] + print(f"Pacient s rodným číslem {rodnecislo} má ID {tmp_id} a jméno {tmp_jmeno}") + return (tmp_id) + except: + return(None) + diff --git a/MedicusWithClaude/funkce_ext.py b/MedicusWithClaude/funkce_ext.py new file mode 100644 index 0000000..2f33780 --- /dev/null +++ b/MedicusWithClaude/funkce_ext.py @@ -0,0 +1,184 @@ +"""funkce_ext.py – zápis PDF souborů přímo do měsíční externí Firebird DB +místo do hlavní medicus.fdb – spouštět na Windows + +Náhrada za funkce.zapis_file() v s03soubory.py. +Binární data souboru se uloží do MEDICUS_FILES_YYYYMM.fdb (DATA tabulka), +do hlavní FILES.BODY se vloží 48bajtová reference. + +Formát FILES.BODY reference (48 B): + magic 4 B = b'\\xee\\xbb\\xaa\\x0b' + uid 32 B = UUID4 hex (ASCII, 32 znaků) + dblen 4 B = délka DBNAME jako little-endian uint32 + dbname N B = DBNAME ASCII (např. 'DB202603', 8 B) +""" + +import os +import struct +import uuid +import fdb + + +# Magic bajty identifikující referenci na externí DB +MAGIC = b'\xee\xbb\xaa\x0b' + + +# ─── Pomocné funkce ────────────────────────────────────────────────────────── + +def make_body_ref(uid: str, dbname: str) -> bytes: + """Sestaví 48bajtovou binární referenci pro FILES.BODY.""" + uid_bytes = uid.encode('ascii') # 32 B + dbname_bytes = dbname.encode('ascii') # typicky 8 B ('DB202603') + return MAGIC + uid_bytes + struct.pack(' + enabled true + log_connections false + log_transactions false + log_statement_prepare false + log_statement_start false + log_statement_finish true + log_procedure_finish false + print_plan false + print_perf false + time_threshold 0 + max_sql_length 32768 + diff --git a/MedicusWithClaude/medicus_trace_output.txt b/MedicusWithClaude/medicus_trace_output.txt new file mode 100644 index 0000000000000000000000000000000000000000..681abdf7bf51dd61f145e09fbb9152cf9dd76230 GIT binary patch literal 58 zcmezWFNC3pA(0`OA(cUap%_RO17RjZK0_Xm@5$f-Bu&9GB|ue03?)DnDGa;}Tnqq^ CV+%n5 literal 0 HcmV?d00001 diff --git a/MedicusWithClaude/precti_log.txt b/MedicusWithClaude/precti_log.txt new file mode 100644 index 0000000..7584fae --- /dev/null +++ b/MedicusWithClaude/precti_log.txt @@ -0,0 +1,2764 @@ +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/read_last_dekurs.py b/MedicusWithClaude/read_last_dekurs.py new file mode 100644 index 0000000..8b357f5 --- /dev/null +++ b/MedicusWithClaude/read_last_dekurs.py @@ -0,0 +1,22 @@ +"""read_last_dekurs.py – jednorázový skript: vypíše obsah posledního DEKURS záznamu pro Buzalka""" +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 FIRST 1 ID, DATUM, CAS, CHAR_LENGTH(DEKURS), DEKURS + FROM DEKURS + WHERE IDPAC = 9742 + ORDER BY ID DESC +""") +row = cur.fetchone() +idek, datum, cas, delka, obsah = row + +print(f"ID={idek} datum={datum} cas={cas} délka={delka} B") +print("=" * 60) +print(obsah) +conn.close() diff --git a/Trash/s03soubory.py b/MedicusWithClaude/s03soubory.py similarity index 90% rename from Trash/s03soubory.py rename to MedicusWithClaude/s03soubory.py index a6be27c..603b430 100644 --- a/Trash/s03soubory.py +++ b/MedicusWithClaude/s03soubory.py @@ -1,5 +1,5 @@ import os,shutil,fdb,time -import re,datetime,funkce +import re,datetime,funkce,funkce_ext # Connect to the Firebird database conn = fdb.connect( @@ -148,12 +148,12 @@ BOOKMARKSTEXT }""" 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;}} + 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 Vlo\'9eena skenovan\'e1 dokumentace:\par +{\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 +\pard\s10\plain\cs15\f0\fs20 \par }""" @@ -169,9 +169,9 @@ BOOKMARKSTEXT # print(row) pacid=row[1] filename=row[6] - fileid= funkce.zapis_file(vstupconnection=conn, idpac=row[1], - cesta=cesta, souborname=row[6], prvnizavorka=row[4], - soubordate=row[2], souborfiledate=row[7], poznamka=row[5]) + 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]) for attempt in range(3): try: @@ -202,11 +202,8 @@ BOOKMARKSTEXT bookmark=bookmark+'"'+filenameforbookmark+'","Files:'+str(fileid)+'",'+str(cislo)+";" cislo+=7 # print(bookmark) - if prvnibookmark: - bookmarks=bookmarks+r'\pard\s10{\*\bkmkstart '+str(poradi)+r"}\plain\cs22\f0\ul\fs20\cf1 "+filenameforbookmark+r"{\*\bkmkend "+str(poradi)+r"}\par" - prvnibookmark=False - else: - bookmarks=bookmarks+r'\pard\s10{\*\bkmkstart '+str(poradi)+r"}" + filenameforbookmark + r"{\*\bkmkend " + str(poradi) + r"}\par" + 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) diff --git a/MedicusWithClaude/s04_presun_externi_db.py b/MedicusWithClaude/s04_presun_externi_db.py new file mode 100644 index 0000000..147f6d0 --- /dev/null +++ b/MedicusWithClaude/s04_presun_externi_db.py @@ -0,0 +1,108 @@ +"""s04_presun_externi_db.py – Přesun externích DB souborů z u:\ do u:\externi\ + +Spustit na Windows s ZAVŘENÝM Medicusem! + +Co dělá: + 1. Připojí se k hlavní medicus.fdb + 2. Načte všechny záznamy z EXTERNI_DB + 3. Pro každý záznam zkopíruje FDB soubor z původní lokace do u:\externi\ + 4. Aktualizuje EXTERNI_DB.PATH na novou lokaci + 5. Vytiskne přehled výsledků + +Po spuštění zkus v Medicusu otevřít přílohu pacienta – mělo by to fungovat. +Pokud ne, zálohuj si databázi a spusť znovu (skript je idempotentní). +""" + +import os +import shutil +import fdb + +# ── Konfigurace ────────────────────────────────────────────────────────────── +MAIN_DB = r'c:\medicus 3\data\medicus.fdb' +CÍL_SLOŽKA = r'u:\externi' +# ───────────────────────────────────────────────────────────────────────────── + +def main(): + os.makedirs(CÍL_SLOŽKA, exist_ok=True) + print(f"Cílová složka: {CÍL_SLOŽKA}") + print() + + print("Připojuji se k hlavní DB...") + conn = fdb.connect( + dsn=f'localhost:{MAIN_DB}', + user='SYSDBA', + password='masterkey', + charset='WIN1250' + ) + cur = conn.cursor() + + # Načti všechny záznamy z EXTERNI_DB + cur.execute("SELECT DBNAME, SERVER, PATH, HESLO FROM EXTERNI_DB ORDER BY DBNAME") + zaznamy = cur.fetchall() + print(f"Nalezeno {len(zaznamy)} záznamů v EXTERNI_DB:") + print() + + ok = 0 + preskoceno = 0 + chyba = 0 + + for dbname, server, path_puvodni, heslo in zaznamy: + print(f" [{dbname}] {path_puvodni}") + + # Název souboru (jen basename, bez cesty) + basename = os.path.basename(path_puvodni) + # Normalize: Medicus někdy ukládá s malým .fdb, někdy velkým .FDB + path_cil = os.path.join(CÍL_SLOŽKA, basename) + + # Zkontroluj, jestli zdrojový soubor existuje + # (zkus obě varianty přípony) + path_src = None + for kandidat in [path_puvodni, + path_puvodni.replace('.fdb', '.FDB'), + path_puvodni.replace('.FDB', '.fdb')]: + if os.path.isfile(kandidat): + path_src = kandidat + break + + if path_src is None: + print(f" ⚠ ZDROJOVÝ SOUBOR NENALEZEN: {path_puvodni} – přeskakuji") + chyba += 1 + continue + + # Pokud je soubor už v cíli, přeskoč kopírování + if os.path.isfile(path_cil): + velikost = os.path.getsize(path_cil) + print(f" → Soubor již existuje v cíli ({velikost:,} B), přeskakuji kopírování") + else: + velikost = os.path.getsize(path_src) + print(f" → Kopíruji ({velikost:,} B)...", end=' ', flush=True) + shutil.copy2(path_src, path_cil) + print("OK") + + # Aktualizuj PATH v EXTERNI_DB pokud se liší + if path_puvodni != path_cil: + cur.execute( + "UPDATE EXTERNI_DB SET PATH = ? WHERE DBNAME = ?", + (path_cil, dbname) + ) + print(f" → EXTERNI_DB.PATH aktualizováno: {path_cil}") + else: + print(f" → PATH již ukazuje na cíl, není třeba měnit") + preskoceno += 1 + + ok += 1 + + conn.commit() + conn.close() + + print() + print("=" * 60) + print(f"Hotovo! Zpracováno: {ok}, přeskočeno: {preskoceno}, chyb: {chyba}") + print() + if chyba > 0: + print("⚠ Některé soubory nebyly nalezeny – viz výpis výše.") + print(" Pokud jsou to staré DB které již neexistují, nevadí to.") + print("Nyní spusť Medicus a zkus otevřít přílohu pacienta.") + +if __name__ == '__main__': + main() diff --git a/MedicusWithClaude/scanneroutput.txt b/MedicusWithClaude/scanneroutput.txt new file mode 100644 index 0000000..7a95067 --- /dev/null +++ b/MedicusWithClaude/scanneroutput.txt @@ -0,0 +1,4202 @@ +5 0 insert into stav (id, iduzi, idprac, mods, time_stamp, compname, cversion) values (7839, 6, 2, '//////////////////8=', '17.03.2026 19:08:41.480'/* 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) + +111 0 update OPTIONS set OBSAH = 46098 where (CATEGORY = 'Global') and (NAME = 'CBICOCheck') + +145 0 INSERT INTO RSSUZI (ID_RSS, ID_UZI, READCOUNTER) VALUES (722, 6, 1) + +153 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +163 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +722 0 /* IBO Custom EditSQL */ +update EXTERNI_DB set PATH = 'u:\externi'/* PATH */, SERVER = 'localhost/3053'/* SERVER */, HESLO = 'qRf4NH3p08QvAhFVo0FRUg=='/* HESLO */ where DBNAME = 'SUKL'/* DBNAME */ + +739 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +762 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +777 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +1325 0 /* IBO Custom EditSQL */ +update EXTERNI_DB set PATH = 'u:\externi'/* PATH */, SERVER = 'localhost/3053'/* SERVER */, HESLO = '8DADUWf+iMGdYHAU4HABYA=='/* HESLO */ where DBNAME = 'SUKL'/* DBNAME */ + +1342 0 execute procedure SET_USECASHDESKBYCCARDPAYMENT('F'/* USECASHDESKBYCCARDPAYMENT */) + +1357 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201711'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201711.fdb'/* PATH */, '5Q2GEaH2mdR3hQqMu52NoA=='/* HESLO */) + +1371 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202003'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202003.fdb'/* PATH */, 'DwzOrYnwCqmCHD7g0/o92A=='/* HESLO */) + +1398 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202501'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202501.fdb'/* PATH */, 'dcVsingl7f/4Txj76uGWyg=='/* HESLO */) + +1423 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202502'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202502.fdb'/* PATH */, 'HRP6UkDJBcFzlZUHPydr5g=='/* HESLO */) + +1441 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202503'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202503.fdb'/* PATH */, '8EGRmqIjQPOdB/4fW2+rYg=='/* HESLO */) + +1462 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202504'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202504.fdb'/* PATH */, '1fSz4n+ajDa+uDmvnNeecA=='/* HESLO */) + +1479 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202410'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202410.fdb'/* PATH */, 'yxXWu4uXRPamcdpqkTQvmg=='/* HESLO */) + +1489 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202412'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202412.fdb'/* PATH */, 'z8CYR9pkbec9KFSK1oBPSA=='/* HESLO */) + +1499 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202305'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202305.fdb'/* PATH */, 'hZeool/pLd1hMdyvcSOAVg=='/* HESLO */) + +1507 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202403'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202403.fdb'/* PATH */, 'ZjRd5y023YvlQFzag8bhUA=='/* HESLO */) + +1515 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202409'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202409.fdb'/* PATH */, '7mP28XJYGyLDz0XAr/1ILA=='/* HESLO */) + +1523 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202411'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202411.fdb'/* PATH */, '7pL5uPtEILKEjvJB4HlKZA=='/* HESLO */) + +1586 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202405'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202405.fdb'/* PATH */, '23AclPxbMWqqiJApULxwPg=='/* HESLO */) + +1611 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202407'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202407.fdb'/* PATH */, 'iJECP2/Kfk4b7YCybg9+eA=='/* HESLO */) + +1621 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202408'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202408.fdb'/* PATH */, 'P0ezzmrfSFWJ8QDneQ1OBg=='/* HESLO */) + +1638 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202309'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202309.fdb'/* PATH */, 'fLkm1wrmDUZoBaqqVZva4A=='/* HESLO */) + +1646 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202402'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202402.fdb'/* PATH */, 'APVh8SvcweSTHf6MIrPU6A=='/* HESLO */) + +1662 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202511'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202511.fdb'/* PATH */, 'PqchA4HZ27zSR9MGBJhQHg=='/* HESLO */) + +1672 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202201'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202201.fdb'/* PATH */, '3QWVxh7nQvtIYxnb0suHqg=='/* HESLO */) + +1727 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202406'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202406.fdb'/* PATH */, '2fI6a9O8vFG81k7qvPLShA=='/* HESLO */) + +1886 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202311'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202311.fdb'/* PATH */, '2PrFjFdD6fCLTqjNDIKdGg=='/* HESLO */) + +1894 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202401'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202401.fdb'/* PATH */, 'h8+gxK1RkCsVadwZ8p0xtg=='/* HESLO */) + +1969 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202806'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202806.fdb'/* PATH */, 'o+OTVGH8pT92v9hl0nSY3A=='/* HESLO */) + +2097 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201503'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201503.fdb'/* PATH */, 'ecYROi0ltOLUmiOzv0qpWg=='/* HESLO */) + +2393 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202303'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202303.fdb'/* PATH */, 'ZB56k97eoTnpOgmqJRS07A=='/* HESLO */) + +2479 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB198706'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_198706.fdb'/* PATH */, '3uzx3DAQZfiMXAKR5GsAWA=='/* HESLO */) + +2487 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202202'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202202.fdb'/* PATH */, 'R7v0OO7+9K86s2gp+Z4TLA=='/* HESLO */) + +2495 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202301'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202301.fdb'/* PATH */, '15Z3sohVysrFOlgbcNIfSg=='/* HESLO */) + +2562 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202304'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202304.fdb'/* PATH */, 'fly7y01y8WeSYAcWMg7OkA=='/* HESLO */) + +2570 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202307'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202307.fdb'/* PATH */, 'wZvwvrQF8+2oTbpL/leKfg=='/* HESLO */) + +2620 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201609'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201609.fdb'/* PATH */, '6ury8Qy0I2O/lrp4rmiMxA=='/* HESLO */) + +2668 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202312'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202312.fdb'/* PATH */, 'BGnK4f5ahUBQEX+Esq04iA=='/* HESLO */) + +2693 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202302'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202302.fdb'/* PATH */, 'RYrwqnScUygrfoAbuRuQtA=='/* HESLO */) + +2804 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202404'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202404.fdb'/* PATH */, '8UyEIQ8mkWXs5Aic3vzCoA=='/* HESLO */) + +2812 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201801'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201801.fdb'/* PATH */, 'Nlh5oqdKugKnNAq/7GsDIA=='/* HESLO */) + +2822 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201802'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201802.fdb'/* PATH */, 'voce+ycwXQRQMx2CcHP3rA=='/* HESLO */) + +2830 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201903'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201903.fdb'/* PATH */, 'M3EULjekKh9RWahjVDiHyA=='/* HESLO */) + +2839 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201905'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201905.fdb'/* PATH */, 'PqASpPIe1dxRwHDxpcWe6A=='/* HESLO */) + +2849 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201906'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201906.fdb'/* PATH */, 'hFkPqw7sFxLq6YMmAn3pwA=='/* HESLO */) + +2949 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201112'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201112.fdb'/* PATH */, 'fOtjMJ2eU1cQY+5Rhza4DA=='/* HESLO */) + +3020 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202308'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202308.fdb'/* PATH */, 'tb4/2YCpxOknZD9clmNQOg=='/* HESLO */) + +3108 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202102'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202102.fdb'/* PATH */, 'OAp1I/QoqqmpZgaSw5ZvzA=='/* HESLO */) + +3211 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202002'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202002.fdb'/* PATH */, 'XQRsxPTCFsAwxGBpQp3SQA=='/* HESLO */) + +3513 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202507'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202507.fdb'/* PATH */, '7gBSyc0oi1E8YO2shUK+MA=='/* HESLO */) + +3731 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202205'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202205.fdb'/* PATH */, 'FGnCn/GePP51Vb8CoBthoA=='/* HESLO */) + +3981 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202111'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202111.fdb'/* PATH */, 'GJJ1c2ng6cGajgECkWb3LA=='/* HESLO */) + +4279 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202310'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202310.fdb'/* PATH */, 'OwtYxsPu8tkqX1d/JEwblA=='/* HESLO */) + +4543 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202204'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202204.fdb'/* PATH */, 'hL5kKxd+hhHXqtYSjHzsPA=='/* HESLO */) + +4551 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202306'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202306.fdb'/* PATH */, '2IIr18SlApOKJJ76TTl8ig=='/* HESLO */) + +4656 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202103'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202103.fdb'/* PATH */, '9DrUTTBtM+lGqHlIdw97Sg=='/* HESLO */) + +4670 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202107'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202107.fdb'/* PATH */, 'bri8mTVe2DHPuMWcYFBFQA=='/* HESLO */) + +4696 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202203'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202203.fdb'/* PATH */, '3SrHApJO1zQ4jspTdanI3A=='/* HESLO */) + +4706 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202206'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202206.fdb'/* PATH */, 'q2AR1BlUL/w86GvhM2v8cA=='/* HESLO */) + +4714 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202207'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202207.fdb'/* PATH */, '4mJa7xfkcjX+nl5W3G6xrA=='/* HESLO */) + +4726 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202211'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202211.fdb'/* PATH */, 'swf8+zZR7cQmZ3fuBVjQrg=='/* HESLO */) + +4739 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202212'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202212.fdb'/* PATH */, 'twcalTjcpaLl25cE0cGD/A=='/* HESLO */) + +4799 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202007'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202007.fdb'/* PATH */, 'rIV9uLjefPXADfclFXQngA=='/* HESLO */) + +4816 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200206'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200206.fdb'/* PATH */, 'Y6839Xm+9C4AX7pM2U+q5A=='/* HESLO */) + +4824 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202106'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202106.fdb'/* PATH */, 'AOe2iLWJNm+rWfmdQIE0Ng=='/* HESLO */) + +4834 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202110'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202110.fdb'/* PATH */, 'xKDXWnRdhegWXIf3X2A8/g=='/* HESLO */) + +4844 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202010'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202010.fdb'/* PATH */, 'J1vbk1oCs6yyb6iSI/U8VA=='/* HESLO */) + +5077 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201504'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201504.fdb'/* PATH */, 's8II3LLHvogjTke1sK5zEg=='/* HESLO */) + +5085 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201601'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201601.fdb'/* PATH */, '+fTZpttznpyN/HQD/xJzrg=='/* HESLO */) + +5093 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202001'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202001.fdb'/* PATH */, 'M21GB4pE2vqfBTMaQs3bGA=='/* HESLO */) + +5104 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202005'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202005.fdb'/* PATH */, '2d/4ozBmOwiLW4vKtW2P7A=='/* HESLO */) + +5114 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201201'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201201.fdb'/* PATH */, 'SjWH0+aGHPblWQm+VfueiA=='/* HESLO */) + +5229 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202506'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202506.fdb'/* PATH */, 'GjKmgcR8eqtqntX4/chTBA=='/* HESLO */) + +5243 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201904'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201904.fdb'/* PATH */, 'zBHgk/Wt4MKp9a/qbkZOUg=='/* HESLO */) + +5254 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202105'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202105.fdb'/* PATH */, 'kAFKNEej8fXEA4lxt4WHag=='/* HESLO */) + +5411 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201404'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201404.fdb'/* PATH */, 'rXHMsz/xDjK/5T/KpVJlYg=='/* HESLO */) + +5902 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201901'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201901.fdb'/* PATH */, '6Ju56nuPCX1F9dazbpXOZg=='/* HESLO */) + +5910 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202006'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202006.fdb'/* PATH */, 'Lz1mj1ts5kL6te3CKY3aeA=='/* HESLO */) + +5947 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202609'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202609.fdb'/* PATH */, '4H1D/8u6D8oVgUgSCgMgqA=='/* HESLO */) + +6401 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202112'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202112.fdb'/* PATH */, 'tUMkP5L37LBQF4l6ZRJDVg=='/* HESLO */) + +6470 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200010'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200010.fdb'/* PATH */, 'AUOHcZJ/7E4cKwvc0MAvLg=='/* HESLO */) + +6606 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202209'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202209.fdb'/* PATH */, 'sBSHVBevWy7eBLWxpbSl9g=='/* HESLO */) + +6646 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201506'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201506.fdb'/* PATH */, 'OaER0ydF9IKUlS3auf7rgg=='/* HESLO */) + +6783 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201611'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201611.fdb'/* PATH */, 'sLiJp7Pbn7Hdnv0S8Y3Udg=='/* HESLO */) + +6805 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202901'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202901.fdb'/* PATH */, '60V/62aplKa60RBqNGboYg=='/* HESLO */) + +6883 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202505'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202505.fdb'/* PATH */, 'FdPg3i5HrAnAvVe/Y6GT5g=='/* HESLO */) + +7020 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202210'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202210.fdb'/* PATH */, 'sSeUk99oSLwf09vaffMbnA=='/* HESLO */) + +7499 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201409'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201409.fdb'/* PATH */, 'l5pvQrD64xwF/swTAG11NA=='/* HESLO */) + +7507 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202011'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202011.fdb'/* PATH */, 'XoEzJyG9lk7DlU+Gx3qBIg=='/* HESLO */) + +7629 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202104'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202104.fdb'/* PATH */, 'paYYf5llUt9zgBVyZcVlug=='/* HESLO */) + +8341 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200612'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200612.fdb'/* PATH */, 'Y75BRFFF5xwOls2lCPBPIg=='/* HESLO */) + +8437 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202109'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202109.fdb'/* PATH */, 'i2qS//GzcUsYABBubJPicg=='/* HESLO */) + +8636 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202012'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202012.fdb'/* PATH */, 'Aru8wm2HpHXp1Qmbk4UURg=='/* HESLO */) + +8701 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202803'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202803.fdb'/* PATH */, 'nJAloFRzc871GF4dnji7jg=='/* HESLO */) + +8751 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201605'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201605.fdb'/* PATH */, 'ieKPSGEZ6JQfav3B4xyeig=='/* HESLO */) + +8759 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201607'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201607.fdb'/* PATH */, 'gRFGgojnrsPMT3TvlOvd+g=='/* HESLO */) + +8808 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200710'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200710.fdb'/* PATH */, 'hsQWOMxW5AQr3GXFGW3+IA=='/* HESLO */) + +8816 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202606'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202606.fdb'/* PATH */, 'YUbOiBwHL9D72kIZOL4NYg=='/* HESLO */) + +8824 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202709'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202709.fdb'/* PATH */, 'SBkS0OJmRNktKZYFfHArMA=='/* HESLO */) + +9131 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202101'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202101.fdb'/* PATH */, '8j4VW/ZUSU1g+mYCFb5bxA=='/* HESLO */) + +9145 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201002'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201002.fdb'/* PATH */, 'LnhRUqsB5RCC9B2vkKQutg=='/* HESLO */) + +9181 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB199705'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_199705.fdb'/* PATH */, 'LGzPfKQZKELq/Dv5uDIWVg=='/* HESLO */) + +9189 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200112'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200112.fdb'/* PATH */, '3w2gq0Y6jHaNwRJGQud48A=='/* HESLO */) + +9199 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200411'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200411.fdb'/* PATH */, 'HjEXN65IjAa/MUQiwbUCAA=='/* HESLO */) + +9209 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200707'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200707.fdb'/* PATH */, 'UjnvSlrlSkPgq4qbmyVM6g=='/* HESLO */) + +9217 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201310'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201310.fdb'/* PATH */, 'k2V0j5NJRwr/CcQWMBIogg=='/* HESLO */) + +9225 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201401'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201401.fdb'/* PATH */, 'j6W82MqgwjUvnTO1vIaLsA=='/* HESLO */) + +9233 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201403'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201403.fdb'/* PATH */, 'oZf7Zq3lECms2enLcaPDjg=='/* HESLO */) + +9244 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201410'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201410.fdb'/* PATH */, 'IBDaZUIkDn2O2K3QAPqFsA=='/* HESLO */) + +9254 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201501'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201501.fdb'/* PATH */, '+0zCPwa4yMvv9E9qwPCHEA=='/* HESLO */) + +9262 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201811'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201811.fdb'/* PATH */, 'AgmvmedcE2iQoSwcQK+1qA=='/* HESLO */) + +9272 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202708'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202708.fdb'/* PATH */, 'Mx9xBuiIxyFByyRXOUYmlA=='/* HESLO */) + +9730 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201809'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201809.fdb'/* PATH */, 'tsB12HlPRu5ccA6lwQR/Vg=='/* HESLO */) + +9778 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB198911'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_198911.fdb'/* PATH */, 'XGwGrwTyNguBIPXSCooGeA=='/* HESLO */) + +9787 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200201'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200201.fdb'/* PATH */, 'mfm8BqJ9Xh/1A79nAjGBig=='/* HESLO */) + +10177 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202508'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202508.fdb'/* PATH */, 'JtUGVMJWtoFL/fU5HvDkuA=='/* HESLO */) + +10803 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202208'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202208.fdb'/* PATH */, 'XO+TqUnE+UZGc6lAORW51A=='/* HESLO */) + +11115 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201812'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201812.fdb'/* PATH */, 'H6gSUOAuGujO+N1VUzmnsA=='/* HESLO */) + +11140 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202911'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202911.fdb'/* PATH */, '3zCrSF26yFAsyJgtrV3oWA=='/* HESLO */) + +11207 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201509'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201509.fdb'/* PATH */, '6c9P9th95zGKoTLb+sPL7g=='/* HESLO */) + +11215 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201803'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201803.fdb'/* PATH */, 'Ec2gHOph3Pl6jykV2PscSg=='/* HESLO */) + +11227 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201902'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201902.fdb'/* PATH */, 'tGLRCtUGo7QlFlyLNJFOvA=='/* HESLO */) + +11247 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201908'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201908.fdb'/* PATH */, 'axybEktEiw75jOh//6nOIA=='/* HESLO */) + +11255 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201910'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201910.fdb'/* PATH */, 'GJ2yb0BwwdqUde6aX+keUA=='/* HESLO */) + +11265 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201911'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201911.fdb'/* PATH */, 'ggjN8gyYe2rnmHBXO5GLmA=='/* HESLO */) + +11275 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201912'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201912.fdb'/* PATH */, 'J4Mzk9u/KGyubyAGyK6xBg=='/* HESLO */) + +11302 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202009'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202009.fdb'/* PATH */, 'aoFsf0Rf+8b3xe8uyZx4ag=='/* HESLO */) + +11613 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202008'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202008.fdb'/* PATH */, 'E+Nw/aJiMrJCiz50RO/b3A=='/* HESLO */) + +11634 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201011'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201011.fdb'/* PATH */, 'yucMKWR/eALY54B8Kry4Xg=='/* HESLO */) + +11685 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201502'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201502.fdb'/* PATH */, 'UXbJ/bApSNW8VGUozGdleg=='/* HESLO */) + +11733 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201706'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201706.fdb'/* PATH */, '+R/lG5uYQhztS5ZyGtO1jA=='/* HESLO */) + +11741 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201707'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201707.fdb'/* PATH */, '/vsQD1MKxWhcN5wG9hleXA=='/* HESLO */) + +12141 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201510'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201510.fdb'/* PATH */, 'Ib0W+u0jmzetI+RPPssm8g=='/* HESLO */) + +12199 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202808'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202808.fdb'/* PATH */, 'S4OmyUT6d67eq1IoosPgNA=='/* HESLO */) + +12275 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202509'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202509.fdb'/* PATH */, 'VW4Fp76dvG9HSHQalr3kWg=='/* HESLO */) + +12521 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200709'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200709.fdb'/* PATH */, 'x1ae/KC6JM7Txhzl84PxfA=='/* HESLO */) + +12706 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201012'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201012.fdb'/* PATH */, 'OTzz2GyM5ORIVGNlXUMkCA=='/* HESLO */) + +12972 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201203'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201203.fdb'/* PATH */, 'IUOt9uTEgM08/0GvUzbWzA=='/* HESLO */) + +13018 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201907'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201907.fdb'/* PATH */, 'LeF7pErcS03ASXDBHyLokA=='/* HESLO */) + +13230 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201701'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201701.fdb'/* PATH */, 'LKRjZq9VkfA/qO/75ChVLg=='/* HESLO */) + +14224 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB199809'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_199809.fdb'/* PATH */, 'jD5pY6zIxIUfGuXq1QqyrA=='/* HESLO */) + +14421 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201512'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201512.fdb'/* PATH */, '0OcgjwPMPsBae8P+4LukXA=='/* HESLO */) + +14653 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202510'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202510.fdb'/* PATH */, 'RWTRHRxHrXcuelvgDUdNng=='/* HESLO */) + +14830 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201712'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201712.fdb'/* PATH */, 'WCy4Bs3P4hRNpCx7q1YVRg=='/* HESLO */) + +15399 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB199712'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_199712.fdb'/* PATH */, 'j6omDJ2O1cKd+gvlbsMJNA=='/* HESLO */) + +15452 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200804'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200804.fdb'/* PATH */, '/LoWSZnVAn2uKFss9lNiGg=='/* HESLO */) + +15460 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201106'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201106.fdb'/* PATH */, 'p+9umX/i14pqv53YbCfqZA=='/* HESLO */) + +16643 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201406'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201406.fdb'/* PATH */, 'KD9xq3DI++zFK/3irpNUjA=='/* HESLO */) + +16796 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200703'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200703.fdb'/* PATH */, 'SA7YIAUCGRIyvrNxBm8blA=='/* HESLO */) + +16809 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201407'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201407.fdb'/* PATH */, 'Rw2UgEpUh60uRRvN5RLe2A=='/* HESLO */) + +16843 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200108'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200108.fdb'/* PATH */, 'TtnKMHGJGPFqU9fRFwtXGg=='/* HESLO */) + +16851 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201608'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201608.fdb'/* PATH */, 'iP+kaQMEZ5ZlgycAVOVOVA=='/* HESLO */) + +17182 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB198701'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_198701.fdb'/* PATH */, 'pMAf2Ch+dFg0YJN9Mclh8A=='/* HESLO */) + +17220 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200912'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200912.fdb'/* PATH */, 'm3L6H5HK/SEOHnhmY9AIPA=='/* HESLO */) + +17325 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201704'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201704.fdb'/* PATH */, '+7CBPc1IgWWROAx4Cqay2A=='/* HESLO */) + +17350 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201909'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201909.fdb'/* PATH */, 'SCnL1lnysC/KtbtLIqYpaA=='/* HESLO */) + +17589 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201709'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201709.fdb'/* PATH */, 'XUJcEN94Y6LA7tGhXF3grA=='/* HESLO */) + +17770 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200811'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200811.fdb'/* PATH */, 'j4yLQOSmFsSdZIB9IR3ZIA=='/* HESLO */) + +17783 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200902'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200902.fdb'/* PATH */, 'FRyRJjmdhgiLkBJbNjiFfg=='/* HESLO */) + +17791 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200903'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200903.fdb'/* PATH */, 'ki6iPy2zEvfzlCrOeIe5cg=='/* HESLO */) + +18090 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200105'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200105.fdb'/* PATH */, '0PJfwUkA+SO6fhCARKTBfA=='/* HESLO */) + +18100 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200405'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200405.fdb'/* PATH */, 'tnRANkA0JSIlPDL7zKVYCA=='/* HESLO */) + +18463 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201004'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201004.fdb'/* PATH */, 'YCe+F87/6fTNW31iq47ylg=='/* HESLO */) + +18471 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201307'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201307.fdb'/* PATH */, '4Q61aslvFYKM8sbT6Tw72g=='/* HESLO */) + +18494 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201505'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201505.fdb'/* PATH */, 'D62E/AAna8ECb/eZsLW14g=='/* HESLO */) + +18507 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201606'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201606.fdb'/* PATH */, 'APQfFDOETwCsXPIZ6sfH8A=='/* HESLO */) + +18522 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201109'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201109.fdb'/* PATH */, 'lTfNuCWqplP790NZC4Z4dA=='/* HESLO */) + +18579 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202512'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202512.fdb'/* PATH */, 'fyJobZcXLFn2AARcO/12Ig=='/* HESLO */) + +18606 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201511'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201511.fdb'/* PATH */, 'xSak1ZmwVLOg+seMouR5ZA=='/* HESLO */) + +18614 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201702'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201702.fdb'/* PATH */, 'XrPymIjhC2vB/antjrXZZg=='/* HESLO */) + +18972 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201412'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201412.fdb'/* PATH */, 'DC1x/5aCsxqfYfKCkEu0OA=='/* HESLO */) + +18999 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200212'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200212.fdb'/* PATH */, '/G2/UZFqMPSN5S7MCRFZaA=='/* HESLO */) + +19007 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200412'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200412.fdb'/* PATH */, 'ROi+h92h5x02Ds0OI1MIjg=='/* HESLO */) + +19089 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201603'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201603.fdb'/* PATH */, '+CIBfLvw7u6tdpQF3ylb9A=='/* HESLO */) + +19412 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201006'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201006.fdb'/* PATH */, 'lfdI3ucVrDH7aTvTQVsH7g=='/* HESLO */) + +19420 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201807'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201807.fdb'/* PATH */, 'hNxm6hiKbybvsO0HeEf/cA=='/* HESLO */) + +19466 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201211'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201211.fdb'/* PATH */, '5k8InggoIMls2wAfAn64pA=='/* HESLO */) + +19977 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201705'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201705.fdb'/* PATH */, 'jLTL1ygXVEUtwoky1gVZ5g=='/* HESLO */) + +20128 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200604'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200604.fdb'/* PATH */, 'N3lqckYuFStR7QrPn57amA=='/* HESLO */) + +20174 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202601'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202601.fdb'/* PATH */, 'nBixDa7o9O0NYD+IPr5rSA=='/* HESLO */) + +20400 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201810'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201810.fdb'/* PATH */, 'u7C+AvpPzbwVUM0PuIZClg=='/* HESLO */) + +20551 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200802'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200802.fdb'/* PATH */, 'AWrqIIN6H67sEhtBLFO8hA=='/* HESLO */) + +20838 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201805'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201805.fdb'/* PATH */, '/TSwnruVFFhw6P/zcpAP/g=='/* HESLO */) + +20937 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201508'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201508.fdb'/* PATH */, '9mdj6zpE7vT685ECq0eR1A=='/* HESLO */) + +21165 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201804'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201804.fdb'/* PATH */, 'pZNddGbCAHswiyXt7SZ2HA=='/* HESLO */) + +21356 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB199902'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_199902.fdb'/* PATH */, 'F9y62JyzwPoFJMmttTSY/g=='/* HESLO */) + +21516 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201402'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201402.fdb'/* PATH */, '6xEK1/0mWC5mXZn6YDPLYA=='/* HESLO */) + +21531 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201405'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201405.fdb'/* PATH */, 't6Suw489SF3eml4C7qegTg=='/* HESLO */) + +21729 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200102'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200102.fdb'/* PATH */, 'bGaK6sExUXJGCoLjo6YBgg=='/* HESLO */) + +21737 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200304'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200304.fdb'/* PATH */, 'xxU5b5YToqomAaVWcEwqWg=='/* HESLO */) + +21751 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201604'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201604.fdb'/* PATH */, 'CtRVvK2H0vZYRNk5lmQnBg=='/* HESLO */) + +21770 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201005'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201005.fdb'/* PATH */, 'WH6NbiYjoI402v8Pd0z/Ig=='/* HESLO */) + +21885 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201710'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201710.fdb'/* PATH */, 'vhbK8g9gbXzT4r2LB9tvTA=='/* HESLO */) + +22129 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB200805'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_200805.fdb'/* PATH */, 'eE6alJi2S57q/hetAYfdNA=='/* HESLO */) + +22148 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202602'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202602.fdb'/* PATH */, '5Od+4YJkVvZpe4V4fxXNdA=='/* HESLO */) + +23195 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202611'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202611.fdb'/* PATH */, 'A+YMbiOg09AeIrtvWm8Q5A=='/* HESLO */) + +23826 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB202603'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_202603.fdb'/* PATH */, 'z10ayJ46I52SFYmlMAhTiA=='/* HESLO */) + +23839 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201110'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201110.fdb'/* PATH */, 's/u7C4CtBfjRI89G6vhpfg=='/* HESLO */) + +23847 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201309'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201309.fdb'/* PATH */, 'lOLFvD7VKNAeeqkdcOSQ8g=='/* HESLO */) + +23857 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201808'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201808.fdb'/* PATH */, 'AQeUNJ/vMceefSUNs/Mjxg=='/* HESLO */) + +23905 0 select first 10 ID, BODY, DATUM from FILES where ID > 10003/* LASTID */ +ORDER BY ID ASC + +23916 0 /* IBO Custom EditSQL */ +update FILES set BODY = 379/* BODY */ where ID = 10009/* ID */ + +23917 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10009/* BIND_0 */ + +23918 0 /* IBO Custom EditSQL */ +update FILES set BODY = 381/* BODY */ where ID = 10010/* ID */ + +23919 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10010/* BIND_0 */ + +23920 0 /* IBO Custom EditSQL */ +update FILES set BODY = 383/* BODY */ where ID = 10011/* ID */ + +23921 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10011/* BIND_0 */ + +23922 0 /* IBO Custom EditSQL */ +update FILES set BODY = 385/* BODY */ where ID = 10012/* ID */ + +23923 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10012/* BIND_0 */ + +23924 0 /* IBO Custom EditSQL */ +update FILES set BODY = 387/* BODY */ where ID = 10013/* ID */ + +23925 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10013/* BIND_0 */ + +23926 0 select first 10 ID, BODY, DATUM from FILES where ID > 10013/* LASTID */ +ORDER BY ID ASC + +23927 0 /* IBO Custom EditSQL */ +update FILES set BODY = 389/* BODY */ where ID = 10014/* ID */ + +23928 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10014/* BIND_0 */ + +23929 0 /* IBO Custom EditSQL */ +update FILES set BODY = 391/* BODY */ where ID = 10015/* ID */ + +23930 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10015/* BIND_0 */ + +23931 0 /* IBO Custom EditSQL */ +update FILES set BODY = 393/* BODY */ where ID = 10016/* ID */ + +23932 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10016/* BIND_0 */ + +23933 0 /* IBO Custom EditSQL */ +update FILES set BODY = 395/* BODY */ where ID = 10017/* ID */ + +23934 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10017/* BIND_0 */ + +23935 0 /* IBO Custom EditSQL */ +update FILES set BODY = 397/* BODY */ where ID = 10018/* ID */ + +23936 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10018/* BIND_0 */ + +23937 0 /* IBO Custom EditSQL */ +update FILES set BODY = 399/* BODY */ where ID = 10019/* ID */ + +23938 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10019/* BIND_0 */ + +23939 0 /* IBO Custom EditSQL */ +update FILES set BODY = 401/* BODY */ where ID = 10020/* ID */ + +23940 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10020/* BIND_0 */ + +23941 0 /* IBO Custom EditSQL */ +update FILES set BODY = 403/* BODY */ where ID = 10021/* ID */ + +23942 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10021/* BIND_0 */ + +23943 0 /* IBO Custom EditSQL */ +update FILES set BODY = 405/* BODY */ where ID = 10022/* ID */ + +23944 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10022/* BIND_0 */ + +23945 0 /* IBO Custom EditSQL */ +update FILES set BODY = 407/* BODY */ where ID = 10023/* ID */ + +23946 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10023/* BIND_0 */ + +23947 0 select first 10 ID, BODY, DATUM from FILES where ID > 10023/* LASTID */ +ORDER BY ID ASC + +23948 0 /* IBO Custom EditSQL */ +update FILES set BODY = 409/* BODY */ where ID = 10024/* ID */ + +23949 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10024/* BIND_0 */ + +23950 0 /* IBO Custom EditSQL */ +update FILES set BODY = 411/* BODY */ where ID = 10025/* ID */ + +23951 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10025/* BIND_0 */ + +23952 0 /* IBO Custom EditSQL */ +update FILES set BODY = 413/* BODY */ where ID = 10026/* ID */ + +23953 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10026/* BIND_0 */ + +23954 0 /* IBO Custom EditSQL */ +update FILES set BODY = 415/* BODY */ where ID = 10027/* ID */ + +23955 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10027/* BIND_0 */ + +23956 0 /* IBO Custom EditSQL */ +update FILES set BODY = 417/* BODY */ where ID = 10028/* ID */ + +23957 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10028/* BIND_0 */ + +23958 0 /* IBO Custom EditSQL */ +update FILES set BODY = 419/* BODY */ where ID = 10029/* ID */ + +23959 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10029/* BIND_0 */ + +23960 0 /* IBO Custom EditSQL */ +update FILES set BODY = 421/* BODY */ where ID = 10030/* ID */ + +23961 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10030/* BIND_0 */ + +23962 0 /* IBO Custom EditSQL */ +update FILES set BODY = 423/* BODY */ where ID = 10031/* ID */ + +23963 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10031/* BIND_0 */ + +23964 0 /* IBO Custom EditSQL */ +update FILES set BODY = 425/* BODY */ where ID = 10032/* ID */ + +23965 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10032/* BIND_0 */ + +23966 0 /* IBO Custom EditSQL */ +update FILES set BODY = 427/* BODY */ where ID = 10033/* ID */ + +23967 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10033/* BIND_0 */ + +23968 0 select first 10 ID, BODY, DATUM from FILES where ID > 10033/* LASTID */ +ORDER BY ID ASC + +23969 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +23970 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201706' + +23971 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201706' + +23972 0 /* IBO Custom EditSQL */ +update FILES set BODY = 430/* BODY */ where ID = 10034/* ID */ + +23973 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10034/* BIND_0 */ + +23974 0 /* IBO Custom EditSQL */ +update FILES set BODY = 432/* BODY */ where ID = 10035/* ID */ + +23975 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10035/* BIND_0 */ + +23976 0 /* IBO Custom EditSQL */ +update FILES set BODY = 434/* BODY */ where ID = 10036/* ID */ + +23977 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10036/* BIND_0 */ + +23978 0 /* IBO Custom EditSQL */ +update FILES set BODY = 436/* BODY */ where ID = 10037/* ID */ + +23979 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10037/* BIND_0 */ + +23980 0 /* IBO Custom EditSQL */ +update FILES set BODY = 438/* BODY */ where ID = 10038/* ID */ + +23981 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10038/* BIND_0 */ + +23982 0 /* IBO Custom EditSQL */ +update FILES set BODY = 440/* BODY */ where ID = 10039/* ID */ + +23983 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10039/* BIND_0 */ + +23984 0 /* IBO Custom EditSQL */ +update FILES set BODY = 442/* BODY */ where ID = 10040/* ID */ + +23985 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10040/* BIND_0 */ + +23986 0 /* IBO Custom EditSQL */ +update FILES set BODY = 444/* BODY */ where ID = 10041/* ID */ + +23987 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10041/* BIND_0 */ + +23988 0 /* IBO Custom EditSQL */ +update FILES set BODY = 446/* BODY */ where ID = 10042/* ID */ + +23989 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10042/* BIND_0 */ + +23990 0 /* IBO Custom EditSQL */ +update FILES set BODY = 448/* BODY */ where ID = 10043/* ID */ + +23991 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10043/* BIND_0 */ + +23992 0 select first 10 ID, BODY, DATUM from FILES where ID > 10043/* LASTID */ +ORDER BY ID ASC + +23993 0 /* IBO Custom EditSQL */ +update FILES set BODY = 450/* BODY */ where ID = 10044/* ID */ + +23994 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10044/* BIND_0 */ + +23995 0 /* IBO Custom EditSQL */ +update FILES set BODY = 452/* BODY */ where ID = 10045/* ID */ + +23996 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10045/* BIND_0 */ + +23997 0 /* IBO Custom EditSQL */ +update FILES set BODY = 454/* BODY */ where ID = 10046/* ID */ + +23998 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10046/* BIND_0 */ + +23999 0 /* IBO Custom EditSQL */ +update FILES set BODY = 456/* BODY */ where ID = 10047/* ID */ + +24000 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10047/* BIND_0 */ + +24001 0 /* IBO Custom EditSQL */ +update FILES set BODY = 458/* BODY */ where ID = 10048/* ID */ + +24002 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10048/* BIND_0 */ + +24003 0 /* IBO Custom EditSQL */ +update FILES set BODY = 460/* BODY */ where ID = 10049/* ID */ + +24004 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10049/* BIND_0 */ + +24005 0 /* IBO Custom EditSQL */ +update FILES set BODY = 462/* BODY */ where ID = 10050/* ID */ + +24006 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10050/* BIND_0 */ + +24007 0 /* IBO Custom EditSQL */ +update FILES set BODY = 464/* BODY */ where ID = 10051/* ID */ + +24008 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10051/* BIND_0 */ + +24009 0 /* IBO Custom EditSQL */ +update FILES set BODY = 466/* BODY */ where ID = 10052/* ID */ + +24010 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10052/* BIND_0 */ + +24011 0 /* IBO Custom EditSQL */ +update FILES set BODY = 468/* BODY */ where ID = 10053/* ID */ + +24012 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10053/* BIND_0 */ + +24013 0 select first 10 ID, BODY, DATUM from FILES where ID > 10053/* LASTID */ +ORDER BY ID ASC + +24014 0 /* IBO Custom EditSQL */ +update FILES set BODY = 470/* BODY */ where ID = 10054/* ID */ + +24015 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10054/* BIND_0 */ + +24016 0 /* IBO Custom EditSQL */ +update FILES set BODY = 472/* BODY */ where ID = 10055/* ID */ + +24017 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10055/* BIND_0 */ + +24018 0 /* IBO Custom EditSQL */ +update FILES set BODY = 474/* BODY */ where ID = 10056/* ID */ + +24019 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10056/* BIND_0 */ + +24020 0 /* IBO Custom EditSQL */ +update FILES set BODY = 476/* BODY */ where ID = 10057/* ID */ + +24021 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10057/* BIND_0 */ + +24022 0 /* IBO Custom EditSQL */ +update FILES set BODY = 478/* BODY */ where ID = 10058/* ID */ + +24023 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10058/* BIND_0 */ + +24024 0 /* IBO Custom EditSQL */ +update FILES set BODY = 480/* BODY */ where ID = 10059/* ID */ + +24025 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10059/* BIND_0 */ + +24026 0 /* IBO Custom EditSQL */ +update FILES set BODY = 482/* BODY */ where ID = 10060/* ID */ + +24027 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10060/* BIND_0 */ + +24028 0 /* IBO Custom EditSQL */ +update FILES set BODY = 484/* BODY */ where ID = 10061/* ID */ + +24029 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10061/* BIND_0 */ + +24030 0 /* IBO Custom EditSQL */ +update FILES set BODY = 486/* BODY */ where ID = 10062/* ID */ + +24031 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10062/* BIND_0 */ + +24032 0 /* IBO Custom EditSQL */ +update FILES set BODY = 488/* BODY */ where ID = 10063/* ID */ + +24033 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10063/* BIND_0 */ + +24034 0 select first 10 ID, BODY, DATUM from FILES where ID > 10063/* LASTID */ +ORDER BY ID ASC + +24035 0 /* IBO Custom EditSQL */ +update FILES set BODY = 490/* BODY */ where ID = 10064/* ID */ + +24036 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10064/* BIND_0 */ + +24037 0 /* IBO Custom EditSQL */ +update FILES set BODY = 492/* BODY */ where ID = 10065/* ID */ + +24038 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10065/* BIND_0 */ + +24039 0 /* IBO Custom EditSQL */ +update FILES set BODY = 494/* BODY */ where ID = 10066/* ID */ + +24040 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10066/* BIND_0 */ + +24041 0 /* IBO Custom EditSQL */ +update FILES set BODY = 496/* BODY */ where ID = 10067/* ID */ + +24042 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10067/* BIND_0 */ + +24043 0 /* IBO Custom EditSQL */ +update FILES set BODY = 498/* BODY */ where ID = 10068/* ID */ + +24044 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10068/* BIND_0 */ + +24045 0 /* IBO Custom EditSQL */ +update FILES set BODY = 500/* BODY */ where ID = 10069/* ID */ + +24046 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10069/* BIND_0 */ + +24047 0 /* IBO Custom EditSQL */ +update FILES set BODY = 502/* BODY */ where ID = 10070/* ID */ + +24048 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10070/* BIND_0 */ + +24049 0 /* IBO Custom EditSQL */ +update FILES set BODY = 504/* BODY */ where ID = 10071/* ID */ + +24050 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10071/* BIND_0 */ + +24051 0 /* IBO Custom EditSQL */ +update FILES set BODY = 506/* BODY */ where ID = 10072/* ID */ + +24052 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10072/* BIND_0 */ + +24053 0 /* IBO Custom EditSQL */ +update FILES set BODY = 508/* BODY */ where ID = 10073/* ID */ + +24054 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10073/* BIND_0 */ + +24055 0 select first 10 ID, BODY, DATUM from FILES where ID > 10073/* LASTID */ +ORDER BY ID ASC + +24056 0 /* IBO Custom EditSQL */ +update FILES set BODY = 510/* BODY */ where ID = 10074/* ID */ + +24057 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10074/* BIND_0 */ + +24058 0 /* IBO Custom EditSQL */ +update FILES set BODY = 512/* BODY */ where ID = 10075/* ID */ + +24059 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10075/* BIND_0 */ + +24060 0 /* IBO Custom EditSQL */ +update FILES set BODY = 514/* BODY */ where ID = 10076/* ID */ + +24061 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10076/* BIND_0 */ + +24062 0 /* IBO Custom EditSQL */ +update FILES set BODY = 516/* BODY */ where ID = 10077/* ID */ + +24063 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10077/* BIND_0 */ + +24064 0 /* IBO Custom EditSQL */ +update FILES set BODY = 518/* BODY */ where ID = 10078/* ID */ + +24065 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10078/* BIND_0 */ + +24066 0 /* IBO Custom EditSQL */ +update FILES set BODY = 520/* BODY */ where ID = 10079/* ID */ + +24067 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10079/* BIND_0 */ + +24068 0 /* IBO Custom EditSQL */ +update FILES set BODY = 522/* BODY */ where ID = 10080/* ID */ + +24069 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10080/* BIND_0 */ + +24070 0 /* IBO Custom EditSQL */ +update FILES set BODY = 524/* BODY */ where ID = 10081/* ID */ + +24071 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10081/* BIND_0 */ + +24072 0 /* IBO Custom EditSQL */ +update FILES set BODY = 526/* BODY */ where ID = 10082/* ID */ + +24073 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10082/* BIND_0 */ + +24074 0 /* IBO Custom EditSQL */ +update FILES set BODY = 528/* BODY */ where ID = 10083/* ID */ + +24075 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10083/* BIND_0 */ + +24076 0 select first 10 ID, BODY, DATUM from FILES where ID > 10083/* LASTID */ +ORDER BY ID ASC + +24077 0 /* IBO Custom EditSQL */ +update FILES set BODY = 530/* BODY */ where ID = 10084/* ID */ + +24078 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10084/* BIND_0 */ + +24079 0 /* IBO Custom EditSQL */ +update FILES set BODY = 532/* BODY */ where ID = 10085/* ID */ + +24080 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10085/* BIND_0 */ + +24081 0 /* IBO Custom EditSQL */ +update FILES set BODY = 534/* BODY */ where ID = 10086/* ID */ + +24082 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10086/* BIND_0 */ + +24083 0 /* IBO Custom EditSQL */ +update FILES set BODY = 536/* BODY */ where ID = 10087/* ID */ + +24084 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10087/* BIND_0 */ + +24085 0 /* IBO Custom EditSQL */ +update FILES set BODY = 538/* BODY */ where ID = 10088/* ID */ + +24086 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10088/* BIND_0 */ + +24087 0 /* IBO Custom EditSQL */ +update FILES set BODY = 540/* BODY */ where ID = 10089/* ID */ + +24088 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10089/* BIND_0 */ + +24089 0 /* IBO Custom EditSQL */ +update FILES set BODY = 542/* BODY */ where ID = 10090/* ID */ + +24090 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10090/* BIND_0 */ + +24091 0 /* IBO Custom EditSQL */ +update FILES set BODY = 544/* BODY */ where ID = 10091/* ID */ + +24092 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10091/* BIND_0 */ + +24093 0 /* IBO Custom EditSQL */ +update FILES set BODY = 546/* BODY */ where ID = 10092/* ID */ + +24094 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10092/* BIND_0 */ + +24095 0 /* IBO Custom EditSQL */ +update FILES set BODY = 548/* BODY */ where ID = 10093/* ID */ + +24096 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10093/* BIND_0 */ + +24097 0 select first 10 ID, BODY, DATUM from FILES where ID > 10093/* LASTID */ +ORDER BY ID ASC + +24098 0 /* IBO Custom EditSQL */ +update FILES set BODY = 550/* BODY */ where ID = 10094/* ID */ + +24099 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10094/* BIND_0 */ + +24100 0 /* IBO Custom EditSQL */ +update FILES set BODY = 552/* BODY */ where ID = 10095/* ID */ + +24101 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10095/* BIND_0 */ + +24102 0 /* IBO Custom EditSQL */ +update FILES set BODY = 554/* BODY */ where ID = 10096/* ID */ + +24103 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10096/* BIND_0 */ + +24104 0 /* IBO Custom EditSQL */ +update FILES set BODY = 556/* BODY */ where ID = 10097/* ID */ + +24105 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10097/* BIND_0 */ + +24106 0 /* IBO Custom EditSQL */ +update FILES set BODY = 558/* BODY */ where ID = 10098/* ID */ + +24107 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10098/* BIND_0 */ + +24108 0 /* IBO Custom EditSQL */ +update FILES set BODY = 560/* BODY */ where ID = 10099/* ID */ + +24109 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10099/* BIND_0 */ + +24110 0 /* IBO Custom EditSQL */ +update FILES set BODY = 562/* BODY */ where ID = 10100/* ID */ + +24111 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10100/* BIND_0 */ + +24112 0 /* IBO Custom EditSQL */ +update FILES set BODY = 564/* BODY */ where ID = 10101/* ID */ + +24113 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10101/* BIND_0 */ + +24114 0 /* IBO Custom EditSQL */ +update FILES set BODY = 566/* BODY */ where ID = 10102/* ID */ + +24115 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10102/* BIND_0 */ + +24116 0 /* IBO Custom EditSQL */ +update FILES set BODY = 568/* BODY */ where ID = 10103/* ID */ + +24117 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10103/* BIND_0 */ + +24118 0 select first 10 ID, BODY, DATUM from FILES where ID > 10103/* LASTID */ +ORDER BY ID ASC + +24119 0 /* IBO Custom EditSQL */ +update FILES set BODY = 570/* BODY */ where ID = 10104/* ID */ + +24120 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10104/* BIND_0 */ + +24121 0 /* IBO Custom EditSQL */ +update FILES set BODY = 572/* BODY */ where ID = 10105/* ID */ + +24122 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10105/* BIND_0 */ + +24123 0 /* IBO Custom EditSQL */ +update FILES set BODY = 574/* BODY */ where ID = 10106/* ID */ + +24124 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10106/* BIND_0 */ + +24125 0 /* IBO Custom EditSQL */ +update FILES set BODY = 576/* BODY */ where ID = 10107/* ID */ + +24126 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10107/* BIND_0 */ + +24127 0 /* IBO Custom EditSQL */ +update FILES set BODY = 578/* BODY */ where ID = 10108/* ID */ + +24128 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10108/* BIND_0 */ + +24129 0 /* IBO Custom EditSQL */ +update FILES set BODY = 580/* BODY */ where ID = 10109/* ID */ + +24130 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10109/* BIND_0 */ + +24131 0 /* IBO Custom EditSQL */ +update FILES set BODY = 582/* BODY */ where ID = 10110/* ID */ + +24132 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10110/* BIND_0 */ + +24133 0 /* IBO Custom EditSQL */ +update FILES set BODY = 584/* BODY */ where ID = 10111/* ID */ + +24134 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10111/* BIND_0 */ + +24135 0 /* IBO Custom EditSQL */ +update FILES set BODY = 586/* BODY */ where ID = 10112/* ID */ + +24136 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10112/* BIND_0 */ + +24137 0 /* IBO Custom EditSQL */ +update FILES set BODY = 588/* BODY */ where ID = 10113/* ID */ + +24138 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10113/* BIND_0 */ + +24139 0 select first 10 ID, BODY, DATUM from FILES where ID > 10113/* LASTID */ +ORDER BY ID ASC + +24140 0 /* IBO Custom EditSQL */ +update FILES set BODY = 590/* BODY */ where ID = 10114/* ID */ + +24141 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10114/* BIND_0 */ + +24142 0 /* IBO Custom EditSQL */ +update FILES set BODY = 592/* BODY */ where ID = 10115/* ID */ + +24143 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10115/* BIND_0 */ + +24144 0 /* IBO Custom EditSQL */ +update FILES set BODY = 594/* BODY */ where ID = 10116/* ID */ + +24145 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10116/* BIND_0 */ + +24146 0 /* IBO Custom EditSQL */ +update FILES set BODY = 596/* BODY */ where ID = 10117/* ID */ + +24147 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10117/* BIND_0 */ + +24148 0 /* IBO Custom EditSQL */ +update FILES set BODY = 598/* BODY */ where ID = 10118/* ID */ + +24149 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10118/* BIND_0 */ + +24150 0 /* IBO Custom EditSQL */ +update FILES set BODY = 600/* BODY */ where ID = 10119/* ID */ + +24151 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10119/* BIND_0 */ + +24152 0 /* IBO Custom EditSQL */ +update FILES set BODY = 602/* BODY */ where ID = 10120/* ID */ + +24153 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10120/* BIND_0 */ + +24154 0 /* IBO Custom EditSQL */ +update FILES set BODY = 604/* BODY */ where ID = 10121/* ID */ + +24155 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10121/* BIND_0 */ + +24156 0 /* IBO Custom EditSQL */ +update FILES set BODY = 606/* BODY */ where ID = 10122/* ID */ + +24157 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10122/* BIND_0 */ + +24158 0 /* IBO Custom EditSQL */ +update FILES set BODY = 608/* BODY */ where ID = 10123/* ID */ + +24159 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10123/* BIND_0 */ + +24160 0 select first 10 ID, BODY, DATUM from FILES where ID > 10123/* LASTID */ +ORDER BY ID ASC + +24161 0 /* IBO Custom EditSQL */ +update FILES set BODY = 610/* BODY */ where ID = 10124/* ID */ + +24162 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10124/* BIND_0 */ + +24163 0 /* IBO Custom EditSQL */ +update FILES set BODY = 612/* BODY */ where ID = 10125/* ID */ + +24164 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10125/* BIND_0 */ + +24165 0 /* IBO Custom EditSQL */ +update FILES set BODY = 614/* BODY */ where ID = 10126/* ID */ + +24166 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10126/* BIND_0 */ + +24167 0 /* IBO Custom EditSQL */ +update FILES set BODY = 616/* BODY */ where ID = 10127/* ID */ + +24168 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10127/* BIND_0 */ + +24169 0 /* IBO Custom EditSQL */ +update FILES set BODY = 618/* BODY */ where ID = 10128/* ID */ + +24170 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10128/* BIND_0 */ + +24171 0 /* IBO Custom EditSQL */ +update FILES set BODY = 620/* BODY */ where ID = 10129/* ID */ + +24172 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10129/* BIND_0 */ + +24173 0 /* IBO Custom EditSQL */ +update FILES set BODY = 622/* BODY */ where ID = 10130/* ID */ + +24174 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10130/* BIND_0 */ + +24175 0 /* IBO Custom EditSQL */ +update FILES set BODY = 624/* BODY */ where ID = 10131/* ID */ + +24176 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10131/* BIND_0 */ + +24177 0 /* IBO Custom EditSQL */ +update FILES set BODY = 626/* BODY */ where ID = 10132/* ID */ + +24178 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10132/* BIND_0 */ + +24179 0 /* IBO Custom EditSQL */ +update FILES set BODY = 628/* BODY */ where ID = 10133/* ID */ + +24180 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10133/* BIND_0 */ + +24181 0 select first 10 ID, BODY, DATUM from FILES where ID > 10133/* LASTID */ +ORDER BY ID ASC + +24182 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24183 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201004' + +24184 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201004' + +24185 0 /* IBO Custom EditSQL */ +update FILES set BODY = 631/* BODY */ where ID = 10134/* ID */ + +24186 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10134/* BIND_0 */ + +24187 0 /* IBO Custom EditSQL */ +update FILES set BODY = 633/* BODY */ where ID = 10135/* ID */ + +24188 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10135/* BIND_0 */ + +24189 0 /* IBO Custom EditSQL */ +update FILES set BODY = 635/* BODY */ where ID = 10136/* ID */ + +24190 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10136/* BIND_0 */ + +24191 0 /* IBO Custom EditSQL */ +update FILES set BODY = 637/* BODY */ where ID = 10137/* ID */ + +24192 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10137/* BIND_0 */ + +24193 0 /* IBO Custom EditSQL */ +update FILES set BODY = 639/* BODY */ where ID = 10138/* ID */ + +24194 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10138/* BIND_0 */ + +24195 0 /* IBO Custom EditSQL */ +update FILES set BODY = 641/* BODY */ where ID = 10139/* ID */ + +24196 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10139/* BIND_0 */ + +24197 0 /* IBO Custom EditSQL */ +update FILES set BODY = 643/* BODY */ where ID = 10140/* ID */ + +24198 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10140/* BIND_0 */ + +24199 0 /* IBO Custom EditSQL */ +update FILES set BODY = 645/* BODY */ where ID = 10141/* ID */ + +24200 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10141/* BIND_0 */ + +24201 0 /* IBO Custom EditSQL */ +update FILES set BODY = 647/* BODY */ where ID = 10142/* ID */ + +24202 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10142/* BIND_0 */ + +24203 0 /* IBO Custom EditSQL */ +update FILES set BODY = 649/* BODY */ where ID = 10143/* ID */ + +24204 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10143/* BIND_0 */ + +24205 0 select first 10 ID, BODY, DATUM from FILES where ID > 10143/* LASTID */ +ORDER BY ID ASC + +24206 0 /* IBO Custom EditSQL */ +update FILES set BODY = 651/* BODY */ where ID = 10144/* ID */ + +24207 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10144/* BIND_0 */ + +24208 0 /* IBO Custom EditSQL */ +update FILES set BODY = 653/* BODY */ where ID = 10145/* ID */ + +24209 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10145/* BIND_0 */ + +24210 0 /* IBO Custom EditSQL */ +update FILES set BODY = 655/* BODY */ where ID = 10146/* ID */ + +24211 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10146/* BIND_0 */ + +24212 0 /* IBO Custom EditSQL */ +update FILES set BODY = 657/* BODY */ where ID = 10147/* ID */ + +24213 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10147/* BIND_0 */ + +24214 0 /* IBO Custom EditSQL */ +update FILES set BODY = 659/* BODY */ where ID = 10148/* ID */ + +24215 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10148/* BIND_0 */ + +24216 0 /* IBO Custom EditSQL */ +update FILES set BODY = 661/* BODY */ where ID = 10149/* ID */ + +24217 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10149/* BIND_0 */ + +24218 0 /* IBO Custom EditSQL */ +update FILES set BODY = 663/* BODY */ where ID = 10150/* ID */ + +24219 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10150/* BIND_0 */ + +24220 0 /* IBO Custom EditSQL */ +update FILES set BODY = 665/* BODY */ where ID = 10151/* ID */ + +24221 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10151/* BIND_0 */ + +24222 0 /* IBO Custom EditSQL */ +update FILES set BODY = 667/* BODY */ where ID = 10152/* ID */ + +24223 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10152/* BIND_0 */ + +24224 0 /* IBO Custom EditSQL */ +update FILES set BODY = 669/* BODY */ where ID = 10153/* ID */ + +24225 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10153/* BIND_0 */ + +24226 0 select first 10 ID, BODY, DATUM from FILES where ID > 10153/* LASTID */ +ORDER BY ID ASC + +24227 0 /* IBO Custom EditSQL */ +update FILES set BODY = 671/* BODY */ where ID = 10154/* ID */ + +24228 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10154/* BIND_0 */ + +24229 0 /* IBO Custom EditSQL */ +update FILES set BODY = 673/* BODY */ where ID = 10155/* ID */ + +24230 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10155/* BIND_0 */ + +24231 0 /* IBO Custom EditSQL */ +update FILES set BODY = 675/* BODY */ where ID = 10156/* ID */ + +24232 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10156/* BIND_0 */ + +24233 0 /* IBO Custom EditSQL */ +update FILES set BODY = 677/* BODY */ where ID = 10157/* ID */ + +24234 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10157/* BIND_0 */ + +24235 0 /* IBO Custom EditSQL */ +update FILES set BODY = 679/* BODY */ where ID = 10158/* ID */ + +24236 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10158/* BIND_0 */ + +24237 0 /* IBO Custom EditSQL */ +update FILES set BODY = 681/* BODY */ where ID = 10159/* ID */ + +24238 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10159/* BIND_0 */ + +24239 0 /* IBO Custom EditSQL */ +update FILES set BODY = 683/* BODY */ where ID = 10160/* ID */ + +24240 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10160/* BIND_0 */ + +24241 0 /* IBO Custom EditSQL */ +update FILES set BODY = 685/* BODY */ where ID = 10161/* ID */ + +24242 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10161/* BIND_0 */ + +24243 0 /* IBO Custom EditSQL */ +update FILES set BODY = 687/* BODY */ where ID = 10162/* ID */ + +24244 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10162/* BIND_0 */ + +24245 0 /* IBO Custom EditSQL */ +update FILES set BODY = 689/* BODY */ where ID = 10163/* ID */ + +24246 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10163/* BIND_0 */ + +24247 0 select first 10 ID, BODY, DATUM from FILES where ID > 10163/* LASTID */ +ORDER BY ID ASC + +24248 0 /* IBO Custom EditSQL */ +update FILES set BODY = 691/* BODY */ where ID = 10164/* ID */ + +24249 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10164/* BIND_0 */ + +24250 0 /* IBO Custom EditSQL */ +update FILES set BODY = 693/* BODY */ where ID = 10165/* ID */ + +24251 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10165/* BIND_0 */ + +24252 0 /* IBO Custom EditSQL */ +update FILES set BODY = 695/* BODY */ where ID = 10166/* ID */ + +24253 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10166/* BIND_0 */ + +24254 0 /* IBO Custom EditSQL */ +update FILES set BODY = 697/* BODY */ where ID = 10167/* ID */ + +24255 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10167/* BIND_0 */ + +24256 0 /* IBO Custom EditSQL */ +update FILES set BODY = 699/* BODY */ where ID = 10168/* ID */ + +24257 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10168/* BIND_0 */ + +24258 0 /* IBO Custom EditSQL */ +update FILES set BODY = 701/* BODY */ where ID = 10169/* ID */ + +24259 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10169/* BIND_0 */ + +24260 0 /* IBO Custom EditSQL */ +update FILES set BODY = 703/* BODY */ where ID = 10170/* ID */ + +24261 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10170/* BIND_0 */ + +24262 0 /* IBO Custom EditSQL */ +update FILES set BODY = 705/* BODY */ where ID = 10171/* ID */ + +24263 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10171/* BIND_0 */ + +24264 0 /* IBO Custom EditSQL */ +update FILES set BODY = 707/* BODY */ where ID = 10172/* ID */ + +24265 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10172/* BIND_0 */ + +24266 0 /* IBO Custom EditSQL */ +update FILES set BODY = 709/* BODY */ where ID = 10173/* ID */ + +24267 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10173/* BIND_0 */ + +24268 0 select first 10 ID, BODY, DATUM from FILES where ID > 10173/* LASTID */ +ORDER BY ID ASC + +24269 0 /* IBO Custom EditSQL */ +update FILES set BODY = 711/* BODY */ where ID = 10174/* ID */ + +24270 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10174/* BIND_0 */ + +24271 0 /* IBO Custom EditSQL */ +update FILES set BODY = 713/* BODY */ where ID = 10175/* ID */ + +24272 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10175/* BIND_0 */ + +24273 0 /* IBO Custom EditSQL */ +update FILES set BODY = 715/* BODY */ where ID = 10176/* ID */ + +24274 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10176/* BIND_0 */ + +24275 0 /* IBO Custom EditSQL */ +update FILES set BODY = 717/* BODY */ where ID = 10177/* ID */ + +24276 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10177/* BIND_0 */ + +24277 0 /* IBO Custom EditSQL */ +update FILES set BODY = 719/* BODY */ where ID = 10178/* ID */ + +24278 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10178/* BIND_0 */ + +24279 0 /* IBO Custom EditSQL */ +update FILES set BODY = 721/* BODY */ where ID = 10179/* ID */ + +24280 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10179/* BIND_0 */ + +24281 0 /* IBO Custom EditSQL */ +update FILES set BODY = 723/* BODY */ where ID = 10180/* ID */ + +24282 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10180/* BIND_0 */ + +24283 0 /* IBO Custom EditSQL */ +update FILES set BODY = 725/* BODY */ where ID = 10181/* ID */ + +24284 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10181/* BIND_0 */ + +24285 0 /* IBO Custom EditSQL */ +update FILES set BODY = 727/* BODY */ where ID = 10182/* ID */ + +24286 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10182/* BIND_0 */ + +24287 0 /* IBO Custom EditSQL */ +update FILES set BODY = 729/* BODY */ where ID = 10183/* ID */ + +24288 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10183/* BIND_0 */ + +24289 0 select first 10 ID, BODY, DATUM from FILES where ID > 10183/* LASTID */ +ORDER BY ID ASC + +24290 0 /* IBO Custom EditSQL */ +update FILES set BODY = 731/* BODY */ where ID = 10184/* ID */ + +24291 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10184/* BIND_0 */ + +24292 0 /* IBO Custom EditSQL */ +update FILES set BODY = 733/* BODY */ where ID = 10185/* ID */ + +24293 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10185/* BIND_0 */ + +24294 0 /* IBO Custom EditSQL */ +update FILES set BODY = 735/* BODY */ where ID = 10186/* ID */ + +24295 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10186/* BIND_0 */ + +24296 0 /* IBO Custom EditSQL */ +update FILES set BODY = 737/* BODY */ where ID = 10187/* ID */ + +24297 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10187/* BIND_0 */ + +24298 0 /* IBO Custom EditSQL */ +update FILES set BODY = 739/* BODY */ where ID = 10188/* ID */ + +24299 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10188/* BIND_0 */ + +24300 0 /* IBO Custom EditSQL */ +update FILES set BODY = 741/* BODY */ where ID = 10189/* ID */ + +24301 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10189/* BIND_0 */ + +24302 0 /* IBO Custom EditSQL */ +update FILES set BODY = 743/* BODY */ where ID = 10190/* ID */ + +24303 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10190/* BIND_0 */ + +24304 0 /* IBO Custom EditSQL */ +update FILES set BODY = 745/* BODY */ where ID = 10191/* ID */ + +24305 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10191/* BIND_0 */ + +24306 0 /* IBO Custom EditSQL */ +update FILES set BODY = 747/* BODY */ where ID = 10192/* ID */ + +24307 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10192/* BIND_0 */ + +24308 0 /* IBO Custom EditSQL */ +update FILES set BODY = 749/* BODY */ where ID = 10193/* ID */ + +24309 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10193/* BIND_0 */ + +24310 0 select first 10 ID, BODY, DATUM from FILES where ID > 10193/* LASTID */ +ORDER BY ID ASC + +24311 0 /* IBO Custom EditSQL */ +update FILES set BODY = 751/* BODY */ where ID = 10194/* ID */ + +24312 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10194/* BIND_0 */ + +24313 0 /* IBO Custom EditSQL */ +update FILES set BODY = 753/* BODY */ where ID = 10195/* ID */ + +24314 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10195/* BIND_0 */ + +24315 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24316 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201912' + +24317 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201912' + +24318 0 /* IBO Custom EditSQL */ +update FILES set BODY = 756/* BODY */ where ID = 10196/* ID */ + +24319 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10196/* BIND_0 */ + +24320 0 /* IBO Custom EditSQL */ +update FILES set BODY = 758/* BODY */ where ID = 10197/* ID */ + +24321 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10197/* BIND_0 */ + +24322 0 /* IBO Custom EditSQL */ +update FILES set BODY = 760/* BODY */ where ID = 10198/* ID */ + +24323 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10198/* BIND_0 */ + +24324 0 /* IBO Custom EditSQL */ +update FILES set BODY = 762/* BODY */ where ID = 10199/* ID */ + +24325 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10199/* BIND_0 */ + +24326 0 /* IBO Custom EditSQL */ +update FILES set BODY = 764/* BODY */ where ID = 10200/* ID */ + +24327 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10200/* BIND_0 */ + +24328 0 /* IBO Custom EditSQL */ +update FILES set BODY = 766/* BODY */ where ID = 10201/* ID */ + +24329 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10201/* BIND_0 */ + +24330 0 /* IBO Custom EditSQL */ +update FILES set BODY = 768/* BODY */ where ID = 10202/* ID */ + +24331 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10202/* BIND_0 */ + +24332 0 /* IBO Custom EditSQL */ +update FILES set BODY = 770/* BODY */ where ID = 10203/* ID */ + +24333 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10203/* BIND_0 */ + +24334 0 select first 10 ID, BODY, DATUM from FILES where ID > 10203/* LASTID */ +ORDER BY ID ASC + +24335 0 /* IBO Custom EditSQL */ +update FILES set BODY = 772/* BODY */ where ID = 10204/* ID */ + +24336 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10204/* BIND_0 */ + +24337 0 /* IBO Custom EditSQL */ +update FILES set BODY = 774/* BODY */ where ID = 10205/* ID */ + +24338 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10205/* BIND_0 */ + +24339 0 /* IBO Custom EditSQL */ +update FILES set BODY = 776/* BODY */ where ID = 10206/* ID */ + +24340 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10206/* BIND_0 */ + +24341 0 /* IBO Custom EditSQL */ +update FILES set BODY = 778/* BODY */ where ID = 10207/* ID */ + +24342 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10207/* BIND_0 */ + +24343 0 /* IBO Custom EditSQL */ +update FILES set BODY = 780/* BODY */ where ID = 10208/* ID */ + +24344 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10208/* BIND_0 */ + +24345 0 /* IBO Custom EditSQL */ +update FILES set BODY = 782/* BODY */ where ID = 10209/* ID */ + +24346 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10209/* BIND_0 */ + +24347 0 /* IBO Custom EditSQL */ +update FILES set BODY = 784/* BODY */ where ID = 10210/* ID */ + +24348 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10210/* BIND_0 */ + +24349 0 /* IBO Custom EditSQL */ +update FILES set BODY = 786/* BODY */ where ID = 10211/* ID */ + +24350 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10211/* BIND_0 */ + +24351 0 /* IBO Custom EditSQL */ +update FILES set BODY = 788/* BODY */ where ID = 10212/* ID */ + +24352 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10212/* BIND_0 */ + +24353 0 /* IBO Custom EditSQL */ +update FILES set BODY = 790/* BODY */ where ID = 10213/* ID */ + +24354 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10213/* BIND_0 */ + +24355 0 select first 10 ID, BODY, DATUM from FILES where ID > 10213/* LASTID */ +ORDER BY ID ASC + +24356 0 /* IBO Custom EditSQL */ +update FILES set BODY = 792/* BODY */ where ID = 10214/* ID */ + +24357 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10214/* BIND_0 */ + +24358 0 /* IBO Custom EditSQL */ +update FILES set BODY = 794/* BODY */ where ID = 10215/* ID */ + +24359 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10215/* BIND_0 */ + +24360 0 /* IBO Custom EditSQL */ +update FILES set BODY = 796/* BODY */ where ID = 10216/* ID */ + +24361 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10216/* BIND_0 */ + +24362 0 /* IBO Custom EditSQL */ +update FILES set BODY = 798/* BODY */ where ID = 10217/* ID */ + +24363 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10217/* BIND_0 */ + +24364 0 /* IBO Custom EditSQL */ +update FILES set BODY = 800/* BODY */ where ID = 10218/* ID */ + +24365 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10218/* BIND_0 */ + +24366 0 /* IBO Custom EditSQL */ +update FILES set BODY = 802/* BODY */ where ID = 10219/* ID */ + +24367 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10219/* BIND_0 */ + +24368 0 /* IBO Custom EditSQL */ +update FILES set BODY = 804/* BODY */ where ID = 10220/* ID */ + +24369 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10220/* BIND_0 */ + +24370 0 /* IBO Custom EditSQL */ +update FILES set BODY = 806/* BODY */ where ID = 10221/* ID */ + +24371 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10221/* BIND_0 */ + +24372 0 /* IBO Custom EditSQL */ +update FILES set BODY = 808/* BODY */ where ID = 10222/* ID */ + +24373 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10222/* BIND_0 */ + +24374 0 /* IBO Custom EditSQL */ +update FILES set BODY = 810/* BODY */ where ID = 10223/* ID */ + +24375 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10223/* BIND_0 */ + +24376 0 select first 10 ID, BODY, DATUM from FILES where ID > 10223/* LASTID */ +ORDER BY ID ASC + +24377 0 /* IBO Custom EditSQL */ +update FILES set BODY = 812/* BODY */ where ID = 10224/* ID */ + +24378 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10224/* BIND_0 */ + +24379 0 /* IBO Custom EditSQL */ +update FILES set BODY = 814/* BODY */ where ID = 10225/* ID */ + +24380 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10225/* BIND_0 */ + +24381 0 /* IBO Custom EditSQL */ +update FILES set BODY = 816/* BODY */ where ID = 10226/* ID */ + +24382 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10226/* BIND_0 */ + +24383 0 /* IBO Custom EditSQL */ +update FILES set BODY = 818/* BODY */ where ID = 10227/* ID */ + +24384 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10227/* BIND_0 */ + +24385 0 /* IBO Custom EditSQL */ +update FILES set BODY = 820/* BODY */ where ID = 10228/* ID */ + +24386 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10228/* BIND_0 */ + +24387 0 /* IBO Custom EditSQL */ +update FILES set BODY = 822/* BODY */ where ID = 10229/* ID */ + +24388 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10229/* BIND_0 */ + +24389 0 /* IBO Custom EditSQL */ +update FILES set BODY = 824/* BODY */ where ID = 10230/* ID */ + +24390 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10230/* BIND_0 */ + +24391 0 /* IBO Custom EditSQL */ +update FILES set BODY = 826/* BODY */ where ID = 10231/* ID */ + +24392 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10231/* BIND_0 */ + +24393 0 /* IBO Custom EditSQL */ +update FILES set BODY = 828/* BODY */ where ID = 10232/* ID */ + +24394 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10232/* BIND_0 */ + +24395 0 /* IBO Custom EditSQL */ +update FILES set BODY = 830/* BODY */ where ID = 10233/* ID */ + +24396 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10233/* BIND_0 */ + +24397 0 select first 10 ID, BODY, DATUM from FILES where ID > 10233/* LASTID */ +ORDER BY ID ASC + +24398 0 /* IBO Custom EditSQL */ +update FILES set BODY = 832/* BODY */ where ID = 10234/* ID */ + +24399 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10234/* BIND_0 */ + +24400 0 /* IBO Custom EditSQL */ +update FILES set BODY = 834/* BODY */ where ID = 10235/* ID */ + +24401 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10235/* BIND_0 */ + +24402 0 /* IBO Custom EditSQL */ +update FILES set BODY = 836/* BODY */ where ID = 10236/* ID */ + +24403 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10236/* BIND_0 */ + +24404 0 /* IBO Custom EditSQL */ +update FILES set BODY = 838/* BODY */ where ID = 10237/* ID */ + +24405 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10237/* BIND_0 */ + +24406 0 /* IBO Custom EditSQL */ +update FILES set BODY = 840/* BODY */ where ID = 10238/* ID */ + +24407 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10238/* BIND_0 */ + +24408 0 /* IBO Custom EditSQL */ +update FILES set BODY = 842/* BODY */ where ID = 10239/* ID */ + +24409 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10239/* BIND_0 */ + +24410 0 /* IBO Custom EditSQL */ +update FILES set BODY = 844/* BODY */ where ID = 10240/* ID */ + +24411 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10240/* BIND_0 */ + +24412 0 /* IBO Custom EditSQL */ +update FILES set BODY = 846/* BODY */ where ID = 10241/* ID */ + +24413 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10241/* BIND_0 */ + +24414 0 /* IBO Custom EditSQL */ +update FILES set BODY = 848/* BODY */ where ID = 10242/* ID */ + +24415 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10242/* BIND_0 */ + +24416 0 /* IBO Custom EditSQL */ +update FILES set BODY = 850/* BODY */ where ID = 10243/* ID */ + +24417 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10243/* BIND_0 */ + +24418 0 select first 10 ID, BODY, DATUM from FILES where ID > 10243/* LASTID */ +ORDER BY ID ASC + +24419 0 /* IBO Custom EditSQL */ +update FILES set BODY = 852/* BODY */ where ID = 10244/* ID */ + +24420 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10244/* BIND_0 */ + +24421 0 /* IBO Custom EditSQL */ +update FILES set BODY = 854/* BODY */ where ID = 10245/* ID */ + +24422 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10245/* BIND_0 */ + +24423 0 /* IBO Custom EditSQL */ +update FILES set BODY = 856/* BODY */ where ID = 10246/* ID */ + +24424 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10246/* BIND_0 */ + +24425 0 /* IBO Custom EditSQL */ +update FILES set BODY = 858/* BODY */ where ID = 10247/* ID */ + +24426 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10247/* BIND_0 */ + +24427 0 /* IBO Custom EditSQL */ +update FILES set BODY = 860/* BODY */ where ID = 10248/* ID */ + +24428 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10248/* BIND_0 */ + +24429 0 /* IBO Custom EditSQL */ +update FILES set BODY = 862/* BODY */ where ID = 10249/* ID */ + +24430 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10249/* BIND_0 */ + +24431 0 /* IBO Custom EditSQL */ +update FILES set BODY = 864/* BODY */ where ID = 10250/* ID */ + +24432 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10250/* BIND_0 */ + +24433 0 /* IBO Custom EditSQL */ +update FILES set BODY = 866/* BODY */ where ID = 10251/* ID */ + +24434 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10251/* BIND_0 */ + +24435 0 /* IBO Custom EditSQL */ +update FILES set BODY = 868/* BODY */ where ID = 10252/* ID */ + +24436 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10252/* BIND_0 */ + +24437 0 /* IBO Custom EditSQL */ +update FILES set BODY = 870/* BODY */ where ID = 10253/* ID */ + +24438 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10253/* BIND_0 */ + +24439 0 select first 10 ID, BODY, DATUM from FILES where ID > 10253/* LASTID */ +ORDER BY ID ASC + +24440 0 /* IBO Custom EditSQL */ +update FILES set BODY = 872/* BODY */ where ID = 10254/* ID */ + +24441 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10254/* BIND_0 */ + +24442 0 /* IBO Custom EditSQL */ +update FILES set BODY = 874/* BODY */ where ID = 10255/* ID */ + +24443 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10255/* BIND_0 */ + +24444 0 /* IBO Custom EditSQL */ +update FILES set BODY = 876/* BODY */ where ID = 10256/* ID */ + +24445 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10256/* BIND_0 */ + +24446 0 /* IBO Custom EditSQL */ +update FILES set BODY = 878/* BODY */ where ID = 10257/* ID */ + +24447 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10257/* BIND_0 */ + +24448 0 /* IBO Custom EditSQL */ +update FILES set BODY = 880/* BODY */ where ID = 10258/* ID */ + +24449 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10258/* BIND_0 */ + +24450 0 /* IBO Custom EditSQL */ +update FILES set BODY = 882/* BODY */ where ID = 10259/* ID */ + +24451 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10259/* BIND_0 */ + +24452 0 /* IBO Custom EditSQL */ +update FILES set BODY = 884/* BODY */ where ID = 10260/* ID */ + +24453 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10260/* BIND_0 */ + +24454 0 /* IBO Custom EditSQL */ +update FILES set BODY = 886/* BODY */ where ID = 10261/* ID */ + +24455 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10261/* BIND_0 */ + +24456 0 /* IBO Custom EditSQL */ +update FILES set BODY = 888/* BODY */ where ID = 10262/* ID */ + +24457 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10262/* BIND_0 */ + +24458 0 /* IBO Custom EditSQL */ +update FILES set BODY = 890/* BODY */ where ID = 10263/* ID */ + +24459 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10263/* BIND_0 */ + +24460 0 select first 10 ID, BODY, DATUM from FILES where ID > 10263/* LASTID */ +ORDER BY ID ASC + +24461 0 /* IBO Custom EditSQL */ +update FILES set BODY = 892/* BODY */ where ID = 10264/* ID */ + +24462 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10264/* BIND_0 */ + +24463 0 /* IBO Custom EditSQL */ +update FILES set BODY = 894/* BODY */ where ID = 10265/* ID */ + +24464 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10265/* BIND_0 */ + +24465 0 /* IBO Custom EditSQL */ +update FILES set BODY = 896/* BODY */ where ID = 10266/* ID */ + +24466 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10266/* BIND_0 */ + +24467 0 /* IBO Custom EditSQL */ +update FILES set BODY = 898/* BODY */ where ID = 10267/* ID */ + +24468 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10267/* BIND_0 */ + +24469 0 /* IBO Custom EditSQL */ +update FILES set BODY = 900/* BODY */ where ID = 10268/* ID */ + +24470 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10268/* BIND_0 */ + +24471 0 /* IBO Custom EditSQL */ +update FILES set BODY = 902/* BODY */ where ID = 10269/* ID */ + +24472 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10269/* BIND_0 */ + +24473 0 /* IBO Custom EditSQL */ +update FILES set BODY = 904/* BODY */ where ID = 10270/* ID */ + +24474 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10270/* BIND_0 */ + +24475 0 /* IBO Custom EditSQL */ +update FILES set BODY = 906/* BODY */ where ID = 10271/* ID */ + +24476 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10271/* BIND_0 */ + +24477 0 /* IBO Custom EditSQL */ +update FILES set BODY = 908/* BODY */ where ID = 10272/* ID */ + +24478 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10272/* BIND_0 */ + +24479 0 /* IBO Custom EditSQL */ +update FILES set BODY = 910/* BODY */ where ID = 10273/* ID */ + +24480 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10273/* BIND_0 */ + +24481 0 select first 10 ID, BODY, DATUM from FILES where ID > 10273/* LASTID */ +ORDER BY ID ASC + +24482 0 /* IBO Custom EditSQL */ +update FILES set BODY = 912/* BODY */ where ID = 10274/* ID */ + +24483 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10274/* BIND_0 */ + +24484 0 /* IBO Custom EditSQL */ +update FILES set BODY = 914/* BODY */ where ID = 10275/* ID */ + +24485 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10275/* BIND_0 */ + +24486 0 /* IBO Custom EditSQL */ +update FILES set BODY = 916/* BODY */ where ID = 10276/* ID */ + +24487 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10276/* BIND_0 */ + +24488 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24489 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202212' + +24490 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202212' + +24491 0 /* IBO Custom EditSQL */ +update FILES set BODY = 919/* BODY */ where ID = 10277/* ID */ + +24492 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10277/* BIND_0 */ + +24493 0 /* IBO Custom EditSQL */ +update FILES set BODY = 921/* BODY */ where ID = 10278/* ID */ + +24494 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10278/* BIND_0 */ + +24495 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24496 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202406' + +24497 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202406' + +24498 0 /* IBO Custom EditSQL */ +update FILES set BODY = 924/* BODY */ where ID = 10279/* ID */ + +24499 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10279/* BIND_0 */ + +24500 0 /* IBO Custom EditSQL */ +update FILES set BODY = 926/* BODY */ where ID = 10280/* ID */ + +24501 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10280/* BIND_0 */ + +24502 0 /* IBO Custom EditSQL */ +update FILES set BODY = 928/* BODY */ where ID = 10281/* ID */ + +24503 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10281/* BIND_0 */ + +24504 0 /* IBO Custom EditSQL */ +update FILES set BODY = 930/* BODY */ where ID = 10282/* ID */ + +24505 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10282/* BIND_0 */ + +24506 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24507 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201306' + +24508 0 select count(*) from EXTERNI_DB where DBNAME like 'DB%' + +24509 0 select first 1 SERVER, PATH, HESLO from EXTERNI_DB where DBNAME like 'DB%' +ORDER BY DBNAME DESC + +24510 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB201306' + +24511 0 insert into EXTERNI_DB (DBNAME, SERVER, PATH, HESLO) values ('DB201306'/* DBNAME */, 'localhost/3053'/* SERVER */, 'u:\MEDICUS_FILES_201306.fdb'/* PATH */, 'leEhKkSqXPMlTYu3ShpbQA=='/* HESLO */) + +24512 0 /* IBO Custom EditSQL */ +update FILES set BODY = 933/* BODY */ where ID = 10283/* ID */ + +24513 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10283/* BIND_0 */ + +24514 0 select first 10 ID, BODY, DATUM from FILES where ID > 10283/* LASTID */ +ORDER BY ID ASC + +24515 0 /* IBO Custom EditSQL */ +update FILES set BODY = 935/* BODY */ where ID = 10284/* ID */ + +24516 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10284/* BIND_0 */ + +24517 0 /* IBO Custom EditSQL */ +update FILES set BODY = 937/* BODY */ where ID = 10285/* ID */ + +24518 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10285/* BIND_0 */ + +24519 0 /* IBO Custom EditSQL */ +update FILES set BODY = 939/* BODY */ where ID = 10286/* ID */ + +24520 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10286/* BIND_0 */ + +24521 0 /* IBO Custom EditSQL */ +update FILES set BODY = 941/* BODY */ where ID = 10287/* ID */ + +24522 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10287/* BIND_0 */ + +24523 0 /* IBO Custom EditSQL */ +update FILES set BODY = 943/* BODY */ where ID = 10288/* ID */ + +24524 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10288/* BIND_0 */ + +24525 0 /* IBO Custom EditSQL */ +update FILES set BODY = 945/* BODY */ where ID = 10289/* ID */ + +24526 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10289/* BIND_0 */ + +24527 0 /* IBO Custom EditSQL */ +update FILES set BODY = 947/* BODY */ where ID = 10290/* ID */ + +24528 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10290/* BIND_0 */ + +24529 0 /* IBO Custom EditSQL */ +update FILES set BODY = 949/* BODY */ where ID = 10291/* ID */ + +24530 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10291/* BIND_0 */ + +24531 0 /* IBO Custom EditSQL */ +update FILES set BODY = 951/* BODY */ where ID = 10292/* ID */ + +24532 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10292/* BIND_0 */ + +24533 0 /* IBO Custom EditSQL */ +update FILES set BODY = 953/* BODY */ where ID = 10293/* ID */ + +24534 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10293/* BIND_0 */ + +24535 0 select first 10 ID, BODY, DATUM from FILES where ID > 10293/* LASTID */ +ORDER BY ID ASC + +24536 0 /* IBO Custom EditSQL */ +update FILES set BODY = 955/* BODY */ where ID = 10294/* ID */ + +24537 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10294/* BIND_0 */ + +24538 0 /* IBO Custom EditSQL */ +update FILES set BODY = 957/* BODY */ where ID = 10295/* ID */ + +24539 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10295/* BIND_0 */ + +24540 0 /* IBO Custom EditSQL */ +update FILES set BODY = 959/* BODY */ where ID = 10296/* ID */ + +24541 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10296/* BIND_0 */ + +24542 0 /* IBO Custom EditSQL */ +update FILES set BODY = 961/* BODY */ where ID = 10297/* ID */ + +24543 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10297/* BIND_0 */ + +24544 0 /* IBO Custom EditSQL */ +update FILES set BODY = 963/* BODY */ where ID = 10298/* ID */ + +24545 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10298/* BIND_0 */ + +24546 0 SELECT OBSAH FROM OPTIONS WHERE CATEGORY = 'Global' AND NAME = 'Sysuz' + +24547 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202112' + +24548 0 select SERVER, PATH, HESLO from EXTERNI_DB where DBNAME = 'DB202112' + +24549 0 /* IBO Custom EditSQL */ +update FILES set BODY = 966/* BODY */ where ID = 10299/* ID */ + +24550 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10299/* BIND_0 */ + +24551 0 /* IBO Custom EditSQL */ +update FILES set BODY = 968/* BODY */ where ID = 10300/* ID */ + +24552 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10300/* BIND_0 */ + +24553 0 /* IBO Custom EditSQL */ +update FILES set BODY = 970/* BODY */ where ID = 10301/* ID */ + +24554 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10301/* BIND_0 */ + +24555 0 /* IBO Custom EditSQL */ +update FILES set BODY = 972/* BODY */ where ID = 10302/* ID */ + +24556 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10302/* BIND_0 */ + +24557 0 /* IBO Custom EditSQL */ +update FILES set BODY = 974/* BODY */ where ID = 10303/* ID */ + +24558 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10303/* BIND_0 */ + +24559 0 select first 10 ID, BODY, DATUM from FILES where ID > 10303/* LASTID */ +ORDER BY ID ASC + +24560 0 /* IBO Custom EditSQL */ +update FILES set BODY = 976/* BODY */ where ID = 10304/* ID */ + +24561 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10304/* BIND_0 */ + +24562 0 /* IBO Custom EditSQL */ +update FILES set BODY = 978/* BODY */ where ID = 10305/* ID */ + +24563 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10305/* BIND_0 */ + +24564 0 /* IBO Custom EditSQL */ +update FILES set BODY = 980/* BODY */ where ID = 10306/* ID */ + +24565 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10306/* BIND_0 */ + +24566 0 /* IBO Custom EditSQL */ +update FILES set BODY = 982/* BODY */ where ID = 10307/* ID */ + +24567 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10307/* BIND_0 */ + +24568 0 /* IBO Custom EditSQL */ +update FILES set BODY = 984/* BODY */ where ID = 10308/* ID */ + +24569 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10308/* BIND_0 */ + +24570 0 /* IBO Custom EditSQL */ +update FILES set BODY = 986/* BODY */ where ID = 10309/* ID */ + +24571 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10309/* BIND_0 */ + +24572 0 /* IBO Custom EditSQL */ +update FILES set BODY = 988/* BODY */ where ID = 10310/* ID */ + +24573 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10310/* BIND_0 */ + +24574 0 /* IBO Custom EditSQL */ +update FILES set BODY = 990/* BODY */ where ID = 10311/* ID */ + +24575 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10311/* BIND_0 */ + +24576 0 /* IBO Custom EditSQL */ +update FILES set BODY = 992/* BODY */ where ID = 10312/* ID */ + +24577 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10312/* BIND_0 */ + +24578 0 /* IBO Custom EditSQL */ +update FILES set BODY = 994/* BODY */ where ID = 10313/* ID */ + +24579 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10313/* BIND_0 */ + +24580 0 select first 10 ID, BODY, DATUM from FILES where ID > 10313/* LASTID */ +ORDER BY ID ASC + +24581 0 /* IBO Custom EditSQL */ +update FILES set BODY = 996/* BODY */ where ID = 10314/* ID */ + +24582 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10314/* BIND_0 */ + +24583 0 /* IBO Custom EditSQL */ +update FILES set BODY = 998/* BODY */ where ID = 10315/* ID */ + +24584 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10315/* BIND_0 */ + +24585 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1000/* BODY */ where ID = 10316/* ID */ + +24586 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10316/* BIND_0 */ + +24587 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1002/* BODY */ where ID = 10317/* ID */ + +24588 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10317/* BIND_0 */ + +24589 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1004/* BODY */ where ID = 10318/* ID */ + +24590 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10318/* BIND_0 */ + +24591 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1006/* BODY */ where ID = 10319/* ID */ + +24592 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10319/* BIND_0 */ + +24593 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1008/* BODY */ where ID = 10320/* ID */ + +24594 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10320/* BIND_0 */ + +24595 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1010/* BODY */ where ID = 10321/* ID */ + +24596 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10321/* BIND_0 */ + +24597 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1012/* BODY */ where ID = 10322/* ID */ + +24598 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10322/* BIND_0 */ + +24599 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1014/* BODY */ where ID = 10323/* ID */ + +24600 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10323/* BIND_0 */ + +24601 0 select first 10 ID, BODY, DATUM from FILES where ID > 10323/* LASTID */ +ORDER BY ID ASC + +24602 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1016/* BODY */ where ID = 10324/* ID */ + +24603 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10324/* BIND_0 */ + +24604 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1018/* BODY */ where ID = 10325/* ID */ + +24605 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10325/* BIND_0 */ + +24606 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1020/* BODY */ where ID = 10326/* ID */ + +24607 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10326/* BIND_0 */ + +24608 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1022/* BODY */ where ID = 10327/* ID */ + +24609 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10327/* BIND_0 */ + +24610 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1024/* BODY */ where ID = 10328/* ID */ + +24611 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10328/* BIND_0 */ + +24612 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1026/* BODY */ where ID = 10329/* ID */ + +24613 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10329/* BIND_0 */ + +24614 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1028/* BODY */ where ID = 10330/* ID */ + +24615 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10330/* BIND_0 */ + +24616 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1030/* BODY */ where ID = 10331/* ID */ + +24617 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10331/* BIND_0 */ + +24618 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1032/* BODY */ where ID = 10332/* ID */ + +24619 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10332/* BIND_0 */ + +24620 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1034/* BODY */ where ID = 10333/* ID */ + +24621 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10333/* BIND_0 */ + +24622 0 select first 10 ID, BODY, DATUM from FILES where ID > 10333/* LASTID */ +ORDER BY ID ASC + +24623 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1036/* BODY */ where ID = 10334/* ID */ + +24624 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10334/* BIND_0 */ + +24625 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1038/* BODY */ where ID = 10335/* ID */ + +24626 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10335/* BIND_0 */ + +24627 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1040/* BODY */ where ID = 10336/* ID */ + +24628 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10336/* BIND_0 */ + +24629 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1042/* BODY */ where ID = 10337/* ID */ + +24630 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10337/* BIND_0 */ + +24631 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1044/* BODY */ where ID = 10338/* ID */ + +24632 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10338/* BIND_0 */ + +24633 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1046/* BODY */ where ID = 10339/* ID */ + +24634 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10339/* BIND_0 */ + +24635 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1048/* BODY */ where ID = 10340/* ID */ + +24636 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10340/* BIND_0 */ + +24637 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1050/* BODY */ where ID = 10341/* ID */ + +24638 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10341/* BIND_0 */ + +24639 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1052/* BODY */ where ID = 10342/* ID */ + +24640 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10342/* BIND_0 */ + +24641 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1054/* BODY */ where ID = 10343/* ID */ + +24642 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10343/* BIND_0 */ + +24643 0 select first 10 ID, BODY, DATUM from FILES where ID > 10343/* LASTID */ +ORDER BY ID ASC + +24644 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1056/* BODY */ where ID = 10344/* ID */ + +24645 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10344/* BIND_0 */ + +24646 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1058/* BODY */ where ID = 10345/* ID */ + +24647 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10345/* BIND_0 */ + +24648 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1060/* BODY */ where ID = 10346/* ID */ + +24649 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10346/* BIND_0 */ + +24650 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1062/* BODY */ where ID = 10347/* ID */ + +24651 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10347/* BIND_0 */ + +24652 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1064/* BODY */ where ID = 10348/* ID */ + +24653 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10348/* BIND_0 */ + +24654 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1066/* BODY */ where ID = 10349/* ID */ + +24655 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10349/* BIND_0 */ + +24656 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1068/* BODY */ where ID = 10350/* ID */ + +24657 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10350/* BIND_0 */ + +24658 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1070/* BODY */ where ID = 10351/* ID */ + +24659 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10351/* BIND_0 */ + +24660 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1072/* BODY */ where ID = 10352/* ID */ + +24661 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10352/* BIND_0 */ + +24662 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1074/* BODY */ where ID = 10353/* ID */ + +24663 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10353/* BIND_0 */ + +24664 0 select first 10 ID, BODY, DATUM from FILES where ID > 10353/* LASTID */ +ORDER BY ID ASC + +24665 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1076/* BODY */ where ID = 10354/* ID */ + +24666 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10354/* BIND_0 */ + +24667 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1078/* BODY */ where ID = 10355/* ID */ + +24668 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10355/* BIND_0 */ + +24669 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1080/* BODY */ where ID = 10356/* ID */ + +24670 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10356/* BIND_0 */ + +24671 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1082/* BODY */ where ID = 10357/* ID */ + +24672 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10357/* BIND_0 */ + +24673 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1084/* BODY */ where ID = 10358/* ID */ + +24674 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10358/* BIND_0 */ + +24675 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1086/* BODY */ where ID = 10359/* ID */ + +24676 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10359/* BIND_0 */ + +24677 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1088/* BODY */ where ID = 10360/* ID */ + +24678 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10360/* BIND_0 */ + +24679 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1090/* BODY */ where ID = 10361/* ID */ + +24680 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10361/* BIND_0 */ + +24681 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1092/* BODY */ where ID = 10362/* ID */ + +24682 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10362/* BIND_0 */ + +24683 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1094/* BODY */ where ID = 10363/* ID */ + +24684 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10363/* BIND_0 */ + +24685 0 select first 10 ID, BODY, DATUM from FILES where ID > 10363/* LASTID */ +ORDER BY ID ASC + +24686 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1096/* BODY */ where ID = 10364/* ID */ + +24687 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10364/* BIND_0 */ + +24688 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1098/* BODY */ where ID = 10365/* ID */ + +24689 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10365/* BIND_0 */ + +24690 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1100/* BODY */ where ID = 10366/* ID */ + +24691 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10366/* BIND_0 */ + +24692 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1102/* BODY */ where ID = 10367/* ID */ + +24693 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10367/* BIND_0 */ + +24694 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1104/* BODY */ where ID = 10368/* ID */ + +24695 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10368/* BIND_0 */ + +24696 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1106/* BODY */ where ID = 10369/* ID */ + +24697 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10369/* BIND_0 */ + +24698 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1108/* BODY */ where ID = 10370/* ID */ + +24699 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10370/* BIND_0 */ + +24700 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1110/* BODY */ where ID = 10371/* ID */ + +24701 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10371/* BIND_0 */ + +24702 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1112/* BODY */ where ID = 10372/* ID */ + +24703 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10372/* BIND_0 */ + +24704 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1114/* BODY */ where ID = 10373/* ID */ + +24705 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10373/* BIND_0 */ + +24706 0 select first 10 ID, BODY, DATUM from FILES where ID > 10373/* LASTID */ +ORDER BY ID ASC + +24707 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1116/* BODY */ where ID = 10374/* ID */ + +24708 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10374/* BIND_0 */ + +24709 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1118/* BODY */ where ID = 10375/* ID */ + +24710 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10375/* BIND_0 */ + +24711 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1120/* BODY */ where ID = 10376/* ID */ + +24712 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10376/* BIND_0 */ + +24713 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1122/* BODY */ where ID = 10377/* ID */ + +24714 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10377/* BIND_0 */ + +24715 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1124/* BODY */ where ID = 10378/* ID */ + +24716 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10378/* BIND_0 */ + +24717 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1126/* BODY */ where ID = 10379/* ID */ + +24718 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10379/* BIND_0 */ + +24719 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1128/* BODY */ where ID = 10380/* ID */ + +24720 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10380/* BIND_0 */ + +24721 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1130/* BODY */ where ID = 10381/* ID */ + +24722 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10381/* BIND_0 */ + +24723 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1132/* BODY */ where ID = 10382/* ID */ + +24724 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10382/* BIND_0 */ + +24725 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1134/* BODY */ where ID = 10383/* ID */ + +24726 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10383/* BIND_0 */ + +24727 0 select first 10 ID, BODY, DATUM from FILES where ID > 10383/* LASTID */ +ORDER BY ID ASC + +24728 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1136/* BODY */ where ID = 10384/* ID */ + +24729 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10384/* BIND_0 */ + +24730 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1138/* BODY */ where ID = 10385/* ID */ + +24731 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10385/* BIND_0 */ + +24732 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1140/* BODY */ where ID = 10386/* ID */ + +24733 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10386/* BIND_0 */ + +24734 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1142/* BODY */ where ID = 10387/* ID */ + +24735 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10387/* BIND_0 */ + +24736 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1144/* BODY */ where ID = 10388/* ID */ + +24737 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10388/* BIND_0 */ + +24738 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1146/* BODY */ where ID = 10389/* ID */ + +24739 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10389/* BIND_0 */ + +24740 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1148/* BODY */ where ID = 10390/* ID */ + +24741 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10390/* BIND_0 */ + +24742 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1150/* BODY */ where ID = 10391/* ID */ + +24743 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10391/* BIND_0 */ + +24744 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1152/* BODY */ where ID = 10392/* ID */ + +24745 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10392/* BIND_0 */ + +24746 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1154/* BODY */ where ID = 10393/* ID */ + +24747 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10393/* BIND_0 */ + +24748 0 select first 10 ID, BODY, DATUM from FILES where ID > 10393/* LASTID */ +ORDER BY ID ASC + +24749 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1156/* BODY */ where ID = 10394/* ID */ + +24750 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10394/* BIND_0 */ + +24751 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1158/* BODY */ where ID = 10395/* ID */ + +24752 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10395/* BIND_0 */ + +24753 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1160/* BODY */ where ID = 10396/* ID */ + +24754 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10396/* BIND_0 */ + +24755 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1162/* BODY */ where ID = 10397/* ID */ + +24756 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10397/* BIND_0 */ + +24757 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1164/* BODY */ where ID = 10398/* ID */ + +24758 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10398/* BIND_0 */ + +24759 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1166/* BODY */ where ID = 10399/* ID */ + +24760 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10399/* BIND_0 */ + +24761 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1168/* BODY */ where ID = 10400/* ID */ + +24762 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10400/* BIND_0 */ + +24763 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1170/* BODY */ where ID = 10401/* ID */ + +24764 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10401/* BIND_0 */ + +24765 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1172/* BODY */ where ID = 10402/* ID */ + +24766 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10402/* BIND_0 */ + +24767 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1174/* BODY */ where ID = 10403/* ID */ + +24768 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10403/* BIND_0 */ + +24769 0 select first 10 ID, BODY, DATUM from FILES where ID > 10403/* LASTID */ +ORDER BY ID ASC + +24770 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1176/* BODY */ where ID = 10404/* ID */ + +24771 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10404/* BIND_0 */ + +24772 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1178/* BODY */ where ID = 10405/* ID */ + +24773 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10405/* BIND_0 */ + +24774 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1180/* BODY */ where ID = 10406/* ID */ + +24775 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10406/* BIND_0 */ + +24776 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1182/* BODY */ where ID = 10407/* ID */ + +24777 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10407/* BIND_0 */ + +24778 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1184/* BODY */ where ID = 10408/* ID */ + +24779 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10408/* BIND_0 */ + +24780 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1186/* BODY */ where ID = 10409/* ID */ + +24781 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10409/* BIND_0 */ + +24782 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1188/* BODY */ where ID = 10410/* ID */ + +24783 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10410/* BIND_0 */ + +24784 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1190/* BODY */ where ID = 10411/* ID */ + +24785 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10411/* BIND_0 */ + +24786 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1192/* BODY */ where ID = 10412/* ID */ + +24787 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10412/* BIND_0 */ + +24788 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1194/* BODY */ where ID = 10413/* ID */ + +24789 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10413/* BIND_0 */ + +24790 0 select first 10 ID, BODY, DATUM from FILES where ID > 10413/* LASTID */ +ORDER BY ID ASC + +24791 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1196/* BODY */ where ID = 10414/* ID */ + +24792 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10414/* BIND_0 */ + +24793 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1198/* BODY */ where ID = 10415/* ID */ + +24794 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10415/* BIND_0 */ + +24795 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1200/* BODY */ where ID = 10416/* ID */ + +24796 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10416/* BIND_0 */ + +24797 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1202/* BODY */ where ID = 10417/* ID */ + +24798 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10417/* BIND_0 */ + +24799 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1204/* BODY */ where ID = 10418/* ID */ + +24800 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10418/* BIND_0 */ + +24801 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1206/* BODY */ where ID = 10419/* ID */ + +24802 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10419/* BIND_0 */ + +24803 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1208/* BODY */ where ID = 10420/* ID */ + +24804 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10420/* BIND_0 */ + +24805 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1210/* BODY */ where ID = 10421/* ID */ + +24806 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10421/* BIND_0 */ + +24807 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1212/* BODY */ where ID = 10422/* ID */ + +24808 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10422/* BIND_0 */ + +24809 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1214/* BODY */ where ID = 10423/* ID */ + +24810 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10423/* BIND_0 */ + +24811 0 select first 10 ID, BODY, DATUM from FILES where ID > 10423/* LASTID */ +ORDER BY ID ASC + +24812 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1216/* BODY */ where ID = 10424/* ID */ + +24813 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10424/* BIND_0 */ + +24814 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1218/* BODY */ where ID = 10425/* ID */ + +24815 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10425/* BIND_0 */ + +24816 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1220/* BODY */ where ID = 10426/* ID */ + +24817 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10426/* BIND_0 */ + +24818 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1222/* BODY */ where ID = 10427/* ID */ + +24819 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10427/* BIND_0 */ + +24820 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1224/* BODY */ where ID = 10428/* ID */ + +24821 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10428/* BIND_0 */ + +24822 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1226/* BODY */ where ID = 10429/* ID */ + +24823 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10429/* BIND_0 */ + +24824 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1228/* BODY */ where ID = 10430/* ID */ + +24825 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10430/* BIND_0 */ + +24826 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1230/* BODY */ where ID = 10431/* ID */ + +24827 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10431/* BIND_0 */ + +24828 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1232/* BODY */ where ID = 10432/* ID */ + +24829 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10432/* BIND_0 */ + +24830 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1234/* BODY */ where ID = 10433/* ID */ + +24831 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10433/* BIND_0 */ + +24832 0 select first 10 ID, BODY, DATUM from FILES where ID > 10433/* LASTID */ +ORDER BY ID ASC + +24833 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1236/* BODY */ where ID = 10434/* ID */ + +24834 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10434/* BIND_0 */ + +24835 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1238/* BODY */ where ID = 10435/* ID */ + +24836 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10435/* BIND_0 */ + +24837 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1240/* BODY */ where ID = 10436/* ID */ + +24838 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10436/* BIND_0 */ + +24839 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1242/* BODY */ where ID = 10437/* ID */ + +24840 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10437/* BIND_0 */ + +24841 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1244/* BODY */ where ID = 10438/* ID */ + +24842 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10438/* BIND_0 */ + +24843 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1246/* BODY */ where ID = 10439/* ID */ + +24844 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10439/* BIND_0 */ + +24845 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1248/* BODY */ where ID = 10440/* ID */ + +24846 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10440/* BIND_0 */ + +24847 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1250/* BODY */ where ID = 10441/* ID */ + +24848 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10441/* BIND_0 */ + +24849 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1252/* BODY */ where ID = 10442/* ID */ + +24850 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10442/* BIND_0 */ + +24851 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1254/* BODY */ where ID = 10443/* ID */ + +24852 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10443/* BIND_0 */ + +24853 0 select first 10 ID, BODY, DATUM from FILES where ID > 10443/* LASTID */ +ORDER BY ID ASC + +24854 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1256/* BODY */ where ID = 10444/* ID */ + +24855 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10444/* BIND_0 */ + +24856 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1258/* BODY */ where ID = 10445/* ID */ + +24857 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10445/* BIND_0 */ + +24858 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1260/* BODY */ where ID = 10446/* ID */ + +24859 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10446/* BIND_0 */ + +24860 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1262/* BODY */ where ID = 10447/* ID */ + +24861 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10447/* BIND_0 */ + +24862 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1264/* BODY */ where ID = 10448/* ID */ + +24863 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10448/* BIND_0 */ + +24864 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1266/* BODY */ where ID = 10449/* ID */ + +24865 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10449/* BIND_0 */ + +24866 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1268/* BODY */ where ID = 10450/* ID */ + +24867 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10450/* BIND_0 */ + +24868 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1270/* BODY */ where ID = 10451/* ID */ + +24869 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10451/* BIND_0 */ + +24870 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1272/* BODY */ where ID = 10452/* ID */ + +24871 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10452/* BIND_0 */ + +24872 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1274/* BODY */ where ID = 10453/* ID */ + +24873 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10453/* BIND_0 */ + +24874 0 select first 10 ID, BODY, DATUM from FILES where ID > 10453/* LASTID */ +ORDER BY ID ASC + +24875 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1276/* BODY */ where ID = 10454/* ID */ + +24876 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10454/* BIND_0 */ + +24877 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1278/* BODY */ where ID = 10455/* ID */ + +24878 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10455/* BIND_0 */ + +24879 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1280/* BODY */ where ID = 10456/* ID */ + +24880 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10456/* BIND_0 */ + +24881 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1282/* BODY */ where ID = 10457/* ID */ + +24882 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10457/* BIND_0 */ + +24883 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1284/* BODY */ where ID = 10458/* ID */ + +24884 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10458/* BIND_0 */ + +24885 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1286/* BODY */ where ID = 10459/* ID */ + +24886 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10459/* BIND_0 */ + +24887 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1288/* BODY */ where ID = 10460/* ID */ + +24888 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10460/* BIND_0 */ + +24889 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1290/* BODY */ where ID = 10461/* ID */ + +24890 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10461/* BIND_0 */ + +24891 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1292/* BODY */ where ID = 10462/* ID */ + +24892 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10462/* BIND_0 */ + +24893 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1294/* BODY */ where ID = 10463/* ID */ + +24894 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10463/* BIND_0 */ + +24895 0 select first 10 ID, BODY, DATUM from FILES where ID > 10463/* LASTID */ +ORDER BY ID ASC + +24896 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1296/* BODY */ where ID = 10464/* ID */ + +24897 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10464/* BIND_0 */ + +24898 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1298/* BODY */ where ID = 10465/* ID */ + +24899 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10465/* BIND_0 */ + +24900 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1300/* BODY */ where ID = 10466/* ID */ + +24901 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10466/* BIND_0 */ + +24902 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1302/* BODY */ where ID = 10467/* ID */ + +24903 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10467/* BIND_0 */ + +24904 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1304/* BODY */ where ID = 10468/* ID */ + +24905 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10468/* BIND_0 */ + +24906 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1306/* BODY */ where ID = 10469/* ID */ + +24907 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10469/* BIND_0 */ + +24908 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1308/* BODY */ where ID = 10470/* ID */ + +24909 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10470/* BIND_0 */ + +24910 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1310/* BODY */ where ID = 10471/* ID */ + +24911 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10471/* BIND_0 */ + +24912 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1312/* BODY */ where ID = 10472/* ID */ + +24913 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10472/* BIND_0 */ + +24914 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1314/* BODY */ where ID = 10473/* ID */ + +24915 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10473/* BIND_0 */ + +24916 0 select first 10 ID, BODY, DATUM from FILES where ID > 10473/* LASTID */ +ORDER BY ID ASC + +24917 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1316/* BODY */ where ID = 10474/* ID */ + +24918 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10474/* BIND_0 */ + +24919 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1318/* BODY */ where ID = 10475/* ID */ + +24920 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10475/* BIND_0 */ + +24921 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1320/* BODY */ where ID = 10476/* ID */ + +24922 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10476/* BIND_0 */ + +24923 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1322/* BODY */ where ID = 10477/* ID */ + +24924 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10477/* BIND_0 */ + +24925 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1324/* BODY */ where ID = 10478/* ID */ + +24926 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10478/* BIND_0 */ + +24927 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1326/* BODY */ where ID = 10479/* ID */ + +24928 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10479/* BIND_0 */ + +24929 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1328/* BODY */ where ID = 10480/* ID */ + +24930 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10480/* BIND_0 */ + +24931 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1330/* BODY */ where ID = 10481/* ID */ + +24932 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10481/* BIND_0 */ + +24933 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1332/* BODY */ where ID = 10482/* ID */ + +24934 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10482/* BIND_0 */ + +24935 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1334/* BODY */ where ID = 10483/* ID */ + +24936 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10483/* BIND_0 */ + +24937 0 select first 10 ID, BODY, DATUM from FILES where ID > 10483/* LASTID */ +ORDER BY ID ASC + +24938 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1336/* BODY */ where ID = 10484/* ID */ + +24939 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10484/* BIND_0 */ + +24940 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1338/* BODY */ where ID = 10485/* ID */ + +24941 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10485/* BIND_0 */ + +24942 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1340/* BODY */ where ID = 10486/* ID */ + +24943 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10486/* BIND_0 */ + +24944 0 /* IBO Custom EditSQL */ +update FILES set BODY = 1342/* BODY */ where ID = 10487/* ID */ + +24945 0 select ID, BODY, DATUM +from FILES +WHERE FILES.ID = 10487/* BIND_0 */ + +24946 0 select ID,Obsah from Options where + (Category='Global'/* Category */) and + (Name='Intermedix'/* Name */) and + (Login is NULL) + +24947 0 SELECT FIRST 1 CAST('NOW' AS TIMESTAMP) FROM RDB$DATABASE + +24948 0 update options set Obsah=1/* Obsah */ where ID=79/* ID */ + +24949 0 select ID,Obsah from Options where + (Category='Desktop'/* Category */) and + (Name='Fonts'/* Name */) and + (Login='2|6'/* Login */) + +24950 0 select ID,Obsah from Options where + (Category='Desktop'/* Category */) and + (Name='Fonts'/* Name */) and + (Login is NULL) + +24951 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24952 0 select servertimestamp from sp_servertimestamp + +24953 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +24954 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +24955 0 select FSDATS from STAV where ID = 7839/* ID */ + +24956 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 + +24957 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +24958 0 select ID,Obsah from Options where + (Category='Global'/* Category */) and + (Name='Intermedix'/* Name */) and + (Login is NULL) + +24959 0 update options set Obsah=5/* Obsah */ where ID=79/* ID */ + +24960 0 select ID,Obsah from Options where + (Category='Global'/* Category */) and + (Name='Intermedix'/* Name */) and + (Login is NULL) + +24961 0 update options set Obsah=9/* Obsah */ where ID=79/* ID */ + +24962 0 select ID,Obsah from Options where + (Category='Global'/* Category */) and + (Name='Intermedix'/* Name */) and + (Login is NULL) + +24963 0 update options set Obsah=13/* Obsah */ where ID=79/* ID */ + +24964 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24965 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24966 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24967 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +24968 0 select FSDATS from STAV where ID = 7839/* ID */ + +24969 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24970 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24971 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24972 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24973 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24974 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24975 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24976 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24977 0 select servertimestamp from sp_servertimestamp + +24978 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +24979 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +24980 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24981 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24982 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24983 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +24984 0 select FSDATS from STAV where ID = 7839/* ID */ + +24985 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24986 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24987 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24988 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24989 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24990 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24991 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24992 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24993 0 select servertimestamp from sp_servertimestamp + +24994 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +24995 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +24996 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24997 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24998 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +24999 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25000 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +25001 0 select FSDATS from STAV where ID = 7839/* ID */ + +25002 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25003 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25004 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25005 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25006 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25007 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25008 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25009 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25010 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 + +25011 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +25012 0 select servertimestamp from sp_servertimestamp + +25013 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +25014 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25015 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25016 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25017 0 execute procedure SP_UPDATE_USER_TIMESTAMP(7839, 6, 2, '//////////////////8=', 'NTBVBHP470G10', '3.61.0.371') + +25018 0 select FSDATS from STAV where ID = 7839/* ID */ + +25019 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25020 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25021 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25022 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25023 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25024 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25025 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25026 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25027 0 select first 1 * from MEDINETIN I where ((I.STAV <> 1) or (I.STAV is null)) and CGMNUMBER_PRIJEMCE in ('01300149556') + +25028 0 select servertimestamp from sp_servertimestamp + +25029 0 select first 1 LOGIN from OPTIONS where CATEGORY = 'MediWorker' and ID = 924578946 + +25030 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25031 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ + +25032 0 select "VALUE" from CLICKDOC where "KEY" = 'system_id'/* "KEY" */ diff --git a/MedicusWithClaude/test_ext_db.py b/MedicusWithClaude/test_ext_db.py new file mode 100644 index 0000000..26bf81f --- /dev/null +++ b/MedicusWithClaude/test_ext_db.py @@ -0,0 +1,53 @@ +"""Test připojení k externí DB a prozkoumání její struktury - spusť na Windows""" +import fdb, os, glob + +# Najde první existující externí FDB soubor +soubory = glob.glob(r'u:\MEDICUS_FILES_*.fdb') +if not soubory: + soubory = glob.glob(r'u:\externi\MEDICUS_FILES_*.fdb') + +if not soubory: + print("Žádné externí FDB soubory nenalezeny!") + exit() + +soubor = sorted(soubory)[-1] # vezme nejnovější +print(f"Zkouším: {soubor}") + +# Test 1: masterkey +try: + conn = fdb.connect(dsn=f'localhost:{soubor}', user='SYSDBA', password='masterkey', charset='win1250') + print("✓ Připojení s masterkey FUNGUJE!") + + cur = conn.cursor() + + # Jaké tabulky jsou v externí DB? + cur.execute("SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE RDB$SYSTEM_FLAG=0 AND RDB$VIEW_BLR IS NULL") + tabulky = [r[0].strip() for r in cur.fetchall()] + print(f"Tabulky v externí DB: {tabulky}") + + # Kolik záznamů v FILES? + if 'FILES' in tabulky: + cur.execute("SELECT COUNT(*), MIN(ID), MAX(ID) FROM FILES") + row = cur.fetchone() + print(f"FILES: {row[0]} záznamů, ID od {row[1]} do {row[2]}") + + cur.execute("SELECT ID, IDPAC, FILENAME, DATUM, OCTET_LENGTH(BODY) FROM FILES ORDER BY ID ROWS 3") + for r in cur.fetchall(): + print(f" ID={r[0]} IDPAC={r[1]} FILE={r[2]} DATUM={r[3]} BODY={r[4]}B") + + # Zjistit generátor + cur.execute("SELECT RDB$GENERATOR_NAME, RDB$GENERATOR_ID FROM RDB$GENERATORS WHERE RDB$SYSTEM_FLAG=0") + for r in cur.fetchall(): + print(f"Generátor: {r[0].strip()} = {r[1]}") + + conn.close() +except Exception as e: + print(f"✗ masterkey NEFUNGUJE: {e}") + + # Test s jiným heslem - zkus prázdné + try: + conn = fdb.connect(dsn=f'localhost:{soubor}', user='SYSDBA', password='', charset='win1250') + print("✓ Připojení s prázdným heslem FUNGUJE!") + conn.close() + except Exception as e2: + print(f"✗ Prázdné heslo také nefunguje: {e2}") diff --git a/MedicusWithClaude/test_ext_db2.py b/MedicusWithClaude/test_ext_db2.py new file mode 100644 index 0000000..de0cb7a --- /dev/null +++ b/MedicusWithClaude/test_ext_db2.py @@ -0,0 +1,46 @@ +"""Prozkoumá strukturu tabulky DATA v externí DB - spusť na Windows""" +import fdb, glob + +soubory = glob.glob(r'u:\MEDICUS_FILES_*.fdb') + glob.glob(r'u:\MEDICUS_FILES_*.FDB') +if not soubory: + soubory = glob.glob(r'u:\externi\MEDICUS_FILES_*.fdb') + glob.glob(r'u:\externi\MEDICUS_FILES_*.FDB') + +soubor = sorted(soubory)[-1] +print(f"Soubor: {soubor}\n") + +conn = fdb.connect(dsn=f'localhost:{soubor}', user='SYSDBA', password='masterkey', charset='win1250') +cur = conn.cursor() + +# Sloupce tabulky DATA +print("=== Sloupce tabulky DATA ===") +cur.execute(""" + SELECT r.RDB$FIELD_NAME, f.RDB$FIELD_TYPE, f.RDB$FIELD_LENGTH, f.RDB$SEGMENT_LENGTH + FROM RDB$RELATION_FIELDS r + JOIN RDB$FIELDS f ON f.RDB$FIELD_NAME = r.RDB$FIELD_SOURCE + WHERE r.RDB$RELATION_NAME = 'DATA' + ORDER BY r.RDB$FIELD_POSITION +""") +for row in cur.fetchall(): + typ = {7:'SMALLINT',8:'INTEGER',12:'DATE',13:'TIME',14:'CHAR',16:'INT64',35:'TIMESTAMP',37:'VARCHAR',261:'BLOB'}.get(row[1], str(row[1])) + print(f" {row[0].strip():30} {typ} len={row[2]}") + +# Generátory +print("\n=== Generátory ===") +cur.execute("SELECT RDB$GENERATOR_NAME, RDB$GENERATOR_ID FROM RDB$GENERATORS WHERE RDB$SYSTEM_FLAG=0") +for row in cur.fetchall(): + print(f" {row[0].strip()} = {row[1]}") + +# Počet záznamů a ukázka +print("\n=== Počet záznamů ===") +cur.execute("SELECT COUNT(*) FROM DATA") +print(f" {cur.fetchone()[0]} záznamů") + +print("\n=== Ukázka 3 záznamů (bez BLOB) ===") +cur.execute(""" + SELECT ID, OCTET_LENGTH(BODY) as VELIKOST + FROM DATA ORDER BY ID ROWS 3 +""") +for row in cur.fetchall(): + print(f" ID={row[0]} BODY={row[1]}B") + +conn.close() diff --git a/MedicusWithClaude/test_ext_db3.py b/MedicusWithClaude/test_ext_db3.py new file mode 100644 index 0000000..33400ef --- /dev/null +++ b/MedicusWithClaude/test_ext_db3.py @@ -0,0 +1,47 @@ +"""Zjistí propojení mezi hlavní DB a externí DB - spusť na Windows""" +import fdb, glob + +# Hlavní DB +conn_main = fdb.connect(dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='win1250') +cur = conn_main.cursor() + +# Najít exportované záznamy v FILES (BODY není velký BLOB) +print("=== FILES záznamy po exportu (malý BODY = reference na externí DB) ===") +cur.execute(""" + SELECT ID, IDPAC, FILENAME, DATUM, EXT_ID, DOCID, + OCTET_LENGTH(BODY) as BODY_LEN, + CAST(BODY AS VARCHAR(100)) as BODY_TEXT + FROM FILES + WHERE OCTET_LENGTH(BODY) < 100 + ORDER BY ID DESC ROWS 5 +""") +for r in cur.fetchall(): + print(f" ID={r[0]} IDPAC={r[1]} FILE={r[2]}") + print(f" DATUM={r[3]} EXT_ID={r[4]} DOCID={r[5]}") + print(f" BODY_LEN={r[6]} BODY_TEXT='{r[7]}'") + +# Ukázka záznamu s plným BODY (ještě ne exportovaný) +print("\n=== FILES záznamy PŘED exportem (velký BODY = binary data) ===") +cur.execute(""" + SELECT ID, FILENAME, DATUM, EXT_ID, OCTET_LENGTH(BODY) as BODY_LEN + FROM FILES + WHERE OCTET_LENGTH(BODY) > 1000 + ORDER BY ID DESC ROWS 3 +""") +for r in cur.fetchall(): + print(f" ID={r[0]} FILE={r[1]} DATUM={r[2]} EXT_ID={r[3]} BODY={r[4]}B") + +conn_main.close() + +# Porovnat s externí DB +print("\n=== DATA záznamy v externí DB ===") +soubory = glob.glob(r'u:\MEDICUS_FILES_*.fdb') + glob.glob(r'u:\MEDICUS_FILES_*.FDB') +soubor = sorted(soubory)[0] # vezmeme nejstarší +print(f"Soubor: {soubor}") +conn_ext = fdb.connect(dsn=f'localhost:{soubor}', user='SYSDBA', password='masterkey', charset='win1250') +cur_ext = conn_ext.cursor() +cur_ext.execute("SELECT UID, DATASIZE, CHUNK FROM DATA ORDER BY CHUNK ROWS 5") +for r in cur_ext.fetchall(): + print(f" UID='{r[0]}' DATASIZE={r[1]} CHUNK={r[2]}") +conn_ext.close() diff --git a/MedicusWithClaude/test_ext_db4.py b/MedicusWithClaude/test_ext_db4.py new file mode 100644 index 0000000..65a8d64 --- /dev/null +++ b/MedicusWithClaude/test_ext_db4.py @@ -0,0 +1,20 @@ +"""Čte přesné bajty BODY z exportovaného záznamu FILES - spusť 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() + +# Vezmi jeden exportovaný záznam +cur.execute("SELECT ID, BODY FROM FILES WHERE ID = 10487") +row = cur.fetchone() +fileid = row[0] +body_bytes = row[1] # fdb vrací BLOB jako bytes přímo + +print(f"FILE ID: {fileid}") +print(f"BODY délka: {len(body_bytes)} bajtů") +print(f"BODY hex: {body_bytes.hex()}") +print(f"BODY repr: {repr(body_bytes)}") +print(f"BODY jako string (latin1): {body_bytes.decode('latin1')}") + +conn.close() diff --git a/MedicusWithClaude/test_import_3files.py b/MedicusWithClaude/test_import_3files.py new file mode 100644 index 0000000..b7c8231 --- /dev/null +++ b/MedicusWithClaude/test_import_3files.py @@ -0,0 +1,108 @@ +"""test_import_3files.py – jednorázový test: 3 soubory jednoho pacienta → 1 dekurs s klikacími odkazy +Testuje opravenou RTF logiku (cs32, Přílohy: inline, poradi++) +Spustit na Windows. +""" +import datetime +import os +import fdb +import funkce +import funkce_ext + +CESTA = r'u:\\' +IDPAC = 9742 # Buzalka Vladimír, RC 7309208104 + +SOUBORY = [ + { + 'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude copy1].pdf', + 'prvnizavorka': 'vyšetření', + 'druhazavorka': 'ahoj Claude copy1', + 'datum': datetime.date(2026, 3, 18), + }, + { + 'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude copy2].pdf', + 'prvnizavorka': 'vyšetření', + 'druhazavorka': 'ahoj Claude copy2', + 'datum': datetime.date(2026, 3, 18), + }, + { + 'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude].pdf', + 'prvnizavorka': 'vyšetření', + 'druhazavorka': 'ahoj Claude', + 'datum': datetime.date(2026, 3, 18), + }, +] + +# ── Připojení ───────────────────────────────────────────────────────────────── +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='WIN1250' +) + +# ── Krok 1: vložit každý soubor do ext DB ───────────────────────────────────── +bookmark = '' +bookmarks = '' +cislo = 9 +poradi = 0 + +for s in SOUBORY: + cesta_souboru = os.path.join(CESTA, s['souborname']) + datumsouboru = datetime.datetime.fromtimestamp(os.path.getmtime(cesta_souboru)) + + print(f"\n>>> Zpracovávám: {s['souborname']}") + fileid = funkce_ext.zapis_file_ext( + vstupconnection = conn, + idpac = IDPAC, + cesta = CESTA, + souborname = s['souborname'], + prvnizavorka = s['prvnizavorka'], + soubordate = s['datum'], + souborfiledate = datumsouboru, + poznamka = s['druhazavorka'], + ) + print(f" → FILES.ID = {fileid}") + + # {\info{\bookmarks ...}} sekce + filenameforbookmark = s['datum'].strftime('%Y-%m-%d') + ' ' + s['prvnizavorka'] + ': ' + s['druhazavorka'] + bookmark += '"' + filenameforbookmark + '","Files:' + str(fileid) + '",' + str(cislo) + ';' + cislo += 7 + + # tělo RTF – klikatelné záložky (cs32, všechny stejný formát) + bookmarks += (r'\pard\s10{\*\bkmkstart ' + str(poradi) + r'}' + r'\plain\cs32\f0\ul\fs20\cf1 ' + filenameforbookmark + + r'{\*\bkmkend ' + str(poradi) + r'}\par') + poradi += 1 + +bookmark = bookmark[:-1] # odstranit poslední ; + +# ── Krok 2: sestavit RTF ────────────────────────────────────────────────────── +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 +}""" + +rtf = rtf.replace('BOOKMARKNAMES', bookmark) +rtf = rtf.replace('BOOKMARKSTEXT', bookmarks) + +print('\n=== Výsledný RTF ===') +print(rtf) + +# ── Krok 3: zapsat dekurs ───────────────────────────────────────────────────── +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, IDPAC, datumzapisu, caszapisu, rtf) +) +conn.commit() +conn.close() + +print(f'\n=== HOTOVO ===') +print(f'DEKURS.ID = {dekursid}') +print('Otevři Medicus → karta Buzalka Vladimír → najdi dnešní záznam → klikej na odkazy!') diff --git a/MedicusWithClaude/test_import_april2026.py b/MedicusWithClaude/test_import_april2026.py new file mode 100644 index 0000000..b8afff5 --- /dev/null +++ b/MedicusWithClaude/test_import_april2026.py @@ -0,0 +1,47 @@ +"""test_import_april2026.py – jednorázový testovací import do DB202604 + +Spustit na Windows (Medicus může být spuštěný, jen ne na kartě tohoto pacienta). +""" + +import datetime +import os +import fdb +import funkce_ext + +SOUBOR_CESTA = r'u:\\' +SOUBOR_NAZEV = '7309208104 Buzalka, Vladimír 2026-04-01 [testovaci zprava] [všechno OK].pdf' + +IDPAC = 9742 # Buzalka Vladimír (RC 7309208104) +PRVNI_ZAVORKA = 'testovaci zprava' +POZNAMKA = 'všechno OK' +DATUM_ZPRAVY = datetime.date(2026, 4, 1) +DATUM_SOUBORU = datetime.datetime.fromtimestamp( + os.path.getmtime(os.path.join(SOUBOR_CESTA, SOUBOR_NAZEV))) + +print(f"Soubor: {os.path.join(SOUBOR_CESTA, SOUBOR_NAZEV)}") +print(f"Datum zprávy: {DATUM_ZPRAVY}") +print(f"Datum souboru:{DATUM_SOUBORU}") +print() + +conn = fdb.connect( + dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', + password='masterkey', + charset='WIN1250' +) + +fileid = funkce_ext.zapis_file_ext( + vstupconnection=conn, + idpac=IDPAC, + cesta=SOUBOR_CESTA, + souborname=SOUBOR_NAZEV, + prvnizavorka=PRVNI_ZAVORKA, + soubordate=DATUM_ZPRAVY, + souborfiledate=DATUM_SOUBORU, + poznamka=POZNAMKA, +) + +conn.close() +print() +print(f"Hotovo! FILES.ID = {fileid}") +print("Otevři Medicus, přejdi na kartu Buzalka Vladimír a zkontroluj záložku Soubory.") diff --git a/MedicusWithClaude/test_import_merge.py b/MedicusWithClaude/test_import_merge.py new file mode 100644 index 0000000..64ae93a --- /dev/null +++ b/MedicusWithClaude/test_import_merge.py @@ -0,0 +1,182 @@ +"""test_import_merge.py – vloží přílohy do dekurzu daného dne. +Pokud dekurs pro daný den existuje → vloží přílohy NAHORU před stávající text. +Pokud neexistuje → vytvoří nový dekurs. +Spustit na Windows. +""" +import datetime, os, re, fdb +import funkce, funkce_ext + +CESTA = r'u:\\' +IDPAC = 9742 # Buzalka Vladimír +DATUM = datetime.date(2026, 3, 18) + +SOUBORY = [ + {'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude copy1].pdf', + 'prvnizavorka': 'vyšetření', 'druhazavorka': 'ahoj Claude copy1', 'datum': DATUM}, + {'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude copy2].pdf', + 'prvnizavorka': 'vyšetření', 'druhazavorka': 'ahoj Claude copy2', 'datum': DATUM}, + {'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude].pdf', + 'prvnizavorka': 'vyšetření', 'druhazavorka': 'ahoj Claude', 'datum': DATUM}, +] + +# ───────────────────────────────────────────────────────────────────────────── + +def najdi_posledni_dekurs_dnes(conn, idpac, datum_vlozeni): + """Najde POSLEDNÍ dekurs pacienta (jakýkoli datum) a vrátí (id, rtf) + pouze pokud je ze stejného dne jako datum_vlozeni. Jinak vrátí None. + + Logika: zajímá nás jen poslední zápis – pokud je z dnešního dne, + vložíme přílohy do něj. Pokud je starší, zakládáme nový dnešní záznam. + """ + 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" → shoduje se s dneškem ({datum_vlozeni}), budeme mergovat") + return (dekurs_id, dekurs_rtf) + else: + print(f" → jiný den ({dekurs_datum} ≠ {datum_vlozeni}), vytvoříme nový") + return None + + +def merge_rtf_prepend(existing_rtf, new_bkm_list, new_body_pards, n_new): + """Vloží nový obsah (přílohy) na ZAČÁTEK stávajícího dekurzu. + + existing_rtf – stávající RTF string z DB + new_bkm_list – list stringů typu '"popis","Files:123",9' + new_body_pards – RTF string: header \par + \pard řádky s odkazy + n_new – počet nových bkmkstart indexů (= počet souborů) + """ + rtf = existing_rtf + + # 1. Posunout stávající bkmkstart/bkmkend indexy o n_new, + # aby nedošlo ke kolizi s našimi novými (0, 1, 2 …) + 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) + + # 2. Přidat naše bookmarky na ZAČÁTEK {\info{\bookmarks ...}} + 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: + # žádný {\info} blok – vložíme za \deflang... + rtf = re.sub(r'(\\deflang\d+)', + r'\1{\\info{\\bookmarks ' + new_bkm_str + '}}', rtf, count=1) + + # 3. Vložit naše tělo před první \uc1\pard těla stávajícího dekurzu + match = re.search(r'\\uc1\\pard', rtf) + if match: + pos = rtf.index(r'\uc1\pard', match.start()) + rtf = rtf[:pos] + new_body_pards + '\n' + rtf[pos:] + else: + # fallback – připojit před poslední } + rtf = rtf.rstrip() + if rtf.endswith('}'): + rtf = rtf[:-1] + new_body_pards + '\n}' + + return rtf + +# ───────────────────────────────────────────────────────────────────────────── + +conn = fdb.connect(dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='WIN1250') + +# ── Krok 1: vložit soubory do ext DB ───────────────────────────────────────── +bookmark_list = [] +bookmarks_body = '' +cislo = 9 +poradi = 0 + +for s in SOUBORY: + cesta_souboru = os.path.join(CESTA, s['souborname']) + datumsouboru = datetime.datetime.fromtimestamp(os.path.getmtime(cesta_souboru)) + + print(f"\n>>> Zpracovávám: {s['souborname']}") + fileid = funkce_ext.zapis_file_ext( + vstupconnection=conn, idpac=IDPAC, + cesta=CESTA, souborname=s['souborname'], + prvnizavorka=s['prvnizavorka'], + soubordate=s['datum'], souborfiledate=datumsouboru, + poznamka=s['druhazavorka'], + ) + print(f" → FILES.ID = {fileid}") + + filenameforbookmark = (s['datum'].strftime('%Y-%m-%d') + ' ' + + s['prvnizavorka'] + ': ' + s['druhazavorka']) + bookmark_list.append('"' + filenameforbookmark + '","Files:' + str(fileid) + '",' + str(cislo)) + cislo += 7 + + 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 + +# Tělo přílohy (záhlaví + odkaz řádky + prázdný řádek) +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 2: existující dekurs pro tento den? ────────────────────────────────── +print(f"\n>>> Hledám poslední dekurs pro IDPAC={IDPAC}...") +existujici = najdi_posledni_dekurs_dnes(conn, IDPAC, DATUM) +cur = conn.cursor() +now = datetime.datetime.now() + +if existujici: + dekurs_id, existing_rtf = existujici + print(f"\n>>> Nalezen existující dekurs pro {DATUM}: ID={dekurs_id}") + print(">>> Vkládám přílohy na začátek...") + + merged_rtf = merge_rtf_prepend(existing_rtf, bookmark_list, new_body, len(SOUBORY)) + + print("\n=== Výsledný RTF ===") + print(merged_rtf) + + cur.execute("UPDATE DEKURS SET DEKURS = ? WHERE ID = ?", (merged_rtf, dekurs_id)) + conn.commit() + print(f"\n>>> UPDATE DEKURS ID={dekurs_id} – hotovo!") + +else: + print(f"\n>>> Žádný dekurs pro {DATUM} nenalezen – vytvářím nový...") + + bookmark_str = ';'.join(bookmark_list) + 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;}} +BOOKMARKSTEXT +\pard\s10\plain\cs15\f0\fs20 \par +}""" + rtf = rtf.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, now.date(), now.time(), rtf) + ) + conn.commit() + print(f"\n>>> Nový DEKURS ID={dekursid}") + +conn.close() +print("\n=== HOTOVO ===") +print("Otevři Medicus → karta Buzalka → zkontroluj dekurs!") diff --git a/MedicusWithClaude/test_import_single.py b/MedicusWithClaude/test_import_single.py new file mode 100644 index 0000000..9ecf8dc --- /dev/null +++ b/MedicusWithClaude/test_import_single.py @@ -0,0 +1,238 @@ +"""test_import_single.py – vloží 1 soubor do dekurzu s rozšířenou logikou: + + 1. Poslední dekurs pacienta je z dnešního dne A má sekci 'Vložené přílohy' + → soubor se přidá DO té sekce (ne nová sekce) + 2. Poslední dekurs je z dnešního dne, ale sekci 'Vložené přílohy' nemá + → prepend nové sekce na začátek + 3. Poslední dekurs je z jiného dne / neexistuje + → nový dekurs pro dnešek + +Spustit na Windows. +""" +import datetime, os, re, fdb +import funkce, funkce_ext + +CESTA = r'u:\\' +IDPAC = 9742 +DATUM = datetime.date(2026, 3, 18) + +SOUBORY = [ + {'souborname': '7309208104 2026-03-18 Buzalka, Vladimír [vyšetření] [ahoj Claude - zařazení].pdf', + 'prvnizavorka': 'vyšetření', + 'druhazavorka': 'ahoj Claude - zařazení', + 'datum': DATUM}, +] + +# Vzor 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' + +# ───────────────────────────────────────────────────────────────────────────── + +def najdi_posledni_dekurs_dnes(conn, idpac, datum_vlozeni): + """Vrátí (id, rtf) posledního dekurzu pacienta pokud je z dnešního dne.""" + 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 + + +def ma_sekci_prilohy(rtf): + return PRILOHY_HEADER in rtf + + +def pridat_do_sekce_prilohy(rtf, new_bkm_entry, filenameforbookmark): + """Přidá soubor do EXISTUJÍCÍ sekce 'Vložené přílohy'. + + Postup: + 1. Spočítá počet Files: odkazů = N → nový index = N + 2. Posune bkmkstart/bkmkend >= N o +1 (uvolní místo pro nový) + 3. Vloží nový \pard před uzavírací prázdný řádek sekce + 4. Vloží bookmark na pozici N do {\info{\bookmarks ...}} + """ + # 1. Počet existujících Files: odkazů v bookmarks listu + 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: + bkm_entries = [] + n_files = 0 + + new_idx = n_files + print(f" Počet existujících Files odkazů: {n_files} → nový bkmkstart={new_idx}") + + # 2. Posunout bkmkstart/bkmkend >= n_files o +1 + rtf = re.sub(r'\\bkmkstart (\d+)', + lambda m: '\\bkmkstart ' + ( + str(int(m.group(1)) + 1) if int(m.group(1)) >= n_files + else m.group(1)), + rtf) + rtf = re.sub(r'\\bkmkend (\d+)', + lambda m: '\\bkmkend ' + ( + str(int(m.group(1)) + 1) if int(m.group(1)) >= n_files + else m.group(1)), + rtf) + + # 3. Najít uzavírající prázdný řádek sekce (první výskyt po hlavičce) + 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_pard = (r'\pard\s10{\*\bkmkstart ' + str(new_idx) + r'}' + r'\plain\cs32\f0\ul\fs20\cf1 ' + filenameforbookmark + + r'{\*\bkmkend ' + str(new_idx) + r'}\par') + + rtf = rtf[:closing_pos] + new_pard + '\n' + rtf[closing_pos:] + + # 4. Vložit bookmark na pozici n_files do {\info{\bookmarks}} + def insert_bookmark(m): + entries = [e for e in m.group(1).split(';') if e.strip()] + entries.insert(n_files, new_bkm_entry) + return '{\\info{\\bookmarks ' + ';'.join(entries) + '}}' + + rtf = re.sub(r'\{\\info\{\\bookmarks ([^}]*)\}\}', insert_bookmark, rtf) + return rtf + + +def merge_rtf_prepend(existing_rtf, new_bkm_list, new_body_pards, n_new): + """Vloží nový obsah na ZAČÁTEK stávajícího dekurzu (žádná existující sekce).""" + 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 + + +# ───────────────────────────────────────────────────────────────────────────── + +conn = fdb.connect(dsn=r'localhost:c:\medicus 3\data\medicus.fdb', + user='SYSDBA', password='masterkey', charset='WIN1250') + +# ── Krok 1: vložit soubory do ext DB ───────────────────────────────────────── +bookmark_list = [] +bookmarks_body = '' +cislo = 9 +poradi = 0 + +for s in SOUBORY: + cesta_souboru = os.path.join(CESTA, s['souborname']) + datumsouboru = datetime.datetime.fromtimestamp(os.path.getmtime(cesta_souboru)) + + print(f"\n>>> Zpracovávám: {s['souborname']}") + fileid = funkce_ext.zapis_file_ext( + vstupconnection=conn, idpac=IDPAC, + cesta=CESTA, souborname=s['souborname'], + prvnizavorka=s['prvnizavorka'], + soubordate=s['datum'], souborfiledate=datumsouboru, + poznamka=s['druhazavorka'], + ) + print(f" → FILES.ID = {fileid}") + + filenameforbookmark = (s['datum'].strftime('%Y-%m-%d') + ' ' + + s['prvnizavorka'] + ': ' + s['druhazavorka']) + bookmark_list.append('"' + filenameforbookmark + '","Files:' + str(fileid) + '",' + str(cislo)) + cislo += 7 + + 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 + +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 2: rozhodovací logika ──────────────────────────────────────────────── +print(f"\n>>> Hledám poslední dekurs pro IDPAC={IDPAC}...") +existujici = najdi_posledni_dekurs_dnes(conn, IDPAC, DATUM) +cur = conn.cursor() +now = datetime.datetime.now() + +if existujici: + dekurs_id, existing_rtf = existujici + + if ma_sekci_prilohy(existing_rtf): + # ── Případ 1: dnešní dekurs s existující sekcí → přidáme do ní ────── + print(f"\n>>> Sekce 'Vložené přílohy' nalezena v DEKURS ID={dekurs_id}") + print(">>> Přidávám soubor DO existující sekce...") + filenameforbookmark = (SOUBORY[0]['datum'].strftime('%Y-%m-%d') + ' ' + + SOUBORY[0]['prvnizavorka'] + ': ' + SOUBORY[0]['druhazavorka']) + merged_rtf = pridat_do_sekce_prilohy( + existing_rtf, + bookmark_list[0], + filenameforbookmark + ) + else: + # ── Případ 2: dnešní dekurs bez sekce → prepend ─────────────────────── + print(f"\n>>> DEKURS ID={dekurs_id} nemá sekci příloh → prepend nové sekce") + merged_rtf = merge_rtf_prepend(existing_rtf, bookmark_list, new_body, len(SOUBORY)) + + print("\n=== Výsledný RTF ===") + print(merged_rtf) + + cur.execute("UPDATE DEKURS SET DEKURS = ? WHERE ID = ?", (merged_rtf, dekurs_id)) + conn.commit() + print(f"\n>>> UPDATE DEKURS ID={dekurs_id} – hotovo!") + +else: + # ── Případ 3: žádný dnešní dekurs → nový ───────────────────────────────── + print(f"\n>>> Žádný dekurs pro {DATUM} → vytvářím nový...") + bookmark_str = ';'.join(bookmark_list) + 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;}} +BOOKMARKSTEXT +\pard\s10\plain\cs15\f0\fs20 \par +}""" + rtf = rtf.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, now.date(), now.time(), rtf) + ) + conn.commit() + print(f"\n>>> Nový DEKURS ID={dekursid}") + +conn.close() +print("\n=== HOTOVO ===") +print("Otevři Medicus → karta Buzalka → zkontroluj dekurs!")