inUse in x++

inUse in x++ :

display int inUse(KRE_ID_Tax_VAT _KRE_ID_Tax_VAT)
{
    #resAppl
    int             idx;
    boolean         foundHere = false;

    idx = confind(KRE_ID_Tax_VATMarkCon, _KRE_ID_Tax_VAT.RecId);

    if (idx && conpeek(KRE_ID_Tax_VATMarkCon, idx + 1 ) == NoYes::Yes)
        foundHere = true;

    if (KRE_ID_Tax_VATMark::exist(_KRE_ID_Tax_VAT.RecId)
        && !foundHere)
    {
         return #Image_JournalBlockInUse;
    }

    return 0;
}