method GetCOACrossRefByCode

Description

Get COA Cross Ref By Code

Parameters

icCrossRefCode	input	character
oiCOACrossRefId	output	integer
ocCOACrossRefDesc	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/****************************************************************************************************/
/* This method will get COA Cross Ref Id and desc by code                                           */
/****************************************************************************************************/
MAIN_BLOCK:
do on error undo, throw:
    assign ocCOACrossRefDesc = "":U
           oiCOACrossRefId = 0.
    if icCrossRefCode = "":U or icCrossRefCode = ? then leave MAIN_BLOCK.    
    <Q-10 run COACrossRefByAll (all) (Read) (NoCache)
       (input ?, (COACrossRefID)
        input ?, (SourceDomainID)
        input ?, (TargetDomainID)
        input ?, (AltCOAStructID)
        input icCrossRefCode, (COACrossRefCode)
        input ?, (COACrossRefType)
        input ?, (COACrossRefIsActive)
        input ?, (SourceDomainCode)
        input ?, (TargetDomainCode)
        input ?, (AltCOAStructCode)
        output dataset tqCOACrossRefByAll) in BCOACrossRef>
    find first tqCOACrossRefByAll no-error.
    if available tqCOACrossRefByAll then 
    assign ocCOACrossRefDesc = tqCOACrossRefByAll.tcCOACrossRefDescription
           oiCOACrossRefId = tqCOACrossRefByAll.tiCOACrossRef_ID.
end. /* do on error undo, throw: */