map "https://hl7.or.cr/fhir/ph4h/StructureMap/CRPatientToLACPatient" = "CRPatientToLACPatient"

uses "http://hl7.org/fhir/5.0/StructureDefinition/Patient" alias Patient as source
uses "http://hl7.org/fhir/4.0/StructureDefinition/Patient" alias PatientR4 as target

imports "https://hl7.or.cr/fhir/ph4h/StructureMap/CRComun"

group CRPatientToLACPatient(source src : Patient, target tgt : PatientR4) {
  src.id as v -> tgt.id = v;
  src -> tgt.meta as m then {
    src -> m.profile = 'http://racsel.org/StructureDefinition/LACPatient' "perfil";
  } "meta";
  // Pasaporte primero y luego los nacionales, como los slices international y national de LACPatient.
  src.identifier as id where ((use = 'official') and type.coding.where((system = 'https://hl7.or.cr/fhir/terminology/CodeSystem/cr-tipo-identificacion') and (code = 'pasaporte')).exists()) -> tgt.identifier as ti then Identificador(id, ti) "pasaporte";
  src.identifier as id where ((use = 'official') and type.coding.where((system = 'https://hl7.or.cr/fhir/terminology/CodeSystem/cr-tipo-identificacion') and (code in ('cedula-nacional' | 'dimex' | 'ccss'))).exists()) -> tgt.identifier as ti then Identificador(id, ti) "nacional";
  src.name as n -> tgt.name as tn then Nombre(n, tn) "nombre";
  src.gender as g -> tgt.gender = g "sexo";
  src.birthDate as b -> tgt.birthDate = b "nacimiento";
  src.telecom as t -> tgt.telecom as tt then Telecom(t, tt);
  src.address as a -> tgt.address as ta then Direccion(a, ta) "direccion";
}