Generated Narrative: StructureMap ExtractInpatientWardRoundNote
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractInpatientWardRoundNote'\r\n/// name = 'ExtractInpatientWardRoundNote'\r\n/// title = 'Inpatient Ward Round Note Extraction'\r\n/// status = 'active'\r\n/// description = 'Turns a response to the inpatient ward round into a Composition with a section per heading, one attester per clinician who was on the round, and a Task carrying the jobs the round left for the team. The jobs item is a single free-text block, so it becomes a single Task: splitting it would invent boundaries the writer did not draw. Making it several Tasks means first making the form item repeat.'\r\n\r\nuses "http://hl7.org/fhir/StructureDefinition/QuestionnaireResponse" alias QR as source\r\nuses "http://hl7.org/fhir/StructureDefinition/Bundle" alias Bundle as target\r\nuses "http://hl7.org/fhir/StructureDefinition/Composition" alias Composition as target\r\nuses "http://hl7.org/fhir/StructureDefinition/Task" alias Task as target\r\n\r\ngroup ExtractInpatientWardRoundNote(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n qr -> bundle.entry as entry, entry.resource = create('Composition') as comp then {\r\n qr -> comp, entry then BuildNoteBase(qr, comp, entry) "noteBase";\r\n qr -> comp.name = 'InpatientWardRoundNote' "noteName";\r\n qr -> comp.title = 'Ward round' "noteTitle";\r\n qr -> comp.type as ty then {\r\n qr -> ty.coding as sghi then {\r\n qr -> sghi.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/inpatient-document-type-codesystem' "sghiSystem";\r\n qr -> sghi.code = 'ward-round-note' "sghiCode";\r\n qr -> sghi.display = 'Ward round' "sghiDisplay";\r\n } "sghiCoding";\r\n qr -> ty.text = 'Ward round' "typeText";\r\n } "noteType";\r\n // Everyone on the round attests the note. The item repeats, so this yields\r\n // one attester per clinician picked.\r\n qr.item as itP where (linkId = 'present') then {\r\n itP.answer as aP then {\r\n aP.value as pv -> comp.attester as att then {\r\n aP -> att.mode as mode then {\r\n aP -> mode.coding as modec then {\r\n aP -> modec.system = 'http://hl7.org/fhir/composition-attestation-mode' "attModeSystem";\r\n aP -> modec.code = 'professional' "attModeCode";\r\n aP -> modec.display = 'Professional' "attModeDisplay";\r\n } "attModeCoding";\r\n } "attesterMode";\r\n qr.authored as t -> att.time = t "attesterTime";\r\n pv -> att.party = pv "attesterParty";\r\n } "attester";\r\n } "presentAnswer";\r\n } "presentRule";\r\n qr.item as it where ((linkId = 'findings') and answer.value.exists()) -> comp.section as sec then {\r\n it -> sec.title = 'Findings' "findingsTitle";\r\n it -> sec then AddSectionText(it, sec) "findingsText";\r\n } "findingsRule";\r\n qr.item as it where ((linkId = 'decisions') and answer.value.exists()) -> comp.section as sec then {\r\n it -> sec.title = 'Decisions' "decisionsTitle";\r\n it -> sec then AddSectionText(it, sec) "decisionsText";\r\n } "decisionsRule";\r\n qr.item as it where ((linkId = 'jobs') and answer.value.exists()) -> comp.section as sec then {\r\n it -> sec.title = 'Jobs for the team' "jobsTitle";\r\n it -> sec then AddSectionText(it, sec) "jobsText";\r\n } "jobsSectionRule";\r\n } "composition";\r\n // The jobs are also actionable work, so they leave the document as a Task the\r\n // ward can pick up and close.\r\n qr.item as itJ where ((linkId = 'jobs') and answer.value.exists()) then {\r\n itJ.answer first as aJ then {\r\n aJ -> bundle.entry as entryT, entryT.resource = create('Task') as task then {\r\n qr -> task.id = uuid() then SetTaskFullUrl(task, entryT) "idAndFullUrl";\r\n qr -> entryT.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'Task' "requestUrl";\r\n } "entryRequest";\r\n qr -> task.status = 'requested' "status";\r\n qr -> task.intent = 'order' "intent";\r\n qr -> task.priority = 'routine' "priority";\r\n qr -> task.code as code then {\r\n qr -> code.coding as coding then {\r\n qr -> coding.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/inpatient-clinical-concept-codesystem' "codeSystem";\r\n qr -> coding.code = 'ward-round-job' "codeCode";\r\n qr -> coding.display = 'Job for the team from a ward round' "codeDisplay";\r\n } "codeCoding";\r\n } "taskCode";\r\n aJ.value as v -> task.description = v "description";\r\n qr.subject as s -> task.for = s "for";\r\n qr.encounter as e -> task.encounter = e;\r\n qr.authored as t -> task.authoredOn = t "authoredOn";\r\n qr.authored as t -> task.lastModified = t "lastModified";\r\n qr.author as a -> task.requester = a "requesterFromAuthor";\r\n qr where (author.exists().not()) then {\r\n qr.source as src -> task.requester = src "requesterFromSource";\r\n } "requesterFallback";\r\n // basedOn, not focus: the round authorised the work, it is not the\r\n // thing the work acts upon.\r\n qr -> task.basedOn = create('Reference') as ref then {\r\n qr.id as qid -> ref.reference = qid "basedOnRef";\r\n } "linkQuestionnaireResponse";\r\n } "task";\r\n } "jobsAnswer";\r\n } "jobsTaskRule";\r\n}\r\n\r\n// ─────────────────────────────────────────────────────────────────────────────\r\n// Shared note scaffolding. Repeated in each note map rather than imported: the\r\n// transform engine resolves `imports` against whatever StructureMaps happen to\r\n// be on the server, and a note that stops extracting because a shared map was\r\n// not uploaded is a worse failure than a duplicated group.\r\n// ─────────────────────────────────────────────────────────────────────────────\r\n// Two notes on what the publisher's StructureMap validator says about this file.\r\n// Source parameters below are left untyped on purpose. Writing `: Element` makes\r\n// the validator compare QuestionnaireResponse.item against the literal 'Element'\r\n// and report them as incompatible with each other, which is noise, not a finding.\r\n// Untyped, it says only that it cannot check the paths.\r\n// `evaluate(context, expression)` is flagged as "takes 1 parameter but 2 were\r\n// found". Leave it. The FML parser in the same jar refuses the one-argument form\r\n// outright -- it wants a parameter, a comma, then the FHIRPath -- so the publisher\r\n// is objecting to what its own compiler emits. Two arguments is the only form that\r\n// compiles, and it is what the R5 transform engine executes.\r\ngroup BuildNoteBase(source qr : QR, target comp : Composition, target entry) {\r\n qr -> comp.id = uuid() then SetCompositionFullUrl(comp, entry) "idAndFullUrl";\r\n qr -> entry.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'Composition' "requestUrl";\r\n } "entryRequest";\r\n qr -> comp.status = 'final' "status";\r\n qr.subject as s -> comp.subject = s;\r\n qr.encounter as e -> comp.encounter = e;\r\n // Composition.date is 1..1. `authored` is only 0..1 on the response, so when a\r\n // client sends none the extraction time stands in. It is a poor substitute for\r\n // when the note was written, but a document with no date at all is worse, and\r\n // extraction happens moments after submission in practice.\r\n qr.authored as t -> comp.date = t "date";\r\n qr where (authored.exists().not()) then {\r\n qr -> comp.date = evaluate(qr, now()) "dateFromExtractionTime";\r\n } "dateFallback";\r\n // Composition.author is 1..1 minimum. R5 QuestionnaireResponse carries both\r\n // `author` (who recorded the answers) and `source` (who supplied them); the\r\n // author is the one who wrote the note, so it wins, and `source` only stands\r\n // in when the client did not send an author. If the response carries neither,\r\n // the note comes out unauthored -- there is nothing on a QuestionnaireResponse\r\n // to invent one from, and guessing at who wrote a clinical note is not a thing\r\n // a map should do.\r\n qr.author as a -> comp.author = a "authorFromAuthor";\r\n qr where (author.exists().not()) then {\r\n qr.source as src -> comp.author = src "authorFromSource";\r\n } "authorFallback";\r\n qr -> comp.relatesTo as rel then {\r\n qr -> rel.type = 'derived-from' "relatesToType";\r\n qr -> rel.resourceReference = create('Reference') as ref then {\r\n qr.id as qid -> ref.reference = qid "relatesToRef";\r\n } "relatesToTarget";\r\n } "linkQuestionnaireResponse";\r\n}\r\n\r\ngroup AddSectionText(source it, target sec) {\r\n it.answer first as a then {\r\n a.value as v -> sec.text as narrative then {\r\n v -> narrative.status = 'generated' "narrativeStatus";\r\n v -> narrative.div = create('xhtml') as xhtml then {\r\n v -> xhtml.value = evaluate(a, '<div xmlns="http://www.w3.org/1999/xhtml"><p>' + value.toString().escape('html') + '</p></div>') "narrativeDiv";\r\n } "narrativeXhtml";\r\n } "sectionText";\r\n } "sectionAnswer";\r\n}\r\n\r\ngroup SetCompositionFullUrl(source comp : Composition, target entry) {\r\n comp.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Composition/', id) "assignFullUrl";\r\n}\r\n\r\ngroup SetTaskFullUrl(source task : Task, target entry) {\r\n task.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Task/', id) "assignFullUrl";\r\n}\r\n\r\n
' + value.toString().escape('html') + '