| Name | Value |
|---|---|
| PRINT FIELD | SEX |
| MUMPS CODE TO SET VARIABLE | S RTDPT=$P($P(RT0,"^"),";",2)="DPT(" D:'RTDPT ^RTL3 Q:'RTDPT S Y=$S($D(^DPT(+RT0,0)):$P(^(0),"^",2),1:""),C=$P(^DD(2,.02,0),"^",2) D Y^DIQ S RTV(RTJ)=$S(Y]"":Y,1:"Unknown") K RTDPT,Y,C |
| TYPE OF LABEL | RECORD or REQUEST |
| DEFAULT TITLE | Sex: |
| TEST VALUE | FEMALE |
| INTERNAL VARIABLE | RTV(5) |
| PARENT FILE |
|