DG53P749 ;ALB/MJB-UPDATE FOR FILE 11 ;5/10/07
 ;;5.3;Registration;**749**;Aug 13, 1993;Build 10
 N DA,DIE,D
 S DA=$O(^DIC(11,"B","WIDOW/WIDOWER",0))
 S DIE=11,DR=".01////WIDOWED"
 I DA'=4 Q
 D ^DIE
 Q