Využití klinické priority případu KPP

    Jedná se o reálnou úpravu pro NNH.
    
    Flag KPP je v databázi vzorků a vede na tabulku RegistrKPP, ktery mimo jiné obsahuje číslo pacienta, datum od a datum do.

    První úprava spočívá v jemné změně barvení pohledů tak, aby se nemusely měnit views*.prm a přitom bylo z barvy jasné hned na první pohled, že vzorek má nastaven KPP na A.
    Toto se dělá ve vaxnt.exe a barva KPP je po zkušenostech změněna na hnědou a upraveny jsou též pohledy barvené metodou Color. Hnědou se kreslí příjmení a KPP, je-li to A.

    Tím pádem jsou záznamy obsahující KPP rovno A hned vidět. Pro barvoslepé je k mání aspoň sloupec KPP.

    Konzultace jsou upraveny při ukládání tak, že pokud je KPP nastaveno na A, pak se od data konzultace dva dny odečtou (získá se datomod) a sedm dnů přičte (získá se datumdo).
    Uloží se záznam do registrkpp a všechny existující vzorky ne-Konzultace se projdou a nastaví se jim KPP na A za podmínky, že datumprijmu padne do rozhodného intervalu.

    Zápis nových vzorků se upraví tak, že KPP se vypočte rovnou jako A, nalezne-li se v registrkpp A-čkový záznam s datumy od a do pokrývajícími datum příjmu daného vzorku.

    Co se vlastně dostane? Během konzultace se nějak usoudí, že daný pacient je zajímavý. Například se mu právě teď povoluje MER. Ale podstata zajímavosti je bezpředmětná - jde jen
    o to, že daná konzultace má nastaven flag KPP na A. Počínaje okamžikem uložení do databáze jsou všechny recentní vzorky pacienta zajímavé. Třeba by se na nich měla dělat MIC místo
    diskovky nebo by se jen měly výsledky více zkoumat. Recentní je zde arbitrárně nastaveno na dva dny zpět a týden vpřed. Vzorek od daného pacienta tedy po čase danou vlastnost 
    přestane mít a zároveň se označí viditelně i potenciálně rozdělané vzorky daného pacienta. Zde je dobré vědět, že vydatný pacient má i několik vzorků každý den ...

    Úprava reprezentuje cca 30 řádků ve skriptovacím jazyce a 5 řádků v Delphi a je tedy zdánlivě zcela banální. Realizuje však podstatnou integraci konzultací s rutinní prací na 
    laboratoři. Lidé na laboratoři se ihned dozvědí, že materiálu daného pacienta mají z jakýchkoli důvodů věnovat pozornost. Dozvědí se to automaticky, zpětně a po cca týdnu to
    odezní. Má-li stejný pacient po čase nedej Bůh zase problém, zase se to laborka pro odpovídající období cca 10 dnů bude automaticky dozvídat.

    Změna v Delphi - Red zaměněno za Brown a z ubio barvení vypreparováno KPP=A barveni pro metodu Color, unita lacolor.pas.
    Změny ve skriptech:
        kpp/set.prg - nový skript pro zařazení do registrkpp
        kpp/get.prg - nový skript pro načtení KPP
        ks/konzultace-common-insert-update.prg - volání kpp/set.prg
        browser/vzorek_new.prg - volání kpp/get.prg v podskriptu browser/kontroly/centralid.prg

Rejstřík kapitoly