cAN007 ;Beveiliging bestanden ;%AN007 ; [ 03/22/99  2:46 PM ]
 Q
 ;
T0 ;Beveiliging bestanden ;
 ;
T0F ;Protection des fichiers ;
 ;
T0E ;Beveiliging bestanden ;
 ;
O(DMS) ; test op openen : 0=geen toegang   1=wel toegang
 N R,R3
 S R=0,R3=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,3)
 I QL=""!(R3="") S R=1
 I $L(QL),$L(R3)," "_QL[(" "_R3_" ") S R=1
 Q R
 ;
W(DMS) ; test op wijzigen : 0=geen toegang   1=wel toegang
 N R,R4
 S R=0,R4=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,4)
 I QL=""!(R4="") S R=1
 I $L(QL),$L(R4)," "_QL[(" "_R4_" ") S R=1
 Q R
 ;
R(DMS) ; test op raadplegen : 0=geen toegang   1=wel toegang
 N R,R5
 S R=0,R5=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,5)
 I QL=""!(R5="") S R=1
 I $L(QL),$L(R5)," "_QL[(" "_R5_" ") S R=1
 Q R
 ;
V(DMS) ; test op verwijderen : 0=geen toegang   1=wel toegang
 N R,R6
 S R=0,R6=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,6)
 I QL=""!(R6="") S R=1
 I $L(QL),$L(R6)," "_QL[(" "_R6_" ") S R=1
 Q R
 ;
L(DMS) ; test op contr.lijst : 0=geen toegang   1=wel toegang
 N R,R7
 S R=0,R7=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,7)
 I QL=""!(R7="") S R=1
 I $L(QL),$L(R7)," "_QL[(" "_R7_" ") S R=1
 Q R
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84