Vejledning Standardblanketter i Patina

Standardblanketter i Patina

Blanketstyring

Fra Patina hovedprogrammet aktiveres Patina blanketterne ved tryk på F8. Herefter åbnes nedenstående billede.

Blanketoversigt

I billedets venstre side vises tilgængelige blanketter i Patina.

I højre side vises den aktuelle patient og herunder indholdet af åbne blanketvinduer,

Bekræftelse konsultation

BlanketId: - Genvej: Ctrl+Shift+N

Enkelttilskud

BlanketId: PATITILE Genvej: Ctrl+Shift+E

Erklæring om uarbejdsdygtighed

BlanketId: PATIUARB

Genvej: Ctrl+Shift+U

Henvisning til fysioterapi

BlanketId: PATI03

Genvej: Ctrl+Shift+F

Henvisning speciallæge

BlanketId: PATI02

Genvej: Ctrl+Shift+L

Henvisning sygehus

BlanketId: PATI01

Genvej: Ctrl+Shift+Y

Kronikertilskud

BlanketId: PATITILK

Genvej: Ctrl+Shift+K

LÆ125 Statusattest

BlanketId: PATI125

Genvej: Ctrl+Shift+2

LÆ135 Specifik helbredsattest

BlanketId: PATI135

Genvej: Ctrl+Shift+3

LÆ145 Generel helbredsattest

BlanketId: PATI145

Genvej: Ctrl+Shift+4

LÆ165 Socialmedicinsk sagsbehandling

BlanketId: PATI165

Genvej: Ctrl+Shift+6

Patientbrev

BlanketId: PATIBREV

Genvej: Ctrl+Shift+B

Sygemelding

BlanketId: -

Genvej: Ctrl+Shift+S

Terminaltilskud

BlanketId: PATITILT

Genvej: Ctrl+Shift+T

Vaginalcytologisk undersøgelse

BlanketId: PATICYTO

Genvej: Ctrl+Shift+C

Systemstruktur

Standardblanketterne i Patina er opbygget over samme læst. Dvs at programstruturen for den individuelle blanket har de samme procedurer/funktioner.

Det grundlæggende i den nyeste programstruktur er at blanketdata gemmes i databasen, hvilket gør det muligt efterfølgende at rette i en tidligere udfyldt blanket.

FormCreate(Sender: TObject);

XML strukturen ( XMLSkemaData) initieres og objektet: BlanketData nulstilles.

FormActivate(Sender: TObject);

Formen må kun initieres én gang – styres ved: bFormActivated

Hvis blanketten er ny (BlanketData.New) så:

• Initieres formen med data fra patientens journal

ellers

• Initieres formen med data fra den tidligere blanket (BlanketData.BrevData)
  f.eks:
  eModtagerNavn.Text := GetXmlValue('MODTNAVN', XMLSkemaData);

GemKopiAfPtBrev

I forbindelse med udskrivning/visning af blanketten gemmes en kopi heraf:

XMLPATISkema := TXMLskema.CreateNew;

XMLPATIskema.SkemaId := 'PATI_BREV';

XMLPATIskema.Refresh;

XMLSkemaData := xmlPATIskema.SkemaText;

XMLPATIskema.Free;

InsXmlValue('#MODTNAVN#', eModtagerNavn.Text, XMLSkemaData);

... osv

slBrevdata.Clear;

slBrevdata.Add('Modtager: ');

slBrevdata.Add(' ' + eModtagerNavn.Text);

slBrevdata.Add(' ' + eModtagerAdresse1.Text);

slBrevdata.Add(' ' + eModtagerAdresse2.Text);

slBrevdata.Add(' ' + eModtagerPostnr.Text + ' '

+ lblModtagerPostdistrikt.Caption);

slBrevdata.Add('');

slBrevdata.Add('');

slBrevdata.Add('---Brevtekst---');

for i := 0 to mrtBrevTekst.Lines.Count - 1 do

begin

slBrevdata.Add(mrtBrevTekst.Lines[i]);

end;

slBrevdata.Add('');

og brevdata gemmes i databasen.

GemBlanketIPatinaBreve(Blanketdata.New);

BlanketData – uanset om dette er i TXT eller XML-format – gemmes i tabellen PatinaBreve.

Function GetXmlValue('FELTNAVN', XMLSkemaData);

Funktionen henter værdien for feltet ’Feltnavn’ fra datastrukturen: XMLSkemaData

Procedure InsXmlValue('#FELTNAVN#', eFelt.Text, XMLSkemaData);

Funktionen indsætter værdien i eFelt.Text i feltet ’#Feltnavn#’ i datastrukturen: XMLSkemaData.