Importing Secondary Dimension still no luck

Hi -
In my file I have 4 lines of Project dimension value
Document No. Project Dimension(shortcut dimension 3 code)
001 CAL1
002 CAL2
003 CAL3
004 CAL4

Below is the code

IF ProjectDim <> '' THEN BEGIN
IF DimVal.GET(GLSetup."Shortcut Dimension 3 Code",ProjectDim) THEN BEGIN
TempDimSetEntry.INIT;
TempDimSetEntry.VALIDATE("Dimension Code",DimVal."Dimension Code");
TempDimSetEntry.VALIDATE("Dimension Value Code",DimVal.Code);
TempDimSetEntry."Dimension Value ID" := DimVal."Dimension Value ID";
IF TempDimSetEntry.INSERT THEN;
GenJnlLine."Dimension Set ID" := DimManagment.GetDimensionSetID(TempDimSetEntry);
END;
END;

When my file gets imported its

Document No. Project Dimension(shortcut dimension 3 code)
001 CAL1
002 CAL1
003 CAL1
004 CAL1

All lines have CAL1 duplicating, not sure what am I doing wrong.

Any help, highly..highly appreciated.

Thanks
RJ.