ETIKET ;ETIKETTEN ; [ 03/16/95  11:15 AM ]
 ;
PRINT(Global,Ref,Format,PapTyp,Aantal) 
 New FL,Next,R,O,Len
 Set:'$G(Aantal) Aantal=1
 Set:'$L($G(PapTyp)) PapTyp="E1"
 Do INIT^vhPRINTER(PapTyp,"","P") Quit:'$D(Print)
 Use $I:(::::4096) Set FP=Print("LEN") Write @F32
 Set FL(1)=$G(^LD("L",Format))
 If FL(1)="" Set FL(1)="Nog in te vullen"
 Set FL(2)=""
 Set Next=""
 For  Set Next=$O(@Ref@(Next)) Quit:Next=""  Do
 .Set R=@Ref@(Next),Nummer=$P(R,D,2)
 .Do @("FETCH"_Global_"^UTILI(Nummer,""FL(3)"")")
 .Set FL(3)=R
 .Do FL^PROC
 .Set Len=0,O=""
 .For  Quit:R=""  Do
 ..Set P=$P(R,"#@"),$P(R,"#@")="",$E(R,1,2)=""
 ..If $E(R)="@" Set $E(R)="" Quit:P=""
 ..Set O=O_D_P Set:$L(P)>Len Len=$L(P)
 .Set $E(O)=""
 .For Aantal=1:1:Aantal Do
 ..If $E(PapTyp)="O" For I=1:1:Print("TOP") Write !
 ..If $E(PapTyp)="E" For I=1:1:Print("MAXLIJN")-$L(O,D)\2+Print("TOP") Write !
 ..For I=1:1:$L(O,D) W !,$J("",Print("LMARG")+(Print("KOL")-Print("LMARG")-Len\2)),$P(O,D,I)
 ..Write #
 Do CLOSE^vhPRINTER
 Quit