map "http://hl7.no/fhir/ig/okt/StructureMap/OktMessage-ServiceRequest" = "OktMessageServiceRequest"

// Map OktMessage to ServiceRequest

uses "http://hl7.no/fhir/ig/okt/StructureDefinition/OktMessage" alias NhnOktMessage as source
uses "http://hl7.org/fhir/StructureDefinition/ServiceRequest" alias FhirServiceRequest as target

group OktMessageToServiceRequest(source source : NhnOktMessage, target target : FhirServiceRequest) <<types>> {
  source -> target.occurrence = create('Period') as occurrencePeriod then {
    source.startDate as startDate -> occurrencePeriod.start = startDate "setStart";
    source.endDate as endDate -> occurrencePeriod.end = endDate "setEnd";
  } "mapOccurrencePeriod";
  source.serviceDescription as serviceDescription ->  target.note = create('Annotation') as noteVariable,  noteVariable.text = serviceDescription "mapServiceDescription";
  source.stayType as stayType -> target.category = cc('http://hl7.no/fhir/ig/okt/CodeSystem/OktStayTypeCs', stayType) as categoryVariable "mapStayType";
  source.weeklyExtent as weeklyExtent ->  target.quantity = create('Ratio') as quantityVariable,  quantityVariable.numerator = create('Quantity') as numeratorVariable,  numeratorVariable.value = weeklyExtent,  numeratorVariable.unit = 'h',  numeratorVariable.system = 'http://unitsofmeasure.org',  numeratorVariable.code = 'h',  quantityVariable.denominator = create('Quantity') as denominatorVariable,  denominatorVariable.value = '1',  denominatorVariable.unit = 'wk',  denominatorVariable.system = 'http://unitsofmeasure.org',  denominatorVariable.code = 'wk' "mapWeeklyExtent";
}