cwii ;TIED TERMINAL PROGRAM ;II; [ 11/19/1999  1:25 PM ]
 ;
T0 ;TIED TERMINAL PROGRAM ;
T1 ;DE TERMINAL IS NIET MEER VERBONDEN ;
T2 ;Scherm ; Job ;. U mag momenteel niet werken.;
T3 ;Paswoord: ;Verkeerd paswoord;Verkeerde toegangskode;
 ;
T0F ;TIED TERMINAL PROGRAM ;
T1F ;LE TERMINAL N'EST PLUS CONNECTE ;
T2F ;Ecran ; Job ;. Actuellement, on ne peut pas travailler.;
T3F ;Mot de passe: ;Mot de passe incorrect;Code d'accŠs incorrect;
 ;
1 B 0 U 0:(0::::262144) D QQM^cQ6,MASTER^cQ5,QT^cQ5,BX^cQ13 S $ZT="ER^"_$T(+0)
10 S io=$$IO^cQ5 I $D(^cLOG(boot,"LOGIN",io)) H:'^(io)  S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K
11 I $D(^cLOG(boot,"MODEM",io)),^(io,1) U 0:(::::1) F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q
 ; Volgende lijn tijdelijk gedeaktiveerd
12 I io>1!workst I 0,'$G(^cLOG(cs,"TTT"),1) D  G 33 
 . W !!?2,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,$P($T(@("T2"_QT)),";",4)
 . W !!?2,$P($T(@("T1"_QT)),";",2),!!
 . B 0 U 0:(::::1) R "",*K:2 U 0:(:::::1) I K=25 W "." R K:9 W !!!!!!!!!!!!!!!!!!!!!!!! D ^cA106 G 12:DD_DM_DJ#$H'=K K  D ^cQMSMQ G 1
13 U 0:(:::::1)
 ;
2 I $D(^cLOG(boot,"PW",io)),$L(^(io)) D  I K'=P S QU=$P($T(@("T3"_QT)),";",3) D IN^cQLOG G 3
 . S P=^cLOG(boot,"PW",io)
 . F I=1:1:3 U 0:(::::1) W !!!!!!?2,$P($T(@("T3"_QT)),";",2) R K:10 U 0:(:::::1) Q:K=P
21 D ^cA500 S:K QU=$P($T(@("T3"_QT)),";",4) D IN^cQLOG  ;toegangskontrole
 I K G 3  ;toegang geweigerd
 B
 D ^cA501 ;starten menu
 B
 If '$$CHECKSSD^SYNC Goto 1
 I $G(^cLOG(cs,"LOGIN",0)),$D(^cLOG(0,"MEMO"))#10 G 21:$P($ZU(5),",")'="MGR" D ^cQMSMUX G 1
 ;
3 D MASTER^cQ5,MVER^cQ13 G 4:workst I $I=1,%v("PC")!%v("NT") G 4
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(boot,"DEV",io)) K=$P(^(io),"\") I $D(^cLOG(0,"LOGOUT",K)) X ^(K)
33 I $D(^cLOG(boot,"MODEM",io)),^(io,1) D  I ^cLOG(boot,"MODEM",io,8) D  U $P:(::::1)
 . F I=1:1:^cLOG(boot,"MODEM",io,4) X ^cLOG(boot,"MODEM",io,4,I) F J=1:1:5 R K:1 I '$T,'$L(K) Q
34 H
 ;
4 D AKT^cQMSMKON I vhSW D:$G(QW) E^cA612 G 34:workst,1
41 D OUT^cQLOG I 'workst S OK=1 D ^cQMSMSSD I K="-" G 21
42 I workst D LOGIN^cQ6("Y") V $V(18,-5)+155:-3:1:1 C $P O 1 V 2:$J:1:2 D AUTO^SSD
 ;
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
 U 0 R %2 D ^cA106 I DD_DM_DJ#$H\2=%2 B 1 S $ZT="" X ^c G YZ
ERZ W ! R %2 H
 ;
ZZ ; 05.05.97 - 13 u 46 * 4.x.yy-r4.0.2