Added more core functionality

LSL2/STPROC/OI_WIZARD_SERVICES.txt

@@ -184,7 +184,6 @@ end service
 
 
 Service ValidateSession(OIWizardID)
-    
     ErrorMsg = ''
     If OIWizardID NE '' then
         OIWizardRec = Database_Services('ReadDataRow', 'OI_WIZARD', OIWizardID)
@@ -214,6 +213,32 @@ Service ValidateSession(OIWizardID)
     end
     
 end service
+/*
+This routine validates a users session without extending it. Used for OI Wizard sessions that are awaiting input.
+*/
+Service ValidateSessionIdle(OIWizardID)
+    ErrorMsg = ''
+    If OIWizardID NE '' then
+        OIWizardRec = Database_Services('ReadDataRow', 'OI_WIZARD', OIWizardID, True$, 0, False$)
+        If Error_Services('NoError') then
+            SessionTerminated = OIWizardRec<OI_WIZARD.TERMINATED$>
+            If SessionTerminated then
+                ErrorMsg = 'Expired session.'
+            end
+        end else
+            ErrorMsg = Error_Services('GetMessage')
+        end
+    end else
+        ErrorMsg = 'Error in ':Service:' service. Null OIWizardID passed in.'
+    end
+    
+    If ErrorMsg EQ '' then
+        Response = True$
+    end else
+        Error_Services('Add', ErrorMsg)
+        Response = False$
+    end
+end service
 
 
 Service TerminateSession(OIWizardID)
@@ -452,3 +477,4 @@ end service
 
 
 
+