SCENI LASTFOUR (185) FUNCTION (.5)
Name
Value
NAME
SCENI LASTFOUR
MUMPS CODE
S X=$S($E(X,$L(X))="P":$E(X,$L(X)-4,$L(X)),1:$E(X,$L(X)-3,$L(X)))
EXPLANATION
EXTRACTS LAST FOUR FROM SSN
