cA511 ;BEHEER GEBRUIKERS ;%A511 ;do uit ^_QS_Q_UI(0,x) ; [ 04/07/95  11:50 AM ]
 ;
T0 ;Beheer gebruikers ;
 ;
T0F ;Gestion des utilisateurs ;
 ;
T0E ;Beheer gebruikers ;
 ;
 ;vraag kode
1 S U3=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100) D S6 S K=U3 D ^cA207
11 I K'="-",K'="," D S5
 ;
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
 ;
C1 W !?2,$P(U2,U,10) Q
 ;
 ;openen
S1 S K=$P(B(1),D,17),OK=2 I K S @("^"_QS_Q_"UI2(K,$P(B(1),D))")=DT
S1Z Q
 ;
 ;wijzigen
S2 S OK=2 I $P(B(1),D)'="SU" D S4,S1 
S2Z Q
 ;
 ;test verwijderen
S3 S OK=2 I $P(B(1),D)="SU" S OK=0
S3Z Q
 ;
 ;verwijderen
S4 S OK=2,R="" F  S R=$O(@("^"_QS_Q_"UI2(R)")) Q:R=""  K ^(R,$P(B(1),D))
S4Z K R Q
 ;
 ;konversie
S5 S R=$E(K,1,8),K="" F R1=1:1:$L(R) S K=K_$E(1000+$A(R,R1),2,4)
S5A S R=K,K="" F R1=$L(R):-1:1 S K=K_$E(R,R1)
S5Z K R,R1 Q
 ;
 ;dekonversie
S6 S R=U3,U3="" F R1=$L(R):-1:1 S U3=U3_$E(R,R1)
S6A S R=U3,U3="" F  S R1=$E(R,1,3),R=$E(R,4,999) Q:'R1  S U3=U3_$C(R1)
S6Z K R,R1 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84