cAN225	;Beveiliging bestanden ;%AN225 ; [ 01/04/01  9:48 AM ]
	G 1
	;
T0	;Beveiliging bestanden ;
T1	;Rubriek\"1[] = ctrl F   2[] = opmerking"
T2	;Keuze\"[] = neen   1[] = ja"
	;
T0F	;Protection des fichiers ;
T1F	;Rubrique\"1[] = ctrl F   2[] = remarque"
T2F	;Choix\"[] = non   1[] = oui"
	;
T0E	;Secure files ;
T1E	;Element\"1[] = ctrl F   2[] = remark"
T2E	;Choice\"[] = no   1[] = yes"
	;
	; algemene initialisatie
1	;D O^cA612(2,1,20,80,1,1,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
13	D EG^cAFA1
	;
	; aflopen DMS voor alle Q-waardes
2	K ^HULP(boot,$J)
21	S I="" F  S I=$O(^DMS(I)) Q:I=""  D
	. S J="" F  S J=$O(^DMS(I,J)) Q:J=""  D
	.. S N=^(J,0) I $P(N,D,30) Q
	.. I '$D(^HULP(boot,$J,J)) S ^(J)=I
	.. I $P(N,D,2),$L($P(N,D,3)),$L($P(N,D,4)),$P(N,D,5) S $P(^(J),D,2)=1
	;
	; sorteren scroll op omschrijving gebruiker
3	S RSORT=$$GETSORT^cAFA1
31	S J="" F  S J=$O(^HULP(boot,$J,J)) Q:J=""  D
	. S I=$P(^(J),D),H=$P(^(J),D,2)
	. S N=^DMS(I,J,0),P=$G(^DPAR(0,"PAR.DMS",J,0)) I $P(P,D,30) Q
	. ; KO - 09.10.02 : wegschrijven UQC en USC
	. S $P(P,D,100)=$P(^DMS(I,J),D),$P(P,D,101)=$P(^(J),D,2)
	. S $P(P,D)=J,$P(P,D,99)=H F I=2:10:32 S $P(P,D,I)=$P(N,D,I-1)
	. S I=$P(P,D,QTU*10-8),^HULP("SORT",RSORT,$$DI^cAN000(I,J))=P
33	K ^HULP(boot,$J) D C^cA612
	;
	; beheer in de scroll
4	D BS^cAN210("PAR.DMS",0,0,0,0)
41	D EG^cAFA1
	;
	; update parameters: kan niet via extern wijzigen
5	D DMS^cAN000("UQC","USC","PAR.DMS") S UREF="^DPAR(0,""PAR.DMS"",UI1)"
51	S UI1=0,LOGTAB=$S($D(^LOGTAB):$NA(@UREF,2),1:"")  ; niet uit ^DMC !!!
53	S LOGREF=$NA(^DLOG(0,"PAR.DMS"),2)
55	S I3="" F  S I3=$O(^HULP("SORT",RSORT,I3)) Q:I3=""  D
	. S B(1)=^(I3),UI1=$P(B(1),D),A(1)=$G(@UREF@(0))
	. I A(1)="" D
	.. F I=1,2:10:32 S $P(A(1),D,I)=$P(B(1),D,I)
	.. S @UREF@(0)=A(1) I $L(LOGTAB) D LD^cAN000("S",$ZR,A(1))
	. ; KO - 09.10.02 tem B-index 111 overzetten ipv 110
	. F BI=103:1:111 D
	.. S OW=$P(A(BI\100),D,BI#100),NW=$P(B(BI\100),D,BI#100) I OW=NW Q
	.. S @UREF@(BI\100-1)=B(BI\100)                   ; update data
	.. I $L(LOGTAB) D LD^cAN000("S",$ZR,B(BI\100))
	.. S S5=UI1,R="" F  S R=$O(^DMA(0,"PAR.DMS",1,R)) Q:R=""!$D(ULOG)  D
	... I $G(^(R,16))=BI S ULOG(BI)=$TR(^(1),D,"~")
	.. I BI<110 S ULOG(BI)=$G(ULOG(BI))_D_$$COM^cAFO3("PRI",OW)_D_$$COM^cAFO3("PRI",NW)
	.. I BI>109 S ULOG(BI)=$G(ULOG(BI))_D_$$JN^cAFO1(OW)_D_$$JN^cAFO1(NW)
	.. D ULOG^cAN000("W",BI,OW,NW) K ULOG             ; logging
	. I $L(LOGTAB) D OPB^cANLOG(LOGTAB)
	. I $P(B(1),D,10) Q  ; parameter gebruiker op ja
	. S R=$P($$DI^cAN000(UI1,"")," "),I=R_" "
	. F  S I=$O(^INDEX(0,"USR_PAR.DMS",102,I)) Q:$P(I," ")'=R!'$L(UI1)  D USRV($P(^(I)," "),$P(^(I)," ",2))
	;
	; einde
Y	D RELSORT^cAFA1(RSORT)
YZ	D C^cA612,C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
USR(UI1USR,UFU)	; ophalen bestanden per usr (parameters)
	n RSORT,I,J,N
	D EG^cAFA1
	S RSORT=$$GETSORT^cAFA1
	S I="" F  S I=$O(^DPAR(0,"PAR.DMS",I)) Q:I=""  D
	. S N=$G(^(I,0)) I '$L(N) Q
	. I $P(N,D,30) Q
	. I '$P(N,D,10) Q
	. S J=$$DI^cAN000($P(N,D,QTU*10-8),I),^HULP("SORT",RSORT,J)=$G(^DATA(0,"USR_PAR.DMS",UI1USR_" "_I,0),UI1USR_D_I)
	D C^cA612
USR1	D @(UFU_"^cAN210(""USR_PAR.DMS"",0,0,0,"""")")
	I UFU'="BS" G USRZ
	D EG^cAFA1
	; wijzigen + verwijderen
	S J=UI1USR_" " F  S J=$O(^DATA(0,"USR_PAR.DMS",J)) Q:$P(J," ")'=UI1USR!'$L(J)  D
	. S N=^(J,0)
	. S I=$$DI^cAN000($P(^DPAR(0,"PAR.DMS",$P(N,D,2),0),D,QTU*10-8),$P(N,D,2))
	. I '$D(^HULP("SORT",RSORT,I)) D USRV(N) Q
	. S N=^(I)
	. D USRW(N)
	. K ^HULP("SORT",RSORT,I)
	S I="" F  S I=$O(^HULP("SORT",RSORT,I)) Q:I=""  D
	. S N=^(I)
	. I '+$TR($P(N,D,3,11),D) Q
	. D USRO(N)
	D C^cA612
USRZ	D RELSORT^cAFA1(RSORT) Q
	;
USRA	; alles op ja/neen
	N R,I,NO,BI
USRA1	S R="BI\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""12-[K""&$L(K)" D R0 G USRAZ:K="-"
	S R="NO\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""1-""[K" D R0 G USRA1:K="-"
	S I=""
	F  S I=$O(^HULP("SORT",RSORT,I)) Q:I=""  S $P(^(I),D,BI+2)=NO
	S REFRESH=1
USRAZ	Q
	;
USRO(N)	; openen
	I '+$TR($P(N,D,3,11),D) Q
	N TAB
	S TAB(1)=N
	D P^cAN220("USR_PAR.DMS",0,$TR($P(N,D,1,2),D," "),"TAB","")
USROZ	Q
	;
USRV(UI1USR,UI1PAR)	; verwijderen
	D X^cAN220("USR_PAR.DMS",0,UI1USR_" "_UI1PAR)
USRVZ	Q
	;
USRW(N)	; wijzigen
	I '+$TR($P(N,D,3,11),D) D USRV($P(N,D),$P(N,D,2)) G USRWZ
	N TAB,I
	F I=3:1:11 S TAB(100+I)=$P(N,D,I)
	D B^cAN220("USR_PAR.DMS",0,$TR($P(N,D,1,2),D," "),"TAB")
USRWZ	Q
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93