Sub SaveListOfMapsToCSV(FileDir As String, FileName As String, ListOfMaps As List, HeaderList As List, Justification As Map)
Log("Justification Map = " & Justification)
Dim su As StringUtils
Dim ListOfArrays As List : ListOfArrays.Initialize
Dim RowMap1 As Map
RowMap1.Initialize
Dim FileDirBackup As String
FileDir = File.DirRootExternal & "/dnd"
FileDirBackup = File.DirRootExternal & "/dnd/backup"
RowMap1 = Justification.Get(1)
Log("RowMap = " & RowMap1)
'Walk Through List of Maps.
'Get each Map from the list.
'Get each Item from the Row.
For Each item As Map In ListOfMaps
Dim Row(HeaderList.Size) As String
For c = 0 To HeaderList.Size - 1
Row(c) = item.Get(HeaderList.Get(c))
'Log("row("&c&") = " & Row(c))
Next
ListOfArrays.Add(Row)
Next
'File.Copy(FileDir, FileName, FileDir, FileName & "Old")
'File.Delete(FileDir, FileName)
su.SaveCSV2(FileDirBackup, FileName , "," , ListOfArrays, HeaderList)
End Sub