Generated Narrative: StructureMap ExtractPalliativeCareAssessment
\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractPalliativeCareAssessment'\r\n/// name = 'ExtractPalliativeCareAssessment'\r\n/// title = 'Palliative Care Assessment Extraction'\r\n/// status = 'active'\r\n/// description = 'The palliative care assessment out as: one symptom-assessment Observation carrying all twenty-two symptoms as components, because the panel is the assessment and a patient with no symptoms ticked has said something a set of absent Observations could not; a Condition for the diagnosis, reconciled against the problem list where the assessor picked an existing one; one Observation for the prior oncological treatment; separate Observations for the patient\\'s own goals and the carer\\'s, because the two often differ and the form asks both; and a CarePlan whose activities are the problem-and-action rows.'\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/CarePlan" alias CarePlan as target\r\n\r\ngroup ExtractPalliativeCareAssessment(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n // ── The symptom checklist, as one panel ─────────────────────────────────\r\n // Twenty-two components on one Observation. A palliative assessment is read\r\n // as a whole -- which symptoms are present today, against which were present\r\n // last week -- and twenty-two loose Observations make that comparison a\r\n // twenty-two-query job.\r\n qr.item as g where ((linkId = 'symptoms') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n g -> cg.code = 'palliative-symptom' "cd";\r\n g -> cg.display = 'Palliative care symptom' "dsp";\r\n } "coding";\r\n g -> cc.text = 'Palliative care symptom checklist' "codeText";\r\n } "code";\r\n g.item as it where ((linkId = 'symptoms/abdominal-pain') 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 = 'palliative-abdominal-pain' "cd";\r\n it -> cg.display = 'Abdominal pain' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_abdominal_pain";\r\n g.item as it where ((linkId = 'symptoms/nausea-vomiting') 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 = 'palliative-nausea-or-vomiting' "cd";\r\n it -> cg.display = 'Nausea or vomiting' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_nausea_or_vomiting";\r\n g.item as it where ((linkId = 'symptoms/constipation') 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 = 'palliative-constipation' "cd";\r\n it -> cg.display = 'Constipation' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_constipation";\r\n g.item as it where ((linkId = 'symptoms/diarrhoea') 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 = 'palliative-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_palliative_diarrhoea";\r\n g.item as it where ((linkId = 'symptoms/melaena') 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 = 'palliative-melaena' "cd";\r\n it -> cg.display = 'Melaena' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_melaena";\r\n g.item as it where ((linkId = 'symptoms/loss-of-appetite') 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 = 'palliative-loss-of-appetite' "cd";\r\n it -> cg.display = 'Loss of appetite' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_loss_of_appetite";\r\n g.item as it where ((linkId = 'symptoms/body-weakness') 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 = 'palliative-body-weakness' "cd";\r\n it -> cg.display = 'Body weakness' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_body_weakness";\r\n g.item as it where ((linkId = 'symptoms/pr-bleeding') 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 = 'palliative-per-rectal-bleeding' "cd";\r\n it -> cg.display = 'Per rectal bleeding' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_per_rectal_bleeding";\r\n g.item as it where ((linkId = 'symptoms/pr-pain') 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 = 'palliative-per-rectal-pain' "cd";\r\n it -> cg.display = 'Per rectal pain' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_per_rectal_pain";\r\n g.item as it where ((linkId = 'symptoms/weight-loss') 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 = 'palliative-weight-loss' "cd";\r\n it -> cg.display = 'Weight loss' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_weight_loss";\r\n g.item as it where ((linkId = 'symptoms/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 = 'palliative-jaundice' "cd";\r\n it -> cg.display = 'Jaundice' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_jaundice";\r\n g.item as it where ((linkId = 'symptoms/fever') 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 = 'palliative-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_palliative_fever";\r\n g.item as it where ((linkId = 'symptoms/chest-pain') 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 = 'palliative-chest-pain' "cd";\r\n it -> cg.display = 'Chest pain' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_chest_pain";\r\n g.item as it where ((linkId = 'symptoms/cough') 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 = 'palliative-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_palliative_cough";\r\n g.item as it where ((linkId = 'symptoms/incontinence') 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 = 'palliative-incontinence' "cd";\r\n it -> cg.display = 'Incontinence' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_incontinence";\r\n g.item as it where ((linkId = 'symptoms/headache') 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 = 'palliative-headache' "cd";\r\n it -> cg.display = 'Headache' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_headache";\r\n g.item as it where ((linkId = 'symptoms/poor-vision') 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 = 'palliative-poor-vision' "cd";\r\n it -> cg.display = 'Poor vision' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_poor_vision";\r\n g.item as it where ((linkId = 'symptoms/weakness-of-limbs') 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 = 'palliative-weakness-of-limbs' "cd";\r\n it -> cg.display = 'Weakness of limbs' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_weakness_of_limbs";\r\n g.item as it where ((linkId = 'symptoms/dry-mouth') 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 = 'palliative-dry-mouth' "cd";\r\n it -> cg.display = 'Dry mouth' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_dry_mouth";\r\n g.item as it where ((linkId = 'symptoms/excessive-sleep') 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 = 'palliative-excessive-sleep' "cd";\r\n it -> cg.display = 'Excessive sleep' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_excessive_sleep";\r\n g.item as it where ((linkId = 'symptoms/hallucinations') 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 = 'palliative-hallucinations' "cd";\r\n it -> cg.display = 'Hallucinations' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_hallucinations";\r\n g.item as it where ((linkId = 'symptoms/sore-mouth') 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 = 'palliative-sore-mouth' "cd";\r\n it -> cg.display = 'Sore mouth' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_palliative_sore_mouth";\r\n } "symptomPanel";\r\n // ── Diagnosis ───────────────────────────────────────────────────────────\r\n // The form asks for both an existing Condition and the diagnosis as written.\r\n // Where an existing one was picked, the map records the reference as evidence\r\n // rather than creating a second Condition -- a palliative referral should not\r\n // fork the problem list of a patient who already has a coded cancer on it.\r\n qr.item as g where (linkId = 'diagnosis') then {\r\n g.item as it where ((linkId = 'diagnosis/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 };\r\n qr.authored as t -> cond.recordedDate = t "recordedDate";\r\n qr.encounter as e -> cond.encounter = e;\r\n g.item as ex where ((linkId = 'diagnosis/condition') and answer.value.exists()) then {\r\n ex.answer first as ea then {\r\n ea.value as existing -> cond.evidence as ev, ev.reference = existing "evidenceReference";\r\n };\r\n } "existingRule";\r\n } "diagnosisCondition";\r\n } "diagnosisGroup";\r\n // ── Prior oncological treatment ─────────────────────────────────────────\r\n // One Observation with a note per modality. The form takes free text -- "RT\r\n // 2024, 25 fractions" -- and a Procedure built from that would claim a date\r\n // and a body site it does not have.\r\n qr.item as g where ((linkId = 'prior-treatment') 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 = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n g -> cg.code = 'prior-oncological-treatment' "cd";\r\n g -> cg.display = 'Prior oncological treatment' "dsp";\r\n } "coding";\r\n } "code";\r\n g.item as it where (linkId = 'prior-treatment/radiotherapy') 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 g.item as it where (linkId = 'prior-treatment/chemotherapy') 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 = 'prior-treatment/surgery') 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 = 'prior-treatment/other') 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 = 'prior-treatment/p24-markers') 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 g.item as it where ((linkId = 'prior-treatment/not-discussed') 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 = 'prior-treatment-not-discussed-with-the-patient' "cd";\r\n it -> cg.display = 'Prior treatment not discussed with the patient' "dsp";\r\n } "coding";\r\n } "code";\r\n it -> comp then SetComponentCodedValue(it, comp) "value";\r\n } "comp_prior_treatment_not_discussed_with_the_patient";\r\n } "priorTreatmentPanel";\r\n // ── Goals, patient's and carer's, kept apart ────────────────────────────\r\n // Two Observations, deliberately. A carer who wants their relative admitted\r\n // and a patient who wants to die at home are both recorded, and folding them\r\n // into one note would hide exactly the conflict a palliative team has to work\r\n // with.\r\n qr.item as g where (linkId = 'psychosocial') then {\r\n g.item as it where ((linkId = 'psychosocial/patient-goals') 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 = 'patient-goals' "cd";\r\n it -> cg.display = 'Patient goals and expectations' "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_patient_goals";\r\n g.item as it where ((linkId = 'psychosocial/patient-stresses') 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 = 'patient-goals' "cd";\r\n it -> cg.display = 'Patient goals and expectations' "dsp";\r\n } "coding";\r\n it -> cc.text = 'Stresses the patient carries, and the help they feel is appropriate' "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_patient_goals2";\r\n g.item as it where ((linkId = 'psychosocial/carer-goals') 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 = 'carer-goals' "cd";\r\n it -> cg.display = 'Carer goals and expectations' "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_carer_goals";\r\n g.item as it where ((linkId = 'psychosocial/carer-stresses') 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 = 'carer-goals' "cd";\r\n it -> cg.display = 'Carer goals and expectations' "dsp";\r\n } "coding";\r\n it -> cc.text = 'Stresses the carer carries, and the help they feel is appropriate' "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_carer_goals2";\r\n g.item as it where ((linkId = 'psychosocial/spiritual-assessment') 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 = 'spiritual-assessment' "cd";\r\n it -> cg.display = 'Spiritual assessment' "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_spiritual_assessment";\r\n g.item as it where ((linkId = 'psychosocial/social-issues') 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 = '29762-2' "cd";\r\n it -> cg.display = 'Social history note' "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_29762_2";\r\n g.item as it where ((linkId = 'psychosocial/current-treatment') 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 it -> cc.text = 'Current treatment' "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_10160_0";\r\n } "psychosocialGroup";\r\n qr.item as it where ((linkId = 'history-of-illness') 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 = '10164-2' "cd";\r\n it -> cg.display = 'History of Present illness 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 } "narr_10164_2";\r\n qr.item as g where (linkId = 'referral') then {\r\n g.item as it where ((linkId = 'referral/source') 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 = 'palliative-referral-source' "cd";\r\n it -> cg.display = 'Palliative referral source' "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 };\r\n } "coded_palliative_symptom";\r\n g.item as it where ((linkId = 'referral/source-detail') 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 = 'palliative-referral-source' "cd";\r\n it -> cg.display = 'Palliative referral source' "dsp";\r\n } "coding";\r\n it -> cc.text = 'Referral detail' "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_palliative_referral_source";\r\n } "referralGroup";\r\n // ── The problem and action plan ─────────────────────────────────────────\r\n // One CarePlan, with a row per problem. Each row becomes an activity whose\r\n // display is the problem and whose progress note is the action -- the plan is\r\n // the deliverable of a palliative assessment, and the ward picks it up from\r\n // there rather than from the assessment narrative.\r\n // Guarded on at least one problem row: a CarePlan with no activities is a\r\n // plan nobody made.\r\n qr where (item.where(linkId = 'problem').item.where(linkId = 'problem/description').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 qr -> plan.status = 'active' "status";\r\n qr -> plan.intent = 'plan' "intent";\r\n qr -> plan.title = 'Palliative care plan' "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 qr -> plan.category as cat then {\r\n qr -> cat.coding as cg then {\r\n qr -> cg.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "sys";\r\n qr -> cg.code = 'palliative-problem' "cd";\r\n qr -> cg.display = 'Palliative care problem' "dsp";\r\n } "coding";\r\n } "category";\r\n qr.item as g where (linkId = 'problem') then {\r\n g.item as it where ((linkId = 'problem/description') and answer.value.exists()) -> plan.activity as act then {\r\n it.answer first as a then {\r\n a.value as txt -> act.plannedActivityReference = create('Reference') as ref, ref.display = txt "problemDisplay";\r\n };\r\n } "problemRow";\r\n g.item as it where ((linkId = 'problem/action-plan') and answer.value.exists()) then {\r\n it.answer first as a then {\r\n a.value as txt -> plan.note as n, n.text = txt "actionNote";\r\n };\r\n } "actionRow";\r\n } "problemRows";\r\n } "palliativeCarePlan";\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 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 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 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 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\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 = 'palliative-care-assessment' "provenanceCode";\r\n qr -> t.display = 'Palliative care assessment' "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