map "http://hl7.org/fhir/StructureMap/Questionnaire3to4" = "R3 to R4 Conversions for Questionnaire"
uses "http://hl7.org/fhir/DSTU2/StructureDefinition/Questionnaire" alias QuestionnaireR2 as source

uses "http://hl7.org/fhir/3.0/StructureDefinition/Questionnaire" alias QuestionnaireR3 as source

uses "http://hl7.org/fhir/StructureDefinition/Questionnaire" alias Questionnaire as target
imports "http://hl7.org/fhir/StructureMap/*2to3"
group for type+types  Questionnaire extends DomainResource
  input src : QuestionnaireR2 as source
  input tgt : Questionnaire as target

imports "http://hl7.org/fhir/StructureMap/*3to4"

  "Questionnaire-identifier" : for src.identifier make tgt.identifier
  "Questionnaire-version" : for src.version make tgt.version
  "Questionnaire-status" : for src.status as v make tgt.status = translate(v, "#QuestionnaireStatus", "code")
  "Questionnaire-date" : for src.date make tgt.date
  "Questionnaire-publisher" : for src.publisher make tgt.publisher
  "Questionnaire-telecom" : for src.telecom as v make tgt.contact as d, d.telecom as v
  "Questionnaire-subjectType" : for src.subjectType make tgt.subjectType

group Questionnaire(source src : QuestionnaireR3, target tgt : Questionnaire) extends DomainResource <<type+>> {
  src.url -> tgt.url;
  src.identifier -> tgt.identifier;
  src.version -> tgt.version;
  src.name -> tgt.name;
  src.title -> tgt.title;
  src.status -> tgt.status;
  src.experimental -> tgt.experimental;
  src.date -> tgt.date;
  src.publisher -> tgt.publisher;
  src.description -> tgt.description;
  src.purpose -> tgt.purpose;
  src.approvalDate -> tgt.approvalDate;
  src.lastReviewDate -> tgt.lastReviewDate;
  src.effectivePeriod -> tgt.effectivePeriod;
  src.useContext -> tgt.useContext;
  src.jurisdiction -> tgt.jurisdiction;
  src.contact -> tgt.contact;
  src.copyright -> tgt.copyright;
  src.code -> tgt.code;
  src.subjectType -> tgt.subjectType;
  src.item as s -> tgt.item as t then item(s, t);
}

  "Questionnaire-group" : for src.group as vs0 make tgt.item as vt0 then qstGroup(vs0, vt0)  
endgroup

group item(source src, target tgt) extends BackboneElement {
  src.linkId -> tgt.linkId;
  src.definition -> tgt.definition;
  src.code -> tgt.code;
  src.prefix -> tgt.prefix;
  src.text -> tgt.text;
  src.type -> tgt.type;
  src.enableWhen as s -> tgt.enableWhen as t then enableWhen(s, t);
  src.required -> tgt.required;
  src.repeats -> tgt.repeats;
  src.readOnly -> tgt.readOnly;
  src.maxLength -> tgt.maxLength;
  src.options -> tgt.answerValueSet;
  src.option as s -> tgt.answerOption as t then option(s, t);
  src.initial -> tgt.initial as t then initial(src, t);
  src.item as s -> tgt.item as t then item(s, t);
}

group qstGroup extends BackboneElement
  input src as source
  input tgt as target

group enableWhen(source src, target tgt) extends BackboneElement {
  src.question -> tgt.question;
  src.hasAnswer as v where src.answer.empty() ->  tgt.operator = 'exists',  tgt.answer = v;
  src.answer as v ->  tgt.answer = v,  tgt.operator = '=';
}

  "Questionnaire.group-type" : for src make tgt.type = 'group'
  "Questionnaire.group-linkId" : for src.linkId make tgt.linkId
  "Questionnaire.group-title" : for src.title make tgt.text
  "Questionnaire.group-concept" : for src.concept make tgt.code
  "Questionnaire.group-text" : for src.text as t where src.title.exists() and src.linkId.exists() make tgt.item as i, i.linkId = (src.linkId + '-'+'display'), i.text = t
  "Questionnaire.group-text" : for src.text where src.title.empty() make tgt.text
  "Questionnaire.group-required" : for src.required make tgt.required
  "Questionnaire.group-repeats" : for src.repeats make tgt.repeats
  "Questionnaire.group-group" : for src.group as vs0 make tgt.item as vt0 then qstGroup(vs0, vt0)  
  "Questionnaire.group-question" : for src.question as vs0 make tgt.item as vt0 then qstQuestion(vs0, vt0)  
endgroup

group option(source src, target tgt) extends BackboneElement {
  src.value -> tgt.value;
}

group qstQuestion extends BackboneElement
  input src as source
  input tgt as target

group initial(source src, target tgt) extends BackboneElement {
  src.initial -> tgt.value;
}

  "Questionnaire.group.question-type" : for src.type make tgt.type 
  "Questionnaire.group.question-linkId" : for src.linkId make tgt.linkId
  "Questionnaire.group.question-concept" : for src.concept make tgt.code
  "Questionnaire.group.question-text" : for src.text make tgt.text
  "Questionnaire.group.question-required" : for src.required make tgt.required
  "Questionnaire.group.question-repeats" : for src.repeats make tgt.repeats
  "Questionnaire.group.question-options" : for src.options make tgt.options
  "Questionnaire.group.question-option" : for src.option as v make tgt.option as o, o.value as v
  "Questionnaire.group.question-group" : for src.group as vs0 make tgt.item as vt0 then qstGroup(vs0, vt0)  
endgroup

map "http://hl7.org/fhir/StructureMap/Questionnaire4to3" = "R4 to R3 Conversion for Questionnaire"
uses "http://hl7.org/fhir/StructureDefinition/Questionnaire" alias Questionnaire as source
uses "http://hl7.org/fhir/DSTU2/StructureDefinition/Questionnaire" alias QuestionnaireR2 as target
imports "http://hl7.org/fhir/StructureMap/*3to2"

uses "http://hl7.org/fhir/3.0/StructureDefinition/Questionnaire" alias QuestionnaireR3 as target

group for type+types  Questionnaire extends DomainResource
  input src : Questionnaire as source
  input tgt : QuestionnaireR2 as target

imports "http://hl7.org/fhir/StructureMap/*4to3"

  "Questionnaire-identifier" : for src.identifier make tgt.identifier
  "Questionnaire-version" : for src.version make tgt.version
  "Questionnaire-status" : for src.status as v make tgt.status = translate(v, "#QuestionnaireStatus", "code")
  "Questionnaire-date" : for src.date make tgt.date
  "Questionnaire-publisher" : for src.publisher make tgt.publisher
  "Questionnaire-telecom1" : for src.contact as v then {
    "Questionnaire-telecom-inner" : for v.telecom make tgt.telecom
  }
  "Questionnaire-subjectType" : for src.subjectType make tgt.subjectType

group Questionnaire(source src : Questionnaire, target tgt : QuestionnaireR3) extends DomainResource <<type+>> {
  src.url -> tgt.url;
  src.identifier -> tgt.identifier;
  src.version -> tgt.version;
  src.name -> tgt.name;
  src.title -> tgt.title;
  src.status -> tgt.status;
  src.experimental -> tgt.experimental;
  src.date -> tgt.date;
  src.publisher -> tgt.publisher;
  src.description -> tgt.description;
  src.purpose -> tgt.purpose;
  src.approvalDate -> tgt.approvalDate;
  src.lastReviewDate -> tgt.lastReviewDate;
  src.effectivePeriod -> tgt.effectivePeriod;
  src.useContext -> tgt.useContext;
  src.jurisdiction -> tgt.jurisdiction;
  src.contact -> tgt.contact;
  src.copyright -> tgt.copyright;
  src.code -> tgt.code;
  src.subjectType -> tgt.subjectType;
  src.item as s -> tgt.item as t then item(s, t);
}

  "Questionnaire-group" : for src.item as vs0 where type = 'group' make tgt.group as vt0 then qstGroup(vs0, vt0)  // ignore root questions? (else create a holding group?)
endgroup

group item(source src, target tgt) extends BackboneElement {
  src.linkId -> tgt.linkId;
  src.definition -> tgt.definition;
  src.code -> tgt.code;
  src.prefix -> tgt.prefix;
  src.text -> tgt.text;
  src.type -> tgt.type;
  src.enableWhen as s -> tgt.enableWhen as t then enableWhen(s, t);
  src.required -> tgt.required;
  src.repeats -> tgt.repeats;
  src.readOnly -> tgt.readOnly;
  src.maxLength -> tgt.maxLength;
  src.answerValueSet -> tgt.options;
  src.answerOption as s -> tgt.option as t then option(s, t);
  src.initial as s then initial(s, tgt);
  src.item as s -> tgt.item as t then item(s, t);
}

group qstGroup extends BackboneElement
  input src as source
  input tgt as target

group enableWhen(source src, target tgt) extends BackboneElement {
  src.question -> tgt.question;
  src.answer as v where src.operator = 'exists' -> tgt.hasAnswer = v;
  src.answer : boolean as vs where src.operator = '=' -> tgt.answer = create('boolean') as vt then boolean(vs, vt);
  src.answer : decimal as vs where src.operator = '=' -> tgt.answer = create('decimal') as vt then decimal(vs, vt);
  src.answer : integer as vs where src.operator = '=' -> tgt.answer = create('integer') as vt then integer(vs, vt);
  src.answer : date as vs where src.operator = '=' -> tgt.answer = create('date') as vt then date(vs, vt);
  src.answer : dateTime as vs where src.operator = '=' -> tgt.answer = create('dateTime') as vt then dateTime(vs, vt);
  src.answer : time as vs where src.operator = '=' -> tgt.answer = create('time') as vt then time(vs, vt);
  src.answer : string as vs where src.operator = '=' -> tgt.answer = create('string') as vt then string(vs, vt);
  src.answer : Coding as vs where src.operator = '=' -> tgt.answer = create('Coding') as vt then Coding(vs, vt);
  src.answer : Quantity as vs where src.operator = '=' -> tgt.answer = create('Quantity') as vt then Quantity(vs, vt);
  src.answer : Reference as vs where src.operator = '=' -> tgt.answer = create('Reference') as vt then Reference(vs, vt);
}

  "Questionnaire.group-linkId" : for src.linkId make tgt.linkId
  "Questionnaire.group-title" : for src.text make tgt.title
  "Questionnaire.group-concept" : for src.code make tgt.concept
  "Questionnaire.group-required" : for src.required make tgt.required
  "Questionnaire.group-repeats" : for src.repeats make tgt.repeats
  "Questionnaire.group-group" : for src.item as vs0 where type = 'group' make tgt.group as vt0 then qstGroup(vs0, vt0)  
  "Questionnaire.group-question" : for src.item as vs0 where type != 'group' make tgt.question as vt0 then qstQuestion(vs0, vt0)  
endgroup

group option(source src, target tgt) extends BackboneElement {
  src.value -> tgt.value;
}

group qstQuestion extends BackboneElement
  input src as source
  input tgt as target

group initial(source src, target tgt) extends BackboneElement {
  src.value -> tgt.initial;
}

  "Questionnaire.group.question-type" : for src.type make tgt.type 
  "Questionnaire.group.question-linkId" : for src.linkId make tgt.linkId
  "Questionnaire.group.question-concept" : for src.code make tgt.concept
  "Questionnaire.group.question-text" : for src.text make tgt.text
  "Questionnaire.group.question-required" : for src.required make tgt.required
  "Questionnaire.group.question-repeats" : for src.repeats make tgt.repeats
  "Questionnaire.group.question-options" : for src.options make tgt.options
  "Questionnaire.group.question-option" : for src.option as s then {
    "Questionnaire.group.question-option-inner" : for s.value as v where v.is(Coding) make tgt.option = v
  }
  "Questionnaire.group.question-group" : for src.item as vs0 where type = 'group' make tgt.group as vt0 then qstGroup(vs0, vt0)  // ignore sub- questions? (else create a holding group?)
endgroup