dcfax3 ;[ 12/05/95  1:07 PM ]
 ;
WRAP(Len,FaxId,Ref) ;WRAPPEN van een fax in lijstvorm
 New Label,sWrap,Cnt
 Set Cnt=$G(@Ref,0)
 For Label="Tav","Betreft","Datum","Van","Pages" Do
 .Set Cnt=Cnt+1,@Ref@(Cnt)=$J(Label,20)_" | "_$G(^FAX("D",FaxId,Label))
 If $G(^FAX("D",FaxId,"TermUser")),$G(^FAX("D",FaxId,"VanUser"),"*")'=$G(^FAX("D",FaxId,"TermUser"),"*"),$D(^vhUSER("D",^FAX("D",FaxId,"TermUser"))) Set Cnt=Cnt+1,@Ref@(Cnt)=$J("Uitvoerder",20)_" | "_$P(^vhUSER("D",^FAX("D",FaxId,"TermUser")),D,5)
 Set Cnt=Cnt+1,@Ref@(Cnt)="&S"
 Do GETWRAP^vhBIGEDIT($NA(^FAX("D",FaxId,"Tekst")),76,.sWrap,"G","~","")
 For I=1:1:$O(sWrap(""),-1) Set Cnt=Cnt+1,@Ref@(Cnt)=$J("",$P(sWrap(I),"`",4))_$P(sWrap(I),"`",5) 
 Quit
 ;