| Name | Value |
|---|---|
| PRINT FIELD | AGE |
| MUMPS CODE TO SET VARIABLE | S RTDPT=$P($P(RT0,"^"),";",2)="DPT(" D:'RTDPT ^RTL3 S:RTDPT X=$P(^DPT(+RT0,0),"^",3),RTV(RTJ)=$E(X,4,7)_$E(X,2,3) S %DT="P",X=RTV(RTJ),RTV(RTJ)="Unknown" D ^%DT I Y>0 S X2=Y,X1=DT D ^%DTC S RTV(RTJ)=X\365.25 K RTDPT,X,Y |
| TYPE OF LABEL | RECORD or REQUEST |
| DEFAULT TITLE | Age: |
| TEST VALUE | 65 |
| INTERNAL VARIABLE | RTV(7) |
| PARENT FILE |
|