/*\n * CervicalCancerFollowUpDecision\n *\n * Follow-up scheduling logic for cervical cancer screening CDS,\n * implementing WHO guideline post-treatment and post-triage-negative\n * follow-up intervals.\n *\n * This library determines:\n * - Post-treatment follow-up timing (12 months for both populations)\n * - Post-triage-negative follow-up timing (12 months WLHIV, 24 months general)\n * - WLHIV double follow-up tracking (second retest at 12 months after first)\n * - Return-to-routine-screening criteria\n * - Re-entry to triage/treatment if follow-up HPV test is positive\n *\n * Follow-up Cascades:\n *\n * Post-Treatment (both populations):\n * Treated → 12 months → HPV retest\n * ├── Negative (general) → return to routine screening (5-10 years)\n * ├── Negative (WLHIV) → second retest at 12 months\n * │ ├── Negative → return to routine screening (3-5 years)\n * │ └── Positive → re-enter triage/treatment\n * └── Positive → re-enter triage/treatment\n *\n * Post-Triage-Negative:\n * HPV+ but VIA- → retest at 12 months (WLHIV) or 24 months (general)\n * ├── Negative → return to routine screening\n * └── Positive → re-enter triage\n *\n * WHO Recommendations covered:\n * General: 11 (post-triage-negative retest at 24mo), 12 (post-colp-normal), 13 (post-treatment 12mo)\n * WLHIV: 31 (post-triage-negative retest at 12mo), 32 (post-colp-normal), 33 (post-treatment double)\n *\n * @author Dan Heslinga / Hopena Health\n * @version 0.1.0\n * @date 2026-03-08\n */\n\nlibrary CervicalCancerFollowUpDecision version '0.1.0'\n\nusing FHIR version '4.0.1'\n\ninclude FHIRHelpers version '4.0.1'\ninclude CervicalCancerScreeningCommon version '0.1.0' called Common\n\ncontext Patient\n\n/*\n * =============================================================================\n * POST-TREATMENT FOLLOW-UP\n * =============================================================================\n *\n * @guidance WHO Rec 13/33: Retest with HPV DNA at 12 months post-treatment\n * WLHIV Rec 33: If negative, retest again at 12 months (double follow-up)\n */\n\n/*\n * @output Boolean — true if patient has been treated and is in the follow-up window\n * @pseudocode Treated within the last 24 months (covers both single and double follow-up)\n */\ndefine \"Is In Post Treatment Follow Up Window\":\n Common.\"Has Been Treated\"\n and Common.\"Months Since Treatment\" is not null\n and Common.\"Months Since Treatment\" < 24\n\n/*\n * @output Integer — months since most recent treatment\n */\ndefine \"Months Since Treatment\":\n Common.\"Months Since Treatment\"\n\n/*\n * @output Boolean — true if the 12-month post-treatment HPV retest is due\n * @pseudocode Treated AND >= 12 months elapsed AND no HPV test after treatment\n */\ndefine \"Post Treatment Retest Is Due\":\n Common.\"Has Been Treated\"\n and Common.\"Months Since Treatment\" >= Common.\"Post Treatment Retest Months\"\n and not \"Has HPV Test After Treatment\"\n\n/*\n * @output Boolean — true if the 12-month retest is approaching (within 2 months)\n * @pseudocode Treated AND 10-12 months elapsed AND no HPV test after treatment\n * @guidance Use this for early reminders to schedule the follow-up visit\n */\ndefine \"Post Treatment Retest Is Approaching\":\n Common.\"Has Been Treated\"\n and Common.\"Months Since Treatment\" >= (Common.\"Post Treatment Retest Months\" - 2)\n and Common.\"Months Since Treatment\" < Common.\"Post Treatment Retest Months\"\n and not \"Has HPV Test After Treatment\"\n\n/*\n * @output Boolean — true if an HPV DNA test was performed after the most recent treatment\n */\ndefine \"Has HPV Test After Treatment\":\n Common.\"Has Been Treated\"\n and Common.\"Has Ever Been Screened With HPV\"\n and Common.\"Date Of Most Recent HPV Test\" after Common.\"Date Of Most Recent Treatment\"\n\n/*\n * @output Boolean — true if the post-treatment HPV retest was negative\n */\ndefine \"Post Treatment Retest Is Negative\":\n \"Has HPV Test After Treatment\"\n and not Common.\"Most Recent HPV Test Is Positive\"\n\n/*\n * @output Boolean — true if the post-treatment HPV retest was positive\n * @guidance Positive → re-enter triage/treatment pathway\n */\ndefine \"Post Treatment Retest Is Positive\":\n \"Has HPV Test After Treatment\"\n and Common.\"Most Recent HPV Test Is Positive\"\n\n/*\n * =============================================================================\n * WLHIV DOUBLE FOLLOW-UP\n * =============================================================================\n *\n * @guidance WHO Rec 33: WLHIV should have TWO consecutive negative HPV tests\n * at 12-month intervals after treatment before returning to routine\n * screening. This is because WLHIV have higher rates of persistent\n * HPV infection and recurrence.\n *\n * Logic:\n * Treatment → 12mo → HPV retest #1\n * ├── Negative → 12 more months → HPV retest #2\n * │ ├── Negative → return to routine (3-5 year interval)\n * │ └── Positive → re-enter triage/treatment\n * └── Positive → re-enter triage/treatment\n */\n\n/*\n * @output Boolean — true if patient is WLHIV requiring double follow-up\n */\ndefine \"Requires Double Follow Up\":\n Common.\"Is WLHIV\"\n and Common.\"Has Been Treated\"\n\n/*\n * @output Integer — how many HPV tests have been done since the most recent treatment\n * @pseudocode Count of HPV DNA tests with effectiveDateTime after treatment date\n */\ndefine \"HPV Tests Since Treatment Count\":\n if not Common.\"Has Been Treated\"\n then 0\n else Count(\n Common.\"HPV DNA Test Results\" O\n where (O.effective as FHIR.dateTime).value after Common.\"Date Of Most Recent Treatment\"\n )\n\n/*\n * @output Boolean — true if WLHIV has had first post-treatment negative test\n * but second test is not yet done\n * @pseudocode WLHIV AND treated AND exactly 1 post-treatment HPV test AND it was negative\n */\ndefine \"WLHIV Needs Second Follow Up Test\":\n \"Requires Double Follow Up\"\n and \"HPV Tests Since Treatment Count\" = 1\n and not Common.\"Most Recent HPV Test Is Positive\"\n\n/*\n * @output Boolean — true if WLHIV second follow-up test is due (12 months after first post-tx test)\n * @pseudocode WLHIV AND needs second test AND >= 12 months since the first post-treatment test\n */\ndefine \"WLHIV Second Follow Up Test Is Due\":\n \"WLHIV Needs Second Follow Up Test\"\n and months between Common.\"Date Of Most Recent HPV Test\" and Today() >= 12\n\n/*\n * @output Boolean — true if WLHIV has completed both follow-up tests with negative results\n * @pseudocode WLHIV AND treated AND >= 2 post-treatment HPV tests AND most recent is negative\n */\ndefine \"WLHIV Double Follow Up Complete\":\n \"Requires Double Follow Up\"\n and \"HPV Tests Since Treatment Count\" >= 2\n and not Common.\"Most Recent HPV Test Is Positive\"\n\n/*\n * =============================================================================\n * POST-TRIAGE-NEGATIVE FOLLOW-UP\n * =============================================================================\n *\n * @guidance WHO Rec 11 (general): HPV+/VIA- → retest at 24 months\n * WHO Rec 31 (WLHIV): HPV+/VIA- → retest at 12 months\n */\n\n/*\n * @output Boolean — true if patient is in post-triage-negative follow-up\n * @pseudocode HPV+ AND VIA- AND VIA was after HPV test\n */\ndefine \"Is Post Triage Negative\":\n Common.\"Most Recent HPV Test Is Positive\"\n and not Common.\"Most Recent VIA Is Positive\"\n and exists(Common.\"VIA Screening Results\")\n and Common.\"Date Of Most Recent VIA\" on or after Common.\"Date Of Most Recent HPV Test\"\n and not Common.\"Has Been Treated\"\n\n/*\n * @output Integer — months since the triage-negative VIA result\n */\ndefine \"Months Since Triage Negative VIA\":\n if \"Is Post Triage Negative\"\n then months between Common.\"Date Of Most Recent VIA\" and Today()\n else null\n\n/*\n * @output Boolean — true if the post-triage-negative HPV retest is due\n * @pseudocode Triage-negative AND months elapsed >= retest interval (12 or 24)\n */\ndefine \"Post Triage Negative Retest Is Due\":\n \"Is Post Triage Negative\"\n and \"Months Since Triage Negative VIA\" >= Common.\"Post Triage Negative Retest Months\"\n\n/*\n * @output Boolean — true if the post-triage-negative retest is approaching (within 2 months)\n */\ndefine \"Post Triage Negative Retest Is Approaching\":\n \"Is Post Triage Negative\"\n and \"Months Since Triage Negative VIA\" >= (Common.\"Post Triage Negative Retest Months\" - 2)\n and \"Months Since Triage Negative VIA\" < Common.\"Post Triage Negative Retest Months\"\n\n/*\n * =============================================================================\n * RETURN TO ROUTINE SCREENING\n * =============================================================================\n *\n * @guidance Patients can return to routine screening interval when:\n * General: post-treatment HPV retest negative → 5-10 year interval\n * WLHIV: two consecutive negative post-treatment HPV retests → 3-5 year interval\n * Both: post-triage-negative HPV retest negative → routine interval\n */\n\n/*\n * @output Boolean — true if patient can return to routine screening\n * @pseudocode\n * (Post-treatment, general pop, retest negative) OR\n * (Post-treatment, WLHIV, double follow-up complete) OR\n * (Post-triage-negative retest was done and was negative)\n */\ndefine \"Can Return To Routine Screening\":\n // General population: single negative post-treatment test\n (Common.\"Has Been Treated\"\n and not Common.\"Is WLHIV\"\n and \"Post Treatment Retest Is Negative\")\n or\n // WLHIV: double follow-up complete\n \"WLHIV Double Follow Up Complete\"\n\n/*\n * =============================================================================\n * RECOMMENDED ACTION — Follow-up-specific guidance\n * =============================================================================\n */\n\n/*\n * @output String — the recommended follow-up action\n */\ndefine \"Follow Up Recommended Action\":\n case\n // Post-treatment: retest was positive → re-enter screening cascade\n when \"Post Treatment Retest Is Positive\"\n then 'Post-treatment HPV retest is POSITIVE — re-enter triage/treatment pathway'\n\n // WLHIV: double follow-up complete → return to routine\n when \"WLHIV Double Follow Up Complete\"\n then 'Two consecutive negative HPV tests after treatment — return to routine screening every '\n + ToString(Common.\"Screening Interval Years\") + ' years'\n\n // General pop: post-treatment retest negative → return to routine\n when \"Post Treatment Retest Is Negative\" and not Common.\"Is WLHIV\"\n then 'Post-treatment HPV retest is negative — return to routine screening every '\n + ToString(Common.\"Screening Interval Years\") + ' years'\n\n // WLHIV: first post-treatment test negative, second test due\n when \"WLHIV Second Follow Up Test Is Due\"\n then 'First post-treatment HPV retest was negative — second retest now due (WLHIV double follow-up)'\n\n // WLHIV: first post-treatment test negative, waiting for second\n when \"WLHIV Needs Second Follow Up Test\"\n then 'First post-treatment HPV retest was negative — schedule second retest in '\n + ToString(12 - (months between Common.\"Date Of Most Recent HPV Test\" and Today()))\n + ' months (WLHIV double follow-up)'\n\n // Post-treatment: retest is due\n when \"Post Treatment Retest Is Due\"\n then 'Post-treatment HPV DNA retest is due (12 months post-treatment)'\n\n // Post-treatment: retest approaching\n when \"Post Treatment Retest Is Approaching\"\n then 'Post-treatment HPV DNA retest approaching — due in '\n + ToString(Common.\"Post Treatment Retest Months\" - Common.\"Months Since Treatment\")\n + ' months'\n\n // Post-treatment: waiting for retest interval\n when \"Is In Post Treatment Follow Up Window\" and not \"Has HPV Test After Treatment\"\n then 'Post-treatment — HPV DNA retest scheduled at 12 months. '\n + ToString(Common.\"Post Treatment Retest Months\" - Common.\"Months Since Treatment\")\n + ' months remaining'\n\n // Post-triage-negative: retest due\n when \"Post Triage Negative Retest Is Due\"\n then 'Post-triage-negative HPV DNA retest is due'\n\n // Post-triage-negative: retest approaching\n when \"Post Triage Negative Retest Is Approaching\"\n then 'Post-triage-negative HPV DNA retest approaching — due in '\n + ToString(Common.\"Post Triage Negative Retest Months\" - \"Months Since Triage Negative VIA\")\n + ' months'\n\n // Post-triage-negative: waiting\n when \"Is Post Triage Negative\"\n then 'HPV-positive but VIA-negative — HPV DNA retest in '\n + ToString(Common.\"Post Triage Negative Retest Months\" - \"Months Since Triage Negative VIA\")\n + ' months'\n\n else 'No follow-up action indicated'\n end\n\n/*\n * @output String — coded follow-up status for integration\n */\ndefine \"Follow Up Status\":\n case\n when \"Post Treatment Retest Is Positive\" then 'retest-positive-reenter'\n when \"Can Return To Routine Screening\" then 'return-to-routine'\n when \"WLHIV Second Follow Up Test Is Due\" then 'wlhiv-second-retest-due'\n when \"WLHIV Needs Second Follow Up Test\" then 'wlhiv-awaiting-second-retest'\n when \"Post Treatment Retest Is Due\" then 'post-treatment-retest-due'\n when \"Post Treatment Retest Is Approaching\" then 'post-treatment-retest-approaching'\n when \"Is In Post Treatment Follow Up Window\" then 'post-treatment-waiting'\n when \"Post Triage Negative Retest Is Due\" then 'post-triage-negative-retest-due'\n when \"Post Triage Negative Retest Is Approaching\" then 'post-triage-negative-retest-approaching'\n when \"Is Post Triage Negative\" then 'post-triage-negative-waiting'\n else 'no-follow-up'\n end\n\n/*\n * @output Boolean — overall flag: does this patient have an active follow-up action?\n */\ndefine \"Has Active Follow Up\":\n \"Is In Post Treatment Follow Up Window\"\n or \"Is Post Triage Negative\"\n or \"WLHIV Needs Second Follow Up Test\"\n
|
\n