YEAR (4) FUNCTION (.5)
Name
Value
NAME
YEAR
MUMPS CODE
S X=$E(X,1,3)_"0000" S:'X X=""
DATE-VALUED
YES
