ATKFAX ; Afstand-toegang voor klanten [ 05/31/2002  9:32 AM ]
 Quit
 ;
FAX(JobNr,KLNr,ExtPers,ToFax,Taal,List,NoPrice,LvhKlRef) 
 New (JobNr,KLNr,ExtPers,ToFax,Taal,List,NoPrice,LvhKlRef)
 Set NoPrice=$G(NoPrice),LvhKlRef=$G(LvhKlRef)
 Do
 .New JobNr,KLNr,ExtPers,ToFax,Taal,List,NoPrice,LvhKlRef
 .Do INIT^vhTERMINA
 Do INIT
 Set DataRef=$$LDLOC^ATK(List)
 Merge ^HULP(%J,"FAXPAR",List)=^HULP(JobNr,"FAXPAR",List)
 Merge ^HULP(%J,DataRef)=^HULP(JobNr,DataRef)
 If List="Q" Merge ^HULP(%J,"OFFINPUT")=^HULP(JobNr,"OFFINPUT")
 Do PUTHULP^ATKJOB("FAX")
 Set FaxPar=""
 For  Set FaxPar=$O(^HULP(%J,"FAXPAR",List,FaxPar)) Quit:FaxPar=""  Set @FaxPar=^HULP(%J,"FAXPAR",List,FaxPar)
 For  Set Last=$O(^HULP(%J,DataRef,""),-1) Quit:Last=""  Quit:Last?.N  Kill ^HULP(%J,DataRef,Last)
 Set ^HULP(%J,"KLINIT","P")=NoPrice
 Do LDINIT^ATK(List,Taal)
 Set R=@DL(1)@(1) Set:$E(R,$L(R))=")" R=$E(R,1,$L(R)-1)
 Set:$E(R,$L(R))'="," R=R_"," Set R=R_"Next)" Set @DL(1)@(1)=R
 Set Next="",FL(1)=@DL(1)@(2),FL(2)=""
 For  Set Next=$O(@@DL(1)@(1),-1) Quit:'Next  Do
 .Set FL(3)=@@DL(1)@(1) Set:$L($G(@DL(1)@(12))) FL(5)=@DL(1)@(12)
 .Do FL^PROC
 .Set:$O(@@DL(1)@(1))'="" R=R_"~"
 .Set Next=Next+1,@@DL(1)@(1)=R,Next=Next-1
 Set Next=1,@@DL(1)@(1)="~ŞB"_@DL(1)@(8)_"Şb~"
 Set KlantInd=^KK1(KLNr),R=^KKL(KlantInd,0),ToName=$P(R,D,2),Aanspr=$P(R,D,4)
 Set:$L(Aanspr) ToName=Aanspr_" "_ToName
 Set Subject=$$GETTXT^ATK("ATK","VHISIE",Taal)_" - "_$$GETTXT^ATK("ATKFAX",List,Taal)
 Set DataRef="^HULP("_%J_","""_DataRef_""""
 If List="E" Set DataRef=DataRef_","_IsMaand
 Do EXTERN^vhFAX("",Subject,ExtPers,ToFax,ToName,Taal,DataRef)
 Kill ^HULP(%J)
 Quit
 ;
ISMAAND() 
 Quit $$EXTDATE^vhDTyp($G(IsMaand),"DM")
 ;
INIT 
 Set D="\",U=";",Q="K"
 Set %J=$$%J^vhRtn1()
 Quit
 ;