method CheckIfEntityCodeValid

Description

This method will be used in the deduction review ui

Parameters

icEntityCode	input	character
olIsValid	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bddocument.p)

assign oiReturnStatus = -98.

/* check if input entity code is valid */
assign olIsValid = false.
if icEntityCode = ? or icEntityCode = '':U
then do:
    assign oiReturnStatus = 0.
    return.
end.

<Q-81 run CompanyByAll (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input icEntityCode, (CompanyCode)
    input yes, (CompanyIsActive)
    output dataset tqCompanyByAll) in BCompany>
find first tqCompanyByAll no-error.
if available tqCompanyByAll
then do:
    assign olIsValid = yes.
end.

assign oiReturnStatus = 0.