IINT	;Tied terminal program (Caché) ;IINT;
	G 1
	;
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	;Tied terminal program (Caché) ;
T1	;De terminal is niet meer verbonden.;
T2	;Scherm ; Job ;. U mag momenteel niet werken.;
T3	;Wachtwoord: ;Verkeerd wachtwoord;Verkeerde toegangscode;
	;
T0F	;Tied terminal program (Caché);
T1F	;Le terminal n'est plus connecté.;
T2F	;Ecran ; Job ;. Actuellement, on ne peut pas travailler.;
T3F	;Mot de passe: ;Mot de passe incorrect;Code d'accès incorrect;
	;
T0E	;Tied terminal program (Caché) ;
T1E	;The terminal is no longer connected.;
T2E	;Terminal ; Job ;. At this moment, nobody is allowed to work.;
T3E	;Password: ;Password is incorrect;Access Code is incorrect;
	;
T0D	;Tied terminal program (Caché) ;
T1D	;The terminal is no longer connected.;
T2D	;Terminal ; Job ;. At this moment, nobody is allowed to work.;
T3D	;Password: ;Password is incorrect;Access Code is incorrect;
	;
1	B 0 D QQM^cQ6,MASTER^cQ5
	I $D(^cLOG($ZCVT($ZU(110),"U"),"LOGIN","QT")) S QT=$TR(^("QT"),"N")
	S QT=$G(QT,""),QTU=$S($L($G(QT)):$F("FDE",$G(QT)),1:1),$ZT="ER^"_$T(+0),io=$G(io,$$IO^cQ5)
	I '$G(^cLOG($ZCVT($ZU(110),"U"),"LOGON",0)) S K=$P($G(^cLOG($ZCVT($ZU(110),"U"),"DEV",io),0),"\") I $D(^cLOG(0,"LOGON",K)) X ^(K)
	D BX^cQ13
	I $D(^cLOG($ZCVT($ZU(110),"U"),"LOGIN",io)) H:'^(io)  S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K
11	I $D(^cLOG($ZCVT($ZU(110),"U"),"MODEM",io)),^(io,1) U 0:(:"S") F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q
12	I io>1!$G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U"))) I '$G(^cLOG($ZCVT($ZU(110),"U"),"TTT"),1) D  G 33
	. F I="","F","E" D
	.. W !!?2,$P($T(@("T2"_I)),";",2),io,$P($T(@("T2"_I)),";",3),$J,$P($T(@("T2"_I)),";",4)
	.. W !!?2,$P($T(@("T1"_I)),";",2),!!
	. I $D(^$R("cQQ")) B 0 U 0:(:"S") R "",*K:9 U 0:(:"") I K=25 W "." R K:9 W !!!!!!!!!!!!!!!!!!!!!!!! D date G 12:DD_DM_DJ#$H'=K K  D ^cQQ G 1
13	U 0:(:"")
	;
2	I $D(^cLOG($ZCVT($ZU(110),"U"),"PW",io)),$L(^(io)) D  I K'=P S QU=$P($T(@("T3"_QT)),";",3) D IN^cQLOG G 3
	. S P=^(io) U 0:(:"S") W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:"")
21	D ^cA5000 S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangscontrole
	I K G 3  ;toegang geweigerd
	D LIC^cQSYS($S($L($G(QU)):QU,1:"ZZZ"))  ;License login
	D ^cA501 ;starten menu
25	I $G(^cLOG($ZU(5),"LOGIN",0)) G 21
	;
3	S io=$G(io,$$IO^cQ5)
31	S K=$P($T(@("T1"_QT)),";",2),FP=1318+$L(K) W @F11,@F1,@F,@F5 S FP=1317 W @F,@F4,K,@F5 D OUT^cQLOG
	I $G(QW) D E^cA612    ; End zwintem
32	S K=0 S:$D(^cLOG($ZCVT($ZU(110),"U"),"DEV",io)) K=$P(^(io),"\") I $D(^cLOG(0,"LOGOUT",K)) X ^(K)
33	I $D(^cLOG($ZCVT($ZU(110),"U"),"MODEM",io)),^(io,1) D  I ^cLOG($ZCVT($ZU(110),"U"),"MODEM",io,8) D  U $P:(:"")
	. F I=1:1:^cLOG($ZCVT($ZU(110),"U"),"MODEM",io,4) X ^cLOG($ZCVT($ZU(110),"U"),"MODEM",io,4,I) F J=1:1:5 R K:1 I '$T,'$L(K) Q
34	H
	;
YZ	Q
	;
ER	S $ZT="ERZ^"_$T(+0),%=$ZE I %["<EDITED>",%[$T(+0) G 25
	S %ZTRAP="ER^"_$T(+0) D ^cA400 H:%["<DSCON>"  U 0 W !!?2,"ERROR : ",$ZE,! D KON^cQ4 W ! R %2
ERZ	H
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9