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".


  • No labels