cANU50 ;Beveiliging bestanden ;%ANU50 ; [ 10/08/97  4:02 PM ]
 Q
 ;
T0 ;Beveiliging bestanden ;
 ;
T0F ;Sécurité des fichiers ;
 ;
SEC(DMS) ; test op beveiliging : 0=geen toegang   1=wel toegang
 N R,R9
 S R=0,R9=$P($G(^DPAR(0,"PAR.DMS",DMS,0)),D,9)
 I QL=""!(R9="") S R=1
 I $L(QL),$L(R9)," "_QL[(" "_R9_" ") S R=1
 Q R
 ;
ZZ ; 24.12.97 - 11 u 50 * V6.5