Generated Narrative: StructureMap ExtractIcuObservationChart
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractIcuObservationChart'\r\n/// name = 'ExtractIcuObservationChart'\r\n/// title = 'ICU Observation Chart Extraction'\r\n/// status = 'active'\r\n/// description = 'Each round out as: the four vitals and the central venous pressure as their own Observations; the arterial blood gas as one panel with seven components, because a gas is interpreted whole and a pH of 7.25 means one thing beside a pCO2 of 8 and another beside a bicarbonate of 12; and the ventilator settings as a second panel. Every one takes the round\\'s own time rather than the form\\'s -- a deteriorating gas exchange is only visible as a series, and collapsing twenty-four rounds onto one instant would destroy it.'\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 ExtractIcuObservationChart(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\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 observation 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 g.item as it where ((linkId = 'unit/instructions') 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 = '18776-5' "cd";\r\n it -> cg.display = 'Plan of care note' "dsp";\r\n } "coding";\r\n it -> cc.text = 'Instructions on the ICU observation 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_18776_5";\r\n } "unitGroup";\r\n // ── One round ───────────────────────────────────────────────────────────\r\n qr.item as g where (linkId = 'round') then {\r\n g.item as it where ((linkId = 'round/vitals/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 SetRoundTime(g, obs) "roundTime";\r\n } "vital_8310_5";\r\n g.item as it where ((linkId = 'round/vitals/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 SetRoundTime(g, obs) "roundTime";\r\n } "vital_8867_4";\r\n g.item as it where ((linkId = 'round/vitals/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 SetRoundTime(g, obs) "roundTime";\r\n } "vital_9279_1";\r\n g.item as it where ((linkId = 'round/cvp') 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 = '60985-9' "cd";\r\n it -> cg.display = 'Central venous pressure (CVP)' "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 SetRoundTime(g, obs) "roundTime";\r\n } "vital_60985_9";\r\n // Blood pressure as typed. The chart is a graph with a systolic and a\r\n // diastolic plotted against each other; the digital form takes the pair as\r\n // one string rather than parsing it, because a mis-parsed blood pressure is\r\n // worse than a legible one.\r\n g.item as it where ((linkId = 'round/vitals/blood-pressure') 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 = '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.answer first as a then {\r\n a.value as txt -> obs.note as n, n.text = txt "bpText";\r\n };\r\n g -> obs then SetRoundTime(g, obs) "roundTime";\r\n } "roundBloodPressure";\r\n // ── The arterial blood gas, as one panel ──────────────────────────────\r\n g.item as abg where ((linkId = 'round/abg') 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 SetLaboratoryCategory(qr, obs) "category";\r\n abg -> obs.code as cc then {\r\n abg -> cc.coding as cg then {\r\n abg -> cg.system = 'http://loinc.org' "sys";\r\n abg -> cg.code = '24336-0' "cd";\r\n abg -> cg.display = 'Gas panel - Arterial blood' "dsp";\r\n } "coding";\r\n } "code";\r\n abg.item as it where ((linkId = 'round/abg/ph') 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 = '2744-1' "cd";\r\n it -> cg.display = 'pH of Arterial blood' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_2744_1";\r\n abg.item as it where ((linkId = 'round/abg/co2') 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 = '2019-8' "cd";\r\n it -> cg.display = 'Carbon dioxide [Partial pressure] in Arterial blood' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_2019_8";\r\n abg.item as it where ((linkId = 'round/abg/po2') 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 = '2703-7' "cd";\r\n it -> cg.display = 'Oxygen [Partial pressure] in Arterial blood' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_2703_7";\r\n abg.item as it where ((linkId = 'round/abg/base-excess') 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 = '11555-0' "cd";\r\n it -> cg.display = 'Base excess in Blood by calculation' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_11555_0";\r\n abg.item as it where ((linkId = 'round/abg/bicarbonate') 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 = '1963-8' "cd";\r\n it -> cg.display = 'Bicarbonate [Moles/volume] in Serum or Plasma' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_1963_8";\r\n abg.item as it where ((linkId = 'round/abg/sodium') 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 = '2947-0' "cd";\r\n it -> cg.display = 'Sodium [Moles/volume] in Blood' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_2947_0";\r\n abg.item as it where ((linkId = 'round/abg/potassium') 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 = '2823-3' "cd";\r\n it -> cg.display = 'Potassium [Moles/volume] in Serum or Plasma' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_2823_3";\r\n g -> obs then SetRoundTime(g, obs) "roundTime";\r\n } "arterialBloodGas";\r\n // ── The ventilator, as a second panel ─────────────────────────────────\r\n // Together and not fifteen loose Observations: a setting only means\r\n // something beside the others. A tidal volume of 400 mL is unremarkable at\r\n // a rate of 12 and dangerous at a rate of 35.\r\n g.item as v where ((linkId = 'round/ventilation') 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 v -> obs.code as cc then {\r\n v -> cc.coding as cg then {\r\n v -> cg.system = 'http://loinc.org' "sys";\r\n v -> cg.code = '20124-4' "cd";\r\n v -> cg.display = 'Ventilation mode Ventilator' "dsp";\r\n } "coding";\r\n v -> cc.text = 'Ventilator settings on the ICU observation chart' "codeText";\r\n } "code";\r\n v.item as it where ((linkId = 'round/ventilation/mode') 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 = '20124-4' "cd";\r\n it -> cg.display = 'Ventilation mode Ventilator' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_20124_4";\r\n v.item as it where ((linkId = 'round/ventilation/pressure-support') 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 = '20079-0' "cd";\r\n it -> cg.display = 'Pressure support setting Ventilator' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_20079_0";\r\n v.item as it where ((linkId = 'round/ventilation/rate-set') 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 = '19834-1' "cd";\r\n it -> cg.display = 'Breath rate setting Ventilator' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_19834_1";\r\n v.item as it where ((linkId = 'round/ventilation/rate-patient') 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 = '9279-1' "cd";\r\n it -> cg.display = 'Respiratory rate' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_9279_1";\r\n v.item as it where ((linkId = 'round/ventilation/tidal-volume-set') 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 = '20112-9' "cd";\r\n it -> cg.display = 'Tidal volume setting Ventilator' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_20112_9";\r\n v.item as it where ((linkId = 'round/ventilation/tidal-volume-actual') 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 = 'ventilator-setting-tidal-volume-actual' "cd";\r\n it -> cg.display = 'Tidal volume actual' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_ventilator_setting_tidal_volume_actual";\r\n v.item as it where ((linkId = 'round/ventilation/oxygen') 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 = '3151-8' "cd";\r\n it -> cg.display = 'Inhaled oxygen flow rate' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_3151_8";\r\n v.item as it where ((linkId = 'round/ventilation/fio2') 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 = '3150-0' "cd";\r\n it -> cg.display = 'Inhaled oxygen concentration' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_3150_0";\r\n v.item as it where ((linkId = 'round/ventilation/ie-ratio') 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 = 'ventilator-setting-inspiratory-to-expiratory-ratio' "cd";\r\n it -> cg.display = 'Inspiratory to expiratory ratio' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_ventilator_setting_inspiratory_to_expiratory_ratio";\r\n v.item as it where ((linkId = 'round/ventilation/trach-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 = 'ventilator-setting-tracheostomy-tube-size' "cd";\r\n it -> cg.display = 'Tracheostomy tube size' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_ventilator_setting_tracheostomy_tube_size";\r\n v.item as it where ((linkId = 'round/ventilation/endo-tube-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 = 'ventilator-setting-endotracheal-tube-size' "cd";\r\n it -> cg.display = 'Endotracheal tube size' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentValue(it, comp) "value";\r\n } "comp_ventilator_setting_endotracheal_tube_size";\r\n v.item as it where ((linkId = 'round/ventilation/assist-control') 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 = 'ventilator-setting-assist-control-in-use' "cd";\r\n it -> cg.display = 'Assist control in use' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_ventilator_setting_assist_control_in_use";\r\n v.item as it where ((linkId = 'round/ventilation/cuff-deflated') 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 = 'ventilator-setting-cuff-deflated' "cd";\r\n it -> cg.display = 'Cuff deflated' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_ventilator_setting_cuff_deflated";\r\n v.item as it where ((linkId = 'round/ventilation/spontaneous-breathing') 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 = 'ventilator-setting-breathing-spontaneously' "cd";\r\n it -> cg.display = 'Breathing spontaneously' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_ventilator_setting_breathing_spontaneously";\r\n v.item as it where ((linkId = 'round/ventilation/weaning') 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 = 'ventilator-setting-weaning-from-the-ventilator' "cd";\r\n it -> cg.display = 'Weaning from the ventilator' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_ventilator_setting_weaning_from_the_ventilator";\r\n g -> obs then SetRoundTime(g, obs) "roundTime";\r\n } "ventilatorSettings";\r\n // ── Nursing care done on the round ────────────────────────────────────\r\n // Its own panel. Turning, suctioning and chest physiotherapy are what\r\n // prevent the two complications this population dies of, and the chart is\r\n // where they are evidenced.\r\n g.item as c where ((linkId = 'round/care') 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 SetProcedureCategory(qr, obs) "category";\r\n c -> obs.code as cc then {\r\n c -> cc.coding as cg then {\r\n c -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n c -> cg.code = 'icu-care-intensive-care-nursing-round' "cd";\r\n c -> cg.display = 'Intensive care nursing round' "dsp";\r\n } "coding";\r\n } "code";\r\n c.item as it where ((linkId = 'round/care/nebulizer') 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 = 'icu-care-nebuliser-given' "cd";\r\n it -> cg.display = 'Nebuliser given' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_icu_care_nebuliser_given";\r\n c.item as it where ((linkId = 'round/care/physiotherapy') 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 = 'icu-care-chest-physiotherapy-given' "cd";\r\n it -> cg.display = 'Chest physiotherapy given' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_icu_care_chest_physiotherapy_given";\r\n c.item as it where ((linkId = 'round/care/suction') 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 = 'icu-care-suctioned' "cd";\r\n it -> cg.display = 'Suctioned' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_icu_care_suctioned";\r\n c.item as it where ((linkId = 'round/care/sigh') 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 = 'icu-care-sighs-given' "cd";\r\n it -> cg.display = 'Sighs given' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_icu_care_sighs_given";\r\n c.item as it where ((linkId = 'round/care/position') 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 = 'icu-care-position-of-the-patient' "cd";\r\n it -> cg.display = 'Position of the patient' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_icu_care_position_of_the_patient";\r\n g -> obs then SetRoundTime(g, obs) "roundTime";\r\n } "nursingCare";\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 = 'icu-care-remarks-on-an-intensive-care-round' "cd";\r\n it -> cg.display = 'Remarks on an intensive care 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_icu_care_remarks_on_an_intensive_care_round";\r\n } "roundRows";\r\n}\r\n\r\n// The round's own time, on every Observation from that round. A time and not a\r\n// dateTime on the paper, so it rides as a note: the chart's columns are clock\r\n// hours across a 24-hour sheet and the date comes from the response.\r\ngroup SetRoundTime(source g, target obs : Observation) {\r\n g.item as it where ((linkId = 'round/time') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as t -> obs.note as n, n.text = 'Taken at the clock time recorded for this round on the chart' "timeNote";\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 SetLaboratoryCategory(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 = 'laboratory' "categoryCode";\r\n qr -> coding.display = 'Laboratory' "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\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\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-observation-chart' "provenanceCode";\r\n qr -> t.display = 'ICU 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