FUNCTION _NEXTCAL
    PARAMETERS LC_DATE, LC_MANUAL
    * ASSUMES GAGEM AND GAGEMAST POINTED PRIOR TO CALL AS WRITTEN
    SELE GAGEM
    IF FREQ <> 0
        LC_MONTH = MONTH(LC_DATE)
        LC_YEAR = YEAR(LC_DATE)
        NC_MONTH = LC_MONTH + FREQ

        IF NC_MONTH/12 = INT(NC_MONTH/12)
            NC_YEAR = INT(NC_MONTH/12)-1
        ELSE
            NC_YEAR = INT(NC_MONTH/12)
        ENDIF
        NC_MONTH = NC_MONTH - NC_YEAR*12
        NC_MONTHS = ALLTRIM(STR(NC_MONTH))
        IF LEN(NC_MONTHS) = 1
            NC_MONTHS = "0"+NC_MONTHS
        ENDIF
        NC_DATES = NC_MONTHS+"/01/"+ALLTRIM(STR(LC_YEAR+NC_YEAR,4))
        NC_DATE = CTOD(NC_DATES)

        NC_ANS = GET_END(NC_DATE)

        IF ! DUE = NC_ANS OR ! DUE = GAGEMAST.DUE
            T_AUDT = _AUDT("DUE",DUE,NC_ANS)
            REPL DUE WITH NC_ANS, MDUE WITH NC_MONTH, AUDT WITH T_AUDT + AUDT
            SELE GAGEMAST
            REPL DUE WITH GAGEM.DUE, MDUE WITH GAGEM.MDUE, AUDT WITH GAGEM.AUDT
        ENDIF
    ELSE
        NC_ANS = DUE
    ENDIF

    RETURN NC_ANS

ENDFUNC