cAN223(DMS)        ;Print-out logging ;%AN223 ; [ 01/04/01  9:35 AM ]
 ;
T0 ;Print-out logging ;
T1 ;Bestand;
T2 ;Welke gegevens\"[] = gewijzigde    .[] = verwijderde    1[] = enkel geopende";Gewijzigde gegevens;Verwijderde gegevens;Geopende gegevens;
T3 ;Detail\"[] = ja   .[] = neen";
T4 ;Gegevens gelinkte bestanden\"[] = ja   .[] = neen";Met ;Zonder ;gelinkte bestanden;
 ;
T0F ;Impression logging ;
T1F ;Fichier;
T2F ;Quelle données\"[] = modifiées   .[] = annulées   1[] = seulement creées";Données modifiées;Données annulées;Données creées;
T3F ;Détail\"[] = oui   .[] = non";
T4F ;Données fichiers liés\"[] = oui   .[] = non";Avec ;Sans ;fichiers liées;
 ;
T0E ;Print-out logging ;
T1E ;File;
T2E ;What data\"[] = modified    .[] = removed    1[] = only creations";Modified data;Removed data;Creations;
T3E ;Detail\"[] = yes   .[] = no";
T4E ;Data linked files\"[] = yes   .[] = no";With ;Without ;linked files;
 ;
 ; kader + titel
1 ;D O^cA612(2,1,20,80,1,1,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11 D DMS^cAN000("UQC","USC",DMS) G YZ:UQC="",YZ:USC="",YZ:'$D(^DMC(UQC,USC,"LOGGING"))
13 S DLOGREF=^("LOGGING"),UDD=^("DATA"),UOM=$P(^("TAAL",$E(QT_"N")),D,2)
15 W /CUP(2,3),/SGR(4),$P($T(@("T1"_QT)),U,2),/SGR(0)," : ",$$UC^cAFA1($E(UOM)),$E(UOM,2,99)
 S D1="01"_$E(DT,3,8),D2=DT
 ;
 ; vraagstelling
2 S D1=$$VAN^cAN005(D1,4,3,"01.01.80",DT) I K="-"!(K=",") G YZ
21 S D2=$$TOT^cAN005(D2,5,3,D1,DT) I K="-"!(K=",") G 2
22 S R="SWV\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.1""[K" D R0 G 21:K="-",2:K=","
23 W /CUP(7,3),@F1,$P($T(@("T2"_QT)),U,$S(SWV="":3,SWV:5,1:4))
24 I SWV="." D  G 22:K="-",2:K=","
 . S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K" D R0
 . I K'="-",K'="," S DET='$L(K) W /CUP(9,2),@F6,$P($P($T(@("T3"_QT)),U,2),D),@F9,": ",$$JN^cAFO1(DET)
25 S SWLI=".",LI=$O(^DMC(UQC,USC,"LINK","")) G 28:'$L(LI)
26 S R="SWLI\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 23:K="-"&(SWV="."),22:K="-",2:K=","
27 W /CUP(8,3),$P($T(@("T4"_QT)),U,3+(SWLI="."))_$P($T(@("T4"_QT)),U,5),@F2
28 I SWV'="." D ^cAN003(9,DMS) G 26:K="-"&$L(LI),22:K="-",2:K="," S $P(KEU(DMS),D,2)=1
29 D ^cAN3223("","1#2#4",80,0) G 2:K=",",26:K="-"&$L(LI)&(SWV="."),23:K="-"&(SWV="."),28:K="-"
 ;
 ; printen
3 G ^cAN2231
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84