x.comfort - Befundauskunft via GDT + Batch Skript
Um über einen Button die Befundauskunft Funktion zu implementieren, müssen zunächst zwei INI Files angepasst, bzw. erstellt werden.
Die INI Files liegen im Ordner "C:\DOC2\user\USER1\" und heißen "degexport.ini" und "docfest.ini".
Erweitern Sie die degedport.ini um folgenden Inhalt:
[Befundauskunft]
Titel=labGate Befundauskunft
Exe=C:\AIS\befundauskunft.bat
CallExe=C:\AIS\befundauskunft.bat
GDTDatei=C:\AIS\OUT\pat.gdt
PollDir=C:\AIS\OUT
Satzart=6302
Call=6310
Typ=DA
InternePatNr=1
USEDOS=1
Erweitern Sie die docfest.ini um folgenden Inhalt zur Befundauskunft:
[Extern]
AnzRec=2
Rec1=labGate Rueckimport, C:\AIS\addpatid.bat
Rec2=labGate Befundauskunft, C:\doc2\prog\wprog\rungdt.exe /k:Befundauskunft /s:1
Als nächstes wird das Batch Skript an einen lokalen Ort (wo jeder User Rechte hat zB. unter C:\AIS\ ) abgelegt.
Das Skript selber kann hier heruntergeladen werden.
Vor der Ausführung des Skriptes muss das benötigte Netzlaufwerk (userbezogen) eingerichtet werden.
Eine Anleitung zur Einrichtung eines userbezogenen Netzlaufwerkes gibt es hier.
@echo off & setlocal EnableDelayedExpansion
set patgdtDatei=C:\AIS\OUT\pat.gdt
set labgateWebsite=https://demo.labgate.net
for /f "delims=*" %%i in ('findstr /r . "%patgdtDatei%"') do (
set zeile=%%i
set feldkennung=!zeile:~3,4!
set inhalt=!zeile:~7!
if /i "!feldkennung!" EQU "3101" set nachname=!inhalt!
if /i "!feldkennung!" EQU "3102" set vorname=!inhalt!
if /i "!feldkennung!" EQU "3103" set geburtsdatum=!inhalt!
)
set geburtsdatum=%geburtsdatum:~,2%.%geburtsdatum:~2,2%.%geburtsdatum:~4,4%
set nachname=%nachname: =+%
set vorname=%vorname: =+%
del /f /q "%patgdtDatei%"
set weblink=%labgateWebsite%/Order/ListOpen?query=%nachname%"%%2C+"%vorname%"+"%geburtsdatum%
start "" %weblink%
Um die Befundauskunft zu starten, wechseln sie in eine beliebige Karteikarte und drücken "F6" zum Aufruf der eben eingerichteten "externen Programme".