driver_docs/sources/AnalysisDriver.bas

315     Dim currentFunctionName As String  variable
316     currentFunctionName = "AnalyseDirectory"
369                 WriteDebug currentFunctionName & ": No files to analyse!"
375 …       WriteDebug currentFunctionName & ": No files to analyse! Filelist (" & fileList & ") empty?"
382 …       WriteDebug currentFunctionName & ": No files to analyse! Filelist (" & fileList & ") empty?"
497     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
507     Dim currentFunctionName As String  variable
508     currentFunctionName = "WriteResults"
530     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
537     Dim currentFunctionName As String  variable
538     currentFunctionName = "GetFilesToAnalyze"
573         WriteDebug currentFunctionName & " : invalid application " & getAppSpecificApplicationName
586     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
594     Dim currentFunctionName As String  variable
595     currentFunctionName = "GetFilesToAnalyze"
627     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
634     Dim currentFunctionName As String  variable
635     currentFunctionName = "GetPrepareFilesToAnalyze"
640         WriteDebug currentFunctionName & ": results file does not exist : " & resultsFilePath
685     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
692     Dim currentFunctionName As String  variable
693     currentFunctionName = "GetPreparableFilesFromDocProps"
723     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
734     Dim currentFunctionName As String  variable
735     currentFunctionName = "OpenXLSResultFile"
757     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
787     Dim currentFunctionName As String  variable
788     currentFunctionName = "WriteXLSOutput"
928         WriteDebug currentFunctionName & " : Setting font to MS PGothic for 'ja' locale"
997     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
1014     Dim currentFunctionName As String  variable
1015     currentFunctionName = "WriteIssueCounts"
1075     WriteDebug currentFunctionName & _
1082     Dim currentFunctionName As String  variable
1083     currentFunctionName = "WriteUniqueModuleCount"
1117     WriteDebug currentFunctionName & _
1125     Dim currentFunctionName As String  variable
1126     currentFunctionName = "WriteUserFromControlTypesComment"
1141     WriteDebug currentFunctionName & _
1156     Dim currentFunctionName As String  variable
1157     currentFunctionName = "UpdateAllCounts"
1194         WriteDebug currentFunctionName & " : path " & aAnalysis.name & _
1202 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1207     Dim currentFunctionName As String  variable
1208     currentFunctionName = "UpdateDocCounts"
1233 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1241     Dim currentFunctionName As String  variable
1242     currentFunctionName = "WriteDocProperties"
1299 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : " & Err.Number & " " & Err.Desc…
1304     Dim currentFunctionName As String  variable
1305     currentFunctionName = "CheckDate"
1319 …WriteDebug currentFunctionName & " : date " & myDate & " : " & Err.Number & " " & Err.Description …
1326     Dim currentFunctionName As String  variable
1327     currentFunctionName = "WriteDocIssues"
1353 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : " & Err.Number & " " & Err.Desc…
1358     Dim currentFunctionName As String  variable
1359     currentFunctionName = "ProcessIssuesForDAW"
1381 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1388     Dim currentFunctionName As String  variable
1389     currentFunctionName = "ProcessIssueAndWriteDocIssueDetails"
1431 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1437     Dim currentFunctionName As String  variable
1438     currentFunctionName = "getDocIssueCost"
1454 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1477     Dim currentFunctionName As String  variable
1478     currentFunctionName = "getVBAMacroIssueCost"
1523 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1531     Dim currentFunctionName As String  variable
1532     currentFunctionName = "getMacroExtRefIssueCost"
1553 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1565     Dim currentFunctionName As String  variable
1566     currentFunctionName = "getValueFromXLSorDict"
1578             WriteDebug currentFunctionName & _
1580 …WriteDebug currentFunctionName & " : dictKey " & dictKey & " : xlsKey " & xlsKey & " : " & Err.Num…
1593 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
1628     Dim currentFunctionName As String  variable
1629     currentFunctionName = "getDocIssueClassification"
1643             WriteDebug currentFunctionName & _
1660 …WriteDebug currentFunctionName & " : issueKey " & issueKey & ": " & Err.Number & " " & Err.Descrip…
1701     Dim currentFunctionName As String  variable
1702     currentFunctionName = "WriteDocRefDetails"
1726     WriteDebug currentFunctionName & _
1735     Dim currentFunctionName As String  variable
1736     currentFunctionName = "OutputReferenceAttributes"
1781     WriteDebug currentFunctionName & _
1791     Dim currentFunctionName As String  variable
1792     currentFunctionName = "OutputCommonIssueAttributes"
1810     WriteDebug currentFunctionName & _
1820     Dim currentFunctionName As String  variable
1821     currentFunctionName = "CollateIssueAndFactorCountsAcrossAllDocs"
1867     WriteDebug currentFunctionName & _
1878     Dim currentFunctionName As String  variable
1879     currentFunctionName = "OutputCommonIssueDetails"
1899     WriteDebug currentFunctionName & _
1909     Dim currentFunctionName As String  variable
1910     currentFunctionName = "AddIssueAndBoolValToDict"
1922     WriteDebug currentFunctionName & _
1930     Dim currentFunctionName As String  variable
1931     currentFunctionName = "AddIssueAndValToDict"
1942     WriteDebug currentFunctionName & _
1951     Dim currentFunctionName As String  variable
1954     currentFunctionName = "AddMacroModuleHashToMacroDict"
1966     WriteDebug currentFunctionName & _
1974     Dim currentFunctionName As String  variable
1975     currentFunctionName = "AddIssueAndOneToDict"
1986 …WriteDebug currentFunctionName & " : key " & key & ": " & Err.Number & " " & Err.Description & " "…
1992     Dim currentFunctionName As String  variable
1993     currentFunctionName = "AddPreparedIssueAndOneToDict"
2004 …WriteDebug currentFunctionName & " : key " & key & ": " & Err.Number & " " & Err.Description & " "…
2010     Dim currentFunctionName As String  variable
2011     currentFunctionName = "GetExcelInstance"
2030     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
2058     Dim currentFunctionName As String  variable
2059     currentFunctionName = "WriteOverview"
2123 …WriteDebug currentFunctionName & " : Problem writing overview: " & Err.Number & " " & Err.Descript…
2129     Dim currentFunctionName As String  variable
2130     currentFunctionName = "SetupDAWResultsSpreadsheet"
2177 …WriteDebug currentFunctionName & " : Problem setting up spreadsheet for DAW: " & Err.Number & " " …
2183     Dim currentFunctionName As String  variable
2184     currentFunctionName = "SetupPAWResultsSpreadsheet"
2221 …WriteDebug currentFunctionName & " : Problem setting up spreadsheet for PAW: " & Err.Number & " " …
2228     Dim currentFunctionName As String  variable
2229     currentFunctionName = "SetupPrintRanges"
2255 …WriteDebug currentFunctionName & " : Problem setting print ranges: " & Err.Number & " " & Err.Desc…
2263     Dim currentFunctionName As String  variable
2264     currentFunctionName = "SetupSheetChartTitles"
2276     WriteDebug currentFunctionName & _
2290     Dim currentFunctionName As String  variable
2291     currentFunctionName = "SetupSheetTextBox"
2331     WriteDebug currentFunctionName & _
2342     Dim currentFunctionName As String  variable
2343     currentFunctionName = "GetWorkbookNameValueAsLong"
2352 …WriteDebug currentFunctionName & " : name " & name & ": " & Err.Number & " " & Err.Description & "…
2358     Dim currentFunctionName As String  variable
2359     currentFunctionName = "GetWorksheetCellValueAsLong"
2367     WriteDebug currentFunctionName & _
2376     Dim currentFunctionName As String  variable
2377     currentFunctionName = "GetWorksheetCellValueToString"
2387     WriteDebug currentFunctionName & _
2396     Dim currentFunctionName As String  variable
2397     currentFunctionName = "SetWorksheetCellValueToLong"
2405     WriteDebug currentFunctionName & _
2414     Dim currentFunctionName As String  variable
2415     currentFunctionName = "SetWorksheetCellValueToInteger"
2423     WriteDebug currentFunctionName & _
2433     Dim currentFunctionName As String  variable
2434     currentFunctionName = "SetWorksheetCellValueToInteger"
2442     WriteDebug currentFunctionName & _
2452     Dim currentFunctionName As String  variable
2453     currentFunctionName = "SetWorksheetCellValueToString"
2461     WriteDebug currentFunctionName & _
2471     Dim currentFunctionName As String  variable
2472     currentFunctionName = "SetWorkbookNameValueToBoolean"
2480 …WriteDebug currentFunctionName & " : name " & name & " : boolean value " & bVal & ": " & Err.Numbe…
2486     Dim currentFunctionName As String  variable
2487     currentFunctionName = "SetWorkbookNameValueToString"
2495 …WriteDebug currentFunctionName & " : name " & name & " : value " & val & ": " & Err.Number & " " &…
2501     Dim currentFunctionName As String  variable
2502     currentFunctionName = "SetWorkbookNameValueToLong"
2510 …WriteDebug currentFunctionName & " : name " & name & " : value " & val & ": " & Err.Number & " " &…
2516     Dim currentFunctionName As String  variable
2517     currentFunctionName = "SetWorkbookNameValueToVariant"
2525 …WriteDebug currentFunctionName & " : name " & name & " : value " & val & ": " & Err.Number & " " &…
2531     Dim currentFunctionName As String  variable
2532     currentFunctionName = "AddLongToWorkbookNameValue"
2540 …WriteDebug currentFunctionName & " : name " & name & " : value " & val & ": " & Err.Number & " " &…
2545     Dim currentFunctionName As String  variable
2546     currentFunctionName = "AddVariantToWorkbookNameValue"
2554 …WriteDebug currentFunctionName & " : name " & name & " : value " & varVal & ": " & Err.Number & " …
2561     Dim currentFunctionName As String  variable
2562     currentFunctionName = "SaveAnalysisResultsVariables"
2571     WriteDebug currentFunctionName & " : offsetDocIssueDetailsRow " & offsetDocIssueDetailsRow & _
2580     Dim currentFunctionName As String  variable
2581     currentFunctionName = "SetupAnalysisResultsVariables"
2591     WriteDebug currentFunctionName & _
2602     Dim currentFunctionName As String  variable
2603     currentFunctionName = "WriteToIni"
2612 …WriteDebug currentFunctionName & " : key " & key & " : value " & value & ": " & Err.Number & " " &…
2618     Dim currentFunctionName As String  variable
2619     currentFunctionName = "WriteToLog"
2631 …WriteDebug currentFunctionName & " : key " & key & " : value " & value & ": " & Err.Number & " " &…
2671     Dim currentFunctionName As String  variable
2672     currentFunctionName = "ProfileLoadDict"
2700     WriteDebug currentFunctionName & _
2709     Dim currentFunctionName As String  variable
2710     currentFunctionName = "StripNulls"
2728 …WriteDebug currentFunctionName & " : startStrg " & startStrg & " : " & Err.Number & " " & Err.Desc…
2737     Dim currentFunctionName As String  variable
2738     currentFunctionName = "ProfileGetItem"
2761     WriteDebug currentFunctionName & _
2772     Dim currentFunctionName As String  variable
2773     currentFunctionName = "GetDefaultPassword"
2786     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2792     Dim currentFunctionName As String  variable
2793     currentFunctionName = "GetVersion"
2806     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2811     Dim currentFunctionName As String  variable
2812     currentFunctionName = "GetTitle"
2825     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2831     Dim currentFunctionName As String  variable
2832     currentFunctionName = "SetPrepareToNone"
2840     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2845     Dim currentFunctionName As String  variable
2848     currentFunctionName = "CheckForAbort"
2863     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2869     Dim currentFunctionName As String  variable
2870     currentFunctionName = "CheckDoPrepare"
2886     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2892     Dim currentFunctionName As String  variable
2894     currentFunctionName = "GetIssuesLimitInDays"
2909     WriteDebug currentFunctionName & Err.Number & " " & Err.Description & " " & Err.Source
2916     Dim currentFunctionName As String  variable
2917     currentFunctionName = "AddIssueDetailsNote"
2929 …WriteDebug currentFunctionName & " : noteNum " & noteNum & " : noteStr " & noteStr & ": " & Err.Nu…
2939     Dim currentFunctionName As String  variable
2940     currentFunctionName = "SetupWizardVariables"
2962     WriteDebug currentFunctionName & _
2970     Dim currentFunctionName As String  variable
2971     currentFunctionName = "SetupSearchTypes"
2984 …WriteDebug currentFunctionName & ": searchTypes.Count " & searchTypes.count & ": " & Err.Number & …
2990     Dim currentFunctionName As String  variable
2991     currentFunctionName = "WriteXMLHeader"
3000     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
3005     Dim currentFunctionName As String  variable
3006     currentFunctionName = "WriteXMLResultsStartTag"
3016     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
3021     Dim currentFunctionName As String  variable
3022     currentFunctionName = "WriteXMLResultsEndTag"
3030     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
3036     Dim currentFunctionName As String  variable
3037     currentFunctionName = "WriteXMLDocProperties"
3056 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3062     Dim currentFunctionName As String  variable
3063     currentFunctionName = "WriteXMLDocPropertiesEndTag"
3071     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
3077     Dim currentFunctionName As String  variable
3078     currentFunctionName = "WriteXMLDocRefDetails"
3094 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3100     Dim currentFunctionName As String  variable
3101     currentFunctionName = "OutputXMLReferenceAttributes"
3134 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXM…
3140     Dim currentFunctionName As String  variable
3141     currentFunctionName = "WriteXMLDocIssueDetails"
3159 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & ": " & Err.Number & " " & Err.Descr…
3165     Dim currentFunctionName As String  variable
3166     currentFunctionName = "OutputXMLCommonIssueDetails"
3192 …WriteDebug currentFunctionName & " : path " & aAnalysis.name & " : myIssue " & myIssue.IssueTypeXM…
3198     Dim currentFunctionName As String  variable
3199     currentFunctionName = "OutputXMLCommonIssueAttributes"
3225 …WriteDebug currentFunctionName & " : myIssue " & myIssue.IssueTypeXML & "_" & myIssue.SubTypeXML &…
3235     Dim currentFunctionName As String  variable
3236     currentFunctionName = "WriteXMLOutput"
3268 …WriteDebug currentFunctionName & " : path " & outFilePath & ": " & Err.Number & " " & Err.Descript…
3277     Dim currentFunctionName As String  variable
3278     currentFunctionName = "EncodeUrl"
3304 …WriteDebug currentFunctionName & " : sUrl " & sUrl & ": " & Err.Number & " " & Err.Description & "…
3310     Dim currentFunctionName As String  variable
3311     currentFunctionName = "EncodeXML"
3336 …WriteDebug currentFunctionName & " : string " & Str & ": " & Err.Number & " " & Err.Description & …
3377     Dim currentFunctionName As String  variable
3378     currentFunctionName = "GetResourceDataFileName"
3433     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source
3439     Dim currentFunctionName As String  variable
3440     currentFunctionName = "GetUserLocaleInfo"
3469     WriteDebug currentFunctionName & ": " & Err.Number & " " & Err.Description & " " & Err.Source
3626     Dim currentFunctionName As String  variable
3627     currentFunctionName = "GetDocModificationDates"
3637     WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source