Man Nature Conflicts

; mswathi(Def Version:7) (Implem Version:15)

uses aILIndividualClaim

procedure Fix_10612 uses aILCededCoverage, aILCededCoverageTransaction, mDateTimeTypes, aILAssumedMasterClaim, mILBillingAccountingResource, mILCessionResource, aISUser, Motor, mTrace, aILAssumedIndividualClaim, mILCessionMethods, aILCession, aTransaction var theDate : tBasicDate var theEffectiveDate : tBasicDate var curCededCoverage : aILCededCoverage var curCededCovTransac : aILCededCoverageTransaction var curClaim : aILAssumedMasterClaim var curIndividualClaim : aILAssumedIndividualClaim var curPrevCededCovTransac : aILCededCoverageTransaction var theErrorMessage : CString var curUser : aISUser var count : Int4 var theFailureCount : Int4 var theSuccessCount : Int4 var Claimfound : Boolean var curCession : aILCession var theTransaction : aTransaction theSuccessCount = 0 theFailureCount = 0 count = 0 forEach curUser in OQL select * from X in aISUser++ where X.Name = 'MHANSEN' break endFor forEach curCededCoverage in OQL select * from x in aILCededCoverage where x.ActivationStatus = cTerminated count++ Claimfound = False mTrace.Trace('A Claim is not found for the CededCoverage') forEach curIndividualClaim in OQL select * from x in aILIndividualClaim where x.RefCededCoverage = curCededCoverage Claimfound = True mTrace.Trace('A Claim is found' && curIndividualClaim.RefMaster.Reference) break mTrace.Trace('Upadating CededCoverage ' && IaS(curCededCoverage.Id) && ' of Policy ' && curCededCoverage.RefCession.PolicyNumber) theDate = curIndividualClaim.RefMaster.DateOfEvent forEach curCededCovTransac in OQL select * from x in aILCededCoverageTransaction where (x.RefObject = curCededCoverage) and (x.TransactionType