cQDATIM ;Wijzigen Datum en Tijd ;cQDATIM; [ 02/22/01 12:41 PM ]
 ;
T0 ;Wijzigen dataum en tijd;
T1 ;Datum en tijd kunnen niet gewijzigd worden;
T2 ;Huidig Nieuw;
T3 ;Datum\"dd.mm.jjjj[] = datum [] = huidige datum -[] = einde programma";
T4 ;Tijd \"hh:mm:ss[] = tijd [] = huidige tijd";
T5 ;Wijziging doorvoeren\".[] = ja -[] = nee";
 ;
T0F ;Modifier la date et l'heure;
T1F ;La date et l'heure ne peuvent pas etre modifiés;
T2F ;Actuelle Nouvelle;
T3F ;Date \"jj.mm.aaaa[] = la date [] = la date actuelle -[] = fin du programme";
T4F ;L'heure\"hh:mm:ss[] = l'heure [] = l'heure actuelle";
T5F ;Appliquer les modifications\".[] = oui -[] = non";
 ;
1 D INI^cQ6 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 D S1 S FP=413 W @F,$P($T(@("T2"_QT)),U,2),!!?2,$P($P($T(@("T3"_QT)),U,2),D)," : ",DT,!!?2,$P($P($T(@("T4"_QT)),U,2),D)," : ",TI
12 S INT=0
 ;
2 S R="DAT\22\3\"_$P($T(@("T3"_QT)),U,2)_"\10\XCTR\" D R0 G YZ:K="-"
21 D S1 I DAT="" S %DN=$H D 100^%DO S DAT=$P(DT,".",1,2)_"."_$P(%DS," ",3)
 S FP=627 W @F,DAT
22 S R="TIM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\8\TCTR\" D R0 G 2:K="-"
23 D S1 S:TIM="" TIM=TI S FP=827 W @F,TIM
24 S R="OK\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\"".-""[K&$L(K)\" D R0 G 22:K="-"
 ;
SET S R=$$REGION
 I R="dd-mm-yy" S DAT=$TR("12.34.5678","12.34.5678",DAT)
 I R="dd-yy-mm" S DAT=$TR("12.5678.34","12.34.5678",DAT)
 I R="mm-dd-yy" S DAT=$TR("34.12.5678","12.34.5678",DAT)
 I R="mm-yy-dd" S DAT=$TR("34.5678.12","12.34.5678",DAT)
 I R="yy-dd-mm" S DAT=$TR("5678.12.34","12.34.5678",DAT)
 I R="yy-mm-dd" S DAT=$TR("5678.34.12","12.34.5678",DAT)
 S X=$ZF(-1,"date "_DAT)
 S X=$ZF(-1,"time "_TIM)
 Q
 ;
YZ Q
 ;
S1 D ^cA106 S K=$P($H,",",2),TH=K\3600,K=K-(TH*3600),TM=K\60,TS=K-(TM*60)
S1A S TI=$E(0_TH,$L(TH),3)_":"_$E(0_TM,$L(TM),3)_":"_$E(0_TS,$L(TS),3)
S1Z Q
 ;
REGION() ; get region
 S INFO=$$INFO^cQ14
 S K=$ZF(-1,"echo | date > "_INFO),K="dd-mm-yy",X=$$OR^cQFILE(INFO)
 I 'ER F  Q:$$RF^cQFILE(INFO,.A)  I A["(" S K=$P($P(A,"(",2),")") Q
 S K=$TR($$LC(K),"j","y")
 S X=$$CF^cQFILE(INFO)
 Q K
 ;
INT(DAT,TIM) S INT=1 D SET Q
 ;
LC(X) Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz")
 ;
INFO() Q $$INFO^cQ14
 ;
MS S FP=2403 W @F,@F4,R," [] = ok ",@F5,@F2,@F0 R K
MSZ 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
 ;
XCTR ;K?2N1"."2N1"."4N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-,"[K)
 ;
TCTR ;K?2N1":"2N1":"2N&($E(K,1,2)<24)&($E(K,4,5)<60)&($E(K,7,8)<60)!("-"[K)
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8