IBNEXTAPPT (144) FUNCTION (.5)
Name
Value
NAME
IBNEXTAPPT
MUMPS CODE
S X=$$DAT1^IBOUTL($O(^DPT(D0,"S",DT)))
EXPLANATION
Determines next appointment date from today. Use only on files where D0 = dfn
DATE-VALUED
NO
