cQMSMSSD ;STOPPEN ADMINISTRATIE ;cQMSMSSD; [ 02/12/01  3:07 PM ]
 ;
T0 ;Stoppen administratie ;
T1 ;Stoppen van de administratie\".[] = ja   [] = neen";
T2 ;Wenst u het stoppen te forceren\".[] = ja   [] = neen";
T3 ;Geef de code;
T4 ;Fout: ;
T5 ;De administratie werd niet gestopt!  [] = ok ;
T6 ;Stoppen\".[] = ja   -[] = einde programma"
T7 ;Er zijn nog andere jobs actief;
 ;
T0F ;ARRETER LE SYSTEME ;
T1F ;ARRETER LE SYSTEME\".[] = oui   [] = non";
T2F ;VOULEZ-VOUS FORCER L'ARRET\".[] = oui   [] = non";
T3F ;DONNEZ LE CODE;
T4F ;ERREUR: ;
T5F ;LE SYSTEME N'A PAS ETE ARRETE!  [] = ok ;
T6F ;SHUTDOWN\".[] = oui   -[] = fin du programme"
T7F ;D'autres jobs sont encore actifs;
 ;
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=$ZF(-2,$E($$CPF^cQFILE)_":\DataM\CacheSys\bin\css stop cache")
 Q
 ;
MENU W @F61,@F11,@F1 D S1,MASTER^cQ5 
 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(boot,$J,"JOBS",I1)) Q:I1=""  D
 . S STRING=^(I1),PID=$P(STRING,D,2)
 . I PID'=$J&($P(STRING,D,17)'=1)&($$TJOB^cANCJOB(PID)) 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
 ;
BG D SHUT,LOG^cQCTK1 H
 ;
DESKT ;Shutdown from the desktop
 D QQM^cQ6 S QU="SYS" D B^cA612,MENU
 H
 ;
INT D SHUT H
 ;
SM ;Set entry op de menu
 S ^DAMBA("MENU",0,90)="Stoppen Administratie\18\43\MENU^cQMSMSSD\D\MENU^cQMSMSSD\\\\\\Shutdown"
 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 ; 14.02.01 - 16 u 10 * Cache-r2.0.2