| Name | Value |
|---|---|
| PRINT FIELD | SSN |
| MUMPS CODE TO SET VARIABLE | S RTDPT=$P($P(RT0,"^"),";",2)="DPT(" D:'RTDPT ^RTL3 Q:'RTDPT S X=$S($D(^DPT(+RT0,0)):$P(^(0),"^",9),1:""),RTV(RTJ)=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,10) K RTDPT |
| TYPE OF LABEL | RECORD or REQUEST |
| DEFAULT TITLE | SSN: |
| TEST VALUE | 999-99-9999 |
| INTERNAL VARIABLE | RTV(3) |