Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DG53216P

DG53216P.m

Go to the documentation of this file.

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

 ;;5.3;Registration;**216**;Aug 13, 1993

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53216P   169     printed  Sep 23, 2025@20:12:34                                                                                                                                                                                                     Page 2

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

 +1       ;;5.3;Registration;**216**;Aug 13, 1993

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