method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.

Parameters

oiReturnStatus

output

integer

Internal usage

unused

program code (program/bsaf.p)

<ANCESTOR-CODE>

/*
for each tSaf:
    <Q-1 run GetSafConceptCode (all) (Read) (NoCache)
          (input tSaf.SafConcept_ID, (SafConcept_ID)
           output dataset tqGetSafConceptCode) in BSafConcept >
    find first tqGetSafConceptCode no-error.
    if available tqGetSafConceptCode
    then assign tSaf.tcSafConceptCode = tqGetSafConceptCode.tcSafConceptCode.
end.
*/