pre cutover push

LSL2/STPROC/COMM_LSL_USERS.txt

@@ -66,12 +66,11 @@ obj_Appwindow('Create',@WINDOW)
 
 AdminUser = XLATE('LSL_USERS',@USER4,LSL_USERS_ADMIN_USER$,'X')
 
-IF NOT(AdminUser) THEN
+IF NOT(AdminUser) AND NOT(Memberof(@User4, 'BUSINESS_ADMINS')) THEN
 	ErrMsg('Improper security to enter Security Groups')
 	End_Window(@WINDOW)
 	RETURN
 END
-
 //Populate Classification Combo Box
 ClassOptions = Database_Services('ReadDataRow', 'APP_INFO', 'USER_CLASSES')
 Set_Property(@Window : '.CMB_USER_CLASS', 'LIST', ClassOptions)