Generated Narrative: StructureMap ExtractAnaestheticRecord
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractAnaestheticRecord'\r\n/// name = 'ExtractAnaestheticRecord'\r\n/// title = 'Anaesthetic Record Extraction'\r\n/// status = 'active'\r\n/// description = 'The anaesthetic chart out as: one Procedure for the anaesthesia itself, carrying the technique as its category, the anaesthetist as its performer and the start and completion times as its period; one Observation per timed reading taken through the case, each with its own effective time, because the paper chart is a graph and a graph is a time series; one MedicationAdministration per drug and per fluid, because those were given rather than ordered; and the estimated blood loss as its own Observation under the LOINC operation-note code, marked as an estimate.'\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/Observation" alias Observation as target\r\nuses "http://hl7.org/fhir/StructureDefinition/Procedure" alias Procedure as target\r\nuses "http://hl7.org/fhir/StructureDefinition/MedicationAdministration" alias MedicationAdministration as target\r\n\r\ngroup ExtractAnaestheticRecord(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n // ── The anaesthesia, as a Procedure ─────────────────────────────────────\r\n // SNOMED 399097000, administration of anaesthesia, which was checked against\r\n // tx.fhir.org. The technique -- general, spinal, block, sedation, local --\r\n // becomes Procedure.category, because it classifies the procedure rather than\r\n // being a separate finding about it.\r\n // The performer is the anaesthetist named on the chart, not the response's\r\n // source: an anaesthetic record is sometimes written up by someone else, and\r\n // attributing the anaesthetic to the transcriber would be wrong.\r\n qr.item as g where (linkId = 'case') -> bundle.entry as entry, entry.resource = create('Procedure') as proc then {\r\n qr -> proc, entry then BuildProcedureBase(qr, proc, entry) "base";\r\n g -> proc.status = 'completed' "status";\r\n g -> proc.code as cc then {\r\n g -> cc.coding as cg then {\r\n g -> cg.system = 'http://snomed.info/sct' "sys";\r\n g -> cg.code = '399097000' "cd";\r\n g -> cg.display = 'Administration of anaesthesia' "dsp";\r\n } "coding";\r\n } "code";\r\n qr.encounter as e -> proc.encounter = e;\r\n // Start and completion as a Period. Both, when both are given: the duration\r\n // is what an audit reads, and it can only be derived if both ends are there.\r\n g.item as st where ((linkId = 'case/started') and answer.value.exists()) then {\r\n st.answer first as a then {\r\n a.value as t -> proc.occurrence = create('Period') as per, per.start = t "periodStart";\r\n };\r\n } "startRule";\r\n g.item as an where ((linkId = 'case/anaesthetist') and answer.value.exists()) then {\r\n an.answer first as a then {\r\n a.value as ref -> proc.performer as p then {\r\n ref -> p.actor = ref "actor";\r\n ref -> p.function as fn then {\r\n ref -> fn.coding as fcg then {\r\n ref -> fcg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/practitioner-specialty-codesystem' "sys";\r\n ref -> fcg.code = 'anaesthesia' "cd";\r\n } "coding";\r\n } "function";\r\n } "performer";\r\n };\r\n } "anaesthetistRule";\r\n g.item as sg where ((linkId = 'case/surgeon') and answer.value.exists()) then {\r\n sg.answer first as a then {\r\n a.value as ref -> proc.performer as p then {\r\n ref -> p.actor = ref "actor";\r\n ref -> p.function as fn then {\r\n ref -> fn.coding as fcg then {\r\n ref -> fcg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/practitioner-specialty-codesystem' "sys";\r\n ref -> fcg.code = 'general-surgery' "cd";\r\n } "coding";\r\n } "function";\r\n } "performer";\r\n };\r\n } "surgeonRule";\r\n g.item as sn where ((linkId = 'case/scrub-nurse') and answer.value.exists()) then {\r\n sn.answer first as a then {\r\n a.value as ref -> proc.performer as p, p.actor = ref "scrubNurse";\r\n };\r\n } "scrubNurseRule";\r\n // Type of surgery goes to Procedure.reason: this anaesthetic was given in\r\n // order to allow that operation. Free text, because the theatre list is not\r\n // a coded catalogue here.\r\n g.item as ts where ((linkId = 'case/type-of-surgery') and answer.value.exists()) then {\r\n ts.answer first as a then {\r\n a.value as txt -> proc.reason as rsn, rsn.concept as rc, rc.text = txt "reasonText";\r\n };\r\n } "typeOfSurgeryRule";\r\n g.item as dx where ((linkId = 'case/diagnosis') and answer.value.exists()) then {\r\n dx.answer first as a then {\r\n a.value as txt -> proc.note as n, n.text = txt "diagnosisNote";\r\n };\r\n } "diagnosisRule";\r\n // Technique as Procedure.category, and the agents as notes. The agents are\r\n // free text on the chart -- "propofol / sevo / fentanyl" on one line -- and\r\n // splitting that into MedicationAdministrations would invent doses.\r\n qr.item as tg where (linkId = 'technique') then {\r\n tg.item as it where ((linkId = 'technique/type') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as cv -> proc.category as cat then {\r\n cv -> cat.coding = cv "categoryCoding";\r\n cv.display as d -> cat.text = d "categoryText";\r\n } "category";\r\n };\r\n } "techniqueTypeRule";\r\n tg.item as it where (linkId = 'technique/premedication') then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.note as n, n.text = txt "note";\r\n };\r\n } "technique_premedication";\r\n tg.item as it where (linkId = 'technique/induction') then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.note as n, n.text = txt "note";\r\n };\r\n } "technique_induction";\r\n tg.item as it where (linkId = 'technique/maintenance') then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.note as n, n.text = txt "note";\r\n };\r\n } "technique_maintenance";\r\n tg.item as it where (linkId = 'technique/position') then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.note as n, n.text = txt "note";\r\n };\r\n } "technique_position";\r\n } "techniqueGroup";\r\n // The outcome sections. `outcome` takes the result of the operation;\r\n // reversal and post-operative instructions are what recovery has to act\r\n // on, so they are followUp rather than notes -- a note is read, a followUp\r\n // is a stated instruction.\r\n qr.item as og where (linkId = 'outcome') then {\r\n og.item as it where ((linkId = 'outcome/result-and-remarks') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.outcome as oc, oc.text = txt "outcomeText";\r\n };\r\n } "outcomeRule";\r\n og.item as it where ((linkId = 'outcome/reversal-notes') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.followUp as fu, fu.text = txt "reversalText";\r\n };\r\n } "reversalRule";\r\n og.item as it where ((linkId = 'outcome/post-operative-instructions') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as txt -> proc.followUp as fu, fu.text = txt "instructionsText";\r\n };\r\n } "instructionsRule";\r\n } "outcomeGroup";\r\n } "anaesthesiaProcedure";\r\n // ── The observations taken through the case ─────────────────────────────\r\n // One Observation per reading, each with the reading's own time as its\r\n // effective time. The chart is a graph at half-hourly gridlines; collapsing\r\n // it into one Observation with thirty components would lose the axis the\r\n // graph exists for.\r\n // The time on the chart is a clock time with no date. It is written to\r\n // Observation.effective as given; the case's own date is on the Procedure\r\n // this Observation sits beside, and inventing a date here would be a guess\r\n // that reads as a fact.\r\n qr.item as g where ((linkId = 'observation') and item.answer.value.exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObsBase(qr, obs, entry) "base";\r\n qr -> obs then SetVitalSignsCategory(qr, obs) "category";\r\n g -> obs.code as cc then {\r\n g -> cc.coding as cg then {\r\n g -> cg.system = 'http://loinc.org' "sys";\r\n g -> cg.code = '8716-3' "cd";\r\n g -> cg.display = 'Vital signs note' "dsp";\r\n } "coding";\r\n g -> cc.text = 'Observation during anaesthesia' "codeText";\r\n } "code";\r\n g.item as tm where ((linkId = 'observation/time') and answer.value.exists()) then {\r\n tm.answer first as a then {\r\n a.value as t -> obs.note as n, n.text = 'Reading taken at the time recorded on the anaesthetic chart' "timeNote";\r\n };\r\n } "readingTimeRule";\r\n g.item as it where ((linkId = 'observation/systolic') and answer.value.exists()) -> obs.component as comp then {\r\n it -> comp.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '8480-6' "cd";\r\n it -> cg.display = 'Systolic blood pressure' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_8480_6";\r\n g.item as it where ((linkId = 'observation/diastolic') and answer.value.exists()) -> obs.component as comp then {\r\n it -> comp.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '8462-4' "cd";\r\n it -> cg.display = 'Diastolic blood pressure' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_8462_4";\r\n g.item as it where ((linkId = 'observation/pulse') and answer.value.exists()) -> obs.component as comp then {\r\n it -> comp.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '8867-4' "cd";\r\n it -> cg.display = 'Heart rate' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_8867_4";\r\n g.item as it where ((linkId = 'observation/oxygen-saturation') and answer.value.exists()) -> obs.component as comp then {\r\n it -> comp.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '59408-5' "cd";\r\n it -> cg.display = 'Oxygen saturation in Arterial blood by Pulse oximetry' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_59408_5";\r\n } "intraOperativeReading";\r\n // ── Drugs and fluids given ──────────────────────────────────────────────\r\n // MedicationAdministration, not MedicationRequest. These were given, in\r\n // theatre, by the anaesthetist; there was no order to fulfil and no pharmacy\r\n // in the loop. `status = 'completed'` for the same reason.\r\n // `medication.concept.text` carries the drug name as written. The hospital's\r\n // formulary is not coded and a guessed RxNorm or ATC code on a cytotoxic or an\r\n // induction agent is a patient-safety risk, not a data-quality nicety.\r\n qr.item as g where ((linkId = 'drug') and item.where(linkId = 'drug/name').answer.value.exists()) -> bundle.entry as entry, entry.resource = create('MedicationAdministration') as ma then {\r\n qr -> ma, entry then BuildMedicationAdministrationBase(qr, ma, entry) "base";\r\n g -> ma.status = 'completed' "status";\r\n qr.encounter as e -> ma.encounter = e;\r\n qr.source as src -> ma.performer as p, p.actor = create('CodeableReference') as cr, cr.reference = src "performer";\r\n g.item as it where (linkId = 'drug/name') then {\r\n it.answer first as a then {\r\n a.value as txt -> ma.medication as med, med.concept as mc, mc.text = txt "medicationText";\r\n };\r\n } "drugNameRule";\r\n g.item as it where ((linkId = 'drug/dose') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as txt -> ma.dosage as dos, dos.text = txt "dosageText";\r\n };\r\n } "drugDoseRule";\r\n g.item as it where ((linkId = 'drug/time') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as t -> ma.note as n, n.text = 'Given at the time recorded on the anaesthetic chart' "timeNote";\r\n };\r\n } "drugTimeRule";\r\n qr.authored as t -> ma.occurence = t "occurrence";\r\n } "drugAdministration";\r\n qr.item as g where ((linkId = 'iv-fluid') and item.where(linkId = 'iv-fluid/name').answer.value.exists()) -> bundle.entry as entry, entry.resource = create('MedicationAdministration') as ma then {\r\n qr -> ma, entry then BuildMedicationAdministrationBase(qr, ma, entry) "base";\r\n g -> ma.status = 'completed' "status";\r\n qr.encounter as e -> ma.encounter = e;\r\n qr.source as src -> ma.performer as p, p.actor = create('CodeableReference') as cr, cr.reference = src "performer";\r\n g.item as it where (linkId = 'iv-fluid/name') then {\r\n it.answer first as a then {\r\n a.value as txt -> ma.medication as med, med.concept as mc, mc.text = txt "medicationText";\r\n };\r\n } "fluidNameRule";\r\n // Guarded on the answer being a Quantity, not merely present. Dosage.dose\r\n // takes a Quantity or a Range and nothing else, so a client that submits\r\n // a bare string there fails the rule and takes the whole extraction with\r\n // it -- which is exactly what the questionnaire tester does: it renders a\r\n // `quantity` item as a plain text box and submits valueString "5".\r\n // `$validate` on such a response says so plainly ("Answer value must be\r\n // of the type Quantity not string"); one non-conformant field should not\r\n // cost every other resource on the form.\r\n g.item as it where ((linkId = 'iv-fluid/volume') and answer.value.ofType(Quantity).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> ma.dosage as dos, dos.dose = v "dosageVolume";\r\n };\r\n } "fluidVolumeRule";\r\n qr.authored as t -> ma.occurence = t "occurrence";\r\n g -> ma.note as n, n.text = 'Intravenous fluid given during anaesthesia' "fluidNote";\r\n } "fluidAdministration";\r\n // ── Estimated blood loss ────────────────────────────────────────────────\r\n // LOINC 8717-1, the operation note's own term for it, which is exactly what\r\n // this is. The note says it is an estimate: the figure drives a transfusion\r\n // decision and a reader has to know it was eyeballed, not measured.\r\n qr.item as it where ((linkId = 'estimated-blood-loss') and answer.value.exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObsBase(qr, obs, entry) "base";\r\n qr -> obs then SetProcedureCategory(qr, obs) "category";\r\n it -> obs.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '8717-1' "cd";\r\n it -> cg.display = 'Surgical operation note estimated blood loss [Volume]' "dsp";\r\n } "coding";\r\n } "code";\r\n it.answer first as a then {\r\n a.value as v -> obs.value = v "set";\r\n };\r\n it -> obs.note as n, n.text = 'An estimate made in theatre, not a measured volume.' "estimateNote";\r\n } "bloodLossObservation";\r\n // ── Anaesthesia duration ────────────────────────────────────────────────\r\n // Extracted only when the form carries it. The questionnaire leaves the field\r\n // read-only and expects the client to derive it from the start and completion\r\n // times; where the client did, that value is authoritative and is recorded\r\n // under LOINC 89874-2. Where it did not, nothing is written -- the Procedure's\r\n // period already holds both ends, and a duration computed here from a clock\r\n // time with no date could be a day out.\r\n qr.item as g where (linkId = 'case') then {\r\n g.item as it where ((linkId = 'case/duration') and answer.value.exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObsBase(qr, obs, entry) "base";\r\n qr -> obs then SetProcedureCategory(qr, obs) "category";\r\n it -> obs.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'http://loinc.org' "sys";\r\n it -> cg.code = '89874-2' "cd";\r\n it -> cg.display = 'Anesthesia duration' "dsp";\r\n } "coding";\r\n } "code";\r\n it.answer first as a then {\r\n a.value as v -> obs.value = v "set";\r\n };\r\n } "durationObservation";\r\n } "durationGroup";\r\n}\r\n\r\n// ─────────────────────────────────────────────────────────────────────────────\r\n// Shared scaffolding. Repeated in each map rather than imported: the transform\r\n// engine resolves `imports` against whatever StructureMaps happen to be on the\r\n// server, and a form that stops extracting because a shared map was not\r\n// uploaded is a worse failure than a duplicated group.\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// `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\r\n// publisher is objecting to what its own compiler emits. Two arguments is the\r\n// only form that compiles, and it is what the R5 transform engine executes.\r\n// ─────────────────────────────────────────────────────────────────────────────\r\ngroup BuildObsBase(source qr : QR, target obs : Observation, target entry) {\r\n qr -> obs then SetResponseProvenance(qr, obs) "responseProvenance";\r\n qr -> obs.id = uuid() then SetObservationFullUrl(obs, entry) "idAndFullUrl";\r\n qr -> entry.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'Observation' "requestUrl";\r\n } "entryRequest";\r\n qr -> obs.status = 'final' "status";\r\n qr.subject as s -> obs.subject = s;\r\n qr.encounter as e -> obs.encounter = e;\r\n qr.authored as t -> obs.effective = t "effective";\r\n qr.source as src -> obs.performer = src "performerFromSource";\r\n qr where (source.exists().not()) then {\r\n qr.author as a -> obs.performer = a "performerFromAuthor";\r\n } "performerFallback";\r\n // A stored response's id already reads "QuestionnaireResponse/<id>", so it is\r\n // a relative reference as it stands. The hasValue() guard is what stops an\r\n // unsaved response -- one posted straight to $extract rather than saved first\r\n // -- from writing "QuestionnaireResponse/null" into the record.\r\n qr.id as qid where ($this.hasValue()) -> obs.derivedFrom = create('Reference') as ref, ref.reference = qid "linkQuestionnaireResponse";\r\n}\r\n\r\ngroup SetObservationFullUrl(source obs : Observation, target entry) {\r\n obs.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Observation/', id) "assignFullUrl";\r\n}\r\n\r\n// The two answer shapes a component can carry. Both read the answer through the\r\n// untyped `.value` accessor: reading `valueCoding` or `valueQuantity` by its\r\n// typed property name fails at transform time on HAPI R5 with "Attempt to read\r\n// invalid property ... on QuestionnaireResponse.item.answer".\r\ngroup SetComponentCodedValue(source it, target comp) {\r\n it.answer first as a then {\r\n a.value as cv -> comp.value = create('CodeableConcept') as cc then {\r\n cv -> cc.coding = cv "valueCoding";\r\n cv.display as d -> cc.text = d "valueText";\r\n } "codedValue";\r\n } "componentAnswer";\r\n}\r\n\r\ngroup SetComponentValue(source it, target comp) {\r\n it.answer first as a then {\r\n a.value as v -> comp.value = v "plainValue";\r\n } "componentAnswer";\r\n}\r\n\r\ngroup SetSurveyCategory(source qr : QR, target obs : Observation) {\r\n qr -> obs.category as cat then {\r\n qr -> cat.coding as coding then {\r\n qr -> coding.system = 'http://terminology.hl7.org/CodeSystem/observation-category' "categorySystem";\r\n qr -> coding.code = 'survey' "categoryCode";\r\n qr -> coding.display = 'Survey' "categoryDisplay";\r\n } "categoryCoding";\r\n } "category";\r\n}\r\n\r\ngroup SetVitalSignsCategory(source qr : QR, target obs : Observation) {\r\n qr -> obs.category as cat then {\r\n qr -> cat.coding as coding then {\r\n qr -> coding.system = 'http://terminology.hl7.org/CodeSystem/observation-category' "categorySystem";\r\n qr -> coding.code = 'vital-signs' "categoryCode";\r\n qr -> coding.display = 'Vital Signs' "categoryDisplay";\r\n } "categoryCoding";\r\n } "category";\r\n}\r\n\r\ngroup SetProcedureCategory(source qr : QR, target obs : Observation) {\r\n qr -> obs.category as cat then {\r\n qr -> cat.coding as coding then {\r\n qr -> coding.system = 'http://terminology.hl7.org/CodeSystem/observation-category' "categorySystem";\r\n qr -> coding.code = 'procedure' "categoryCode";\r\n qr -> coding.display = 'Procedure' "categoryDisplay";\r\n } "categoryCoding";\r\n } "category";\r\n}\r\n\r\ngroup BuildProcedureBase(source qr : QR, target r : Procedure, target entry) {\r\n qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n qr -> r.id = uuid() then SetProcedureFullUrl(r, entry) "idAndFullUrl";\r\n qr -> entry.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'Procedure' "requestUrl";\r\n } "entryRequest";\r\n // The response's own time, as a floor, the way BuildObsBase does it. A rule\r\n // that reads a time off the form overwrites this; without it a procedure whose\r\n // date column was taken off on review has no time at all, and a procedure with\r\n // no time cannot be ordered against the rest of the admission.\r\n qr.authored as t -> r.occurrence = t "occurrenceFallback";\r\n qr.subject as s -> r.subject = s;\r\n}\r\n\r\ngroup SetProcedureFullUrl(source r : Procedure, target entry) {\r\n r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Procedure/', id) "assignFullUrl";\r\n}\r\n\r\ngroup BuildMedicationAdministrationBase(source qr : QR, target r : MedicationAdministration, target entry) {\r\n qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n qr -> r.id = uuid() then SetMedicationAdministrationFullUrl(r, entry) "idAndFullUrl";\r\n qr -> entry.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'MedicationAdministration' "requestUrl";\r\n } "entryRequest";\r\n qr.subject as s -> r.subject = s;\r\n // The response's own time, as a floor. A row that names the time it was given\r\n // overwrites this; a form whose time column was taken off on review would\r\n // otherwise produce an administration with no time at all, which is not a\r\n // record of an administration. Same fallback BuildObsBase already applies.\r\n qr.authored as t -> r.occurence = t "occurrenceFallback";\r\n}\r\n\r\ngroup SetMedicationAdministrationFullUrl(source r : MedicationAdministration, target entry) {\r\n r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/MedicationAdministration/', id) "assignFullUrl";\r\n}\r\n\r\n// ── Provenance and tenancy ───────────────────────────────────────────────────\r\n// Two tags on everything this map creates. The first says which questionnaire\r\n// produced it, so a form that reopens mid-admission recalls its own earlier\r\n// entries and not another form's. The second copies the tenant tags off the\r\n// response, because nothing else on the path puts them there.\r\n// The code is the form's document type, not the questionnaire's id: every\r\n// environment mints its own ids, and there is only one set of maps, so an id\r\n// here would tie the tag to whichever environment stamped it.\r\n// ── Provenance and tenancy ───────────────────────────────────────────────────\r\ngroup SetResponseProvenance(source qr : QR, target r) {\r\n qr -> r.meta as m then {\r\n qr -> m.tag as t then {\r\n qr -> t.system = 'http://slade360edi.com/questionnaire-provenance' "provenanceSystem";\r\n qr -> t.code = 'anaesthetic-record' "provenanceCode";\r\n qr -> t.display = 'Anaesthetic record' "provenanceDisplay";\r\n } "provenanceTag";\r\n } "provenanceMeta";\r\n // Every tag the response carries, onto the resource. `meta` is 0..1, so this\r\n // lands on the same meta the rule above created rather than a second one.\r\n qr.meta as qm then {\r\n qm.tag as qt -> r.meta as m, m.tag = qt "copyTag";\r\n } "tenantTags";\r\n}\r\n\r\n