'Get all defect mandatory fields
Function GetBugfields()
Dim fieldList, aField
Set fieldList = tdQC.Fields("BUG")
Dim dBugfieldIdx
Set dBugfieldIdx = CreateObject("Scripting.Dictionary")
For Each aField In fieldList
If Trim(aField.Property.UserLabel) <> "" Then
dBugfieldIdx.Add Trim(aField.Property.UserLabel), aField.Property.IsRequired
End If
Next
Set GetBugfields = dBugfieldIdx
End Function