cA514 ;BEHEER TOEGANGSKODE ;%A514 ;
 ;
T0 ;Beheer toegangscode ;
T1 ;Huidige toegangscode\;
T2 ;Nieuwe toegangscode\;
T3 ;"tik uw code nogmaals in ter bevestiging";
T4 ;Uw initialen : ;
 ;
T0F ;Gestion code d'accès;
T1F ;Code d'acces actuel\;
T2F ;Nouveau code d'acces\;
T3F ;"tapez votre code une fois de plus pour confirmer";
T4F ;Vos initiales : ;
 ;
T0E ;Beheer toegangscode ;
T1E ;Huidige toegangscode\;
T2E ;Nieuwe toegangscode\;
T3E ;"tik uw code nogmaals in ter bevestiging";
T4E ;Uw initialen : ;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W /CUP(0,0),/ED,/CUP(FP\100,FP#100)," ",/SGR(27) S FP=202 W /CUP(FP\100,FP#100),/SGR(7)," ",K," ",/SGR(27)
11 G YZ:'$D(QU),YZ:QU'?2U,YZ:QU="SU" S FP=403 W /CUP(FP\100,FP#100),$P($T(@("T4"_QT)),U,2),QU
13 S I=@("^"_Q_"UI1(QU)") L @("^"_Q_"UI(I)"):2 E  S R=14 ;D F2 G YZ
15 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\8\\$L(K)" D R0 G YZ:K="-"!(K=",")
17 S OK=K D S5^cA511 G 15:'$L(K),15:'$D(@("^"_Q_"UI2(K,QU)"))
19 S FP=603 W /CUP(FP\100,FP#100),$P($P($T(@("T1"_QT)),U,2),D)," : ",OK
 ;
2 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\8\\K'=OK&$L(K)" D R0 G 1:K="-"!(K=",")
21 S NK=K,FP=803 W /CUP(FP\100,FP#100),/ED,$P($P($T(@("T2"_QT)),U,2),D)," : ",NK
23 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_$P($T(@("T3"_QT)),U,2)_"\8\\$L(K)" D R0 G 2:K="-",1:K=","
25 I K'=NK G 23
 ;
3 S B(1)=@("^"_Q_"UI(I,0)") F J=2:1:9 S B(J)=D I $D(^(J-1)) S B(J)=^(J-1)
31 D S5^cA511 S $P(B(1),D,17)=K D S2^cA511
33 S @("^"_Q_"UI(I,0)")=B(1) F J=2:1:9 I B(J)'=D S ^(J-1)=B(J)
 ;
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 S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84