project QadFinancials > class PMultiDB > method validateDomainCodeByParams


Parameters


olDomainValidoutputlogical
icDomainCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDomain.ValDomainCode


program code (program3/pmultidb.p)

if oiReturnStatus = 0 then oiReturnStatus = -98.

empty temp-table tMFGDomain no-error.

create tMFGDomain.

assign
    tMFGDomain.tcDomainCode = icDomainCode.

<M-2 run validateDomainCodeAcrossDBs
   (input-output tMFGDomain (tMFGDomain), 
    output viFcReturnSuper (oiReturnStatus)) in PMultiDB>

find first tMFGDomain.
assign olDomainValid = tMFGDomain.tlDomainValid.

if viFcReturnSuper <> 0 then 
    assign oiReturnStatus = viFcReturnSuper.

if oiReturnStatus = -98 then
    assign oiReturnStatus = 0.