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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P749   209     printed  Dec 13, 2024@02:40:03                                                                                                                                                                                                     Page 2

DG53P749  ;ALB/MJB-UPDATE FOR FILE 11 ;5/10/07

 +1       ;;5.3;Registration;**749**;Aug 13, 1993;Build 10

 +2        NEW DA,DIE,D

 +3        SET DA=$ORDER(^DIC(11,"B","WIDOW/WIDOWER",0))

 +4        SET DIE=11

           SET DR=".01////WIDOWED"

 +5        IF DA'=4

               QUIT 

 +6        DO ^DIE

 +7        QUIT