Screenshot

Der Assistent ermöglicht es für Wirkstoffe festzulegen, ob das aut-idem-Kreuz automatisch gesetzt werden soll. Wenn Sie in die Wirkstoffliste klicken und schnell hintereinander die ersten Buchstaben eintippen, gelangen Sie direkt zu den gewünschten Einträgen.
Zu einzelnen Wirkstoffen lässt sich sogar einstellen, dass die Regel nur für bestimmte Hersteller gelten soll. Auf Wunsch greift jede Regel nur dann, wenn kein kostengünstigeres Medikament existiert oder wenn kein Rabattvertrag mit der Krankenkasse des Patienten besteht.

Hier hilft mein C#-Erstlingswerk «Bewegliche Feiertage». Das Programm berechnet die Daten wählbarer beweglicher Festtage für ein oder mehrere Jahre und erstellt auf Wunsch eine iCalendar-Datei. Diese lässt sich in gängige Kalenderprogramme importieren (Outlook, Thunderbird/Lightning, eM Client, EssentialPIM, Windows Live und andere).

Das Programm kann hier heruntergeladen werden.

# Zweck:  Importiert ISAM-Datenbanken und Oracle-Dump in eine bestehende
#         MEDISTAR-Installation. Vorhandene Daten werden überschrieben.
 
$DumpFolder = "T:\Sicherung"
$Password = "XXXXXXXX"
$DumpFile = "ORACLE_EXP.DMP"
$MediStar = "${env:MEDISTARDIR}"
 
$ErrorActionPreference = "SilentlyContinue"
$Host.UI.RawUI.WindowTitle = "Wiederherstellung der MEDISTAR-SQL-Sicherung"
 
Function Script-Exit {param([string]$Msg, $Sec) "`n";
  For ($Sec; $Sec -ge 0; $Sec --)
    {Write-Host "`r$Msg Skript wird beendet ($Sec)" -NoNewline;
    Start-Sleep 1}; Exit}
 
If (!(Test-Path -path $DumpFolder\$DumpFile)) {
  # 16 = Desktop, 17 = Computer, 18 = Netz
  $DumpFolder = 17; $Description = "Bitte wählen Sie den Ordner aus,`n" + `
  "der die Datei $DumpFile enthält."}
Else {$Description = "$DumpFile befindet sich im Ordner $DumpFolder.`n" + `
  "Sie können den Import starten. Klicken Sie auf OK."}
$Object = New-Object -comObject Shell.Application
$Folder = $Object.BrowseForFolder(0, $Description, "&H200", $DumpFolder)
If ($Folder -eq $null) {Script-Exit -Msg "Abbruch durch Benutzter." -Sec 3}
Else {$DumpFolder = $Folder.Self.Path; Write-Host "DumpFolder: $DumpFolder"}
If (!(Test-Path -path $DumpFolder\$DumpFile))
  {Script-Exit -Msg "$DumpFile nicht gefunden!" -Sec 3}
Else {Write-Host "$DumpFile gefunden."}
 
$Message = "Beim Restore werden die vorhandenen Daten gelöscht!"
$Object = New-Object -comObject wscript.shell
$Result = $Object.Popup($Message, 0, $myInvocation.MyCommand.Name, 1)
If ($Result -eq 2) {Script-Exit -Msg "Abbruch durch Benutzter." -Sec 3}
 
$CopyFrom = Get-Childitem $DumpFolder | where {$_.psIsContainer -eq $true}
ForEach ($Item in $CopyFrom) {
  $Item = -join ($DumpFolder, "\", $Item, "\*.*")
  $Folder = Split-Path (Split-Path $Item) -leaf
  If (Test-Path "$MediStar\$Folder") {
    Copy-Item -path $Item -dest $MediStar\$Folder -force -passthru}}
 
$SqlFile = "${env:temp}\Temp.sql"
@"
drop user msuser cascade;
commit;
CREATE or REPLACE DIRECTORY imp_dir AS '$DumpFolder';
exit;
"@ | Set-Content $SqlFile
sqlplus sys/$Password as sysdba '@'$SqlFile
 
impdp system/$Password directory=imp_dir dumpfile=$DumpFile full=yes `
logfile=imp_medistar.log
 
"shutdown immediate;", "startup;", "exit;" -join "`n" | Set-Content $SqlFile
sqlplus sys/$Password as sysdba '@'$SqlFile
 
Remove-Item -Path $SqlFile
Write-Host "Fertig. $DumpFolder\imp_medistar.log wird gestartet."
Invoke-Expression $DumpFolder\imp_medistar.log

Sie können die Datei auch herunterladen.

• Treiber von CD installieren
• Lesegerät anstecken (USB-A, Stromversorgung)
• Angezeigten Port merken (z.B. COM4)
• In MEDISTAR Befehl «IDN», Schnittstelle: CRO eintragen
• In MEDISTAR Befehl «IMKT», Port eintragen (z.B. 4)
• Die MEDISTAR-Konfiguration muss für jeden Task erfolgen!

Festlegung Dateinamen

Kartenterminal konfigurieren

Am besten wird die Datenbank vor dem Shutdown sauber heruntergefahren – das beschleunigt den späteren  Neustart!

Mit Hilfe eines Powershell-Skripts lässt sich der Vorgang automatisieren.

Wenn das Skript nicht startet, müssen Sie die Ausführungsrichtlinien anpassen.

Mozillas Browser startet im Vergleich zu Googles Chrome träger. Mit folgendem Workaround lässt sich dieses Manko beseitigen:
Mit Hilfe von QuickKey wird der Browser automatisch bereits beim Rechnerstart geöffnet und sogleich in den Infobereich der Taskleiste minimiert. Damit das funktioniert, muss die Erweiterung «MinimizeToTray revived» installiert sein. Der Browser kann dann jederzeit über die Tastenkombination <Strg+Alt+F> oder durch einen Mausklick auf das Icon im Tray aufgerufen werden. Das erwähnte AddOn bringt einen Button mit, um Firefox erneut ins Tray zu schicken (1.).
Damit Firefox nicht aus Versehen beendet wird, lässt sich in QuickKey einstellen, dass der Schließen-Button in der Titelleiste deaktiviert wird (2.).
Nach mehrfacher Nutzung des Browsers ergibt sich eine größere Zahl geöffneter Tabs, die normalerweise durch das Beenden von Firefox geschlossen werden. Da der Browser geöffnet bleiben soll, verwende ich für das Schließen der Tabs die Erweiterung «Close All Tabs (Reloaded)»(3.).

Übrigens funktioniert das Procedere auch hervorragend mit Thunderbird.

Das folgende VB-Skript ermöglicht von einem beliebigen PC aus zu prüfen, ob es geöffnete Tasks im Netzwerk gibt. Dazu versucht es, die Datei «psync.ism» zu kopieren. Solange ein Task geöffnet ist, wird der Zugriff verweigert.

'Bitte in nachfolgender Zeile den Pfad anpassen.
testFile = "\\Server\d%\MEDISTAR\PDATEN\PSYNC.ISM"
strInfo = "Prüfung auf offene MEDISTAR-Tasks"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If objFS.FileExists(testFile) Then
  Set objFile = objFS.GetFile(testFile)
  objFile.Copy(Left(objFile.Path,InStrRev(objFile.Path, "\")) & "PSYNC.BAK")
  If Err.Number > 0 Then  'Zugriff verweigert'
    MsgBox "Es ist noch mindestens ein Task geöffnet!", 48, strInfo
  Else
    WshShell.Popup "MEDISTAR wurde überall beendet.", 3, strInfo
  End If
Else
  MsgBox testFile & vbCrLf & "Die Datei wurde nicht gefunden.", 16, strInfo
End If

Kennen Sie eine andere Möglichkeit?

Man ist also selbst dafür verantwortlich, dass diese Dateien auf einem anderen Medium gesichert werden. Das lässt sich mit Windows-Bordmitteln ein­rich­ten. Hierzu lassen wir z.B. auf einem Arbeitsplatz-PC eine Batch-Datei laufen, die an jedem Wochentag einen anderen Ordner für die Sicherung verwendet.

Wenn die Batchdatei richtig eingerichtet ist, wollen wir das DOS-Fenster nicht mehr sehen – wir bekommen ja nach erfolgter Datensicherung die Logdatei angezeigt. Aus diesem Grund starten wir die Batchdatei ohne sichtbares Fenster mit einem kleinen VB-Skript.

Der dritte Schritt besteht darin, dass die Datensicherung täglich 10 oder 15 Minuten nach der Backup-Erstellung durch den MEDISTAR-Backup-Dienst mit Hilfe der Windows-Aufgabenplanung automatisch startet. Damit das VB-Skript die Batchdatei findet, muss unter «Starten in (optional)» der Pfad angegeben werden. Administratorrechte («mit höchsten Privilegien») sind erforderlich.

Weitere Informationen zu robocopy finden Sie hier.

Um zwischen Duplexfunktion und einfachem Ausdruck schnell wechseln zu können, empfiehlt es sich den Drucker auf allen Arbeitsplätzen zweimal zu installieren. Anschließend wird die Voreinstellung bei einem Drucker auf «Duplex» und bei dem anderen auf «Einfach» gestellt.