diff --git a/p/C0CPROC.m b/p/C0CPROC.m
index fedde6d..38cd32b 100644
--- a/p/C0CPROC.m
+++ b/p/C0CPROC.m
@@ -89,7 +89,7 @@ PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME
  Q ZRTN
  ;
 DATE(ISTR) ; EXTRINSIC TO RETURN THE DATE IN CCR FORMAT
- Q $$FMDTOUTC^C0CUTIL(ISTR,"D")
+ Q $$FMDTOUTC^C0CUTIL(ISTR,"DT")
  ;
 CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS
  ; CPT^CATEGORY^TEXT