cA503	;Beheer wachtwoorden & prioriteiten ;%A503 ; [ 02/07/02  10:10 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";
T8	;Geen toegang tot dit systeem;
T9	;Fout in menu-lijn ;
	;
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";
T8F	;Pas d'accès à ce système;
T9F	;Erreur dans la ligne menu ;
	;
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";
T8E	;You have no access to this system;
T9E	;Error in menu-line ;
	;
	; naar eigen login
1	S oQ=Q_D_QM_D_QN_D_$ZU(5)
	N RQ,QM,R6
	S $ZT="TRAP^cAN000"
	S NR=0,SWN=$D(^DATA(0,"PRI"))>0
	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	S I="",SQM="",SQM1=""
10	S I=$O(^DATA(0,"SYS.QQM",I)) G 13:$L(SQM1)&'$L(I),11:I="" 
	I $P(^(I,0),D,30) G 10
	I $L(SQM) S (SQM,SQM1)="" G 11
	S (SQM,SQM1)=I
	G 10
11	I $L(SQM1) G Y
	S SQM=$$^cANSYN("SYS.QQM") I SQM="-" G Y
13	S $P(RQ,D,1,2)=$$SIG^cAFA1("SYS.QQM",SQM,102)_D_$P(^(0),D,3),$P(RQ,D,9)=$P(^(0),D,4),$P(RQ,D,10)=$P(^(0),D,5)
	I '$L($P(RQ,D))!'$L($P(RQ,D,2)) G 16
	S T=$P(^(0),D) G 16:T="",16:'$D(^DATA(0,"SYS",T,0)),16:$P(^(0),D,30)
15	G 16:$P(^(0),D)'=$ZU($ZV'["MSM"*5)
	I $ZV["MSM",'$D(@("^"_$P(RQ,D)_"BA(""MENU"",$P(RQ,D,2),0)")) G 16
	I $ZV["MSM",'$D(@("^"_$P(RQ,D)_"BA(99,1)")) G 16
	I $ZV'["MSM" S NS=$ZU(5) S:$L($P(RQ,D,9)) NS=$P(RQ,D,9) G 16:'$D(@("^|"""_NS_"""|"_$P(RQ,D)_"BA(""MENU"",$P(RQ,D,2),0)")),16:'$D(@("^|"""_NS_"""|"_$P(RQ,D)_"BA(99,1)"))
	S $P(RQ,D,3)=^(1)
	I '$L($P(RQ,D,3)) G 16
	G 17	
16	D F0 G 11
17	D C^cA612
	S Q=$P(RQ,D),QM=$P(RQ,D,2),QN=$P(RQ,D,3)
	K QM("EXIT")
	I $P(RQ,D,10) S QM("EXIT")=Q_D_QM_D_NS  
	; indien Caché : naar de juiste namespace gaan
19	I $ZV'["MSM",$L($P(RQ,D,9)) ZN $P(RQ,D,9)
	;
2	S QN=$G(@("^"_Q_"BA(99,1)"),Q)
	I '$D(@("^"_Q_"BA(""MENU"",QM,0)")) S K=$P($T(@("T9"_QT)),U,2) D F1 D  G 2:$L(QM),Y
	. S R6=""
	. I '$L($P($P(R6,D,6),U)) S $P(R6,D,6)=$P($G(QM($ZU(5),Q,QM)),D),$P(R6,D,9)=$P($G(QM($ZU(5),Q,QM)),D,2)  ; KU : 26.10.06
	. S R=$P(R6,D,9)
	. K QM($ZU(5),Q,QM)
	. D SW(R):$L(R)
	. S QM=$P($P(R6,D,6),U)
21	I 'NR,QM=999 G Y
23	L @("^"_Q_"BA(""MENU"")"):2 E  S R=14 D F2 G Y
	;
3	D S1 
	S U1=0,U2=@("^"_Q_"BA(""MENU"",QM,U1)"),FP=$P(U2,D,2)*100+$P(U2,D,3) W @F,@F4,$P(U2,D)," - ",QN," ",@F5
	I $L($P(U2,D,6)) K QM($ZU(5),Q,QM)  
31	S U1=$O(@("^"_Q_"BA(""MENU"",QM,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 9
43	G 4:'NR,4:'$D(@("^"_Q_"BA(""MENU"",QM,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" G 6
	I $P(U3,D,5)'="M" G 6
670	S R=$P(U3,D,9),RQ=Q_U_$ZU(5) 
	D:$L(R) SW(R)
671	S R=$P(U3,D,4)
	S:$G(QM)'=R!(Q_U_$ZU(5)'=RQ)&'$D(QM($ZU(5),Q,R)) QM($ZU(5),Q,R)=$G(QM)_D_RQ S QM=R
69	G 2
	;
9	S R6=U2
	I $G(QM("EXIT"))=(Q_D_QM_D_$S($ZV'["MSM":$ZU(5),1:"")) S $P(R6,D,6)="EXIT"  
	; ophalen terugkeermenu indien niet ingevuld
	I '$L($P($P(R6,D,6),U)) S $P(R6,D,6)=$P($G(QM($ZU(5),Q,QM)),D),$P(R6,D,9)=$P($G(QM($ZU(5),Q,QM)),D,2)  ; KU : 26.10.06
	S R=$P(R6,D,9)
	K QM($ZU(5),Q,QM)
	D SW(R):$L(R)
	S QM=$P($P(R6,D,6),U) G 2:QM'="EXIT"&$L(QM)
	;
Y	D E^cA612
	S Q=$P(oQ,D),QM=$P(oQ,D,2),QN=$P(oQ,D,3)
	I $ZV'["MSM",$ZU(5)'=$P(oQ,D,4) D SW(Q_U_$P(oQ,D,4))
YZ	Q
	; 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)
	W @F,@S1,@F,$J(NR,2) W:'SWN "." W:SWN "(",$E($P(S2,D,10)_$J("",3),1,3),")" 
	I $L($P(S2,D,QTU-1*10+1)) S $P(S2,D)=$P(S2,D,QTU-1*10+1)
	W " ",$E($P(S2,D),1,80-4-(SWN*3)-$P(S2,D,3)),@F93
S3Z	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
	;
	;
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
	;
F0	S K=$P($T(@("T8"_QT)),U,2)
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09