cQ4 ;Messages ;cQ4; [ 03/13/00  5:22 PM ]
 G YZ
 ;
T0 ;Boodschappen ;
T1 ;Contact opnemen met: ;uw software-leverancier;
T2 ;U heeft geen toegang tot dit programma;
 ;
T0F ;Messages ;
T1F ;Veuillez contacter: ;votre fournisseur du logiciel;
T2F ;Vous n'avez pas d'accès a ce programme;
 ;
KON W $$KA()
KONZ Q
 ;
KA() N K,L,M
 S QT=$G(QT),M=$P($T(@("T1"_QT)),";",2),K=$P($T(@("T1"_QT)),";",3)
 I $D(^cLOG(0,"ADRES",0)) S L=^(0) I $D(^cLOG(0,"ADRES",L,1)),$D(^(4)) S K=^(1)_" - "_^(4)
 Q M_K
 ;
NOACCES N R S QT=$G(QT),R=$P($T(@("T2"_QT)),";",2) D MS
NOACCESZ Q
 ;
MS U $P S R=$G(R) I $D(R(1)) S FP=2303 W @F,@F1,@F4,R(1),$J("",$L(R)+10-$L(R(1))),@F5
 S FP=2403 W @F,@F4,R,$J("",$L($G(R(1)))-10-$L(R)),"  [] = ok ",@F5,@F2,@F0 R *K
 S FP=2303 W @F
MSZ Q
 ;
EXEC(L) ;Execute line from ^cLOG(boot,"EXEC")
 S L=$G(L) D MASTER^%Q5
 I $L(L),$D(^cLOG(boot,"EXEC",L)) S X=^(L) I $L(X) X X
 Q
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8