Index: EWD/ewdapps/so/r/ewdu.m
===================================================================
--- EWD/ewdapps/so/r/ewdu.m	(revision 1317)
+++ EWD/ewdapps/so/r/ewdu.m	(revision 1320)
@@ -5,10 +5,21 @@
  d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
  s U=$$getSessionValue^%zewdAPI("U",sessid)
+ s DILOCKTM=$$getSessionValue^%zewdAPI("DILOCKTM",sessid)
+ s DIQUIET=$$getSessionValue^%zewdAPI("DIQUIET",sessid)
+ s DISYS=$$getSessionValue^%zewdAPI("DISYS",sessid)
+ s DT=$$getSessionValue^%zewdAPI("DT",sessid)
+ s DTIME=$$getSessionValue^%zewdAPI("DTIME",sessid)
  quit
  ;
 s(sessid) ; Save to Symbol Table
+ set DIQUIET=1 d DT^DICRW
  d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
  d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
  d setSessionValue^%zewdAPI("U","^",sessid)
+ d setSessionValue^%zewdAPI("DILOCKTM",DILOCKTM,sessid)
+ d setSessionValue^%zewdAPI("DIQUIET",DIQUIET,sessid)
+ d setSessionValue^%zewdAPI("DISYS",DISYS,sessid)
+ d setSessionValue^%zewdAPI("DT",DT,sessid)
+ d setSessionValue^%zewdAPI("DTIME",DTIME,sessid)
  quit
  ;
@@ -47,4 +58,12 @@
  . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
  . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
+ . ; 
+ . ; Get the Date in the Symbol Table since $$SITE wants it
+ . s DIQUIET=1 d DT^DICRW
+ . ;
+ . ; Get the site name and format it
+ . n sitename s sitename=$P($$SITE^VASITE(),"^",2)
+ . s sitename=$$TITLE^XLFSTR(sitename)
+ . d setSessionValue^%zewdAPI("so.sitename",sitename,sessid)
  ; ---
 so(sessid) ; SO from EWD; routes to $$SO