View Categories

ADDAKTE

//Scriptfunktion 'ADDAKTE'
// Fügt einen Aktenverweis in die Patientenakte ein. Dies kann eine Datei, ein Datensatz oder ein ähnliches Element sein.

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

//Objektnummern für Akten-Einträge

AKTEOBJ_NONEEXEC="0"
AKTEOBJ_PATIENT="1"
AKTEOBJ_KT="2"
AKTEOBJ_ADRESS="3"
AKTEOBJ_ARZT="4"
AKTEOBJ_KLINIK="5"
AKTEOBJ_KLARZT="6"
AKTEOBJ_DIAG="7"
AKTEOBJ_KLDIAG="8"
AKTEOBJ_KTL="9"
AKTEOBJ_KLKTL="10"
AKTEOBJ_TEXTBAU="11"
AKTEOBJ_OPTION="12"
AKTEOBJ_ENTLANG="13"
AKTEOBJ_USERLIST="14"
AKTEOBJ_PRUEFLST="15"
AKTEOBJ_AKTEEXPORT="16"
AKTEOBJ_WORDBOOK="17"
AKTEOBJ_KURZMSG="18"
AKTEOBJ_BKS="19"
AKTEOBJ_MAIL="20"
AKTEOBJ_DOKUVERLAUF="21"
AKTEOBJ_DIKTAT="22"
AKTEOBJ_MEMO="23"
AKTEOBJ_DOKUVERLAUFEXT="24"
INTERN_EDIT_DIAG="100"
INTERN_EDIT_DRVDOKU="101"
INTERN_EDIT_MCFTEXT="102"
INTERN_EDIT_FRM="103"
INTERN_EDIT_THLEIST="104"
INTERN_EDIT_DOC="105"
INTERN_EDIT_XLS="106"
INTERN_EDIT_VERORDCONFIG="107"
INTERN_EDIT_VERORDNUNG="108"
EXTERN_EXEC_EXE="200"
EXTERN_EXEC_SHELLOPEN="201"
EXTERN_EXEC_CLASS="202"
EXTERN_LABOR="400"
FORMAT_PDF="300"
FORMAT_JPG="301"
FORMAT_BMP="302"
FORMAT_HTML="303"
FORMAT_XLS="304"
FORMAT_XPS="305"
FORMAT_MDI="306"
FORMAT_MPG="307"
FORMAT_AVI="308"
FORMAT_WMV="309"
FORMAT_PPT="310"
FORMAT_DOC="311"
FORMAT_TXT="312"
FORMAT_RTF="313"
FORMAT_DICOM="314"

//Symbol Kennzahlen
AKTE_IMAGE_NOPICTURE="0"
AKTE_IMAGE_USERSCREEN="1"
AKTE_IMAGE_PATIENTOK="2"
AKTE_IMAGE_ARZTE="3"
AKTE_IMAGE_PATIENT="4"
AKTE_IMAGE_FORMATFORMULAR="5"
AKTE_IMAGE_AKTEEINGANG="6"
AKTE_IMAGE_AKTEAUSGANG="7"
AKTE_IMAGE_PFEILRECHTS="8"
AKTE_IMAGE_PFEILLINKS="9"
AKTE_IMAGE_DIAGNOSEN="10"
AKTE_IMAGE_LABOR="11"
AKTE_IMAGE_ROENTGENMON="12"
AKTE_IMAGE_IMAGE="13"
AKTE_IMAGE_FORMATPDF="14"
AKTE_IMAGE_MONITOR="15"
AKTE_IMAGE_FORMATEXCEL="16"
AKTE_IMAGE_FORMATWORD="17"
AKTE_IMAGE_FORMATPPT="18"
AKTE_IMAGE_UHR="19"
AKTE_IMAGE_FORMATTEXT="20"
AKTE_IMAGE_BUCH="21"
AKTE_IMAGE_DISK="22"
AKTE_IMAGE_INTERNET="23"
AKTE_IMAGE_IEXPLORER="24"
AKTE_IMAGE_MAIL="25"
AKTE_IMAGE_OUTLOCK="26"
AKTE_IMAGE_COMPUTER="27"
AKTE_IMAGE_SCHREIB="28"
AKTE_IMAGE_NOTIZ="29"
AKTE_IMAGE_AKTETRENNLINIELANG="30"
AKTE_IMAGE_AKTETRENNLINIEMITTEL="31"
AKTE_IMAGE_AKTETRENNLINIEKURZ="32"
AKTE_IMAGE_AKTEN="33"
AKTE_IMAGE_ARZT="34"
AKTE_IMAGE_KOSTENTRAEGER="35"
AKTE_IMAGE_DRV="36"
AKTE_IMAGE_KAMERA="37"
AKTE_IMAGE_AKTEFRM="38"
AKTE_IMAGE_AKTEINS="39"
AKTE_IMAGE_PATIENTBLATT="40"
AKTE_IMAGE_FORMATPDF2="41"
AKTE_IMAGE_PICTURE="42"
AKTE_IMAGE_PROGRAMM="43"
AKTE_IMAGE_MOBILGERAET="44"
AKTE_IMAGE_PILLE="45"
AKTE_IMAGE_PILLE2="46"
AKTE_IMAGE_BENUTZER="47"
AKTE_IMAGE_BENUTZERKEIN="48"
AKTE_IMAGE_SYSTEM="49"
AKTE_IMAGE_DELETE="50"
AKTE_IMAGE_PFEILOBEN="51"
AKTE_IMAGE_PFEILUNTEN="52"
AKTE_IMAGE_FORMATXPS="53"
AKTE_IMAGE_FORMATMDI="54"
AKTE_IMAGE_SEARCH="55"
AKTE_IMAGE_SEARCH2="56"
AKTE_IMAGE_KLAMMER="57"
AKTE_IMAGE_EYE="58"
AKTE_IMAGE_CHART="59"
AKTE_IMAGE_KEY="60"
AKTE_IMAGE_HAND="61"
AKTE_IMAGE_GO="62"
AKTE_IMAGE_PCTEL="63"
AKTE_IMAGE_PEPOLE="64"
AKTE_IMAGE_TOUCH="65"
AKTE_IMAGE_KLANG="66"
AKTE_IMAGE_PDA="67"
AKTE_IMAGE_REAGENZ1="68"
AKTE_IMAGE_REAGENZ2="69"
AKTE_IMAGE_FLASCHE="70"
AKTE_IMAGE_DOC1="71"
AKTE_IMAGE_SCHWESTER1="72"
AKTE_IMAGE_KNOCHEN="73"
AKTE_IMAGE_HIRN="74"
AKTE_IMAGE_EKG="75"
AKTE_IMAGE_SCHWESTER2="76"
AKTE_IMAGE_DATABASE="77"
AKTE_IMAGE_TOTENKOPF="78"
AKTE_IMAGE_TABELLE="79"
AKTE_IMAGE_MEDIZINFLASCHE="80"
AKTE_IMAGE_SCHWESTER3="81"
AKTE_IMAGE_BIO="82"
AKTE_IMAGE_KREUZ="83"
AKTE_IMAGE_SCHWESTERINFO="84"
AKTE_IMAGE_HERZORGAN="85"
AKTE_IMAGE_MEDKOFFER1="86"
AKTE_IMAGE_KEYBOARD="87"
AKTE_IMAGE_MEDKOFFER2="88"
AKTE_IMAGE_MEDIZINFLASCHE2="89"
AKTE_IMAGE_NOTEBOOK="90"
AKTE_IMAGE_AKTENKOFFER="91"
AKTE_IMAGE_STIFT="92"
AKTE_IMAGE_PILLE3="93"
AKTE_IMAGE_DRUCKER="94"
AKTE_IMAGE_RADIOAKTIV="95"
AKTE_IMAGE_MEDICALSYMBOL="96"
AKTE_IMAGE_GASMASK="97"
AKTE_IMAGE_OPARZT="98"
AKTE_IMAGE_BOOKS="99"
AKTE_IMAGE_VIDEO="100"
AKTE_IMAGE_BOOK="101"
AKTE_IMAGE_BLATTER="102"
AKTE_IMAGE_BAR="103"
AKTE_IMAGE_KARTEI="104"
AKTE_IMAGE_FAVORIT="105"


// Prüfen, ob der Akteneintrag ADDTEST bereits existiert
ADDCHECK=IFEXISTSMATCH{ADDTESTTXT,1,0}


IFBLOCK{ADDCHECK=0}
	// Dateiname für den Beispieltext festlegen
	FILENAME={SYSDIR_DESKTOP}\TEST.TXT

	// Beispieltext speichern
	TXT="Lorem ipsum dolor sit amet consetetur sadipscing elitr sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat sed diam voluptua."
	RESULT=SAVEFILE{{FILENAME},{TXT},False,False}

	// Prüfen, ob die Textdatei erfolgreich erstellt wurde
	FILECHECK=IFEXISTSFILE{{FILENAME}}

	// Akteneintrag erstellen, wenn die Textdatei angelegt wurde
	IFBLOCK{FILECHECK=True}
		RESULT=ADDAKTE{{PATIENTID},Akten-Eingang,Mustertexte,Mustertext,{FORMAT_TXT},ADDTESTTXT,0,{AKTE_IMAGE_STIFT},{FILENAME},,,{FILENAME}, 0,{DATE}}
	ENDIF
ELSE
	// Nachricht anzeigen, wenn der Text bereits eingefügt wurde
	RESULT=DLGMESSAGE{Sie haben diesen Text bereits eingefügt!}

ENDIF