define "Has Criteria Indicating Frailty":
  exists ( (Status."Completed or Ongoing Device Request"([DeviceRequest: code in "Frailty Device"])) FrailtyDeviceOrder
      where FrailtyDeviceOrder.doNotPerform() is not true
      and QICoreCommon."ToInterval" ( FrailtyDeviceOrder.authoredOn ) during day of "Measurement Period"
  )

define fluent function doNotPerform(deviceRequest DeviceRequest):
  singleton from (
    deviceRequest.modifierExtension E
      where E.url = 'http://hl7.org/fhir/us/qicore/StructureDefinition/qicore-doNotPerform'
      return E.value as Boolean
  )

define function "Completed or Ongoing Service Request"(ServiceRequest List<ServiceRequest>):
  ServiceRequest S
    where S.status in { 'active', 'completed' }
      and S.intent = 'order'

    {
      "fullUrl": "633c9d020968f8012250fc66",
      "resource": {
        "resourceType": "DeviceRequest",
        "id": "DeviceRequest-1",
        "meta": {
          "profile": [
            "http://hl7.org/fhir/us/qicore/StructureDefinition/qicore-devicerequest"
          ]
        },
        "modifierExtension": [
          {
            "url": "http://hl7.org/fhir/us/qicore/StructureDefinition/qicore-doNotPeform",
            "valueBoolean": true
          }
        ],
        "subject": {
          "reference": "Patient/Patient-1"
        },
        "codeCodeableConcept": {
          "coding": [
            {
              "code": "183240000",
              "system": "http://snomed.info/sct",
              "display": "Self-propelled wheelchair (physical object)"
            }
          ]
        },
        "status": "completed",
        "intent": "order",
        "authoredOn": "2024-11-01T23:59:00.000Z"
      }
    }