\r\n/// url = 'https://fhir.slade360.co.ke/fhir/StructureMap/ExtractOpticalPrescription'\r\n/// name = 'ExtractOpticalPrescription'\r\n/// title = 'Optical Prescription Extraction'\r\n/// status = 'active'\r\n/// description = 'The optical prescription out as one VisionPrescription plus one Observation per pupillary distance and visual acuity the prescriber wrote. VisionPrescription is the resource R5 defines for exactly this -- an authorization for the provision of glasses and/or contact lenses -- and it takes the powers: sphere, cylinder, axis and the reading addition for each eye, and the contact lens power, back curve, diameter, brand, colour and wear period. It has no element for pupillary distance or visual acuity, and LOINC names both on a glasses lens prescription per eye at distance and near, so those become LOINC-coded Observations rather than notes. Lens type and coating, which VisionPrescription also cannot code, go into lensSpecification.note, which R5 defines as notes for special requirements such as coatings and lens materials.'\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/VisionPrescription" alias VisionPrescription as target\r\nuses "http://hl7.org/fhir/StructureDefinition/Observation" alias Observation as target\r\n\r\ngroup ExtractOpticalPrescription(source qr : QR, target bundle : Bundle) {\r\n qr -> bundle.type = 'transaction' "setBundleType";\r\n // The prescription itself, created only when every element VisionPrescription\r\n // makes 1..1 can be filled from the response -- not bent to fit:\r\n // lensSpecification at least one lens power. The patterns are every power\r\n // item on the form -- the eyewear distance and near rows,\r\n // the reading addition and the contact lens rows -- and\r\n // deliberately not the pupillary distance or the visual\r\n // acuity, which are measurements and extract on their own\r\n // below, nor the transposed rows, which are the same\r\n // prescription computed the other way round.\r\n // patient the response's subject, when it is a Patient.\r\n // dateWritten, the response's authored. The form does not ask for a\r\n // created date; the client stamps it.\r\n // prescriber the response's author (else source) when it is a\r\n // Practitioner or a PractitionerRole. The form does not\r\n // ask who; the client stamps the practitioner recording\r\n // it.\r\n // A response short of any of these extracts no VisionPrescription. That is\r\n // the rule held rather than worked round: the alternative is a prescription\r\n // stored without a prescriber, or with one invented. The pupillary distances\r\n // and visual acuities still extract, because they need none of it.\r\n qr where ((repeat(item).where(linkId.matches('^(eyewear|contact-lens)/(right|left)/((distance|near)/)?(sph|cyl|add|power|base-curve|diameter)$')).answer.value.ofType(decimal).exists() or repeat(item).where(linkId.matches('^(eyewear|contact-lens)/(right|left)/((distance|near)/)?axis$')).answer.value.ofType(integer).exists()) and subject.where(reference.matches('(^|/)Patient/[^/]+$')).exists() and authored.exists() and (author.where(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')).exists() or source.where(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')).exists())) -> bundle.entry as entry, entry.resource = create('VisionPrescription') as vp then {\r\n qr -> vp, entry then BuildVisionPrescriptionBase(qr, vp, entry) "base";\r\n qr -> vp then SetPrescriber(qr, vp) "prescriber";\r\n qr.item as ew where (linkId = 'eyewear') then SpectacleLenses(qr, ew, vp) "eyewear";\r\n qr.item as cl where (linkId = 'contact-lens') then ContactLenses(qr, cl, vp) "contactLens";\r\n } "prescription";\r\n // Pupillary distance and visual acuity, one Observation each. These extract\r\n // whether or not there is a prescription: a PD taken for a frame fitting is\r\n // worth keeping on its own.\r\n qr.item as ew where (linkId = 'eyewear') then EyewearMeasurements(qr, ew, bundle) "measurements";\r\n}\r\n\r\n// ─────────────────────────────────────────────────────────────────────────────\r\n// The prescription\r\n// ─────────────────────────────────────────────────────────────────────────────\r\ngroup BuildVisionPrescriptionBase(source qr : QR, target vp : VisionPrescription, target entry) {\r\n qr -> vp then SetResponseProvenance(qr, vp) "responseProvenance";\r\n qr -> vp.id = uuid() then SetVisionPrescriptionFullUrl(vp, entry) "idAndFullUrl";\r\n qr -> entry.request as request then {\r\n qr -> request.method = 'POST' "requestMethod";\r\n qr -> request.url = 'VisionPrescription' "requestUrl";\r\n } "entryRequest";\r\n // `active`: a prescription recorded on this form is one somebody is about to\r\n // dispense against. fm-status has no `completed`.\r\n qr -> vp.status = 'active' "status";\r\n qr.subject as s where ((reference.exists() and (reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Patient')))) -> vp.patient = s "patient";\r\n qr.encounter as e where ((reference.exists() and (reference.startsWith('Encounter/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Encounter')))) -> vp.encounter = e;\r\n // Both dates, 1..1 each, are the response's `authored`. The form does not ask\r\n // for a prescription date: the client stamps the moment it was recorded, and\r\n // that is when this prescription was written and when this record was made.\r\n qr.authored as t -> vp.dateWritten = t "dateWritten";\r\n qr.authored as t -> vp.created = t "created";\r\n}\r\n\r\n// The prescriber is 1..1, and the form does not ask for one. It is the\r\n// practitioner who recorded the prescription, which the client stamps on the\r\n// response as `author`; `source` is taken when there is no author. Either is\r\n// copied across only when it points at a Practitioner or a PractitionerRole --\r\n// the two types VisionPrescription.prescriber allows -- because `author` may\r\n// also name a Device, a Patient or an Organization.\r\n// Nothing is guessed when neither qualifies: the rule that creates the\r\n// prescription is guarded on one of them, so this group always finds one.\r\ngroup SetPrescriber(source qr : QR, target vp : VisionPrescription) {\r\n qr.author as a where ((reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))) -> vp.prescriber = a "prescriberFromAuthor";\r\n qr where (author.where(((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))).exists().not()) then {\r\n qr.source as s where ((reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))) -> vp.prescriber = s "prescriberFromSource";\r\n } "sourceFallback";\r\n}\r\n\r\n// ── Spectacle lenses ─────────────────────────────────────────────────────────\r\n// Up to two lens specifications per eye, one per row the prescriber filled in.\r\n// The distance specification carries the distance vision (DV) row and the\r\n// reading addition. That is the shape R5 itself uses for a spectacle\r\n// prescription -- one specification per eye with the distance powers and\r\n// `add` -- so a consumer that reads only that one still gets a complete\r\n// multifocal prescription.\r\n// The near specification carries the near vision (NV) row, when one was\r\n// written. It is not derived from DV + ADD and it is not dropped when an ADD is\r\n// present: the prescriber wrote it, and for reading glasses it is the whole\r\n// prescription. The two cannot be told apart by any element R5 gives a lens\r\n// specification, so `product` carries HL7's `lens` beside the local\r\n// `spectacle-lens-distance` or `spectacle-lens-near` -- the same product at a\r\n// finer grain, which the example-strength binding allows.\r\n// linkIds are matched by suffix inside an eye, so the two eyes share one set\r\n// of groups. The eye code is set by the caller, which is the only place that\r\n// knows which eye it is in.\r\ngroup SpectacleLenses(source qr : QR, source ew, target vp : VisionPrescription) {\r\n ew.item as eye where (linkId = 'eyewear/right') then {\r\n eye where (item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists() or item.where(linkId.endsWith('/add')).answer.value.ofType(decimal).exists()) -> vp.lensSpecification as spec then {\r\n eye -> spec then DistanceSpectacleLens(qr, ew, eye, spec) "lens";\r\n eye -> spec.eye = 'right' "eyeCode";\r\n } "rightDistance";\r\n eye where (item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists()) -> vp.lensSpecification as spec then {\r\n eye -> spec then NearSpectacleLens(qr, ew, eye, spec) "lens";\r\n eye -> spec.eye = 'right' "eyeCode";\r\n } "rightNear";\r\n } "right";\r\n ew.item as eye where (linkId = 'eyewear/left') then {\r\n eye where (item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists() or item.where(linkId.endsWith('/add')).answer.value.ofType(decimal).exists()) -> vp.lensSpecification as spec then {\r\n eye -> spec then DistanceSpectacleLens(qr, ew, eye, spec) "lens";\r\n eye -> spec.eye = 'left' "eyeCode";\r\n } "leftDistance";\r\n eye where (item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists()) -> vp.lensSpecification as spec then {\r\n eye -> spec then NearSpectacleLens(qr, ew, eye, spec) "lens";\r\n eye -> spec.eye = 'left' "eyeCode";\r\n } "leftNear";\r\n } "left";\r\n}\r\n\r\ngroup DistanceSpectacleLens(source qr : QR, source ew, source eye, target spec) {\r\n eye -> spec.product as product then {\r\n eye -> product.coding as coding then {\r\n eye -> coding.system = 'http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct' "hl7System";\r\n eye -> coding.code = 'lens' "hl7Code";\r\n eye -> coding.display = 'Lens' "hl7Display";\r\n } "hl7Coding";\r\n eye -> product.coding as coding then {\r\n eye -> coding.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "rowSystem";\r\n eye -> coding.code = 'spectacle-lens-distance' "rowCode";\r\n eye -> coding.display = 'Spectacle lens for distance vision' "rowDisplay";\r\n } "rowCoding";\r\n eye -> product.text = 'Spectacle lens — distance vision (DV)' "productText";\r\n } "product";\r\n eye.item as row where (linkId.endsWith('/distance')) then {\r\n row -> spec then LensPowers(row, spec) "powers";\r\n } "distanceRow";\r\n eye.item as it where (linkId.endsWith('/add') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.add = v "addValue";\r\n } "addAnswer";\r\n } "addition";\r\n ew -> spec then SpectacleLensNotes(qr, ew, spec) "notes";\r\n}\r\n\r\ngroup NearSpectacleLens(source qr : QR, source ew, source eye, target spec) {\r\n eye -> spec.product as product then {\r\n eye -> product.coding as coding then {\r\n eye -> coding.system = 'http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct' "hl7System";\r\n eye -> coding.code = 'lens' "hl7Code";\r\n eye -> coding.display = 'Lens' "hl7Display";\r\n } "hl7Coding";\r\n eye -> product.coding as coding then {\r\n eye -> coding.system = 'https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem' "rowSystem";\r\n eye -> coding.code = 'spectacle-lens-near' "rowCode";\r\n eye -> coding.display = 'Spectacle lens for near vision' "rowDisplay";\r\n } "rowCoding";\r\n eye -> product.text = 'Spectacle lens — near vision (NV)' "productText";\r\n } "product";\r\n eye.item as row where (linkId.endsWith('/near')) then {\r\n row -> spec then LensPowers(row, spec) "powers";\r\n } "nearRow";\r\n ew -> spec then SpectacleLensNotes(qr, ew, spec) "notes";\r\n}\r\n\r\n// Sphere, cylinder and axis off one row. Typed guards, because a rule that\r\n// assigns an answer of the wrong type to a decimal element does not skip -- it\r\n// fails the whole extraction.\r\ngroup LensPowers(source row, target spec) {\r\n row.item as it where (linkId.endsWith('/sph') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.sphere = v "sphereValue";\r\n } "sphereAnswer";\r\n } "sphere";\r\n row.item as it where (linkId.endsWith('/cyl') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.cylinder = v "cylinderValue";\r\n } "cylinderAnswer";\r\n } "cylinder";\r\n row.item as it where (linkId.endsWith('/axis') and answer.value.ofType(integer).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.axis = v "axisValue";\r\n } "axisAnswer";\r\n } "axis";\r\n}\r\n\r\n// Lens type and coating, as the words the prescriber ticked. VisionPrescription\r\n// has no coded element for either; `note` is where R5 says they go ("notes for\r\n// special requirements such as coatings and lens materials"), and the codes\r\n// themselves stay on the response. Both go on every spectacle specification,\r\n// because the paper ticks them once for the pair.\r\ngroup SpectacleLensNotes(source qr : QR, source ew, target spec) {\r\n ew.item as it where ((linkId = 'eyewear/lens-types') and answer.value.ofType(Coding).exists()) -> spec.note as note then {\r\n it -> note.text = evaluate(it, 'Lens type: ' & answer.value.ofType(Coding).select(iif(display.exists(), display, code)).join(', ')) "lensTypeText";\r\n } "lensTypes";\r\n ew.item as it where ((linkId = 'eyewear/lens-coating') and answer.value.ofType(Coding).exists()) -> spec.note as note then {\r\n it -> note.text = evaluate(it, 'Lens coating: ' & answer.value.ofType(Coding).select(iif(display.exists(), display, code)).join(', ')) "lensCoatingText";\r\n } "lensCoating";\r\n qr -> spec then PrescriptionNotes(qr, spec) "prescriptionNotes";\r\n}\r\n\r\n// The free-text prescription notes. VisionPrescription has no note of its own,\r\n// only one per lens specification, so the notes go on each specification --\r\n// repeated rather than put on whichever happens to be first, which a consumer\r\n// reading one eye would miss.\r\ngroup PrescriptionNotes(source qr : QR, target spec) {\r\n qr.item as it where ((linkId = 'notes') and answer.value.ofType(string).exists()) -> spec.note as note then {\r\n it.answer first as a then {\r\n a.value as v -> note.text = v "noteText";\r\n } "noteAnswer";\r\n } "notes";\r\n}\r\n\r\n// ── Contact lenses ───────────────────────────────────────────────────────────\r\n// One specification per eye with anything written on it. The contact lens\r\n// power goes to `power`, R5's "contact lens power", which is what its own\r\n// contact lens example uses; `sphere` stays the spectacle lens power. Brand,\r\n// colour and the replacement schedule are asked once for the pair and copied\r\n// onto both eyes, because R5 holds them per specification.\r\ngroup ContactLenses(source qr : QR, source cl, target vp : VisionPrescription) {\r\n cl.item as eye where ((linkId = 'contact-lens/right') and (item.answer.value.ofType(decimal).exists() or item.answer.value.ofType(integer).exists())) -> vp.lensSpecification as spec then {\r\n eye -> spec then ContactLens(qr, cl, eye, spec) "lens";\r\n eye -> spec.eye = 'right' "eyeCode";\r\n } "right";\r\n cl.item as eye where ((linkId = 'contact-lens/left') and (item.answer.value.ofType(decimal).exists() or item.answer.value.ofType(integer).exists())) -> vp.lensSpecification as spec then {\r\n eye -> spec then ContactLens(qr, cl, eye, spec) "lens";\r\n eye -> spec.eye = 'left' "eyeCode";\r\n } "left";\r\n}\r\n\r\ngroup ContactLens(source qr : QR, source cl, source eye, target spec) {\r\n eye -> spec.product as product then {\r\n eye -> product.coding as coding then {\r\n eye -> coding.system = 'http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct' "hl7System";\r\n eye -> coding.code = 'contact' "hl7Code";\r\n eye -> coding.display = 'Contact Lens' "hl7Display";\r\n } "hl7Coding";\r\n eye -> product.text = 'Contact lens' "productText";\r\n } "product";\r\n eye.item as it where (linkId.endsWith('/power') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.power = v "powerValue";\r\n } "powerAnswer";\r\n } "power";\r\n eye.item as it where (linkId.endsWith('/cyl') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.cylinder = v "cylinderValue";\r\n } "cylinderAnswer";\r\n } "cylinder";\r\n eye.item as it where (linkId.endsWith('/axis') and answer.value.ofType(integer).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.axis = v "axisValue";\r\n } "axisAnswer";\r\n } "axis";\r\n eye.item as it where (linkId.endsWith('/add') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.add = v "addValue";\r\n } "addAnswer";\r\n } "addition";\r\n eye.item as it where (linkId.endsWith('/base-curve') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.backCurve = v "backCurveValue";\r\n } "backCurveAnswer";\r\n } "backCurve";\r\n eye.item as it where (linkId.endsWith('/diameter') and answer.value.ofType(decimal).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.diameter = v "diameterValue";\r\n } "diameterAnswer";\r\n } "diameter";\r\n cl.item as it where ((linkId = 'contact-lens/brand') and answer.value.ofType(string).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.brand = v "brandValue";\r\n } "brandAnswer";\r\n } "brand";\r\n cl.item as it where ((linkId = 'contact-lens/colour') and answer.value.ofType(string).exists()) then {\r\n it.answer first as a then {\r\n a.value as v -> spec.color = v "colourValue";\r\n } "colourAnswer";\r\n } "colour";\r\n // The replacement schedule is R5's `duration`, "the recommended maximum wear\r\n // period for the lens", as a UCUM Quantity. One rule per answer, each guarded\r\n // on its own code, so an answer this map does not know writes no duration\r\n // rather than an empty Quantity.\r\n cl.item as it where ((linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-daily')) -> spec.duration as d then {\r\n it -> d.value = 1 "value";\r\n it -> d.unit = 'day' "unit";\r\n it -> d.system = 'http://unitsofmeasure.org' "system";\r\n it -> d.code = 'd' "code";\r\n } "daily";\r\n cl.item as it where ((linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-two-weekly')) -> spec.duration as d then {\r\n it -> d.value = 2 "value";\r\n it -> d.unit = 'weeks' "unit";\r\n it -> d.system = 'http://unitsofmeasure.org' "system";\r\n it -> d.code = 'wk' "code";\r\n } "twoWeekly";\r\n cl.item as it where ((linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-monthly')) -> spec.duration as d then {\r\n it -> d.value = 1 "value";\r\n it -> d.unit = 'month' "unit";\r\n it -> d.system = 'http://unitsofmeasure.org' "system";\r\n it -> d.code = 'mo' "code";\r\n } "monthly";\r\n cl.item as it where ((linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-quarterly')) -> spec.duration as d then {\r\n it -> d.value = 3 "value";\r\n it -> d.unit = 'months' "unit";\r\n it -> d.system = 'http://unitsofmeasure.org' "system";\r\n it -> d.code = 'mo' "code";\r\n } "quarterly";\r\n cl.item as it where ((linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-yearly')) -> spec.duration as d then {\r\n it -> d.value = 1 "value";\r\n it -> d.unit = 'year' "unit";\r\n it -> d.system = 'http://unitsofmeasure.org' "system";\r\n it -> d.code = 'a' "code";\r\n } "yearly";\r\n qr -> spec then PrescriptionNotes(qr, spec) "prescriptionNotes";\r\n}\r\n\r\n// ─────────────────────────────────────────────────────────────────────────────\r\n// Pupillary distance and visual acuity\r\n// Neither has a home in VisionPrescription, and LOINC names both exactly, per\r\n// eye, on a glasses lens prescription -- so each is its own Observation under\r\n// its own code rather than prose in a note. The codes were looked up, not\r\n// assumed; each display below is LOINC's own:\r\n// distance (DV) near (NV)\r\n// R-PD 28840-7 28841-5 mm\r\n// L-PD 28857-1 55985-6 mm\r\n// R-VA 28831-6 28839-9 as written\r\n// L-VA 28847-2 28856-3 as written\r\n// The PD without a qualifier is LOINC's distance PD; near is the one it\r\n// qualifies. Visual acuity is kept as the string the prescriber wrote -- 6/6,\r\n// 6/9, N6, CF -- because the notations mix Snellen fractions, N-point print\r\n// sizes and counting fingers, and forcing them into a Ratio would lose the ones\r\n// that are not fractions.\r\n// Nothing on VisionPrescription can point at these. They are tied to it by the\r\n// encounter, by `derivedFrom` naming the same response, and by the same\r\n// provenance tag.\r\n// ─────────────────────────────────────────────────────────────────────────────\r\ngroup EyewearMeasurements(source qr : QR, source ew, target bundle : Bundle) {\r\n ew.item as eye where (linkId = 'eyewear/right') then {\r\n eye.item as row where (linkId = 'eyewear/right/distance') then {\r\n row.item as it where ((linkId = 'eyewear/right/distance/pd') and answer.value.ofType(decimal).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28840-7' "code";\r\n it -> coding.display = 'Right glasses lens prescription Pupillary distance.monocular' "display";\r\n } "coding";\r\n it -> code.text = 'Right eye pupillary distance, distance vision (R-PD, DV)' "text";\r\n } "code";\r\n it -> obs then SetMillimetres(it, obs) "value";\r\n } "rightDistancePd";\r\n row.item as it where ((linkId = 'eyewear/right/distance/va') and answer.value.ofType(string).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28831-6' "code";\r\n it -> coding.display = 'Right glasses lens prescription Visual acuity far' "display";\r\n } "coding";\r\n it -> code.text = 'Right eye visual acuity, distance vision (R-VA, DV)' "text";\r\n } "code";\r\n it -> obs then SetAcuity(it, obs) "value";\r\n } "rightDistanceVa";\r\n } "rightDistance";\r\n eye.item as row where (linkId = 'eyewear/right/near') then {\r\n row.item as it where ((linkId = 'eyewear/right/near/pd') and answer.value.ofType(decimal).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28841-5' "code";\r\n it -> coding.display = 'Right glasses lens prescription Pupillary distance.monocular near' "display";\r\n } "coding";\r\n it -> code.text = 'Right eye pupillary distance, near vision (R-PD, NV)' "text";\r\n } "code";\r\n it -> obs then SetMillimetres(it, obs) "value";\r\n } "rightNearPd";\r\n row.item as it where ((linkId = 'eyewear/right/near/va') and answer.value.ofType(string).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28839-9' "code";\r\n it -> coding.display = 'Right glasses lens prescription Visual acuity near' "display";\r\n } "coding";\r\n it -> code.text = 'Right eye visual acuity, near vision (R-VA, NV)' "text";\r\n } "code";\r\n it -> obs then SetAcuity(it, obs) "value";\r\n } "rightNearVa";\r\n } "rightNear";\r\n } "right";\r\n ew.item as eye where (linkId = 'eyewear/left') then {\r\n eye.item as row where (linkId = 'eyewear/left/distance') then {\r\n row.item as it where ((linkId = 'eyewear/left/distance/pd') and answer.value.ofType(decimal).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28857-1' "code";\r\n it -> coding.display = 'Left glasses lens prescription Pupillary distance.monocular' "display";\r\n } "coding";\r\n it -> code.text = 'Left eye pupillary distance, distance vision (L-PD, DV)' "text";\r\n } "code";\r\n it -> obs then SetMillimetres(it, obs) "value";\r\n } "leftDistancePd";\r\n row.item as it where ((linkId = 'eyewear/left/distance/va') and answer.value.ofType(string).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28847-2' "code";\r\n it -> coding.display = 'Left glasses lens prescription Visual acuity far' "display";\r\n } "coding";\r\n it -> code.text = 'Left eye visual acuity, distance vision (L-VA, DV)' "text";\r\n } "code";\r\n it -> obs then SetAcuity(it, obs) "value";\r\n } "leftDistanceVa";\r\n } "leftDistance";\r\n eye.item as row where (linkId = 'eyewear/left/near') then {\r\n row.item as it where ((linkId = 'eyewear/left/near/pd') and answer.value.ofType(decimal).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '55985-6' "code";\r\n it -> coding.display = 'Left glasses lens prescription Pupillary distance.monocular near' "display";\r\n } "coding";\r\n it -> code.text = 'Left eye pupillary distance, near vision (L-PD, NV)' "text";\r\n } "code";\r\n it -> obs then SetMillimetres(it, obs) "value";\r\n } "leftNearPd";\r\n row.item as it where ((linkId = 'eyewear/left/near/va') and answer.value.ofType(string).exists()) -> bundle.entry as entry, entry.resource = create('Observation') as obs then {\r\n qr -> obs, entry then BuildObservationBase(qr, obs, entry) "base";\r\n it -> obs.code as code then {\r\n it -> code.coding as coding then {\r\n it -> coding.system = 'http://loinc.org' "system";\r\n it -> coding.code = '28856-3' "code";\r\n it -> coding.display = 'Left glasses lens prescription Visual acuity near' "display";\r\n } "coding";\r\n it -> code.text = 'Left eye visual acuity, near vision (L-VA, NV)' "text";\r\n } "code";\r\n it -> obs then SetAcuity(it, obs) "value";\r\n } "leftNearVa";\r\n } "leftNear";\r\n } "left";\r\n}\r\n\r\n// `Observation.value[x]` has no decimal choice, so the PD is built as a UCUM\r\n// Quantity. The unit is fixed by the form.\r\ngroup SetMillimetres(source it, target obs : Observation) {\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 "quantityValue";\r\n v -> q.unit = 'mm' "quantityUnit";\r\n v -> q.system = 'http://unitsofmeasure.org' "quantitySystem";\r\n v -> q.code = 'mm' "quantityCode";\r\n } "quantity";\r\n };\r\n}\r\n\r\ngroup SetAcuity(source it, target obs : Observation) {\r\n it.answer first as a then {\r\n a.value as v -> obs.value = v "acuityValue";\r\n };\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// ─────────────────────────────────────────────────────────────────────────────\r\ngroup BuildObservationBase(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 -> 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 qr.subject as s where ((reference.exists() and (reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Patient')))) -> obs.subject = s;\r\n qr.encounter as e where ((reference.exists() and (reference.startsWith('Encounter/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Encounter')))) -> obs.encounter = e;\r\n // Measured when the prescription was written, which is the response's\r\n // `authored` -- the form does not ask for a date.\r\n qr.authored as t -> obs.effective = t "effective";\r\n // Measured by the prescriber, chosen the same way as on the prescription.\r\n qr.author as a where ((reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))) -> obs.performer = a "performerFromAuthor";\r\n qr where (author.where(((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))).exists().not()) then {\r\n qr.source as s where ((reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))) -> obs.performer = s "performerFromSource";\r\n } "performerSourceFallback";\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\ngroup SetVisionPrescriptionFullUrl(source vp : VisionPrescription, target entry) {\r\n vp.id as id -> entry.fullUrl = append('https://fhir.slade360.co.ke/fhir/VisionPrescription/', id) "assignFullUrl";\r\n}\r\n\r\n// ── Provenance and tenancy ───────────────────────────────────────────────────\r\n// Two tags on everything this map creates. The first says which form produced\r\n// it -- the form's document type, not the questionnaire's id, because every\r\n// environment mints its own ids and there is one set of maps. The second copies\r\n// the tenant tags off the response, because nothing else on the path puts them\r\n// there.\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 = 'optical-prescription' "provenanceCode";\r\n qr -> t.display = 'Optical prescription' "provenanceDisplay";\r\n } "provenanceTag";\r\n } "provenanceMeta";\r\n // `meta` is 0..1, so this lands on the same meta the rule above created\r\n // 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 "
},
"url" : "https://fhir.slade360.co.ke/fhir/StructureMap/ExtractOpticalPrescription",
"version" : "0.1.0",
"name" : "ExtractOpticalPrescription",
"title" : "Optical Prescription Extraction",
"status" : "active",
"date" : "2026-10-06T18:48:22+00:00",
"publisher" : "Kathurima Kimathi",
"contact" : [{
"name" : "Kathurima Kimathi",
"telecom" : [{
"system" : "url",
"value" : "https://www.linkedin.com/in/kathurima-kimathi/"
},
{
"system" : "email",
"value" : "kathurimakimathi415@gmail.com"
}]
},
{
"name" : "Oscar John",
"telecom" : [{
"system" : "email",
"value" : "oscarjohnotieno@gmail.com",
"use" : "work"
}]
},
{
"name" : "Kennedy Omondi",
"telecom" : [{
"system" : "email",
"value" : "kennankole@gmail.com",
"use" : "work"
}]
}],
"description" : "The optical prescription out as one VisionPrescription plus one Observation per pupillary distance and visual acuity the prescriber wrote. VisionPrescription is the resource R5 defines for exactly this -- an authorization for the provision of glasses and/or contact lenses -- and it takes the powers: sphere, cylinder, axis and the reading addition for each eye, and the contact lens power, back curve, diameter, brand, colour and wear period. It has no element for pupillary distance or visual acuity, and LOINC names both on a glasses lens prescription per eye at distance and near, so those become LOINC-coded Observations rather than notes. Lens type and coating, which VisionPrescription also cannot code, go into lensSpecification.note, which R5 defines as notes for special requirements such as coatings and lens materials.",
"structure" : [{
"url" : "http://hl7.org/fhir/StructureDefinition/QuestionnaireResponse",
"mode" : "source",
"alias" : "QR"
},
{
"url" : "http://hl7.org/fhir/StructureDefinition/Bundle",
"mode" : "target",
"alias" : "Bundle"
},
{
"url" : "http://hl7.org/fhir/StructureDefinition/VisionPrescription",
"mode" : "target",
"alias" : "VisionPrescription"
},
{
"url" : "http://hl7.org/fhir/StructureDefinition/Observation",
"mode" : "target",
"alias" : "Observation"
}],
"group" : [{
"name" : "ExtractOpticalPrescription",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "bundle",
"type" : "Bundle",
"mode" : "target"
}],
"rule" : [{
"name" : "setBundleType",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "bundle",
"element" : "type",
"transform" : "copy",
"parameter" : [{
"valueString" : "transaction"
}]
}]
},
{
"name" : "prescription",
"source" : [{
"context" : "qr",
"condition" : "(repeat(item).where(linkId.matches('^(eyewear|contact-lens)/(right|left)/((distance|near)/)?(sph|cyl|add|power|base-curve|diameter)$')).answer.value.ofType(decimal).exists() or repeat(item).where(linkId.matches('^(eyewear|contact-lens)/(right|left)/((distance|near)/)?axis$')).answer.value.ofType(integer).exists()) and subject.where(reference.matches('(^|/)Patient/[^/]+$')).exists() and authored.exists() and (author.where(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')).exists() or source.where(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')).exists())"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "vp",
"transform" : "create",
"parameter" : [{
"valueString" : "VisionPrescription"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "vp"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildVisionPrescriptionBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "vp"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "prescriber",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "vp"
}],
"dependent" : [{
"name" : "SetPrescriber",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "vp"
}]
}]
},
{
"name" : "eyewear",
"source" : [{
"context" : "qr",
"element" : "item",
"variable" : "ew",
"condition" : "linkId = 'eyewear'"
}],
"dependent" : [{
"name" : "SpectacleLenses",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "vp"
}]
}]
},
{
"name" : "contactLens",
"source" : [{
"context" : "qr",
"element" : "item",
"variable" : "cl",
"condition" : "linkId = 'contact-lens'"
}],
"dependent" : [{
"name" : "ContactLenses",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "cl"
},
{
"valueId" : "vp"
}]
}]
}],
"documentation" : "The prescription itself, created only when every element VisionPrescription\r\nmakes 1..1 can be filled from the response -- not bent to fit:\r\nlensSpecification at least one lens power. The patterns are every power\r\nitem on the form -- the eyewear distance and near rows,\r\nthe reading addition and the contact lens rows -- and\r\ndeliberately not the pupillary distance or the visual\r\nacuity, which are measurements and extract on their own\r\nbelow, nor the transposed rows, which are the same\r\nprescription computed the other way round.\r\npatient the response's subject, when it is a Patient.\r\ndateWritten, the response's authored. The form does not ask for a\r\ncreated date; the client stamps it.\r\nprescriber the response's author (else source) when it is a\r\nPractitioner or a PractitionerRole. The form does not\r\nask who; the client stamps the practitioner recording\r\nit.\r\nA response short of any of these extracts no VisionPrescription. That is\r\nthe rule held rather than worked round: the alternative is a prescription\r\nstored without a prescriber, or with one invented. The pupillary distances\r\nand visual acuities still extract, because they need none of it."
},
{
"name" : "measurements",
"source" : [{
"context" : "qr",
"element" : "item",
"variable" : "ew",
"condition" : "linkId = 'eyewear'"
}],
"dependent" : [{
"name" : "EyewearMeasurements",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "bundle"
}]
}],
"documentation" : "Pupillary distance and visual acuity, one Observation each. These extract\r\nwhether or not there is a prescription: a PD taken for a frame fitting is\r\nworth keeping on its own."
}]
},
{
"name" : "BuildVisionPrescriptionBase",
"documentation" : "─────────────────────────────────────────────────────────────────────────────\r\nThe prescription\r\n─────────────────────────────────────────────────────────────────────────────",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "vp",
"type" : "VisionPrescription",
"mode" : "target"
},
{
"name" : "entry",
"mode" : "target"
}],
"rule" : [{
"name" : "responseProvenance",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "vp"
}],
"dependent" : [{
"name" : "SetResponseProvenance",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "vp"
}]
}]
},
{
"name" : "idAndFullUrl",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "vp",
"element" : "id",
"transform" : "uuid"
}],
"dependent" : [{
"name" : "SetVisionPrescriptionFullUrl",
"parameter" : [{
"valueId" : "vp"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "entryRequest",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "entry",
"element" : "request",
"variable" : "request"
}],
"rule" : [{
"name" : "requestMethod",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "request",
"element" : "method",
"transform" : "copy",
"parameter" : [{
"valueString" : "POST"
}]
}]
},
{
"name" : "requestUrl",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "request",
"element" : "url",
"transform" : "copy",
"parameter" : [{
"valueString" : "VisionPrescription"
}]
}]
}]
},
{
"name" : "status",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "vp",
"element" : "status",
"transform" : "copy",
"parameter" : [{
"valueString" : "active"
}]
}],
"documentation" : "`active`: a prescription recorded on this form is one somebody is about to\r\ndispense against. fm-status has no `completed`."
},
{
"name" : "patient",
"source" : [{
"context" : "qr",
"element" : "subject",
"variable" : "s",
"condition" : "(reference.exists() and (reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Patient')))"
}],
"target" : [{
"context" : "vp",
"element" : "patient",
"transform" : "copy",
"parameter" : [{
"valueId" : "s"
}]
}]
},
{
"name" : "encounter",
"source" : [{
"context" : "qr",
"element" : "encounter",
"variable" : "e",
"condition" : "(reference.exists() and (reference.startsWith('Encounter/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Encounter')))"
}],
"target" : [{
"context" : "vp",
"element" : "encounter",
"transform" : "copy",
"parameter" : [{
"valueId" : "e"
}]
}]
},
{
"name" : "dateWritten",
"source" : [{
"context" : "qr",
"element" : "authored",
"variable" : "t"
}],
"target" : [{
"context" : "vp",
"element" : "dateWritten",
"transform" : "copy",
"parameter" : [{
"valueId" : "t"
}]
}],
"documentation" : "Both dates, 1..1 each, are the response's `authored`. The form does not ask\r\nfor a prescription date: the client stamps the moment it was recorded, and\r\nthat is when this prescription was written and when this record was made."
},
{
"name" : "created",
"source" : [{
"context" : "qr",
"element" : "authored",
"variable" : "t"
}],
"target" : [{
"context" : "vp",
"element" : "created",
"transform" : "copy",
"parameter" : [{
"valueId" : "t"
}]
}]
}]
},
{
"name" : "SetPrescriber",
"documentation" : "The prescriber is 1..1, and the form does not ask for one. It is the\r\npractitioner who recorded the prescription, which the client stamps on the\r\nresponse as `author`; `source` is taken when there is no author. Either is\r\ncopied across only when it points at a Practitioner or a PractitionerRole --\r\nthe two types VisionPrescription.prescriber allows -- because `author` may\r\nalso name a Device, a Patient or an Organization.\r\nNothing is guessed when neither qualifies: the rule that creates the\r\nprescription is guarded on one of them, so this group always finds one.",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "vp",
"type" : "VisionPrescription",
"mode" : "target"
}],
"rule" : [{
"name" : "prescriberFromAuthor",
"source" : [{
"context" : "qr",
"element" : "author",
"variable" : "a",
"condition" : "(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))"
}],
"target" : [{
"context" : "vp",
"element" : "prescriber",
"transform" : "copy",
"parameter" : [{
"valueId" : "a"
}]
}]
},
{
"name" : "sourceFallback",
"source" : [{
"context" : "qr",
"condition" : "author.where(((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))).exists().not()"
}],
"rule" : [{
"name" : "prescriberFromSource",
"source" : [{
"context" : "qr",
"element" : "source",
"variable" : "s",
"condition" : "(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Practitioner/') or reference.startsWith('PractitionerRole/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Practitioner') or ('/' + type).endsWith('/PractitionerRole'))))"
}],
"target" : [{
"context" : "vp",
"element" : "prescriber",
"transform" : "copy",
"parameter" : [{
"valueId" : "s"
}]
}]
}]
}]
},
{
"name" : "SpectacleLenses",
"documentation" : "── Spectacle lenses ─────────────────────────────────────────────────────────\r\nUp to two lens specifications per eye, one per row the prescriber filled in.\r\nThe distance specification carries the distance vision (DV) row and the\r\nreading addition. That is the shape R5 itself uses for a spectacle\r\nprescription -- one specification per eye with the distance powers and\r\n`add` -- so a consumer that reads only that one still gets a complete\r\nmultifocal prescription.\r\nThe near specification carries the near vision (NV) row, when one was\r\nwritten. It is not derived from DV + ADD and it is not dropped when an ADD is\r\npresent: the prescriber wrote it, and for reading glasses it is the whole\r\nprescription. The two cannot be told apart by any element R5 gives a lens\r\nspecification, so `product` carries HL7's `lens` beside the local\r\n`spectacle-lens-distance` or `spectacle-lens-near` -- the same product at a\r\nfiner grain, which the example-strength binding allows.\r\nlinkIds are matched by suffix inside an eye, so the two eyes share one set\r\nof groups. The eye code is set by the caller, which is the only place that\r\nknows which eye it is in.",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "ew",
"mode" : "source"
},
{
"name" : "vp",
"type" : "VisionPrescription",
"mode" : "target"
}],
"rule" : [{
"name" : "right",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "eye",
"condition" : "linkId = 'eyewear/right'"
}],
"rule" : [{
"name" : "rightDistance",
"source" : [{
"context" : "eye",
"condition" : "item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists() or item.where(linkId.endsWith('/add')).answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "DistanceSpectacleLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "right"
}]
}]
}]
},
{
"name" : "rightNear",
"source" : [{
"context" : "eye",
"condition" : "item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists()"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "NearSpectacleLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "right"
}]
}]
}]
}]
},
{
"name" : "left",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "eye",
"condition" : "linkId = 'eyewear/left'"
}],
"rule" : [{
"name" : "leftDistance",
"source" : [{
"context" : "eye",
"condition" : "item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/distance')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists() or item.where(linkId.endsWith('/add')).answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "DistanceSpectacleLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "left"
}]
}]
}]
},
{
"name" : "leftNear",
"source" : [{
"context" : "eye",
"condition" : "item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/sph') or linkId.endsWith('/cyl')).answer.value.ofType(decimal).exists() or item.where(linkId.endsWith('/near')).item.where(linkId.endsWith('/axis')).answer.value.ofType(integer).exists()"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "NearSpectacleLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "left"
}]
}]
}]
}]
}]
},
{
"name" : "DistanceSpectacleLens",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "ew",
"mode" : "source"
},
{
"name" : "eye",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "product",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "product",
"variable" : "product"
}],
"rule" : [{
"name" : "hl7Coding",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "hl7System",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct"
}]
}]
},
{
"name" : "hl7Code",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "lens"
}]
}]
},
{
"name" : "hl7Display",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Lens"
}]
}]
}]
},
{
"name" : "rowCoding",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "rowSystem",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem"
}]
}]
},
{
"name" : "rowCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "spectacle-lens-distance"
}]
}]
},
{
"name" : "rowDisplay",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Spectacle lens for distance vision"
}]
}]
}]
},
{
"name" : "productText",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Spectacle lens — distance vision (DV)"
}]
}]
}]
},
{
"name" : "distanceRow",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId.endsWith('/distance')"
}],
"rule" : [{
"name" : "powers",
"source" : [{
"context" : "row"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "LensPowers",
"parameter" : [{
"valueId" : "row"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "addition",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/add') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "addAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "addValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "add",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "notes",
"source" : [{
"context" : "ew"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "SpectacleLensNotes",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "NearSpectacleLens",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "ew",
"mode" : "source"
},
{
"name" : "eye",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "product",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "product",
"variable" : "product"
}],
"rule" : [{
"name" : "hl7Coding",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "hl7System",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct"
}]
}]
},
{
"name" : "hl7Code",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "lens"
}]
}]
},
{
"name" : "hl7Display",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Lens"
}]
}]
}]
},
{
"name" : "rowCoding",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "rowSystem",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "https://fhir.slade360.co.ke/fhir/CodeSystem/concept-codesystem"
}]
}]
},
{
"name" : "rowCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "spectacle-lens-near"
}]
}]
},
{
"name" : "rowDisplay",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Spectacle lens for near vision"
}]
}]
}]
},
{
"name" : "productText",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Spectacle lens — near vision (NV)"
}]
}]
}]
},
{
"name" : "nearRow",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId.endsWith('/near')"
}],
"rule" : [{
"name" : "powers",
"source" : [{
"context" : "row"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "LensPowers",
"parameter" : [{
"valueId" : "row"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "notes",
"source" : [{
"context" : "ew"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "SpectacleLensNotes",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "ew"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "LensPowers",
"documentation" : "Sphere, cylinder and axis off one row. Typed guards, because a rule that\r\nassigns an answer of the wrong type to a decimal element does not skip -- it\r\nfails the whole extraction.",
"input" : [{
"name" : "row",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "sphere",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/sph') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "sphereAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "sphereValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "sphere",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "cylinder",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/cyl') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "cylinderAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "cylinderValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "cylinder",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "axis",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/axis') and answer.value.ofType(integer).exists()"
}],
"rule" : [{
"name" : "axisAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "axisValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "axis",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
}]
},
{
"name" : "SpectacleLensNotes",
"documentation" : "Lens type and coating, as the words the prescriber ticked. VisionPrescription\r\nhas no coded element for either; `note` is where R5 says they go (\"notes for\r\nspecial requirements such as coatings and lens materials\"), and the codes\r\nthemselves stay on the response. Both go on every spectacle specification,\r\nbecause the paper ticks them once for the pair.",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "ew",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "lensTypes",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/lens-types') and answer.value.ofType(Coding).exists()"
}],
"target" : [{
"context" : "spec",
"element" : "note",
"variable" : "note"
}],
"rule" : [{
"name" : "lensTypeText",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "note",
"element" : "text",
"transform" : "evaluate",
"parameter" : [{
"valueId" : "it"
},
{
"valueString" : "'Lens type: ' & answer.value.ofType(Coding).select(iif(display.exists(), display, code)).join(', ')"
}]
}]
}]
},
{
"name" : "lensCoating",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/lens-coating') and answer.value.ofType(Coding).exists()"
}],
"target" : [{
"context" : "spec",
"element" : "note",
"variable" : "note"
}],
"rule" : [{
"name" : "lensCoatingText",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "note",
"element" : "text",
"transform" : "evaluate",
"parameter" : [{
"valueId" : "it"
},
{
"valueString" : "'Lens coating: ' & answer.value.ofType(Coding).select(iif(display.exists(), display, code)).join(', ')"
}]
}]
}]
},
{
"name" : "prescriptionNotes",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "PrescriptionNotes",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "PrescriptionNotes",
"documentation" : "The free-text prescription notes. VisionPrescription has no note of its own,\r\nonly one per lens specification, so the notes go on each specification --\r\nrepeated rather than put on whichever happens to be first, which a consumer\r\nreading one eye would miss.",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "notes",
"source" : [{
"context" : "qr",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'notes') and answer.value.ofType(string).exists()"
}],
"target" : [{
"context" : "spec",
"element" : "note",
"variable" : "note"
}],
"rule" : [{
"name" : "noteAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "noteText",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "note",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
}]
},
{
"name" : "ContactLenses",
"documentation" : "── Contact lenses ───────────────────────────────────────────────────────────\r\nOne specification per eye with anything written on it. The contact lens\r\npower goes to `power`, R5's \"contact lens power\", which is what its own\r\ncontact lens example uses; `sphere` stays the spectacle lens power. Brand,\r\ncolour and the replacement schedule are asked once for the pair and copied\r\nonto both eyes, because R5 holds them per specification.",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "cl",
"mode" : "source"
},
{
"name" : "vp",
"type" : "VisionPrescription",
"mode" : "target"
}],
"rule" : [{
"name" : "right",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "eye",
"condition" : "(linkId = 'contact-lens/right') and (item.answer.value.ofType(decimal).exists() or item.answer.value.ofType(integer).exists())"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "ContactLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "cl"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "right"
}]
}]
}]
},
{
"name" : "left",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "eye",
"condition" : "(linkId = 'contact-lens/left') and (item.answer.value.ofType(decimal).exists() or item.answer.value.ofType(integer).exists())"
}],
"target" : [{
"context" : "vp",
"element" : "lensSpecification",
"variable" : "spec"
}],
"rule" : [{
"name" : "lens",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "ContactLens",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "cl"
},
{
"valueId" : "eye"
},
{
"valueId" : "spec"
}]
}]
},
{
"name" : "eyeCode",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "eye",
"transform" : "copy",
"parameter" : [{
"valueString" : "left"
}]
}]
}]
}]
},
{
"name" : "ContactLens",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "cl",
"mode" : "source"
},
{
"name" : "eye",
"mode" : "source"
},
{
"name" : "spec",
"mode" : "target"
}],
"rule" : [{
"name" : "product",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "spec",
"element" : "product",
"variable" : "product"
}],
"rule" : [{
"name" : "hl7Coding",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "hl7System",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://terminology.hl7.org/CodeSystem/ex-visionprescriptionproduct"
}]
}]
},
{
"name" : "hl7Code",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "contact"
}]
}]
},
{
"name" : "hl7Display",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Contact Lens"
}]
}]
}]
},
{
"name" : "productText",
"source" : [{
"context" : "eye"
}],
"target" : [{
"context" : "product",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Contact lens"
}]
}]
}]
},
{
"name" : "power",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/power') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "powerAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "powerValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "power",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "cylinder",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/cyl') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "cylinderAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "cylinderValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "cylinder",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "axis",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/axis') and answer.value.ofType(integer).exists()"
}],
"rule" : [{
"name" : "axisAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "axisValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "axis",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "addition",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/add') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "addAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "addValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "add",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "backCurve",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/base-curve') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "backCurveAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "backCurveValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "backCurve",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "diameter",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "it",
"condition" : "linkId.endsWith('/diameter') and answer.value.ofType(decimal).exists()"
}],
"rule" : [{
"name" : "diameterAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "diameterValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "diameter",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "brand",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/brand') and answer.value.ofType(string).exists()"
}],
"rule" : [{
"name" : "brandAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "brandValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "brand",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "colour",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/colour') and answer.value.ofType(string).exists()"
}],
"rule" : [{
"name" : "colourAnswer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "colourValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "spec",
"element" : "color",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "daily",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-daily')"
}],
"target" : [{
"context" : "spec",
"element" : "duration",
"variable" : "d"
}],
"rule" : [{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueInteger" : 1
}]
}]
},
{
"name" : "unit",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "day"
}]
}]
},
{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "d"
}]
}]
}],
"documentation" : "The replacement schedule is R5's `duration`, \"the recommended maximum wear\r\nperiod for the lens\", as a UCUM Quantity. One rule per answer, each guarded\r\non its own code, so an answer this map does not know writes no duration\r\nrather than an empty Quantity."
},
{
"name" : "twoWeekly",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-two-weekly')"
}],
"target" : [{
"context" : "spec",
"element" : "duration",
"variable" : "d"
}],
"rule" : [{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueInteger" : 2
}]
}]
},
{
"name" : "unit",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "weeks"
}]
}]
},
{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "wk"
}]
}]
}]
},
{
"name" : "monthly",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-monthly')"
}],
"target" : [{
"context" : "spec",
"element" : "duration",
"variable" : "d"
}],
"rule" : [{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueInteger" : 1
}]
}]
},
{
"name" : "unit",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "month"
}]
}]
},
{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "mo"
}]
}]
}]
},
{
"name" : "quarterly",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-quarterly')"
}],
"target" : [{
"context" : "spec",
"element" : "duration",
"variable" : "d"
}],
"rule" : [{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueInteger" : 3
}]
}]
},
{
"name" : "unit",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "months"
}]
}]
},
{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "mo"
}]
}]
}]
},
{
"name" : "yearly",
"source" : [{
"context" : "cl",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'contact-lens/replacement') and (answer.value.ofType(Coding).code = 'contact-lens-replace-yearly')"
}],
"target" : [{
"context" : "spec",
"element" : "duration",
"variable" : "d"
}],
"rule" : [{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueInteger" : 1
}]
}]
},
{
"name" : "unit",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "year"
}]
}]
},
{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "d",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "a"
}]
}]
}]
},
{
"name" : "prescriptionNotes",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "spec"
}],
"dependent" : [{
"name" : "PrescriptionNotes",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "spec"
}]
}]
}]
},
{
"name" : "EyewearMeasurements",
"documentation" : "─────────────────────────────────────────────────────────────────────────────\r\nPupillary distance and visual acuity\r\nNeither has a home in VisionPrescription, and LOINC names both exactly, per\r\neye, on a glasses lens prescription -- so each is its own Observation under\r\nits own code rather than prose in a note. The codes were looked up, not\r\nassumed; each display below is LOINC's own:\r\ndistance (DV) near (NV)\r\nR-PD 28840-7 28841-5 mm\r\nL-PD 28857-1 55985-6 mm\r\nR-VA 28831-6 28839-9 as written\r\nL-VA 28847-2 28856-3 as written\r\nThe PD without a qualifier is LOINC's distance PD; near is the one it\r\nqualifies. Visual acuity is kept as the string the prescriber wrote -- 6/6,\r\n6/9, N6, CF -- because the notations mix Snellen fractions, N-point print\r\nsizes and counting fingers, and forcing them into a Ratio would lose the ones\r\nthat are not fractions.\r\nNothing on VisionPrescription can point at these. They are tied to it by the\r\nencounter, by `derivedFrom` naming the same response, and by the same\r\nprovenance tag.\r\n─────────────────────────────────────────────────────────────────────────────",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "ew",
"mode" : "source"
},
{
"name" : "bundle",
"type" : "Bundle",
"mode" : "target"
}],
"rule" : [{
"name" : "right",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "eye",
"condition" : "linkId = 'eyewear/right'"
}],
"rule" : [{
"name" : "rightDistance",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId = 'eyewear/right/distance'"
}],
"rule" : [{
"name" : "rightDistancePd",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/right/distance/pd') and answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28840-7"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right glasses lens prescription Pupillary distance.monocular"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right eye pupillary distance, distance vision (R-PD, DV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetMillimetres",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
},
{
"name" : "rightDistanceVa",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/right/distance/va') and answer.value.ofType(string).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28831-6"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right glasses lens prescription Visual acuity far"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right eye visual acuity, distance vision (R-VA, DV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetAcuity",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
}]
},
{
"name" : "rightNear",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId = 'eyewear/right/near'"
}],
"rule" : [{
"name" : "rightNearPd",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/right/near/pd') and answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28841-5"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right glasses lens prescription Pupillary distance.monocular near"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right eye pupillary distance, near vision (R-PD, NV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetMillimetres",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
},
{
"name" : "rightNearVa",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/right/near/va') and answer.value.ofType(string).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28839-9"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right glasses lens prescription Visual acuity near"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Right eye visual acuity, near vision (R-VA, NV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetAcuity",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
}]
}]
},
{
"name" : "left",
"source" : [{
"context" : "ew",
"element" : "item",
"variable" : "eye",
"condition" : "linkId = 'eyewear/left'"
}],
"rule" : [{
"name" : "leftDistance",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId = 'eyewear/left/distance'"
}],
"rule" : [{
"name" : "leftDistancePd",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/left/distance/pd') and answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28857-1"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left glasses lens prescription Pupillary distance.monocular"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left eye pupillary distance, distance vision (L-PD, DV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetMillimetres",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
},
{
"name" : "leftDistanceVa",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/left/distance/va') and answer.value.ofType(string).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28847-2"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left glasses lens prescription Visual acuity far"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left eye visual acuity, distance vision (L-VA, DV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetAcuity",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
}]
},
{
"name" : "leftNear",
"source" : [{
"context" : "eye",
"element" : "item",
"variable" : "row",
"condition" : "linkId = 'eyewear/left/near'"
}],
"rule" : [{
"name" : "leftNearPd",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/left/near/pd') and answer.value.ofType(decimal).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "55985-6"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left glasses lens prescription Pupillary distance.monocular near"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left eye pupillary distance, near vision (L-PD, NV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetMillimetres",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
},
{
"name" : "leftNearVa",
"source" : [{
"context" : "row",
"element" : "item",
"variable" : "it",
"condition" : "(linkId = 'eyewear/left/near/va') and answer.value.ofType(string).exists()"
}],
"target" : [{
"context" : "bundle",
"element" : "entry",
"variable" : "entry"
},
{
"context" : "entry",
"element" : "resource",
"variable" : "obs",
"transform" : "create",
"parameter" : [{
"valueString" : "Observation"
}]
}],
"rule" : [{
"name" : "base",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
},
{
"context" : "entry"
}],
"dependent" : [{
"name" : "BuildObservationBase",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs",
"element" : "code",
"variable" : "code"
}],
"rule" : [{
"name" : "coding",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "system",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://loinc.org"
}]
}]
},
{
"name" : "code",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "28856-3"
}]
}]
},
{
"name" : "display",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left glasses lens prescription Visual acuity near"
}]
}]
}]
},
{
"name" : "text",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "code",
"element" : "text",
"transform" : "copy",
"parameter" : [{
"valueString" : "Left eye visual acuity, near vision (L-VA, NV)"
}]
}]
}]
},
{
"name" : "value",
"source" : [{
"context" : "it"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetAcuity",
"parameter" : [{
"valueId" : "it"
},
{
"valueId" : "obs"
}]
}]
}]
}]
}]
}]
},
{
"name" : "SetMillimetres",
"documentation" : "`Observation.value[x]` has no decimal choice, so the PD is built as a UCUM\r\nQuantity. The unit is fixed by the form.",
"input" : [{
"name" : "it",
"mode" : "source"
},
{
"name" : "obs",
"type" : "Observation",
"mode" : "target"
}],
"rule" : [{
"name" : "answer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "quantity",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "obs",
"element" : "value",
"variable" : "q",
"transform" : "create",
"parameter" : [{
"valueString" : "Quantity"
}]
}],
"rule" : [{
"name" : "quantityValue",
"source" : [{
"context" : "v"
}],
"target" : [{
"context" : "q",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
},
{
"name" : "quantityUnit",
"source" : [{
"context" : "v"
}],
"target" : [{
"context" : "q",
"element" : "unit",
"transform" : "copy",
"parameter" : [{
"valueString" : "mm"
}]
}]
},
{
"name" : "quantitySystem",
"source" : [{
"context" : "v"
}],
"target" : [{
"context" : "q",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://unitsofmeasure.org"
}]
}]
},
{
"name" : "quantityCode",
"source" : [{
"context" : "v"
}],
"target" : [{
"context" : "q",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "mm"
}]
}]
}]
}]
}]
},
{
"name" : "SetAcuity",
"input" : [{
"name" : "it",
"mode" : "source"
},
{
"name" : "obs",
"type" : "Observation",
"mode" : "target"
}],
"rule" : [{
"name" : "answer",
"source" : [{
"context" : "it",
"element" : "answer",
"listMode" : "first",
"variable" : "a"
}],
"rule" : [{
"name" : "acuityValue",
"source" : [{
"context" : "a",
"element" : "value",
"variable" : "v"
}],
"target" : [{
"context" : "obs",
"element" : "value",
"transform" : "copy",
"parameter" : [{
"valueId" : "v"
}]
}]
}]
}]
},
{
"name" : "BuildObservationBase",
"documentation" : "─────────────────────────────────────────────────────────────────────────────\r\nShared scaffolding. Repeated in each map rather than imported: the transform\r\nengine resolves `imports` against whatever StructureMaps happen to be on the\r\nserver, and a form that stops extracting because a shared map was not\r\nuploaded is a worse failure than a duplicated group.\r\n─────────────────────────────────────────────────────────────────────────────",
"input" : [{
"name" : "qr",
"type" : "QR",
"mode" : "source"
},
{
"name" : "obs",
"type" : "Observation",
"mode" : "target"
},
{
"name" : "entry",
"mode" : "target"
}],
"rule" : [{
"name" : "responseProvenance",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs"
}],
"dependent" : [{
"name" : "SetResponseProvenance",
"parameter" : [{
"valueId" : "qr"
},
{
"valueId" : "obs"
}]
}]
},
{
"name" : "idAndFullUrl",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs",
"element" : "id",
"transform" : "uuid"
}],
"dependent" : [{
"name" : "SetObservationFullUrl",
"parameter" : [{
"valueId" : "obs"
},
{
"valueId" : "entry"
}]
}]
},
{
"name" : "entryRequest",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "entry",
"element" : "request",
"variable" : "request"
}],
"rule" : [{
"name" : "requestMethod",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "request",
"element" : "method",
"transform" : "copy",
"parameter" : [{
"valueString" : "POST"
}]
}]
},
{
"name" : "requestUrl",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "request",
"element" : "url",
"transform" : "copy",
"parameter" : [{
"valueString" : "Observation"
}]
}]
}]
},
{
"name" : "status",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs",
"element" : "status",
"transform" : "copy",
"parameter" : [{
"valueString" : "final"
}]
}]
},
{
"name" : "category",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "obs",
"element" : "category",
"variable" : "cat"
}],
"rule" : [{
"name" : "categoryCoding",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "cat",
"element" : "coding",
"variable" : "coding"
}],
"rule" : [{
"name" : "categorySystem",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "coding",
"element" : "system",
"transform" : "copy",
"parameter" : [{
"valueString" : "http://terminology.hl7.org/CodeSystem/observation-category"
}]
}]
},
{
"name" : "categoryCode",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "coding",
"element" : "code",
"transform" : "copy",
"parameter" : [{
"valueString" : "exam"
}]
}]
},
{
"name" : "categoryDisplay",
"source" : [{
"context" : "qr"
}],
"target" : [{
"context" : "coding",
"element" : "display",
"transform" : "copy",
"parameter" : [{
"valueString" : "Exam"
}]
}]
}]
}]
},
{
"name" : "subject",
"source" : [{
"context" : "qr",
"element" : "subject",
"variable" : "s",
"condition" : "(reference.exists() and (reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Patient')))"
}],
"target" : [{
"context" : "obs",
"element" : "subject",
"transform" : "copy",
"parameter" : [{
"valueId" : "s"
}]
}]
},
{
"name" : "encounter",
"source" : [{
"context" : "qr",
"element" : "encounter",
"variable" : "e",
"condition" : "(reference.exists() and (reference.startsWith('Encounter/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Encounter')))"
}],
"target" : [{
"context" : "obs",
"element" : "encounter",
"transform" : "copy",
"parameter" : [{
"valueId" : "e"
}]
}]
},
{
"name" : "effective",
"source" : [{
"context" : "qr",
"element" : "authored",
"variable" : "t"
}],
"target" : [{
"context" : "obs",
"element" : "effective",
"transform" : "copy",
"parameter" : [{
"valueId" : "t"
}]
}],
"documentation" : "Measured when the prescription was written, which is the response's\r\n`authored` -- the form does not ask for a date."
},
{
"name" : "performerFromAuthor",
"source" : [{
"context" : "qr",
"element" : "author",
"variable" : "a",
"condition" : "(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))"
}],
"target" : [{
"context" : "obs",
"element" : "performer",
"transform" : "copy",
"parameter" : [{
"valueId" : "a"
}]
}],
"documentation" : "Measured by the prescriber, chosen the same way as on the prescription."
},
{
"name" : "performerSourceFallback",
"source" : [{
"context" : "qr",
"condition" : "author.where(((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))).exists().not()"
}],
"rule" : [{
"name" : "performerFromSource",
"source" : [{
"context" : "qr",
"element" : "source",
"variable" : "s",
"condition" : "(reference.matches('(^|/)(Practitioner|PractitionerRole)/[^/]+$')) and ((reference.exists() and (reference.startsWith('Organization/') or reference.startsWith('Patient/'))) or (reference.empty() and (type.empty() or ('/' + type).endsWith('/Organization') or ('/' + type).endsWith('/Patient'))))"
}],
"target" : [{
"context" : "obs",
"element" : "performer",
"transform" : "copy",
"parameter" : [{
"valueId" : "s"
}]
}]
}]
},
{
"name" : "linkQuestionnaireResponse",
"source" : [{
"context" : "qr",
"element" : "id",
"variable" : "qid",
"condition" : "$this.hasValue()"
}],
"target" : [{
"context" : "obs",
"element" : "derivedFrom",
"variable" : "ref",
"transform" : "create",
"parameter" : [{
"valueString" : "Reference"
}]
},
{
"context" : "ref",
"element" : "reference",
"transform" : "copy",
"parameter" : [{
"valueId" : "qid"
}]
}],
"documentation" : "A stored response's id already reads \"QuestionnaireResponse/