cQLOG ;Logon en Logoff ;cQLOG; [ 07/03/00  9:33 AM ]
 Q
 ;
T0 ;Logon en Logoff ;
T1 ;Plaats smal blanko papier op de printer\"[] = ok   ,[] = hernemen";
T2 ;Blz :;
T3 ;Scherm of printer\"S[] = scherm   P[] = printer   V[] = verwijderen   -[] = einde programma"
T4 ;Verwijderen t.e.m.\"dd.mm.jj[] = datum"
 ;
IN D LOG("On")
 Q
 ;
OUT D LOG("Off")
 Q
 ;
LOG(K) N A,B,P D MASTER^cQ5
 S io=$G(io,$$IO^cQ5),A=$G(^cLOG(cs,"LOG",0)),B=$G(^cLOG(cs,"LOG",io))
 I A=1!(A=2&B)!(A=3&'B) D
 . D ^cA105,^cA106
 . S ^ZZLOG("LOGON",boot,$I,io,+$H,+$P($H,",",2))=K_"\"_DT_"\"_TD_"\"_$J_"\"_$ZU(5)_"\"_$G(QU,"??")
 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)) D MASTER^cQ5
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",boot,ZD)) Q:ZD=""!(K="-")  D
 . F  S I=$O(^ZZLOG("LOGON",boot,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(boot,"DDB",C,L))
 .. F  S H=$O(^ZZLOG("LOGON",boot,ZD,I,H)) Q:H=""!(K="-")  W ! D
 ... F  S M=$O(^ZZLOG("LOGON",boot,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
 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"",boot)"
 F  S X=$Q(@X) Q:X=""  I $P(X,",",3)'>RH K @X
 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,!
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8