A simple solution is to move
JavaObject1.InitializeContext and
inline java to Main module, and define public JavaObject1 in Process_Globals.
In B4XPages module you only do this as below
B4X:
Dim jo As JavaObject
jo=Main.JavaObject1
Dim Ignoring As Boolean=jo.RunMethod("isIgnoringBatteryOptimizations", Null)
If Ignoring=False Then
Msgbox("Please confirm the following form to exclude the app from battery optimization.", "Battery optimization")
jo.RunMethod("ShowPermissionDialog", Null)
End If