| Name | Value |
|---|---|
| NAME | DGAGE |
| MUMPS CODE | S X=$S($D(^DPT(D0,0)):+$P(^(0),"^",3),1:0) S:'X!('Y) X=0 S:X X=$E(Y,1,3)-$E(X,1,3)-($E(Y,4,7)<$E(X,4,7)) |
| EXPLANATION | FOR A PATIENT, TAKES THE ARGUMENT (DATE) AND RETURNS THE AGE OF THE PATIENT ON THAT DATE, I.E., 'DGAGE(DATE OF DEATH)' WOULD RETURN THE PATIENTS AGE ON HIS DATE OF DEATH. |
| DATE-VALUED | NO |