YEAR (14)    DATA TYPE (.81)

Name Value
NAME YEAR
INTERNAL REPRESENTATION D
PROPERTY
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