ATKSUPPL ; Afstand-toegang voor klanten [ 05/31/2002   9:17 AM ]
 ;
SELECT(UserName,AutoList) 
 New LevRec,LEVNr,Le,DL,LESEL,Prompt,Comment1,Comment2,zb
 Do ADD^vhScherm(21,24)
 Do INIT^PROC("ATKSUPPL","LESEL")
 Set LESEL(8)=$$GETTXT^ATK("ATKSUPPL","SELECT",Taal)
 Set AutoList=$G(AutoList),LEVNr=""
SEL2 Kill ^HULP(%J,"LESEL")
 If AutoList Set (Le,zb)=""
 Else  Do
 .Set Prompt=$$GETTXT^ATK("ATKSUPPL","LEVERANC",Taal)_" : "
 .Set Comment1=$$GETTXT^ATK("ATKSUPPL","INGAVE",Taal),Comment2=$$GETTXT^ATK("ATKSUPPL","EXIT",Taal)
 .Set Le=$$ASK^vhINP(Prompt,20,"",Comment1,Comment2,"","",ITimeOut)
 Set:$G(zb)=-1 Le="-",zb=""
 Goto SEL2:zb
 Quit:Le="-"!(Le=".") Le
 Set Le=$$UPTRIMAN^vhRtn1(Le)
 Job LESELECT^ATKJOB(%J,KLNr,UserName,Le)::LTimeOut
 If $T Set Time=$P($H,",",2) Do
 .For  Quit:$P($H,",",2)-Time>LTimeOut!($O(^HULP(%J,"LESEL",""),-1)>LESEL(4))!$G(^HULP(%J,"LESEL"))
 ..If $P($H,",",2)-Time>LTimeOut Goto TIMEOUT^ATK
SEL3 If $O(^HULP(%J,"LESEL",1))="" Set LevRec=$G(^HULP(%J,"LESEL",1)),LEVNr=$P(LevRec,D)
 Goto EXIT:LEVNr
 Do WL^PROC
 For  Do  Quit:R="-"!(R="ENTER")
 .Set DL(3)=-ITimeOut
 .Do SL^ATK
 .Kill DL(3)
 .If $G(zb)="",$G(R)="" Set R="-"
 If $D(^HULP(%J,"LESEL")) For  Quit:$G(^HULP(%J,"LESEL"))
 Set:R="-" LevRec=R Set:R="ENTER" LevRec=$G(^HULP(%J,"LESEL",LESEL(6))),LEVNr=$P(LevRec,D)
 Goto SEL2:'LEVNr&'AutoList,EXIT
EXIT Kill ^HULP(%J,"LESEL")
 Quit $P(LevRec,D,1,2)
 ;