notebookvb
This commit is contained in:
Vladimir Buzalka
@@ -0,0 +1,321 @@
|
||||
# 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í
|
||||
|
||||
```bash
|
||||
# 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
|
||||
|
||||
```bash
|
||||
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.
|
||||
|
||||
```sql
|
||||
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
|
||||
|
||||
```sql
|
||||
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`).
|
||||
|
||||
```sql
|
||||
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`:
|
||||
|
||||
```sql
|
||||
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`.
|
||||
|
||||
```sql
|
||||
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)
|
||||
|
||||
```sql
|
||||
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:
|
||||
|
||||
```sql
|
||||
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:
|
||||
|
||||
```sql
|
||||
-- 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í")
|
||||
|
||||
```sql
|
||||
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 |
|
||||
Reference in New Issue
Block a user