Index: KLASB.mac.rou =================================================================== diff -u -r29059 -r37554 --- KLASB.mac.rou (.../KLASB.mac.rou) (revision 29059) +++ KLASB.mac.rou (.../KLASB.mac.rou) (revision 37554) @@ -59,10 +59,11 @@ Do ADD^vhScherm(1,1),REFRESH Do ADD^vhLock("^KLAS") If '%TC Do LDISP^vhLock("^KLAS","Classificatie") Quit 0 If $D(^KLAS("M")) Do Quit 0 - .Set FP=2001 Write @F,@F1 + .Set FP=1901 Write @F,@F1 .Write !,"******* U kunt nu niet werken met BEHEER CLASSIFICATIE *******" .Write !,"Bij de vorige opbouw van het classificatie bestand is er een fout opgetreden" - .Write !,"Gelieve dringend de systeem beheerder te verwittigen (Paul V., Tel. 47)" + .Write !,"Gelieve dringend ICT te verwittigen." + .Write !,"Ze moeten van ^KLAS(""M"") afblijven en ^KLASJ uitvoeren" .R *K Do KR^DD("hPRKL") Do INIT^PROC("KLASSG","SG") @@ -492,3 +493,4 @@ Quit Ok ; +