gelinkte Dokumente AUS Karteikarte HERAUSbekommen?

[Meckelein]

Hm, is mir garnicht aufgefallen, dass forfiles damit nicht um kann. Ich schau mal bei gelegenheit nach ner anderen Alternative, aber glaube da komm ich nicht um die Powershell drum herum. Ansonsten gibts noch einen anderen Workaround. Ihr tmf Script liesst die Einstellung "Turbomed->Grundeinstellungen->Verzeichnisse->Turbomed->Serverpfad" direkt aus. Wenn man hier nicht den UNC Pfad zum Server, sondern das gemappte Laufwerk mit Pfad einträgt, dann funktionierts auch mit Ihrem Script

Code: Alles auswählen

Aus
\\Computer\Pfad\Turbomed
wird dann
T:\Turbomed

Wichtig bei dieser Änderung ist halt, dass die Netzwerkkonfiguration ordentlich funktioniert, da sonst das Turbomed probleme bereiten kann, nicht direkt aber halt auch später. Ach ja, was können diese tmf Scripte eigentlich alles an Programmen aufrufen? Weil wenn es da keine Einschränkungen gibt, könnte man ja wirklich ein PowerShell Script bauen.

[Meckelein]

Tag rfbdoc,

hab mir jetzt nochmal etwas Zeit genommen und mir das alles angeschaut. Zum ersten hab ich in Ihrem Formular die Ausgabe der Parameter umgedreht, nachdem ich erstmal den Quelltexteditor gefunden hatte, war das recht einfach
Zum zweiten habe ich die DOS-Batch Datei etwas aufgebohrt. Ab sofort ist es ihr egal ob es ein UNC Pfad ist oder nicht, wird soweit abgefangen und umgebogen. Auch wird das Zielverzeiniss automatisch erstellt, sollte es noch nicht vorhanden sein.

Ich hab mir mal die Freiheit genommen, das alles wieder in Ihr Zip Archiv zurück zu packen und Ihre Anleitung dabei zu lassen, ich hoffe das ist soweit ok. Die Sache mit dem Formular gefällt mir sehr gut, muss ich mir doch mal genauer anschauen. Danke nochmal für die Idee und für die Zeit

Falls Ihnen noch etwas einfällt oder etwas noch nicht funktioniert, immer raus damit, dann lässt sich das eventuell auch noch einbauen.

[Macros]

*powershellwiedereinpackt*

Coole Lösung, auch wenn ich mangels TM gerade nicht alles nachvollziehen kann...
Powershell wäre wahrscheinlich per "gci" gegangen.

gci = Get-ChildItem

[rfbdoc]

Hallo Meckelein
Danke für das Überarbeiten der Batchdatei ! Meine Kenntnisse reiche da nicht so weit.

Ich habe mir erlaubt in der Batchdatei das Zielverzeichnis noch um den Patientennamen zu erweitern und auch die TurboMed Formulardatei zu verbessern.

Wer möchte kann die Exportfunktion -natürlich immer auf eigenes Risiko- gern testen und nutzen.

Die Exportfunktion hat die Einschränkung, dass immer nur Dokumente des Patienten unter dem aktuellen Patientennamen gesucht und exportiert werden. Namensänderung z.B. durch Heirat werden nicht berücksichtigt !
Um auch diese Dokumente zu extrahieren müsste man dem Patienten temporär den alten Namen zurückgeben und den Menüpunkt nochmal durchlaufen lassen.

TmDocExport.zip

[rfbdoc]

Da nur ersten 12 Zeichen eines ggfs. auch längeren Patientennamens in den Suchstring für verlinkte Dokumente eingehen musste ich die Tmf-Datei noch einmal überarbeiten

TmDocExport.zip

[rfbdoc]

Durch nochmaliges Überarbeiten und Anpassung der Suchfunktion (Geburtsdatum und Patientennummer) ist nunmehr sichergestellt, dass auch nach Namensänderungen (Heirat o.ä) alle verlinkten Dokumente aus der Patientenkartei exportiert werden.

TmDocExport.zip

[kteamchief]

Hallo rfbdoc,

bei mir erscheint beim Aufrufen des von Ihnen erstellen Formulars (TmDocExport) ein "AcitveX Script Error" (siehe Anhang).
Im Quellcode ist diese Zeile markiert: Set PatForm.Behandlungsfall = Behandlungsfall.

Das Formular kann dann von mir nicht verwendet werden.

Was kann das sein bzw. was kann man hier machen, um mein Problem zu lösen?
Für eine Hilfestellung wäre ich sehr dankbar.

Gruß,
kteamchief

[rfbdoc]

Den Fehler kann ich hier auf meinem Laptop und auch in der Praxis im Netzwerk erst einmal nicht nachvollziehen.

Muss ein Problem beim Setzen des Behandlungsfalls sein.

In Zeile 14 meines Scripts gib es nur den Befehl

Set PatForm.Behandlungsfall = Behandlungsfall



PS: Darf mich zunächst einmal für 2 Wochen urlaubsbedingt abmelden.

[EXEWERKER]

Vielleicht hat der aktive Patient keinen Behandlungsfall?

[kteamchief]

Dieser ActiveX-Script Error kommt bei mir immer, auch wenn der Patient einen aktiven Behandlungsfall hat.
Das Fehlerbild tritt an allen Clients und am Server auf.
Irgendwie scheint bei mir die Variable "Behandlungsfall" nicht definiert zu sein. Hat das evtl. etwas mit der Datei "TMFTools.dll" zu tun. Ist diese defekt? Kann man diese Variable irgendwo definieren?

Gruß,
kteamchief

[rfbdoc]

Ich kann den Fehler hier nicht nachvollziehen.
Die Datei TmDocExport.tmf sollte lokal im Verzeichnis TurboMed\Formulare\
oder (übersichtlicher) im Verzeichnis TurboMed\Formulare\SelbsterstellteFormulare\ liegen

Zwei Versuche zu Fehlerbeseitigung könnte man unternehmen
Versuch 1)
Im Explorer die Datei TmDocExport.tmf aufsuchen. Unter Eigenschaften-> Sicherheit Vollzugriff für Benutzer oder Jeder einrichten
Versuch 2)
Datei TmDocExport.tmf umbenennen in TmDocExportAlt.tmf
Mit dem Formulareditor selbst eine neue leere Datei TmDocExport.tmf erstellen
Aus der alten umbenannten TmDocExportAlt.tmf die Datenfelder und das Scipt (F7) einkopieren und abspeichern
Vielleich tritt der Fehler dann nicht mehr auf.

[Johnny]

Hallo rfbdoc,,

habe Ihr Script mit dem Formular auf meinem Server-PC (Win XP Prof.) installiert und ausgeführt.
Funktioniert fast: Formular wird angezeigt, Button kann angeklickt werden Ordner für Patient wird angelegt und ..... bleibt leer.
Soeben, beim Schreiben, ist mir die Ursache auch eingefallen. Habe meine Dokumente von der Festplatte C: ausgelagter auf D:
In TM ist der Pfad zu den Dokumenten auf D: in den Grundeinstellungen richtig eingestellt.
Wo kann ich das in Ihrem Script einstellen?

Gruß aus Kiel
Johnny

[rfbdoc]

In Zeile 39 des scripts können sie ggfs. die Änderungen vornehmen
Da Sie den Formularpfad D: in Grundeinstellungen gesetzt haben vermute aber eher, dass die batchdatei nicht korrekt aufgerufen wird.
Vielleicht geben Sie einfach die Pfade zur Batchdatei und Dokumenten mit den bei Ihnen zutreffenden festen Laufwerksbuchstaben ein.

Zeile 39
DokExport.run TMTools.Path("\Bat\TMExportTools\TmDocExport.bat") &" " &PatFilter.Text &" " &App.Settings.ServerPfad &"Dokumente\"
ändern in
DokExport.run TMTools.Path("C:\???\TmDocExport.bat") &" " &PatFilter.Text &" " &"D:\????\Dokumente\"

[rfbdoc]

Um auch "ausgelagerte" Dokumente zu erfassen, die nicht im Standardordner TurboMed\Dokumente\ liegen habe ich das Script nochmals angepasst. Die Batchdatei TmDocExport.bat hat auch einen neuen Speicherort erhalten. Der Export erfolgt zudem jetzt auf einen Ordner auf dem Desktop, das erleichtert das Auffinden der exportierten Dateien.

Installationsanleitung dabei. Die Dateien der Vorversion einfach löschen
Die Verwendung des kleinen Programms erfolgt natürlich auf eigene Gefahr.

TmDocExportVersion2.zip

[Johnny]

hallo rfbdoc,
hallo ewerker,

besten Dank für eure Bemühungen.

Soweit ich dies jetzt eruiert habe, gibt es den Befehl forfiles unter windows xp nicht!

Man könnte diese Datei forfiles.exe höchstens aus win 7 in ein Win Xp-System einkopieren oder hier https://www.petri.com/download_free_reskit_tools in einer toolsammlung herunterladen.

Gruß aus Kiel

Johnny

[Johnny]

Leider, leider kein Erfolg,

Forfiles.exe aus Win7 32bit bzw 64 bit läuft nicht unter Win XP.
Obige tools beinhalteten keine forfiles.exe


Habe hier noch eine original windows server 2003 cd (nie installiert) soll auch forfiles.exe beinhalten.
Wie kann man es jedoch aus der CD extrahieren ohne win server 2003 zu installieren?

Gruß aus Kiel

Johnny

[DrYES]

Hallo Zusammen,

könnte noch eine aktuelle Version von
TmDocExportVersion2.zip

gepostet werden.

Vielen Dank

YD