S DGT=$$DGT^DGPMSTAT(X),DFN=D0 D ^DGPMSTAT S X=$S($D(^DIC(42,+DG1,0)):$P(^(0),U,1),1:"")
EXPLANATION
Returns the ward location for the specified date/time. If no time is given, location will be as of 12:01am. Any VA Fileman-acceptable format may be used and must be in quotes, eg: DGWARDWHEN("4/1/85@11").