Generated Narrative: StructureMap ExtractIcuNeurologicalChart
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractIcuNeurologicalChart'\r\n/// name = 'ExtractIcuNeurologicalChart'\r\n/// title = 'ICU Neurological Observation Chart Extraction'\r\n/// status = 'active'\r\n/// description = 'Each round of the ICU neurological chart out as: one Observation for the Glasgow Coma Scale under LOINC 9269-2, carrying the total as its value and the three components under their own LOINC codes, with the total computed by the map when the client submits none; one for limb power; one per eye for pupil size and reaction, because a unilaterally dilating pupil is the finding that matters and it has to be findable per side; and the four vitals each as their own Observation. Every one takes the round\\'s own time, not the form\\'s, because the chart is a time series and a deteriorating conscious level is only visible as one.'\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\n\r\ngroup ExtractIcuNeurologicalChart(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n // Day in unit, as its own Observation. Not a component of anything: it is the\r\n // denominator for every length-of-stay question anyone asks of critical care.\r\n qr.item as g where (linkId = 'unit') then {\r\n g.item as it where ((linkId = 'unit/day-in-unit') 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 SetSurveyCategory(qr, obs) "category";\r\n it -> obs.code as cc then {\r\n it -> cc.coding as cg then {\r\n it -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'obs-day-in-unit' "cd";\r\n it -> cg.display = 'Day in unit' "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 } "measure_labour_stage_duration";\r\n g.item as it where ((linkId = 'unit/diagnosis') 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 SetSurveyCategory(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 = '11450-4' "cd";\r\n it -> cg.display = 'Problem list - Reported' "dsp";\r\n } "coding";\r\n it -> cc.text = 'Diagnosis on the ICU neurological chart' "codeText";\r\n } "code";\r\n it.answer first as a then {\r\n a.value as txt -> obs.note as n, n.text = txt "text";\r\n };\r\n } "narr_11450_4";\r\n } "unitGroup";\r\n // ── One round at a time ─────────────────────────────────────────────────\r\n qr.item as g where (linkId = 'round') then {\r\n // ── The Glasgow Coma Scale ────────────────────────────────────────────\r\n // One Observation under LOINC 9269-2, total as the value, the three\r\n // components under 9267-6, 9270-0 and 9268-4. The answers are the IG's own\r\n // clinical-score codes -- #gcs-eye-1..4 and so on -- reused rather than\r\n // minted again, so a GCS charted here and a GCS charted on the pain\r\n // templates' Glasgow form are the same coded answers.\r\n // The total prefers what the form submitted and otherwise sums the weights\r\n // off the tails of the answer codes. Guarded on all three components being\r\n // answered: a GCS of 8 over two components is not a lower GCS, it is a\r\n // different number, and nothing in the resource would say which.\r\n g.item as gcs where ((linkId = 'round/gcs') and (item.answer.value.ofType(Coding).count() = 3)) -> 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 SetExamCategory(qr, obs) "category";\r\n gcs -> obs.code as cc then {\r\n gcs -> cc.coding as cg then {\r\n gcs -> cg.system = 'http://loinc.org' "sys";\r\n gcs -> cg.code = '9269-2' "cd";\r\n gcs -> cg.display = 'Glasgow coma score total' "dsp";\r\n } "coding";\r\n } "code";\r\n gcs -> obs.value = evaluate(gcs, iif(item.where(linkId = 'round/gcs/total').answer.value.exists(), item.where(linkId = 'round/gcs/total').answer.value.truncate(), item.answer.value.ofType(Coding).code.select(iif($this.endsWith('-6'), 6, iif($this.endsWith('-5'), 5, iif($this.endsWith('-4'), 4, iif($this.endsWith('-3'), 3, iif($this.endsWith('-2'), 2, iif($this.endsWith('-1'), 1, 0))))))).aggregate($this + $total, 0))) "totalValue";\r\n // 8 or less is coma. Stated as the interpretation rather than left to a\r\n // reader, because that threshold is what triggers intubation.\r\n gcs -> obs.interpretation as interp then {\r\n gcs -> interp.coding as icg then {\r\n gcs -> icg.system = 'http://terminology.hl7.org/CodeSystem/v3-ObservationInterpretation' "sys";\r\n gcs -> icg.code = evaluate(gcs, iif(iif(item.where(linkId = 'round/gcs/total').answer.value.exists(), item.where(linkId = 'round/gcs/total').answer.value.truncate(), item.answer.value.ofType(Coding).code.select(iif($this.endsWith('-6'), 6, iif($this.endsWith('-5'), 5, iif($this.endsWith('-4'), 4, iif($this.endsWith('-3'), 3, iif($this.endsWith('-2'), 2, iif($this.endsWith('-1'), 1, 0))))))).aggregate($this + $total, 0)) <= 8, 'LL', iif(iif(item.where(linkId = 'round/gcs/total').answer.value.exists(), item.where(linkId = 'round/gcs/total').answer.value.truncate(), item.answer.value.ofType(Coding).code.select(iif($this.endsWith('-6'), 6, iif($this.endsWith('-5'), 5, iif($this.endsWith('-4'), 4, iif($this.endsWith('-3'), 3, iif($this.endsWith('-2'), 2, iif($this.endsWith('-1'), 1, 0))))))).aggregate($this + $total, 0)) < 15, 'A', 'N'))) "cd";\r\n } "coding";\r\n } "interpretation";\r\n g.item as tm where ((linkId = 'round/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 = 'Round taken at the time recorded on the chart' "timeNote";\r\n };\r\n } "roundTimeRule";\r\n gcs.item as it where ((linkId = 'round/gcs/eyes-open') 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 = '9267-6' "cd";\r\n it -> cg.display = 'Glasgow coma score eye opening' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_9267_6";\r\n gcs.item as it where ((linkId = 'round/gcs/verbal-response') 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 = '9270-0' "cd";\r\n it -> cg.display = 'Glasgow coma score verbal' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_9270_0";\r\n gcs.item as it where ((linkId = 'round/gcs/motor-response') 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 = '9268-4' "cd";\r\n it -> cg.display = 'Glasgow coma score motor' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_9268_4";\r\n } "gcsObservation";\r\n // ── Limb power ────────────────────────────────────────────────────────\r\n // One Observation with arms and legs as components. Together, because the\r\n // finding that matters is asymmetry and a reader compares them.\r\n g.item as lm where ((linkId = 'round/limb-movement') 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 SetExamCategory(qr, obs) "category";\r\n lm -> obs.code as cc then {\r\n lm -> cc.coding as cg then {\r\n lm -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n lm -> cg.code = 'limb-power' "cd";\r\n lm -> cg.display = 'Limb power' "dsp";\r\n } "coding";\r\n } "code";\r\n lm.item as it where ((linkId = 'round/limb-movement/arms') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-arm-power' "cd";\r\n it -> cg.display = 'Arm power' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_neuro_arm_power";\r\n lm.item as it where ((linkId = 'round/limb-movement/legs') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-leg-power' "cd";\r\n it -> cg.display = 'Leg power' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_neuro_leg_power";\r\n } "limbPowerObservation";\r\n // ── Pupils, one Observation per eye ───────────────────────────────────\r\n // Per eye and not one panel of four. A unilaterally dilating unreactive\r\n // pupil is the sign of an expanding mass on that side, and "which side" is\r\n // the whole question -- so each eye carries its own bodySite and a query\r\n // can ask about the right pupil alone.\r\n g.item as pg where ((linkId = 'round/pupils') and item.where(linkId = 'round/pupils/right-reaction').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 SetExamCategory(qr, obs) "category";\r\n pg -> obs.code as cc then {\r\n pg -> cc.coding as cg then {\r\n pg -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n pg -> cg.code = 'pupil-assessment' "cd";\r\n pg -> cg.display = 'Pupil assessment' "dsp";\r\n } "coding";\r\n pg -> cc.text = 'Right pupil' "codeText";\r\n } "code";\r\n pg -> obs.bodySite as bsc then {\r\n pg -> bsc.coding as bcg then {\r\n pg -> bcg.system = 'http://snomed.info/sct' "sys";\r\n pg -> bcg.code = '18944008' "cd";\r\n pg -> bcg.display = 'Right eye structure' "dsp";\r\n } "coding";\r\n } "bodySite";\r\n pg.item as it where ((linkId = 'round/pupils/right-size') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-pupil-size' "cd";\r\n it -> cg.display = 'Pupil size' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_neuro_pupil_size";\r\n pg.item as it where ((linkId = 'round/pupils/right-reaction') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-pupil-reaction' "cd";\r\n it -> cg.display = 'Pupil reaction' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_neuro_pupil_reaction";\r\n } "pupil_right";\r\n g.item as pg where ((linkId = 'round/pupils') and item.where(linkId = 'round/pupils/left-reaction').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 SetExamCategory(qr, obs) "category";\r\n pg -> obs.code as cc then {\r\n pg -> cc.coding as cg then {\r\n pg -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n pg -> cg.code = 'pupil-assessment' "cd";\r\n pg -> cg.display = 'Pupil assessment' "dsp";\r\n } "coding";\r\n pg -> cc.text = 'Left pupil' "codeText";\r\n } "code";\r\n pg -> obs.bodySite as bsc then {\r\n pg -> bsc.coding as bcg then {\r\n pg -> bcg.system = 'http://snomed.info/sct' "sys";\r\n pg -> bcg.code = '8966001' "cd";\r\n pg -> bcg.display = 'Left eye structure' "dsp";\r\n } "coding";\r\n } "bodySite";\r\n pg.item as it where ((linkId = 'round/pupils/left-size') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-pupil-size' "cd";\r\n it -> cg.display = 'Pupil size' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_neuro_pupil_size2";\r\n pg.item as it where ((linkId = 'round/pupils/left-reaction') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n it -> cg.code = 'neuro-pupil-reaction' "cd";\r\n it -> cg.display = 'Pupil reaction' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_neuro_pupil_reaction2";\r\n } "pupil_left";\r\n // ── The four vitals the chart graphs ──────────────────────────────────\r\n g.item as vg where (linkId = 'round/vitals') then {\r\n vg.item as it where ((linkId = 'round/vitals/pulse') 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 SetVitalSignsCategory(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 = '8867-4' "cd";\r\n it -> cg.display = 'Heart rate' "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 } "vital_8867_4";\r\n vg.item as it where ((linkId = 'round/vitals/respiratory-rate') 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 SetVitalSignsCategory(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 = '9279-1' "cd";\r\n it -> cg.display = 'Respiratory rate' "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 } "vital_9279_1";\r\n vg.item as it where ((linkId = 'round/vitals/temperature') 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 SetVitalSignsCategory(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 = '8310-5' "cd";\r\n it -> cg.display = 'Body temperature' "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 } "vital_8310_5";\r\n vg.item as bp where ((linkId = 'round/vitals/blood-pressure') 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 bp -> obs.code as cc then {\r\n bp -> cc.coding as cg then {\r\n bp -> cg.system = 'http://loinc.org' "sys";\r\n bp -> cg.code = '85354-9' "cd";\r\n bp -> cg.display = 'Blood pressure panel with all children optional' "dsp";\r\n } "coding";\r\n } "code";\r\n bp.item as it where ((linkId = 'round/vitals/blood-pressure/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 bp.item as it where ((linkId = 'round/vitals/blood-pressure/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 } "bloodPressureObservation";\r\n } "vitalsGroup";\r\n } "roundGroup";\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 SetExamCategory(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 = 'exam' "categoryCode";\r\n qr -> coding.display = 'Exam' "categoryDisplay";\r\n } "categoryCoding";\r\n } "category";\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 = 'icu-neurological-chart' "provenanceCode";\r\n qr -> t.display = 'ICU neurological observation chart' "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