vhEMAIL3 ;EMail [ 06/12/97  10:05 AM ]
 ;
BLDIAM 
 Kill ^PERS("IAM")
 Do BLDKIAM,BLDLIAM
 Quit
 ;
BLDKIAM 
 New KlantInd,KLNr,PersNr
 Set (KlantInd,PersNr)=0
 For  Set KlantInd=$O(@("^"_Q_"KL(KlantInd)")) Quit:KlantInd=""  Do
 .Set R=@("^"_Q_"KL(KlantInd,0)"),KLNr=$P(R,D)
 .Set R=@("^"_Q_"KL(KlantInd,2)"),EMAdres=$P(R,D,19)
 .Quit:EMAdres'["@"
 .Set DomName=$P(EMAdres,"@",2,99),UserName=$P(EMAdres,"@")
 .Set ^PERS("IAM",DomName,UserName,"K",KLNr,PersNr)=""
 Quit
 ;
BLDLIAM 
 New LeverInd,LEVNr,PersNr
 Set (LeverInd,PersNr)=0
 For  Set LeverInd=$O(@("^"_"LE(LeverInd)")) Quit:LeverInd=""  Do
 .Set R=@("^"_"LE(LeverInd,0)"),LEVNr=$P(R,D)
 .Set R=@("^"_"LE(LeverInd,2)"),EMAdres=$P(R,D,19)
 .Quit:EMAdres'["@"
 .Set DomName=$P(EMAdres,"@",2,99),UserName=$P(EMAdres,"@")
 .Set ^PERS("IAM",DomName,UserName,"L",KLNr,PersNr)=""
 Quit
 ;