YEAR (14) DATA TYPE (.81)

Name	Value
NAME	YEAR
INTERNAL REPRESENTATION	D
PROPERTY	EARLIEST DATE ORDER: 1
SHORT DESCRIPTION	A date in FileMan DATE format that is precise only to the year (e.g., 2016)
METHOD	M CODE: K:X'?1(1"1",1"2")3N!(X<1800) X I $D(X) S X=X-1700_"0000" K:$E($G(DIPA("EARLIEST DATE")),1,3)_"0000">X X M CODE: X ^DD("DD") M CODE: W !?5,"Enter a 4-digit year, e.g., '2015'." I $G(DIPA("EARLIEST DATE")) W !?5,"Must not be earlier than ",$$DATE^DIUTL(DIPA("EARLIEST DATE"))
SORT BY EXTERNAL?	NO