ordinaceprojekt/Medicus/MedicusWithClaudePN/PN.md

MedicusWithClaudePN – Pracovní neschopnosti

Účel

Report aktivních pracovních neschopností pro MUDr. Buzalkovou Michaelu. Generuje PDF a odesílá na výchozí tiskárnu.

Spuštění

# Test – otevře PDF v prohlížeči, netiskne:
python pn_report.py --no-print

# Ostrý provoz – vytiskne rovnou na výchozí tiskárnu:
python pn_report.py

Požadavky

pip install reportlab pywin32

SQL dotaz – aktivní PN

Zachycen přes Firebird trace přímo z Medicusu (přesná kopie logiky aplikace), doplněn o podotaz na poslední 14denní potvrzení z tabulky HPN.

SELECT
    nes.id,
    nes.idpac,
    TRIM(kar.prijmeni) || ', ' || TRIM(kar.jmeno) AS jmeno,
    kar.rodcis,
    nes.zacnes,
    nes.konnes,
    nes.diagno,
    COALESCE(nes.ecn, nes.cisnes) AS cisnes,
    (SELECT MAX(h.datum) FROM hpn h
     WHERE h.idnes = nes.id AND h.typ = '2' AND h.storno = 'F') AS posl_potvrzeni
FROM nes, kar
WHERE nes.zacnes <= current_date
  AND nes.konnes IS NULL
  AND nes.idpac = kar.idpac
  AND nes.pracne = 'A'
  AND nes.storno <> 'T'
  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 kar.prijmeni ASC, kar.jmeno ASC

Klíčové podmínky

Podmínka	Význam
pracne = 'A'	Pouze pracovní neschopnosti (ne jiné typy)
storno <> 'T'	Vyřazení stornovaných záznamů
zacnes <= current_date	PN již začala
konnes IS NULL	PN dosud neskončila – datum konce nemůže být v budoucnosti (pravidlo ČSSZ), aktivní PN má vždy konnes = NULL
nesd subquery	PN nebyla předána dál – poslední záznam Kam = 'N' = stále u pacienta
COALESCE(ecn, cisnes)	Použije ECN (elektronické), jinak starší CISNES

Sloupce reportu

Sloupec	Zdroj	Poznámka
#	–	Pořadové číslo
Příjmení a jméno	KAR
Rod. číslo	KAR
Začátek PN	NES.ZACNES
Dnů	výpočet	Počet dní od začátku PN do dnes
Diagnóza	NES.DIAGNO
Posl. potvrzení	HPN (TYP='2')	Datum posledního 14denního potvrzení
Dní od potvr.	výpočet	Červeně pokud > 14 dní

Tabulka HPN – typy podání

TYP	Význam
H	Hlášení neschopnosti (vznik PN)
1	První zpráva
P	Průběžná zpráva = 14denní potvrzení trvání PN
2	Neznámý typ (2033 záznamů v DB, ale ne pro průběžná potvrzení)
C, Y, Z	Vzácné typy (jednotky záznamů)

Vazba: HPN.IDNES → NES.ID

---

Jak Medicus zobrazuje PN daného pacienta (zachyceno z trace)

1. Seznam všech PN pacienta

SELECT
    ID, IDPAC, DATNES, CISNES, PODNIK, ADRESA, PROFES, ZACNES,
    KONNES, PRACNE, PRICINA, DIAGNO, KONDIA, PREDAN, IDUZI,
    VYSTAVIL, DATUKONNES, IDODD, IDPRAC, STORNO,
    DATVYCHOD, DATVYCHDO, VYCH1OD, VYCH1DO, VYCH2OD, VYCH2DO, VYCH3OD, VYCH3DO,
    DATOSETRENI, DATPRINAV, OMLUVENKA, RODCISNES,
    DatNastUstPece, DatUkonUstPece, ICPE, ECN, EPODANI,
    ADR_OBEC, ADR_CP, ADR_CO, ADR_DOD, ADR_PSC, ADR_STAT,
    ZAM_ADRESA, DATUKON_OSSZ, ZAMDRUH, STATDPNKOD,
    SOUHLAS_SSZKOD, SOUHLAS_SSZNAZ, SOUHLAS_DATUM,
    DGZMENA, CIZI, OSSZ, DUVOD_UKONCENI, UKON_OSSZ, PORUS_REZIMU,
    UKON_OSSZNAZ, ADR_ZMENA, coalesce(ECN, CISNES) as CISLO,
    ADR_ZMENA_DO, POTVRZENI_VYDANO, DATNAR, SPRAVCE_POJ,
    ZAM_OBEC, ZAM_CO, ZAM_CP, ZAM_DOD, ZAM_PSC, ZAM_STAT, ZAM_CCSZ_ID, ZAM_CSSZ_VARSYM,
    VYCHINDIVIDUAL, VERZE_DPN, LEKAR_VYSTAVIL, LEKAR_VYSTAVIL_ICPE,
    USEDATNAR, KONTAKT_TEL, KONTAKT_EMAIL,
    case when KONTAKT_TEL is not NULL then 'S'
         when KONTAKT_EMAIL is not null then 'E'
         else NULL end as NOTIFIKACE,
    coalesce(KONTAKT_TEL, KONTAKT_EMAIL) as NOTIFIKACE_KONTAKT
FROM NES
WHERE IDPAC = ?
ORDER BY DATNES ASC, ID ASC

2. Formuláře eNeschopenky pro vybranou PN (záložka "Formuláře eNeschopenky")

Zobrazuje pouze TYP H, 1, 2 (ne P = propuštění). Pouze záznamy s vazbou na HISTDOC (IDHISTDOC IS NOT NULL).

SELECT
    HD.ID       AS HISTDOCID,
    H.TYP       AS HISTDOCTYP,   -- H=hlášení, 1=první zpráva, 2=průběžná/potvrzení
    HD.DATUM    AS DATZAD,        -- Datum vystavení (z HISTDOC)
    H.DATUM     AS DATPOD,        -- Datum podání (z HPN)
    H.STAV,
    H.ODBAVENO,
    HD.TYP
FROM HPN H
JOIN HISTDOC HD ON H.IDHISTDOC = HD.ID
WHERE H.IDNES = ?
ORDER BY HD.DATUM ASC

3. Rychlý přehled formulářů (bez HISTDOC)

Používá se pro zjištění stavu – vrací všechny záznamy TYP H, 1, 2:

SELECT * FROM HPN
WHERE IDNES = ?
  AND STORNO = 'F'
  AND TYP IN ('1', '2', 'H')
ORDER BY DATUM DESC, CAS DESC, ID DESC

4. TFHpnHistorie – formulář "Historie HPN" (acHpnHistorie)

Kompletní přehled všech HPN záznamů pro vybranou PN. Spouští se akcí acHpnHistorie.

select h.ID, h.IDNES, h.IDPODANI, h.TYP, h.DATA, h.DATUM, h.CAS, h.ODPOVED,
  h.IDPRAC, h.IDUZI, h.UPRAVENO, h.OPRAVA_ID, h.STAV, h.STORNO,
  h.POR_CISLO, h.ID_CHYBY, h.OSSZ,
  n.CisNes, n.Ecn, coalesce(n.CisNes, n.Ecn) as Cislo, n.IdPac,
  k.Prijmeni, k.Jmeno, k.Titul, coalesce(n.RODCISNES, k.RODCIS) as RODCIS,
  u.Zkratka, hp.Odeslano, hp.CorelationId,
  (select first 1 h2.ID from HPN h2 where h2.OPRAVA_ID = h.ID) as IdOpravy,
  h.verze_dpn,
  n.SPRAVCE_POJ,
  n.ADRESA as ULICE, n.ADR_CP, n.ADR_CO, n.ADR_DOD, n.ADR_OBEC, n.ADR_PSC, n.ADR_STAT,
  n.PODNIK, n.PROFES, n.ZAM_ADRESA, n.ZAM_CP, n.ZAM_CO, n.ZAM_OBEC, n.ZAM_PSC, n.ZAM_STAT,
  n.ZACNES, n.DIAGNO, n.DATNES, n.PRICINA,
  n.KONNES, n.KONDIA, n.DATUKONNES,
  n.DATVYCHOD, n.VYCH1OD, n.VYCH1DO, n.VYCH2OD, n.VYCH2DO,
  n.PRICINA, n.ICPE, n.VYCH3OD, n.VYCH3DO, n.KONTAKT_TEL,
  h.IDHISTDOC, h.ODBAVENO,
  IIF((H.IDHISTDOC is not null),
      (select HD.TYP from HISTDOC HD where HD.ID = H.IDHISTDOC), null) as HISTDOCTYP
from HPN h
  left join NES n on (n.id = h.idnes)
  left join KAR k on (k.IdPac = n.IdPac)
  left join UZIVATEL u on (u.IdUzi = h.IdUzi)
  left join HPN_PODANI hp on (hp.ID = h.IdPodani)
where h.IdNes = ?
ORDER BY h.Datum ASC, h.Cas ASC, h.Id ASC

5. Kontrola čekajících podání (PN s neodeslanými HPN záznamy)

select nes.id from nes
where nes.idpac = ?
  and nes.storno = 'F'
  and nes.epodani = 'T'
  and nes.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   -- dosud neodesláno
        and hpn.stav <> 99
        and hpn.stav <> 10
  )

6. Kontrola potvrzení vydaného tento měsíc (POTVRZENI_VYDANO)

Medicus kontroluje zda pro daného pacienta existuje PN aktivní alespoň 10 dní, u které ještě nebylo vydáno potvrzení v aktuálním měsíci:

select first 1 ZACNES, CISNES, ID, POTVRZENI_VYDANO
from NES
where (IDPAC = ?)
  and (? >= ZACNES + 10)         -- PN trvá alespoň 10 dní
  and ((KONNES is NULL) or (KONNES > ?))
  and (STORNO = 'F')
  and (
      extract(month from POTVRZENI_VYDANO) || extract(year from POTVRZENI_VYDANO)
      =
      extract(month from cast(? as date)) || extract(year from cast(? as date))
  )

7. Vyhledání HPN záznamu podle ICPE v XML datech

Číslo 11031812 (ICPE lékaře) se hledá přímo v obsahu XML blobu HPN.DATA. Medicus takto identifikuje konkrétní HPN záznam při opravě nebo ověření stavu:

-- Neodeslané nebo čekající záznamy:
select h.id from HPN h
left join HPN h2 on (h2.OPRAVA_ID = h.ID)
where (h.storno = 'F')
  and ((h.stav in (0,1)) or (h.stav is NULL))
  and (h2.OPRAVA_ID is null)
  and (H.DATA containing '11031812')   -- hledá ICPE v XML obsahu
  and (h.IDNES = ?)

-- Úspěšně odeslané záznamy (stav=1):
select h.id from HPN h
left join HPN h2 on (h2.OPRAVA_ID = h.ID)
where (h.storno = 'F')
  and (h.stav = 1)
  and h2.OPRAVA_ID is null
  and (H.DATA containing '11031812')
  and h.IDNES = ?

8. Předání/Převzetí (záložka "Předání/Převzetí")

SELECT ID, IDNES, KAMODKUD, DATUM, KAM, ICZ, ICPE, ICO, JMENO_LEKARE
FROM NESD
WHERE IDNES = ?
ORDER BY DATUM ASC, ID ASC

Poznámky

• HISTDOC – každé odeslání formuláře vytváří záznam v HISTDOC; HPN bez IDHISTDOC se v UI nezobrazí
• HPN.STAV – stav podání (1 = odesláno/přijato)
• HPN.ODBAVENO – příznak zpracování ('F' = ne, 'T' = ano)
• HPN záznamy TYP='2' (průběžná potvrzení) nemají IDHISTDOC – JOIN s HISTDOC by je odfiltroval. Pro datum posledního potvrzení v reportu proto používáme prostý MAX bez JOINu. HISTDOC mají pouze TYP='P' (ukončení PN).

---

Vazby tabulky NES (zjištěno z DB)

Formální FK constrainty

Směr	Vazba	Popis
NES → KAR	NES.IDPAC → KAR.IDPAC	Každá neschopenka patří pacientovi v kartotéce
HPN → NES	HPN.IDNES → NES.ID	Formuláře/hlášení HPN odkazují na konkrétní neschopenku

Logické vazby (bez FK constraintu)

Tabulka	Pole	Poznámka
NESD	NESD.IDNES → NES.ID	Předání/převzetí PN – vazba jen kódem, ne constraintem
HISTDOC	HPN.IDHISTDOC → HISTDOC.ID	Dokumenty k formulářům – vazba přes HPN

Indexy na NES

Index	Unique	Pole
PK_NES	Ano	ID
FK_NES_KAR	Ne	IDPAC
NES_POTVRZENI_VYDANO	Ne	POTVRZENI_VYDANO

Poznámka

Medicus obecně používá minimum DB constraintů – většina vazeb je řešena aplikačním kódem. NESD a HISTDOC nemají formální FK na NES, přesto jsou klíčové pro zobrazení PN v UI.

---

Červené zvýraznění

Sloupce "Posl. potvrzení" a "Dní od potvr." jsou červeně zvýrazněny pokud:

• Od posledního potvrzení uplynulo více než 14 dní, nebo
• PN nemá žádné potvrzení a trvá déle než 14 dní (zobrazí se s (!))

Tisk

Skript používá win32api.ShellExecute s příkazem 'print' – odešle PDF na výchozí tiskárnu Windows.

Automatizace

Plánované spouštění každé pondělí a pátek ráno přes Windows Task Scheduler – zatím nenastaveno, připravit až bude skript stabilní.

Soubory

Soubor	Obsah
pn_report.py	Hlavní skript – DB dotaz, generování PDF, tisk
PN.md	Tento soubor – dokumentace