cAFA51 ;Verwijderen centrale printers uit USR_SYS.CP indien X dagen niet gebruikt; cAFA51 ; G 1 ; T0 ;Verwijderen centrale printers per gebruiker; T1 ;De centrale printers per gebruiker zullen verwijderd worden indien ze ;dag(en) niet werden gebruikt; T2 ;Er is geen aantal dagen ingevuld, er zullen geen printers worden verwijderd.; T3 ;Doorgaan\"[] = neen 1[] = ja"; ; 1 I '$G(%bg) D P^cA612(1,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 10 S AANT=$P(^DPAR(0,"PAR","LOGIN",0),D,11) 11 I '$G(%bg),$L(AANT) W /CUP(2,2),$P($T(@("T1"_QT)),U,2)_AANT W /CUP(3,2),$P($T(@("T1"_QT)),U,3) 13 I '$G(%bg),'$L(AANT) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ 15 I '$G(%bg) S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""1-""[K" D R0 G YZ:K="-"!(K="") 17 I '$L(AANT) G YZ 19 S DAT=$H-AANT ; 2 S UI1="" 21 F S UI1=$O(^DATA(0,"USR_SYS.CP",UI1)) Q:UI1="" D . I '$G(%bg) W /CUP(17,2),@F2,UI1 . S INH=^(UI1,0) . I $P(INH,D,4)="" Q . I $L($P(INH,D,9))!($L($P(INH,D,13))) Q . I $P(INH,D,4)