can it be further Optimize

@RELATIVE(Boston

Summary

can it be further Optimize

Content

FIX(2018,budget,@RELATIVE(Boston,0),@REMOVE(@LIST(@RELATIVE(Sales,0),@UDA("ACCOUNT",Sales)),@UDA("ACCOUNT","CALC")))

    FIX(@RELATIVE("Ad",0))

        FIX("M1":"M12")

            CLEARDATA "YearToDay";

        ENDFIX

    ENDFIX

ENDFIX

FIX(2018,budget,@RELATIVE(Boston,0),@REMOVE(@LIST(@RELATIVE(Sales,0),@UDA("ACCOUNT",Sales)),@UDA("ACCOUNT","CALC")))

    FIX(@RELATIVE("Ad",0))     

        FIX("M1":"M12")

            "YearToDay"(

                @CALCMODE(CELL);

                IF(@ISMBR("M1") OR @ISACCTYPE ("Last"))

                    "YearToDay" = "MonthToDay";

                ELSE

                    "YearToDay" = "MonthToDay" + @PRIOR("YearToDay");

                ENDIF

            )

        ENDFIX

    ENDFIX  

ENDFIX