cA345 ;PLAATS PAPIER ... ;%A345 ; [ 06/16/00  3:43 PM ]
 G 1
 ;
T0 ;Plaats papier ... ;
T1 ;smal papier;code 10;
T2 ;breed papier;code 11;
T3 ;facturen;code 12;
T4 ;overschrijvingen;code 13;
T5 ;blanco formulieren;code 14;
T6 ;voorbedrukte formulieren;code 15;
T7 ;etiketten;code 16;
T8 ;de documenten;code 17;
T9 ;code 8;code 18;
T10 ;code 9;code 19;
T11 ;Plaats ; op de printer en schakel hem aan;
T12 ;ok;hernemen;later drukken;
 ;
T0F ;Mettez du papier ... ;
T1F ;du papier a4;code 10;
T2F ;du papier large;code 11;
T3F ;des factures;code 12;
T4F ;des virements;code 13;
T5F ;des formulaires blancs;code 14;
T6F ;des formulaires préimprimés;code 15;
T7F ;des étiquettes;code 16;
T8F ;les documents;code 17;
T9F ;code 8;code 18;
T10F ;code 9;code 19;
T11F ;Mettez ; dans l'imprimante et mettez-la en marche;
T12F ;ok;reprendre;impression différée;
 ;
T0E ;Plaats papier ... ;
T1E ;smal papier;code 10;
T2E ;breed papier;code 11;
T3E ;facturen;code 12;
T4E ;overschrijvingen;code 13;
T5E ;blanco formulieren;code 14;
T6E ;voorbedrukte formulieren;code 15;
T7E ;etiketten;code 16;
T8E ;de documenten;code 17;
T9E ;code 8;code 18;
T10E ;code 9;code 19;
T11E ;Plaats ; op de printer en schakel hem aan;
T12E ;ok;hernemen;later drukken;
 ;
1 N RR,RS,KEU,BR
11 S RR=R,RS="#",$ZT="TRAP^cAN000" I '$P($G(^cLOG(boot,"DAM",2)),D) G 2
13 S KEU="1" I '$P($P(RR,D,2),RS) S KEU=KEU_"#9"
15 S BR="" I $P($P(RR,D),RS)=1 S BR=">80"
17 D ^cAN3223("",KEU,BR) I K="-"&$P(RR,D,5) G 17
19 G YZ
 ;
2 S R="K\22\3\"_$P($T(@("T11"_QT)),U,2) I $P($P(RR,D),RS)=99,$L($P($P(RR,D),RS,2)) S R=R_$P($P(RR,D),RS,2) G 25
21 S K=$P($P(RR,D),RS),K=$P($T(@("T"_(K#10+1)_QT)),U,K\10+2) I K="" S K=$P($T(@("T1"_QT)),U,2)
23 S R=R_K
25 S R=R_$P($T(@("T11"_QT)),U,3)_"\C1\1\\",K=""
 ;
3 I '$P($P(RR,D,4),RS) S K=K_"'$L(K)"
31 I '$P($P(RR,D,3),RS) S K=K_$S($L(K):"!(",1:"")_"K="","""_$S($L(K):")",1:"")
33 I '$P($P(RR,D,2),RS) S K=K_$S($L(K):"!(",1:"")_"K=""."""_$S($L(K):")",1:"")
35 I '$P($P(RR,D,5),RS) S K=K_$S($L(K):"!(",1:"")_"K=""-"""_$S($L(K):")",1:"")
 ;
4 S R=R_K D R0
 ;
YZ Q
 ;
C1 W !?2 I '$P($P(RR,D,4),RS) S K=$P($P(RR,D,4),RS,2) S:K="" K=$P($T(@("T12"_QT)),U,2) W "[] = ",K,"   "
C1A I '$P($P(RR,D,5),RS) S K=$P($P(RR,D,5),RS,2) I $L(K) W "-[] = ",K,"   "
C1B I '$P($P(RR,D,3),RS) S K=$P($P(RR,D,3),RS,2) S:K="" K=$P($T(@("T12"_QT)),U,3) W ",[] = ",K,"   "
C1C I '$P($P(RR,D,2),RS) S K=$P($P(RR,D,2),RS,2) S:K="" K=$P($T(@("T12"_QT)),U,4) W ".[] = ",K
C1Z Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84