cTTSC	;Tied Terminal Program (Scanner) ;cTTSC;
	;
T0	;Tied Terminal Program (Scanner) ;
T1	;Verbinding verbroken;
T2	;Port ;, Job ;U mag momenteel niet werken.;
T3	;Code : ;Verkeerd paswoord;Verkeerde toegangskode;
	;
T0F	;Tied Terminal Program (Scanner) ;
T1F	;Liaison interrompue;
T2F	;Port ;, Job ;Actuellement, on ne peut pas travailler.;
T3F	;Code : ;Mot de passe incorrect;Code d'accès incorrect;
	;
T0E	;Tied Terminal Program (Scanner) ;
T1E	;Connection lost;
T2E	;Port ; Job ;At this moment, nobody is allowed to work.;
T3E	;Password: ;Password is incorrect;Access Code is incorrect;
	;
T0D	;Tied Terminal Program (Scanner) ;
T1D	;Connection lost;
T2D	;Port ; 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")
	D QT^cQ5 S $ZT="ER^"_$T(+0),io=$G(io,$$IO^cQ5)
	D CM^cQZSTART  	;Check for multiple login's
	S SRT=$P($G(^cQSYS(0,"DDB",io)),",",4) S:SRT="" SRT="PDT"
	D O^cA612(1,1,8,$S(SRT="VRC":40,SRT="PDT":20,1:80),0,1,1,1)
12	I io>1!$G(^cLOG(0,"WORKSTATION",$ZCVT($ZU(110),"U"))) I '$G(^cLOG($ZCVT($ZU(110),"U"),"TTT"),1) D  G 34
	. W !,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,".",!
	. S K="" F I="","F","E" S K=K_$P($T(@("T2"_I)),";",4)_"   "
	. S I=1 F  D  Q:'$L(L)  W L,! S I=I+20
	.. F I=I:1 S L=$E(K,I,I+20) Q:'$L(L)  Q:$E(L)'=" "
	. I $D(^$R("cQQ")) B 0 U 0:(:"S") R "",*K:6 U 0:(:"") I K=25 W "." R K:9 W !!!!!!!!!!!!!!!!!!!!!!!! D ^cA106 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=^cLOG($ZCVT($ZU(110),"U"),"PW",io)
	. F I=1:1:3 U 0:(:"S") W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:"") Q:K=P
21	D IN^cA5000SC($S(SRT="VRC":2,SRT="PDT":1,1:0)) S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangscontr.
	I K G 3    ;toegang geweigerd
	D LIC^cQSYS($S($L($G(QU)):QU,1:"ZZZ"))  ;License login
	I SRT="PDT" D ^cA501SC G 3    ; starten menu PDT
	I SRT="VRC" D ^cA501VRC G 3   ; starten menu VRC
	;
3	S K=$P($T(@("T1"_QT)),";",2) W !,@F1,!,K,! D OUT^cQLOG H 2
	I $G(QW) D E^cA612    ; End zwintem
34	H
	;
YZ	Q
	;
ER	S $ZT="ERZ^"_$T(+0) I $ZE["<EDITED>" S K=$P($P($ZE,">",2),"^",1) G @K
	U 0 W !!?2,"ERROR : ",$ZE,! D KON^cQ4 W ! R %2
ERZ	H
	;
ZZ	; 09.11.2011 - 11:20 * Cache-r6.4.7