Dokumente aufrufen aus Medi-Hausliste

[JoergS_inaktiv]

hallo - falls es jemanden interessiert:
habe schon lange bedauert, dass man z.B. aus der TM-Medikamentenliste keine Infos, die man sich selbst angelegt hat, aufrufen konnte. Z.B. zum Thema NMH (niedermolekulare Heparine): welche Alternativen gibt es zu Enoxaparin (Clexane), was kosten die pro Tag, wie ist es mit der Zulassung (Therapie oder nur Prophylaxe)?
Oft hat man sich das vor längerer Zeit mal überlegt oder eine gute Literaturstelle gefunden und das sogar als Dokument irgendwo gespeichert. Wenn man aber gerade beim Verordnen ist, will man noch mal nachsehen ... wo hat man die Info denn abgelegt?? Möglichst sitzt der Patient noch vor einem, dann kann man schlecht lange suchen.

Leider gibt es keine direkte Verlinkung aus der Hausliste. Dass man statt eines Medikamentennamens einen Link angibt funktioniert leider nicht.

Es gibt aber eine einfache Alternative:
in das script der Datei Medikament.tmf (Vz.: TM\Formulare\NonUser\Bearbeiten) 6 Zeilen eintragen - und fertig.

Im Script steht in den Zeilen 445-447:
...
EditStarCode.Text =Medikament.StarCode

If Medikament.DauerverordnungsEigenschaft<>"?" then
...

Zwischen diese Zeilen trägt man folgende ein:
...
EditStarCode.Text =Medikament.StarCode

If instr(Medikament.name, "@") > 0 then
Dim DAT_File,Pfad,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Pfad=TMTools.Path("$\TurboMed\Dokumente\eigDokus\")
TMTools.PDFViewerOpen(Pfad & Medikament.name & ".pdf")
end if

If Medikament.DauerverordnungsEigenschaft<>"?" then
...

Legt man dann ein "fiktives Medikament" z.B. mit dem Namen "Clexane@" an und hat eine Dokumentation mit dem Namen "Clexane@.pdf" im o.g. Verzeichnis gespeichert, dann wird diese Datei beim Öffnen der Bearbeitungsmaske ("Alt + b") dieses Eintrags die Dokumentation geöffnet, und wenn man den PDF-XChangeViewer als Standardprogramm eingegeben hat und dabei in den Grundeinstellungen das Verlassen mit "Esc"-Taste gewählt hat, lässt sich das alles ganz schnell und mit wenigen Tastendrücken darstellen.

Ähnliches funktioniert auch in der Eigenen Liste Diagnosen.

Schönen Sonntag
joergschoenen