cA503 ;Beheer wachtwoorden & prioriteiten ;%A503 ; [ 02/07/01  9:48 AM ]
 G 1
 ;
T0 ;Beheer wachtwoorden & prioriteiten ;
T1 ;Beheer wachtwoorden ;& prioriteiten ;
T2 ;Lijnnummer;einde programma;vorige menu;
T3 ;Menu-lijn ;
T4 ;L[] = wachtwoord op deze lijn ;  .[] = prioriteit op deze lijn;  M[] = onderliggende menu;
T5 ;U heeft geen toegang tot deze lijn ;
T6 ;Huidig wachtwoord;
T7 ;Nieuw wachtwoord\"[] = geen";
 ;
T0F ;Gestion des mote de passe & priorités ;
T1F ;Gestion mots de passe ;& priorités ;
T2F ;Numéto de ligne;fin du programme;menu précédent;
T3F ;Ligne menu ;
T4F ;L[] = mot de passe sur cette ligne ;  .[] = priorité sur cette ligne;  M[] = menu suivant;
T5F ;Vous n'avez pas d'accès à cette ligne ;
T6F ;Mot de passe actuel;
T7F ;Nouveau mot de passe\"[] = aucun";
 ;
T0E ;Beheer wachtwoorden & prioriteiten ;
T1E ;Beheer wachtwoorden ;& prioriteiten ;
T2E ;Lijnnummer;einde programma;vorige menu;
T3E ;Menu-lijn ;
T4E ;L[] = wachtwoord op deze lijn ;  .[] = prioriteit op deze lijn;  M[] = onderliggende menu;
T5E ;U heeft geen toegang tot deze lijn ;
T6E ;Huidig wachtwoord;
T7E ;Nieuw wachtwoord\"[] = geen";
 ;
 ; titel tonen
S1 S K=$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,4-SWN) W @F11,$J("",78-$L(K)/2),@F92,K,@F93,@F1 Q
 ;
 ; update menu
S2 S @("^"_Q_"BA(""MENU"",QM,NR)")=U3 Q
 ;
 ; tonen menu-lijn
S3 S FP=$P(S2,D,2)*100+$P(S2,D,3)-1 W @F,@S1,$J(NR,2) W:'SWN "." W:SWN "(",$E($P(S2,D,10)_$J("",3),1,3),")" 
S3Z W " ",$E($P(S2,D,QTU*10-9),1,80-4-(SWN*3)-$P(S2,D,3)),@F93 K S1,S2 Q
 ;
 ; update menu-lijn
S4 S $P(U3,D,10)=$P(K," "),S1=F92,S2=U3 D S2,S3 Q
 ;
C1 W !?2,"-[] = ",$P($T(@("T2"_QT)),U,$S($P(U2,D,6)="EXIT"!($P(U2,D,6)=QM):3,1:4)) Q
C2 W !?2,$P($T(@("T4"_QT)),U,2) W:SWN $P($T(@("T4"_QT)),U,3),! W:$P(U3,D,5)="M" $P($T(@("T4"_QT)),U,4) Q
 ;
 ; naar eigen login
1 S ^HULP(boot,$J)=Q_D_QM_D_QN,NR=0,SWN=$D(^DATA(0,"PRI"))>0 D S1
11 S I=$$UI1^cAFA1("USR",101,QU),J=I_" "
13 S J=$O(^DATA(0,"USR_SYS.QQM",J)) G YZ:$P(J," ")'=I,13:'$D(^(J,0)),13:$P(^(0),D,30)
14 S T=$P(^(0),D,2) G 13:T="",13:'$D(^DATA(0,"SYS.QQM",T,0)),13:$P(^(0),D,30)
15 S QQM=$P(^(0),D,2,3) G 13:$P(QQM,D)="",13:$P(QQM,D,2)=""
16 S T=$P(^(0),D) G 13:T="",13:'$D(^DATA(0,"SYS",T,0)),13:$P(^(0),D,30)
17 G 13:$P(^(0),D)'=$ZU($ZV'["MSM"*5),13:'$D(@("^"_$P(QQM,D)_"BA(""MENU"",$P(QQM,D,2),0)")),13:'$D(@("^"_$P(QQM,D)_"BA(99,1)"))
18 S Q=$P(QQM,D),QM=$P(QQM,D,2)
 ;
2 S QN=$G(@("^"_Q_"BA(99,1)"),Q) I '$D(@("^"_Q_"BA(""MENU"",QM,0)")) F QM=0:1:999 Q:$D(@("^"_Q_"BA(""MENU"",QM,0)"))
21 I 'NR,QM=999 G YZ
23 L @("^"_Q_"BA(""MENU"")"):2 E  S R=14 D F2 G YZ
 ;
3 D S1 S U1=0,U2=^(U1),FP=$P(U2,D,2)*100+$P(U2,D,3) W @F,@F4,$P(U2,D)," - ",QN," ",@F5
31 S U1=$O(^(U1)) I U1="" S U1=0,U2=^(U1) G 4
33 S U2=^(U1) I $P(U2,D,8)'="-" S NR=U1,S1=F93,S2=U2 D S3
35 G 31
 ;
4 S R="NR\22\3\"_$P($T(@("T2"_QT)),U,2)_"\C1\2" D R0
41 I K="-"!(K=",") G YZ:$P(U2,D,6)="EXIT"!($P(U2,D,6)=QM) D:$L($P(U2,D,9)) SW($P(U2,D,9)) S QM=$P(U2,D,6) G YZ:'$L(QM),YZ:'$D(@("^"_Q_"BA(""MENU"",QM,0)")),3
43 G 4:'NR,4:'$D(^(NR)) S U3=^(NR),S1=F92,S2=U3 D S3
 ;
5 I $L(QL),$L($P(U3,D,10)) D  I R D E1 S K="-" G 61
51 . S R=1 F K=1:1:$L(QL," ") I R,$P(QL," ",K)=$P(U3,D,10) S R=0
53 I $L($P(U3,D,7)) D  I R D E1 S K="-" G 61
55 . S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_D_D_10 D R0 S R=K'=$P(U3,D,7)
 ;
6 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_NR_"\C2\1\\\\\1" D R0
61 I K="-" S S1=F93,S2=U3 D S3,EZ G 4
63 I K="L" D  G 6
630 . S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\10" D R0 I K'="-",K'="," S $P(U3,D,7)=K D S2
65 I K=".",SWN D  G 6
650 . S K=$$^cANSYN("PRI",19,$P(U3,D,10),1) I K'="-",K'="," D S4
67 I K="M",$P(U3,D,5)="M" D  I R G 2
670 . S I=$P(U3,D,9),R=0
 . D:$L(I) SW(I) S I=$P(I,U)
 . I I?1.3U,$D(@("^"_I_"BA(99,1)")) S Q=I,R=1
671 . S J=$P(U3,D,4) I J=0!J,$D(@("^"_Q_"BA(""MENU"",J,0)")) S QM=J,R=1
69 G 6
 ;
YZ S Q=$P(^HULP(boot,$J),D),QM=$P(^($J),D,2),QN=$P(^($J),D,3) K ^($J) Q
 ;
SW(R) N UCI
 S Q=$P(R,U),UCI=$P(R,U,2) I $L(UCI) D INT^cQMSMSW
 S QN=@("^"_Q_"BA(99,1)")
SWZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
E1 S K=$P($T(@("T5"_QT)),U,2) D F1 G EZ
EZ S K=$D(@("^"_Q_"BA(""MENU"",QM,0)")) Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 07.02.01 - 10 u 46 * V7.84