cAN2231 ;Print-out logging ;%AN223 ; [ 01/04/01  9:38 AM ]
 G 1
 ;
T0 ;Print-out logging ;
T1 ;Bestand;Gewijzigde gegevens;Verwijderde gegevens;Geopende gegevens;
T2 ;Datum\Door\Rubriek\Vorige inhoud\Nieuwe inhoud;
 ;
T0F ;Impression logging ;
T1F ;Fichier;Données modifiées;Données annulées;Données creées;
T2F ;Date\Init.\Rubrique\Contenu précédent\Nouveau contenu;
 ;
T0E ;Print-out logging ;
T1E ;File;Modified data;Removed data;Creations;
T2E ;Date\By\Element\Previous contents\New contents;
 ;
 ; opbouw TOP
TOP K TOP,UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
TOPA F I=1:1 Q:'$D(UTOP(I))  D
 . I PTS=3 D  Q
 .. I I=1 S TAB=$P(TAB,D,1,6),$P(TIT(1),D)=UTOP(I),TXT(1)=UTOP(I+.1)
 .. I I>1 S X=$L(TAB,D),Y=$P(TAB,D,X),X=X+1,Y=Y+40,$P(TAB,D,X)=Y,$P(TIT(1),D,X)=UTOP(I),TXT(X)=UTOP(I+.1)
 . S TOP(I,1)=UTOP(I)_" : "_UTOP(I+.1),TOP(I,1)=$E(TOP(I,1),1,$P(TAB,D,$L(TAB,D))-1)
TOPB I PTS'=3 S END=8 D ^cA334
TOPZ Q
 ;
 ; van datum tot datum
DET S I=DD1 F  S I=$O(@DLOGREF@(KC,I)) Q:I=""!(I>DD2)  D
 . S B(1)=^(I)
 . I SWV,$P(B(1),D)'="O" Q
 . D PRT
DETZ S END=2 D ^cA334 Q
 ;
 ; 1 lijn printen
PRT S TXT(PTS=3+1)=$P(B(1),D,5),TXT(PTS=3+2)=$P(B(1),D,7)
PRTA S TXT(PTS=3+3)=$P($P(B(1),D,8),"~",QTU) I TXT(PTS=3+3)="" S TXT(PTS=3+3)=$P($P(B(1),D,8),"~")
PRTB S TXT(PTS=3+4)=$P(B(1),D,9),TXT(PTS=3+5)=$P(B(1),D,10)
PRTZ D ^cA334 Q
 ;
 ; initialisatie
1 S $ZT="TRAP^cAN000"
11 S HD(1)=D_$P($T(@("T1"_QT)),U,2)_" : "_$$UC^cAFA1(UOM),HD(2)=D_$P($T(@("T1"_QT)),U,$S(SWV="":3,SWV:5,1:4)),HD(3)=D_D1_" - "_D2
12 I PTS=3 S (NOTOP,NOTIT,NOSEP)=1
13 S TAB="9\15\31\55\79",TIT(1)=$P($T(@("T2"_QT)),U,2,99),V=0
15 I PTS=3 S TAB="40\49\55\71\95\119",TIT(1)=D_TIT(1)
17 S DD1=$$DC^cAFA1(D1),DD2=$$DC^cAFA1(D2)+.999999
19 I SWV="." G 4
 ;
 ; geopende/gewijzigde gegevens
2 S UI1=0
21 D ^cAN004("UI1",DMS) I UI1="" S END=6 D ^cA334 G YZ
23 S KC=UI1 I UDD<3 S KC=$P(UI1," ",3-UDD)
25 S I=$O(@DLOGREF@(KC,DD1)) I I=""!(I>DD2) G 3
27 I SWV,$P(^(I),D)'="O" G 21
29 D TOP,DET
 ;
 ; gelinkte bestanden
3 I $G(SWLI)="." G 21
31 S I=0 F  S I=$O(^DMC(UQC,USC,"LINK",I)) Q:I=""  S J=^(I) D
 . N BI,DLOGREF,DMS,I,IREF,S1,S2,UDD,UI1,UQC,USC
 . S DMS=$P(J,D),BI=$P(J,D,2)
 . D DMS^cAN000("UQC","USC",DMS) Q:UQC=""!(USC="")  Q:'$D(^DMC(UQC,USC))
 . Q:'$D(^(USC,"LOGGING"))  S DLOGREF=^("LOGGING")
 . S UDD=^("DATA"),IREF=^("DATA","INDEX")
 . S S1=KC_" ",S2=S1 F  S S2=$O(@IREF@(BI,S2)) Q:$E(S2,1,$L(S1))'=S1  D
 .. S UI1=^(S2)
 .. N KC,S1,S2
 .. S KC=UI1 I UDD<3 S KC=$P(UI1," ",3-UDD)
 .. S I=$O(@DLOGREF@(KC,DD1))
 .. I I>DD1,I<DD2 Q:$P(^(I),D)'="O"&SWV  D TOP,DET
39 G 21
 ;
 ; verwijderde gegevens
4 S KC=0,UREF=^DMC(UQC,USC,"DATA","REF") I PTS=3 S DET=1
41 S KC=$O(@DLOGREF@(KC)) I KC="" S END=6 D ^cA334 G YZ
43 S I=$O(@DLOGREF@(KC,DD2),-1) I I<DD1 G 41
45 S B(1)=^(I) I $P(B(1),D)'="V" G 41
47 S UI1=KC I UDD<3 D
 . I UDD=1 D
 .. S UI1=" " F  S UI1=$O(@UREF) Q:UI1=""!($P(UI1," ",2)=KC)
 .. K TOP,UTOP S UTOP(1)=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D)
 .. S UTOP(1)=$$UC^cAFA1($E(UTOP(1)))_$E(UTOP(1),2,999)
 .. S UTOP(1.1)=KC I $L(UI1) S UTOP(1.1)=KC_" "_$P(@UREF@(0),D,2)
 .. D TOPA
 . I UDD=2 S UI1=KC_" "
49 D TOP:UDD>1,DET:DET I 'DET D PRT S END=2 D ^cA334
 ;
 ; gelinkte bestanden
5 I $G(SWLI)="." G 41
51 S I=0 F  S I=$O(^DMC(UQC,USC,"LINK",I)) Q:I=""  S J=^(I) D
 . N BI,DLOGREF,DMS,I,IREF,S1,S2,UDD,UI1,UQC,USC
 . S DMS=$P(J,D),BI=$P(J,D,2)
 . D DMS^cAN000("UQC","USC",DMS) Q:UQC=""!(USC="")  Q:'$D(^DMC(UQC,USC))
 . S UDD=^(USC,"DATA"),IREF=^("DATA","INDEX")
 . S S1=KC_" ",S2=S1 F  S S2=$O(@IREF@(BI,S2)) Q:$E(S2,1,$L(S1))'=S1  D
 .. S UI1=^(S2)
 .. N KC,S1,S2
 .. K TOP,UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
 .. F I=1:1 Q:'$D(UTOP(I))  D
 ... I PTS=3 D  Q
 .... I I=1 S TAB=$P(TAB,D,1,6),$P(TIT(1),D)=UTOP(I),TXT(1)=UTOP(I+.1)
 .... I I>1 S X=$L(TAB,D),Y=$P(TAB,D,X),X=X+1,Y=Y+40,$P(TAB,D,X)=Y,$P(TIT(1),D,X)=UTOP(I),TXT(X)=UTOP(I+.1)
 ... S TOP(I,1)=UTOP(I)_" : "_UTOP(I+.1),TOP(I,1)=$E(TOP(I,1),1,$P(TAB,D,$L(TAB,D))-1)
 .. S END=5 D ^cA334 Q
59 G 41
 ;
YZ G YZ^cAN223
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84