trigger ApplicantDataWriting on Applicant__c (after insert, after update) 
{
  List<String> accIds = new List<String>();
  List<String> oppIds = new List<String>();
  List<String> leadIds = new List<String>();
  
  for(Applicant__c a : trigger.new)// If the Account, Opportunity and Lead Ids exist save it in a variable (For Updates)
  {
    if(a.Account_Id__c != null)accIds.add(a.Account_Id__c);
    if(a.Opportunity_Id__c != null)oppIds.add(a.Opportunity_Id__c);
    if(a.Lead_Id__c != null && a.Account_Id__c == null && a.Opportunity_Id__c == null)leadIds.add(a.Lead_Id__c);
  } 
  
  // look for the account information
  List<Account> accList = [select Id, 
                  Panther_Id_Student__pc, 
                  FirstName, 
                  LastName, 
                  PersonBirthdate,
                  PersonMailingStreet, 
                  PersonMailingCity, 
                  PersonMailingState, 
                  PersonMailingPostalCode,
                  Campus_Email__pc, 
                  HOB_Email__pc, 
                  Other_Email__pc, 
                  Parent_Email__pc,
                  PersonHomePhone,
                  PersonMobilePhone,
                  PersonOtherPhone,
                  PersonEmail,
                  Phone,
                  SAT__pc, 
                  SAT_Writing__pc, 
                  SAT_Verb__pc, 
                  SAT_Math__pc, 
                  HSOV_Units__pc, 
                  UGOV_Units__pc, 
                  GPA_HS__pc, 
                  GPA_UG__pc, 
                  ACT__pc, 
                  ACT_Read__pc, 
                  ACT_Math__pc, 
                  ACT_ENG__pc,
                  Admit_Type__pc,
                  Admit_Type_Description__pc,
                  Image_Now_Link__pc,
                  RecordTypeId
                 from Account
                where Id IN :accIds];
                
  
  // look for the opportunity informaton    
  List<Opportunity> oppList = [select Id, StageName, Application_Status__c, Application_Status_Code__c, Application_Status_Detail__c, Application_Status_Detail_Code__c,
                    Admit_Term__c, Admit_Term_Code__c, Residency__c, Residency_Code__c, Academic_Plan__c, Application_Id__c, Sub_Plan__c, Stop_Updating_Stage__c,
                    Generated_From__c, Application_Fee_Status__c, Application_Fee_Paid__c, Application_Fee_Date__c, Plan_Changed__c,Plan_Changed_Date__c,
                    Enrolled_Orientation_Course__c, Enrolled_Credit_Course__c
                   from Opportunity
                  where Id IN :oppIds];
                    
  //look for the lead information                
  List<Lead> leadList = [select Id, Status, Email, Email_2__c, OwnerId, Description
              from Lead
              where Id IN :leadIds];
                    
              
  List<Account> accToInsert = new List<Account>();
  
  Map<String, Account> pIdsWithAccounts = new Map<String, Account>();
  
  Account tempAcc;
  
  List<Opportunity> oppToInsert = new List<Opportunity>();
  Opportunity tempOpp;

  for(Applicant__c ap : trigger.new)
  {
    if(ap.Account_Id__c != null)  // verify that the appicant have a account
    {
      for(Account a : accList)
      {
        if(a.Id != ap.Account_Id__c)continue; //verify if there's an existing account; assign the new applicant values to the account 
        a.Panther_Id_Student__pc = ap.Panther_Id__c;
        a.FirstName = ap.First_Name__c;
        a.LastName = ap.Last_Name__c;
        a.PersonBirthdate = ap.Birthdate__c;
        a.PersonMailingStreet = ap.Street__c;
        a.PersonMailingCity = ap.City__c;
        a.PersonMailingState = ap.State__c;
        a.PersonMailingPostalCode = ap.PostalCode__c;
        a.Campus_Email__pc = ap.Email_2__c;
        a.HOB_Email__pc = ap.HOB_Email__c;
        a.Other_Email__pc = ap.Other_Email__c;
        a.Parent_Email__pc = ap.Parent_Email__c;
        a.PersonHomePhone = ap.Home_Phone__c;
        a.PersonMobilePhone = ap.Mobile__c;
        a.PersonOtherPhone = ap.Other_Phone__c;
        if(a.PersonEmail == null) a.PersonEmail = ap.PersonEmail__c;
        if(ap.Phone__c!= null) a.phone = ap.Phone__c;
        a.SAT__pc = ap.SAT__c;
        a.SAT_Writing__pc = ap.SAT_Write__c;
        a.SAT_Verb__pc = ap.SAT_Verb__c;
        a.SAT_Math__pc = ap.SAT_Math__c;
        a.HSOV_Units__pc = ap.HSOV_Units__c;
        a.UGOV_Units__pc = ap.UGOV_Units__c;
        a.GPA_HS__pc = ap.GPA_HS__c;
        a.GPA_UG__pc = ap.GPA_UG__c;
        a.ACT__pc = ap.ACT__c;
        a.ACT_Read__pc = ap.ACT_Read__c;
        a.ACT_Math__pc = ap.ACT_Math__c;
        a.ACT_ENG__pc = ap.ACT_ENG__c;
        a.Admit_Type__pc =   ap.Admit_Type__c;
        a.Admit_Type_Description__pc = ap.Admit_Type_Description__c;
        a.Image_Now_Link__pc = ap.Image_Now_Link__c;                  
      }
    }
    else if(ap.Account_Id__c == null && ap.Lead_Id__c == null) // verify if applincant don't have an account nor Lead assigned
    {
      if(pIdsWithAccounts.containsKey(ap.Panther_Id__c))//verify if there's an account in SF with the same panther id, update the values of the account with the new applicant values 
      {
        tempAcc = pIdsWithAccounts.get(ap.Panther_Id__c);
        tempAcc.Panther_Id_Student__pc = ap.Panther_Id__c;
        tempAcc.FirstName = ap.First_Name__c;
        tempAcc.LastName = ap.Last_Name__c;
        tempAcc.PersonBirthdate = ap.Birthdate__c;
        tempAcc.PersonMailingStreet = ap.Street__c;
        tempAcc.PersonMailingCity = ap.City__c;
        tempAcc.PersonMailingState = ap.State__c;
        tempAcc.PersonMailingPostalCode = ap.PostalCode__c;
        tempAcc.Campus_Email__pc = ap.Email_2__c;
        tempAcc.HOB_Email__pc = ap.HOB_Email__c;
        tempAcc.Other_Email__pc = ap.Other_Email__c;
        tempAcc.Parent_Email__pc = ap.Parent_Email__c;
        tempAcc.PersonHomePhone = ap.Home_Phone__c;
        tempAcc.PersonMobilePhone = ap.Mobile__c;
        tempAcc.PersonOtherPhone = ap.Other_Phone__c;
        tempAcc.PersonEmail = ap.PersonEmail__c;
        if(ap.Phone__c != null) tempAcc.phone = ap.Phone__c;
        tempAcc.SAT__pc = ap.SAT__c;
        tempAcc.SAT_Writing__pc = ap.SAT_Write__c;
        tempAcc.SAT_Verb__pc = ap.SAT_Verb__c;
        tempAcc.SAT_Math__pc = ap.SAT_Math__c;
        tempAcc.HSOV_Units__pc = ap.HSOV_Units__c;
        tempAcc.UGOV_Units__pc = ap.UGOV_Units__c;
        tempAcc.GPA_HS__pc = ap.GPA_HS__c;
        tempAcc.GPA_UG__pc = ap.GPA_UG__c;
        tempAcc.ACT__pc = ap.ACT__c;
        tempAcc.ACT_Read__pc = ap.ACT_Read__c;
        tempAcc.ACT_Math__pc = ap.ACT_Math__c;
        tempAcc.ACT_ENG__pc = ap.ACT_ENG__c;
        tempAcc.Admit_Type__pc = ap.Admit_Type__c;
        tempAcc.Admit_Type_Description__pc = ap.Admit_Type_Description__c;  
        tempAcc.Image_Now_Link__pc = ap.Image_Now_Link__c;
        tempAcc.OwnerId = '005F0000001zni0';
        tempAcc.RecordTypeId = '012A0000000oTZQ';
      }
      else // there's no account with the panther id, create the account
      {
        tempAcc = new Account(  Panther_Id_Student__pc = ap.Panther_Id__c,
                    FirstName = ap.First_Name__c,
                    LastName = ap.Last_Name__c,
                    PersonBirthdate = ap.Birthdate__c,
                    PersonMailingStreet = ap.Street__c,
                    PersonMailingCity = ap.City__c,
                    PersonMailingState = ap.State__c,
                    PersonMailingPostalCode = ap.PostalCode__c,
                    Campus_Email__pc = ap.Email_2__c,
                    HOB_Email__pc = ap.HOB_Email__c,
                    Other_Email__pc = ap.Other_Email__c,
                    Parent_Email__pc = ap.Parent_Email__c,
                    PersonHomePhone = ap.Home_Phone__c,
                    PersonMobilePhone = ap.Mobile__c,
                    PersonOtherPhone = ap.Other_Phone__c,
                    PersonEmail = ap.PersonEmail__c,
                    Phone = ap.Phone__c,
                    SAT__pc = ap.SAT__c,
                    SAT_Writing__pc = ap.SAT_Write__c,
                    SAT_Verb__pc = ap.SAT_Verb__c,
                    SAT_Math__pc = ap.SAT_Math__c,
                    HSOV_Units__pc = ap.HSOV_Units__c,
                    UGOV_Units__pc = ap.UGOV_Units__c,
                    GPA_HS__pc = ap.GPA_HS__c,
                    GPA_UG__pc = ap.GPA_UG__c,
                    ACT__pc = ap.ACT__c,
                    ACT_Read__pc = ap.ACT_Read__c,
                    ACT_Math__pc = ap.ACT_Math__c,
                    ACT_ENG__pc = ap.ACT_ENG__c,
                    Admit_Type__pc = ap.Admit_Type__c,
                    Admit_Type_Description__pc = ap.Admit_Type_Description__c,
                    Image_Now_Link__pc = ap.Image_Now_Link__c,
                    OwnerId = '005F0000001zni0',
                    RecordTypeId = '012A0000000oTZQ');
      }
      //assign the new account to the panther id
      pIdsWithAccounts.put(tempAcc.Panther_Id_Student__pc, tempAcc);
      //system.debug('************************ Account ID: ' + tempAcc.Id); 
    }
    if(ap.Opportunity_Id__c != null)
    {
      for(Opportunity o : oppList)
      {
        if(o.Id != ap.Opportunity_Id__c)continue;
        if(!(o.Stop_Updating_Stage__c && ap.StageName__c != 'Cancelled'))o.StageName = ap.StageName__c;
        o.Application_Status__c = ap.Application_Status__c;
        o.Application_Status_Code__c = ap.Application_Status_Code__c;
        o.Application_Status_Detail__c = ap.Application_Status_Detail__c;
        o.Application_Status_Detail_Code__c = ap.Application_Status_Detail_Code__c;
        o.Admit_Term__c = ap.Admit_Term__c;
        o.Admit_Term_Code__c = ap.Admit_Term_Code__c;
        o.Residency__c = ap.Residency__c;
        o.Residency_Code__c = ap.Residency_Code__c;
        o.Academic_Plan__c = ap.Academic_Plan__c;
        o.Application_Id__c = ap.Application_Id__c;
        o.Sub_Plan__c = ap.Sub_Plan__c;
        o.PS_Removed__c = ap.PS_Removed__c;
        o.Generated_From__c = ap.Generated_From__c;
        o.Application_Fee_Status__c = ap.Application_Fee_Status__c;
        o.Application_Fee_Paid__c = ap.Application_Fee_Paid__c;
        o.Application_Fee_Date__c = ap.Application_Fee_Date__c;
        o.Plan_Changed__c  = ap.Plan_Changed__c;
        o.Plan_Changed_Date__c = ap.Plan_Changed_Date__c;
        o.Enrolled_Orientation_Course__c = ap.Enrolled_Orientation_Course__c;
        o.Enrolled_Credit_Course__c = ap.Enrolled_Credit_Course__c;
      }
    }
    else if(ap.Opportunity_Id__c == null && ap.Lead_Id__c == null)
    {
      tempOpp = new Opportunity(  StageName = ap.StageName__c,
                    Application_Status__c = ap.Application_Status__c,
                    Application_Status_Code__c = ap.Application_Status_Code__c,
                    Application_Status_Detail__c = ap.Application_Status_Detail__c,
                    Application_Status_Detail_Code__c = ap.Application_Status_Detail_Code__c,
                    Admit_Term__c = ap.Admit_Term__c,
                    Admit_Term_Code__c = ap.Admit_Term_Code__c,
                    First_Admit_Term__c = ap.Admit_Term__c,
                    First_Admit_Term_Code__c = ap.Admit_Term_Code__c,
                    Residency__c = ap.Residency__c,
                    Residency_Code__c = ap.Residency_Code__c,
                    Academic_Plan__c = ap.Academic_Plan__c,
                    Application_Id__c = ap.Application_Id__c,
                    Name = ap.First_Name__c + ' ' + ap.Last_Name__c + '-' + ap.Academic_Plan__c,
                    AccountId = ap.Account_Id__c,
                    Sub_Plan__c = ap.Sub_Plan__c,
                    PS_Removed__c = ap.PS_Removed__c,
                    Generated_From__c = ap.Generated_From__c,
                    Application_Fee_Status__c = ap.Application_Fee_Status__c,
                    Application_Fee_Paid__c = ap.Application_Fee_Paid__c,
                    Application_Fee_Date__c = ap.Application_Fee_Date__c,
                    Plan_Changed__c  = ap.Plan_Changed__c,
                    Plan_Changed_Date__c = ap.Plan_Changed_Date__c,
                    Enrolled_Orientation_Course__c = ap.Enrolled_Orientation_Course__c,
                    Enrolled_Credit_Course__c = ap.Enrolled_Credit_Course__c,
                    OwnerId = '005F0000001zni0',
                    RecordTypeId = '012A0000000SDYt',
                    UpdatedByBoomi__c = true,
                    Created_By_Boomi__c = true,
                    CloseDate = System.today());
      oppToInsert.add(tempOpp);
    }
  }
  accToInsert = pIdsWithAccounts.values();
  update accList;
    
  insert accToInsert;
    
  update oppList;
    
  for(Account a : accToInsert)
  {
    for(Applicant__c ap : trigger.new)
    {
      if(a.Panther_Id_Student__pc != ap.Panther_Id__c)continue;
      for(Opportunity o : oppToInsert)
      {
        if(o.Application_Id__c != ap.Application_Id__c)continue;
        o.AccountId = a.Id;
        //system.debug('************** acc record type: ' + a.RecordTypeId + ' opp record type: ' + o.RecordTypeId);
      }
    }
  }
  insert oppToInsert;
    
  Database.LeadConvert[] leadsToConvert = new Database.LeadConvert[leadList.size()];
    Database.Leadconvert converter;
    LeadStatus convertStatus = [Select Id, MasterLabel from LeadStatus where IsConverted=true and MasterLabel = 'Highly Engaged' limit 1];
           
    system.debug('************************************************************************** convertStatus: ' + convertStatus);
           
    Database.LeadConvertResult[] lcr;
    Integer counter = 0;
    accToInsert = new List<Account>();
    
    List<Lead> leadUpdate = new List<Lead>();
    Boolean add = false;
    
    for(Lead l : leadList)
    {
      String lOwner;
      lOwner = l.OwnerId;
      if(lOwner.startsWith('00G'))
      {
        l.OwnerId = '005F0000001zni0'; //liliana blanco
               
        if(l.Description == null)l.Description = '***automated process***';
        else l.Description = l.Description + ' / ***automated process***';
               
        add = true;  
      }
      
      if(l.Status <> 'Highly Engaged') //Update the status so the SF workflow can release the lead from the email automation strategy and the lead can be convertered
      {
        l.Status = 'Highly Engaged';
        l.Lead_Phase__c = 'Qualified';
      add = true;  
      }
      
      
      if(add) leadUpdate.add(l);
      
      for(Applicant__c ap : trigger.new)
      {
        if ((l.Email != null && (l.Email == ap.Email_2__c || l.Email == ap.HOB_Email__c || l.Email == ap.Other_Email__c || l.Email == ap.Parent_Email__c || l.Email == ap.PersonEmail__c)) || 
            (l.Email_2__c != null &&(l.Email_2__c == ap.Email_2__c || l.Email_2__c == ap.HOB_Email__c || l.Email_2__c == ap.Other_Email__c || l.Email_2__c == ap.Parent_Email__c || l.Email_2__c == ap.PersonEmail__c)))
        {
         tempAcc = new Account(Panther_Id_Student__pc = ap.Panther_Id__c,
                   FirstName = ap.First_Name__c,
                   LastName = ap.Last_Name__c,
                   PersonBirthdate = ap.Birthdate__c,
                   PersonMailingStreet = ap.Street__c,
                   PersonMailingCity = ap.City__c,
                   PersonMailingState = ap.State__c,
                   PersonMailingPostalCode = ap.PostalCode__c,
                   Campus_Email__pc = ap.Email_2__c,
                   HOB_Email__pc = ap.HOB_Email__c,
                   Other_Email__pc = ap.Other_Email__c,
                   Parent_Email__pc = ap.Parent_Email__c,
                   PersonHomePhone = ap.Home_Phone__c,
                   PersonMobilePhone = ap.Mobile__c,
                   PersonOtherPhone = ap.Other_Phone__c,
                   PersonEmail = ap.PersonEmail__c,
                   Phone = ap.Phone__c,
                   SAT__pc = ap.SAT__c,
                   SAT_Writing__pc = ap.SAT_Write__c,
                   SAT_Verb__pc = ap.SAT_Verb__c,
                   SAT_Math__pc = ap.SAT_Math__c,
                   HSOV_Units__pc = ap.HSOV_Units__c,
                   UGOV_Units__pc = ap.UGOV_Units__c,
                   GPA_HS__pc = ap.GPA_HS__c,
                   GPA_UG__pc = ap.GPA_UG__c,
                   ACT__pc = ap.ACT__c,
                   ACT_Read__pc = ap.ACT_Read__c,
                   ACT_Math__pc = ap.ACT_Math__c,
                   ACT_ENG__pc = ap.ACT_ENG__c,
                   Admit_Type__pc = ap.Admit_Type__c,
                   Admit_Type_Description__pc = ap.Admit_Type_Description__c,  
                   Image_Now_Link__pc = ap.Image_Now_Link__c,
                   OwnerId = '005F0000001zni0',
                   RecordTypeId = '012A0000000oTZQ');        
      accToInsert.add(tempAcc);
        }
      }
    }
    update leadUpdate;
        
    insert accToInsert;
        
    Set<String> ownerIds = new Set<String>();
    String lOwner;
    
    for(Lead l : leadList)
    {
      lOwner = l.OwnerId;
      if(lOwner.startsWith('00G'))l.OwnerId = '005F0000001zni0'; //verify if the owner of the leads is a queue and assign the Enrollment Coordinator
      ownerIds.add(l.OwnerId);
    }
    List<User> owners = [select Id, IsActive from User where Id IN :ownerIds];
   
    //system.debug('****************************************************************  trigger.new: ' + trigger.new);
    
    for(Lead l : leadList)
    {
      for(User u : owners)
      {
        if(u.Id != l.OwnerId) continue;
        converter = new Database.Leadconvert();
        
        for(Account acc : accToInsert)
        {                 
          if((l.Email != null && (l.Email == acc.Campus_Email__pc || l.Email == acc.HOB_Email__pc || l.Email == acc.Other_Email__pc || l.Email == acc.Parent_Email__pc || l.Email == acc.PersonEmail)) ||
             (l.Email_2__c != null && (l.Email_2__c == acc.Campus_Email__pc || l.Email_2__c == acc.HOB_Email__pc || l.Email_2__c == acc.Other_Email__pc || l.Email_2__c == acc.Parent_Email__pc || l.Email_2__c == acc.PersonEmail)))// continue;
          {
            for(Applicant__c ap : trigger.new)
            {            
              if(ap.Panther_ID__c == acc.Panther_Id_Student__pc)
              {
                converter.setLeadId(l.Id);
                converter.setAccountId(acc.Id);
                converter.setDoNotCreateOpportunity(false);
                converter.setConvertedStatus(convertStatus.MasterLabel);
                converter.setOpportunityName(ap.Name + '-' + ap.Academic_Plan__c);
                if(u.IsActive)converter.setOwnerId(l.OwnerId);
                else converter.setOwnerId('005F0000001zni0');
                leadsToConvert [counter] = converter;
                break;
              }
            }
          }
        }
        counter++;
      }
    }
    lcr = Database.convertLead(leadsToConvert);
    oppIds = new List<String>();
    for(Database.LeadconvertResult lc : lcr)
    {
      oppIds.add(lc.getOpportunityId());
    }
  oppList = [select Id, Name, StageName, Application_Status__c, Application_Status_Code__c, Application_Status_Detail__c, Application_Status_Detail_Code__c,
        Admit_Term__c, Admit_Term_Code__c, Residency__c, Residency_Code__c, Academic_Plan__c, Application_Id__c, Sub_Plan__c,PS_Removed__c,
        Generated_From__c, Application_Fee_Status__c, Application_Fee_Paid__c, Application_Fee_Date__c, Plan_Changed__c,Plan_Changed_Date__c,
        Enrolled_Orientation_Course__c, Enrolled_Credit_Course__c
        from Opportunity
        where Id IN :oppIds];
                
  for(Opportunity o : oppList)
  {
    for(Applicant__c ap : trigger.new)
    {
      if(o.Name != ap.Name + '-' + ap.Academic_Plan__c)continue;
      o.StageName = ap.StageName__c;
      o.Application_Status__c = ap.Application_Status__c;
      o.Application_Status_Code__c = ap.Application_Status_Code__c;
      o.Application_Status_Detail__c = ap.Application_Status_Detail__c;
      o.Application_Status_Detail_Code__c = ap.Application_Status_Detail_Code__c;
      o.Admit_Term__c = ap.Admit_Term__c;
      o.Admit_Term_Code__c = ap.Admit_Term_Code__c;
      o.Residency__c = ap.Residency__c;
      o.Residency_Code__c = ap.Residency_Code__c;
      o.Academic_Plan__c = ap.Academic_Plan__c;
      o.Application_Id__c = ap.Application_Id__c;
      o.Sub_Plan__c = ap.Sub_Plan__c;
      o.PS_Removed__c = ap.PS_Removed__c;
      o.Generated_From__c = ap.Generated_From__c;
      o.Application_Fee_Status__c = ap.Application_Fee_Status__c;
      o.Application_Fee_Paid__c = ap.Application_Fee_Paid__c;
      o.Application_Fee_Date__c = ap.Application_Fee_Date__c;
      o.Plan_Changed__c  = ap.Plan_Changed__c;
      o.Plan_Changed_Date__c = ap.Plan_Changed_Date__c;
      o.Enrolled_Orientation_Course__c = ap.Enrolled_Orientation_Course__c;
      o.Enrolled_Credit_Course__c = ap.Enrolled_Credit_Course__c;
      o.OwnerId = '005F0000001zni0';
      o.RecordTypeId = '012A0000000SDYt';
      o.UpdatedByBoomi__c = true;
    }
  }
  update oppList;
}