method GetTimeOutWrapper

Description

Wrapper method for GetTimeOut.

Parameters

icGlobalSessionId	input	character
oiTimeOut	output	integer	Time out in minutes.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method Session.ApplicationLogin

program code (program1/pauthentication.p)

If oiReturnStatus = 0
Then Assign oiReturnStatus = -98.

Empty Temp-table tTimeOutSessionTokenCall.
Empty Temp-table tResponseTimeoutCall.

Create tTimeOutSessionTokenCall.
Assign tTimeOutSessionTokenCall.tcMfgSessionId = icGlobalSessionId.

<M-4 run GetTimeOutRemote
   (input  tTimeOutSessionTokenCall (tTimeoutSessionToken), 
    output tResponseTimeoutCall (tResponseTimeout), 
    output viFcReturnSuper (oiReturnStatus)) in PAuthentication>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.  

Find First tResponseTimeoutCall No-error.
If Not Available tResponseTimeoutCall Or
   tResponseTimeoutCall.tiTimeOut = ?
Then Do:
    /*in stead of giving an error we return 0*/
    /*Assign 
        vcMsg = Trim(#T-3'There is no tResponseTimeOutCall record returned from the GetTimeOutRemote prodecure or the TimeOut is empty.':255(8548)T-3#)
        oiReturnStatus = -1.
    <M-2 run SetMessage
       (input  vcMsg (icMessage), 
        input  '' (icArguments), 
        input  '' (icFieldName), 
        input  '' (icFieldValue), 
        input  'S':U (icType), 
        input  3 (iiSeverity), 
        input  '' (icRowid), 
        input  'BLF-351':U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in PAuthentication>
    Return.*/
    Assign oiTimeOut = 0. 
End. /*If Not Available tResponseUserCall Or
          tResponseUserCall.tcUserid = ''*/
          
Else Assign oiTimeOut = tResponseTimeoutCall.tiTimeOut.       

If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.