Generated Narrative: StructureMap ExtractPaediatricAdmissionRecord
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractPaediatricAdmissionRecord'\r\n/// name = 'ExtractPaediatricAdmissionRecord'\r\n/// title = 'Paediatric Admission Record Extraction'\r\n/// status = 'active'\r\n/// description = 'The three-page paediatric admission record out as: the anthropometry and vital signs each as their own Observation so a growth chart can graph them; the IMCI history and the ABCD examination as two panels, because a sign only means anything as part of the set the clinician worked through; the immunisation card as one dose-count panel rather than as Immunization resources, which the sheet gives no dates for; a Condition per admission diagnosis, primary first; a ServiceRequest per investigation ordered; a CarePlan for the supportive care; and a Consent from the carer\\'s signature at the foot of the sheet.'\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/Condition" alias Condition as target\r\nuses "http://hl7.org/fhir/StructureDefinition/ServiceRequest" alias ServiceRequest as target\r\nuses "http://hl7.org/fhir/StructureDefinition/CarePlan" alias CarePlan as target\r\nuses "http://hl7.org/fhir/StructureDefinition/Consent" alias Consent as target\r\n\r\ngroup ExtractPaediatricAdmissionRecord(source qr : QR, target bundle : Bundle) {\r\n  qr -> bundle.type = 'transaction' "setBundleType";\r\n  // ── Growth measurements ─────────────────────────────────────────────────\r\n  // One Observation each, all in the vital-signs category, because these are\r\n  // exactly what a growth chart plots. Weight-for-height carries LOINC 77606-2\r\n  // rather than a local code: the sheet calls it "W/H score" and means the\r\n  // weight-for-length Z score for age and sex, which is what that term is.\r\n  qr.item as g where (linkId = 'anthropometry') then {\r\n    g.item as it where ((linkId = 'anthropometry/weight') 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 = '29463-7' "cd";\r\n          it -> cg.display = 'Body weight' "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    } "anthro_29463_7";\r\n    g.item as it where ((linkId = 'anthropometry/height') 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 = '8302-2' "cd";\r\n          it -> cg.display = 'Body height' "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    } "anthro_8302_2";\r\n    g.item as it where ((linkId = 'anthropometry/muac') 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 = '56072-2' "cd";\r\n          it -> cg.display = 'Circumference Mid upper arm - right' "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    } "anthro_56072_2";\r\n    g.item as it where ((linkId = 'anthropometry/head-circumference') 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 = '9843-4' "cd";\r\n          it -> cg.display = 'Head Occipital-frontal circumference' "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    } "anthro_9843_4";\r\n    g.item as it where ((linkId = 'anthropometry/weight-for-height-z') 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 = '77606-2' "cd";\r\n          it -> cg.display = 'Weight-for-length Per age and sex' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it.answer first as a then {\r\n        a.value as v -> obs.value = create('Quantity') as q then {\r\n          v -> q.value = v "qValue";\r\n          v -> q.unit = 'SD' "qUnit";\r\n          v -> q.system = 'http://unitsofmeasure.org' "qSystem";\r\n          v -> q.code = '1' "qCode";\r\n        } "quantity";\r\n      };\r\n    } "weightForHeightZ";\r\n  } "anthropometryGroup";\r\n  // ── Vital signs ─────────────────────────────────────────────────────────\r\n  qr.item as g where (linkId = 'vital-signs') then {\r\n    g.item as it where ((linkId = 'vital-signs/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    g.item as it where ((linkId = 'vital-signs/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    g.item as it where ((linkId = 'vital-signs/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    g.item as it where ((linkId = 'vital-signs/oxygen-saturation') 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 = '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.answer first as a then {\r\n        a.value as v -> obs.value = v "set";\r\n      };\r\n    } "vital_59408_5";\r\n    g.item as bp where ((linkId = 'vital-signs/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 = 'vital-signs/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 = 'vital-signs/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  } "vitalSignsGroup";\r\n  // ── The IMCI history, as one panel ──────────────────────────────────────\r\n  // Coded to LOINC 10164-2, history of present illness. The signs are coded\r\n  // components; the days and counts beside them are quantity components under\r\n  // their own concept codes, so "cough for four days" survives as two facts\r\n  // that belong together rather than as a sentence.\r\n  qr.item as g where ((linkId = 'history') 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 SetSurveyCategory(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 = '10164-2' "cd";\r\n        g -> cg.display = 'History of Present illness Narrative' "dsp";\r\n      } "coding";\r\n      g -> cc.text = 'History of the presenting illness' "codeText";\r\n    } "code";\r\n    g.item as fever where (linkId = 'history/fever') then {\r\n      fever.item as it where ((linkId = 'history/fever/present') 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 = 'sign-fever' "cd";\r\n            it -> cg.display = 'Fever' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_fever";\r\n      fever.item as it where ((linkId = 'history/fever/duration') 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 = 'sign-days-of-fever' "cd";\r\n            it -> cg.display = 'Days of fever' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentValue(it, comp) "value";\r\n      } "comp_sign_days_of_fever";\r\n    } "HistoryFeverGroup";\r\n    g.item as cough where (linkId = 'history/cough') then {\r\n      cough.item as it where ((linkId = 'history/cough/present') 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 = 'sign-cough' "cd";\r\n            it -> cg.display = 'Cough' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_cough";\r\n      cough.item as it where ((linkId = 'history/cough/duration') 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 = 'sign-days-of-cough' "cd";\r\n            it -> cg.display = 'Days of cough' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentValue(it, comp) "value";\r\n      } "comp_sign_days_of_cough";\r\n    } "HistoryCoughGroup";\r\n    g.item as it where ((linkId = 'history/cough-over-2-weeks') 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 = 'sign-cough-for-more-than-two-weeks' "cd";\r\n          it -> cg.display = 'Cough for more than two weeks' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_cough_for_more_than_two_weeks";\r\n    g.item as it where ((linkId = 'history/tb-contact') 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 = 'sign-contact-with-tb-or-a-chronic-cough-in-the-last-12' "cd";\r\n          it -> cg.display = 'Contact with TB or a chronic cough in the last 12 months' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_contact_with_tb_or_a_chronic_cough_in_the_last_12";\r\n    g.item as it where ((linkId = 'history/difficulty-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 = 'sign-difficulty-breathing' "cd";\r\n          it -> cg.display = 'Difficulty breathing' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_difficulty_breathing";\r\n    g.item as diarrhoea where (linkId = 'history/diarrhoea') then {\r\n      diarrhoea.item as it where ((linkId = 'history/diarrhoea/present') 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 = 'sign-diarrhoea' "cd";\r\n            it -> cg.display = 'Diarrhoea' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_diarrhoea";\r\n      diarrhoea.item as it where ((linkId = 'history/diarrhoea/duration') 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 = 'sign-days-of-diarrhoea' "cd";\r\n            it -> cg.display = 'Days of diarrhoea' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentValue(it, comp) "value";\r\n      } "comp_sign_days_of_diarrhoea";\r\n    } "HistoryDiarrhoeaGroup";\r\n    g.item as it where ((linkId = 'history/diarrhoea-over-14-days') 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 = 'sign-diarrhoea-for-more-than-14-days' "cd";\r\n          it -> cg.display = 'Diarrhoea for more than 14 days' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_diarrhoea_for_more_than_14_days";\r\n    g.item as it where ((linkId = 'history/diarrhoea-bloody') 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 = 'sign-bloody-diarrhoea' "cd";\r\n          it -> cg.display = 'Bloody diarrhoea' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_bloody_diarrhoea";\r\n    g.item as vomiting where (linkId = 'history/vomiting') then {\r\n      vomiting.item as it where ((linkId = 'history/vomiting/present') 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 = 'sign-vomiting' "cd";\r\n            it -> cg.display = 'Vomiting' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_vomiting";\r\n      vomiting.item as it where ((linkId = 'history/vomiting/episodes-24h') 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 = 'sign-vomiting-episodes-in-the-last-24-hours' "cd";\r\n            it -> cg.display = 'Vomiting episodes in the last 24 hours' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentValue(it, comp) "value";\r\n      } "comp_sign_vomiting_episodes_in_the_last_24_hours";\r\n    } "HistoryVomitingGroup";\r\n    g.item as it where ((linkId = 'history/vomits-everything') 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 = 'sign-vomits-everything' "cd";\r\n          it -> cg.display = 'Vomits everything' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_vomits_everything";\r\n    g.item as it where ((linkId = 'history/difficulty-feeding') 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 = 'sign-difficulty-feeding' "cd";\r\n          it -> cg.display = 'Difficulty feeding' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_difficulty_feeding";\r\n    g.item as convulsions where (linkId = 'history/convulsions') then {\r\n      convulsions.item as it where ((linkId = 'history/convulsions/present') 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 = 'sign-convulsions-during-this-illness' "cd";\r\n            it -> cg.display = 'Convulsions during this illness' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_convulsions_during_this_illness";\r\n      convulsions.item as it where ((linkId = 'history/convulsions/count') 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 = 'sign-number-of-convulsions-this-illness' "cd";\r\n            it -> cg.display = 'Number of convulsions this illness' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentValue(it, comp) "value";\r\n      } "comp_sign_number_of_convulsions_this_illness";\r\n    } "HistoryConvulsionsGroup";\r\n    g.item as it where ((linkId = 'history/partial-focal-fits') 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 = 'sign-partial-or-focal-fits' "cd";\r\n          it -> cg.display = 'Partial or focal fits' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentCodedValue(it, comp) "value";\r\n    } "comp_sign_partial_or_focal_fits";\r\n    g.item as it where ((linkId = 'history/length-of-illness') 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 = 'sign-length-of-illness-in-days' "cd";\r\n          it -> cg.display = 'Length of illness in days' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_sign_length_of_illness_in_days";\r\n    g.item as it where (linkId = 'history/additional') 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  } "historyPanel";\r\n  // ── The ABCD examination, as one panel ──────────────────────────────────\r\n  // Coded to LOINC 8716-3, vital signs note, which is the nearest LOINC term\r\n  // for "what the clinician found on looking at the child". The graded findings\r\n  // — jaundice, oedema, pallor, AVPU — are coded components; the timed ones —\r\n  // capillary refill, skin pinch — are quantities under their LOINC and local\r\n  // codes.\r\n  qr where (item.where(linkId = 'general-examination').item.answer.value.exists() or item.where(linkId = 'abcd').item.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    qr -> obs.code as cc then {\r\n      qr -> cc.coding as cg then {\r\n        qr -> cg.system = 'http://loinc.org' "sys";\r\n        qr -> cg.code = '8716-3' "cd";\r\n        qr -> cg.display = 'Vital signs note' "dsp";\r\n      } "coding";\r\n      qr -> cc.text = 'Examination on admission' "codeText";\r\n    } "code";\r\n    qr.item as g where (linkId = 'general-examination') then {\r\n      g.item as it where ((linkId = 'general-examination/oral-thrush') 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 = 'sign-oral-thrush' "cd";\r\n            it -> cg.display = 'Oral thrush' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_oral_thrush";\r\n    } "exam_grp";\r\n    qr.item as g where (linkId = 'general-examination') then {\r\n      g.item as it where ((linkId = 'general-examination/lymph-node-over-1cm') 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 = 'sign-lymph-node-greater-than-1-cm' "cd";\r\n            it -> cg.display = 'Lymph node greater than 1 cm' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_lymph_node_greater_than_1_cm";\r\n    } "exam_grp2";\r\n    qr.item as g where (linkId = 'general-examination') then {\r\n      g.item as it where ((linkId = 'general-examination/finger-clubbing') 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 = 'sign-finger-clubbing' "cd";\r\n            it -> cg.display = 'Finger clubbing' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_finger_clubbing";\r\n    } "exam_grp3";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/airway') then {\r\n        g2.item as it where ((linkId = 'abcd/airway/stridor') 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 = 'sign-stridor' "cd";\r\n              it -> cg.display = 'Stridor' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_stridor";\r\n      } "exam_sub";\r\n    } "exam_grp4";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/central-cyanosis') 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 = 'sign-central-cyanosis' "cd";\r\n              it -> cg.display = 'Central cyanosis' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_central_cyanosis";\r\n      } "exam_sub2";\r\n    } "exam_grp5";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/indrawing') 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 = 'sign-chest-indrawing' "cd";\r\n              it -> cg.display = 'Chest indrawing' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_chest_indrawing";\r\n      } "exam_sub3";\r\n    } "exam_grp6";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/grunting') 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 = 'sign-grunting' "cd";\r\n              it -> cg.display = 'Grunting' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_grunting";\r\n      } "exam_sub4";\r\n    } "exam_grp7";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/acidotic-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 = 'sign-acidotic-breathing' "cd";\r\n              it -> cg.display = 'Acidotic breathing' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_acidotic_breathing";\r\n      } "exam_sub5";\r\n    } "exam_grp8";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/wheeze') 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 = 'sign-wheeze' "cd";\r\n              it -> cg.display = 'Wheeze' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_wheeze";\r\n      } "exam_sub6";\r\n    } "exam_grp9";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/breathing') then {\r\n        g2.item as it where ((linkId = 'abcd/breathing/crackles') 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 = 'sign-crackles' "cd";\r\n              it -> cg.display = 'Crackles' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_crackles";\r\n      } "exam_sub7";\r\n    } "exam_grp10";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/circulation') then {\r\n        g2.item as it where ((linkId = 'abcd/circulation/sunken-eyes') 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 = 'sign-sunken-eyes' "cd";\r\n              it -> cg.display = 'Sunken eyes' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_sunken_eyes";\r\n      } "exam_sub8";\r\n    } "exam_grp11";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/disability') then {\r\n        g2.item as it where ((linkId = 'abcd/disability/stiff-neck') 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 = 'sign-stiff-neck' "cd";\r\n              it -> cg.display = 'Stiff neck' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_stiff_neck";\r\n      } "exam_sub9";\r\n    } "exam_grp12";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/disability') then {\r\n        g2.item as it where ((linkId = 'abcd/disability/bulging-fontanelle') 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 = 'sign-bulging-fontanelle' "cd";\r\n              it -> cg.display = 'Bulging fontanelle' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_bulging_fontanelle";\r\n      } "exam_sub10";\r\n    } "exam_grp13";\r\n    qr.item as g where (linkId = 'infant-under-2-months') then {\r\n      g.item as it where ((linkId = 'infant-under-2-months/irritable') 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 = 'sign-irritable' "cd";\r\n            it -> cg.display = 'Irritable' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_irritable";\r\n    } "exam_grp14";\r\n    qr.item as g where (linkId = 'infant-under-2-months') then {\r\n      g.item as it where ((linkId = 'infant-under-2-months/reduced-movement-or-tone') 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 = 'sign-reduced-movement-or-tone' "cd";\r\n            it -> cg.display = 'Reduced movement or tone' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_reduced_movement_or_tone";\r\n    } "exam_grp15";\r\n    qr.item as g where (linkId = 'system-examination') then {\r\n      g.item as it where ((linkId = 'system-examination/rickets-signs') 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 = 'sign-wrist-or-rib-signs-of-rickets' "cd";\r\n            it -> cg.display = 'Wrist or rib signs of rickets' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_sign_wrist_or_rib_signs_of_rickets";\r\n    } "exam_grp16";\r\n    qr.item as g where (linkId = 'general-examination') then {\r\n      g.item as it where ((linkId = 'general-examination/jaundice') 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 = 'grade-jaundice-grade' "cd";\r\n            it -> cg.display = 'Jaundice grade' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_grade_jaundice_grade";\r\n    } "graded_grp";\r\n    qr.item as g where (linkId = 'general-examination') then {\r\n      g.item as it where ((linkId = 'general-examination/oedema') 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 = 'oedema-distribution' "cd";\r\n            it -> cg.display = 'Oedema distribution' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_oedema_distribution";\r\n    } "graded_grp2";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/circulation') then {\r\n        g2.item as it where ((linkId = 'abcd/circulation/pallor') 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 = 'grade-pallor-or-anaemia-grade' "cd";\r\n              it -> cg.display = 'Pallor or anaemia grade' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_grade_pallor_or_anaemia_grade";\r\n      } "graded_sub";\r\n    } "graded_grp3";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/circulation') then {\r\n        g2.item as it where ((linkId = 'abcd/circulation/peripheral-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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n              it -> cg.code = 'sign-peripheral-pulse' "cd";\r\n              it -> cg.display = 'Peripheral pulse' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_peripheral_pulse";\r\n      } "graded_sub2";\r\n    } "graded_grp4";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/circulation') then {\r\n        g2.item as it where ((linkId = 'abcd/circulation/skin-warm-at') 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 = 'sign-skin-warm-as-far-as' "cd";\r\n              it -> cg.display = 'Skin warm as far as' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_sign_skin_warm_as_far_as";\r\n      } "graded_sub3";\r\n    } "graded_grp5";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/disability') then {\r\n        g2.item as it where ((linkId = 'abcd/disability/avpu') 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 = 'triage-avpu-conscious-level' "cd";\r\n              it -> cg.display = 'AVPU conscious level' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_triage_avpu_conscious_level";\r\n      } "graded_sub4";\r\n    } "graded_grp6";\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/disability') then {\r\n        g2.item as it where ((linkId = 'abcd/disability/can-drink-or-breastfeed') 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 = 'can-drink-or-breastfeed' "cd";\r\n              it -> cg.display = 'Able to drink or breastfeed' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentCodedValue(it, comp) "value";\r\n        } "comp_can_drink_or_breastfeed";\r\n      } "graded_sub5";\r\n    } "graded_grp7";\r\n    qr.item as g where (linkId = 'newborn') then {\r\n      g.item as it where ((linkId = 'newborn/umbilicus') 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 = 'umbilicus-appearance' "cd";\r\n            it -> cg.display = 'Umbilical stump appearance' "dsp";\r\n          } "coding";\r\n        } "code";\r\n        it -> comp then SetComponentCodedValue(it, comp) "value";\r\n      } "comp_umbilicus_appearance";\r\n    } "graded_grp8";\r\n    // The two timed perfusion and turgor readings. Quantities, and both are\r\n    // kept because they measure different things: capillary refill measures\r\n    // perfusion at the nail bed and skin pinch measures turgor on the abdomen.\r\n    qr.item as g where (linkId = 'abcd') then {\r\n      g.item as g2 where (linkId = 'abcd/circulation') then {\r\n        g2.item as it where ((linkId = 'abcd/circulation/capillary-refill') 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 = '44971-0' "cd";\r\n              it -> cg.display = 'Capillary refill [Time]' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentValue(it, comp) "value";\r\n        } "comp_44971_0";\r\n        g2.item as it where ((linkId = 'abcd/circulation/skin-pinch') 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 = 'skin-pinch-time' "cd";\r\n              it -> cg.display = 'Skin pinch return time' "dsp";\r\n            } "coding";\r\n          } "code";\r\n          it -> comp then SetComponentValue(it, comp) "value";\r\n        } "comp_skin_pinch_time";\r\n      } "circulationTimed";\r\n    } "abcdTimed";\r\n  } "examinationPanel";\r\n  // ── Immunisation, as a dose-count panel ─────────────────────────────────\r\n  // Not Immunization resources. The sheet records how many doses of each\r\n  // antigen the child has had, off a card, with no dates, no batch numbers and\r\n  // no vaccine codes. An Immunization built from a count alone would claim a\r\n  // date it does not have -- and seven of them would claim seven.\r\n  qr.item as g where ((linkId = 'immunisation') 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 SetSurveyCategory(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 = '11369-6' "cd";\r\n        g -> cg.display = 'History of Immunization note' "dsp";\r\n      } "coding";\r\n      g -> cc.text = 'Immunisation doses given, from the card' "codeText";\r\n    } "code";\r\n    g.item as it where ((linkId = 'immunisation/bcg') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'bcg' "cd";\r\n          it -> cg.display = 'BCG' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_bcg";\r\n    g.item as it where ((linkId = 'immunisation/opv') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'bopv' "cd";\r\n          it -> cg.display = 'Bivalent oral poliovirus vaccine' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_bopv";\r\n    g.item as it where ((linkId = 'immunisation/ipv') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'ipv' "cd";\r\n          it -> cg.display = 'Inactivated poliovirus vaccine' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_ipv";\r\n    g.item as it where ((linkId = 'immunisation/penta') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'penta' "cd";\r\n          it -> cg.display = 'DTP-HepB-Hib (pentavalent) vaccine' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_penta";\r\n    g.item as it where ((linkId = 'immunisation/pneumo') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'pcv10' "cd";\r\n          it -> cg.display = 'Pneumococcal conjugate vaccine (PCV10)' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_pcv10";\r\n    g.item as it where ((linkId = 'immunisation/rota') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'rota' "cd";\r\n          it -> cg.display = 'Rotavirus vaccine' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_rota";\r\n    g.item as it where ((linkId = 'immunisation/measles') 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/kepi-antigen' "sys";\r\n          it -> cg.code = 'mr' "cd";\r\n          it -> cg.display = 'Measles-rubella vaccine' "dsp";\r\n        } "coding";\r\n      } "code";\r\n      it -> comp then SetComponentValue(it, comp) "value";\r\n    } "comp_mr";\r\n  } "immunisationPanel";\r\n  // ── Maternal PMTCT status ───────────────────────────────────────────────\r\n  // Its own Observation and deliberately not a component of the history panel.\r\n  // It is a fact about the mother that governs the child's management for\r\n  // weeks, and it has to be findable without reading a panel.\r\n  qr.item as g where (linkId = 'birth-history') then {\r\n    g.item as it where ((linkId = 'birth-history/maternal-pmtct-status') 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 = 'maternal-pmtct-status' "cd";\r\n          it -> cg.display = 'Maternal PMTCT status' "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 cc then {\r\n          cv -> cc.coding = cv "valueCoding";\r\n          cv.display as d -> cc.text = d "valueText";\r\n        } "codedValue";\r\n      } "pmtctValue";\r\n    } "pmtctObservation";\r\n    g.item as it where ((linkId = 'birth-history/narrative') 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 = '11884-4' "cd";\r\n          it -> cg.display = 'Gestational age Estimated' "dsp";\r\n        } "coding";\r\n        it -> cc.text = 'Birth history' "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    } "birthHistoryNarrative";\r\n  } "birthHistoryGroup";\r\n  // ── The narrative sections ──────────────────────────────────────────────\r\n  // One Observation each, carrying the text in `note` rather than in `value`.\r\n  // Observation.value has no string choice in R5, and coercing a paragraph into\r\n  // valueString where the spec offers none is how a resource stops validating.\r\n  qr.item as it where ((linkId = 'presenting-complaints') 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 = '10154-3' "cd";\r\n        it -> cg.display = 'Chief complaint Narrative - Reported' "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  } "narrative_presenting_complaints";\r\n  qr.item as it where ((linkId = 'growth-and-development') 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 = 'feeding-growth-and-development' "cd";\r\n        it -> cg.display = 'Growth and development' "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  } "narrative_growth_and_development";\r\n  qr.item as it where ((linkId = 'nutritional-history') 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 = 'feeding-nutritional-history' "cd";\r\n        it -> cg.display = 'Nutritional history' "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  } "narrative_nutritional_history";\r\n  qr.item as it where ((linkId = 'treatment-history') 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 = '10160-0' "cd";\r\n        it -> cg.display = 'History of Medication use Narrative' "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  } "narrative_treatment_history";\r\n  qr.item as it where ((linkId = 'summary-of-problems') 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    } "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  } "narrative_summary_of_problems";\r\n  // Review of systems, as one Observation with a note per system. Four\r\n  // Observations of free text would be four resources nobody queries; one, with\r\n  // the four sections as notes, is what a clinician actually reads.\r\n  qr.item as g where ((linkId = 'review-of-systems') 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 SetSurveyCategory(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 = '10187-3' "cd";\r\n        g -> cg.display = 'Review of systems Narrative - Reported' "dsp";\r\n      } "coding";\r\n    } "code";\r\n    g.item as it where (linkId = 'review-of-systems/respiratory') 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    } "note2";\r\n    g.item as it where (linkId = 'review-of-systems/cardiovascular') 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    } "note3";\r\n    g.item as it where (linkId = 'review-of-systems/gastrointestinal-genitourinary') 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    } "note4";\r\n    g.item as it where (linkId = 'review-of-systems/cns') 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    } "note5";\r\n  } "reviewOfSystemsObservation";\r\n  // Examination by system, same shape and same reason.\r\n  qr.item as g where ((linkId = 'system-examination') 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    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 = '29545-1' "cd";\r\n        g -> cg.display = 'Physical findings note' "dsp";\r\n      } "coding";\r\n    } "code";\r\n    g.item as it where (linkId = 'system-examination/ent') 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    } "note6";\r\n    g.item as it where (linkId = 'system-examination/neurological') 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    } "note7";\r\n    g.item as it where (linkId = 'system-examination/chest') 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    } "note8";\r\n    g.item as it where (linkId = 'system-examination/abdomen') 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    } "note9";\r\n    g.item as it where (linkId = 'system-examination/cardiovascular') 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    } "note10";\r\n    g.item as it where (linkId = 'system-examination/bones-and-joints') 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    } "note11";\r\n  } "systemExaminationObservation";\r\n  // ── Admission diagnoses ─────────────────────────────────────────────────\r\n  // A Condition per diagnosis. The primary one carries\r\n  // `Condition.category = problem-list-item` and a `Condition.note` saying it is\r\n  // the admitting diagnosis; the secondaries carry the same category. R5 has no\r\n  // rank on Condition, so primacy is expressed by the order in the bundle and\r\n  // by the note, not by a field that does not exist.\r\n  // Where the clinician picked an existing Condition off the problem list, the\r\n  // map does not create a second one -- it would fork the problem list. The\r\n  // reference travels on the primary Condition's `evidence` instead, so the\r\n  // link is recorded without duplicating the diagnosis.\r\n  qr.item as g where (linkId = 'admission-diagnoses') then {\r\n    g.item as it where ((linkId = 'admission-diagnoses/primary-text') and answer.value.exists()) ->  bundle.entry as entry,  entry.resource = create('Condition') as cond then {\r\n      qr ->  cond,  entry then BuildConditionBase(qr, cond, entry) "base";\r\n      it -> cond.clinicalStatus as cs then {\r\n        it -> cs.coding as cg then {\r\n          it -> cg.system = 'http://terminology.hl7.org/CodeSystem/condition-clinical' "sys";\r\n          it -> cg.code = 'active' "cd";\r\n          it -> cg.display = 'Active' "dsp";\r\n        } "coding";\r\n      } "clinicalStatus";\r\n      it -> cond.verificationStatus as vs then {\r\n        it -> vs.coding as cg then {\r\n          it -> cg.system = 'http://terminology.hl7.org/CodeSystem/condition-ver-status' "sys";\r\n          it -> cg.code = 'provisional' "cd";\r\n          it -> cg.display = 'Provisional' "dsp";\r\n        } "coding";\r\n      } "verificationStatus";\r\n      it -> cond.category as cat then {\r\n        it -> cat.coding as cg then {\r\n          it -> cg.system = 'http://terminology.hl7.org/CodeSystem/condition-category' "sys";\r\n          it -> cg.code = 'problem-list-item' "cd";\r\n          it -> cg.display = 'Problem List Item' "dsp";\r\n        } "coding";\r\n      } "category";\r\n      it.answer first as a then {\r\n        a.value as txt ->  cond.code as cc,  cc.text = txt "codeText";\r\n      } "diagnosisText";\r\n      it ->  cond.note as n,  n.text = 'Primary admission diagnosis' "primaryNote";\r\n      qr.authored as t -> cond.recordedDate = t "recordedDate";\r\n      qr.encounter as e -> cond.encounter = e;\r\n      // The severity or type line -- severe / non-severe, bloody / non-bloody,\r\n      // kwashiorkor / marasmus. Condition.severity is bound to a three-point\r\n      // scale that none of those fit, so it rides as a note.\r\n      g.item as sev where (linkId = 'admission-diagnoses/primary-severity') then {\r\n        sev.answer first as sa then {\r\n          sa.value as txt ->  cond.note as n,  n.text = txt "severityNote";\r\n        };\r\n      } "severityRule";\r\n      g.item as ref where ((linkId = 'admission-diagnoses/primary') and answer.value.exists()) then {\r\n        ref.answer first as ra then {\r\n          ra.value as existing ->  cond.evidence as ev,  ev.reference = existing "evidenceReference";\r\n        };\r\n      } "existingConditionRule";\r\n    } "primaryCondition";\r\n    g.item as sec where (linkId = 'admission-diagnoses/secondary') then {\r\n      sec.item as it where ((linkId = 'admission-diagnoses/secondary/text') and answer.value.exists()) ->  bundle.entry as entry,  entry.resource = create('Condition') as cond then {\r\n        qr ->  cond,  entry then BuildConditionBase(qr, cond, entry) "base";\r\n        it -> cond.clinicalStatus as cs then {\r\n          it -> cs.coding as cg then {\r\n            it -> cg.system = 'http://terminology.hl7.org/CodeSystem/condition-clinical' "sys";\r\n            it -> cg.code = 'active' "cd";\r\n            it -> cg.display = 'Active' "dsp";\r\n          } "coding";\r\n        } "clinicalStatus";\r\n        it -> cond.category as cat then {\r\n          it -> cat.coding as cg then {\r\n            it -> cg.system = 'http://terminology.hl7.org/CodeSystem/condition-category' "sys";\r\n            it -> cg.code = 'problem-list-item' "cd";\r\n            it -> cg.display = 'Problem List Item' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        it.answer first as a then {\r\n          a.value as txt ->  cond.code as cc,  cc.text = txt "codeText";\r\n        } "diagnosisText";\r\n        qr.authored as t -> cond.recordedDate = t "recordedDate";\r\n        qr.encounter as e -> cond.encounter = e;\r\n        sec.item as sv where (linkId = 'admission-diagnoses/secondary/severity') then {\r\n          sv.answer first as sa then {\r\n            sa.value as txt ->  cond.note as n,  n.text = txt "severityNote";\r\n          };\r\n        } "severityRule";\r\n      } "secondaryCondition";\r\n    } "secondaryDiagnoses";\r\n  } "admissionDiagnoses";\r\n  // ── Investigations ordered ──────────────────────────────────────────────\r\n  // A ServiceRequest per line. `intent = 'order'` and `status = 'active'`,\r\n  // because the sheet has no separate authorisation step: a clinician who wrote\r\n  // it has ordered it. `code.text` carries what they wrote -- the hospital's\r\n  // test catalogue is not coded, and inventing a LOINC order code from\r\n  // "Na+K, U&C" would be a guess with a clinical consequence.\r\n  qr.item as g where (linkId = 'investigations') then {\r\n    g.item as it where ((linkId = 'investigations/malaria') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        // Malaria is the one ordered from a pick list, so the answer's own\r\n        // coding travels and code.text is the label beside it.\r\n        a.value as cv ->  sr.code as cr,  cr.concept as cc then {\r\n          cv -> cc.coding = cv "coding";\r\n          cv.display as d -> cc.text = d "text";\r\n        } "codeFromAnswer";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Malaria test' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_malaria";\r\n    g.item as it where ((linkId = 'investigations/haematology') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Haematology' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_haematology";\r\n    g.item as it where ((linkId = 'investigations/microbiology') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Microbiology' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_microbiology";\r\n    g.item as it where ((linkId = 'investigations/x-ray') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '363679005' "cd";\r\n            a -> cg.display = 'Imaging' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: X-ray' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_x_ray";\r\n    g.item as it where ((linkId = 'investigations/tb-test') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: TB test' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_tb_test";\r\n    g.item as it where ((linkId = 'investigations/glucose') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Glucose' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_glucose";\r\n    g.item as it where ((linkId = 'investigations/chemistry') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Chemistry' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_chemistry";\r\n    g.item as it where ((linkId = 'investigations/hiv') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: HIV test' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_hiv";\r\n    g.item as it where ((linkId = 'investigations/urine') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Urine' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_urine";\r\n    g.item as it where ((linkId = 'investigations/other') and answer.value.exists()) then {\r\n      it.answer as a ->  bundle.entry as entry,  entry.resource = create('ServiceRequest') as sr then {\r\n        qr ->  sr,  entry then BuildServiceRequestBase(qr, sr, entry) "base";\r\n        a -> sr.status = 'active' "status";\r\n        a -> sr.intent = 'order' "intent";\r\n        a -> sr.category as cat then {\r\n          a -> cat.coding as cg then {\r\n            a -> cg.system = 'http://snomed.info/sct' "sys";\r\n            a -> cg.code = '108252007' "cd";\r\n            a -> cg.display = 'Laboratory procedure' "dsp";\r\n          } "coding";\r\n        } "category";\r\n        a.value as txt ->  sr.code as cr,  cr.concept as cc,  cc.text = txt "codeText";\r\n        qr.authored as t -> sr.authoredOn = t "authoredOn";\r\n        qr.encounter as e -> sr.encounter = e;\r\n        qr.source as src -> sr.requester = src "requester";\r\n        a ->  sr.note as n,  n.text = 'Ordered on the paediatric admission record: Other investigation' "provenanceNote";\r\n      } "createOrder";\r\n    } "order_other";\r\n  } "investigationsGroup";\r\n  // ── Supportive care ─────────────────────────────────────────────────────\r\n  // One CarePlan with an activity per tick. A CarePlan rather than seven\r\n  // Observations, because "keep warm" is something to be done, not something\r\n  // that was found -- and a plan is what a nurse picks up at handover.\r\n  qr.item as g where ((linkId = 'supportive-care') and item.answer.value.exists()) ->  bundle.entry as entry,  entry.resource = create('CarePlan') as plan then {\r\n    qr ->  plan,  entry then BuildCarePlanBase(qr, plan, entry) "base";\r\n    g -> plan.status = 'active' "status";\r\n    g -> plan.intent = 'plan' "intent";\r\n    g -> plan.title = 'Supportive care on admission' "title";\r\n    qr.authored as t -> plan.created = t "created";\r\n    qr.encounter as e -> plan.encounter = e;\r\n    qr.source as src -> plan.custodian = src "custodian";\r\n    g -> plan.category as cat then {\r\n      g -> cat.coding as cg then {\r\n        g -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/document-type-codesystem' "sys";\r\n        g -> cg.code = 'paediatric-admission-record' "cd";\r\n        g -> cg.display = 'Paediatric admission record' "dsp";\r\n      } "coding";\r\n    } "category";\r\n    g.item as it where ((linkId = 'supportive-care/keep-warm') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'Keep warm' "activityDisplay";\r\n    } "care_keep_warm";\r\n    g.item as it where ((linkId = 'supportive-care/oxygen') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'Oxygen' "activityDisplay";\r\n    } "care_oxygen";\r\n    g.item as it where ((linkId = 'supportive-care/iv-or-oral-fluids') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'IV or oral fluids plan' "activityDisplay";\r\n    } "care_iv_or_oral_fluids";\r\n    g.item as it where ((linkId = 'supportive-care/blood-transfusion') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'Blood transfusion' "activityDisplay";\r\n    } "care_blood_transfusion";\r\n    g.item as it where ((linkId = 'supportive-care/vitamin-a') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'Vitamin A' "activityDisplay";\r\n    } "care_vitamin_a";\r\n    g.item as it where ((linkId = 'supportive-care/nutrition-plan') and (answer.value.ofType(Coding).code = 'Y')) ->  plan.activity as act,  act.plannedActivityReference = create('Reference') as ref then {\r\n      it -> ref.display = 'Nutrition or feeds plan' "activityDisplay";\r\n    } "care_nutrition_plan";\r\n    // Review status. Not an activity -- it says how closely to watch the child\r\n    // rather than what to do to them -- so it is a note on the plan.\r\n    g.item as it where (linkId = 'supportive-care/review-status') then {\r\n      it.answer as a then {\r\n        a.value as cv then {\r\n          cv.display as d ->  plan.note as n,  n.text = d "reviewStatusNote";\r\n        } "display";\r\n      };\r\n    } "reviewStatusRule";\r\n  } "supportiveCarePlan";\r\n  // ── Consent for admission ───────────────────────────────────────────────\r\n  // A Consent, from the carer's signature at the foot of the sheet. Only when\r\n  // the box was actually ticked: a Consent generated from an unanswered\r\n  // question is a consent nobody gave.\r\n  qr.item as g where (linkId = 'sign-off') then {\r\n    g.item as it where ((linkId = 'sign-off/consent-for-admission') and (answer.value = true)) ->  bundle.entry as entry,  entry.resource = create('Consent') as consent then {\r\n      qr ->  consent,  entry then BuildConsentBase(qr, consent, entry) "base";\r\n      it -> consent.status = 'active' "status";\r\n      it -> consent.category as cat then {\r\n        it -> cat.coding as cg then {\r\n          it -> cg.system = 'http://terminology.hl7.org/CodeSystem/consentcategorycodes' "sys";\r\n          it -> cg.code = 'acd' "cd";\r\n          it -> cg.display = 'Advance Directive' "dsp";\r\n        } "coding";\r\n        it -> cat.text = 'Consent for admission and relevant management' "categoryText";\r\n      } "category";\r\n      it -> consent.decision = 'permit' "decision";\r\n      qr.authored as t ->  consent.period as per,  per.start = t "consentPeriodStart";\r\n      qr.source as src -> consent.grantee = src "grantee";\r\n      it ->  consent.provision as prov,  prov.code as pc,  pc.text = 'Taken on the paediatric admission record. The parent or guardian signed the sheet; this records that the signature was obtained, not the signature itself.' "provenanceNote";\r\n    } "createConsent";\r\n  } "consentGroup";\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\ngroup BuildConditionBase(source qr : QR, target r : Condition, target entry) {\r\n  qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n  qr -> r.id = uuid() then SetConditionFullUrl(r, entry) "idAndFullUrl";\r\n  qr -> entry.request as request then {\r\n    qr -> request.method = 'POST' "requestMethod";\r\n    qr -> request.url = 'Condition' "requestUrl";\r\n  } "entryRequest";\r\n  qr.subject as s -> r.subject = s;\r\n}\r\n\r\ngroup SetConditionFullUrl(source r : Condition, target entry) {\r\n  r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Condition/', id) "assignFullUrl";\r\n}\r\n\r\ngroup BuildServiceRequestBase(source qr : QR, target r : ServiceRequest, target entry) {\r\n  qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n  qr -> r.id = uuid() then SetServiceRequestFullUrl(r, entry) "idAndFullUrl";\r\n  qr -> entry.request as request then {\r\n    qr -> request.method = 'POST' "requestMethod";\r\n    qr -> request.url = 'ServiceRequest' "requestUrl";\r\n  } "entryRequest";\r\n  qr.subject as s -> r.subject = s;\r\n}\r\n\r\ngroup SetServiceRequestFullUrl(source r : ServiceRequest, target entry) {\r\n  r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/ServiceRequest/', id) "assignFullUrl";\r\n}\r\n\r\ngroup BuildCarePlanBase(source qr : QR, target r : CarePlan, target entry) {\r\n  qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n  qr -> r.id = uuid() then SetCarePlanFullUrl(r, entry) "idAndFullUrl";\r\n  qr -> entry.request as request then {\r\n    qr -> request.method = 'POST' "requestMethod";\r\n    qr -> request.url = 'CarePlan' "requestUrl";\r\n  } "entryRequest";\r\n  qr.subject as s -> r.subject = s;\r\n}\r\n\r\ngroup SetCarePlanFullUrl(source r : CarePlan, target entry) {\r\n  r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/CarePlan/', id) "assignFullUrl";\r\n}\r\n\r\ngroup BuildConsentBase(source qr : QR, target r : Consent, target entry) {\r\n  qr -> r then SetResponseProvenance(qr, r) "responseProvenance";\r\n  qr -> r.id = uuid() then SetConsentFullUrl(r, entry) "idAndFullUrl";\r\n  qr -> entry.request as request then {\r\n    qr -> request.method = 'POST' "requestMethod";\r\n    qr -> request.url = 'Consent' "requestUrl";\r\n  } "entryRequest";\r\n  qr.subject as s -> r.subject = s;\r\n}\r\n\r\ngroup SetConsentFullUrl(source r : Consent, target entry) {\r\n  r.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/Consent/', 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 = 'paediatric-admission-record' "provenanceCode";\r\n      qr -> t.display = 'Paediatric admission 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