Is there are better way than doing this?
:..IF
:If D=1
:GetCalc("vS01",Y1)
:End
:If D=2
:GetCalc("vS02",Y1)
:End
:If D=3
:GetCalc("vS03",Y1)
:End
:If D=4
:GetCalc("vS04",Y1)
:End
:If D=5
:GetCalc("vS05",Y1)
:End
:If D=6
:GetCalc("vS06",Y1)
:End
:If D=7
:GetCalc("vS07",Y1)
:End
:If D=8
:GetCalc("vS08",Y1)
:End
:If D=9
:GetCalc("vS09",Y1)
:End
:If D=10
:GetCalc("vS10",Y1)
:End
:If D=11
:GetCalc("vS11",Y1)
:End
:If D=12
:GetCalc("vS12",Y1)
:End
:If D=13
:GetCalc("vS13",Y1)
:End
:If D=14
:GetCalc("vS14",Y1)
:End
:If D=15
:GetCalc("vS15",Y1)
:End
:If D=16
:GetCalc("vS16",Y1)
:End
:If D=17
:GetCalc("vS17",Y1)
:End
:If D=18
:GetCalc("vS18",Y1)
:End
:If D=19
:GetCalc("vS19",Y1)
:End
:If D=20
:GetCalc("vS20",Y1)
:End
:If D=21
:GetCalc("vS21",Y1)
:End
:If D=22
:GetCalc("vS22",Y1)
:End
:If D=23
:GetCalc("vS23",Y1)
:End
:If D=24
:GetCalc("vS24",Y1)
:End
:If D=25
:GetCalc("vS25",Y1)
:End
:If D=26
:GetCalc("vS26",Y1)
:End
:If D=27
:GetCalc("vS27",Y1)
:End
:If D=28
:GetCalc("vS28",Y1)
:End
:If D=29
:GetCalc("vS29",Y1)
:End
:If D=30
:GetCalc("vS30",Y1)
:End
:If D=31
:GetCalc("vS31",Y1)
:End
:If D=32
:GetCalc("vS32",Y1)
:End
:If D=33
:GetCalc("vS33",Y1)
:End
:If D=34
:GetCalc("vS34",Y1)
:End
:If D=35
:GetCalc("vS35",Y1)
:End
:If D=36
:GetCalc("vS36",Y1)
:End
:If D=37
:GetCalc("vS37",Y1)
:End
:If D=38
:GetCalc("vS38",Y1)
:End
:If D=39
:GetCalc("vS39",Y1)
:End
:If D=40
:GetCalc("vS40",Y1)
:End
:If D=41
:GetCalc("vS41",Y1)
:End
:If D=42
:GetCalc("vS42",Y1)
:End
:If D=43
:GetCalc("vS43",Y1)
:End
:If D=44
:GetCalc("vS44",Y1)
:End
:If D=45
:GetCalc("vS45",Y1)
:End
:If D=46
:GetCalc("vS46",Y1)
:End
:If D=47
:GetCalc("vS47",Y1)
:End
:If D=48
:GetCalc("vS48",Y1)
:End
:If D=49
:GetCalc("vS49",Y1)
:End
:If D=50
:GetCalc("vS50",Y1)
:End