method GetSafConceptDescription

Description

Get safconcept description by safconcept code.

Parameters

icSafConceptCode	input	character
ocSafConceptDesc	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/****************************************************************************************************/
/* This method will get shared set description by shared set code */
/****************************************************************************************************/
MainBlock:
do on error undo, throw:
    assign ocSafConceptDesc = "":U.
    if icSafConceptCode = ? or icSafConceptCode = "":U
    then return.
    
    <Q-45 run GetSafConceptDesc (all) (Read) (NoCache)
       (input icSafConceptCode, (SafConceptCode)
        output dataset tqGetSafConceptDesc) in BSafConcept>
    find first tqGetSafConceptDesc no-error.
    if available tqGetSafConceptDesc
    then do:
        assign ocSafConceptDesc = tqGetSafConceptDesc.tcSafConceptDescription.
    end.        
    
    
end. /* do on error undo, throw: */