/*
  Clinical discharge-readiness advisory — complements the IPD-Fin billing clearance
  gate (Account balance / force override). Both remain advisory to the clinician.

  "Discharge Readiness Concerns" when any of:
    - pending lab fulfillment Tasks (requested / accepted / in-progress / received)
    - active IV MedicationRequests
    - active surgical encounter without completed WHO checklist QR
*/
library AtriusDischargeReadiness version '0.1.0'

using FHIR version '4.0.1'
using AtriusIn version '0.1.0'

include FHIRHelpers version '4.4.000' called FHIRHelpers
include AtriusCommon version '0.1.0'

codesystem "SNOMEDCT": 'http://snomed.info/sct'
codesystem "TaskCode": 'http://hl7.org/fhir/CodeSystem/task-code'

valueset "Encounter Inpatient": 'https://atrius.in/fhir/r4/atrius-in/ValueSet/atrius-vs-encounter-inpatient'

code "Surgical procedure": '387713003' from "SNOMEDCT" display 'Surgical procedure'
code "Fulfill": 'fulfill' from "TaskCode" display 'Fulfill the focal request'
code "Intravenous route": '47625008' from "SNOMEDCT" display 'Intravenous route'

context Patient

define "Checklist Questionnaire Url":
  'https://atrius.in/fhir/r4/atrius-in/Questionnaire/surgical-safety-checklist'

define "Active Inpatient Encounters":
  [Encounter: "Encounter Inpatient"] E
    where E.status in { 'arrived', 'triaged', 'in-progress', 'onleave' }

define "Pending Lab Tasks":
  [Task] T
    where T.status in { 'requested', 'received', 'accepted', 'in-progress' }
      and T.intent = 'order'
      and exists (
        "Active Inpatient Encounters" E
          where T.encounter.references(E)
      )

define "Active IV Medication Requests":
  [MedicationRequest] MR
    where MR.status in { 'active', 'on-hold' }
      and MR.intent in { 'order', 'original-order', 'filler-order', 'instance-order' }
      and exists (
        MR.dosageInstruction D
          where D.route ~ "Intravenous route"
      )
      and exists (
        "Active Inpatient Encounters" E
          where MR.encounter.references(E)
      )

define "Active Surgical Encounters":
  [Encounter] E
    where E.status in { 'planned', 'arrived', 'in-progress' }
      and exists (E.type T where T ~ "Surgical procedure")

define "Completed Checklist Responses":
  [QuestionnaireResponse] QR
    where QR.status = 'completed'
      and StartsWith(QR.questionnaire.value, "Checklist Questionnaire Url")
      and exists (
        "Active Surgical Encounters" E
          where QR.encounter.references(E)
      )

define "Incomplete Surgical Checklist":
  exists "Active Surgical Encounters"
    and not exists "Completed Checklist Responses"

define "Has Pending Labs":
  exists "Pending Lab Tasks"

define "Has Active IV Medications":
  exists "Active IV Medication Requests"

define "Discharge Readiness Concerns":
  exists "Active Inpatient Encounters"
    and (
      "Has Pending Labs"
      or "Has Active IV Medications"
      or "Incomplete Surgical Checklist"
    )

Encoded data 

Encoded data