ATKJOB5 ; Afstand-toegang voor klanten [ 05/31/2002   9:21 AM ]
 Quit
 ;
LESELECT(JobNr,KLNr,UserName,Le) 
 New R,DataRef,TLe,Count
 Quit:'$G(^ATK(0,0,"A"))
 Set DataRef="LESEL"
 If Le?4N,$D(^KL1(Le)) Do  Quit
 .Set Le=^KL1(Le),R=^KLE(Le,0)
 .Do:$$CHKSUPPL(R,KLNr,UserName) PUTHULP^ATKJOB(DataRef,R) Do PUTHULP^ATKJOB(DataRef)
 Set TLe=$S(Le="":0,1:Le)
 For  Set TLe=$O(^KLE(TLe)) Quit:TLe=""!($E(TLe,1,$L(Le))'=Le)  Do
 .Set R=^KLE(TLe,0)
 .Do:$$CHKSUPPL(R,KLNr,UserName) PUTHULP^ATKJOB(DataRef,R)
 Do PUTHULP^ATKJOB(DataRef)
 Quit
 ;
CHKSUPPL(Value,KLNr,UserName) 
 New D,U,Q,Check,LEVNr
 Do INIT^ATKJOB
 Set Check=1
 If KLNr Do
 .If '$D(^ATK(KLNr,UserName,"L")),'$D(^ATK(KLNr,0,"L")) Quit
 .Set LEVNr=$P(Value,D)
 .Quit:$D(^ATK(KLNr,UserName,"L","L",LEVNr))
 .If '$D(^ATK(KLNr,UserName,"L","L")),$D(^ATK(KLNr,0,"L","L",LEVNr)) Quit
 .Set Check=0
 Quit Check
 ;