VistA-WorldVistAEHR/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P749.m

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