cANCJOBL	       ;Logging gestopte jobs ;cANCJOBL [ 06/29/00  12:17 PM ]
	;
	G 1
	;
T0	;Logging gestopte jobs;
T1	;Initialen\"[] = allemaal   xxx[] = specifieke initialen   .[] = synoniemen";alle;Initialen;
T2	;Server;
T3	;Periode;
T4	;Enkel jobs in transactie\"[] = neen   1[] = ja";
	;
T0F	;Journal des jobs arrêtés;
T1F	;Initiales\"[] = tous   xxx[] = initiales spécifiques   .[] = synonymes";tous;Initiales;
T2F	;Serveur;
T3F	;Période;
T4F	;Seulement les jobs en transaction\"[] = non   1[] = qui";
	;
T0E	;Logging gestopte jobs;
T1E	;Initialen\"[] = allemaal   xxx[] = specifieke initialen   .[] = synoniemen";alle;Initialen;
T2E	;Server;
T3E	;Periode;
T4E	;Enkel jobs in transactie\"[] = neen   1[] = ja";
	;
1	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11	S VAN=$$VAN^cAN005(DT,2,3)
13	I VAN="-" G YZ
15	S TOT=$$TOT^cAN005(VAN,4,3,VAN)
17	I TOT="-" W /CUP(4,2),@F2 G 11
19	S R="LQU\22\3\"_$P($T(@("T1"_QT)),U,2)_"\3\\" D R0 I K="-" G 15
	;
2	I K="." S K=$$^cANSYN("USR") G 19:K="-" S LQU=$$SIG^cAFA1("USR",K,101)
21	W /CUP(6,3),/SGR(4),$P($T(@("T1"_QT)),U,4),/SGR(0),": ",$S($L(LQU):LQU,1:$P($T(@("T1"_QT)),U,3)),/EL(0)
23	S R="TRANS\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-1""[K" D R0 I K="-" G 19
25	S BEGIN=$$DC^cAFD1(VAN)_" "
27	S EINDE=$$DC^cAFD1(TOT)_" zzzz"
29	S FILTER=$S(LQU'="":"I $P(UI1,"" "")=LQU",1:"I 1"),FILTER=FILTER_$S(TRANS=1:"&($P(@UREF@(0),D,7)=0)",1:"")
	;
	;  Oproepen horizontaal scherm
3	D RS^cAN210("JOBL","0","0","0","")
31	G 23
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
TOP	S OK=0
	S UTOP(1)=2_D_1_D_$P($T(@("T2"_QT)),U,2)_D_4
	S UTOP(1.1)=2_D_8_D_": "_boot
	S UTOP(2)=2_D_41_D_$P($T(@("T3"_QT)),U,2)_D_4
	S UTOP(2.1)=2_D_49_D_": "_VAN_" - "_TOT
TOPZ	Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84