define "Devices":   [Device]

define "OR Surgical Mask Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Surgical mask"   ) / 10 )

define "IsBedLocation":   Location.physicalType ~ "Bed"

define "LocationIsCHLD":   exists(     Location.type types     where types ~ "CHLD"   )

define "LocationIsHOSP":   exists(     Location.type types     where types ~ "HOSP"   )

define "LocationIsOTH":   exists(     Location.type types     where types ~ "OTH"   )

define "Pediatric ICU Beds Initial Population":   IsBedLocation   and LocationIsCHLD   and (     LocationIsHOSP     or LocationIsOTH   )

define "Encounters":   [Encounter]

define "EncounterCheck":   exists("Encounters" Encounters   where Encounters.period overlaps "Measurement Period")

define "Occupied Pediatric ICU Beds Initial Population":   "Pediatric ICU Beds Initial Population"   and EncounterCheck

define "Adult ICU Beds Initial Population":   IsBedLocation   and (     LocationIsHOSP     or LocationIsOTH   )   and not LocationIsCHLD

define "Adult ICU Beds Initial Population":   IsBedLocation   and (     LocationIsHOSP     or LocationIsOTH   )   and not LocationIsCHLD

define "Occupied Adult ICU Beds Initial Population":   "Adult ICU Beds Initial Population"   and EncounterCheck

//Functions and Helpers define "COVID_19 Observations":   [Observation: "COVID_19 (Tests for SARS_CoV_2 Nucleic Acid)"]      union [Observation: "COVID_19 (Tests for SARS_CoV_2 Antigen)"]

define "Count Confirmed COVID_19 Patients in Bed Location":   Count(     "Get Confirmed Patient IDs"( "Encounters", "COVID_19 Observations" )   )

define "Adult ICU COVID_19 Patients Stratifier":   if "Occupied Adult ICU Beds Initial Population" then     "Count Confirmed COVID_19 Patients in Bed Location"   else 0

define "Glove Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Surgical glove"   ) / 15 )

define "LocationIsIPF":   exists(     Location.type types     where types ~ "IPF"   )

define "LocationIsIRF":   exists(     Location.type types     where types ~ "IRF"   )

define "Pediatric Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and LocationIsCHLD   and not (     LocationIsIPF     or LocationIsIRF   )

define "Occupied Pediatric Inpatient Beds Initial Population":   "Pediatric Inpatient Beds Initial Population"   and EncounterCheck

define "Influenza Observations":   [Observation: "Influenza (Tests for influenza A or B virus Nucleic Acid)"]      union [Observation: "Influenza (Tests for influenza A or B virus Antigen)"]

define "Count Confirmed Influenza Patients in Bed Location":   Count(     "Get Confirmed Patient IDs"( "Encounters", "Influenza Observations" )   )

define "Pediatric Inpatient Influenza Patients Stratifier":   if "Occupied Pediatric Inpatient Beds Initial Population" then     "Count Confirmed Influenza Patients in Bed Location"   else 0

define "Occupied Pediatric ICU Beds Initial Population":   "Pediatric ICU Beds Initial Population"   and EncounterCheck

define "RSV Observations":   [Observation: "RSV (Tests for RSV Antigen)"]      union [Observation: "RSV (Tests for RSV Nucleic Acid)"]

define "Count Confirmed RSV Patients in Bed Location":   Count(     "Get Confirmed Patient IDs"( "Encounters", "RSV Observations" )   )

define "Pediatric ICU RSV Patients Stratifier":   if "Occupied Pediatric ICU Beds Initial Population" then     "Count Confirmed RSV Patients in Bed Location"   else 0

define "Adult Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and (     LocationIsIPF     or LocationIsIRF   )   and not LocationIsCHLD

define "Occupied Adult Inpatient Beds Initial Population":   "Adult Inpatient Beds Initial Population"   and EncounterCheck

//Stratifiers //COVID_19 define "Adult Inpatient COVID_19 Patients Stratifier":   if "Occupied Adult Inpatient Beds Initial Population" then     "Count Confirmed COVID_19 Patients in Bed Location"   else 0

define "Face Shield Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Face shield"   ) / 10 )

define "Glove Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Surgical glove"   ) / 15 )

define "Glove 3 Day Supply Initial Population":   "Glove Supply in Days Stratifier" > 3

define "Patients":   [Patient]

define "Newly Admitted Encounters":   "Encounters" Encounters   where Encounters.status in { 'in-progress', 'arrived', 'triaged' }

define "Newly Admitted RSV Patient IDs":   "Get Confirmed Patient IDs"( "Newly Admitted Encounters", "RSV Observations" )

define "New RSV Patients with Unknown Age Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location and Unknown Age"( "Newly Admitted RSV Patient IDs" )   )

//Initial Populations define "Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and (     LocationIsIPF     or LocationIsIRF     or LocationIsCHLD   )

define "Occupied Inpatient Beds Initial Population":   "Inpatient Beds Initial Population"   and EncounterCheck

define "Face Shield Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Face shield"   ) / 10 )

define "Face Shield 3 Day Supply Initial Population":   "Face Shield Supply in Days Stratifier" > 3

define "Pediatric ICU COVID_19 Patients Stratifier":   if "Occupied Pediatric ICU Beds Initial Population" then     "Count Confirmed COVID_19 Patients in Bed Location"   else 0

define "Gown Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Patient gown"   ) / 5 )

define "New Adult RSV Patients Between 65 to 74 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted RSV Patient IDs", 65, 74 )   )

define "Adult ICU Influenza Patients Stratifier":   if "Occupied Adult ICU Beds Initial Population" then     "Count Confirmed Influenza Patients in Bed Location"   else 0

define "Newly Admitted COVID_19 Patient IDs":   "Get Confirmed Patient IDs"( "Newly Admitted Encounters", "COVID_19 Observations" )

define "New Adult COVID_19 Patients Between 50 to 64 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted COVID_19 Patient IDs", 50, 64 )   )

define "Occupied Adult ICU Beds Initial Population":   "Adult ICU Beds Initial Population"   and EncounterCheck

//Influenza define "Adult Inpatient Influenza Patients Stratifier":   if "Occupied Adult Inpatient Beds Initial Population" then     "Count Confirmed Influenza Patients in Bed Location"   else 0

define "New Pediatric COVID_19 Patients Between 0 to 4 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted COVID_19 Patient IDs" , 0, 4 )   )

define "Pediatric Inpatient RSV Patients Stratifier":   if "Occupied Pediatric Inpatient Beds Initial Population" then     "Count Confirmed RSV Patients in Bed Location"   else 0

define "New Pediatric RSV Patients Between 0 to 4 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted RSV Patient IDs" , 0, 4 )   )

define "New Pediatric COVID_19 Patients Between 5 to 17 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted COVID_19 Patient IDs", 5, 17 )   )

//Devices (Supply is divided by average used per day (estimated)) define "N95 Mask Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "N95 mask"   ) / 10 )

define "New Adult RSV Patients Between 50 to 64 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted RSV Patient IDs", 50, 64 )   )

define "New Adult COVID_19 Patients Between 65 to 74 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted COVID_19 Patient IDs", 65, 74 )   )

define "Newly Admitted Influenza Patient IDs":   "Get Confirmed Patient IDs"( "Newly Admitted Encounters", "Influenza Observations" )

define "New Pediatric Influenza Patients Between 5 to 17 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted Influenza Patient IDs", 5, 17 )   )

define "ICU Beds Initial Population":   IsBedLocation   and (     LocationIsHOSP     or LocationIsOTH   )

define "Adult ICU RSV Patients Stratifier":   if "Occupied Adult ICU Beds Initial Population" then     "Count Confirmed RSV Patients in Bed Location"   else 0

define "New Adult Influenza Patients Between 18 to 49 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted Influenza Patient IDs", 18, 49 )   )

define "New Adult RSV Patients 75 and Above Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Above Specified Age"( "Newly Admitted RSV Patient IDs", 75 )   )

define "Pediatric Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and LocationIsCHLD   and not (     LocationIsIPF     or LocationIsIRF   )

define "New Adult Influenza Patients Between 50 to 64 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted Influenza Patient IDs", 50, 64 )   )

define "New Pediatric Influenza Patients Between 0 to 4 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted Influenza Patient IDs" , 0, 4 )   )

//RSV define "Adult Inpatient RSV Patients Stratifier":   if "Occupied Adult Inpatient Beds Initial Population" then     "Count Confirmed RSV Patients in Bed Location"   else 0

//Devices (Supply is divided by average used per day (estimated)) define "N95 Mask Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "N95 mask"   ) / 10 )

define "N95 Mask 3 Day Supply Initial Population":   "N95 Mask Supply in Days Stratifier" > 3

define "Pediatric ICU Beds Initial Population":   IsBedLocation   and LocationIsCHLD   and (     LocationIsHOSP     or LocationIsOTH   )

define "New Adult RSV Patients Between 18 to 49 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted RSV Patient IDs", 18, 49 )   )

define "Occupied Adult Inpatient Beds Initial Population":   "Adult Inpatient Beds Initial Population"   and EncounterCheck

define "New Adult COVID_19 Patients Between 18 to 49 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted COVID_19 Patient IDs", 18, 49 )   )

define "Adult Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and (     LocationIsIPF     or LocationIsIRF   )   and not LocationIsCHLD

define "ICU Beds Initial Population":   IsBedLocation   and (     LocationIsHOSP     or LocationIsOTH   )

define "Occupied ICU Beds Initial Population":   "ICU Beds Initial Population"   and EncounterCheck

define "New Influenza Patients with Unknown Age Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location and Unknown Age"( "Newly Admitted Influenza Patient IDs" )   )

define "Pediatric ICU Influenza Patients Stratifier":   if "Occupied Pediatric ICU Beds Initial Population" then     "Count Confirmed Influenza Patients in Bed Location"   else 0

define "New Adult Influenza Patients Between 65 to 74 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted Influenza Patient IDs", 65, 74 )   )

define "New Pediatric RSV Patients Between 5 to 17 Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( "Newly Admitted RSV Patient IDs", 5, 17 )   )

define "Pediatric Inpatient COVID_19 Patients Stratifier":   if "Occupied Pediatric Inpatient Beds Initial Population" then     "Count Confirmed COVID_19 Patients in Bed Location"   else 0

define "Occupied Pediatric Inpatient Beds Initial Population":   "Pediatric Inpatient Beds Initial Population"   and EncounterCheck

//Initial Populations define "Inpatient Beds Initial Population":   IsBedLocation   and LocationIsHOSP   and (     LocationIsIPF     or LocationIsIRF     or LocationIsCHLD   )

define "New Adult COVID_19 Patients 75 and Above Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Above Specified Age"( "Newly Admitted COVID_19 Patient IDs", 75 )   )

define "OR Surgical Mask Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Surgical mask"   ) / 10 )

define "OR Surgical Mask 3 Day Supply Initial Population":   "OR Surgical Mask Supply in Days Stratifier" > 3

define "New COVID_19 Patients with Unknown Age Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location and Unknown Age"( "Newly Admitted COVID_19 Patient IDs" )   )

define "New Adult Influenza Patients 75 and Above Stratifier":   Count(     "Get Confirmed Patient IDs in Bed Location Above Specified Age"( "Newly Admitted Influenza Patient IDs", 75 )   )

define "Gown Supply in Days Stratifier":   Floor( Count(     "Devices" Devices     where Devices.type ~ "Patient gown"   ) / 5 )

define "Gown 3 Day Supply Initial Population":   "Gown Supply in Days Stratifier" > 3

define function ToConcept(concept FHIR.CodeableConcept):     if concept is null then         null     else         System.Concept {             codes: concept.coding C return ToCode(C),             display: concept.text.value         }

define function ToCode(coding FHIR.Coding):     if coding is null then         null     else         System.Code {           code: coding.code.value,           system: coding.system.value,           version: coding.version.value,           display: coding.display.value         }

define function ToInterval(period FHIR.Period):     if period is null then         null     else         if period."start" is null then             Interval(period."start".value, period."end".value]         else             Interval[period."start".value, period."end".value]

define function "Get Confirmed Patient IDs"( Encounters List<FHIR.Encounter>, Observations List<FHIR.Observation> ):   Distinct(     Encounters Encounter     where exists(       Observations Labs       where exists(         Labs.category category         where category ~ "laboratory"       )       and Encounter.subject = Labs.subject       and Labs.value ~ "detected"       and "Normalize Interval"( Labs.effective ) overlaps Encounter.period     )     return Encounter.subject   )

define function "Normalize Interval"( choice Choice<FHIR.dateTime, FHIR.Period, FHIR.Timing, FHIR.instant> ):   case    when choice is FHIR.dateTime then      Interval[FHIRHelpers.ToDateTime(choice as FHIR.dateTime), FHIRHelpers.ToDateTime(choice as FHIR.dateTime)]   when choice is FHIR.Period then     FHIRHelpers.ToInterval(choice as FHIR.Period)   when choice is FHIR.instant then    Interval[FHIRHelpers.ToDateTime(choice as FHIR.instant), FHIRHelpers.ToDateTime(choice as FHIR.instant)]   when choice is FHIR.Timing then     Message(null as Interval<DateTime>, true, '1', 'Error', 'Cannot compute a single interval from a Timing type')   else    null as Interval<DateTime>  end

define function ToDateTime(value dateTime): value.value

define function ToDateTime(value instant): value.value

define function "Get Confirmed Patient IDs in Bed Location and Unknown Age"( PatientIDs List<FHIR.Reference> ):   PatientIDs PatientID   where exists(     "Patients" Patients     where Patients.id = GetId( PatientID.reference )     and Patients.birthDate = null   )

define function ToString(value string): value.value

define function "GetId"( uri String ):   Last(Split(uri, '/'))

define function ToString(value EncounterStatus): value.value

define function "Get Confirmed Patient IDs in Bed Location Between Specified Ages"( PatientIDs List<FHIR.Reference>, low System.Integer, high System.Integer ):   PatientIDs PatientID   where exists(     "Patients" Patients     let PatientAge: CalculateAgeInYearsAt( Patients.birthDate, start of "Measurement Period" )     where Patients.id = GetId( PatientID.reference )     and PatientAge >= low     and PatientAge <= high   )

define function ToDate(value date): value.value

define function "Get Confirmed Patient IDs in Bed Location Above Specified Age"( PatientIDs List<FHIR.Reference>, age System.Integer ):   PatientIDs PatientID   where exists(     "Patients" Patients     let PatientAge: CalculateAgeInYearsAt( Patients.birthDate, start of "Measurement Period" )     where Patients.id = GetId( PatientID.reference )     and PatientAge >= age   )