| Name | Value |
|---|---|
| PRINT FIELD | DATE OF DEATH |
| MUMPS CODE TO SET VARIABLE | S RTV(RTJ)="" I $P(RT0,";",2)["DPT(",$D(^DPT(+RT0,.35)) S Y=+$P(^(.35),".") I Y D D^DIQ S RTV(RTJ)="Deceased: "_Y |
| TYPE OF LABEL | RECORD or REQUEST |
| DEFAULT TITLE | Dod: |
| TEST VALUE | 04/02/83 |
| INTERNAL VARIABLE | RTV(48) |