Generated Narrative: StructureMap ExtractHeadInjuryChart
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractHeadInjuryChart'\r\n/// name = 'ExtractHeadInjuryChart'\r\n/// title = 'Head Injury and Craniotomy Chart Extraction'\r\n/// status = 'active'\r\n/// description = 'The conscious level goes out under the chart\\'s own four-point scale and a local code, not as a Glasgow Coma Scale total. This sheet prints four levels with its own wording -- fully conscious, conscious but confused, semi conscious, coma -- and forcing them onto GCS or AVPU would invent a precision the paper does not have. Coma carries a critically-low interpretation because that is the row that gets someone to theatre. Pupils are one Observation per eye with a SNOMED body site, because which side is dilating is the whole question, and movement and paralysis are recorded limb by limb for the same reason.'\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 ExtractHeadInjuryChart(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n // ── Other injuries ──────────────────────────────────────────────────────\r\n // A repeating coded answer, so "chest and spine" stays a different patient\r\n // from "chest".\r\n qr.item as g where (linkId = 'other-injuries') then {\r\n g.item as it where ((linkId = 'other-injuries/site') 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 SetExamCategory(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 = 'injury-other-injury-present' "cd";\r\n it -> cg.display = 'Other injury present' "dsp";\r\n } "coding";\r\n } "code";\r\n it.answer as a then {\r\n a.value as cv -> obs.component as comp then {\r\n cv -> comp.code as cc then {\r\n cv -> cc.coding as cg then {\r\n cv -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n cv -> cg.code = 'injury-site' "cd";\r\n cv -> cg.display = 'Site of another injury' "dsp";\r\n } "coding";\r\n } "code";\r\n cv -> comp.value = create('CodeableConcept') as vc then {\r\n cv -> vc.coding = cv "valueCoding";\r\n cv.display as d -> vc.text = d "valueText";\r\n } "codedValue";\r\n } "siteComponent";\r\n } "sites";\r\n g.item as it where (linkId = 'other-injuries/detail') then {\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 } "note";\r\n } "otherInjuries";\r\n } "otherInjuriesGroup";\r\n // ── One round ───────────────────────────────────────────────────────────\r\n qr.item as g where (linkId = 'round') then {\r\n g.item as it where ((linkId = 'round/temperature') and answer.value.ofType(Quantity).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;\r\n };\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "hivital_8310_5";\r\n g.item as it where ((linkId = 'round/pulse') and answer.value.ofType(Quantity).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;\r\n };\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "hivital_8867_4";\r\n g.item as it where ((linkId = 'round/respiratory-rate') and answer.value.ofType(Quantity).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;\r\n };\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "hivital_9279_1";\r\n g.item as it where ((linkId = 'round/blood-pressure') and item.answer.value.ofType(Quantity).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 = '85354-9' "cd";\r\n it -> cg.display = 'Blood pressure panel with all children optional' "dsp";\r\n } "coding";\r\n } "code";\r\n it.item as sbp where ((linkId = 'round/blood-pressure/systolic') and answer.value.ofType(Quantity).exists()) -> obs.component as comp then {\r\n sbp -> comp.code as cc then {\r\n sbp -> cc.coding as cg then {\r\n sbp -> cg.system = 'http://loinc.org' "sys";\r\n sbp -> cg.code = '8480-6' "cd";\r\n sbp -> cg.display = 'Systolic blood pressure' "dsp";\r\n } "coding";\r\n } "code";\r\n sbp -> comp then SetComponentValue(sbp, comp) "value";\r\n } "comp_8480_6";\r\n it.item as dbp where ((linkId = 'round/blood-pressure/diastolic') and answer.value.ofType(Quantity).exists()) -> obs.component as comp then {\r\n dbp -> comp.code as cc then {\r\n dbp -> cc.coding as cg then {\r\n dbp -> cg.system = 'http://loinc.org' "sys";\r\n dbp -> cg.code = '8462-4' "cd";\r\n dbp -> cg.display = 'Diastolic blood pressure' "dsp";\r\n } "coding";\r\n } "code";\r\n dbp -> comp then SetComponentValue(dbp, comp) "value";\r\n } "comp_8462_4";\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "roundBloodPressure";\r\n // ── The conscious level ───────────────────────────────────────────────\r\n // Coma is flagged critically low. That row is what gets someone to CT and\r\n // then to theatre, and a reader should not have to interpret the wording.\r\n g.item as it where ((linkId = 'round/conscious-level') 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 SetExamCategory(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 = 'head-injury-conscious-level-on-the-head-injury-chart' "cd";\r\n it -> cg.display = 'Conscious level on the head injury chart' "dsp";\r\n } "coding";\r\n } "code";\r\n it.answer first as a then {\r\n a.value as cv -> obs.value = create('CodeableConcept') as vc then {\r\n cv -> vc.coding = cv "valueCoding";\r\n cv.display as d -> vc.text = d "valueText";\r\n } "codedValue";\r\n };\r\n it.answer first as a then {\r\n a.value as cv where (code = 'conscious-coma') -> obs.interpretation as interp then {\r\n cv -> interp.coding as icg then {\r\n cv -> icg.system = 'http://terminology.hl7.org/CodeSystem/v3-ObservationInterpretation' "sys";\r\n cv -> icg.code = 'LL' "cd";\r\n cv -> icg.display = 'Critically low' "dsp";\r\n } "coding";\r\n } "comaInterp";\r\n } "comaInterpretation";\r\n it.answer first as a then {\r\n a.value as cv where (code = 'conscious-semi') -> obs.interpretation as interp then {\r\n cv -> interp.coding as icg then {\r\n cv -> icg.system = 'http://terminology.hl7.org/CodeSystem/v3-ObservationInterpretation' "sys";\r\n cv -> icg.code = 'A' "cd";\r\n cv -> icg.display = 'Abnormal' "dsp";\r\n } "coding";\r\n } "semiInterp";\r\n } "semiInterpretation";\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "consciousLevel";\r\n // ── Fits ──────────────────────────────────────────────────────────────\r\n g.item as it where ((linkId = 'round/fits') 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 SetExamCategory(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://snomed.info/sct' "sys";\r\n it -> cg.code = '91175000' "cd";\r\n it -> cg.display = 'Seizure' "dsp";\r\n } "coding";\r\n } "code";\r\n it.answer first as a then {\r\n a.value as cv -> obs.value = create('CodeableConcept') as vc then {\r\n cv -> vc.coding = cv "valueCoding";\r\n cv.display as d -> vc.text = d "valueText";\r\n } "codedValue";\r\n };\r\n it.answer first as a then {\r\n a.value as cv where (code = 'finding-present') -> obs.interpretation as interp then {\r\n cv -> interp.coding as icg then {\r\n cv -> icg.system = 'http://terminology.hl7.org/CodeSystem/v3-ObservationInterpretation' "sys";\r\n cv -> icg.code = 'A' "cd";\r\n cv -> icg.display = 'Abnormal' "dsp";\r\n } "coding";\r\n } "fitInterp";\r\n } "fitInterpretation";\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "fits";\r\n g.item as pg where ((linkId = 'round/right-pupil') 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 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 = 'neuro-right-pupil-assessment' "cd";\r\n pg -> cg.display = 'Right pupil assessment' "dsp";\r\n } "coding";\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/right-pupil/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/right-pupil/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 g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "pupil_right";\r\n g.item as pg where ((linkId = 'round/left-pupil') 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 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 = 'neuro-left-pupil-assessment' "cd";\r\n pg -> cg.display = 'Left pupil assessment' "dsp";\r\n } "coding";\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/left-pupil/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/left-pupil/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 g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "pupil_left";\r\n // ── Movement and paralysis, limb by limb ──────────────────────────────\r\n // Two panels rather than eight loose Observations, and limb by limb rather\r\n // than one summary, because a new weakness on one side is the finding and a\r\n // summary cannot carry it.\r\n g.item as m where ((linkId = 'round/spontaneous-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 m -> obs.code as cc then {\r\n m -> cc.coding as cg then {\r\n m -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n m -> cg.code = 'head-injury-spontaneous-movement-by-limb' "cd";\r\n m -> cg.display = 'Spontaneous movement by limb' "dsp";\r\n } "coding";\r\n } "code";\r\n m.item as it where ((linkId = 'round/spontaneous-movement/right-arm') 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 = 'head-injury-spontaneous-movement-right-arm' "cd";\r\n it -> cg.display = 'Spontaneous movement, right arm' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_spontaneous_movement_right_arm";\r\n m.item as it where ((linkId = 'round/spontaneous-movement/right-leg') 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 = 'head-injury-spontaneous-movement-right-leg' "cd";\r\n it -> cg.display = 'Spontaneous movement, right leg' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_spontaneous_movement_right_leg";\r\n m.item as it where ((linkId = 'round/spontaneous-movement/left-arm') 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 = 'head-injury-spontaneous-movement-left-arm' "cd";\r\n it -> cg.display = 'Spontaneous movement, left arm' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_spontaneous_movement_left_arm";\r\n m.item as it where ((linkId = 'round/spontaneous-movement/left-leg') 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 = 'head-injury-spontaneous-movement-left-leg' "cd";\r\n it -> cg.display = 'Spontaneous movement, left leg' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_spontaneous_movement_left_leg";\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "spontaneousMovement";\r\n g.item as p where ((linkId = 'round/paralysis') 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 p -> obs.code as cc then {\r\n p -> cc.coding as cg then {\r\n p -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n p -> cg.code = 'head-injury-paralysis-by-limb' "cd";\r\n p -> cg.display = 'Paralysis by limb' "dsp";\r\n } "coding";\r\n } "code";\r\n p.item as it where ((linkId = 'round/paralysis/right-arm') 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 = 'head-injury-paralysis-right-arm' "cd";\r\n it -> cg.display = 'Paralysis, right arm' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_paralysis_right_arm";\r\n p.item as it where ((linkId = 'round/paralysis/right-leg') 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 = 'head-injury-paralysis-right-leg' "cd";\r\n it -> cg.display = 'Paralysis, right leg' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_paralysis_right_leg";\r\n p.item as it where ((linkId = 'round/paralysis/left-arm') 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 = 'head-injury-paralysis-left-arm' "cd";\r\n it -> cg.display = 'Paralysis, left arm' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_paralysis_left_arm";\r\n p.item as it where ((linkId = 'round/paralysis/left-leg') 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 = 'head-injury-paralysis-left-leg' "cd";\r\n it -> cg.display = 'Paralysis, left leg' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_head_injury_paralysis_left_leg";\r\n g -> obs then SetHeadInjuryRound(g, obs) "roundContext";\r\n } "paralysis";\r\n g.item as it where ((linkId = 'round/remarks') 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 = 'head-injury-remarks-on-a-head-injury-round' "cd";\r\n it -> cg.display = 'Remarks on a head injury round' "dsp";\r\n } "coding";\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_head_injury_remarks_on_a_head_injury_round";\r\n } "roundRows";\r\n}\r\n\r\n// The round's own timestamp on every Observation from it. Unlike the ICU\r\n// charts this sheet prints a full date and time per column rather than a clock\r\n// hour, so it becomes Observation.effective properly.\r\ngroup SetHeadInjuryRound(source g, target obs : Observation) {\r\n g.item as it where ((linkId = 'round/at') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> obs.effective = v "effective";\r\n };\r\n } "roundTimeRule";\r\n g.item as it where ((linkId = 'round/recorded-by') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as ref -> obs.performer = ref "performer";\r\n };\r\n } "recordedByRule";\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 = 'head-injury-chart' "provenanceCode";\r\n qr -> t.display = 'Head injury and craniotomy 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