sunlight-b of Sunlight BA Team
4/26/2018 - 4:24 PM

Display claim data in the first notice of loss process only

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