cQSSD	;Stop Cache ;cQSSD;
	;
	;
T0	;Stoppen Cache ;
T1	;Stoppen van Cache\".[] = ja   [] = neen";
T2	;Wenst u het stoppen te forceren\".[] = ja   [] = neen";
T3	;Geef de code;
T4	;Fout: ;
T5	;Cache werd niet gestopt!  [] = ok ;
T6	;Stoppen\".[] = ja   -[] = einde programma"
T7	;Er zijn nog andere jobs actief;
	;
T0F	;Arrêter le système ;
T1F	;Arrêter le système\".[] = oui   [] = non";
T2F	;Voulez-vous forcer l'arrêt\".[] = oui   [] = non";
T3F	;Donnez le code;
T4F	;Erreur: ;
T5F	;Le système n'a pas ete errête!  [] = ok ;
T6F	;Arrêt\".[] = oui   -[] = fin du programme"
T7F	;D'autres jobs sont encore actifs;
	;
T0E	;Shutdown Cache ;
T1E	;Shutdown Cache\".[] = yes   [] = no";
T2E	;Do you want to force the shutdown\".[] = yes   [] = no";
T3E	;Give the code;
T4E	;Error: ;
T5E	;Cache has not been shutdown!  [] = ok ;
T6E	;Shutdown\".[] = yes  -[] = end program"
T7E	;There are other jobs active;
	;
T0D	;Shutdown Cache ;
T1D	;Shutdown Cache\".[] = yes   [] = no";
T2D	;Do you want to force the shutdown\".[] = yes   [] = no";
T3D	;Give the code;
T4D	;Error: ;
T5D	;Cache has not been shutdown!  [] = ok ;
T6D	;Shutdown\".[] = yes  -[] = end program"
T7D	;There are other jobs active;
	;
1	D INI^cQ6
	;
2	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K\" D R0 G YZ:"-"[K
	;
3	D SHUT H
	;
YZ	Q
	;
SHUT	S %nspc=$ZU(5)  ; remember current namespace
	ZN "%SYS" S X=$$%swset^SWSET(16,1)  ;Set shutdown in progress switch
	ZN %nspc  ; switch back to where you came from
	S X=$$JNW^cQFILE($P($ZU(86),"\",1,(($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010"))+3)_"\bin\css.exe stop "_$P($ZU(86),"*",2))
SHUTZ	Q
	;
MENU	W @F61,@F11,@F1 D S1
	S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-.""[K&$L(K)\" D R0 G MENUZ:K="-"
	D BOUW^cANCJOB S I1="",AANTJ=0
	F  S I1=$O(^TEMP($ZCVT($ZU(110),"U"),$J,"JOBS",I1)) Q:I1=""  S K=^(I1),PID=$P(K,D,2) Q:PID=$J  Q:$P(K,D,17)=1  Q:'$$TJOB^cANCJOB(PID)  Q:"\cQCC\cQCTK1\cQLIMIT\TASKMGR\"[(D_$P(K,D,6)_D)  S AANTJ=AANTJ+1
	I AANTJ>0 W @F1 S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250) D RS^cAN210("JOB","0","0","0","")
	S FP=2203 W @F,@F5 D OUT^cQLOG G 1
MENUZ	Q
	;
DESKT	;Shutdown from the desktop
	D QQM^cQ6 S QU="SYS" D B^cA612,MENU
DESKTZ	H
	;
INT	D SHUT H
	;
RES	S %nspc=$ZU(5)  ; remember current namespace
	ZN "%SYS" S X=$$%swset^SWSET(16,1)  ;Set shutdown in progress switch
	ZN %nspc  ; switch back to where you came from
	S X=$$JNW^cQFILE($P($ZU(86),"\",1,(($P($P($ZV,")",2),"(",1)[" 2008")!($P($P($ZV,")",2),"(",1)[" 2010"))+3)_"\bin\css.exe stopstart "_$P($ZU(86),"*",2))
RESZ	Q
	;
SM	;Set entry op de menu
	S ^DAMBA("MENU",0,90)="Stoppen Administratie\18\43\MENU^cQSSD\D\MENU^cQSSD\\\\\\Shutdown"
SMZ	Q
	;
S1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F,@F5 S FP=202 W @F,@F4,K,@F5,@F2
S1Z	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9