cA402 ;Foutboodschappen ;%A402; [ 01/03/01  4:50 PM ]
 ;
T0 ;Foutboodschappen ;
T1 ;Er zijn geen fouten ;
T2 ;Vervolg ;
T3 ; nr.  datum     uur      omschrijving van de fout;
T4 ; ---  -----     ---      ------------------------;
T5 ;Informatie\"[] = op het scherm   .[] = op de printer   -[] = einde programma";
T6 ;Blz :;
T8 ;Detail\"[] = zonder detail   .[] = met detail";
T9 ;II;%A501;%A508;
 ;
T0F ;Messages d'erreur ;
T1F ;Il n'y a pas d'erreurs ;
T2F ;Suite ;
T3F ; no.  date      heure    description de l'erreur;
T4F ; ---  ----      -----    -----------------------;
T5F ;Info\"[] = à l'écran   .[] = sur l'imprimante   -[] = fin du programme";
T6F ;Page:;
T8F ;Détail\"[] = sans détail   .[] = avec détail";
T9F ;II;%A501;%A508;
 ;
T0E ;Error messages ;
T1E ;There are no errors ;
T2E ;Next ;
T3E ; Nr.  date      houre    error description;
T4E ; ---  -----     -----    ------------------------;
T5E ;Information\"[] = on screen   .[] = on printer   -[] = end program";
T6E ;Page:;
T8E ;Detail\"[] = with detail   .[] = without detail";
T9E ;II;%A501;%A508;
 ;
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
11 I $O(^ERROR(0))="" S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
12 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-" S TP=$L(K) G 2:TP
13 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""-.""[K" D R0 G 12:K="-" S DET=$L(K)
14 S FP=301 W @F,@F1,@F D S2 S $Y=0,%(1)=""
15 S %(1)=$O(^ERROR(%(1)),-1) G 12:'%(1),15:'$D(^(%(1),0)) S %(2)=^(0) D S^cA401(DET) G 12:$O(^ERROR(%(1)),-1)="" I $Y<14 G 15
16 S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ:K="-" S $Y=0,FP=579 W @F,@F1 G 15
 ;
 ;overzicht op printer
2 D ^cAN3223("","1") G 12:K="-" X F70 W @F80 S (BLZ,$Y,%(1))=0,DET=1
21 S %(1)=$O(^ERROR(%(1))) I %(1)="" W $$FF^cA334 X F71 G 12
23 G 21:'$D(^(%(1),0)) S %(2)=^(0) D:'$Y HD,S2 D S^cA401(1) S:$Y>60 $Y=0 G 21
 ;
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(@("T6"_QT)),U,2),$J(BLZ,3),!,NM2,?40-$L(X),@F82,X,@F83,$$CR^cA334,?72,DT,!,NM3,?73,TD,! Q
 ;
S2 W !,$P($T(@("T3"_QT)),U,2),!,$P($T(@("T4"_QT)),U,2) Q
 ;
FL X "ZL @S4 S S4=$P($T(@(""T0""_QT)),"";"",2) S:$L(S4)<7 S4=$P($T(+1),"";"",2) S:$L(S4)<7 S4=$P($T(+1),"";"",3)"
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84