DG53216P.m

DG53216P ;ALB/JDS POST INIT FOR DG*5.3*216

 ;;5.3;Registration;**216,1015**;Aug 13, 1993;Build 21

 S ^DD(35.2,.01,"DEL",1,0)="I $G(DGEDMODE) W *7,!,""Cannot Delete in this Mode"""

DG53216P  ;ALB/JDS POST INIT FOR DG*5.3*216

 +1       ;;5.3;Registration;**216,1015**;Aug 13, 1993;Build 21

 +2        SET ^DD(35.2,.01,"DEL",1,0)="I $G(DGEDMODE) W *7,!,""Cannot Delete in this Mode"""