cICHKVOS(DAG,TST)	;Verwijderen oude sessies ;%ICHKVOS [ 02/07/02  10:10 AM ]
	G 1
	; DAG = aantal dagen 
	; TST = 1 indien enkel tonen oude sessies
	;
BG(DAG)	;Verwijderen oude sessies
	; ingang voor BG-job
	S JBD=1 G 1
	;
T0	;Verwijderen oude sessies;
	;
T0F	;Verwijderen oude sessies;
	;
T0E	;Verwijderen oude sessies;
	;
1	D
	. N DAG,TST,JBD
	. D QQM^cQ6
	S %UCO=$ZU(5) D UCILIB^cQMSMSW
	S QU="DAM",DAG=$G(DAG,2)
	D ^cA105,^cA106 S DATE=$$DH^cAFA1(DT)
	S J="" F  S J=$O(^cJOB(J)) Q:J=""  I J'=$J,$d(^cJOB(J,boot,"job","DATE_TIME")),$P($G(^("DATE_TIME")),D)'=DT,$P($G(^("date_time")),D)'=DT D
	. I $G(^("nokill")) Q   ; mag niet verwijderd worden
	. S DATEI=$P($G(^("DATE_TIME")),D)
	. I DATEI,DATE-$$DH^cAFA1(DATEI)<DAG Q
	. S DATEM=$P($G(^("date_time")),D)
	. I DATEM,DATE-$$DH^cAFA1(DATEM)<DAG Q
	. S job(J)=J_"  "_$G(^cJOB(J,boot,"job","qu"))_"  -  "_$P($G(^("DATE_TIME")),D,1,2)_"  "_$P($G(^("date_time")),D,1,2)_" "_$P($g(^("menu_line")),D)
	. I '$G(JBD) W !,job(J)
	;
	I $G(TST) G YZ
	;
2	; E-mail + verwijderen job
	K JOB D NOSH^cQMSMSY D S2^cQMSMKJ
	S $ZT="^cA405",%JO="",$ZT="ER^"_$T(+0)
	F  S %JO=$O(job(%JO)) Q:%JO=""  D
	. I %JO=$J Q
	. I '$d(JOB(%JO)) K ^cJOB(%JO) Q
	. I '$$ACTIVE^cACTJOB(%JO) K ^cJOB(%JO) Q
	. S TEKST(1)=$P($ZU(5),",",2)_" : "_$G(^cJOB(%JO,boot,"job","qu"))
	. S VAR("B1")=$G(^("qu"))
	. S TEKST(2)=DT_" - "_TD
	. S TEKST(3)="Job : "_%JO_", Ref.Port : "_$G(^("IO"))_", Date : "_$TR($P($G(^("DATE_TIME")),D,1,2),"/")
	. S TEKST(4)="      Last menu : "_$P($G(^("menu_line")),D)_" "_$TR($G(^("date_time")),D,"/")
	. S TEKST(5)="Gestopt door "_QU_" op "_DT_" om "_TD
	. ; nieuwe alert
	. D D1007^cANEM0($T(+0),$P($T(T0),U,2))
	. D ^cA338 S JOB("QU")=$G(QU) K (%JO,JOB,boot,cs)
	. S $ZT="ER^"_$T(+0) D LVL^cQ9(%JO),VAR^cQMSMKJ,IN^cQMSMSW($V(2,%JO,2))
	. S %="Stopped in "_$P(JOB(%JO),"\",3)_" by Dev "_$P_" ("_$ZDEV($P)_") "_JOB("QU")
	. S %("$J")=%JO,%("$I")=+$P(JOB(%JO),"\",2) S:'%("$I") %("$I")=""
	. ; I %("$I"),$D(%Q1),$D(@("^"_Q_"BA(""%1"",%(""$I""))")),'^(%("$I")) D
	. ; KU : 14.01.03
	. I %("$J"),$D(%Q1),$D(^TEMP("%1",("$J"))),'^(%("$J")) D
	.. D D1005^cANEM0($T(+0),$P($T(T0),U,2))
	. K JOB,%JO D ^cA400
	. D UCILIB^cQMSMSW,^cA339,MVER^cQ13
	. I %v(43)+$g(%v(44)) D KILL^KILLJOB(%JO,1,1)
	. I '(%v(43)+$g(%v(44))) D KILL^KILLJOB(%JO,1)
	. I '%QF K ^cJOB(%JO)
	;
	L  C 63 K %I,%JO,%K,%ACTIVE,%P
	;
YZ	D IN^cQMSMSW(%UCO)
	Q
	;
	; opzetten swicht om niet automatisch verwijderd te worden
NK(R)	s ^cJOB($j,boot,"job","nokill")=$G(R)
	Q
	;
ER	S %=$ZE D ^cA400 S $ZE=""
	D UCILIB^cQMSMSW,^cA339,MVER^cQ13
	Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94