SAVEQRCODE

//Scriptfunktion 'SAVEQRCODE'
//Speichert den in Textstring übergebenen Inhalt in der unter Bilddateiname angegebenen Datei als QR-Code Bild.
//Die Datei wird vom Typ ".BMP" (Windows Bitmap) gespeichert. Die Dateiendung wird nicht automatisch angehangen.

//Wenn kein Patient ausgewählt ist wird das Script verlassen
DUMMYVAR=IFNOVAREXIT{Patientid}

//QR-Code Beispiel
// Dieses Beispiel prüft ob ein QR-Code in einem Verzeichniss existiert
// und legt diesen wenn nicht vorhanden an
IFBLOCK{AKTMATCHCODE=}
	//SystemVariable die nur in MC Verfügbar ist füllen wenn diese leer ist
	AKTMATCHCODE="PATVIEW"
ENDIF
QRFILENAME={APPPATH}\PATIENTQR\{PATIENTFALLNR}{AKTMATCHCODE}.bmp
CHECK=IFEXISTSFILE{{QRFILENAME}}
IFBLOCK{CHECK=False}
	STAMP=TIMESTAMP{}
	TEMPVAR={PATIENTFALLNR}#{AKTMATCHCODE}#{STAMP}
	CHECKDIR=CREATEDIR{{APPPATH}\PATIENTQR}
	QRCHECK=SAVEQRCODE{{TEMPVAR},{QRFILENAME}}
	IFBLOCK{QRCHECK=True}
		//QR-Code erfolgreich erstellt
		DOKQRCODE=LOADBITMAP{{QRFILENAME}}
	ENDIF
ELSE
	DOKQRCODE=LOADBITMAP{{QRFILENAME}}
ENDIF
RES=EXECUTE{Explorer.exe {QRFILENAME},True}