cA260 ;DRUKKEN KODES (VRAAGSTELLING) ;%A260 ; [ 04/06/00  9:02 AM ]
 G 1
 ;
T0 ;Printen codes (vraagstelling) ;
T1 ;Printen ;
T2 ;Plaats ; papier op de printer en schakel hem aan;[] = ok   ,[] = hernemen;
T3 ;   .[] = later printen;
T4 ;Smal;breed;
 ;
T0F ;Edition codes (questions) ;
T1F ;Edition ;
T2F ;Mettez du papier ; dans l'imprimante et mettez-la en marche;[] = ok   ,[] = reprendre;
T3F ;   .[] = impression différée;
T4F ;A4;large;
 ;
T0E ;Printen codes (vraagstelling) ;
T1E ;Printen ;
T2E ;Plaats ; papier op de printer en schakel hem aan;[] = ok   ,[] = hernemen;
T3E ;   .[] = later printen;
T4E ;Smal;breed;
 ;
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
 ;
R9 S QPT=$T(+0) D ^cA109
R9Z Q
 ;
1 I QP X:$L($P(R,U,2)) $P(R,U,2)
10 I 'QP S RGL=PP(1),RR1=PP(2),RR2=PP(3),BH=PP(4),BSW=PP(5),RBIB=PP(6),B(1)="" D S2 K PP I '$L(RBIB) K RBIB
11 I QP S K=$P($T(@("T1"_QT)),U,2)_$P(@("^"_$S($D(RBIB):QT_RBIB,1:Q_RGL)_"(RR1,RR2_.1,0)"),D)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S RNT=@("^"_$S($D(RBIB):QT_RBIB,1:Q_RGL)_"(RR1,RR2_.1,""RNT"")") G 75:'QP
15 K A,B S B(1)="" S X=$D(@("^"_$S($D(RBIB):QT_RBIB,1:Q_RGL)_"(RR1,RR2_.1,0)")),X=200,RR=101 F I=1:1 S X=$O(^(X)) Q:X>299!'X  S A(RR)=^(X),RR=RR+1
17 S R29=100,K="",BSW=0,BH=1 I $D(@("^"_QS_Q_"BA(100)")),^(100)=1 S BH=0
18 I $D(^(300)),^(300) S BSW=1
19 G 21
 ;
2 S R29=R29-2 G YZ:R29<100
21 S R29=$O(A(R29)) G 7:'R29 S R28=A(R29),R27=$P(R28,U,16),B(R27)="" S:K'="-" K=""
23 I $L($P(R28,U,4)),@$P(R28,U,4) S R23="",X=1 G 2:K="-" K B(R27) G 21:R29>0,YZ
25 I $L($P(R28,U,7)),@$P(R28,U,14) G 33:K="-" X "S K="_$P(R28,U,7) G 33
27 I $L($P(R28,U,17)),@$P(R28,U,18) X $P(R28,U,17) S (R23,B(R27))=K G 5
29 I $L($P(R28,U,19)),@$P(R28,U,20) X $P(R28,U,19) G 33
 ;
3 S R="K\"_$P(R28,U,2)_D_$P(R28,U,3)_"\"_$P(R28,U,1)_"\C1\"_$P(R28,U,9)_D_$P(R28,U,21)_D_""",-""[K&$L(K)"
31 S R=R_$S($L($P(R28,U,11)):"!("_$P(R28,U,11)_")",1:"!1") D R0
33 I K="-" G YZ:R29=101 K B(R27) G 2
35 I K="," G YZ:R29=101 S R29=100 K B(R27) G 21
39 S (B(R27),R23)=K
 ;
4 X:$L($P(R28,U,8)) $P(R28,U,8) D S1 G 6
 ;
5 S R="K\"_$P(R28,U,2)_D_$P(R28,U,3)_"\"_$P(R28,U,1)_"\C2\"_$P(R28,U,9)_D_$P(R28,U,21)_D_""",-""[K"
51 S R=R_$S($L($P(R28,U,11)):"!("_$P(R28,U,11)_")",1:"!1") D R0
53 G 4:K="",33
 ;
6 S X=R27\100,Y=R27#100 S:'$D(B(X)) B(X)="" S:Y $P(B(X),D,Y)=B(R27)
61 K B(R27) G 21:R29>0
 ;
7 ;S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_$P($T(@("T4"_QT)),U,+RNT+2)_$P($T(@("T2"_QT)),U,3)_"\"""_$P($T(@("T2"_QT)),U,4) S:$P(RNT,D,4) R=R_$P($T(@("T3"_QT)),U,2)
71 ;S R=R_"""\1\\""-,""[K!(K="".""&$P(RNT,D,4))" D R0 I K="-"!(K=",") S R29=RR S:K=","&$D(A) R29=102 G 2
 D ^cAN3223("","1#9") I K="-" S R29=RR G 2
73 I K="." S PP(1)=RGL,PP(2)=RR1,PP(3)=RR2,PP(4)=BH,PP(5)=BSW,PP(6)=$G(RBIB),PP(7)=B(1) D R9 G YZ
75 S RLM=@("^"_$S($D(RBIB):QT_RBIB,1:Q_RGL)_"(RR1,RR2_.1,""RLM"")"),RPM=^("RPM")
77 S Q1="^"_QS_Q_RGL_"(RR1,RR2,RRZ)" X:$L($P(RNT,D,5)) $P(RNT,D,5) K A
79 S Q2="^"_$S($D(RBIB):QT_RBIB,1:Q_RGL)_"(RR1,RR2_.1,0)",RHD=300,RDD=400,RRZ="" G @$P(RPM,D)
 ;
YZ Q
 ;
C1 S FP=$P(R28,U,2)*100+$P(R28,U,3)+100 S:'FP FP=$P(R28,U,2)+1*100+3 W @F W:$L($P(R28,U,10)) $P(R28,U,10),@F2 Q
C2 S FP=$P(R28,U,5)*100+$P(R28,U,6) S:'FP FP=$P(R28,U,2)+1*100+3 W @F W:$L($P(R28,U,10)) $P(R28,U,10),"   " W:$L(K) "[] = ",K W @F2 Q
 ;
S1 S FP=$P(R28,U,5)*100+$P(R28,U,6) G S1Z:'FP W @F I '$P(R28,U,23) W $P(R28,U)," : "
S1A W R23,@F2
S1Z Q
 ;
S2 F I=7:1 Q:'$D(PP(I))  S B(1)=B(1)_PP(I)_D
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84