cA404 ;FOUTBOODSCHAPPEN ;%A404; [ 04/12/00   9:06 AM ]
 ;
T0 ;Foutboodschappen ;
T1 ;Er zijn geen fouten   [] = ok ;
T2 ;Vervolg   [] = ok ;
T3 ; nr.  datum     uur      omschrijving van de fout;
T4 ; ---  -----     ---      ------------------------;
T5 ;Informatie\"[] = op het scherm   .[] = op de printer   -[] = einde programma";
T6 ;Foutnummer\"[] = algemeen overzicht   xxxx[] = details voor een bepaalde fout";
T7 ;Len    var = inhoud;
T8 ;----   ------------;
T9 ;Plaats smal papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T10 ;Blz :;
T11 ;Foutnummer onbekend   [] = ok ;
 ;
T0F ;Messages d'erreur ;
T1F ;Il n'y a pas d'erreurs   [] = ok ;
T2F ;Suite   [] = ok ;
T3F ; no.  date      heure    description de l'erreur;
T4F ; ---  ----      -----    -----------------------;
T5F ;Info\"[] = à l'écran   .[] = sur l'imprimante   -[] = fin du programme";
T6F ;No de l'erreur\"[] = aperçu   xxxx[] = détails d'une erreur spécifique";
T7F ;Lon   var = contenu;
T8F ;---   -------------;
T9F ;Mettez du papier a4 dans l'imprimante et mettez-la en marche\"[] = ok   ,[] = reprendre";
T10F ;Page:;
T11F ;N° D'ERREUR INCONNU   [] = ok ;
 ;
T0E ;Foutboodschappen ;
T1E ;Er zijn geen fouten   [] = ok ;
T2E ;Vervolg   [] = ok ;
T3E ; nr.  datum     uur      omschrijving van de fout;
T4E ; ---  -----     ---      ------------------------;
T5E ;Informatie\"[] = op het scherm   .[] = op de printer   -[] = einde programma";
T6E ;Foutnummer\"[] = algemeen overzicht   xxxx[] = details voor een bepaalde fout";
T7E ;Len    var = inhoud;
T8E ;----   ------------;
T9E ;Plaats smal papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T10E ;Blz :;
T11E ;Foutnummer onbekend   [] = ok ;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S:'$D(SWZ) SWZ=0 S K=$D(@("^"_QS_Q_"BA(98)")),LNR=0 I K,SWZ S LNR=^(98)
11 I LNR S K=$D(^ERROR(0)) S:'K LNR=0 I K S K=^(0) I K<LNR S LNR=0
12 I $O(^ERROR(LNR))="" S FP=2403+F60 W @F,@F4,$P($T(@("T1"_QT)),U,2),@F5,@F2,@F0 R K G YZ
13 G:SWZ 2 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K" D R0 G:K="-" YZ S TP=$L(K) G:TP 3
15 S FP=301 W @F,@F1,@F D S2 S TEL=0,NR=LNR
17 S NR=$O(^ERROR(NR)) G:NR="" 13 S K=^(NR,0) D S1 G 17:TEL<14,13:$O(^ERROR(NR))=""
19 S FP=2403+F60 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5,@F2,@F0 R K G YZ:K="-" S TEL=0,FP=579 W @F,@F1 G 17
 ;
 ;overzicht op printer
2 S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,""[K" D R0 G 2:$L(K)&SWZ,3:$L(K) X F70 W @F80 S (BLZ,TEL)=0,NR=LNR
21 S NR=$O(^ERROR(NR)) S:NR'=""&SWZ R=NR I NR="" W $$FF^cA334 X F71 G 3:'SWZ S @("^"_QS_Q_"BA(98)")=R,SWZ="" G 15
23 S K=^(NR,0) D:'TEL HD,S2 D S1 S:TEL=55 TEL=0 G 21
 ;
3 S R="NR\22\3\"_$P($T(@("T6"_QT)),U,2)_"\4\\""-""[K!(K?1N.N&K)" D R0 G 13:K="-",2:'K
31 I '$D(^ERROR(K,0)) S FP=2403+F60 W @F,@F4,$P($T(@("T11"_QT)),U,2),@F5,@F2,@F0 R K G 3
33 S R="K\23\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""-,""[K" D R0 G:$L(K) 3 X F70 W @F80 S (TEL,BLZ,R)=0
35 S K=^ERROR(NR,0) D HD,S2,S1 S TEL=5 W ! D S3
37 S R=$O(^(R)) I R'="" D S4 G 37:TEL<55 I $O(^(R))'="" D HD,S3 S TEL=0 G 37
39 W $$FF^cA334 X F71 G 3
 ;
YZ 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 K R0,R1 D ^cA100 Q
 ;
HD W:BLZ $$FF^cA334 S BLZ=BLZ+1,H=$ZR I '$D(NM2) S NM2=@("^"_QS_Q_"BA(99,2)"),NM3=^(3),H=$D(@H)
HDZ S X=$P($T(@("T0"_QT)),U,2) W !,QN,?72,$P($T(@("T10"_QT)),U,2),$J(BLZ,3),!,NM2,?40-$L(X),@F82,X,@F83,$$CR^cA334,?72,DT,!,NM3,?73,TD,! Q
 ;
S1 W !,$J(NR,4),?6,$P(K,D),"  ",$P(K,D,2),"  ",$P(K,D,3) S S1=$P(K,D,4),S2=$F(S1,">")
S1A S:S2 S1=$E(S1,1,S2-1)_" "_$E(S1,S2,99) W ?39,": ",$E(S1,1,32),?74,": ",$P(K,D,5)
S1Z K S1,S2 S TEL=TEL+1 Q
 ;
S2 W !,$P($T(@("T3"_QT)),U,2),!,$P($T(@("T4"_QT)),U,2) Q
S3 W !,$P($T(@("T7"_QT)),U,2),!,$P($T(@("T8"_QT)),U,2) Q
 ;
 ;detail op printer
S4 S VAR=^(R),K="" F S5=1:1:99 Q:'$D(^(S5/100+R))  S K=K_^(S5/100+R)
 S S1=$L(K),S2=$J(S1,4)_"   "_VAR_" = ",S3=$L(S2),S4=80-S3 W !,S2
S4A W $E(K,1,S4) S K=$E(K,S4+1,$L(K)),TEL=TEL+1 I $L(K) W !?S3 G S4A
S4Z S R=R+.99 K K,VAR,S1,S2,S3,S4,S5 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84