ClaimStatus indicates if we are in the first step of the process (notice of loss) or on the second part (claim). The second part of the process has different status that break downs the process further
Dim objClaim As clsClaim
objClaim = GetObjectToBeUsedForThisClass(GetType(clsClaim).Name, ListOfObjectsToBeUsedInFormula)
if objClaim Isnot nothing then
Trace("objClaim found " & objClaim.AsString("") , 7)
Trace("objClaim status " & objClaim.ClaimStatus , 7)
if objClaim.ClaimStatus=1 then
result(0)=true
'1=cCLAIM_STATUS_FIRST_NOTICE_OF_LOSS
else
result(0)=false
end if
else
Trace("objClaim not found" , 7)
end if