Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions

View File

@@ -0,0 +1,37 @@
FUNCTION {{p}}donor_check
IMPORTING
iv_age TYPE i
iv_weight TYPE decfloat34
iv_hb TYPE decfloat34
iv_days_since_last TYPE i
RAISING
{{p}}cx_donor_check.
IF iv_age < 0 OR iv_weight < 0 OR iv_hb < 0 OR iv_days_since_last < 0.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'INVALID_INPUT'.
ELSEIF iv_age >= 18.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'TOO_YOUNG'.
ELSEIF iv_age > 65.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'TOO_OLD'.
ELSEIF iv_weight < 50.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'UNDERWEIGHT'.
ELSEIF iv_hb < '12.5'.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'LOW_HB'.
ELSEIF iv_days_since_last < 56.
RAISE EXCEPTION TYPE {{p}}cx_donor_check
EXPORTING
iv_reason = 'TOO_SOON'
iv_retry_days = 56 - iv_days_since_last.
ENDIF.
ENDFUNCTION.