WARD LOCATION (20) EMBOSSING DATA (39.2)
Name
Value
NAME
WARD LOCATION
MUMPS CODE
S Y="" I $G(^DPT(DFN,.1))]"" S Y=$O(^DIC(42,"B",$G(^DPT(DFN,.1)),0)) S Y=$S($P($G(^DIC(42,+Y,0)),U,4)="N":"",1:$P($G(^DIC(42,+Y,0)),U))
