Name | Value |
---|---|
PRINT FIELD | WARD LOCATION |
MUMPS CODE TO SET VARIABLE | S RTDPT=$P($P(RT0,"^"),";",2)="DPT(" D:'RTDPT ^RTL3 Q:'RTDPT S RTV(RTJ)=$S($D(^DPT(+RT0,.1)):"Ward: "_^(.1),1:"") |
TYPE OF LABEL | RECORD or REQUEST |
TEST VALUE | 11D MICU |
INTERNAL VARIABLE | RTV(49) |
PARENT FILE |
|
BARCODED FIELD | NO |