Index: EWRCPS.mac.rou
===================================================================
diff -u -r29059 -r45654
--- EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 29059)
+++ EWRCPS.mac.rou	(.../EWRCPS.mac.rou)	(revision 45654)
@@ -175,7 +175,7 @@
  Quit:"-"[RCPNr
  If RCPNr="N" Do
  .Set RCPNr=$$NEXTID^EWRCP
- .Set RCPDate=$H
+ .Set RCPDate=##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
  .If Extern,LEVNr=6332 Quit
  .Do FIELD^vhScherm("EWRCPSH","RCPDATE")
  .Do FIELD^vhScherm("EWRCPSH","RCPVREF")