SENDMESSAGE

//Scriptfunktion 'SENDMESSAGE'

//Sendet eine TCP/IP-Nachricht an einen oder mehrere MediControl-Benutzer.
//Diese Nachricht erzeugt ein Popup-Fenster beim Empfänger und wird nicht gespeichert.
//Für Nachrichten, die im Nachrichtenbereich gespeichert werden sollen, verwenden Sie bitte SAVEMESSAGE.

//Parameter:
//Titel: Titel der Nachricht.
//Nachricht: Der Nachrichtentext, der versendet wird.
//Empfänger: Liste der Empfänger (Trennung durch Semikolon bei mehreren Empfängern).
//Absender: Optionaler Absendername, falls abweichend.

//Beispiel:
//Wenn kein Patient ausgewählt ist, wird das Script verlassen
MSGTEXT="Das ist eine Nachricht aus dem TEST_SEND Script"
FRAGE=DLGQUESTION{Möchten Sie an mehrere Empfänger senden?}

IFBLOCK{FRAGE=1}
	EMPFAENGER=DLGUSERSELECT{Tester,,Benutzerliste,false,True,True}
	// Wenn der Empfänger nicht leer ist
	// MCSCR ist der aktuelle User-Skript-Editor

	EMPFAENGER={EMPFAENGER};MCSCR
	EMPLIST=REPLACE{{EMPFAENGER},;,}
	EMPLIST=({EMPLIST})
	MSGTEXT={MSGTEXT}{RET}{RET}Empfänger:{RET}{EMPLIST}
	IFBLOCK{AKTE.MATCHCODE!}
		MSGTEXT={MSGTEXT}{RET}OBJEKT:{RET}{AKTE.MATCHCODE}
	ENDIF
	TEST=SENDMESSAGE{Test,{MSGTEXT},{EMPFAENGER},TESTER}
ELSE
	EMPFAENGER="MCSCR"
	TEST=SENDMESSAGE{Test,{MSGTEXT},{EMPFAENGER},TESTER}
ENDIF