Sub configureNextService(notifyFor As String, inTime As Double)
Dim eventAlarmTime As Long
eventAlarmTime = getTimeInTicks(inTime)
Wait For (GetScheduleExactAlarmPermission) Complete (HasPermission As Boolean)
If HasPermission Then
Log("Permission Granted for Alarm")
' StartServiceAtExact(alarmCallService, eventAlarmTime,True)
StartReceiverAt(alarmCallReceiver, eventAlarmTime, True)
StartReceiver(widgetReceiverModule)
Log("Set Alarm Receiver for " & notifyFor & " at " & inTime & " as ticks..." & eventAlarmTime)
comCode.writeToLog("Starter> set next alarm receiver for " & inTime & " on " & comCode.makeTimeDateStamp)
gblStrNextDongTime = NumberFormat2(inTime,2,2,2,False)
Else
Log("no SCHEDULE_EXACT_ALARM permission")
End If