cQUSL ;Logboek wijzigen software ;cQUSL; [ 07/03/00  9:49 AM ]
 ;
T0 ;Logbeoek wijzigen software ;
T1 ;?;Datum;Omschrijving;
T2 ;Keuze\"[] = vervolg   .[] = op printer   V[] = verwijderen   -[] = einde programma";
T3 ;Blz :;
T4 ;Verwijderen logboek tot ;\".[] = ok";
 ;
T0F ;Journal des modifications ;
T1F ;?;Date;Description;
T2F ;Choix\"[] = suite   .[] = sur l'imprimante   V[] = radier   -[] = fin du programme";
T3F ;Page:;
T4F ;Radier le journal jusqu'à ;\".[] = ok";
 ;
1 D INI^cQ6 S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S FP=404 W @F,@F1 F I=2:1:4 S FP=FP+$P("\\4\17",D,I) W @F,$P($T(@("T1"_QT)),U,I)
 S R="302\2179",RH="502#579",RV="306#2106\323#2123" D ^cA319
 I '$D(^cLOG(cs,"UPDATE",0)) D UPDATE^cQ6
15 S NM1=$G(@("^"_Q_"BA(99,1)")),NM2=$G(^(2)),NM3=$G(^(3))
16 S (I2,L)=0,(XP,FP)=604,TL=5,A=2,X="~"
 ;
2 S I2=$O(^cLOG(cs,"UPDATE",I2)),I3="" G 3:I2=""
21 S I3=$O(^cLOG(cs,"UPDATE",I2,I3)) G 2:I3="" S A=^(I3),FP=XP\100*100+4 W @F,$P(A,X) S FP=FP+4
 W @F,$P(A,X,2)," ",$TR($P(A,X,3)," ","") S FP=FP+17,B=$P(A,X,4),L=78-(FP#100)
23 W @F,$E(B,1,L),$J("",L-$L($E(B,1,L))) S B=$E(B,L+1,999)
24 S XP=FP+100 I $L(B),FP<2000 S FP=XP\100*100+4 W @F,$J("",1) S FP=FP+4 W @F,$J("",14) S FP=XP G 23
 I '$P(A,X) S XP=FP+100 I FP<2000 D  S XP=FP+100
 . S FP=XP\100*100+4 W @F,$J("",1) S FP=FP+4 W @F,$J("",14)
 . S FP=XP W @F,$E($P(A,X,5),1,L),$J("",L-$L($E($P(A,X,5),1,L)))
 I FP>2000 D S1 G YZ:K="-",4:K=".",6:K="V" S FP=XP#100+500 G 24:$L(A) S XP=604
26 G 21
 ;
3 D S3
31 D S1 G YZ:K="-",4:K=".",6:K="V",16:K=""
 ;
4 S R=1_D_1 D ^cA345 I K="-"!(K=",") G 31
 S BLZ=1 X F70 W @F80 S I2=0,LN=0,K=$P($T(@("T0"_QT)),U,2),V1=0,V2=5,V3=22,V4=130
42 W !,NM1,?V4-8,$P($T(@("T3"_QT)),U,2),$J(BLZ,3),!,NM2,*13,?V4\2-$L(K),@F82,K,@F83,*13,?V4-8,DT,!,NM3,?V4-7,TD,!
 D S2 W !,@F30," ",$P($T(@("T1"_QT)),U,2),?V2,@F30," ",$P($T(@("T1"_QT)),U,3),?V3,@F30," ",$P($T(@("T1"_QT)),U,4),?V4,@F30 D S2
 ;
5 S I2=$O(^cLOG(cs,"UPDATE",I2)),I3="" I I2="" D S2 W $$FF^cA334 X F71 G YZ
51 S I3=$O(^cLOG(cs,"UPDATE",I2,I3)) G 5:I3=""
 S A=^(I3),L=$P(A,X,4) W !,@F30," ",$P(A,X,1),?V2,@F30," ",$P(A,X,2)," ",$TR($P(A,X,3)," "),?V3,@F30
53 W " ",$E(L,1,V4-V3-3),?V4,@F30 S L=$E(L,V4-V3-2,999),LN=LN+1 I $L(L) W !,@F30,?V2,@F30,?V3,@F30 G 53
 I '$P(A,X) W !,@F30,?V2,@F30,?V3,@F30," ",$E($P(A,X,5),1,V4-V3-3),?V4,@F30
 I LN>LNMAX D S2 W $$FF^cA334 S LN=0,BLZ=BLZ+1 G 42
 G 51
 ;
6 S MAX=+$H-$P($G(^cLOG(cs,"UPDATE",0)),D)
 S R="K\23\3\"_$P($T(@("T4"_QT)),U,2)_$$HD^cAFD1(MAX)_$P($T(@("T4"_QT)),U,3)_"\1\\""-.""[K&$L(K)\" D R0 G 31:K="-"
 S I2=$O(^cLOG(cs,"UPDATE",0)),I2=0
 F  S I2=$O(^(I2)) Q:I2=""!(I2>MAX)  K ^(I2)
 S FP=504,L=54 D S3 G 16
 ;
YZ Q
 ;
S1 S R="K\23\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.V""[K\\\1" D R0
S1Z Q
 ;
S2 W !,@F30 F I=1:1:3 S S="",$P(S,"-",@("V"_(I+1))-@("V"_I)-1)="-" W S,@F30
S2Z K S Q
 ;
S3 S XP=FP+100\100*100+4 F XP=XP:100:2004 S FP=XP W @F,$J("",1) S FP=FP+4 W @F,$J("",14) S FP=FP+17 W @F,$J("",L)
S3Z Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8