| Name | Value |
|---|---|
| PRINT FIELD | DATE OF BIRTH |
| MUMPS CODE TO SET VARIABLE | S RTDPT=$P($P(RT0,"^"),";",2)="DPT(" D:'RTDPT ^RTL3 I RTDPT S Y=$S($D(^DPT(+RT0,0)):$P(^(0),"^",3),1:""),C=$P(^DD(2,.03,0),"^",2) D Y^DIQ S RTV(RTJ)=$S(Y]"":Y,1:"Unknown") K RTDPT |
| TYPE OF LABEL | RECORD or REQUEST |
| DEFAULT TITLE | Dob: |
| TEST VALUE | 05/10/57 |
| INTERNAL VARIABLE | RTV(4) |