ATKLOGOF ; Afstand-toegang voor klanten [ 05/31/2002   9:17 AM ]
 ;
LOGOFF(InError) 
 New Last
 Kill:$G(InError) ^HULP(%J,"NEWKLREF")
 Set Last=$O(^HULP(%J,"KLREF",9999),-1)
 If Last'=$G(^HULP(%J,"KLREF")) Do
 .For  Set Last=$O(^HULP(%J,"KLREF",9999),-1) Hang 1 Quit:Last=$O(^HULP(%J,"KLREF",9999),-1)
 Job LOGOFF^ATKJOB(%J,KLNr,UserName,WachtW,$G(Screens))::LTimeOut
 If $T Set Time=$P($H,",",2) Do
 .For  Quit:($P($H,",",2)-Time)>LTimeOut!$D(^HULP(%J,"LOGOFF"))
 .If $P($H,",",2)-Time>LTimeOut Goto TIMEOUT^ATK
 Quit
 ;