cA516 ;Rapportering log-in's ;%A516 [ 02/24/00  11:51 AM ]
 ;
T0 ; Rapportering log-in's ;
T1 ;Er is geen logging van de log-in's;
T2 ;Poort\"[] = allemaal   nnnn[] = poort nnnn";Poort    ;
T3 ;Initialen\"[] = allemaal   xxx[] = specifieke initialen   .[] = synoniemen";alle;Initialen;
T4 ;Er is geen rapportering voor de gekozen parameters;
T5 ; Verwijderen rapportering ;
T6 ;Verwijderen\"0[] = neen   1[] = ja";
T7 ;Type login\"[] = alle  1[] = foutieve   2[] = geblokkeerde   3[] = foutieve/geblokkeerde";Keuze    ;
T8 ;alle login's;foutieve login's;geblokkeerde login's;foutieve of geblokkeerde login's;
T9 ;Systeem  ;
 ;
T0F ; Rapportage des entrées ;
T1F ;Il n'y a pas d'historique d'entrées;
T2F ;Porte\"[] = toutes les portes   nnnn[] = porte nnnn";Porte    ;
T3F ;Initiales\"[] = tous   xxx[] = initiales spécifiques   .[] = synonymes";tout;Initiales;
T4F ;Il n'y a pas d'historique pour les paramètres choisis;
T5F ; Radiation du rapportage ;
T6F ;Radiation\"0[] = non   1[] = oui";
T7F ;Types d'entrées\"[] = toutes  1[] = fautives   2[] = bloquées   3[] = fautives + bloquées";Choix    ;
T8F ;toutes les entrées;entrées fautives;entrées bloquées;entrées fautives + bloquées;
T9F ;Système  ;
 ;
T0E ; Rapportering log-in's ;
T1E ;Er is geen logging van de log-in's;
T2E ;Poort\"[] = allemaal   nnnn[] = poort nnnn";Poort    ;
T3E ;Initialen\"[] = allemaal   xxx[] = specifieke initialen   .[] = synoniemen";alle;Initialen;
T4E ;Er is geen rapportering voor de gekozen parameters;
T5E ; Verwijderen rapportering ;
T6E ;Verwijderen\"0[] = neen   1[] = ja";
T7E ;Type login\"[] = alle  1[] = foutieve   2[] = geblokkeerde   3[] = foutieve/geblokkeerde";Keuze    ;
T8E ;alle login's;foutieve login's;geblokkeerde login's;foutieve of geblokkeerde login's;
T9E ;Systeem  ;
 ;
1 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
 ;
2 ; keuze systeem
 S SWONE=1
 S IREF=^DMC(0,"LOGIN.SYS","DATA","INDEX")
 I '$L($O(@IREF@(""))) S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
 I $O(@IREF@(""))=$O(@IREF@(""),-1) S UCI=$O(@IREF@("")) G 29
 S UCI=$$^cANSYN("LOGIN.SYS"),SWONE=0 G YZ:UCI="-"
29 W /CUP(2,3),/SGR(4),$P($P($T(@("T9"_QT)),U,2),D),/SGR(0)," : ",UCI,/EL(0)
 ;
3 ; keuze 'van datum'
 D DMS^cAN000("UQC","USC","LOGIN")
 I '$L(UQC)!'$L(USC) G YZ
 S UREF=$G(^DMC(UQC,USC,"DATA","REF")) I '$L(UREF) G YZ
31 S UI1="",UI1=$O(@UREF)  ; eerste datum
 I '$L(UI1) S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
 W /CUP(2,60),$$DCO^cAFA1($E(UI1,1,8)),"-"
 S UI1="",UI1=$O(@UREF,-1)  ; laatste datum
 W $$DCO^cAFA1($E(UI1,1,8))
 S K=$$VAN^cAN005(DT,4,3) I K="-" G 2:'SWONE,YZ
 S BDAT=K
 ;
4 ; keuze 'tot datum'
 S UI1="",UI1=$O(@UREF,-1)  ; laatste datum
 I BDAT?8N S BDAT=$$DCO^cAFD1(BDAT)
 S K=$$TOT^cAN005(BDAT,5,3,BDAT) I K="-" G 31
 S EDAT=K
 ;
5 S R="LQU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\3\\",$P(R,D,11)=1 D R0 I K="-" G 4
 I K="." S K=$$^cANSYN("USR") G 5:K="-" S LQU=$$SIG^cAFA1("USR",K,101)
 W /CUP(7,3),/SGR(4),$P($T(@("T3"_QT)),U,4),/SGR(0)," : ",$S($L(LQU):LQU,1:$P($T(@("T3"_QT)),U,3)),/EL(0)
 ;
6 S R="LSI\22\3\"_$P($T(@("T2"_QT)),U,2)_"\4\\K?1.N&K!(""-""[K)" D R0 G 5:K="-"
 W /CUP(8,3),/SGR(4),$P($T(@("T2"_QT)),U,3),/SGR(0)," : ",$S($L(LSI):LSI,1:$P($T(@("T3"_QT)),U,3)),/EL(0)
 ;
7 S R="KZ\22\3\"_$P($T(@("T7"_QT)),U,2)_"\4\\""123-""[K" D R0 G 6:K="-"
 W /CUP(9,3),/SGR(4),$P($T(@("T7"_QT)),U,3),/SGR(0)," : ",$P($T(@("T8"_QT)),U,KZ+2),/EL(0)
 ;
 ; opbouw hulp.sort
8 D EG^cAFA1
 S BDAT=$$DC^cAFA1(BDAT),EDAT=$$DC^cAFA1(EDAT)
 S RSORT=$$GETSORT^cAFA1()
 K ^HULP("SORT",RSORT)
 S UI1=BDAT_"0000"
 F  S UI1=$O(@UREF) Q:$E(UI1,1,8)>EDAT&$L(EDAT)!'$L(UI1)  D
 . S B=@UREF@(0)
 . I KZ=1,'$P(B,D,9) Q
 . I KZ=2,'$P(B,D,11) Q
 . I KZ=3,'$P(B,D,9)&'$P(B,D,11) Q
 . I $L(LQU),$P(B,D,7)'=LQU Q
 . I $L(LSI),$P(B,D,6)'=LSI Q
 . S ^HULP("SORT",RSORT,UI1)=B
 D C^cA612
 ;
9 I '$L($O(^HULP("SORT",RSORT,""))) S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) G 7:$L(KZ),6:$L(LSI),5
 D B^cAN210("LOGIN",0,0,0) G 7:$L(KZ),6:$L(LSI),5
 ;
YZ D C^cA612
 Q
 ;
DEL ; verwijderen logging
 ; keuze 'van datum'
 D P^cA612(17,1,5,80,1,0,1,1,$P($T(@("T5"_QT)),U,2),0,0,0,0,0)
 N UI1,UREF,UQC,USC,UFU,SW3,BDAT,EDAT,A,B
DELA S BDAT=$O(^HULP("SORT",RSORT,"")),EDAT=$O(^HULP("SORT",RSORT,""),-1)
 S BDAT=$$DCO^cAFA1($E(BDAT,1,8)),EDAT=$$DCO^cAFA1($E(EDAT,1,8))
 S K=$$VAN^cAN005(BDAT,2,3,BDAT,EDAT) I K="-" G DELZ
 S VBDAT=K
 ;
 ; keuze 'tot datum'
 S K=$$TOT^cAN005(BDAT,2,40,VBDAT,EDAT) I K="-" G DELA
 S VEDAT=$$DC^cAFA1(K),VBDAT=$$DC^cAFA1(VBDAT)
 ;
 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""01""[K&$L(K)" D R0 I 'K G DELA
 ;
 D DMS^cAN000("UQC","USC","LOGIN")
 I '$L(UQC)!'$L(USC) G DELZ
 S UREF=$G(^DMC(UQC,USC,"DATA","REF")) I '$L(UREF) G DELZ
 S UXX=$G(^DMA(UQC,USC,0,5)),UFU="V"
 S UI1=VBDAT_"0000",SW3=1
 F  S UI1=$O(^HULP("SORT",RSORT,UI1)) Q:$E(UI1,1,8)>VEDAT!'$L(UI1)  D
 . K B D R^cAN000 M A=B
 . D B^cAN000(130,2) ; set niveau = 2
 . I $L($P(UXX,D,2)) X $P(UXX,D,2)
 . D U^cAN000,K^cAN000 ; effectief verwijderen
 . K ^HULP("SORT",RSORT,UI1)
 S REFRESH=1
 ;
DELZ D C^cA612 Q
 ;
UNBLOK(UI1) ; deblokkeren 
 N UQC,USC,UFU,SW3,A,B,UI1QU,I,TIJD,INIT,PRT
 S UI1QU=$$UR^cAFA1("USR",101,QU)
 D DMS^cAN000("UQC","USC","LOGIN")
 I '$L(UQC)!'$L(USC) G UNBLOKZ
 S IREF=^DMC(UQC,USC,"DATA","INDEX")
 S UFU="W",SW3=1,TIJD=$$HT^cAFA1($H)
 D R^cAN000 M A=B
 S INIT=$P(A(1),D,13),PRT=$P(A(1),D,12)
 D UNBLKONE(UI1,UI1HLP)
 I $L(PRT) D
 . S I1=PRT_" " F  S I1=$O(@IREF@(112,I1)) Q:$P(I1," ")'=PRT  S UI1=^(I1) I $D(^HULP("SORT",RSORT,UI1)),$P(^(UI1),D,12)=PRT D UNBLKONE(UI1,UI1)
 I $L(INIT) D
 . S I1=INIT_" " F  S I1=$O(@IREF@(113,I1)) Q:$P(I1," ")'=INIT  S UI1=^(I1) I $D(^HULP("SORT",RSORT,UI1)),$P(^(UI1),D,13)=INIT D UNBLKONE(UI1,UI1)
UNBLOKZ Q
 ;
UNBLKONE(UI1,UI1HLP)         ;
 N A,B
 D R^cAN000 M A=B
 S U2(1)=$P($T(@("T7"_QT)),U,2) D B^cAN000(111,"") S $P(ULOG(111),D,2,3)=$$JN^cAFO1(1)_D_$$JN^cAFO1(0)
 S U2(1)=$P($T(@("T7"_QT)),U,3) D B^cAN000(112,"") S $P(ULOG(112),D,2,3)=$P(A(1),D,12)_D_""
 S U2(1)=$P($T(@("T7"_QT)),U,4) D B^cAN000(113,"") S $P(ULOG(113),D,2,3)=$P(A(1),D,13)_D_""
 S U2(1)=$P($T(@("T7"_QT)),U,5) D B^cAN000(114,DT) S $P(ULOG(114),D,2,3)=$P(A(1),D,14)_D_DT
 S U2(1)=$P($T(@("T7"_QT)),U,6) D B^cAN000(115,TIJD) S $P(ULOG(115),D,2,3)=$P(A(1),D,15)_D_TIJD
 S U2(1)=$P($T(@("T7"_QT)),U,7) D B^cAN000(116,UI1QU) S $P(ULOG(116),D,2,3)=$P(A(1),D,16)_D_QU
 S U2(1)=$P($T(@("T7"_QT)),U,8) D B^cAN000(109,"") S $P(ULOG(109),D,2,3)=$P(A(1),D,9)_D_""
 I $D(UI1HLP) D
 . F I=11:1:13 S $P(^HULP("SORT",RSORT,UI1HLP),D,I)=""
 . S $P(^(UI1HLP),D,14)=DT,$P(^(UI1HLP),D,15)=TIJD,$P(^(UI1HLP),D,16)=UI1QU,$P(^(UI1HLP),D,9)=""
 D U^cAN000
 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