cQLOG	;Logon en Logoff ;cQLOG;
	Q
	;
date	;date
	N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
	F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
	S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
datez	Q
time	;time
	N %J,%R S QT=$G(QT),%R=$P($H,",",2)\60,%J=%R\60
	S TD=$J(%J,2)_$P(" u ; h ; h ",";",$S(QT="F":2,QT="E":3,1:1))_(%R#60\10)_(%R#10)
timez	Q
doubleq(X)	;Double quotes in string
	N Y S Y=0 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
doubleqz	K Y Q X
	;
T0	;Logon en Logoff ;
T1	;Put A4 paper on the printer\"[] = ok   ,[] = go back";
T2	;Page:;
T3	;Screen or printer\"S[] = screen   P[] = printer   V[] = delete   -[] = end program"
T4	;Delete up until\"dd.mm.yy[] = date"
	;
IN	D LOG("On")
	Q
	;
OUT	D LOG("Off")
	Q
	;
LOG(K)	N A,B,P
	S io=$G(io,$$IO^cQ5),A=$G(^cLOG($ZU(5),"LOG",0)),B=$G(^cLOG($ZU(5),"LOG",io))
	I A=1!(A=2&B)!(A=3&'B) D
	. D date,time
	. S ^ZZLOG("LOGON",$ZCVT($ZU(110),"U"),$I,io,+$H,+$P($H,",",2))=K_"\"_DT_"\"_TD_"\"_$J_"\"_$ZU(5)_"\"_$G(QU,"??")
LOGZ	Q
	;
SHOW	D INI^cQ6 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	S NM2=$G(@("^"_Q_"BA(99,2)")),NM3=$G(^(3))
SHOW1	S R="OP\22\3\"_$P($T(T3),U,2)_"\1\\""SPV-""[K&$L(K)\\\1" D ^cA100 Q:K="-"
	I OP="V" D DEL G SHOW
	I OP="S" W @F11,@F1
	I OP="P" D  I K="-"!(K=",") G SHOW1
	. S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-,""[K\" D ^cA100 I K="-"!(K=",") Q
	. S BLZ=0 X F70 W @F80 S TIT=$P($T(+1),U,2) D HD
	S D="\",(H,I,M)="",ZD=""
	S C=$$CONFIG^cQ9,$Y=1,ZDO=0
	F  S ZD=$O(^ZZLOG("LOGON",$ZCVT($ZU(110),"U"),ZD)) Q:ZD=""!(K="-")  D
	. F  S I=$O(^ZZLOG("LOGON",$ZCVT($ZU(110),"U"),ZD,I)) Q:I=""!(K="-")  S J=0,L=I,X="" D
	.. I ZD'=ZDO D
	... S ZDO=ZD I ZD'=I D
	.... F  S X=$O(^QSYS(C,"DDB",X)) Q:X=""!(K="-")  I $P(^(X),",",2)=ZD S L=X Q
	... W !!,ZD,?30,$G(^cLOG($ZCVT($ZU(110),"U"),"DDB",C,L))
	.. F  S H=$O(^ZZLOG("LOGON",$ZCVT($ZU(110),"U"),ZD,I,H)) Q:H=""!(K="-")  W ! D
	... F  S M=$O(^ZZLOG("LOGON",$ZCVT($ZU(110),"U"),ZD,I,H,M)) Q:M=""!(K="-")  D
	.... S X=^(M) W !?2,"$I = ",I,?12,"$J = ",$P(X,D,4),?22,$P(X,D),?25,": ",$P(X,D,2),"  ",$P(X,D,3),?46,$P(X,D,5),?55,$P(X,D,6)
	.... I OP="S",$Y>20 W !!,"[] = next: " R K S $Y=1 F X=$X:-1:1 W *8," ",*8
	.... I OP="P",$Y>56 W $$FF^cA334 D HD
	I OP="S" W !!,"[] = ok: " R X
	I OP="P" W $$FF^cA334 X F71
SHOWZ	Q
	;
DEL	S R="RD\22\3\"_$P($T(T4),U,2)_"\8\DCTR\\\\1" D ^cA100 Q:K="-"
	S RH=$$DH^cAFD1(RD),X="^ZZLOG(""LOGON"","""_$ZCVT($ZU(110),"U")_""")"
	F  S X=$Q(@X) Q:X=""  I $P(X,",",3)'>RH K @X
DELZ	Q
	;
HD	S $Y=1,BLZ=BLZ+1
	W !,QN,?72,$P($T(T2),U,2),$J(BLZ,3),!,NM2,*13,?40-$L(TIT),@F82,TIT,@F83,*13,?72,DT,!,NM3,?73,TD,!
HDZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9