Zitat von Peter Quick am 25. Mai 2025, 15:19 Uhr

Hallo,

ich habe mir in Zusammenarbeit mit ChatGPT ein Skript erstellen lassen, was im Brieftext je nach Alter und Geschlecht die passende Ausgabe wie z.B. 15 Tage altes männliches Neugeborenes oder 7 Wochen alter männlicher Säugling ausgeben soll. Leider führt der Aufruf der Briefschreibung mit einem Testbrief immer zum Absturz der Briefschreibung, also der Brief wird nicht angezeigt. Wo genau liegt der Fehler?

Edit: Nach Bearbeitung stürzt jetzt die interne Briefschreibung nicht ab, es erfolgt aber keine Ausgabe. Also es wird kein Abschlußtext ausgegeben… ????

 

Danke für die Hilfe

 

{PHP}

// Umwandlung des Geburtsdatums in ein DateTime-Objekt
$geburtsdatum = DateTime::createFromFormat(‚d.m.Y‘, {Patient.Geburtsdatum});
$heute = new DateTime();
$diff = $geburtsdatum->diff($heute);
$tage = (int)$heute->diff($geburtsdatum)->format(‚%a‘);

// Alterseinheit berechnen
if ($tage < 14) {
$alterswert = „$tage Tage“;
} elseif ($tage < 56) { // bis 8 Wochen
$wochen = floor($tage / 7);
$alterswert = „$wochen Wochen“;
} elseif ($diff->y < 2) { // bis unter 2 Jahre
$monate = $diff->y * 12 + $diff->m;
$alterswert = „$monate Monate“;
} else {
$jahre = $diff->y;
$alterswert = „$jahre Jahre“;
}

// Altersgruppe bestimmen
if ($tage < 28) {
$altersgruppe = ‚Neugeborenes‘;
} elseif ($tage < 365) {
$altersgruppe = ‚Säugling‘;
} elseif ($diff->y < 6) {
$altersgruppe = ‚Kleinkind‘;
} elseif ($diff->y < 12) {
$altersgruppe = ‚Schulkind‘;
} else {
$altersgruppe = ‚Jugendlicher‘;
}

// Genus (grammatisches Geschlecht der Altersgruppe)
switch ($altersgruppe) {
case ‚Neugeborenes‘:
case ‚Kleinkind‘:
case ‚Schulkind‘: // neutral
$genus = ’neutral‘;
break;
case ‚Säugling‘:
case ‚Jugendlicher‘: // maskulin
$genus = ‚maskulin‘;
break;
default:
$genus = ‚maskulin‘;
}

// Geschlecht des Patienten
$geschlecht = {Patient.Geschlecht};

// Adjektive korrekt setzen
if ($genus === ’neutral‘) {
$altersAdjektiv = ‚altes‘;
$geschlechtsText = ($geschlecht == 1) ? ‚männliches‘ : ‚weibliches‘;
} else {
$altersAdjektiv = ‚alter‘;
$geschlechtsText = ($geschlecht == 1) ? ‚männlicher‘ : ‚weiblicher‘;
}

// Gesamtausgabe
echo „$alterswert $altersAdjektiv $geschlechtsText $altersgruppe“;
{/PHP}

 

So, ich habe jetzt gemerkt, der Code funktiert gut mit php 8 aber nicht mit php 5.6. Also habe ich ihn nochmal auf php 5.6 umschreiben lassen. Aber selbst damit kommt keine Ausgabe… in der PHp Sandbox funktioniert die Ausgabe perfekt. wo genau liegt der Fehler?

Edit 2: Habe gelesen, die Variablen von MO müssen in Anführungszeichen, damit der Wert übernommen wird. Mache ich das, stürzt die Briefschreibung wieder ab…

{PHP}
// Zeitzone setzen
date_default_timezone_set(‚Europe/Berlin‘);

// Beispielwerte für Übergabe (diese ersetzen bei tatsächlicher Verwendung)
$Patient = new stdClass();
$Patient->Geburtsdatum = {Patient.Geburtsdatum}; // TT.MM.JJJJ
$Patient->Geschlecht = {Patient.Geschlecht}; // 1 = männlich, 2 = weiblich

// Geburtsdatum parsen
list($tag, $monat, $jahr) = explode(‚.‘, $Patient->Geburtsdatum);
$geburtsdatum = new DateTime($jahr . ‚-‚ . $monat . ‚-‚ . $tag);
$heute = new DateTime();
$diff = $heute->diff($geburtsdatum);
$tage = floor(($heute->getTimestamp() – $geburtsdatum->getTimestamp()) / 86400);

// Alterseinheit ermitteln
if ($tage < 14) {
$alterswert = $tage . ‚ Tage‘;
} elseif ($tage < 56) {
$wochen = floor($tage / 7);
$alterswert = $wochen . ‚ Wochen‘;
} elseif ($diff->y < 2) {
$monate = $diff->y * 12 + $diff->m;
$alterswert = $monate . ‚ Monate‘;
} else {
$jahre = $diff->y;
$alterswert = $jahre . ‚ Jahre‘;
}

// Altersgruppe bestimmen
if ($tage < 28) {
$altersgruppe = ‚Neugeborenes‘;
} elseif ($tage < 365) {
$altersgruppe = ‚Säugling‘;
} elseif ($diff->y < 6) {
$altersgruppe = ‚Kleinkind‘;
} elseif ($diff->y < 12) {
$altersgruppe = ‚Schulkind‘;
} else {
$altersgruppe = ‚Jugendlicher‘;
}

// Genus (grammatisches Geschlecht) ermitteln
$neutraleGruppen = array(‚Neugeborenes‘, ‚Kleinkind‘, ‚Schulkind‘);
if (in_array($altersgruppe, $neutraleGruppen)) {
$genus = ’neutral‘;
} else {
$genus = ‚maskulin‘;
}

// Geschlechtsspezifische Anpassung
$geschlecht = $Patient->Geschlecht;
if ($genus == ’neutral‘) {
$altersAdjektiv = ‚altes‘;
$geschlechtsText = ($geschlecht == 1) ? ‚männliches‘ : ‚weibliches‘;
} else {
$altersAdjektiv = ‚alter‘;
$geschlechtsText = ($geschlecht == 1) ? ‚männlicher‘ : ‚weiblicher‘;
}

// Ergebnis ausgeben
echo $alterswert . ‚ ‚ . $altersAdjektiv . ‚ ‚ . $geschlechtsText . ‚ ‚ . $altersgruppe;
{/PHP}