DCINIT ;AFDRUKKEN DOKUMENTEN (initialisatie) [ 12/15/2003  10:21 AM ]
 ;
 ; Titel
TITEL 
 New Text,K
 Set Text=$$DOCUMENT^DCPRINT(Document)
 Set K="AFDRUKKEN "_Text_" "_QN_" ",FP=203+$L(K) Write @F11,@F1,@F,@F5
 Set FP=202 Write @F,@F4,K,@F5
 Quit
 ;
 ; Ophalen Van Hoecke gegevens
VH Set R=0 For I=1:1 Quit:'$D(^KBA(99,I))  If $L(^KBA(99,I)) Set R=R+1,VH(R)=^KBA(99,I)
 Quit
 ;
 ; Initialisatie
INIT(LD,Locals,CleanBak) 
 New I
 Do:$L($G(LD))
 .Set R=^LD("L",LD)
 .For I=1:1:$L(Locals,U) Xecute "Set "_$P(Locals,U,I)_"(2)=R"
 .Set R=^LD("L",LD,"H")
 .For I=1:1:$L(Locals,U) Xecute "Set "_$P(Locals,U,I)_"(8)=R"
 For I=1:1:$L(Locals,U) Xecute "Set "_$P(Locals,U,I)_"(3)=7"
 For I=1:1:$L(Locals,U) Xecute "Set "_$P(Locals,U,I)_"(4)=12"
 Set FPKlLev="1\1"
 Do:$D(KLANT)
 .For I=1:1 Quit:$P($P(KLANT(2),D,I),U)=8  Do  If $P(KLANT(2),D,I)="" Set $P(FPKlLev,D)=435
 ..Set $P(FPKlLev,D)=$P(FPKlLev,D)+$P($P(KLANT(2),D,I),U,4)+$L($P($P(KLANT(2),D,I),U,6))
 .For I=1:1 Quit:$P($P(KLANT(2),D,I),U)=9  Do  If $P(KLANT(2),D,I)="" Set $P(FPKlLev,D,2)=463
 ..Set $P(FPKlLev,D,2)=$P(FPKlLev,D,2)+$P($P(KLANT(2),D,I),U,4)+$L($P($P(KLANT(2),D,I),U,6))
 Do:$D(LEVER)
 .For I=1:1 Quit:$P($P(LEVER(2),D,I),U)=8  Do  If $P(LEVER(2),D,I)="" Set $P(FPKlLev,D)=435
 ..Set $P(FPKlLev,D)=$P(FPKlLev,D)+$P($P(LEVER(2),D,I),U,4)+$L($P($P(LEVER(2),D,I),U,6))
 Do:$D(BATCH)
 .Set BATCH(2)="10;C;L;1;;;;\1;DK;L;9;;|\2;T;C;7;;|\3;C;C;3;;| \5;C;L;3;; | \6;C;L;40;;| \7;C;L;8"
 .Set (BATCH(6),BATCH(7))=1,BATCH(8)=" Datum    | Tijd  | S | Gbr | Batch                                   | Ref"
 Do:$G(CleanBak)
 .New @DOCNr,Next
 .Set Next=$P(Bakje,"@DOCNr")_"@DOCNr)",@DOCNr=""
 .For  Set @DOCNr=$O(@Next) Quit:@DOCNr=""  Set R=@Bakje If $P(R,D,4)<+$H Kill @Bakje
 Kill ^HULP($J)
 Quit
 ;
 ; initialisatie van de printlijnen
LINIT(Document) 
 New I,J,K,R
 If Document="H" Do
 .Set L("T","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("T","F")=$$LINE^vhRtn1("F",79,"1;79")
 .Set L("T","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;17;28;38;49;65;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;17;28;38;49;65;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;17;28;38;49;65;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;17;28;38;49;65;79")
 .Set L("B","T","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);17;28;38;49;65;79$$C^vhRtn1(6)")
 .Set L("B","T","L")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);17$$C^vhRtn1(9);28;38$$C^vhRtn1(9);49;65;79$$C^vhRtn1(6)")
 .Set L("A","B")=$$LINE^vhRtn1("B",79,"1;28;49;65;79")
 .Set L("A","S")=$$LINE^vhRtn1("S",79,"1$$C^vhRtn1(10);2:1:27$C(32);28$$C^vhRtn1(7);49$$C^vhRtn1(11);65$$C^vhRtn1(11);79$$C^vhRtn1(6)")
 .Set L("A","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);17$$C^vhRtn1(8);28$$C^vhRtn1(11);38$$C^vhRtn1(8);49$$C^vhRtn1(11);65$$C^vhRtn1(11);79$$C^vhRtn1(6)")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;17$$C^vhRtn1(9);28;38$$C^vhRtn1(9);49;65;79")
 If Document="F"!(Document="V") Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;43;52;65;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;43;52;65;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;43;52;65;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;43;52;65;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);43;52;65;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);35;79$$C^vhRtn1(6)")
 .Set L("A","B")=$$LINE^vhRtn1("B",79,"1;35;79")
 .Set L("A","S")=$$LINE^vhRtn1("S",79,"1;35;79")
 .Set L("A","SS")=$$LINE^vhRtn1("S",79,"1$$C^vhRtn1(10);2:1:34$C(32);35$$C^vhRtn1(7);79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;35;79")
 .Set L("A","FV")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);29;79$$C^vhRtn1(6)")
 .Set L("A","BV")=$$LINE^vhRtn1("B",79,"1;29;79")
 .Set L("A","LV")=$$LINE^vhRtn1("L",79,"1;29;79")
 If Document="L" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;49;64;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;49;64;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;49;64;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;49;64;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);49;64;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("R","B")=$$LINE^vhRtn1("B",79,"1;29;49;64;79")
 .Set L("R","S")=$$LINE^vhRtn1("S",79,"1;29;49;64;79")
 .Set L("R","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);29;49$$C^vhRtn1(11);64$$C^vhRtn1(11);79$$C^vhRtn1(6)")
 .Set L("R","L")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);29;49;64;79$$C^vhRtn1(6)")
 If Document="S" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;69;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;69;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;69;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;69;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);69;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("R","B")=$$LINE^vhRtn1("B",79,"1;29;49;59;69;79")
 .Set L("R","S")=$$LINE^vhRtn1("S",79,"1;29;49;59;69;79")
 .Set L("R","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);29;49;59;69$$C^vhRtn1(11);79$$C^vhRtn1(6)")
 .Set L("R","L")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);29;49;59;69;79$$C^vhRtn1(6)")
 If Document="D" Do
 .Set L("T","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("T","F")=$$LINE^vhRtn1("F",79,"1;79")
 .Set L("T","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;31;45;56;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;31;45;56;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;31;45;56;79")
 .Set L("B","FV")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);31;45;56;79$$C^vhRtn1(6)")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;31;45;56;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);69;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;31;45;56;79")
 .Set L("R","B")=$$LINE^vhRtn1("B",79,"1;29;49;59;69;79")
 .Set L("R","S")=$$LINE^vhRtn1("S",79,"1;29;49;59;69;79")
 .Set L("R","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);29;31$$C^vhRtn1(8);45$$C^vhRtn1(8);49;56$$C^vhRtn1(8);59;69;79$$C^vhRtn1(6)")
 .Set L("R","L")=$$LINE^vhRtn1("L",79,"1;29;49;59;69;79")
 If Document="d" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;31;41;69;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;31;41;69;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;31;41;69;79")
 .Set L("B","FV")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);31;41;69;79$$C^vhRtn1(6)")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;31;41;69;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);31;41;69;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("R","B")=$$LINE^vhRtn1("B",79,"1;29;49;59;69;79")
 .Set L("R","S")=$$LINE^vhRtn1("S",79,"1;29;49;59;69;79")
 .Set L("R","F")=$$LINE^vhRtn1("F",79,"1$$C^vhRtn1(7);29;31$$C^vhRtn1(8);41$$C^vhRtn1(8);49;69$$C^vhRtn1(8);59;69$$C^vhRtn1(11);79$$C^vhRtn1(6)")
 .Set L("R","L")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);29;49;59;69;79$$C^vhRtn1(6)")
 If Document="M" Do  Quit
 .Set R="",$P(R," ",80)=" " For I=1,17,45,55,80 Set $E(R,I)="|"
 .Set L("M","B")=R
 .Set R="",$P(R,"-",80)="-" For I=1,17,45,55,80 Set $E(R,I)="|"
 .Set L("M","S")=R
 .Set L("M","F")=R
 .Set L("M","L")=R
 If Document="G" Do  Quit
 .Set R="",$P(R," ",80)=" " For I=1,11,41,57,66,75,80 Set $E(R,I)="|"
 .Set L("G","B")=R
 .Set R="",$P(R,"-",80)="-" For I=1,11,41,57,66,75,80 Set $E(R,I)="|"
 .Set L("G","S")=R
 .Set L("G","F")=R
 .Set L("G","L")=R
 If Document="O" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;49;58;71;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;49;58;71;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;49;58;71;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;49;58;71;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);49;58;71;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 If Document="A" Do
 .If 'IsTypDet Do  Quit
 ..Set L("B","B")=$$LINE^vhRtn1("B",79,"1;44;53;62;79")
 ..Set L("B","S")=$$LINE^vhRtn1("S",79,"1;44;53;62;79")
 ..Set L("B","F")=$$LINE^vhRtn1("F",79,"1;44;53;62;79")
 ..Set L("B","L")=$$LINE^vhRtn1("L",79,"1;44;53;62;79")
 ..Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);44;53;62;79$$C^vhRtn1(6)")
 ..Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 ..Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .If "CAK"[OffTyp Do
 ..Set L("V","S")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);79$$C^vhRtn1(6)")
 .If OffTyp="C" Do  Quit
 ..Set L("B","B")=$$LINE^vhRtn1("B",79,"1;43;52;65;72;79")
 ..Set L("B","S")=$$LINE^vhRtn1("S",79,"1;43;52;65;72;79")
 ..Set L("B","F")=$$LINE^vhRtn1("F",79,"1;43;52;65;72;79")
 ..Set L("B","L")=$$LINE^vhRtn1("L",79,"1;43;52;65;72;79")
 ..Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);43;52;65;72;79$$C^vhRtn1(6)")
 ..Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 ..Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;43;52;65;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;43;52;65;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;43;52;65;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;43;52;65;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);43;52;65;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 If Document="P" Do
 .Set L("T","B")=$$LINE^vhRtn1("B",81,"1;81")
 .Set L("T","F")=$$LINE^vhRtn1("F",81,"1;81")
 .Set L("T","L")=$$LINE^vhRtn1("L",81,"1;81")
 .If '$G(Prefs("Verpak")) Do
 ..Set L("B","B")=$$LINE^vhRtn1("B",81,"1;45;63;81")
 ..Set L("B","S")=$$LINE^vhRtn1("S",81,"1;45;63;81")
 ..Set L("B","F")=$$LINE^vhRtn1("F",81,"1;45;63;81")
 ..Set L("B","L")=$$LINE^vhRtn1("L",81,"1;45;63;81")
 ..Set L("B","T","F")=$$LINE^vhRtn1("F",81,"1$$C^vhRtn1(7);45;63;81$$C^vhRtn1(6)")
 ..Set L("V","F")=$$LINE^vhRtn1("L",81,"1$$C^vhRtn1(7);45;63;81$$C^vhRtn1(6)")
 .If $G(Prefs("Verpak")) Do
 ..Set L("B","B")=$$LINE^vhRtn1("B",81,"1;45;63;71;81")
 ..Set L("B","S")=$$LINE^vhRtn1("S",81,"1;45;63;71;81")
 ..Set L("B","F")=$$LINE^vhRtn1("F",81,"1;45;63;71;81")
 ..Set L("B","L")=$$LINE^vhRtn1("L",81,"1;45;63;71;81")
 ..Set L("B","T","F")=$$LINE^vhRtn1("F",81,"1$$C^vhRtn1(7);45;63;71;81$$C^vhRtn1(6)")
 ..Set L("V","F")=$$LINE^vhRtn1("L",81,"1$$C^vhRtn1(7);45;63;71;81$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",81,"1;81")
 .Set L("A","L")=$$LINE^vhRtn1("L",81,"1;81")
 If Document="T" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;49;58;71;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;49;58;71;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;49;58;71;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;49;58;71;79")
 .Set L("V","F")=$$LINE^vhRtn1("L",79,"1$$C^vhRtn1(7);49;58;71;79$$C^vhRtn1(6)")
 .Set L("V","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("A","L")=$$LINE^vhRtn1("L",79,"1;79")
 .Set L("A","H")=$$LINE^vhRtn1("L",79,"1;49;58;71;79")
 .Set L("D","B")=$$LINE^vhRtn1("B",79,"1;70;79")
 .Set L("D","S")=$$LINE^vhRtn1("S",79,"1;70;79")
 .Set L("D","F")=$$LINE^vhRtn1("F",79,"1;70;79")
 .Set L("D","L")=$$LINE^vhRtn1("L",79,"1;70;79")
 .Set L("D","K")=$$LINE^vhRtn1("B",79,"1;15;41;70;79")
 If Document="TBX" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",68,"1;28;37;43;49;55;62;68")
 .Set L("B","S")=$$LINE^vhRtn1("S",68,"1;28;37;43;49;55;62;68")
 .Set L("B","F")=$$LINE^vhRtn1("F",68,"1;28;37;43;49;55;62;68")
 .Set L("B","L")=$$LINE^vhRtn1("L",68,"1;28;37;43;49;55;62;68")
 If Document="X"!(Document="x") Do  Quit
 .Set L("B","B")=$$LINE^vhRtn1("B",90,"1;11;39;47;56;66;74;90")
 .Set L("B","S")=$$LINE^vhRtn1("S",90,"1;11;39;47;56;66;74;90")
 .Set L("B","F")=$$LINE^vhRtn1("F",90,"1;11;39;47;56;66;74;90")
 .Set L("B","L")=$$LINE^vhRtn1("L",90,"1;11;39;47;56;66;74;90")
 .Set L("B","K","B")=$$LINE^vhRtn1("B",90,"1;11;39;90")
 .Set L("B","K","F")=$$LINE^vhRtn1("S",90,"1;11;39$$C^vhRtn1(7);47$$C^vhRtn1(8);56$$C^vhRtn1(8);73$$C^vhRtn1(8);90")
 .Set $E(L("B","K","F"),1,38)=$E(L("B","B"),1,38)
 .Set L("B","K","L")=$$LINE^vhRtn1("S",90,"1;11;39;47$$C^vhRtn1(5);56$$C^vhRtn1(5);73$$C^vhRtn1(5);90")
 .Set L("F","F")=$$LINE^vhRtn1("S",90,"1;11;39;47;56;66$$C^vhRtn1(8);74$$C^vhRtn1(8);90")
 .Set L("F","B")=$$LINE^vhRtn1("B",90,"1;11;39;47;56;90")
 .Set L("F","L")=$$LINE^vhRtn1("L",90,"1;11;39;47;56;90")
 .Quit:Document="X"
 .For I="B","S","F","L" For J=66,73,74 Set $E(L("B",I),J)=$E(L("B",I),J+1)
 .For J=66,73,74 Set $E(L("F","F"),J)=$E(L("F","F"),J+1)
 If Document="E" Do  Quit
 .Set L("T","B")=$$LINE^vhRtn1("B",92,"1;92")
 .Set L("T","F")=$$LINE^vhRtn1("F",92,"1;92")
 .Set L("B","B")=$$LINE^vhRtn1("B",92,"1;29;40;50;65;92")
 .Set L("B","S")=$$LINE^vhRtn1("S",92,"1;29;40;50;65;92")
 .Set L("B","F")=$$LINE^vhRtn1("F",92,"1;29;40;50;65;92")
 .Set L("B","L")=$$LINE^vhRtn1("L",92,"1;29;40;50;65;92")
 .Set L("B","K","B")=$$LINE^vhRtn1("B",92,"1;29;92")
 .Set L("B","K","F")=$$LINE^vhRtn1("S",92,"1;29$$C^vhRtn1(7);40$$C^vhRtn1(8);50$$C^vhRtn1(8);65$$C^vhRtn1(8);92")
 .Set $E(L("B","K","F"),1,28)=$E(L("B","B"),1,28)
 .Set L("B","K","L")=$$LINE^vhRtn1("S",92,"1;29;40$$C^vhRtn1(5);50$$C^vhRtn1(5);65$$C^vhRtn1(5);92")
 .Set L("A","B")=$$LINE^vhRtn1("B",92,"1;29;40;50;92")
 .Set L("A","F")=$$LINE^vhRtn1("S",92,"1;29;40;50;65$$C^vhRtn1(8);92")
 .Set L("A","L")=$$LINE^vhRtn1("L",92,"1;29;40;50;92")
 If Document="e" Do  Quit
 .Set L("T","B")=$$LINE^vhRtn1("B",92,"1;92")
 .Set L("T","F")=$$LINE^vhRtn1("F",92,"1;92")
 .Set L("B","B")=$$LINE^vhRtn1("B",92,"1;29;41;51;67;92")
 .Set L("B","S")=$$LINE^vhRtn1("S",92,"1;29;41;51;67;92")
 .Set L("B","F")=$$LINE^vhRtn1("F",92,"1;29;41;51;67;92")
 .Set L("B","L")=$$LINE^vhRtn1("L",92,"1;29;41;51;67;92")
 .Set L("A","B")=$$LINE^vhRtn1("B",92,"1;29;41;51;92")
 .Set L("A","F")=$$LINE^vhRtn1("S",92,"1;29;41;51;67$$C^vhRtn1(8);92")
 .Set L("A","L")=$$LINE^vhRtn1("L",92,"1;29;41;51;92")
 If Document="Q" Do
 .Set L("B","B")=$$LINE^vhRtn1("B",79,"1;79")
 .Set L("B","S")=$$LINE^vhRtn1("S",79,"1;79")
 .Set L("B","F")=$$LINE^vhRtn1("F",79,"1;79")
 .Set L("B","L")=$$LINE^vhRtn1("L",79,"1;79")
 Set VPerfo=1 If P("Type")'="CA",P("Type")'="BL" Set VPerfo=2 ; instellen van de VPerfo
 Do:VPerfo
 .If Document="P" Do  Quit
 ..If P("Type")'="CA",P("Type")'="BL" Quit
 ..Set I=""
 ..For  Set I=$O(L(I)) Quit:I=""  Do
 ...If $D(L(I))#10 Set $E(L(I),2)=""
 ...Set J=""
 ...For  Set J=$O(L(I,J)) Quit:J=""  Do
 ....If $D(L(I,J))#10 Set $E(L(I,J),2)=""
 ....Set K=""
 ....For  Set K=$O(L(I,J,K)) Quit:K=""  Do
 .....If $D(L(I,J,K))#10 Set $E(L(I,J,K),2)=""
 .Set I=""
 .For  Set I=$O(L(I)) Quit:I=""  Do
 ..If $D(L(I))#10 Set $E(L(I),2)=$TR($J("",VPerfo+1)," ",$E(L(I),2))
 ..Set J=""
 ..For  Set J=$O(L(I,J)) Quit:J=""  Do
 ...If $D(L(I,J))#10 Set $E(L(I,J),2)=$TR($J("",VPerfo+1)," ",$E(L(I,J),2))
 ...Set K=""
 ...For  Set K=$O(L(I,J,K)) Quit:K=""  Do
 ....If $D(L(I,J,K))#10 Set $E(L(I,J,K),2)=$TR($J("",VPerfo+1)," ",$E(L(I,K),2))
 Quit
 ;
 ; initialisatie van de printerkarakters
PINIT 
 Set P("Type")=$P($G(Print("PRINTER")),";",2) Set:P("Type")="" P("Type")=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,2)
 If $G(%Fax),$G(%FaxNr) Do  Quit
 .Set P("B",0)=$C(27)_"[27m"                     ;Bold off
 .Set P("B",1)=$C(27)_"[07m"                     ;Bold on
 .Set P("C",0)=""                                ;Compressed off
 .Set P("C",1)=""                                ;Compressed on
 .Set P("E",0)=""                                ;Expanded off
 .Set P("E",1)=""                                ;Expanded on
 .Set P("D",0)=""                                ;Bidirectioneel
 .Set P("D",1)=""                                ;Unidirectioneel
 .Set P("U",0)=$C(27)_"[24m"                     ;Underline off
 .Set P("U",1)=$C(27)_"[04m"                     ;Underline on
 .Set P("T","F")=""                              ;Translate chars from
 .Set P("T","T")=""                              ;Translate chars to
 .Set P("Q",0)=""                                ;NLQ+italic off
 .Set P("Q",1)=""                                ;NLQ+italic on
 .Set P("N",0)=""                                ;NLQ off
 .Set P("N",1)=""                                ;NLQ on
 Set P("B",0)=$C(27)_"F"                         ;Bold off
 Set P("B",1)=$C(27)_"E"                         ;Bold on
 Set P("C",0)=$C(18)                             ;Compressed off
 Set P("C",1)=$C(27)_":"                         ;Compressed on
 Set P("E",0)=$C(20)_$C(13)                      ;Expanded off
 Set P("E",1)=$C(14)                             ;Expanded on
 Set P("D",0)=$C(27)_"U"_$C(0)                   ;Bidirectioneel
 Set P("D",1)=$C(27)_"U"_$C(1)                   ;Unidirectioneel
 If P("Type")="BO" Set P("D",0)=P("D",1)         ;Oude printers
 Set P("U",0)=$C(27)_"-"_$C(0)                   ;Underline off
 Set P("U",1)=$C(27)_"-"_$C(1)                   ;Underline on
 Set P("T","F")=$G(FVAN)                         ;Translate chars from
 Set P("T","T")=$G(FNAAR)                        ;Translate chars to
 Set P("Q",0)=$C(27)_"I"_$C(0)                   ;NLQ+italic off
 Set P("Q",1)=$C(27)_"k"_$C(1)_$C(27)_"I"_$C(11) ;NLQ+italic on
 Set P("N",0)=$C(27)_"I"_$C(0)                   ;NLQ off
 Set P("N",1)=$C(27)_"k"_$C(1)_$C(27)_"I"_$C(10) ;NLQ on
 If P("Type")'="CA",P("Type")'="BL" Quit
 Set P("Q",0)=$C(27)_"I"_$C(0)                   ;NLQ+italic off
 Set P("Q",1)=$C(27)_"I"_$C(2)                   ;NLQ+italic on
 Set P("N",0)=$C(27)_"I"_$C(0)                   ;NLQ off
 Set P("N",1)=$C(27)_"I"_$C(2)                   ;NLQ on
 Quit
 ;
 ; initialisatie van de formulieren
FINIT(Document) 
 Set PageLen=$S($D(Print):Print("LEN"),1:72),V=1
 Set:Document="R" V=9
 Set:Document="E"!(Document="e") V=3
 If P("Type")="CA"!(P("Type")="BL") Do
 .Set:Document="C" V=3
 .Set:P("Type")="CA" PageLen=70
 .Set V=V-1
 .If $G(Print("PAPIER"))="L" Set PageLen=PageLen-2
 .Set:Document="E"!(Document="e") PageLen=PageLen-2
 Set MaxLines=PageLen-4
 If Document="H",$G(Print("PAPIER"))="S" Set MaxLines=MaxLines-1
 If Document="E"!(Document="e"),P("Type")="BR" Set MaxLines=MaxLines-4
 Set AdresPos=10
 Set FP=PageLen Write @F32
 If Document="T" Set Lines("T","F")=16,Lines("T","N")=6,Lines("H")=3,Lines("F")=1
 Quit
 ;
 ; Lock van het bestand
LOCK() 
 New Text
 Set Text=$$DOCUMENT^DCPRINT(Document)
 Set Text="Afdrukken "_$$LOCASE^vhRtn1(Text)
 Do ADD^vhLock(Bakje)
 If '%TC Do LDISP^vhLock(Bakje,Text)
 Quit %TC
 ;